diff options
author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-08 21:12:27 +0100 |
---|---|---|
committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-08 21:12:27 +0100 |
commit | 7ffd7b5bad2c265228439f92f1ce8bdc91ff2fe7 (patch) | |
tree | 81878112b2abfe8ff6f7da760a8f3e1b0cf3082f | |
parent | 50723a18f7103afd10ca57a8506d9adad75c4481 (diff) |
instance describe: handle emojis properly
-rw-r--r-- | lisp/mastodon-tl.el | 16 |
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: " |