aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el21
1 files changed, 7 insertions, 14 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 0b9de66..7eb3104 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -34,14 +34,6 @@
:prefix "mastodon-tl-"
:group 'mastodon)
-(defface mastodon-tl-toot-text-face
- '((t (:foreground "LightGray")))
- "Toot content face.")
-
-(defface mastodon-tl-toot-display-name-face
- '((t (:foreground "cyan")))
- "Mastodon user handle face.")
-
(defun mastodon-tl--get-federated-timeline ()
"Opens federated timeline."
(interactive)
@@ -99,7 +91,7 @@
(handle (cdr (assoc 'acct account)))
(name (cdr (assoc 'display_name account))))
(concat
- (propertize name 'face 'mastodon-tl-toot-display-name-face)
+ (propertize name 'face 'warning)
" (@"
handle
")")))
@@ -109,16 +101,18 @@
(let ((reblog (cdr (assoc 'reblog toot))))
(when reblog
(concat
- " Boosted "
+ " "
+ (propertize "Boosted" 'face 'highlight)
+ " "
(mastodon-tl--byline-author reblog)))))
(defun mastodon-tl--byline (toot)
(let ((id (cdr (assoc 'id toot))))
(propertize
- (concat "\n | "
+ (concat (propertize "\n | " 'face 'fringe)
(mastodon-tl--byline-author toot)
(mastodon-tl--byline-boosted toot)
- "\n ------------")
+ (propertize "\n ------------" 'face 'fringe))
'toot-id id)))
(defun mastodon-tl--content (toot)
@@ -127,8 +121,7 @@
(cdr (assoc 'content reblog))
(cdr (assoc 'content toot)))))
(propertize (mastodon-tl--remove-html content)
- 'face
- 'mastodon-tl-toot-text-face)))
+ 'face 'default)))
(defun mastodon-tl--toot (toot)
(insert