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

Disable byte compilation for now

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-03-03 12:28:18 +01:00
parent bdd4e5f4e7
commit 852546d681
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
eyebrowse.el
View File

@ -1,4 +1,4 @@
;; -*- lexical-binding: t; -*- ;; -*- lexical-binding: t; no-byte-compile: t; -*-
;;; eyebrowse.el --- Switch between window configurations easily. ;;; eyebrowse.el --- Switch between window configurations easily.
@ -108,12 +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)
(eval-when-compile
(-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'.")
@ -263,11 +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))
(eval-when-compile
(-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'.