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

Wrap problematic code in eval-when-compile

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-03-03 12:17:15 +01:00
parent 16c59ffbbd
commit bdd4e5f4e7
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
eyebrowse.el
View File

@ -108,11 +108,12 @@ 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) (eval-when-compile
(-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 +123,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 +181,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 +263,11 @@ 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) (eval-when-compile
(-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'.