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

Add icon for persp-name segment

Browse source
This commit is contained in:
JustFdot 2019-07-01 23:23:33 +05:00
parent 6069a6fb22
commit fe29b82625
3 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
README.md
View file

@ -199,6 +199,9 @@ Strongly recommend to use
;; Whether display perspective name or not. Non-nil to display in mode-line.
(setq doom-modeline-persp-name t)
;; Whether display icon for persp name. Nil to display a # sign. It respects `doom-modeline-icon'
(setq doom-modeline-persp-name-icon nil)
;; Whether display `lsp' state or not. Non-nil to display in mode-line.
(setq doom-modeline-lsp t)

3
doom-modeline-core.el
View file

@ -189,6 +189,9 @@ If the actual char height is larger, it respects the actual char height.")
(defvar doom-modeline-persp-name t
"Whether display perspective name or not. Non-nil to display in mode-line.")
(defvar doom-modeline-persp-name-icon nil
"Whether display icon for persp name. Nil to display a # sign. It respects `doom-modeline-icon'.")
(defvar doom-modeline-lsp t
"Whether display `lsp' state or not. Non-nil to display in mode-line.")

7
doom-modeline-segments.el
View file

@ -1330,12 +1330,15 @@ Requires `eyebrowse-mode' to be enabled."
(fboundp 'safe-persp-name)
(fboundp 'get-current-persp))
(let* ((persp (get-current-persp))
(name (safe-persp-name persp)))
(name (safe-persp-name persp))
(icon (if (and doom-modeline-icon doom-modeline-persp-name-icon)
(concat (doom-modeline-icon-material "aspect_ratio" :v-adjust -0.17) (doom-modeline-spc))
"#")))
(unless (string-equal persp-nil-name name)
(concat
(doom-modeline-spc)
(propertize
(format "#%s" name)
(format "%s%s" icon name)
'face (if (and persp
(not (persp-contain-buffer-p (current-buffer) persp)))
'doom-modeline-persp-buffer-not-in-persp