Initial commit of new repository structure

1 files changed, 168 insertions, 0 deletions

diff --git a/.config/emacs/modules/bd--exwm-windowing.el b/.config/emacs/modules/bd--exwm-windowing.el
new file mode 100644
index 0000000..a275f5a
--- /dev/null
+++ b/.config/emacs/modules/bd--exwm-windowing.el
@@ -0,0 +1,168 @@
+;; -*- lexical-binding: t; -*-
+
+
+;;;; utilities
+;; desktop
+(use-package desktop-environment
+  :custom
+  (desktop-environment-screenshot-directory (xdg-user-dir "PICTURES"))
+  (desktop-environment-screenshot-command "flameshot full")
+  (desktop-environment-screenshot-partial-command "flameshot launcher"))
+
+
+(defun bd/exwm-update-class ()
+  "Changes the buffer name to reflect the class name for
+that buffer."
+  (exwm-workspace-rename-buffer exwm-class-name))
+
+(defun bd/exwm-init-hook ()
+  "Make workspace 1 the default startup workspace."
+  (exwm-workspace-switch-create 1))
+
+
+(defun toggle-current-window-dedication ()
+  "Adds or revokes dedicated window status from a buffer. A
+dedicated buffer will never be automatically orphaned."
+  (interactive)
+  (let* ((window    (selected-window))
+         (dedicated (window-dedicated-p window)))
+    (set-window-dedicated-p window (not dedicated))
+    (message "Window %sdedicated to %s"
+             (if dedicated "no longer " "")
+             (buffer-name))))
+
+
+;;;; bookmarks, passwords
+(defun insert-bookmark ()
+  "Inserts a url or string from permanent
+bookmark file. If an x window, place in kill-ring."
+  ;; note xdotool had issues with repeated keys when sending to windowid
+  (interactive)
+  (let ((url (car (last (split-string (choose-line-from-file "~/Personal/scripts/bookmarks.txt"))))))
+    (if (exwm--buffer->id (current-buffer))
+        (kill-new url)
+      (insert url))))
+
+(defun choose-line-from-file (file)
+  "Uses completion-framework to allow user to
+select a line from a file."
+  (let* ((choices (read-file-into-list file)))
+    (completing-read "Recall: " choices)))
+
+(defun read-file-into-list (file)
+  (with-current-buffer
+      (find-file-noselect file)
+    (split-string
+     (save-restriction
+       (widen)
+       (buffer-substring-no-properties
+        (point-min)
+        (point-max)))
+     "\n" t)))
+
+(use-package password-store
+  :custom
+  (password-store-time-before-clipboard-restore 20)
+  (define-key global-map (kbd "C-c k") #'password-store-copy))
+
+;; emacs-pinentry; wonderful in EXWM, has security flaws
+(use-package pinentry
+  :init
+  (pinentry-start)
+  :custom
+  (pinentry-popup-prompt-window nil))
+
+
+(use-package exwm
+  :config
+  (add-hook 'exwm-init-hook #'bd/exwm-init-hook)
+  (add-hook 'exwm-update-class-hook #'bd/exwm-update-class)
+  ;; order is important
+  (require 'exwm-randr)
+  (exwm-randr-enable)
+  ;; because my nvidia driver is currently unsupported with nouveau,
+  ;; xrandr seems to be entirely broken. This line is only here for
+  ;; future reference
+  ;;(start-process-shell-command "xrandr" nil (expand-file-name "exwm_xrandr.sh" user-emacs-directory))
+  (start-process-shell-command "picom" nil "picom")
+  (start-process-shell-command "bg" nil "set-bg")
+  (start-process-shell-command "xrate" nil "xset r rate 250 70")
+
+  (dolist (k '(("s-B" "icecat")))
+    (let ((f (lambda () (interactive)
+               (save-window-excursion
+                 (start-process-shell-command (cadr k) nil (cadr k))))))
+      (exwm-input-set-key (kbd (car k)) f)
+      (define-key exwm-mode-map (kbd (car k)) f)))
+
+  (define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
+  (exwm-enable)
+  (server-start)
+  :custom
+  (exwm-workspace-number 10) ; puts scratch buffer everywhere
+  (exwm-input-prefix-keys
+   '(?\C-x
+     ?\C-u
+     ?\C-g
+     ?\C-h
+     ?\C-z
+     ?\M-x
+     ?\M-`
+     ?\M-&
+     ?\M-: ))
+  (exwm-input-global-keys
+   `(([?\s-n] . other-window)
+     ([?\s-p] . (lambda ()
+                  (interactive)
+                  (other-window -1)))
+     ([?\s-L] . desktop-environment-lock-screen)
+     ([f2] . desktop-environment-brightness-decrement)
+     ([f3] . desktop-environment-brightness-increment)
+     ([f7] . emms-volume-lower)
+     ([f8] . emms-volume-raise)
+     ([f9] . emms-next)
+     ([f10] . emms-pause)
+     ([f11] . emms-previous)
+     ([print] . desktop-environment-screenshot-part)
+     ([S-print] . desktop-environment-screenshot)
+     ([?\s-O] . insert-bookmark)
+     ([?\s-P] . password-store-copy)
+     ([?\s-r] . exwm-reset)
+     ([?\s-d] . toggle-current-window-dedication)
+     ([?\s-q] . kill-current-buffer)
+     ([?\s-x] . (lambda (command)
+                  (interactive (list (read-shell-command "s-x ")))
+                  (start-process-shell-command command nil command)))
+     ,@(mapcar (lambda (i)
+                 `(,(kbd (format "s-%d" i)) .
+                   (lambda ()
+                     (interactive)
+                     (exwm-workspace-switch-create ,i))))
+               (number-sequence 0 9))))
+  (exwm-input-simulation-keys
+   '(([?\C-b] . [left])
+     ([?\C-f] . [right])
+     ([?\C-p] . [up])
+     ([?\C-n] . [down])
+     ([?\C-a] . [home])
+     ([?\C-e] . [end])
+     ([?\M-v] . [prior])
+     ([?\C-v] . [next])
+     ([?\C-d] . [delete])
+     ([?\C-k] . [S-end delete])
+     ([?\M-w] . [C-c])
+     ([?\C-y] . [C-v])))
+
+  ;; ,@(mapcar (lambda (i)
+  ;;             `(,(kbd (format "s-%s" (car i))) .
+  ;;               (lambda ()
+  ;;                 (interactive
+  ;;                  (exwm-workspace-switch-create ,(car (cdr i)))))))
+  ;;           '((! 0) (@ 1) (\# 2) ($ 3) (% 4) (^ 5) (& 6) (* 7) (\( 8) (\) 9)))))
+
+  (exwm-workspace-show-all-buffers t)
+  (exwm-layout-show-all-buffers t)
+  (exwm-randr-workspace-monitor-plist '(0 "HDMI-1" 6 "HDMI-1" 7 "HDMI-1" 8 "HDMI-1" 9 "HDMI-1")))
+
+
+(provide 'bd--exwm-windowing)