b2cd30bfd4
Sounds good, doesn't work. (Okay, it does - but not like I want it to and with too many caveats at the moment - maybe later)
213 lines
7.2 KiB
EmacsLisp
213 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")
|
||
(set-default-text-scale nil 165))
|
||
|
||
(defun randr-layout-single ()
|
||
"Laptop screen only!"
|
||
|
||
(interactive)
|
||
(shell-command "xrandr --output HDMI1 --off")
|
||
(shell-command "xrandr --output DP1-1 --off")
|
||
(exwm-randr-refresh)
|
||
(set-default-text-scale nil))
|
||
|
||
(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") #'ts/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)
|