diff options
| author | marty hiatt <martianhiatus@disroot.org> | 2024-10-26 15:38:29 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@disroot.org> | 2024-10-26 15:48:06 +0200 |
| commit | a40eeddbfd754c651b8a8dbb7919b6db4cd8a67c (patch) | |
| tree | 88b925c459e1d811d30c1c5aab079f626f411cd8 /lisp | |
| parent | 9e4503c0f0aefaa9ace6b402d283bdc3bc92c5ee (diff) | |
profile: remove endpoint name (items heading), replaced by widget
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 28 |
1 files changed, 4 insertions, 24 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 225b3ee..37e66ea 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -663,21 +663,7 @@ MAX-ID is a flag to include the max_id pagination parameter." (setq mastodon-profile--account account) (mastodon-tl--set-buffer-spec buffer endpoint update-function link-header args nil max-id-str) - (let* ((inhibit-read-only t) - (endpoint-name - (cond ((string= endpoint-type "statuses") - (cond (no-reblogs - " TOOTS (no boosts)") - (no-replies - " TOOTS (no replies)") - (only-media - " TOOTS (media only)") - (tag - (format " TOOTS (containing #%s)" tag)) - (t - " TOOTS "))) - ((string= endpoint-type "followers") " FOLLOWERS ") - ((string= endpoint-type "following") " FOLLOWING ")))) + (let* ((inhibit-read-only t)) (insert (propertize (concat @@ -688,8 +674,7 @@ MAX-ID is a flag to include the max_id pagination parameter." (propertize .display_name 'face 'mastodon-display-name-face) ;; roles (when .roles - (concat " " - (mastodon-profile--render-roles .roles))) + (concat " " (mastodon-profile--render-roles .roles))) "\n" (propertize (concat "@" .acct) 'face 'default) (when (eq .locked t) @@ -737,15 +722,10 @@ MAX-ID is a flag to include the max_id pagination parameter." " | REQUESTED TO FOLLOW YOU") "\n\n") 'success) - ""))) ; for insert call - ;; insert endpoint - (mastodon-tl--set-face (concat " " mastodon-tl--horiz-bar "\n" - endpoint-name "\n" - " " mastodon-tl--horiz-bar "\n") - 'success)) + "")))) ; for insert call (setq mastodon-tl--update-point (point)) (mastodon-media--inline-images (point-min) (point)) - ;; widgets + ;; widget items description (mastodon-profile--widget-create (plist-get mastodon-profile--views-plist :kind) ;; (car mastodon-profile--views-plist) |