[nongnu] elpa/alect-themes 3858ddc 190/269: Some code tweaks

[ELPA Syncer]

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."