fix insert-filter-kws

1 files changed, 8 insertions, 5 deletions

diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el
index 8c36f27..2a0d248 100644
--- a/lisp/mastodon-views.el
+++ b/lisp/mastodon-views.el
@@ -604,11 +604,15 @@ JSON is the filters data."
 
 (defun mastodon-views--insert-filter-kws (kws)
   "Insert filter keywords KWS."
+  ;; FIXME: make this a table (ideally upatable)
+  (insert "\n\nTerms: | whole words only:")
   (mapc (lambda (kw)
-          (let ((whole (alist-get 'whole_word kw)))
+          (let ((whole (if (eq :json-false (alist-get 'whole_word kw))
+                           "nil"
+                         "t")))
             (insert
              (propertize (concat
-                          (format "\n  %s \"%s\" | whole word: %s"
+                          (format "\n  %s \"%s\" | %s"
                                   (if (char-displayable-p ?―) "―" "-")
                                   (alist-get 'keyword kw)
                                   whole))
@@ -637,10 +641,9 @@ JSON is the filters data."
     ;; type (warn or hide):
     (insert "\n\nType: " .filter_action)
     ;; terms list:
-    (if (not .keywords)
+    (if (not .keywords) ;; poss to have a filter sans keywords
         ""
-      (insert "\n\nTerms:")
-      (mastodon-views--insert-filter-kws \.keywords))
+      (mastodon-views--insert-filter-kws .keywords))
     (insert "\n")))
 
 (defvar mastodon-views--filter-types