about summary refs log blame commit diff
path: root/init/nixos.el
blob: 431ba705c3bcb7de1f7916f0d8a656febe2ad555 (plain) (tree)
1
2
3
4
5
6
7





                                                                    
               





                                                 







                                                            

                       

                                    


                         

                                    
 

                     
                                
 




                                                                           





                                                     

                     
                                     
















                                                                   
                                                                 



                                                                                     
 


                                                                           




                                                                       


                                                                            
                                                              
 

                                     

                            


                    
 
                                   

                         




                                                                        
 


                                                       
 
                
;; 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)

(defvar is-nixos
  (let ((os-f "/etc/os-release"))
    (s-contains?
     "NixOS" (if (f-file? os-f) (f-read os-f)))))

(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)))))

(if is-nixos
    (progn
      (message "Running on NixOS, configuring ExWM.")
      (require 'exwm)
      (require 'exwm-config)

      (fringe-mode 3)

      (setq exwm-workspace-number 10)
      ;; Make class name the buffer name
      (add-hook 'exwm-update-class-hook
                (lambda ()
                  (exwm-workspace-rename-buffer exwm-class-name)))

      ;; '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)