Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-23 19:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

* exwm-workspace.el: Use closures rather than `(lambda ...)

Browse source
This commit is contained in:
Stefan Monnier 2019-03-17 10:47:28 -04:00
parent 397ca5497e
commit 81e52263a7
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
exwm-workspace.el
View file

@ -176,9 +176,9 @@ NIL if FRAME is not a workspace"
(= (length key) 1)
(<= 0 (elt key 0) 127))
(define-key map key
`(lambda ()
(lambda ()
(interactive)
(exwm-workspace--switch-map-select-nth ,i)))))))
(exwm-workspace--switch-map-select-nth i)))))))
(define-key map "\C-a" (lambda () (interactive) (goto-history-element 1)))
(define-key map "\C-e" (lambda ()
(interactive)
@ -497,17 +497,17 @@ PREFIX-DIGITS is a list of the digits introduced so far."
;; Go ahead if there are enough digits to select any workspace.
(set-transient-map
(let ((map (make-sparse-keymap))
(cmd `(lambda ()
(cmd (let ((digits (cons d prefix-digits)))
(lambda ()
(interactive)
(exwm-workspace--switch-map-nth-prefix
',(cons d prefix-digits)))))
(exwm-workspace--switch-map-nth-prefix digits)))))
(dotimes (i 10)
(define-key map (int-to-string i) cmd))
;; Accept
(define-key map [return]
`(lambda ()
(lambda ()
(interactive)
(exwm-workspace--switch-map-select-nth ,n)))
(exwm-workspace--switch-map-select-nth n)))
map)))))
(defun exwm-workspace--switch-map-select-nth (n)