Use sx-user--format in the question list

1 files changed, 1 insertions, 15 deletions

diff --git a/sx-question-list.el b/sx-question-list.el
index 1b7fe5a..fd2c20e 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -111,16 +111,6 @@
   ""
   :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
@@ -182,11 +172,7 @@ Also see `sx-question-list-refresh'."
          (propertize (format "%-40s" (mapconcat #'sx-question--tag-format .tags " "))
                      'face 'sx-question-list-tags)
          " "
-         (let-alist .owner
-           (format "%15s %5s"
-             (propertize (or .display_name "") 'face 'sx-question-list-user)
-             (propertize (number-to-string (or .reputation 0))
-                         'face 'sx-question-list-reputation)))
+         (sx-user--format "%15d %4r" .owner)
          (propertize " " 'display "\n")))))))
 
 (defvar sx-question-list--pages-so-far 0