branch: elpa/fedi
commit 450a6aae08bf00ec0f43b732b307ac1b83225309
Author: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Commit: marty hiatt <martianhiatus [a t] riseup [d o t] net>
hard coded buffer-p with name string. FIXME
---
fedi-post.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/fedi-post.el b/fedi-post.el
index 70fbcd0fec4..9be78ff9d65 100644
--- a/fedi-post.el
+++ b/fedi-post.el
@@ -647,8 +647,10 @@ Added to `after-change-functions'."
(defun fedi-post--compose-buffer-p ()
"Return t if compose buffer is current."
- (or (mastodon-tl--buffer-type-eq 'edit-post)
- (mastodon-tl--buffer-type-eq 'new-post)))
+ (let ((buf (buffer-name (current-buffer))))
+ ;; TODO: generalize:
+ (or (equal "*new post*" buf)
+ (equal "*edit post*" buf))))
(defun fedi-post--fill-reply-in-compose ()
"Fill reply text in compose buffer to the width of the divider."
