aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sx-filter.el5
-rw-r--r--sx-question-list.el16
2 files changed, 20 insertions, 1 deletions
diff --git a/sx-filter.el b/sx-filter.el
index 1cf010f..15bd8a1 100644
--- a/sx-filter.el
+++ b/sx-filter.el
@@ -117,7 +117,10 @@ return the compiled filter."
downvoted
question_id
share_link)
- (user display_name)
+ (user display_name
+ reputation)
+ (shallow_user display_name
+ reputation)
(comment owner
body_markdown
body
diff --git a/sx-question-list.el b/sx-question-list.el
index 1342e76..40b72b9 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -109,6 +109,16 @@
""
:group 'sx-question-list-faces)
+(defface sx-question-list-reputation
+ '((t :inherit sx-question-list-date))
+ ""
+ :group 'sx-question-list-faces)
+
+(defface sx-question-list-user
+ '((t :inherit font-lock-builtin-face))
+ ""
+ :group 'sx-question-list-faces)
+
;;; Backend variables
(defvar sx-question-list--print-function #'sx-question-list--print-info
@@ -169,6 +179,12 @@ Also see `sx-question-list-refresh'."
;; the whole thing customizable)
(propertize (format "%-40s" (mapconcat #'sx-question--tag-format .tags " "))
'face 'sx-question-list-tags)
+ " "
+ (let-alist .owner
+ (format "%15s %5s"
+ (propertize .display_name 'face 'sx-question-list-user)
+ (propertize (number-to-string .reputation)
+ 'face 'sx-question-list-reputation)))
(propertize " " 'display "\n")))))))
(defvar sx-question-list--pages-so-far 0