4fe8d78dbb
This is the first in a series of commits for refactoring my configuration to make use of jwiegley's use-package. In the previous layout of the configuration there were some questions around what settings go into which file, but in the end it is all just related to which packages are being configured (besides settings related to global Emacs behaviour). This commit introduces use-package forms for all currently used packages (which are still installed via Nix, not via package.el) but does not yet clean up the rest of the configuration in a suitable way. Note that this version introduces a bug in which the configuration of telephone line is not correctly initialised after package setup.
100 lines
3.2 KiB
EmacsLisp
100 lines
3.2 KiB
EmacsLisp
;; Configure additional settings if this is one of my NixOS machines
|
|
;; (i.e. if ExWM is required)
|
|
;; -*- lexical-binding: t; -*-
|
|
|
|
(require 's)
|
|
(require 'f)
|
|
(require 'dash)
|
|
|
|
(defun pulseaudio-ctl (cmd)
|
|
(shell-command (concat "pulseaudio-ctl " cmd))
|
|
(message "Volume command: %s" cmd))
|
|
|
|
(defun volume-mute () (interactive) (pulseaudio-ctl "mute"))
|
|
(defun volume-up () (interactive) (pulseaudio-ctl "up"))
|
|
(defun volume-down () (interactive) (pulseaudio-ctl "down"))
|
|
|
|
(defun brightness-up ()
|
|
(interactive)
|
|
(shell-command "exec light -A 10")
|
|
(message "Brightness increased"))
|
|
|
|
(defun brightness-down ()
|
|
(interactive)
|
|
(shell-command "exec light -U 10")
|
|
(message "Brightness decreased"))
|
|
|
|
(defun lock-screen ()
|
|
(interactive)
|
|
(shell-command "screen-lock"))
|
|
|
|
(defun generate-randr-config ()
|
|
(-flatten `(,(-map (lambda (n) (list n "DP2")) (number-sequence 1 5))
|
|
(0 "eDP1")
|
|
,(-map (lambda (n) (list n "eDP1")) (number-sequence 6 9)))))
|
|
|
|
(use-package exwm
|
|
:hook ((exwm-update-class . (lambda ()
|
|
;; Make class name the buffer name
|
|
(exwm-workspace-rename-buffer exwm-class-name))))
|
|
:init
|
|
(progn
|
|
(require 'exwm-config)
|
|
|
|
(fringe-mode 3)
|
|
|
|
(setq exwm-workspace-number 10)
|
|
|
|
;; 's-r': Reset
|
|
(exwm-input-set-key (kbd "s-r") #'exwm-reset)
|
|
;; 's-w': Switch workspace
|
|
(exwm-input-set-key (kbd "s-w") #'exwm-workspace-switch)
|
|
;; 's-N': Switch to certain workspace
|
|
(dotimes (i 10)
|
|
(exwm-input-set-key (kbd (format "s-%d" i))
|
|
`(lambda ()
|
|
(interactive)
|
|
(exwm-workspace-switch-create ,i))))
|
|
|
|
;; Launch applications with completion (dmenu style!)
|
|
(exwm-input-set-key (kbd "s-d") #'ivy-run-external-command)
|
|
(exwm-input-set-key (kbd "s-p") #'ivy-password-store)
|
|
(exwm-input-set-key (kbd "C-s-p") '(lambda ()
|
|
(interactive)
|
|
(ivy-password-store "~/.aprila-secrets")))
|
|
|
|
;; 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)
|
|
|
|
;; Line-editing shortcuts
|
|
(exwm-input-set-simulation-keys
|
|
'(([?\C-d] . delete)
|
|
([?\C-w] . ?\C-c)))
|
|
|
|
;; Enable EXWM
|
|
(exwm-enable)
|
|
|
|
;; Show time in the mode line
|
|
(display-time-mode)
|
|
|
|
;; Configure xrandr when running on laptop
|
|
(when (equal (shell-command-to-string "hostname") "adho\n")
|
|
(require 'exwm-randr)
|
|
(setq exwm-randr-workspace-output-plist (generate-randr-config))
|
|
(exwm-randr-enable))
|
|
|
|
;; Let buffers move seamlessly between workspaces
|
|
(setq exwm-workspace-show-all-buffers t)
|
|
(setq exwm-layout-show-all-buffers t)))
|
|
|
|
(provide 'nixos)
|