diff options
Diffstat (limited to 'lisp/mastodon-tl.el')
| -rw-r--r-- | lisp/mastodon-tl.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index b99f8f7..738c193 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -159,14 +159,14 @@ also render the html" (defun mastodon-tl--spoiler (toot) "Retrieve spoiler message from TOOT." (let* ((spoiler (mastodon-tl--field 'spoiler_text toot)) - (string (mastodon-tl--set-face spoiler 'default t)) - (message (concat "\n ---------------" - "\n Content Warning" - "\n ---------------\n")) - (cw (mastodon-tl--set-face message 'success 'nil))) + (string (mastodon-tl--set-face spoiler 'default t)) + (message (concat "\n ---------------" + "\n Content Warning" + "\n ---------------\n")) + (cw (mastodon-tl--set-face message 'success 'nil))) (if (> (length string) 0) - (replace-regexp-in-string "\n\n\n ---------------" - "\n ---------------" (concat string cw)) + (replace-regexp-in-string "\n\n\n ---------------" + "\n ---------------" (concat string cw)) ""))) @@ -174,11 +174,11 @@ also render the html" "Retreive a media attachment link if one exists." (let ((media (mastodon-tl--field 'media_attachments toot))) (if (> (length media) 0 ) - ;; Extract the preview_url, other options here - ;; are url and remote_url - (let ((link (cdr(assoc 'preview_url (elt media 0))))) - (concat "Media_Link:: " - (mastodon-tl--set-face link 'mouse-face 'nil))) + ;; Extract the preview_url, other options here + ;; are url and remote_url + (let ((link (cdr(assoc 'preview_url (elt media 0))))) + (concat "Media_Link:: " + (mastodon-tl--set-face link 'mouse-face 'nil))) ;; Otherwise return an empty string ""))) |