diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-27 01:02:34 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-27 01:02:34 -0300 |
| commit | 69a2cfa822f966ded1e4ffe26ef17b265aec5a3c (patch) | |
| tree | c7945122597ad9e325bdf8fdde2e9debb13ecea3 | |
| parent | 0542f3a5461c9f8112f0921c56bd1a7ec51d1a6f (diff) | |
Replace (eq x t) with x
| -rw-r--r-- | sx-question-print.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 454285d..6a21199 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -234,12 +234,12 @@ DATA can represent a question or an answer." (insert-text-button ;; Questions have title, Answers don't (cond (.title) - ((eq .is_accepted t) sx-question-mode-answer-accepted-title) + (.is_accepted sx-question-mode-answer-accepted-title) (t sx-question-mode-answer-title)) ;; Section level 'sx-question-mode--section (if .title 1 2) 'sx-button-copy .share_link - 'face (if (eq .is_accepted t) 'sx-question-mode-accepted + 'face (if .is_accepted 'sx-question-mode-accepted 'sx-question-mode-title) :type 'sx-question-mode-title) @@ -269,9 +269,9 @@ DATA can represent a question or an answer." (sx-question-mode--insert-header sx-question-mode-header-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) + (cond (.upvoted "↑") (.downvoted "↓") (t ""))) + (cond (.upvoted 'sx-question-mode-score-upvoted) + (.downvoted 'sx-question-mode-score-downvoted) (t 'sx-question-mode-score))) ;; Tags @@ -333,7 +333,7 @@ The comment is indented, filled, and then printed according to (sx-assoc-let comment-data (when (and (numberp .score) (> .score 0)) (insert (number-to-string .score) - (if (eq .upvoted t) "^" "") + (if .upvoted "^" "") " ")) (insert (format sx-question-mode-comments-format |