[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/rainbow-delimiters cc829473be 170/188: Deprecate rainbow-d
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/rainbow-delimiters cc829473be 170/188: Deprecate rainbow-delimiters-delimiter-blacklist. |
Date: |
Sat, 1 Jan 2022 00:59:02 -0500 (EST) |
branch: elpa/rainbow-delimiters
commit cc829473bec2ed78cb1932ebea3626bd9cc53404
Author: Fanael Linithien <fanael4@gmail.com>
Commit: Fanael Linithien <fanael4@gmail.com>
Deprecate rainbow-delimiters-delimiter-blacklist.
rainbow-delimiters-pick-face-function offers a superset of its
functionality.
---
rainbow-delimiters-test.el | 36 +++++++++++++++++++++---------------
rainbow-delimiters.el | 22 ++++++++++------------
2 files changed, 31 insertions(+), 27 deletions(-)
diff --git a/rainbow-delimiters-test.el b/rainbow-delimiters-test.el
index af2e6268c2..7f8ab7d647 100644
--- a/rainbow-delimiters-test.el
+++ b/rainbow-delimiters-test.el
@@ -188,10 +188,6 @@
0 1 (face (rainbow-delimiters-depth-1-face))
1 2 (face (rainbow-delimiters-mismatched-face))))))))
-(ert-deftest doesnt-highlighlight-disabled-delimiters ()
- (let ((rainbow-delimiters-delimiter-blacklist '(?\( ?\))))
- (should-do-nothing 'text-mode "(((())))")))
-
(ert-deftest doesnt-highlight-escaped-delimiters ()
(with-temp-buffer-in-mode 'emacs-lisp-mode
(with-string (str "(bar ?\\( (foo?))")
@@ -252,19 +248,9 @@
7 8 (face (rainbow-delimiters-depth-1-face diff-added))
8 9 (face diff-added)))))))
-(ert-deftest blacklisted-contribute-to-depth ()
- (let ((rainbow-delimiters-delimiter-blacklist '(?\( ?\))))
- (with-temp-buffer-in-mode 'text-mode
- (with-string (str "([])")
- (should (ert-equal-including-properties
- (buffer-string)
- #("([])"
- 1 2 (face (rainbow-delimiters-depth-2-face))
- 2 3 (face (rainbow-delimiters-depth-2-face)))))))))
-
(ert-deftest can-customize-face-picker ()
(let ((rainbow-delimiters-pick-face-function
- (lambda (_depth _loc _match)
+ (lambda (_depth _match _loc)
'font-lock-keyword-face)))
(with-temp-buffer-in-mode 'emacs-lisp-mode
(with-string (str "(())")
@@ -276,5 +262,25 @@
2 3 (face (font-lock-keyword-face))
3 4 (face (font-lock-keyword-face)))))))))
+(ert-deftest face-picker-can-disable-highlighting ()
+ (let ((rainbow-delimiters-pick-face-function
+ (lambda (depth match loc)
+ (unless (memq (char-after loc) '(?\( ?\)))
+ (rainbow-delimiters-default-pick-face depth match loc)))))
+ (should-do-nothing 'text-mode "(((())))")))
+
+(ert-deftest delimiters-disabled-by-face-picker-contribute-to-depth ()
+ (let ((rainbow-delimiters-pick-face-function
+ (lambda (depth match loc)
+ (unless (memq (char-after loc) '(?\( ?\)))
+ (rainbow-delimiters-default-pick-face depth match loc)))))
+ (with-temp-buffer-in-mode 'text-mode
+ (with-string (str "([])")
+ (should (ert-equal-including-properties
+ (buffer-string)
+ #("([])"
+ 1 2 (face (rainbow-delimiters-depth-2-face))
+ 2 3 (face (rainbow-delimiters-depth-2-face)))))))))
+
(provide 'rainbow-delimiters-test)
;;; rainbow-delimiters-test.el ends here
diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index 5608652dd8..a919a1b6be 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -90,12 +90,13 @@ When depth exceeds innermost defined face, colors cycle
back through."
:prefix "rainbow-delimiters-")
(defcustom rainbow-delimiters-delimiter-blacklist '()
- "Disable highlighting of selected delimiters.
-
-Delimiters in this list are not highlighted."
- :tag "Delimiter Blacklist"
- :type '(repeat character)
+ "Unused variable pending removal.
+To prevent highlighting of certain delimiters, use
+`rainbow-delimiters-pick-face-function' instead."
:group 'rainbow-delimiters)
+(make-obsolete-variable 'rainbow-delimiters-delimiter-blacklist
+ 'rainbow-delimiters-pick-face-function
+ "2.1")
(defcustom rainbow-delimiters-pick-face-function
#'rainbow-delimiters-default-pick-face
@@ -193,13 +194,10 @@ The returned value is either
`rainbow-delimiters-unmatched-face',
LOC is the location of the character to add text properties to.
DEPTH is the nested depth at LOC, which determines the face to use.
-MATCH is nil iff it's a mismatched closing delimiter.
-
-The delimiter is not highlighted if it's a blacklisted delimiter."
- (unless (memq (char-after loc) rainbow-delimiters-delimiter-blacklist)
- (let ((face (funcall rainbow-delimiters-pick-face-function depth match
loc)))
- (when face
- (font-lock-prepend-text-property loc (1+ loc) 'face face)))))
+MATCH is nil iff it's a mismatched closing delimiter."
+ (let ((face (funcall rainbow-delimiters-pick-face-function depth match loc)))
+ (when face
+ (font-lock-prepend-text-property loc (1+ loc) 'face face))))
(defun rainbow-delimiters--char-ineligible-p (loc ppss delim-syntax-code)
"Return t if char at LOC should not be highlighted.
- [nongnu] elpa/rainbow-delimiters 115173b2eb 142/188: Rename README.markdown to README.md., (continued)
- [nongnu] elpa/rainbow-delimiters 115173b2eb 142/188: Rename README.markdown to README.md., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters e50e4787b4 144/188: Turn rainbow-delimiters-max-face-count into a defcustom., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 8b94fc0100 146/188: Make rainbow-delimiters-faces reachable from (customize-group 'faces)., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 82952aa34a 148/188: Test for blacklisting right before highlighting the delimiter., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters ef33129a0a 150/188: Treat byte compilation warnings as test suite failures., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters ab79aec8f8 153/188: Simplify the handling of escaped delimiters., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 402a9e8e04 152/188: Treat the ? as a quote character only when it starts a symbol., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters a802a6c823 156/188: Refactor the code, no functional changes., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 4bac5ce118 158/188: Don't flush the syntax-ppss cache unless necessary., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 9d23157002 160/188: Simplify the way we determine whether to flush syntax-ppss cache., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters cc829473be 170/188: Deprecate rainbow-delimiters-delimiter-blacklist.,
ELPA Syncer <=
- [nongnu] elpa/rainbow-delimiters a4005ac963 162/188: Remove more useless comments., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters e75a4b18e9 159/188: Remove unneeded with-no-warnings., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 153284f304 168/188: Fix a typo., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 27d21f278b 167/188: Rephrase the header line description., ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters a695c0f3b9 183/188: Use GitHub workflows for CI, ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 9a644d9e42 178/188: Pass -y to apt-get install, ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters f43d48a246 186/188: Widen before propertizing if under mmm-mode, ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 5125f4e476 185/188: Update the CI badge in the readme to point to GH Actions, ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters 0823d0c67f 176/188: Release version 2.1.1, ELPA Syncer, 2022/01/01
- [nongnu] elpa/rainbow-delimiters d576e6694a 188/188: Add Emacs 27.2 to CI, ELPA Syncer, 2022/01/01