diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 19:06:00 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-14 19:06:00 +0200 |
| commit | f8ab918cf298a5719f1df044669436137b172484 (patch) | |
| tree | d0583a76cd7c88095558daa34c2b0502b5ff7841 | |
| parent | 153b1682d015624f3fe0fc716f8cfd5e8b6161a5 (diff) | |
partly refactor views function.
| -rw-r--r-- | lisp/mastodon-views.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 24fe6d7..8110e50 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -164,16 +164,12 @@ request. This function is used as the update-function to `mastodon-tl--init-sync', which initializes a buffer for us and provides the JSON data." + ;; FIXME: this breaks pagination, duh! (erase-buffer) - (insert (mastodon-tl--set-face - (concat "\n " mastodon-tl--horiz-bar "\n " - (upcase view-name) - "\n " mastodon-tl--horiz-bar "\n\n") - 'success) - (if bindings-string - (mastodon-tl--set-face (concat "[" bindings-string "]\n\n") - 'font-lock-comment-face) - "")) + (mastodon-search--insert-heading view-name) ; this cd go in init-sync + (when bindings-string + (insert (mastodon-tl--set-face (concat "[" bindings-string "]\n\n") + 'font-lock-comment-face))) (if (seq-empty-p data) (insert (propertize (format "Looks like you have no %s for now." view-name) |