jessieh/mood-line
jessieh/mood-line
1
Fork 1
Code Issues 4 Pull Requests Releases Activity

Add option to disable major mode segment

Browse Source
This commit is contained in:
Jessie Hildebrandt 2022-12-30 12:03:10 -05:00
parent ade4f40518
commit 2f9f5f37f5
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
mood-line.el
View File

@ -198,6 +198,11 @@
:group 'mood-line :group 'mood-line
:type 'boolean) :type 'boolean)
(defcustom mood-line-show-major-mode t
"When non-nil, show the name of the major mode of the current buffer."
:group 'mood-line
:type 'boolean)
(defcustom mood-line-glyph-alist mood-line-glyphs-ascii (defcustom mood-line-glyph-alist mood-line-glyphs-ascii
"Alist mapping glyph names to characters used to draw some mode line segments. "Alist mapping glyph names to characters used to draw some mode line segments.
@ -812,10 +817,11 @@ Checkers checked, in order: `flycheck', `flymake'."
;; ---------------------------------- ;; ;; ---------------------------------- ;;
(defun mood-line-segment-major-mode () (defun mood-line-segment-major-mode ()
"Display the name of the current major mode." "Display the name of the major mode of the current buffer."
(concat (propertize (substring-no-properties (format-mode-line mode-name)) (when mood-line-show-major-mode
'face 'mood-line-major-mode) (concat (propertize (substring-no-properties (format-mode-line mode-name))
" ")) 'face 'mood-line-major-mode)
" ")))
;; ---------------------------------- ;; ;; ---------------------------------- ;;
;; Misc. info segment ;; Misc. info segment