diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-08-15 20:23:21 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-08-15 20:23:21 +0200 |
| commit | 70dff6c4a70822bfc7502010682d3ab0a5002839 (patch) | |
| tree | 73c446ee13302bce75aacb0d9407f751e6915f79 /lisp/mastodon-views.el | |
| parent | 96e7d2e5815e2d05ffff4ab6ee2188fc496c8ca9 (diff) | |
filters cleanup
Diffstat (limited to 'lisp/mastodon-views.el')
| -rw-r--r-- | lisp/mastodon-views.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 31bb6f0..c1a6054 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -594,9 +594,10 @@ NO-CONFIRM means there is no ask or message, there is only do." JSON is the filters data." (mapc #'mastodon-views--insert-filter json)) +(require 'table) + (defun mastodon-views--insert-filter-kws (kws) "Insert filter keywords KWS." - ;; FIXME: make this a table (ideally upatable) (insert "\n\n") (let ((beg (point)) (whole-str "whole-words-only:")) @@ -628,10 +629,10 @@ JSON is the filters data." (defun mastodon-views--insert-filter (filter) "Insert a single FILTER." (let-alist filter - ;; heading: (insert (propertize (concat + ;; heading: (mastodon-tl--set-face (concat "\n " mastodon-tl--horiz-bar "\n " (propertize (upcase .title) @@ -650,8 +651,6 @@ JSON is the filters data." 'item-json filter 'item-id .id 'item-type 'filter)) - - ;; FIXME: return a string so we can propertize/insert in here: ;; terms list: (if (not .keywords) ;; poss to have a filter sans keywords "" @@ -665,8 +664,6 @@ JSON is the filters data." Prompt for a context, must be a list containting at least one of \"home\", \"notifications\", \"public\", \"thread\"." (interactive) - ;; FIXME: implement "keywords_attributes[][whole_word]" boolean for each - ;; term (let* ((url (mastodon-http--api "filters" "v2")) (title (read-string "Filter name: ")) (terms (read-string "Terms to filter (comma or space separated): ")) @@ -692,8 +689,9 @@ Prompt for a context, must be a list containting at least one of \"home\", ;; ("keywords_attributes[][whole_word]" . "false")) terms-processed contexts-processed)) - (response (mastodon-http--post url params))) + (resp (mastodon-http--post url params))) (mastodon-views--filters-triage + resp (message "Filter %s created!" title)))) (defun mastodon-views--delete-filter () |