[nongnu] elpa/inkpot-theme 8e5c3ce626 100/104: Add inkpot-theme-use-box to optional disable box for mode-line

[ELPA Syncer]

branch: elpa/inkpot-theme
commit 8e5c3ce6269debfe7879dfa33a82a4f63c881720
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Add inkpot-theme-use-box to optional disable box for mode-line
---
 changelog.rst   |  3 +++
 inkpot-theme.el | 45 ++++++++++++++++++++++++++++++---------------
 readme.rst      |  7 +++++++
 3 files changed, 40 insertions(+), 15 deletions(-)

diff --git a/changelog.rst b/changelog.rst
index fd850fd267..25156c8997 100644
--- a/changelog.rst
+++ b/changelog.rst
@@ -3,6 +3,9 @@
 Change Log
 ##########
 
+- 2022-04-12
+  - Add ``inkpot-theme-use-box`` boolean to disable the box outline for the 
mode-line and header.
+
 - 2022-04-11
   - Set heading colors for ``markdown-mode``.
 
diff --git a/inkpot-theme.el b/inkpot-theme.el
index e81b363476..c24c1bf43c 100644
--- a/inkpot-theme.el
+++ b/inkpot-theme.el
@@ -15,6 +15,10 @@
 
 (deftheme inkpot "Dark color scheme with bright easily identifiable colors.")
 
+(defcustom inkpot-theme-use-box t
+  "Show outline around mode-line and header."
+  :type 'boolean)
+
 ;; Colors from original Vim theme (for reference)
 ;; as of https://github.com/ciaranm/inkpot (Feb 11, 2013)
 
@@ -93,9 +97,14 @@
 
       (ip-black                 "#000000") ;; bg:Normal
       (ip-white                 "#ffffff") ;; fg:ErrorMsg fg:WarningMsg
-
       ;; End palette colors.
-      )
+
+      (box-outline
+       (cond
+        (inkpot-theme-use-box
+         (list :box (list :line-width -1 :color "#7070a0")))
+        (t
+         nil))))
 
   (custom-theme-set-faces
    'inkpot
@@ -144,18 +153,24 @@
 
    ;; Mode line.
    ;; Follow GVIM, inactive mode-line isn't bold.
-   `(header-line ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
-                                  :bold t
-                                  :box (:line-width -1 :color 
,ip-slate-light)))))
-   `(header-line-inactive ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7
-                                           :box (:line-width -1 :color 
,ip-slate-light)))))
-   `(mode-line ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
-                                :box (:line-width -1 :color 
,ip-slate-light)))))
-   `(mode-line-active ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7
-                                       :box (:line-width -1 :color 
,ip-slate-light) :bold t))))
-   `(mode-line-inactive ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7
-                                         :box (:line-width -1 :color 
,ip-slate-light)))))
-   `(mode-line-buffer-id ((t (:foreground ,ip-grey+73 :bold nil))))
+   `(header-line
+     ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
+                      :bold t ,@box-outline))))
+   `(header-line-inactive
+     ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
+                      ,@box-outline))))
+   `(mode-line
+     ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
+                      ,@box-outline))))
+   `(mode-line-active
+     ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
+                      :bold t ,@box-outline))))
+   `(mode-line-inactive
+     ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7
+                      ,@box-outline))))
+   `(mode-line-buffer-id
+     ((t (:foreground ,ip-grey+73
+                      :bold nil ,@box-outline))))
 
 
    `(hl-line ((t (:background ,ip-slate-dark+7.6))))
@@ -187,7 +202,7 @@
 
    ;; tab-bar-mode.
    `(tab-bar ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+7.6 :bold 
t))))
-   `(tab-bar-tab ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7 
:box (:line-width -1 :color ,ip-slate-light)))))
+   `(tab-bar-tab ((t (:foreground ,ip-grey+73 :background ,ip-slate-dark+15.7 
,@box-outline))))
    `(tab-bar-tab-inactive ((t (:foreground ,ip-grey+73 :background 
,ip-slate-dark+15.7 :bold nil :italic t))))
 
    ;; which-func (shows in the mode-line).
diff --git a/readme.rst b/readme.rst
index bc6aed6edf..ca3e24ab9d 100644
--- a/readme.rst
+++ b/readme.rst
@@ -22,6 +22,13 @@ This theme is quite close to
    Screenshot of Emacs-Lisp code.
 
 
+Customization
+=============
+
+``inkpot-theme-use-box`` (``t``)
+   When nil, don't use box outlines for the mode-line and header.
+
+
 Notes
 =====