branch: elpa/spacemacs-theme
commit 4b7fb09fc2e0f702db51a59d784d3b44eb8dd65e
Author: Alex Branham <[email protected]>
Commit: Alex Branham <[email protected]>
Add a user option to control whether matching parens are underlined
---
spacemacs-common.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/spacemacs-common.el b/spacemacs-common.el
index 985b6fcecd..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,13 +751,13 @@ to 'auto, tags may not be properly aligned. "
`(shm-quarantine-face ((,class (:background ,red-bg-s))))
;;;;; show-paren
- `(show-paren-match ((,class (:foreground ,mat :inherit bold))))
+ `(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))))
+ `(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))))
+ `(sp-show-pair-match-face ((,class (:foreground ,mat :inherit bold
:underline ,(when spacemacs-theme-underline-parens t)))))
;;;;; smerge
`(smerge-base ((,class (:background ,yellow-bg))))
