diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-14 13:39:42 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-14 13:39:42 +0000 |
| commit | a33de03f6c9f0419d7640bce0ab203fd43607bb4 (patch) | |
| tree | 65a0d44bc505c14bc8102d49de121c2c8afa66d0 | |
| parent | f924a9c58ce30dc62fc61382b1933d8ef51189b5 (diff) | |
Use the header-line as a UI guide.
| -rw-r--r-- | sx-question-list.el | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/sx-question-list.el b/sx-question-list.el index 788fc2f..0dfebc4 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -196,6 +196,18 @@ and thus not displayed in the list of questions. This is ignored if `sx-question-list--refresh-function' is set.") (make-variable-buffer-local 'sx-question-list--dataset) +(defvar sx-question-list--header-line + '(" " + (:propertize "n p j k" face mode-line-buffer-id) + ": Navigate" + " " + (:propertize "RET" face mode-line-buffer-id) + ": View question" + " " + (:propertize "v" face mode-line-buffer-id) + ": Visit externally") + "Header-line used on the question list.") + ;;; Mode Definition (define-derived-mode sx-question-list-mode @@ -266,7 +278,7 @@ into consideration. #'sx-question-list-refresh nil t) (add-hook 'tabulated-list-revert-hook #'sx-question-list--update-mode-line nil t) - (tabulated-list-init-header)) + (setq header-line-format sx-question-list--header-line)) (defcustom sx-question-list-date-sort-method 'last_activity_date "Parameter which controls date sorting." |