mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

exwm-mode-menu: Make lambdas visible to the byte compiler

Browse source 
* exwm-core.el (exwm-mode-menu): Use quasi quoting. Make lambdas visible to the
  byte compiler.
This commit is contained in:
Daniel Mendler 2024-03-16 16:58:52 +01:00
parent a959f91c75
commit 0ef8e04f27
No known key found for this signature in database
GPG key ID: D88ADB2A2693CA43
1 changed files with 25 additions and 25 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

50
exwm-core.el
View file

@ -320,7 +320,7 @@ One of `line-mode' or `char-mode'.")
;; Also, inactive entries should be disabled rather than hidden. ;; Also, inactive entries should be disabled rather than hidden.
(easy-menu-define exwm-mode-menu exwm-mode-map (easy-menu-define exwm-mode-menu exwm-mode-map
"Menu for `exwm-mode'." "Menu for `exwm-mode'."
'("EXWM" `("EXWM"
"---" "---"
"*General*" "*General*"
"---" "---"
@ -345,22 +345,22 @@ One of `line-mode' or `char-mode'.")
["Send key" exwm-input-send-next-key (eq exwm--input-mode 'line-mode)] ["Send key" exwm-input-send-next-key (eq exwm--input-mode 'line-mode)]
;; This is merely a reference. ;; This is merely a reference.
("Send simulation key" :filter ("Send simulation key" :filter
(lambda (&rest _args) ,(lambda (&rest _args)
(let (result) (let (result)
(maphash (maphash
(lambda (key value) (lambda (key value)
(when (sequencep key) (when (sequencep key)
(setq result (append result (setq result (append result
`([ `([
,(format "Send '%s'" ,(format "Send '%s'"
(key-description value)) (key-description value))
(lambda () (lambda ()
(interactive) (interactive)
(dolist (i ',value) (dolist (i ',value)
(exwm-input--fake-key i))) (exwm-input--fake-key i)))
:keys ,(key-description key)]))))) :keys ,(key-description key)])))))
exwm-input--simulation-keys) exwm-input--simulation-keys)
result))) result)))
["Define global binding" exwm-input-set-key] ["Define global binding" exwm-input-set-key]
@ -377,14 +377,14 @@ One of `line-mode' or `char-mode'.")
["Switch workspace" exwm-workspace-switch] ["Switch workspace" exwm-workspace-switch]
;; Place this entry at bottom to avoid selecting others by accident. ;; Place this entry at bottom to avoid selecting others by accident.
("Switch to" :filter ("Switch to" :filter
(lambda (&rest _args) ,(lambda (&rest _args)
(mapcar (lambda (i) (mapcar (lambda (i)
`[,(format "Workspace %d" i) `[,(format "Workspace %d" i)
(lambda () (lambda ()
(interactive) (interactive)
(exwm-workspace-switch ,i)) (exwm-workspace-switch ,i))
(/= ,i exwm-workspace-current-index)]) (/= ,i exwm-workspace-current-index)])
(number-sequence 0 (1- (exwm-workspace--count)))))))) (number-sequence 0 (1- (length exwm-workspace--list))))))))
(define-derived-mode exwm-mode nil "EXWM" (define-derived-mode exwm-mode nil "EXWM"
"Major mode for managing X windows. "Major mode for managing X windows.