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

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

[nongnu] elpa/hyperdrive 01e15b03f9 25/31: Remove: (hyperdrive-mirror) F


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 01e15b03f9 25/31: Remove: (hyperdrive-mirror) Faces
Date: Fri, 3 Nov 2023 22:00:48 -0400 (EDT)

branch: elpa/hyperdrive
commit 01e15b03f9bd4d9699483091b90bd86145bd29cb
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Remove: (hyperdrive-mirror) Faces
---
 hyperdrive-mirror.el |  8 ++++----
 hyperdrive-vars.el   | 12 ------------
 2 files changed, 4 insertions(+), 16 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 36cd6b3c81..b5fe1cdae6 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -75,10 +75,10 @@ STATUS is one of:
 (hyperdrive-mirror-define-key status ()
   (pcase-let (((cl-struct hyperdrive-mirror-item (status item-status)) item))
     (pcase-exhaustive item-status
-      (`new (propertize "New locally" 'face 'hyperdrive-mirror-new))
-      (`newer (propertize "Newer locally" 'face 'hyperdrive-mirror-newer))
-      ('older (propertize "Older locally" 'face 'hyperdrive-mirror-older))
-      ('same (propertize "Same" 'face 'hyperdrive-mirror-same)))))
+      (`new "New locally")
+      (`newer "Newer locally")
+      ('older "Older locally")
+      ('same "Same"))))
 
 (defvar hyperdrive-mirror-default-keys
   '(status)
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index f66735f129..62d9d6f7dd 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -220,18 +220,6 @@ an existing buffer at the same version, or make a new 
buffer."
 (defface hyperdrive-history-unknown '((t :inherit warning))
   "Marker for entries with unknown existence in `hyperdrive-history' buffers.")
 
-(defface hyperdrive-mirror-new '((t :inherit error))
-  "Face for files with \"new\" status in `hyperdrive-mirror' buffers.")
-
-(defface hyperdrive-mirror-same '((t :inherit success))
-  "Face for files with \"same\" status in `hyperdrive-mirror' buffers.")
-
-(defface hyperdrive-mirror-newer '((t :inherit warning))
-  "Face for files with \"newer\" status in `hyperdrive-mirror' buffers.")
-
-(defface hyperdrive-mirror-older '((t :inherit font-lock-builtin-face))
-  "Face for files with \"older\" status in `hyperdrive-mirror' buffers.")
-
 ;;;;; Regular expressions
 
 (eval-and-compile



reply via email to

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