[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/alect-themes 3858ddc 190/269: Some code tweaks
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/alect-themes 3858ddc 190/269: Some code tweaks |
Date: |
Thu, 21 Oct 2021 17:59:16 -0400 (EDT) |
branch: elpa/alect-themes
commit 3858ddcf213c5c7b08fe60204dccceb0cb52ac11
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>
Some code tweaks
Switch to 'lexical-binding' and adjust/improve the code.
---
alect-themes.el | 24 +++++++++++-------------
1 file changed, 11 insertions(+), 13 deletions(-)
diff --git a/alect-themes.el b/alect-themes.el
index f95fb62..fe4072f 100644
--- a/alect-themes.el
+++ b/alect-themes.el
@@ -1,4 +1,4 @@
-;;; alect-themes.el --- Configurable light, dark and black themes for Emacs 24
or later
+;;; alect-themes.el --- Configurable light, dark and black themes for Emacs 24
or later -*- lexical-binding: t -*-
;; Copyright (C) 2013-2015 Alex Kost
@@ -89,9 +89,7 @@ THEME-NAMES is a list of symbols.
COLORS is a list of lists (COLOR-NAME COLOR-VAL...) where
COLOR-VAL is a color for specified theme (theme names and color
values should be in matching order)."
- (let (cols)
- (dolist (theme theme-names)
- (add-to-list 'cols (list theme)))
+ (let ((cols (mapcar #'list theme-names)))
(dolist (elem colors)
(alect-put-colors (car elem) theme-names (cdr elem) cols))
cols))
@@ -185,28 +183,28 @@ Used for tabs like `tabbar-highlight' or `w3m-tab-mouse'."
(defmacro alect-define-color-level-face (n)
"Define face for color level N.
Name of the defined face is `alect-color-level-N'."
- `(defface ,(intern (format "alect-color-level-%s" n))
+ `(defface ,(intern (format "alect-color-level-%d" n))
'((t nil))
"Auxiliary face for inheriting by some other faces."
:group 'alect))
-(let (i)
- (cl-loop for i from 1 to 12
- do (eval `(alect-define-color-level-face ,i))))
-
(defmacro alect-define-title-face (n)
"Define title face for level N.
Name of the defined face is `alect-title-N'."
- `(defface ,(intern (format "alect-title-%s" n))
+ `(defface ,(intern (format "alect-title-%d" n))
'((t nil))
,(format "Auxiliary face for inheriting by some other faces.
Used for titles with levels like `org-level-%s' or
`markdown-header-face-%s'." n n)
:group 'alect))
-(let (i)
- (cl-loop for i from 1 to 8
- do (eval `(alect-define-title-face ,i))))
+(defmacro alect-define-faces (definer n)
+ `(progn
+ ,@(mapcar (lambda (i) (list definer i))
+ (number-sequence 1 n))))
+
+(alect-define-faces alect-define-color-level-face 12)
+(alect-define-faces alect-define-title-face 8)
(defcustom alect-header-height 1.13
"Height of `header-line' face."
- [nongnu] elpa/alect-themes c6be442 221/269: Add 'ffap' face, (continued)
- [nongnu] elpa/alect-themes c6be442 221/269: Add 'ffap' face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 69b28ed 224/269: Use 'red-bg-1' for 'trailing-whitespace', ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes c6bde47 225/269: Modify 'match' face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 26454f2 231/269: Add ediff Ancestor faces, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes a6e9b24 235/269: Add 'ido-indicator' face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 8a7774d 243/269: Adjust bg colors a bit, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 1812abb 247/269: Update version (0.8), ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 6aff883 248/269: Inherit 'widget-documentation' from 'font-lock-doc-face', ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 3785a17 260/269: Add 'org-ellipsis' face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 02b22d7 261/269: Update guix faces, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 3858ddc 190/269: Some code tweaks,
ELPA Syncer <=
- [nongnu] elpa/alect-themes ee6dbc0 199/269: Modify 'diff-file-header' face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 8dbfc5d 200/269: Modify 'markdown-list-face', ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 6fd786c 203/269: Add debbugs faces, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes fb91899 210/269: Add (unignore) tests, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes aa64247 213/269: Remove old faces for Magit1, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 2300929 229/269: Modify magit-diff-lines faces, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes e01abf0 230/269: Update guix faces for 0.2, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes b392655 234/269: Update old links in README, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes ded94ab 252/269: Add 'alect-file' auxiliary face, ELPA Syncer, 2021/10/21
- [nongnu] elpa/alect-themes 0ed602e 099/269: Fix typo (double space), ELPA Syncer, 2021/10/21