From 8adc0ac710469949ac28aa664eef965ef179c290 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 14 Dec 2014 13:42:29 +0000 Subject: Use the header-line as a UI guide on the question buffer. --- sx-question-mode.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'sx-question-mode.el') diff --git a/sx-question-mode.el b/sx-question-mode.el index 5735f47..c45ef9f 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -175,12 +175,31 @@ property." ;;; Major-mode +(defvar sx-question-mode--header-line + '(" " + (:propertize "n p TAB" face mode-line-buffer-id) + ": Navigate" + " " + (:propertize "u d" face mode-line-buffer-id) + ": Up/Down Vote" + " " + (:propertize "c" face mode-line-buffer-id) + ": Comment" + " " + (:propertize "a" face mode-line-buffer-id) + ": Answer" + " " + (:propertize "e" face mode-line-buffer-id) + ": Edit") + "Header-line used on the question list.") + (define-derived-mode sx-question-mode special-mode "Question" "Major mode to display and navigate a question and its answers. Letters do not insert themselves; instead, they are commands. \\ \\{sx-question-mode}" + (setq header-line-format sx-question-mode--header-line) ;; Determine how to close this window. (unless (window-parameter nil 'quit-restore) (set-window-parameter -- cgit v1.2.3 From 4bcdd311b590156998ebf51a14fce31b6d0569ec Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sun, 14 Dec 2014 11:49:56 -0200 Subject: Also mention q --- sx-question-list.el | 5 ++++- sx-question-mode.el | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) (limited to 'sx-question-mode.el') diff --git a/sx-question-list.el b/sx-question-list.el index 69fb435..f23310c 100644 --- a/sx-question-list.el +++ b/sx-question-list.el @@ -205,7 +205,10 @@ This is ignored if `sx-question-list--refresh-function' is set.") ": View question" " " (:propertize "v" face mode-line-buffer-id) - ": Visit externally") + ": Visit externally" + " " + (:propertize "q" face mode-line-buffer-id) + ": Quit") "Header-line used on the question list.") diff --git a/sx-question-mode.el b/sx-question-mode.el index c45ef9f..68618bb 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -190,7 +190,10 @@ property." ": Answer" " " (:propertize "e" face mode-line-buffer-id) - ": Edit") + ": Edit" + " " + (:propertize "q" face mode-line-buffer-id) + ": Quit") "Header-line used on the question list.") (define-derived-mode sx-question-mode special-mode "Question" -- cgit v1.2.3