-(csetq exwm-workspace-number 10
- exwm-input-global-keys
- `(([?\s-R] . exwm-reset)
- ([?\s-b] . exwm-workspace-switch-to-buffer)
- ([?\s-\\] . exwm-workspace-switch)
- ([?\s-\s] . dmenu)
- ;; ([?\s-\s] . (lambda ()
- ;; (interactive)
- ;; (start-process-shell-command
- ;; "rofi" nil "rofi -show run")))
- ([?\S-\s-\s] . (lambda (command) ; doesn't work in X windows
- (interactive
- (list (read-shell-command "➜ ")))
- (start-process-shell-command
- command nil command)))
- ([s-return] . (lambda ()
- (interactive)
- (start-process "" nil "urxvt")))
- ([S-s-return] . (lambda ()
- (interactive)
- (start-process "" nil "urxvt"
- "-name" "floating")))
- ([?\C-\s-\s] . counsel-linux-app)
- ([?\M-\s-\s] . (lambda ()
- (interactive)
- (start-process-shell-command
- "rofi-pass" nil "rofi-pass")))
- ([?\s-h] . windmove-left)
- ([?\s-j] . windmove-down)
- ([?\s-k] . windmove-up)
- ([?\s-l] . windmove-right)
- ([?\s-H] . windmove-swap-states-left)
- ([?\s-J] . windmove-swap-states-down)
- ([?\s-K] . windmove-swap-states-up)
- ([?\s-L] . windmove-swap-states-right)
- ([?\s-N ?d] . (lambda ()
- (interactive)
- (start-process
- "" nil "dunstctl" "close")))
- ([?\s-N ?D] . (lambda ()
- (interactive)
- (start-process
- "" nil "dunstctl" "close-all")))
- ([?\s-N ?h] . (lambda ()
- (interactive)
- (start-process
- "" nil "dunstctl" "history-pop")))
- ([?\s-N return] . (lambda ()
- (interactive)
- (start-process
- "" nil "dunstctl" "context")))
- ([?\M-\s-h] . shrink-window-horizontally)
- ([?\M-\s-l] . enlarge-window-horizontally)
- ([?\M-\s-k] . shrink-window)
- ([?\M-\s-j] . enlarge-window)
- ([?\s-\[] . b/exwm-ws-prev)
- ([?\s-\]] . b/exwm-ws-next)
- ([mode-line mouse-4] . b/exwm-ws-prev) ; up
- ([mode-line mouse-5] . b/exwm-ws-next) ; down
- ([mode-line mouse-6] . b/exwm-ws-prev) ; left
- ([mode-line mouse-7] . b/exwm-ws-next) ; right
- ([?\s-{] . (lambda ()
- (interactive)
- (exwm-workspace-move-window
- (b/exwm-ws-prev-index))))
- ([?\s-}] . (lambda ()
- (interactive)
- (exwm-workspace-move-window
- (b/exwm-ws-next-index))))
- ,@(mapcar (lambda (i)
- `(,(kbd (format "s-%d" i)) .
- (lambda ()
- (interactive)
- (exwm-workspace-switch-create ,i))))
- (number-sequence 0 (1- exwm-workspace-number)))
- ,@(mapcar
- (lambda (i)
- `(,(kbd (format "s-%s"
- (plist-get b/shifted-ws-names i)))
- .
- (lambda ()
- (interactive)
- (exwm-workspace-move-window ,i))))
- (number-sequence 0 (1- exwm-workspace-number)))
- ([?\s-F] . exwm-floating-toggle-floating)
- ([?\s-f] . exwm-layout-toggle-fullscreen)
- ([?\s-W] . (lambda ()
- (interactive)
- (kill-buffer (current-buffer))))
- ([?\s-Q] . (lambda ()
- (interactive)
- (exwm-manage--kill-client)))
- ([?\s-\'] . (lambda ()
+(setq
+ exwm-workspace-number 10
+ exwm-input-global-keys
+ `(([?\s-R] . exwm-reset)
+ ([?\s-b] . exwm-workspace-switch-to-buffer)
+ ([?\s-\\] . exwm-workspace-switch)
+ ([?\s-\s] . dmenu)
+ ;; ([?\s-\s] . (lambda ()
+ ;; (interactive)
+ ;; (start-process-shell-command
+ ;; "rofi" nil "rofi -show run")))
+ ([?\S-\s-\s] . (lambda (command) ; doesn't work in X windows
+ (interactive
+ (list (read-shell-command "➜ ")))
+ (start-process-shell-command
+ command nil command)))
+ ([s-return] . (lambda ()
+ (interactive)
+ (start-process "" nil "urxvt")))
+ ([S-s-return] . (lambda ()
+ (interactive)
+ (start-process "" nil "urxvt"
+ "-name" "floating")))
+ ([?\C-\s-\s] . counsel-linux-app)
+ ([?\M-\s-\s] . (lambda ()
+ (interactive)
+ (start-process-shell-command
+ "rofi-pass" nil "rofi-pass")))
+ ([?\s-h] . windmove-left)
+ ([?\s-j] . windmove-down)
+ ([?\s-k] . windmove-up)
+ ([?\s-l] . windmove-right)
+ ([?\s-H] . windmove-swap-states-left)
+ ([?\s-J] . windmove-swap-states-down)
+ ([?\s-K] . windmove-swap-states-up)
+ ([?\s-L] . windmove-swap-states-right)
+ ([?\s-N ?d] . (lambda ()
+ (interactive)
+ (start-process
+ "" nil "dunstctl" "close")))
+ ([?\s-N ?D] . (lambda ()
+ (interactive)
+ (start-process
+ "" nil "dunstctl" "close-all")))
+ ([?\s-N ?h] . (lambda ()
+ (interactive)
+ (start-process
+ "" nil "dunstctl" "history-pop")))
+ ([?\s-N return] . (lambda ()