branch: elpa/hyperdrive
commit 3b79b631a14fb338d63544a9095b2e0bcb6ff4eb
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-dir-column-headers) Don't use glyphs
The glyphs don't align well with the monospaced columns.
---
hyperdrive-dir.el | 18 +++++++++---------
hyperdrive-vars.el | 3 +++
2 files changed, 12 insertions(+), 9 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 888084a6f3..2e9f44e6fb 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -121,21 +121,21 @@ arguments."
Columns are suffixed with up/down arrows according to
`hyperdrive-sort-entries'."
(pcase-let* ((`(,column . ,direction) hyperdrive-directory-sort)
- (arrow (if (eq direction :ascending) "▲" "▼"))
- (size-header "Size")
- (mtime-header "Last Modified")
- (name-header "Name"))
+ (arrow (propertize (if (eq direction :ascending) "^" "v")
+ 'face 'hyperdrive-header-arrow))
+ (size-header (propertize "Size" 'face
'hyperdrive-column-header))
+ (mtime-header (propertize "Last Modified" 'face
'hyperdrive-column-header))
+ (name-header (propertize "Name" 'face
'hyperdrive-column-header)))
(pcase-exhaustive column
('size (cl-callf2 concat arrow size-header))
('mtime (cl-callf2 concat arrow mtime-header))
;; Put the arrow second so that the header doesn't move.
('name (cl-callf concat name-header arrow)))
(concat prefix "\n"
- (format "%6s %s %s"
- (propertize size-header 'face 'hyperdrive-column-header)
- (format hyperdrive-timestamp-format-string
- (propertize mtime-header 'face
'hyperdrive-column-header))
- (propertize name-header 'face
'hyperdrive-column-header)))))
+ (format (concat "%6s " hyperdrive-timestamp-format-string " %s")
+ size-header
+ mtime-header
+ name-header))))
(defun hyperdrive-dir-complete-sort ()
"Return a value for `hyperdrive-directory-sort' selected with completion."
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 413431dd74..574fc45ec9 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -202,6 +202,9 @@ an existing buffer at the same version, or make a new
buffer."
(defface hyperdrive-timestamp '((t (:inherit default)))
"Entry timestamp.")
+(defface hyperdrive-header-arrow '((t (:inherit bold)))
+ "Header arrows.")
+
(defface hyperdrive-history-range '((t (:inherit font-lock-escape-face)))
"Version range in `hyperdrive-history' buffers.")
