branch: elpa/spacemacs-theme
commit eb4ed6019d3df7e08a16aae9be902e133c7a1310
Merge: 7e458fe84f 4b7fb09fc2
Author: Nasser Alshammari <[email protected]>
Commit: GitHub <[email protected]>
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))))
