Initial commit of new repository structure

1 files changed, 0 insertions, 145 deletions

diff --git a/.config/emacs/bd-wm.el b/.config/emacs/bd-wm.el
deleted file mode 100644
index 9d7f60a..0000000
--- a/.config/emacs/bd-wm.el
+++ /dev/null
@@ -1,145 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-
-(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))))
-
-(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 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)
-  ;; (start-process-shell-command "xrandr" nil "/home/bdunahu/.config/emacs/exwm_xrandr.sh")
-  (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-L" "slock")
-               ("s-B" "icecat")
-               ("s-P" "passmenu --type")
-               ("<f2>" "brightnessctl set 1%-")
-               ("<f3>" "brightnessctl set 1%+")
-               ("<f6>" "pactl set-sink-mute @DEFAULT_SINK@ toggle")
-               ("<f7>" "pactl set-sink-volume @DEFAULT_SINK@ -10%")
-               ("<f8>" "pactl set-sink-volume @DEFAULT_SINK@ +5%")
-               ("<f9>" "mpc prev")
-               ("<f11>" "mpc next")
-               ("<print>" "flameshot launcher")))
-    (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-O] . insert-bookmark)
-     ([?\s-r] . exwm-reset)
-     ([?\s-d] . toggle-current-window-dedication)
-     ([?\s-q] . kill-current-buffer)
-     ;; ([?\s-<f10>] . emms-pause) ; see rest of mpc commands above--mpc pause performed poorly
-     ([?\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 "DVI-D-1" 2 "DVI-D-1" 4 "DVI-D-1" 6 "DVI-D-1" 8 "DVI-D-1")))