branch: elpa/hyperdrive
commit f336801c0ff40e483325a19b79920e6a61849ca6
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-dir-column-headers) Highlight selected header
---
hyperdrive-dir.el | 4 +++-
hyperdrive-vars.el | 4 ++++
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 17010d435d..f41f3e33e2 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -137,7 +137,9 @@ Columns are suffixed with up/down arrows according to
('name (format "%%-%ds" (- (window-width) 6 2
hyperdrive-timestamp-width 2)))))
(desc (concat (and selected (not left-aligned) arrow)
(and (not left-aligned) " ")
- (propertize desc 'face 'hyperdrive-column-header)
+ (propertize desc 'face (if selected
+
'hyperdrive-selected-column-header
+ 'hyperdrive-column-header))
;; This extra space is necessary to prevent
;; the `hyperdrive-column-header' face from
;; extended to the end of the window.
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 22424c0eb3..ef27ad4cf9 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -192,6 +192,10 @@ an existing buffer at the same version, or make a new
buffer."
(defface hyperdrive-column-header '((t (:inherit underline)))
"Column header.")
+(defface hyperdrive-selected-column-header '((t (:inherit underline
+ :weight bold)))
+ "Selected column header.")
+
(defface hyperdrive-directory '((t (:inherit dired-directory)))
"Subdirectories.")
