full reorg

1 files changed, 0 insertions, 184 deletions

diff --git a/emacs/site-lisp/my-exwm.el b/emacs/site-lisp/my-exwm.el
deleted file mode 100644
index be71f52..0000000
--- a/emacs/site-lisp/my-exwm.el
+++ /dev/null
@@ -1,184 +0,0 @@
-(use-package exwm ; emacs x window manager
-  :demand nil
-  :config
-  (require 'exwm-randr)
-  (require 'exwm-xim)
-  (require 'exwm-systemtray)
-  (require 'exwm-manage)
-  (add-to-list 'exwm-manage-configurations '((equal exwm-class-name "Slack") managed t))
-  (use-package exwm-modeline)
-  ;;(exwm-xim-mode 1)
-
-  (defun my/exwm-auto-workspace-montior ()
-    "Autopopulate exwm-randr-workspace-monitor-plist and attempt to
-have a workspace on each monitor.  Try to keep up with xrandr
-changes."
-    (let ((buf (generate-new-buffer "*xrandr-output*"))
-          (out-plist nil))
-      (call-process-shell-command "xrandr --listmonitors -q" nil buf nil)
-      (with-current-buffer buf
-        (keep-lines "[^[:word:]]connected" (point-min) (point-max) nil)
-	;; (goto-char (point-min))
-	;; (while (re-search-forward "^\\([a-zA-Z\\-0-9]+\\) .*$" nil t nil)
-	;;   (replace-match "\\1"))
-	;; (goto-char (point-min))
-        (let ((num-monitors (count-lines (point-min) (point-max)))
-              (i 0))
-          (setq exwm-workspace-number num-monitors)
-          (goto-char (point-min))
-          (while (< i num-monitors)
-            (move-beginning-of-line 1)
-            (push-mark)
-            (search-forward-regexp " ")
-            (backward-char)
-            (push (buffer-substring (mark) (point)) out-plist)
-	    (if (> i 0)
-		(let ((prev (caddr out-plist))
-		      (cur (car out-plist)))
-		  (call-process-shell-command
-		   (format "xrandr --output %s --auto --right-of %s" cur prev)
-		   nil nil nil))
-	      (call-process-shell-command
-	       (format "xrandr --output %s --auto" (car out-plist)) nil nil nil))
-            (push i out-plist)
-            (setq i (+ i 1))
-            (pop-mark)
-            (forward-line))))
-      (kill-buffer buf)
-      (setq exwm-randr-workspace-monitor-plist out-plist))
-    (while (> exwm-workspace-number (length exwm-workspace--list))
-      (exwm-workspace-add)))
-  (add-hook 'exwm-randr-screen-change-hook #'my/exwm-auto-workspace-montior)
-
-  (defun my/exwm-set-buffer-name ()
-    (if exwm-title
-        (let* ((shortened-title (replace-regexp-in-string
-                                 " - Mozilla Firefox"
-                                 ""
-                                 exwm-title))
-               (class-and-title  (concat
-                                  exwm-class-name
-                                  "<"
-                                  shortened-title
-                                  ">")))
-          (setq-local exwm-title class-and-title)
-          (exwm-workspace-rename-buffer exwm-title))))
-
-  (defun my/exwm-other-workspace (arg)
-    "Focus other monitor's workspace."
-    (interactive "p")
-    ;; based on other-frame
-    (let ((filter-f (function (lambda (f)
-                                (and (exwm-workspace--active-p f)
-                                     (not (eq (selected-frame) f))))))
-          (sframe (selected-frame))
-          (frame (selected-frame)))
-      (while (> arg 0)
-        (setq frame (next-frame frame))
-        (while (and (not (eq frame sframe))
-                    (not (eq (frame-visible-p frame) t))
-                    (funcall filter-f frame))
-          (setq frame (next-frame frame)))
-        (setq arg (1- arg)))
-      (while (< arg 0)
-        (setq frame (previous-frame frame))
-        (while (and (not (eq frame sframe))
-                    (not (eq (frame-visible-p frame) t))
-                    (filter-f frame))
-          (setq frame (previous-frame frame)))
-        (setq arg (1+ arg)))
-      (exwm-workspace-switch frame)))
-
-  (defun my/dmenu (command)
-    (interactive (list (read-shell-command "$ ")))
-    (start-process-shell-command command nil command))
-
-  (defun my/browser ()
-    (interactive)
-    (start-process-shell-command "glide" nil "glide"))
-
-  (defun my/brightnessdown () (interactive) (start-process "" nil "brightnessdown"))
-  (defun my/brightnessup () (interactive) (start-process "" nil "brightnessup"))
-  (defun my/mute () (interactive) (start-process "" nil "pactl" "set-sink-mute" "@DEFAULT_SINK@" "toggle"))
-  (defun my/voldown () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "-5%"))
-  (defun my/volup () (interactive) (start-process "" nil "pactl" "set-sink-volume" "@DEFAULT_SINK@" "+5%"))
-
-  (push ?\C-\\ exwm-input-prefix-keys) ;;C-\ to switch input method
-  (push ?\C-u exwm-input-prefix-keys)  ;; send C-u to all windows too
-  (push ?\M-L exwm-input-prefix-keys)
-  (progn
-    ;; (exwm-enable)
-    ;; (exwm-randr-mode)
-    ;; (ednc-mode 1)
-    ;; (exwm-systemtray-mode)
-    ;; (add-hook 'after-init-hook #'exwm-randr-refresh)
-    )
-  :hook
-  (exwm-update-class . my/exwm-set-buffer-name)
-  (exwm-update-title . my/exwm-set-buffer-name)
-  ;; (after-init . exwm-randr-refresh)
-  ;; (after-init . display-time-mode)
-  ;; (after-init . ednc-mode)
-  ;; (after-init . display-battery-mode)
-  :custom
-  (exwm-replace nil)
-  (exwm-title-length 50)
-  (exwm-workspace-show-all-buffers t)
-  (exwm-layout-show-all-buffers t)
-
-  (exwm-modeline-randr t)
-  (exwm-modeline-short nil)
-  (exwm-modeline-urgent t)
-
-  (exwm-manage-force-tiling t)
-
-  (exwm-input-global-keys
-   `(
-     ([?\M-r] . exwm-reset)
-     ;; Bind "s-w" to window switcher
-     ([?\M-W] . consult-buffer)
-     ([?\M-o] . other-window)
-     ([?\M-O] . my/exwm-other-workspace)
-
-     ([?\M-D] . my/dmenu)
-     ([?\M-E] . my/browser)
-     (,(kbd "M-C-m") . my/eshell)
-     ([?\M-K] . kill-current-buffer)
-
-     ,@(mapcar (lambda (n)
-                 (let* ((from (concat "C-x " (format "%d" n)))
-			(to (concat "M-" (format "%d" n)))
-			(bind (keymap-lookup global-map from)))
-                   (cons (kbd to) bind)))
-               (number-sequence 0 9))
-
-     ([XF86MonBrightnessDown] . my/brightnessdown)
-     ([XF86MonBrightnessUp] . my/brightnessup)
-     ([XF86AudioMute] . my/mute)
-     ([XF86AudioLowerVolume] . my/voldown)
-     ([XF86AudioRaiseVolume] . my/volup)))
-  (exwm-input-simulation-keys
-   '(;; movement
-     ([?\C-b] . [left])
-     ([?\M-b] . [C-left])
-     ([?\C-f] . [right])
-     ([?\M-f] . [C-right])
-     ([?\C-p] . [up])
-     ([?\C-n] . [down])
-     ([?\C-a] . [home])
-     ([?\C-e] . [end])
-     ([?\M-v] . [prior])
-     ([?\C-v] . [next])
-     ;; edit, copy, paste
-     ([?\C-d] . [delete])
-     ([?\C-k] . [S-end delete])
-     ([M-backspace] . [C-backspace])
-     ([?\M-w] . [?\C-c])
-     ([?\C-y] . [?\C-v])
-     ([?\C-s] . [?\C-f])))
-  (exwm-input-move-event 'M-down-mouse-1)
-  (exwm-input-resize-event 'M-down-mouse-3)
-  :bind (:map exwm-mode-map
-              ("C-q" . 'exwm-input-send-next-key)
-              ("M-!" . 'shell-command)))
-