From 7af2f459b7ed7375fd9df1a960d78aeba7e27351 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 9 Oct 2024 12:11:35 +0200 Subject: toot: try double newline btw compose docs and body, for paragraph break maybe, seeing as thus sucks so bad, it cd be customize. but we really shouldn't have any interaction/overlap between docs and body. --- lisp/mastodon-toot.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/mastodon-toot.el') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index 8dfee74..fd7e298 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1673,7 +1673,7 @@ REPLY-TEXT is the text of the toot being replied to." 'read-only "Edit your message below." 'toot-post-header t)) ;; allow us to enter text after read-only header: - (propertize "\n" + (propertize "\n\n" 'rear-nonsticky t)))) (defun mastodon-toot--most-restrictive-visibility (reply-visibility) -- cgit v1.2.3 From 5b8d8f7c0f21c1a8428c2c8ad1b3f4e71ca5ffd4 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 9 Oct 2024 12:38:52 +0200 Subject: FIX filling in formatting reply quote! hurrah! --- lisp/mastodon-toot.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'lisp/mastodon-toot.el') diff --git a/lisp/mastodon-toot.el b/lisp/mastodon-toot.el index fd7e298..9aeb790 100644 --- a/lisp/mastodon-toot.el +++ b/lisp/mastodon-toot.el @@ -1686,22 +1686,17 @@ The default is given by `mastodon-toot--default-reply-visibility'." mastodon-toot--default-reply-visibility reply-visibility)))) -(defun mastodon-toot--fill-buffer () - "Mark buffer, call `fill-region'." - (mark-whole-buffer) ; lisp code should not set mark - ;; (fill-region (point-min) (point-max)) ; but this doesn't work - (fill-region (region-beginning) (region-end))) - (defun mastodon-toot--render-reply-region-str (str) "Refill STR and prefix all lines with >, as reply-quote text." (with-temp-buffer (insert str) ;; unfill first: (let ((fill-column (point-max))) - (mastodon-toot--fill-buffer)) + (fill-region (point-min) (point-max))) ;; then fill: - (mastodon-toot--fill-buffer) + (fill-region (point-min) (point-max)) ;; add our own prefix, pauschal: + (goto-char (point-min)) (save-match-data (while (re-search-forward "^" nil t) (replace-match " > "))) -- cgit v1.2.3