[elpa] externals/modus-vivendi-theme 17c760f 065/110: Internal: refine function for conditional 3D box

[Stefan Monnier]

branch: externals/modus-vivendi-theme
commit 17c760fb42b27e886b8f46bfbd81236432de83b3
Author: Protesilaos Stavrou <address@hidden>
Commit: Protesilaos Stavrou <address@hidden>

    Internal: refine function for conditional 3D box
---
 modus-operandi-theme.el | 10 ++++++----
 modus-vivendi-theme.el  | 10 ++++++----
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/modus-operandi-theme.el b/modus-operandi-theme.el
index 1a0dbb7..30aaae3 100644
--- a/modus-operandi-theme.el
+++ b/modus-operandi-theme.el
@@ -410,14 +410,16 @@ between foreground and background is >= 7:1)."
 
 ;; Helper functions that are meant to ease the implementation of the
 ;; above customisation options.
-(defun modus-operandi-theme-modeline-box (col3d col &optional btn)
+(defun modus-operandi-theme-modeline-box (col3d col &optional btn int)
   "Control the box properties of the mode line.
 COL3D is the border that is intended for the three-dimensional modeline.
 COL applies to the two-dimensional modeline.
-Optional BTN provides the 3d button style."
-  (let ((style (if btn 'released-button nil)))
+Optional BTN provides the 3d button style.
+Optional INT defines a border width."
+  (let* ((style (if btn 'released-button nil))
+         (int (if int int 1)))
     (if modus-operandi-theme-3d-modeline
-        (list :line-width 1 :color col3d :style style)
+        (list :line-width int :color col3d :style style)
       (list :line-width 1 :color col :style nil))))
 
 (defun modus-operandi-theme-modeline-props (bg3d fg3d &optional bg fg)
diff --git a/modus-vivendi-theme.el b/modus-vivendi-theme.el
index 2a19854..48a31bb 100644
--- a/modus-vivendi-theme.el
+++ b/modus-vivendi-theme.el
@@ -410,14 +410,16 @@ between foreground and background is >= 7:1)."
 
 ;; Helper functions that are meant to ease the implementation of the
 ;; above customisation options.
-(defun modus-vivendi-theme-modeline-box (col3d col &optional btn)
+(defun modus-vivendi-theme-modeline-box (col3d col &optional btn int)
   "Control the box properties of the mode line.
 COL3D is the border that is intended for the three-dimensional modeline.
 COL applies to the two-dimensional modeline.
-Optional BTN provides the 3d button style."
-  (let ((style (if btn 'released-button nil)))
+Optional BTN provides the 3d button style.
+Optional INT defines a border width."
+  (let* ((style (if btn 'released-button nil))
+         (int (if int int 1)))
     (if modus-vivendi-theme-3d-modeline
-        (list :line-width 1 :color col3d :style style)
+        (list :line-width int :color col3d :style style)
       (list :line-width 1 :color col :style nil))))
 
 (defun modus-vivendi-theme-modeline-props (bg3d fg3d &optional bg fg)