[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm 49f621f7e8 2/2: Mark disabled packages differently in
|
From: |
ELPA Syncer |
|
Subject: |
[nongnu] elpa/helm 49f621f7e8 2/2: Mark disabled packages differently in helm-packages installed |
|
Date: |
Sun, 14 Jul 2024 04:00:02 -0400 (EDT) |
branch: elpa/helm
commit 49f621f7e8f74697f6660aebae8e1e026bbbb794
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Mark disabled packages differently in helm-packages installed
---
helm-packages.el | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/helm-packages.el b/helm-packages.el
index 7a6b2d202e..97c6852fd8 100644
--- a/helm-packages.el
+++ b/helm-packages.el
@@ -209,9 +209,11 @@ Arg PACKAGES is a list of strings."
;; Package name.
(propertize
c
- 'face (if (equal status "dependency")
- font-lock-type-face
- 'font-lock-keyword-face)
+ 'face
+ (helm-acase status
+ ("dependency" 'font-lock-type-face)
+ ("disabled" 'default)
+ (t 'font-lock-keyword-face))
'match-part c)
;; Separator.
(make-string (1+ (-
(helm-in-buffer-get-longest-candidate)
@@ -220,9 +222,10 @@ Arg PACKAGES is a list of strings."
;; Package status.
(propertize
(or status "")
- 'face (if (equal status "dependency")
- 'bold-italic
- 'default))
+ 'face (helm-acase status
+ ("dependency" 'bold-italic)
+ ("disabled"
'font-lock-property-name-face)
+ (t 'default)))
;; Separator.
(make-string (1+ (- 10 (length status))) ? )
;; Package provider.