chore(emacs.d): Import several months of privately tracked changes r/141

These changes were made in a fork of my configuration that is not
publicly available and detailed history will not be included in this
public commit.

1 files changed, 0 insertions, 103 deletions

diff --git a/tools/emacs/init/nixos.el b/tools/emacs/init/nixos.el
deleted file mode 100644
index e384e9b77db8..000000000000
--- a/tools/emacs/init/nixos.el
+++ /dev/null
@@ -1,103 +0,0 @@
-;; 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 7))
-              (0 "eDP1")
-              ,(-map (lambda (n) (list n "eDP1")) (number-sequence 8 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")))
-
-    ;; Add Alacritty selector to a key
-    (exwm-input-set-key (kbd "C-x t") #'counsel-switch-to-alacritty)
-
-    ;; 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)