emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/kind-icon 6e0e0c5: Add subr-x require


From: ELPA Syncer
Subject: [elpa] externals/kind-icon 6e0e0c5: Add subr-x require
Date: Sun, 19 Dec 2021 12:57:20 -0500 (EST)

branch: externals/kind-icon
commit 6e0e0c5c2f846685861ef6c157044b1a55572359
Author: JD Smith <93749+jdtsmith@users.noreply.github.com>
Commit: JD Smith <93749+jdtsmith@users.noreply.github.com>

    Add subr-x require
---
 kind-icon.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/kind-icon.el b/kind-icon.el
index 8105f2c..4e68c5e 100644
--- a/kind-icon.el
+++ b/kind-icon.el
@@ -5,7 +5,7 @@
 ;; Author: J.D. Smith <jdtsmith@gmail.com>
 ;; Homepage: https://github.com/jdtsmith/kind-icon
 ;; Package-Requires: ((emacs "27.1") svg-lib)
-;; Package-Version: 0.1.3
+;; Package-Version: 0.1.4
 ;; Keywords: completion
 
 ;; kind-icon is free software: you can redistribute it
@@ -54,6 +54,9 @@
 ;; both short-text and icons.
 
 ;;; Code:
+
+(eval-when-compile
+  (require 'subr-x))
 (require 'svg-lib nil 'noerror)
 
 (defvar kind-icon--cache nil
@@ -229,7 +232,7 @@ the :face's background, `kind-icon-default-face', or the 
frame
 background-color."
   (or (alist-get kind kind-icon--cache)
       (if-let ((map (assq kind kind-icon-mapping))
-                (plist (cddr map)))
+              (plist (cddr map)))
          (let* ((kind-face (plist-get plist :face))
                 (col (if kind-face
                          (face-attribute kind-face :foreground nil t)
@@ -243,7 +246,7 @@ background-color."
                               (frame-parameter nil 'background-color)))
                 (bg-col (if kind-icon-blend-background
                             (kind-icon--rgb-blend
-                             (color-name-to-rgb col) 
+                             (color-name-to-rgb col)
                              (color-name-to-rgb default-bg)
                              kind-icon-blend-frac)
                           (if (and kind-face-bg (not (eq kind-face-bg 
'unspecified)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]