[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/face-shift 332f7757a6 40/50: Remove cl-lib dependency
From: |
ELPA Syncer |
Subject: |
[elpa] externals/face-shift 332f7757a6 40/50: Remove cl-lib dependency |
Date: |
Sun, 30 Apr 2023 12:03:22 -0400 (EDT) |
branch: externals/face-shift
commit 332f7757a689541d2bea7d0845d414f75a9e4c71
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>
Remove cl-lib dependency
---
face-shift.el | 26 ++++++++++++++++----------
1 file changed, 16 insertions(+), 10 deletions(-)
diff --git a/face-shift.el b/face-shift.el
index 075aacf4fd..ac7a99c0c8 100644
--- a/face-shift.el
+++ b/face-shift.el
@@ -3,7 +3,7 @@
;; Author: Philip Kaludercic <philipk@posteo.net>
;; Version: 0.2.0
;; Keywords: faces
-;; Package-Requires: ((emacs "24.4") (cl-lib "0.5"))
+;; Package-Requires: ((emacs "24.4"))
;; URL: https://git.sr.ht/~pkal/face-shift
;; This file is NOT part of Emacs.
@@ -25,7 +25,6 @@
(require 'color)
(require 'face-remap)
-(require 'cl-lib)
(eval-when-compile (require 'subr-x))
(defgroup face-shift nil
@@ -83,19 +82,24 @@ See `face-shift--interpolate'."
(defun face-shift--interpolate (col-ref col-base)
"Attempt to find median colour between COL-REF and COL-BASE."
- (cl-map 'list (lambda (ref base)
- (if (> face-shift-intensity 0)
- (- 1 (* (- 1 (* ref base)) face-shift-intensity))
- (* (* ref base) (abs face-shift-intensity))))
- col-ref col-base))
+ (let (results)
+ (while (and col-ref col-base)
+ (let ((ref (pop col-ref))
+ (base (pop col-base)))
+ (push (if (> face-shift-intensity 0)
+ (- 1 (* (- 1 (* ref base)) face-shift-intensity))
+ (* (* ref base) (abs face-shift-intensity)))
+ results)))
+ (nreverse results)))
(defun face-shift-setup (&optional buffer)
"Shift colours in BUFFER according to `face-shift-shifts'.
If BUFFER is nil, use current buffer."
(with-current-buffer (or buffer (current-buffer))
- (let* ((colour (cdr (cl-assoc-if #'derived-mode-p face-shift-shifts)))
- (col-rgb (and colour (color-name-to-rgb colour))))
+ (let ((colour (cdr (assoc (apply #'derived-mode-p
+ (mapcar #'car face-shift-shifts))
+ face-shift-shifts))))
(when colour
(dolist (face face-shift-faces)
(dolist (prop (if face-shift-shift-foreground
@@ -103,7 +107,9 @@ If BUFFER is nil, use current buffer."
'(:background)))
(let* ((attr (face-attribute face prop))
(rgb (and attr (color-name-to-rgb attr)))
- (shift (and rgb (face-shift--interpolate col-rgb rgb)))
+ (shift (and rgb (face-shift--interpolate
+ (color-name-to-rgb colour)
+ rgb)))
(new (and shift (apply #'color-rgb-to-hex shift))))
(when new
(push (face-remap-add-relative face `(,prop ,new))
- [elpa] externals/face-shift 14dce79fc4 45/50: Update screenshot, (continued)
- [elpa] externals/face-shift 14dce79fc4 45/50: Update screenshot, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 671e53fdef 48/50: Bump version to 0.2.1 for GNU ELPA, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 70ba886055 32/50: Update face-shift documentation, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 0d0de8e2b0 35/50: Update face-shift-shifts, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 09ed5ca5f0 43/50: Replace use-package with setup, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 5ff42292b0 20/50: removed redundant provide command, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 11e3fb7a1d 25/50: updated face-shift-intensity documentation, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 8dd6fb5f62 28/50: added melpa link, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 5df50b85fc 38/50: Update author header, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift de03278047 39/50: Bump version to 0.2.0, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 332f7757a6 40/50: Remove cl-lib dependency,
ELPA Syncer <=
- [elpa] externals/face-shift bfc4ec62ed 42/50: Lower minimal version to 24.1, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift df74d9b844 49/50: Fix typo in README, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift f5d575d0b4 16/50: transform using hsl color-space instead of rgb, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 96a36db6f5 18/50: updated mailing list link, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift 82490393c0 19/50: reworked face-shift into minor mode, ELPA Syncer, 2023/04/30
- [elpa] externals/face-shift bb03a324c1 46/50: Relicense face-shift under GPL-3, ELPA Syncer, 2023/04/30