aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-02-20 20:08:53 -0200
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-02-20 20:08:53 -0200
commit60df6a23b27bc1ff1dfa8f3bdd37c1c4543d980f (patch)
tree09811a82fdea614f2158d835f4788db2efe968ae
parent3ff90f54e74d034224d70fe90bc2fc67aae6d8f4 (diff)
Up and Down arrows when you vote
-rw-r--r--sx-question-print.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/sx-question-print.el b/sx-question-print.el
index 8ba0157..bd764da 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -219,11 +219,11 @@ DATA can represent a question or an answer."
;; Score and upvoted/downvoted status.
(sx-question-mode--insert-header
sx-question-mode-header-score
- (format "%s" .score)
- (cond
- ((eq .upvoted t) 'sx-question-mode-score-upvoted)
- ((eq .downvoted t) 'sx-question-mode-score-downvoted)
- (t 'sx-question-mode-score)))
+ (format "%s%s" .score
+ (cond ((eq .upvoted t) "↑") ((eq .downvoted t) "↓") (t "")))
+ (cond ((eq .upvoted t) 'sx-question-mode-score-upvoted)
+ ((eq .downvoted t) 'sx-question-mode-score-downvoted)
+ (t 'sx-question-mode-score)))
;; Tags
(when .title