From b61d953576c2e46678777d5838c54a92093485c7 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 7 Jan 2015 14:44:42 -0200 Subject: Change sx-question-mode-header-author to sx-question-mode-header-author-format --- sx-question-print.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'sx-question-print.el') 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 -- cgit v1.2.3