212 lines
7.2 KiB
EmacsLisp
212 lines
7.2 KiB
EmacsLisp
|
;; -*- lexical-binding: t; -*-
|
|||
|
|
;;
|
|||
|
|
;; Configure desktop environment settings, including both
|
|||
|
|
;; window-management (EXWM) as well as additional system-wide
|
|||
|
|
;; commands.
|
|||
|
|
|
|||
|
|
(require 's)
|
|||
|
|
(require 'f)
|
|||
|
|
(require 'dash)
|
|||
|
|
(require 'exwm)
|
|||
|
|
(require 'exwm-config)
|
|||
|
|
(require 'exwm-randr)
|
|||
|
|
(require 'exwm-systemtray)
|
|||
|
|
|
|||
|
|
(defun pactl (cmd)
|
|||
|
|
(shell-command (concat "pactl " cmd))
|
|||
|
|
(message "Volume command: %s" cmd))
|
|||
|
|
|
|||
|
|
(defun volume-mute () (interactive) (pactl "set-sink-mute @DEFAULT_SINK@ toggle"))
|
|||
|
|
(defun volume-up () (interactive) (pactl "set-sink-volume @DEFAULT_SINK@ +5%"))
|
|||
|
|
(defun volume-down () (interactive) (pactl "set-sink-volume @DEFAULT_SINK@ -5%"))
|
|||
|
|
|
|||
|
|
(defun brightness-up ()
|
|||
|
|
(interactive)
|
|||
|
|
(shell-command "xbacklight -inc 5")
|
|||
|
|
(message "Brightness increased"))
|
|||
|
|
|
|||
|
|
(defun brightness-down ()
|
|||
|
|
(interactive)
|
|||
|
|
(shell-command "xbacklight -dec 5")
|
|||
|
|
(message "Brightness decreased"))
|
|||
|
|
|
|||
|
|
(defun lock-screen ()
|
|||
|
|
(interactive)
|
|||
|
|
;; A sudoers configuration is in place that lets me execute this
|
|||
|
|
;; particular command without having to enter a password.
|
|||
|
|
;;
|
|||
|
|
;; The reason for things being set up this way is that I want
|
|||
|
|
;; xsecurelock.service to be started as a system-wide service that
|
|||
|
|
;; is tied to suspend.target.
|
|||
|
|
(shell-command "/usr/bin/sudo /usr/bin/systemctl start xsecurelock.service"))
|
|||
|
|
|
|||
|
|
(defun generate-randr-config (primary secondary)
|
|||
|
|
(-flatten `(,(-map (lambda (n) (list n primary)) (number-sequence 1 7))
|
|||
|
|
(0 secondary)
|
|||
|
|
,(-map (lambda (n) (list n secondary)) (number-sequence 8 9)))))
|
|||
|
|
|
|||
|
|
(defun randr-layout-dp1-extend ()
|
|||
|
|
"Layout for connecting my X1 Carbon to my screen at home"
|
|||
|
|
|
|||
|
|
(interactive)
|
|||
|
|
(setq exwm-randr-workspace-monitor-plist (generate-randr-config "DP1-1" "eDP1"))
|
|||
|
|
(exwm-randr-refresh)
|
|||
|
|
(shell-command "xrandr --output DP1-1 --right-of eDP1 --auto --primary"))
|
|||
|
|
|
|||
|
|
(defun randr-layout-hdmi1-extend ()
|
|||
|
|
"Office layout for The Big Screen(tm)"
|
|||
|
|
|
|||
|
|
(interactive)
|
|||
|
|
(setq exwm-randr-workspace-monitor-plist (generate-randr-config "HDMI1" "eDP1"))
|
|||
|
|
(exwm-randr-refresh)
|
|||
|
|
(shell-command "xrandr --output HDMI1 --dpi 144 --auto --right-of eDP1 --primary"))
|
|||
|
|
|
|||
|
|
(defun randr-layout-single ()
|
|||
|
|
"Laptop screen only!"
|
|||
|
|
|
|||
|
|
(interactive)
|
|||
|
|
(shell-command "xrandr --output HDMI1 --off")
|
|||
|
|
(shell-command "xrandr --output DP1-1 --off")
|
|||
|
|
(exwm-randr-refresh))
|
|||
|
|
|
|||
|
|
(defun set-xkb-layout (layout)
|
|||
|
|
"Set the current X keyboard layout."
|
|||
|
|
|
|||
|
|
(shell-command (format "setxkbmap %s" layout))
|
|||
|
|
(message "Set X11 keyboard layout to '%s'" layout))
|
|||
|
|
|
|||
|
|
(defun create-window-name ()
|
|||
|
|
"Construct window names to be used for EXWM buffers by
|
|||
|
|
inspecting the window's X11 class and title.
|
|||
|
|
|
|||
|
|
A lot of commonly used applications either create titles that
|
|||
|
|
are too long by default, or in the case of web
|
|||
|
|
applications (such as Cider) end up being constructed in
|
|||
|
|
awkward ways.
|
|||
|
|
|
|||
|
|
To avoid this issue, some rewrite rules are applied for more
|
|||
|
|
human-accessible titles."
|
|||
|
|
|
|||
|
|
(pcase (list (or exwm-class-name "unknown") (or exwm-title "unknown"))
|
|||
|
|
;; In Cider windows, rename the class and keep the workspace/file
|
|||
|
|
;; as the title.
|
|||
|
|
(`("Google-chrome" ,(and (pred (lambda (title) (s-ends-with? " - Cider" title))) title))
|
|||
|
|
(format "Cider<%s>" (s-chop-suffix " - Cider" title)))
|
|||
|
|
|
|||
|
|
;; Attempt to detect IRCCloud windows via their title, which is a
|
|||
|
|
;; combination of the channel name and network.
|
|||
|
|
;;
|
|||
|
|
;; This is what would often be referred to as a "hack". The regexp
|
|||
|
|
;; will not work if a network connection buffer is selected in
|
|||
|
|
;; IRCCloud, but since the title contains no other indication that
|
|||
|
|
;; we're dealing with an IRCCloud window
|
|||
|
|
(`("Google-chrome"
|
|||
|
|
,(and (pred (lambda (title)
|
|||
|
|
(s-matches? "^[\*\+]\s#[a-zA-Z0-9/\-]+\s\|\s[a-zA-Z\.]+$" title)))
|
|||
|
|
title))
|
|||
|
|
(format "IRCCloud<%s>" title))
|
|||
|
|
|
|||
|
|
;; For other Chrome windows, make the title shorter.
|
|||
|
|
(`("Google-chrome" ,title)
|
|||
|
|
(format "Chrome<%s>" (s-truncate 42 (s-chop-suffix " - Google Chrome" title))))
|
|||
|
|
|
|||
|
|
;; Gnome-terminal -> Term
|
|||
|
|
(`("Gnome-terminal" ,title)
|
|||
|
|
;; fish-shell buffers contain some unnecessary whitespace and
|
|||
|
|
;; such before the current working directory. This can be
|
|||
|
|
;; stripped since most of my terminals are fish shells anyways.
|
|||
|
|
(format "Term<%s>" (s-trim-left (s-chop-prefix "fish" title))))
|
|||
|
|
|
|||
|
|
;; For any other application, a name is constructed from the
|
|||
|
|
;; window's class and name.
|
|||
|
|
(`(,class ,title) (format "%s<%s>" class (s-truncate 12 title)))))
|
|||
|
|
|
|||
|
|
;; EXWM launch configuration
|
|||
|
|
;;
|
|||
|
|
;; This used to use use-package, but when something breaks use-package
|
|||
|
|
;; it doesn't exactly make debugging any easier.
|
|||
|
|
|
|||
|
|
(let ((titlef (lambda ()
|
|||
|
|
(exwm-workspace-rename-buffer (create-window-name)))))
|
|||
|
|
(add-hook 'exwm-update-class-hook titlef)
|
|||
|
|
(add-hook 'exwm-update-title-hook titlef))
|
|||
|
|
|
|||
|
|
(fringe-mode 3)
|
|||
|
|
(exwm-enable)
|
|||
|
|
|
|||
|
|
;; 's-N': Switch to certain workspace
|
|||
|
|
(setq exwm-workspace-number 10)
|
|||
|
|
(dotimes (i 10)
|
|||
|
|
(exwm-input-set-key (kbd (format "s-%d" i))
|
|||
|
|
`(lambda ()
|
|||
|
|
(interactive)
|
|||
|
|
(exwm-workspace-switch-create ,i))))
|
|||
|
|
|
|||
|
|
;; Launch applications / any command with completion (dmenu style!)
|
|||
|
|
(exwm-input-set-key (kbd "s-d") #'counsel-linux-app)
|
|||
|
|
(exwm-input-set-key (kbd "s-x") #'ivy-run-external-command)
|
|||
|
|
(exwm-input-set-key (kbd "s-p") #'ivy-password-store)
|
|||
|
|
|
|||
|
|
;; Add X11 terminal selector to a key
|
|||
|
|
(exwm-input-set-key (kbd "C-x t") #'counsel-switch-to-terminal)
|
|||
|
|
|
|||
|
|
;; Toggle between line-mode / char-mode
|
|||
|
|
(exwm-input-set-key (kbd "C-c C-t C-t") #'exwm-input-toggle-keyboard)
|
|||
|
|
|
|||
|
|
;; Volume keys
|
|||
|
|
(exwm-input-set-key (kbd "<XF86AudioMute>") #'volume-mute)
|
|||
|
|
(exwm-input-set-key (kbd "<XF86AudioRaiseVolume>") #'volume-up)
|
|||
|
|
(exwm-input-set-key (kbd "<XF86AudioLowerVolume>") #'volume-down)
|
|||
|
|
|
|||
|
|
;; Brightness keys
|
|||
|
|
(exwm-input-set-key (kbd "<XF86MonBrightnessDown>") #'brightness-down)
|
|||
|
|
(exwm-input-set-key (kbd "<XF86MonBrightnessUp>") #'brightness-up)
|
|||
|
|
(exwm-input-set-key (kbd "<XF86Display>") #'lock-screen)
|
|||
|
|
|
|||
|
|
;; Keyboard layouts (these are bound separately in Cyrillic
|
|||
|
|
;; because I don't use reverse-im)
|
|||
|
|
;; (-map
|
|||
|
|
;; (lambda (pair)
|
|||
|
|
;; (exwm-input-set-key
|
|||
|
|
;; (kbd (format "s-%s" (cadr pair)))
|
|||
|
|
;; `(lambda () (interactive) (set-xkb-layout ,(car pair)))))
|
|||
|
|
;; '(("de" "k d")
|
|||
|
|
;; ("de" "л в")
|
|||
|
|
;; ("no" "k n")
|
|||
|
|
;; ("no" "л т")
|
|||
|
|
;; ("ru" "k r")
|
|||
|
|
;; ("ru" "л к")
|
|||
|
|
;; ("us" "k u")
|
|||
|
|
;; ("us" "л г")))
|
|||
|
|
|
|||
|
|
;; Line-editing shortcuts
|
|||
|
|
(exwm-input-set-simulation-keys
|
|||
|
|
'(([?\C-d] . delete)
|
|||
|
|
([?\C-w] . ?\C-c)))
|
|||
|
|
|
|||
|
|
;; Show time & battery status in the mode line
|
|||
|
|
(display-time-mode)
|
|||
|
|
(display-battery-mode)
|
|||
|
|
|
|||
|
|
;; enable display of X11 system tray within Emacs
|
|||
|
|
(exwm-systemtray-enable)
|
|||
|
|
|
|||
|
|
;; Configure xrandr (multi-monitor setup)
|
|||
|
|
(setq exwm-randr-workspace-monitor-plist (generate-randr-config "HDMI1" "eDP1"))
|
|||
|
|
(exwm-randr-enable)
|
|||
|
|
|
|||
|
|
;; Let buffers move seamlessly between workspaces by making them
|
|||
|
|
;; accessible in selectors on all frames.
|
|||
|
|
(setq exwm-workspace-show-all-buffers t)
|
|||
|
|
(setq exwm-layout-show-all-buffers t)
|
|||
|
|
|
|||
|
|
;; Monitor layouts
|
|||
|
|
;;
|
|||
|
|
;; TODO(tazjin): Desired layout should be inferred based on
|
|||
|
|
;; connected screens - autorandr or something?
|
|||
|
|
(exwm-input-set-key (kbd "s-m d") #'randr-layout-dp1-extend)
|
|||
|
|
(exwm-input-set-key (kbd "s-m h") #'randr-layout-hdmi1-extend)
|
|||
|
|
(exwm-input-set-key (kbd "s-m s") #'randr-layout-single)
|
|||
|
|
|
|||
|
|
(provide 'desktop)
|