aboutsummaryrefslogtreecommitdiff
path: root/sx-question-print.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-question-print.el')
-rw-r--r--sx-question-print.el20
1 files changed, 11 insertions, 9 deletions
diff --git a/sx-question-print.el b/sx-question-print.el
index 6ab7698..66ae922 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -34,8 +34,9 @@
:tag "SX Question Mode"
:group 'sx)
-(defgroup sx-question-mode-faces nil
- "Customization group for the faces of `sx-question-mode'."
+(defgroup sx-question-mode-faces '((sx-user custom-group))
+ "Customization group for the faces of `sx-question-mode'.
+Some faces of this mode might be defined in the `sx-user' group."
:prefix "sx-question-mode-"
:tag "SX Question Mode Faces"
:group 'sx-question-mode)
@@ -62,7 +63,7 @@
:type 'string
:group 'sx-question-mode)
-(defcustom sx-question-mode-header-author-format "\nAuthor: %n %r"
+(defcustom sx-question-mode-header-author-format "\nAuthor: %d %r"
"String used to display the question author at the header.
% constructs have special meaning here. See `sx--user-format'."
:type 'string
@@ -191,10 +192,11 @@ DATA can represent a question or an answer."
(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)
+ (insert
+ (sx--user-format
+ (propertize sx-question-mode-header-author-format
+ 'face 'sx-question-mode-header)
+ .owner))
(sx-question-mode--insert-header
;; Date
sx-question-mode-header-date
@@ -203,7 +205,7 @@ DATA can represent a question or an answer."
(when .last_edit_date
(format sx-question-mode-last-edit-format
(sx-time-since .last_edit_date)
- (sx--format-user "%n" .last_editor))))
+ (sx--user-format "%d" .last_editor))))
'sx-question-mode-date)
(sx-question-mode--insert-header
sx-question-mode-header-score
@@ -272,7 +274,7 @@ The comment is indented, filled, and then printed according to
" "))
(insert
(format sx-question-mode-comments-format
- (sx--format-user "%n" .owner)
+ (sx--user-format "%d" .owner)
(substring
;; We fill with three spaces at the start, so the comment is
;; slightly indented.