diff options
Diffstat (limited to 'emacs/site-lisp/my-exwm.el')
| -rw-r--r-- | emacs/site-lisp/my-exwm.el | 184 |
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))) - |