Display comment score

1 files changed, 13 insertions, 10 deletions

diff --git a/sx-question-print.el b/sx-question-print.el
index dc853ba..6131684 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -291,17 +291,20 @@ The comment is indented, filled, and then printed according to
       (list 'sx--data-here comment-data)
     (sx-assoc-let comment-data
       (insert
+       (if (> .score 0) (number-to-string .score) "")
+       (if (eq .upvoted t) "^"                    "")
+       (if (or (> .score 0) .upvoted) " "         "")
        (format
-        sx-question-mode-comments-format
-        (sx-question-mode--propertize-display-name .owner)
-        (substring
-         ;; We fill with three spaces at the start, so the comment is
-         ;; slightly indented.
-         (sx-question-mode--fill-and-fontify
-          (concat "   " .body_markdown))
-         ;; Then we remove the spaces from the first line, since we'll
-         ;; add the username there anyway.
-         3))))))
+           sx-question-mode-comments-format
+         (sx-question-mode--propertize-display-name .owner)
+         (substring
+          ;; We fill with three spaces at the start, so the comment is
+          ;; slightly indented.
+          (sx-question-mode--fill-and-fontify
+           (concat "   " .body_markdown))
+          ;; Then we remove the spaces from the first line, since we'll
+          ;; add the username there anyway.
+          3))))))
 
 (defun sx-question-mode--insert-header (&rest args)
   "Insert propertized ARGS.