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

Enable switching window configs with mouse-1

Browse Source 
Closes #51
This commit is contained in:
Vasilij Schneidermann
2016-06-22 00:02:40 +02:00
parent cd25e87850
commit 4cfe5ef158
1 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
eyebrowse.el
View File

@ -1,4 +1,4 @@
;;; eyebrowse.el --- Easy window config switching ;;; eyebrowse.el --- Easy window config switching -*- lexical-binding: t; -*-
;; Copyright (C) 2014-2016 Vasilij Schneidermann <v.schneidermann@gmail.com> ;; Copyright (C) 2014-2016 Vasilij Schneidermann <v.schneidermann@gmail.com>
@ -517,11 +517,21 @@ is detected, extra key bindings will be set up with
left-delimiter left-delimiter
(mapconcat (mapconcat
(lambda (window-config) (lambda (window-config)
(let ((slot (car window-config)) (let* ((slot (car window-config))
(face (if (= slot current-slot)
'eyebrowse-mode-line-active
'eyebrowse-mode-line-inactive))
(keymap
(let ((map (make-sparse-keymap)))
(define-key map (kbd "<mode-line><mouse-1>")
(lambda (e)
(interactive "e")
(eyebrowse-switch-to-window-config slot)))
map))
(caption (eyebrowse-format-slot window-config))) (caption (eyebrowse-format-slot window-config)))
(if (= slot current-slot) (propertize caption 'face face 'slot slot
(propertize caption 'face 'eyebrowse-mode-line-active) 'mouse-face 'mode-line-highlight
(propertize caption 'face 'eyebrowse-mode-line-inactive)))) 'local-map keymap)))
window-configs separator) window-configs separator)
right-delimiter) right-delimiter)
""))) "")))