diff options
| author | Sean Allred <code@seanallred.com> | 2014-12-14 13:41:47 -0500 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-12-14 13:41:47 -0500 |
| commit | cdde177a997f47ca215978056a6cfbec6a6ad0f6 (patch) | |
| tree | f6079473cc5b17cc8d8212cf927bb53eb441e718 /sx-question-mode.el | |
| parent | f924a9c58ce30dc62fc61382b1933d8ef51189b5 (diff) | |
| parent | 4bcdd311b590156998ebf51a14fce31b6d0569ec (diff) | |
Merge pull request #156 from vermiculus/interface-upgrade
Interface upgrade
Diffstat (limited to 'sx-question-mode.el')
| -rw-r--r-- | sx-question-mode.el | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/sx-question-mode.el b/sx-question-mode.el index 5735f47..68618bb 100644 --- a/sx-question-mode.el +++ b/sx-question-mode.el @@ -175,12 +175,34 @@ 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" + " " + (:propertize "q" face mode-line-buffer-id) + ": Quit") + "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> \\{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 |