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>
;; Author: Vasilij Schneidermann <v.schneidermann@gmail.com>
;; URL: https://github.com/wasamasa/eyebrowse-mode
;; URL: https://github.com/wasamasa/eyebrowse
;; Version: 0.1
;; Package-Requires: ((dash "2.4.0") (s "1.4.0"))
;; 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-last-window-config)
(define-key map (kbd "C-c C-' \"") 'eyebrowse-close-window-config)
(-dotimes 10 (lambda (n)
(define-key map (kbd (s-concat "C-c C-' "
(number-to-string n)))
(lambda () (interactive)
(eyebrowse-switch-to-window-config n)))))
(-dotimes 10 #'(lambda (n)
(define-key map (kbd (s-concat "C-c C-' "
(number-to-string n)))
#'(lambda () (interactive)
(eyebrowse-switch-to-window-config n)))))
map)
"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.
This function keeps the sortedness intact."
(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))))
(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))
(active-item (propertize current-slot
'face 'eyebrowse-mode-line-active))
(window-config-slots (mapcar (lambda (item)
(number-to-string (car item)))
(window-config-slots (mapcar #'(lambda (item)
(number-to-string (car item)))
eyebrowse-window-configs)))
(if (and (not (eq eyebrowse-mode-line-style 'hide))
(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)
(define-key evil-motion-state-map (kbd "zx")
'eyebrowse-last-window-config))
(-dotimes 10 (lambda (n)
(define-key map (kbd (s-concat "M-" (number-to-string n)))
(lambda () (interactive)
(eyebrowse-switch-to-window-config n)))))))
(-dotimes 10 #'(lambda (n)
(define-key map (kbd (s-concat "M-" (number-to-string n)))
#'(lambda () (interactive)
(eyebrowse-switch-to-window-config n)))))))
;;;###autoload
(define-minor-mode eyebrowse-mode
"Toggle `eyebrowse-mode'.