From 028ab8ea22283fe4ae956894ef4cb6b002e2272e Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Tue, 30 Jul 2024 14:57:19 +0200
Subject: fix newlines accumulating on (un)folding toots
---
lisp/mastodon-tl.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
(limited to 'lisp')
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 908a063..70d0223 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -1602,6 +1602,7 @@ Folding decided by `mastodon-tl--fold-toots-at-length'."
(save-excursion
(goto-char beg)
(delete-region beg end)
+ (delete-char 1) ;; prevent newlines accumulating
(mastodon-tl--toot toot nil nil nil
(when (not fold) :unfolded)))
;; move point to line where text formerly ended:
@@ -1612,7 +1613,9 @@ Folding decided by `mastodon-tl--fold-toots-at-length'."
(defun mastodon-tl--fold-post ()
"Fold post at point, if it is too long."
(interactive)
- (mastodon-tl--unfold-post :fold))
+ (mastodon-tl--unfold-post :fold)
+ ;; inserting leaves us at beg of toot, so let's leave point at byline:
+ (mastodon-tl--goto-next-item))
;; from mastodon-alt.el:
(defun mastodon-tl--toot-for-stats (&optional toot)
--
cgit v1.2.3