From 00ddd1b964f0b9f811e423e47c3ed6226c7a641e Mon Sep 17 00:00:00 2001
From: Vincent Zhang <seagle0128@gmail.com>
Date: Sat, 20 Jul 2019 17:35:03 +0800
Subject: [PATCH] Enhance customizations.

---
 doom-modeline-core.el | 18 ++++++++++++------
 doom-modeline-env.el  |  3 ++-
 2 files changed, 14 insertions(+), 7 deletions(-)

diff --git a/doom-modeline-core.el b/doom-modeline-core.el
index f5eb7c6..2e3e91a 100644
--- 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
index 81287a6..62d8fbb 100644
--- 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."