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

Refactor segments. Only show global and input in active window.

Browse source
This commit is contained in:
Vincent Zhang 2018-12-05 03:50:50 +08:00
parent c0b5f1c0ab
commit 420285ae5f
1 changed files with 45 additions and 39 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

84
doom-modeline.el
View file

@ -825,6 +825,17 @@ directory, the file name, and its state (modified, read-only or non-existent)."
" ")) " "))
;;
;; remote host
;;
(doom-modeline-def-segment remote-host
"Hostname for remote buffers."
(when default-directory
(when-let ((host (file-remote-p default-directory 'host)))
(concat "@" host))))
;; ;;
;; major-mode ;; major-mode
;; ;;
@ -860,6 +871,27 @@ mouse-3: Toggle minor modes"
"The process info." "The process info."
mode-line-process) mode-line-process)
;;
;; minor modes
;;
(doom-modeline-def-segment minor-modes
(when doom-modeline-minor-modes
`((:propertize (" " minor-mode-alist " ")
mouse-face mode-line-highlight
help-echo "Minor mode\n\
mouse-1: Display minor mode menu\n\
mouse-2: Show help for minor mode\n\
mouse-3: Toggle minor modes"
local-map ,mode-line-minor-mode-keymap)
(:propertize "%n"
mouse-face mode-line-highlight
help-echo "mouse-2: Remove narrowing from buffer"
local-map ,(make-mode-line-mouse-map
'mouse-2 #'mode-line-widen)))))
;; ;;
;; vcs ;; vcs
;; ;;
@ -1275,32 +1307,14 @@ Requires `eyebrowse-mode' to be enabled."
"")) ""))
;;
;; minor modes
;;
(doom-modeline-def-segment minor-modes
(when doom-modeline-minor-modes
`((:propertize (" " minor-mode-alist " ")
mouse-face mode-line-highlight
help-echo "Minor mode\n\
mouse-1: Display minor mode menu\n\
mouse-2: Show help for minor mode\n\
mouse-3: Toggle minor modes"
local-map ,mode-line-minor-mode-keymap)
(:propertize "%n"
mouse-face mode-line-highlight
help-echo "mouse-2: Remove narrowing from buffer"
local-map ,(make-mode-line-mouse-map
'mouse-2 #'mode-line-widen)))))
;; ;;
;; global ;; global
;; ;;
(doom-modeline-def-segment global (doom-modeline-def-segment global
"For the time string and whatever uses global-mode-string." "For the time string and whatever uses global-mode-string."
(if (< 0 (length global-mode-string)) (if (and (doom-modeline--active)
(< 0 (length global-mode-string)))
'("" global-mode-string " ") '("" global-mode-string " ")
"")) ""))
@ -1381,25 +1395,17 @@ See `mode-line-percent-position'.")
(doom-modeline-def-segment input-method (doom-modeline-def-segment input-method
"The current input method." "The current input method."
(cond (when (doom-modeline--active)
(current-input-method (propertize
(concat " " current-input-method-title " ")) (cond
((and (bound-and-true-p evil-local-mode) (current-input-method
(bound-and-true-p evil-input-method)) (concat " " current-input-method-title " "))
(concat ((and (bound-and-true-p evil-local-mode)
(nth 3 (assoc default-input-method input-method-alist)) (bound-and-true-p evil-input-method))
" ")))) (concat
(nth 3 (assoc default-input-method input-method-alist))
" ")))
;; 'face 'doom-modeline-buffer-major-mode)))
;; remote host
;;
(doom-modeline-def-segment remote-host
"Hostname for remote buffers."
(when default-directory
(when-let ((host (file-remote-p default-directory 'host)))
(concat "@" host))))
;; ;;