alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Explicitly quote lambdas for the byte compiler

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-03-03 12:02:23 +01:00
parent 6482658201
commit 16c59ffbbd
1 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
eyebrowse.el
View File

@ -5,7 +5,7 @@
;; Copyright (C) 2014 Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Copyright (C) 2014 Vasilij Schneidermann <v.schneidermann@gmail.com>
;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com>
;; URL: https://github.com/wasamasa/eyebrowse-mode ;; URL: https://github.com/wasamasa/eyebrowse
;; Version: 0.1 ;; Version: 0.1
;; Package-Requires: ((dash "2.4.0") (s "1.4.0")) ;; Package-Requires: ((dash "2.4.0") (s "1.4.0"))
;; Keywords: convenience ;; Keywords: convenience
@ -108,11 +108,11 @@ If t, switching to the same window config as
(define-key map (kbd "C-c C-' >") 'eyebrowse-next-window-config) (define-key map (kbd "C-c C-' >") 'eyebrowse-next-window-config)
(define-key map (kbd "C-c C-' '") 'eyebrowse-last-window-config) (define-key map (kbd "C-c C-' '") 'eyebrowse-last-window-config)
(define-key map (kbd "C-c C-' \"") 'eyebrowse-close-window-config) (define-key map (kbd "C-c C-' \"") 'eyebrowse-close-window-config)
(-dotimes 10 (lambda (n) (-dotimes 10 #'(lambda (n)
(define-key map (kbd (s-concat "C-c C-' " (define-key map (kbd (s-concat "C-c C-' "
(number-to-string n))) (number-to-string n)))
(lambda () (interactive) #'(lambda () (interactive)
(eyebrowse-switch-to-window-config n))))) (eyebrowse-switch-to-window-config n)))))
map) map)
"Current key map. Can be set up with `eyebrowse-setup-keys'.") "Current key map. Can be set up with `eyebrowse-setup-keys'.")
@ -122,7 +122,7 @@ If t, switching to the same window config as
"Insert ELEMENT in the list of window configs. "Insert ELEMENT in the list of window configs.
This function keeps the sortedness intact." This function keeps the sortedness intact."
(setq eyebrowse-window-configs (setq eyebrowse-window-configs
(-sort (lambda (a b) (< (car a) (car b))) (-sort #'(lambda (a b) (< (car a) (car b)))
(cons element eyebrowse-window-configs)))) (cons element eyebrowse-window-configs))))
(defun eyebrowse-update-window-config-element (old-element new-element) (defun eyebrowse-update-window-config-element (old-element new-element)
@ -180,8 +180,8 @@ last window config."
(current-slot (number-to-string eyebrowse-current-slot)) (current-slot (number-to-string eyebrowse-current-slot))
(active-item (propertize current-slot (active-item (propertize current-slot
'face 'eyebrowse-mode-line-active)) 'face 'eyebrowse-mode-line-active))
(window-config-slots (mapcar (lambda (item) (window-config-slots (mapcar #'(lambda (item)
(number-to-string (car item))) (number-to-string (car item)))
eyebrowse-window-configs))) eyebrowse-window-configs)))
(if (and (not (eq eyebrowse-mode-line-style 'hide)) (if (and (not (eq eyebrowse-mode-line-style 'hide))
(or (eq eyebrowse-mode-line-style 'always) (or (eq eyebrowse-mode-line-style 'always)
@ -262,10 +262,10 @@ is detected, it will bind gt, gT, gc and zx, too."
'eyebrowse-close-window-config) 'eyebrowse-close-window-config)
(define-key evil-motion-state-map (kbd "zx") (define-key evil-motion-state-map (kbd "zx")
'eyebrowse-last-window-config)) 'eyebrowse-last-window-config))
(-dotimes 10 (lambda (n) (-dotimes 10 #'(lambda (n)
(define-key map (kbd (s-concat "M-" (number-to-string n))) (define-key map (kbd (s-concat "M-" (number-to-string n)))
(lambda () (interactive) #'(lambda () (interactive)
(eyebrowse-switch-to-window-config n))))))) (eyebrowse-switch-to-window-config n)))))))
;;;###autoload ;;;###autoload
(define-minor-mode eyebrowse-mode (define-minor-mode eyebrowse-mode
"Toggle `eyebrowse-mode'. "Toggle `eyebrowse-mode'.