emacs full rework from laptop

1 files changed, 284 insertions, 0 deletions

diff --git a/emacs/site-lisp/exwm-pref.el b/emacs/site-lisp/exwm-pref.el
new file mode 100644
index 0000000..fee729f
--- /dev/null
+++ b/emacs/site-lisp/exwm-pref.el
@@ -0,0 +1,284 @@
+;;; My full EXWM config
+(provide 'exwm-pref)
+
+;; stuff for exwm
+(use-package exwm)
+(require 'exwm-randr)
+(require 'exwm-xim)
+(require 'exwm-systemtray)
+
+(setq exwm-workspace-number 1)
+;; (setq exwm-randr-workspace-monitor-plist '(0 "DP-0" 1 "HDMI-0" 2 "DVI-I-1"))
+(setq exwm-workspace-show-all-buffers t)
+(setq exwm-layout-show-all-buffers t)
+
+(use-package exwm-modeline)
+(setq exwm-modeline-randr t)
+(setq exwm-modeline-short nil)
+(setq exwm-modeline-urgent t)
+;; (add-hook 'exwm-init-hook (lambda () (exwm-modeline-mode 1)))
+
+;; (require exwm-firefox-evil)
+;; (require 'exwm-firefox)
+;; (exwm-firefox-mode)
+
+(setq persp-auto-resume-time 0)
+
+(setq exwm-title-length 70)
+
+(defun b3n-exwm-set-buffer-name ()
+  (if (and exwm-title (string-match "\\`http[^ ]+" exwm-title))
+      (let ((url (match-string 0 exwm-title)))
+        (setq-local buffer-file-name url)
+        (setq-local exwm-title (replace-regexp-in-string
+                                (concat (regexp-quote url) " - ")
+                                ""
+                                exwm-title))))
+
+  (setq-local exwm-title
+              (concat
+               exwm-class-name
+               "<"
+               ;; (if (<= (length exwm-title) exwm-title-length)
+               exwm-title
+                 ;; (concat (substring exwm-title 0 exwm-title-length) "…"))
+               ">"))
+
+  (exwm-workspace-rename-buffer exwm-title))
+
+(add-hook 'exwm-update-class-hook 'b3n-exwm-set-buffer-name)
+(add-hook 'exwm-update-title-hook 'b3n-exwm-set-buffer-name)
+
+(defun exwm-assign-workspace (index)
+  "switch to workspace without changing monitor"
+  (interactive "p")
+  (let* ((current-index exwm-workspace-current-index)
+         (current-monitor (plist-get exwm-randr-workspace-monitor-plist current-index))
+         (displaced-monitor (plist-get exwm-randr-workspace-monitor-plist index)))
+    ;; if not associated, copy current association
+    (unless displaced-monitor
+      (setq displaced-monitor current-monitor))
+    ;; (message "%s, %s" current-monitor displaced-monitor)
+    ;; swapping prevents a monitor losing all of its associations
+    (plist-put exwm-randr-workspace-monitor-plist current-index displaced-monitor)
+    (plist-put exwm-randr-workspace-monitor-plist index current-monitor)
+
+    (exwm-workspace-switch-create index)
+
+    (exwm-randr-refresh)
+    ;; (message "%s, %s, %s" exwm-randr-workspace-monitor-plist current-index index)
+    ))
+
+(defun exwm-other-assigned-workspace ()
+  "focus other monitor's workspace. Assumes 2 monitors"
+  (interactive)
+  ;; super hacky, assumes that there are only two active workspaces
+  (exwm-workspace-switch-create (exwm-workspace--workspace-from-frame-or-index
+                                 (let* ((workspace-list (seq-filter 'exwm-workspace--active-p exwm-workspace--list))
+                                       (active-workspaces workspace-list))
+                                   (while (not (eq (car active-workspaces) (selected-frame)))
+                                     (setq active-workspaces (cdr active-workspaces)))
+                                   (setq active-workspaces (cdr active-workspaces))
+                                   (if (eq active-workspaces nil)
+                                       (car workspace-list)
+                                     (car active-workspaces))))))
+
+;; (add-hook 'exwm-randr-screen-change-hook
+;;           (lambda ()
+;;             (let ((connected (shell-command-to-string "xrandr")))
+;;               (if (and (string-match "HDMI-0 connected" connected) (string-match "DP-0 connected" connected) (string-match "DVI-I-1 connected" connected))
+;;                   (start-process-shell-command
+;;                    "xrandr" nil "xrandr --output HDMI-0 --rotate right --pos 0x240 --output DP-0 --auto --pos 1080x0 --output DVI-I-1 --auto --pos 1080x1080")
+;;                 ;;else
+;;                 (start-process-shell-command
+;;                  "xrandr" nil "xrandr --output DP-0 --auto --primary --output HDMI-0 --auto")))
+;;             (exwm-randr-refresh)))
+(exwm-randr-mode)
+
+;;(exwm-config-default)
+(exwm-systemtray-mode)
+(push ?\C-\\ exwm-input-prefix-keys) ;;C-\ to switch input method
+
+;; All buffers created in EXWM mode are named "*EXWM*". You may want to
+;; change it in `exwm-update-class-hook' and `exwm-update-title-hook', which
+;; are run when a new X window class name or title is available.  Here's
+;; some advice on this topic:
+;; + Always use `exwm-workspace-rename-buffer` to avoid naming conflict.
+;; + For applications with multiple windows (e.g. GIMP), the class names of
+                                        ;    all windows are probably the same.  Using window titles for them makes
+;;   more sense.
+;; In the following example, we use class names for all windows except for
+;; Java applications and GIMP.
+;; (add-hook 'exwm-update-class-hook
+;;           (lambda ()
+;;             (unless (or (string-prefix-p "sun-awt-X11-" exwm-instance-name)
+;;                         (string= "gimp" exwm-instance-name))
+;;               (exwm-workspace-rename-buffer exwm-class-name))))
+;; (add-hook 'exwm-update-title-hook
+;;           (lambda ()
+;;             (when (or (not exwm-instance-name)
+;;                       (string-prefix-p "sun-awt-X11-" exwm-instance-name)
+;;                       (string= "gimp" exwm-instance-name))
+;;               (exwm-workspace-rename-buffer exwm-title))))
+
+
+;; store the buffer we were at before a jump
+(setq exwm-marked-buffer "*scratch*")
+
+;; Global keybindings can be defined with `exwm-input-global-keys'.
+;; Here are a few examples:
+(setq exwm-input-global-keys
+      `(
+        ;; Bind "s-r" to exit char-mode and fullscreen mode.
+        ([?\s-r] . exwm-reset)
+        ([?\M-r] . exwm-reset)
+        ;; Bind "s-w" to window switcher
+        ([?\s-w] . consult-buffer)
+        ;; ([?\M-w] . open-window-by-buffer)
+        ([?\M-W] . consult-buffer)
+
+        ;;quicker 2-split swtiching
+        ([?\s-o] . (lambda ()
+                     (interactive)
+                     (other-window 1)))
+        ([?\M-o] . (lambda ()
+                     (interactive)
+                     (other-window 1)))
+
+        ;;fast workspace switch
+        ([?\s-O] . exwm-other-assigned-workspace)
+        ;; ([?\M-O] . exwm-other-assigned-workspace)
+
+        ;;quick calc switching
+        ;; ([?\s-c] . switch-to-calc)
+
+        ;;mark the buffer
+        ;; ([?\s- ] . (lambda ()
+        ;;              (interactive)
+        ;;              (setq exwm-marked-buffer (current-buffer))
+        ;;              (message "Marked the current buffer, return (across workspaces) with s-x")))
+
+        ;;return to marked buffer
+        ;; ([?\s-x] . (lambda ()
+        ;;              (interactive)
+        ;;              (let ((hold exwm-marked-buffer))
+        ;;                (setq exwm-marked-buffer (current-buffer))
+        ;;                (exwm-workspace-switch-to-buffer hold))))
+
+        ;; Bind "s-0" to "s-9" to switch to a layout.
+        ;; ,@(mapcar
+        ;;    (lambda (digit)
+        ;;      ;; `(,(kbd (concat "s-" (int-to-string digit))) . (lambda () (interactive) (exwm-assign-workspace ,digit)))
+        ;;      `(,(kbd (concat "s-" (int-to-string digit))) . (lambda ()
+        ;;                                                       (interactive)
+        ;;                                                       (exwm-workspace-switch-create ,digit)))
+        ;;      )
+        ;;    (number-sequence 0 9))
+
+        ([?\s-d] . (lambda (command)
+                     (interactive (list (read-shell-command "$ ")))
+                     (start-process-shell-command command nil command)))
+        ;; ([?\M-d] . (lambda (command)
+                     ;; (interactive (list (read-shell-command "$ ")))
+                     ;; (start-process-shell-command command nil command)))
+        ;; browser
+        ([?\s-e] . (lambda ()
+                     (interactive)
+                     (start-process-shell-command "vimb" nil "vimb")))
+        ;; ([?\M-e] . (lambda ()
+                     ;; (interactive)
+                     ;; (start-process-shell-command "vimb" nil "vimb")))
+
+        ;;terminal
+        ([s-return] . 'eshell)
+        ;; ([M-return] . (lambda ()
+                        ;; (interactive)
+                        ;;if we are already there, switch back
+                        ;; (if (string= (buffer-name (current-buffer)) "*vterm*")
+                            ;; (exwm-workspace-switch-to-buffer exwm-last-buffer)
+                          ;; (progn
+                            ;; (setq exwm-last-buffer (current-buffer))
+                            ;; (vterm)))))
+
+        ;; return to the last window
+        ;; ([s-tab] . (lambda ()
+        ;;              (interactive)
+        ;;              (exwm-workspace-switch-to-buffer (other-buffer))))
+
+        ;; kill the current window and close the buffer if possible
+        ([?\s-Q] . kill-buffer-and-window)
+
+        ;; kill current buffer but leave window
+        ([?\s-q] . (lambda () (interactive) (kill-buffer nil)))
+
+        ;; suspend
+        ([?\s-`] . (lambda ()
+                     (interactive)
+                     (start-process "" nil "loginctl" "suspend")))
+        ))
+
+;; requires some custom shell scripts not included in my emacs config
+(defun my/brightnessdown () (interactive) (start-process "" nil "brightnessdown"))
+(defun my/brightnessup () (interactive) (start-process "" nil "brightnessup"))
+(defun my/mute () (interactive) (start-process "" nil "amixer" "set" "Master" "toggle"))
+(defun my/voldown () (interactive) (start-process "" nil "amixer" "set" "Master" "5%-"))
+(defun my/volup () (interactive) (start-process "" nil "amixer" "set" "Master" "5%+"))
+
+;; To add a key binding only available in line-mode, simply define it in
+;; `exwm-mode-map'.  The following example shortens 'C-c q' to 'C-q'.
+(define-key exwm-mode-map [?\C-q] #'exwm-input-send-next-key)
+(define-key exwm-mode-map [?\M-!] #'shell-command)
+(define-key exwm-mode-map [?\s-d] (lambda (command)
+                                    (interactive (list (read-shell-command "$ ")))
+                                    (start-process-shell-command command nil command)))
+(define-key exwm-mode-map [?\M-o] #'other-window)
+
+(global-set-key (kbd "<XF86MonBrightnessDown>") 'my/brightnessdown)
+(global-set-key (kbd "<XF86MonBrightnessUp>") 'my/brightnessup)
+(global-set-key (kbd "<XF86AudioMute>") 'my/mute)
+(global-set-key (kbd "<XF86AudioLowerVolume>") 'my/voldown)
+(global-set-key (kbd "<XF86AudioRaiseVolume>") 'my/volup)
+
+(define-key exwm-mode-map (kbd "<XF86MonBrightnessDown>") 'my/brightnessdown)
+(define-key exwm-mode-map (kbd "<XF86MonBrightnessUp>") 'my/brightnessup)
+(define-key exwm-mode-map (kbd "<XF86AudioMute>") 'my/mute)
+(define-key exwm-mode-map (kbd "<XF86AudioLowerVolume>") 'my/voldown)
+(define-key exwm-mode-map (kbd "<XF86AudioRaiseVolume>") 'my/volup)
+
+;; The following example demonstrates how to use simulation keys to mimic
+;; the behavior of Emacs.  The value of `exwm-input-simulation-keys` is a
+;; list of cons cells (SRC . DEST), where SRC is the key sequence you press
+;; and DEST is what EXWM actually sends to application.  Note that both SRC
+;; and DEST should be key sequences (vector or string).
+;; (setq 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])
+;;         ([?\C-d] . [delete])
+;;         ([?\C-k] . [S-end delete])
+;;         ;; cut/paste.
+;;         ;; ([?\C-w] . [?\C-x])
+;;         ;; ([?\M-w] . [?\C-c])
+;;         ;; ([?\C-y] . [?\C-v])
+;;         ;; search
+;;         ([?\C-s] . [?\C-f])))
+
+;; You can hide the minibuffer and echo area when they're not used, by
+;; uncommenting the following line.
+;; (setq exwm-workspace-minibuffer-position 'bottom)
+
+;; Do not forget to enable EXWM. It will start by itself when things are
+;; ready.  You can put it _anywhere_ in your configuration.
+(exwm-enable)
+(call-process "dunst" nil 0)
+(call-process "bash" nil 0 nil "-c" "uname -a | grep -q gentoo && gentoo-pipewire-launcher")
+