diff options
Diffstat (limited to 'emacs/site-lisp/exwm-pref.el')
| -rw-r--r-- | emacs/site-lisp/exwm-pref.el | 318 |
1 files changed, 0 insertions, 318 deletions
diff --git a/emacs/site-lisp/exwm-pref.el b/emacs/site-lisp/exwm-pref.el deleted file mode 100644 index d955e50..0000000 --- a/emacs/site-lisp/exwm-pref.el +++ /dev/null @@ -1,318 +0,0 @@ -;;; My full EXWM config -(provide 'exwm-pref) - -;; stuff for exwm -(use-package exwm) -(require 'exwm-randr) -(require 'exwm-xim) -(require 'exwm-systemtray) -(require 'exwm-manage) - -(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) - (message (buffer-substring (point-min) (point-max))) - (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) - (message "iter") - (move-beginning-of-line 1) - (push-mark) - (search-forward-regexp " ") - (backward-char) - (message (buffer-substring (mark) (point))) - (push (buffer-substring (mark) (point)) out-plist) - (push i out-plist) - (setq i (+ i 1)) - (pop-mark) - (next-line)))) - (kill-buffer buf) - (setq exwm-randr-workspace-monitor-plist out-plist)) - -;; (setq exwm-workspace-number 2) -;; (setq exwm-randr-workspace-monitor-plist '(0 "DP-0" 1 "HDMI-0")) -(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 exwm-title-length 50) - -(setq exwm-manage-force-tiling t) - - -(defun b3n-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)))) - -(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 -(push ?\C-u exwm-input-prefix-keys) ;; send C-u to all windows too - -;; 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"))) - ([?\s-E] . (lambda () - (interactive) - (start-process-shell-command "firefox" nil "firefox"))) - ;; ([?\M-e] . (lambda () - ;; (interactive) - ;; (start-process-shell-command "vimb" nil "vimb"))) - - ;;terminal - ([s-return] . eshell) - ;; ((kbd "M-<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) - ([?\M-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 "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%")) - -;; 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) - - -;; specifically disable S-return in the minibuffer so you don't hit it on accident -;; This is here cause cause the other s-* bindings are here -(if vertico-mode - (define-key vertico-map (kbd "s-<return>") 'vertico-exit) - (define-key minibuffer-mode-map (kbd "s-<return>") 'minibuffer-complete-and-exit)) - -;; 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") - |