From f8ab918cf298a5719f1df044669436137b172484 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Sat, 14 Oct 2023 19:06:00 +0200 Subject: partly refactor views function. --- lisp/mastodon-views.el | 14 +++++--------- 1 file 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) -- cgit v1.2.3