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

Enhance customizations.

Browse source
This commit is contained in:
Vincent Zhang 2019-07-20 17:35:03 +08:00
parent 4a4177714f
commit 00ddd1b964
2 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
doom-modeline-core.el
View file

@ -136,17 +136,22 @@ It returns a file name which can be used directly as argument of
(defgroup doom-modeline nil (defgroup doom-modeline nil
"A minimal and modern mode-line." "A minimal and modern mode-line."
:group 'mode-line) :group 'mode-line
:link '(url-link :tag "Homepage" "https://github.com/seagle0128/doom-modeline"))
(defcustom doom-modeline-height 25 (defcustom doom-modeline-height 25
"How tall the mode-line should be. It's only respected in GUI. "How tall the mode-line should be. It's only respected in GUI.
If the actual char height is larger, it respects the actual char height." If the actual char height is larger, it respects the actual char height."
:group 'doom-modeline :type 'integer
:type 'integer) :set (lambda (sym val)
(set sym (if (> val 0) val 1)))
:group 'doom-modeline)
(defcustom doom-modeline-bar-width (if (eq system-type 'darwin) 3 6) (defcustom doom-modeline-bar-width (if (eq system-type 'darwin) 3 6)
"How wide the mode-line bar should be. It's only respected in GUI." "How wide the mode-line bar should be. It's only respected in GUI."
:type 'integer :type 'integer
:set (lambda (sym val)
(set sym (if (> val 0) val 1)))
:group 'doom-modeline) :group 'doom-modeline)
(defcustom doom-modeline-buffer-file-name-style 'truncate-upto-project (defcustom doom-modeline-buffer-file-name-style 'truncate-upto-project
@ -178,8 +183,8 @@ If the actual char height is larger, it respects the actual char height."
(defcustom doom-modeline-icon (display-graphic-p) (defcustom doom-modeline-icon (display-graphic-p)
"Whether display icons in mode-line or not." "Whether display icons in mode-line or not."
:group 'doom-modeline :type 'boolean
:type 'boolean) :group 'doom-modeline)
(defcustom doom-modeline-major-mode-icon t (defcustom doom-modeline-major-mode-icon t
"Whether display the icon for major mode. It respects `doom-modeline-icon'." "Whether display the icon for major mode. It respects `doom-modeline-icon'."
@ -284,7 +289,8 @@ If the actual char height is larger, it respects the actual char height."
(defgroup doom-modeline-faces nil (defgroup doom-modeline-faces nil
"The faces of `doom-modeline'." "The faces of `doom-modeline'."
:group 'doom-modeline :group 'doom-modeline
:group 'faces) :group 'faces
:link '(url-link :tag "Homepage" "https://github.com/seagle0128/doom-modeline"))
(defface doom-modeline-buffer-path (defface doom-modeline-buffer-path
'((t (:inherit (mode-line-emphasis bold)))) '((t (:inherit (mode-line-emphasis bold))))

3
doom-modeline-env.el
View file

@ -39,7 +39,8 @@
(defgroup doom-modeline-env nil (defgroup doom-modeline-env nil
"The environment parser for doom-modeline." "The environment parser for doom-modeline."
:group 'doom-modeline) :group 'doom-modeline
:link '(url-link :tag "Homepage" "https://github.com/seagle0128/doom-modeline"))
(defcustom doom-modeline-env-load-string "..." (defcustom doom-modeline-env-load-string "..."
"What to dispaly as the version while a new one is being loaded." "What to dispaly as the version while a new one is being loaded."