github/doom-modeline
1
0
Fork 0
mirror of https://github.com/correl/doom-modeline.git synced 2024-11-23 19:19:50 +00:00
Code Issues Projects Releases Packages Wiki Activity

Improve persp segment.

Browse source
This commit is contained in:
Vincent Zhang 2019-03-12 23:20:52 +07:00
parent 605c5615c1
commit 72b4ea3741
2 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
doom-modeline-core.el
View file

@ -231,7 +231,7 @@ The icons may not be showed correctly in terminal and on Windows.")
(defface doom-modeline-persp-name '((t (:inherit (font-lock-comment-face italic)))) (defface doom-modeline-persp-name '((t (:inherit (font-lock-comment-face italic))))
"Face for the replace state tag in evil state indicator.") "Face for the replace state tag in evil state indicator.")
(defface doom-modeline-persp-buffer-not-in-persp '((t (:inherit (font-lock-doc-face bold)))) (defface doom-modeline-persp-buffer-not-in-persp '((t (:inherit (font-lock-doc-face bold italic))))
"Face for the replace state tag in evil state indicator.") "Face for the replace state tag in evil state indicator.")
;; ;;

35
doom-modeline-segments.el
View file

@ -1243,23 +1243,26 @@ Requires `eyebrowse-mode' to be enabled."
(let* ((persp (get-current-persp)) (let* ((persp (get-current-persp))
(name (safe-persp-name persp))) (name (safe-persp-name persp)))
(unless (string-equal persp-nil-name name) (unless (string-equal persp-nil-name name)
(propertize (concat
(format " #%s " name) " "
'face (if (and persp (propertize
(not (persp-contain-buffer-p (current-buffer) persp))) (format "#%s" name)
'doom-modeline-persp-buffer-not-in-persp 'face (if (and persp
'doom-modeline-persp-name) (not (persp-contain-buffer-p (current-buffer) persp)))
'help-echo "mouse-1: Switch perspective 'doom-modeline-persp-buffer-not-in-persp
'doom-modeline-persp-name)
'help-echo "mouse-1: Switch perspective
mouse-2: Show help for minor mode" mouse-2: Show help for minor mode"
'mouse-face 'mode-line-highlight 'mouse-face 'mode-line-highlight
'local-map (let ((map (make-sparse-keymap))) 'local-map (let ((map (make-sparse-keymap)))
(define-key map [mode-line mouse-1] (define-key map [mode-line mouse-1]
#'persp-switch) #'persp-switch)
(define-key map [mode-line mouse-2] (define-key map [mode-line mouse-2]
(lambda () (lambda ()
(interactive) (interactive)
(describe-function 'persp-mode))) (describe-function 'persp-mode)))
map))))))) map))
" "))))))
(add-hook 'find-file-hook #'doom-modeline-update-persp-name) (add-hook 'find-file-hook #'doom-modeline-update-persp-name)
(add-hook 'persp-activated-functions #'doom-modeline-update-persp-name) (add-hook 'persp-activated-functions #'doom-modeline-update-persp-name)