From 4a6200be2e98b68e0869400ae21f89f2c1fa618a Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Mon, 16 Sep 2024 08:54:11 +0200 Subject: filter lists like "home". FIX #575. --- lisp/mastodon-tl.el | 2 ++ lisp/mastodon-views.el | 1 + 2 files changed, 3 insertions(+) (limited to 'lisp') diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 3e488f0..0e98015 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1608,6 +1608,8 @@ Returns a member of `mastodon-views--filter-types'." "public") ((mastodon-tl--profile-buffer-p) "profile") + ((eq buf 'list-timeline) + "home") ;; lists are "home" filter (t ;; thread, notifs, home: (symbol-name buf))))) diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 989a614..ac62b1f 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -690,6 +690,7 @@ Optionally, provide ID, TITLE, CONTEXT, TYPE, and TERMS to update a filter." (warn-or-hide (or type (completing-read "Warn (like CW) or hide? " '("warn" "hide") nil :match))) + ;; TODO: display "home (and lists)" but just use "home" for API (contexts (or context (completing-read-multiple "Filter contexts [TAB for options, comma separated]: " -- cgit v1.2.3