[nongnu] elpa/spacemacs-theme eb4ed6019d 248/336: Merge pull request #111 from jabranham/improve-parens

[ELPA Syncer]

branch: elpa/spacemacs-theme
commit eb4ed6019d3df7e08a16aae9be902e133c7a1310
Merge: 7e458fe84f 4b7fb09fc2
Author: Nasser Alshammari <designernasser@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #111 from jabranham/improve-parens
    
    Improve parens
---
 spacemacs-common.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/spacemacs-common.el b/spacemacs-common.el
index 6ca63b6f2d..7d74a282b7 100644
--- a/spacemacs-common.el
+++ b/spacemacs-common.el
@@ -75,6 +75,11 @@ to 'auto, tags may not be properly aligned. "
   :type 'alist
   :group 'spacemacs-theme)
 
+(defcustom spacemacs-theme-underline-parens t
+  "If non-nil, underline matching parens when using `show-paren-mode' or 
similar."
+  :type 'boolean
+  :group 'spacemacs-theme)
+
 (defun true-color-p ()
   (or
    (display-graphic-p)
@@ -746,12 +751,13 @@ to 'auto, tags may not be properly aligned. "
      `(shm-quarantine-face ((,class (:background ,red-bg-s))))
 
 ;;;;; show-paren
-     `(show-paren-match ((,class (:background ,green-bg-s))))
-     `(show-paren-mismatch ((,class (:background ,red-bg-s))))
+     `(show-paren-match ((,class (:foreground ,mat :inherit bold  :underline 
,(when spacemacs-theme-underline-parens t)))))
+     `(show-paren-match-expression ((,class (:background ,green-bg-s))))
+     `(show-paren-mismatch ((,class (:foreground ,err :inherit bold :underline 
,(when spacemacs-theme-underline-parens t)))))
 
 ;;;;; smartparens
      `(sp-pair-overlay-face ((,class (:background ,highlight :foreground 
nil))))
-     `(sp-show-pair-match-face ((,class (:foreground ,mat :inherit bold 
:underline t))))
+     `(sp-show-pair-match-face ((,class (:foreground ,mat :inherit bold  
:underline ,(when spacemacs-theme-underline-parens t)))))
 
 ;;;;; smerge
      `(smerge-base ((,class (:background ,yellow-bg))))