branch: elpa/fedi
commit 1e721e3a7c48b2bf60a5518f4065d387cba60bff
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
compose-buffer-p
---
fedi-post.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/fedi-post.el b/fedi-post.el
index 9bc772d5397..80d43b79791 100644
--- a/fedi-post.el
+++ b/fedi-post.el
@@ -553,8 +553,14 @@ Added to `after-change-functions'."
"Return t if compose buffer is current."
(let ((buf (buffer-name (current-buffer))))
;; TODO: generalize:
+ ;; (let ((new-or-edit '("new" . "edit"))
+ ;; (types '("post" "issue" "comment")))
(or (equal "*new post*" buf)
- (equal "*edit post*" buf))))
+ (equal "*edit post*" buf)
+ (equal "*new issue*" buf)
+ (equal "*edit issue*" buf)
+ (equal "*new comment*" buf)
+ (equal "*edit comment*" buf))))
(defun fedi-post--fill-reply-in-compose ()
"Fill reply text in compose buffer to the width of the divider."
