diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-09 20:19:32 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-05-09 20:19:32 +0200 |
| commit | dbbf6189edb3a7e883c9bb42ff0a7f812538b441 (patch) | |
| tree | 3accc7e81abf7efa486134202e79b12e7ab47603 | |
| parent | c8fa23d5b587dbc0db705d991622dcbb762e4f25 (diff) | |
small refactor of args at end of instances/rules fun
| -rw-r--r-- | lisp/mastodon-views.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 0dd74a3..16bcaa1 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -876,12 +876,9 @@ IND is the optional indentation level to print at." (insert (mastodon-views--format-key el pad) " " (mastodon-views--newline-if-long (cdr el)) - ;; only send strings straight to --render-text - ;; this makes hyperlinks work: - (if (not (stringp val)) - (mastodon-tl--render-text - (prin1-to-string val)) - (mastodon-tl--render-text val)) + ;; only send strings to --render-text (for hyperlinks): + (mastodon-tl--render-text + (if (stringp val) val (prin1-to-string val))) "\n")))))))) (defun mastodon-views--print-instance-rules-or-fields (alist) |