diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-18 18:35:24 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-18 18:35:24 +0200 |
| commit | 404f004a2ad9b81542571ec785fdbd948b9b2ee1 (patch) | |
| tree | 0dba5e27409b7db6faa34582c031b39a899ef91a | |
| parent | 9ba2b21fc391a1d732689e1dd06fe66fd0c6d8af (diff) | |
filters: hack to fix nav
| -rw-r--r-- | lisp/mastodon-views.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index e47e0dc..cce43fc 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -639,22 +639,26 @@ JSON is the filters data." "Insert a single FILTER." (let-alist filter (insert + ;; FIXME: awful hack to fix nav: exclude horiz-bar from propertize then + ;; propertize rest of the filter text. if we add only byline prop to + ;; title, point will move to end of title, because at that byline-prop + ;; change, item-type prop is present. + (mastodon-tl--set-face + (concat "\n " mastodon-tl--horiz-bar "\n ") + 'success) (propertize (concat ;; heading: (mastodon-tl--set-face - (concat "\n " mastodon-tl--horiz-bar "\n " - (propertize (upcase .title) - 'byline t) - " " "\n" - " " mastodon-tl--horiz-bar "\n") + (concat (upcase .title) " " "\n " + mastodon-tl--horiz-bar "\n") 'success) ;; context: - (concat "Context: " - (mapconcat #'identity .context ", ")) + (concat "Context: " (mapconcat #'identity .context ", ")) ;; type (warn or hide): (concat "\nType: " .filter_action)) 'item-json filter + 'byline t 'item-id .id 'filter-title .title 'item-type 'filter)) |