blob: cc1a9065b1350e7a0dbe58247ce7c9ee1d55db3b (
plain)
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
|
;; -*- lexical-binding: t; -*-
;;;; utilities
;; desktop
(use-package desktop-environment
:custom
(desktop-environment-screenshot-directory (xdg-user-dir "PICTURES"))
(desktop-environment-screenshot-command "flameshot full")
(desktop-environment-screenshot-partial-command "flameshot launcher"))
(defun bd/exwm-update-class ()
"Changes the buffer name to reflect the class name for
that buffer."
(exwm-workspace-rename-buffer exwm-class-name))
(defun bd/exwm-init-hook ()
"Make workspace 1 the default startup workspace."
(exwm-workspace-switch-create 1))
(defun toggle-current-window-dedication ()
"Adds or revokes dedicated window status from a buffer. A
dedicated buffer will never be automatically orphaned."
(interactive)
(let* ((window (selected-window))
(dedicated (window-dedicated-p window)))
(set-window-dedicated-p window (not dedicated))
(message "Window %sdedicated to %s"
(if dedicated "no longer " "")
(buffer-name))))
;;;; bookmarks, passwords
(defun insert-bookmark ()
"Inserts a url or string from permanent
bookmark file. If an x window, place in kill-ring."
;; note xdotool had issues with repeated keys when sending to windowid
(interactive)
(let ((url (car (last (split-string (choose-line-from-file "~/Personal/scripts/bookmarks.txt"))))))
(if (exwm--buffer->id (current-buffer))
(kill-new url)
(insert url))))
(defun choose-line-from-file (file)
"Uses completion-framework to allow user to
select a line from a file."
(let* ((choices (read-file-into-list file)))
(completing-read "Recall: " choices)))
(defun read-file-into-list (file)
(with-current-buffer
(find-file-noselect file)
(split-string
(save-restriction
(widen)
(buffer-substring-no-properties
(point-min)
(point-max)))
"\n" t)))
(use-package password-store
:custom
(password-store-time-before-clipboard-restore 20)
(define-key global-map (kbd "C-c k") #'password-store-copy))
;; emacs-pinentry; wonderful in EXWM, has security flaws
(use-package pinentry
:init
(pinentry-start)
:custom
(pinentry-popup-prompt-window nil))
(use-package exwm
:config
(add-hook 'exwm-init-hook #'bd/exwm-init-hook)
(add-hook 'exwm-update-class-hook #'bd/exwm-update-class)
;; order is important
(require 'exwm-randr)
(exwm-randr-enable)
;; because my nvidia card is currently unsupported with nouveau,
;; xrandr seems to be entirely broken. This line is only here for
;; future reference
;; (start-process-shell-command "xrandr" nil (expand-file-name "exwm_xrandr.sh" user-emacs-directory))
(start-process-shell-command "picom" nil "picom")
(start-process-shell-command "bg" nil "set-bg")
(start-process-shell-command "xrate" nil "xset r rate 250 70")
(dolist (k '(("s-B" "icecat")))
(let ((f (lambda () (interactive)
(save-window-excursion
(start-process-shell-command (cadr k) nil (cadr k))))))
(exwm-input-set-key (kbd (car k)) f)
(define-key exwm-mode-map (kbd (car k)) f)))
(define-key exwm-mode-map [?\C-q] 'exwm-input-send-next-key)
(exwm-enable)
(server-start)
:custom
(exwm-workspace-number 10) ; puts scratch buffer everywhere
(exwm-input-prefix-keys
'(?\C-x
?\C-u
?\C-g
?\C-h
?\C-z
?\M-x
?\M-`
?\M-&
?\M-: ))
(exwm-input-global-keys
`(([?\s-n] . other-window)
([?\s-p] . (lambda ()
(interactive)
(other-window -1)))
([?\s-L] . desktop-environment-lock-screen)
([f2] . desktop-environment-brightness-decrement)
([f3] . desktop-environment-brightness-increment)
([f7] . emms-volume-lower)
([f8] . emms-volume-raise)
([f9] . emms-next)
([f10] . emms-pause)
([f11] . emms-previous)
([print] . desktop-environment-screenshot-part)
([S-print] . desktop-environment-screenshot)
([?\s-O] . insert-bookmark)
([?\s-P] . password-store-copy)
([?\s-r] . exwm-reset)
([?\s-d] . toggle-current-window-dedication)
([?\s-q] . kill-current-buffer)
([?\s-x] . (lambda (command)
(interactive (list (read-shell-command "s-x ")))
(start-process-shell-command command nil command)))
,@(mapcar (lambda (i)
`(,(kbd (format "s-%d" i)) .
(lambda ()
(interactive)
(exwm-workspace-switch-create ,i))))
(number-sequence 0 9))))
(exwm-input-simulation-keys
'(([?\C-b] . [left])
([?\C-f] . [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])
([?\M-w] . [C-c])
([?\C-y] . [C-v])))
;; ,@(mapcar (lambda (i)
;; `(,(kbd (format "s-%s" (car i))) .
;; (lambda ()
;; (interactive
;; (exwm-workspace-switch-create ,(car (cdr i)))))))
;; '((! 0) (@ 1) (\# 2) ($ 3) (% 4) (^ 5) (& 6) (* 7) (\( 8) (\) 9)))))
(exwm-workspace-show-all-buffers t)
(exwm-layout-show-all-buffers t)
(exwm-randr-workspace-monitor-plist '(0 "HDMI-1" 6 "HDMI-1" 7 "HDMI-1" 8 "HDMI-1" 9 "HDMI-1")))
(provide 'bd--exwm-windowing)
|
