aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-08 21:12:27 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2022-11-08 21:12:27 +0100
commit7ffd7b5bad2c265228439f92f1ce8bdc91ff2fe7 (patch)
tree81878112b2abfe8ff6f7da760a8f3e1b0cf3082f /lisp
parent50723a18f7103afd10ca57a8506d9adad75c4481 (diff)
instance describe: handle emojis properly
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-tl.el16
1 files changed, 13 insertions, 3 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 788cd43..3f117bc 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1543,9 +1543,19 @@ IND is the optional indentation level to print at."
"\n"))))))))
(defun mastodon-tl--print-instance-rules-or-fields (alist)
- "Print ALIST of instance rules or contact account fields."
- (let ((key (if (alist-get 'id alist) 'id 'name))
- (value (if (alist-get 'id alist) 'text 'value)))
+ "Print ALIST of instance rules or contact account or emoji fields."
+ (let ((key (cond ((alist-get 'id alist)
+ 'id)
+ ((alist-get 'name alist)
+ 'name)
+ ((alist-get 'shortcode alist)
+ 'shortcode)))
+ (value (cond ((alist-get 'id alist)
+ 'text)
+ ((alist-get 'value alist)
+ 'value)
+ ((alist-get 'url alist)
+ 'url))))
(indent-to 4)
(insert
(format "%-5s: "