aboutsummaryrefslogtreecommitdiff
path: root/sx-inbox.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-inbox.el')
-rw-r--r--sx-inbox.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/sx-inbox.el b/sx-inbox.el
index 6114516..1f0f227 100644
--- a/sx-inbox.el
+++ b/sx-inbox.el
@@ -1,6 +1,6 @@
;;; sx-inbox.el --- base inbox logic -*- lexical-binding: t; -*-
-;; Copyright (C) 2014 Artur Malabarba
+;; Copyright (C) 2014-2018 Artur Malabarba
;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
@@ -159,7 +159,8 @@ is an alist containing the elements:
(replace-regexp-in-string
"_" " " (or .item_type .notification_type)))
(cond (.answer_id " on Answer at:")
- (.question_id " on:")))
+ (.question_id " on:")
+ (t ":")))
'face 'font-lock-keyword-face)
(list
(concat (sx-time-since .creation_date)
@@ -168,14 +169,15 @@ is an alist containing the elements:
(list
(propertize
" " 'display
- (concat "\n " (propertize .title 'face 'sx-question-list-date) "\n"
+ (concat "\n " (propertize (or .title "") 'face 'sx-question-list-date) "\n"
+ (when .body
(let ((col fill-column))
(with-temp-buffer
(setq fill-column col)
(insert " " .body)
(fill-region (point-min) (point-max))
(buffer-string))))
- 'face 'default))))))
+ 'face 'default)))))))
;;; Entry commands