Enhance customizations.

seagle0128 · Jul 20, 2019 · 00ddd1b · 00ddd1b
1 parent 4a41777
commit 00ddd1b
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 7 deletions.
diff --git a/doom-modeline-core.el b/doom-modeline-core.el
@@ -136,17 +136,22 @@ It returns a file name which can be used directly as argument of
 
 (defgroup doom-modeline nil
   "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
   "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."
-  :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)
   "How wide the mode-line bar should be. It's only respected in GUI."
   :type 'integer
+  :set (lambda (sym val)
+         (set sym (if (> val 0) val 1)))
   :group 'doom-modeline)
 
 (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)
   "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
   "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
   "The faces of `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
   '((t (:inherit (mode-line-emphasis bold))))

diff --git a/doom-modeline-env.el b/doom-modeline-env.el
@@ -39,7 +39,8 @@
 
 (defgroup doom-modeline-env nil
   "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 "..."
   "What to dispaly as the version while a new one is being loaded."