1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
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")
|
