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

Silence byte-compiler warnings, improve code style

Browse Source
This commit is contained in:
Vasilij Schneidermann
2018-05-14 21:19:40 +02:00
parent ad94b5bed7
commit ec7e110220
1 changed files with 24 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
eyebrowse.el
View File

@ -174,27 +174,27 @@ If t, ask for confirmation."
:group 'eyebrowse) :group 'eyebrowse)
(defvar eyebrowse-mode-map (defvar eyebrowse-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap))
(let ((prefix-map (make-sparse-keymap))) (prefix-map (make-sparse-keymap)))
(define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config) (define-key prefix-map (kbd "<") 'eyebrowse-prev-window-config)
(define-key prefix-map (kbd ">") 'eyebrowse-next-window-config) (define-key prefix-map (kbd ">") 'eyebrowse-next-window-config)
(define-key prefix-map (kbd "'") 'eyebrowse-last-window-config) (define-key prefix-map (kbd "'") 'eyebrowse-last-window-config)
(define-key prefix-map (kbd "\"") 'eyebrowse-close-window-config) (define-key prefix-map (kbd "\"") 'eyebrowse-close-window-config)
(define-key prefix-map (kbd ",") 'eyebrowse-rename-window-config) (define-key prefix-map (kbd ",") 'eyebrowse-rename-window-config)
(define-key prefix-map (kbd ".") 'eyebrowse-switch-to-window-config) (define-key prefix-map (kbd ".") 'eyebrowse-switch-to-window-config)
(define-key prefix-map (kbd "0") 'eyebrowse-switch-to-window-config-0) (define-key prefix-map (kbd "0") 'eyebrowse-switch-to-window-config-0)
(define-key prefix-map (kbd "1") 'eyebrowse-switch-to-window-config-1) (define-key prefix-map (kbd "1") 'eyebrowse-switch-to-window-config-1)
(define-key prefix-map (kbd "2") 'eyebrowse-switch-to-window-config-2) (define-key prefix-map (kbd "2") 'eyebrowse-switch-to-window-config-2)
(define-key prefix-map (kbd "3") 'eyebrowse-switch-to-window-config-3) (define-key prefix-map (kbd "3") 'eyebrowse-switch-to-window-config-3)
(define-key prefix-map (kbd "4") 'eyebrowse-switch-to-window-config-4) (define-key prefix-map (kbd "4") 'eyebrowse-switch-to-window-config-4)
(define-key prefix-map (kbd "5") 'eyebrowse-switch-to-window-config-5) (define-key prefix-map (kbd "5") 'eyebrowse-switch-to-window-config-5)
(define-key prefix-map (kbd "6") 'eyebrowse-switch-to-window-config-6) (define-key prefix-map (kbd "6") 'eyebrowse-switch-to-window-config-6)
(define-key prefix-map (kbd "7") 'eyebrowse-switch-to-window-config-7) (define-key prefix-map (kbd "7") 'eyebrowse-switch-to-window-config-7)
(define-key prefix-map (kbd "8") 'eyebrowse-switch-to-window-config-8) (define-key prefix-map (kbd "8") 'eyebrowse-switch-to-window-config-8)
(define-key prefix-map (kbd "9") 'eyebrowse-switch-to-window-config-9) (define-key prefix-map (kbd "9") 'eyebrowse-switch-to-window-config-9)
(define-key prefix-map (kbd "c") 'eyebrowse-create-window-config) (define-key prefix-map (kbd "c") 'eyebrowse-create-window-config)
(define-key prefix-map (kbd "C-c") 'eyebrowse-create-window-config) (define-key prefix-map (kbd "C-c") 'eyebrowse-create-window-config)
(define-key map eyebrowse-keymap-prefix prefix-map)) (define-key map eyebrowse-keymap-prefix prefix-map)
map) map)
"Initial key map for `eyebrowse-mode'.") "Initial key map for `eyebrowse-mode'.")
@ -547,6 +547,8 @@ The specific behaviour is tmux-like."
(slot (eyebrowse-free-slot slots))) (slot (eyebrowse-free-slot slots)))
(eyebrowse-switch-to-window-config slot))) (eyebrowse-switch-to-window-config slot)))
(defvar evil-motion-state-map)
;;;###autoload ;;;###autoload
(defun eyebrowse-setup-evil-keys () (defun eyebrowse-setup-evil-keys ()
"Set up key bindings specific to Evil. "Set up key bindings specific to Evil.
@ -622,7 +624,7 @@ is detected, extra key bindings will be set up with
(keymap (keymap
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map (kbd "<mode-line><mouse-1>") (define-key map (kbd "<mode-line><mouse-1>")
(lambda (e) (lambda (_e)
(interactive "e") (interactive "e")
(eyebrowse-switch-to-window-config slot))) (eyebrowse-switch-to-window-config slot)))
map)) map))