diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 14:44:42 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-01-07 15:48:31 -0200 |
| commit | b61d953576c2e46678777d5838c54a92093485c7 (patch) | |
| tree | c47344a331b850cb9ce52007c7fa6147696acc43 | |
| parent | 304217c1ac70ee7dc6f7e4c16410fca73b11c515 (diff) | |
Change sx-question-mode-header-author to sx-question-mode-header-author-format
| -rw-r--r-- | sx-question-print.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index a8604e0..3ae86fc 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -74,8 +74,9 @@ :type 'string :group 'sx-question-mode) -(defcustom sx-question-mode-header-author "\nAuthor: " - "String used before the question author at the header." +(defcustom sx-question-mode-header-author-format "\nAuthor: %n %r" + "String used to display the question author at the header. +% constructs have special meaning here. See `sx--user-format'." :type 'string :group 'sx-question-mode) @@ -201,11 +202,12 @@ DATA can represent a question or an answer." ;; Sections can be hidden with overlays (sx--wrap-in-overlay '(sx-question-mode--section-content t) + ;; Author + (sx--format-user + (propertize sx-question-mode-header-author-format + 'face 'sx-question-mode-header) + .owner) (sx-question-mode--insert-header - ;; Author - sx-question-mode-header-author - (sx--format-user .owner) - 'sx-question-mode-author ;; Date sx-question-mode-header-date (concat |