branch: externals/doric-themes
commit 1fb0754455a1412bb8190646ace711bd6ea3f350
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Remove functions that were for testing purposes and are no longer needed
---
doric-themes.el | 29 -----------------------------
1 file changed, 29 deletions(-)
diff --git a/doric-themes.el b/doric-themes.el
index 1fcd173b91..cd45f48a56 100644
--- a/doric-themes.el
+++ b/doric-themes.el
@@ -804,35 +804,6 @@
magit-diff-removed-highlight
smerge-refined-removed))
-;; NOTE 2025-05-12: This is for testing purposes.
-;;
-;; (defun doric-themes--combine-all-our-face-groups ()
-;; "Combine all Doric face groups into a list of faces."
-;; (let ((faces nil))
-;; (mapatoms
-;; (lambda (symbol)
-;; (let ((name (symbol-name symbol)))
-;; (when (and (not (functionp symbol))
-;; (not (commandp symbol))
-;; (not (keywordp symbol))
-;; (and (not (string-match-p "--" name))
-;; (string-match-p "\\`doric-themes.*faces\\'" name)))
-;; (push (symbol-value symbol) faces)))))
-;; (apply 'append faces)))
-;;
-;; (defvar doric-themes--combined-faces
-;; (doric-themes--combine-all-our-face-groups))
-;;
-;; (defun doric-themes--get-faces ()
-;; "Return `face-list' without private symbols."
-;; (seq-remove
-;; (lambda (face)
-;; (or (string-match-p "--" (symbol-name face))
-;; (face-background face)
-;; (not (eq (face-attribute face :box) 'unspecified))
-;; (memq face doric-themes--combined-faces)))
-;; (face-list)))
-
(defun doric-themes-prepare-faces (&rest faces-and-attributes)
"Set faces to their respective attributes in FACES-AND-ATTRIBUTES."
(pcase-let ((`(,faces . ,attributes) faces-and-attributes))
