From 6b370f8dfc9ffbef757230732f5d158707d7f6e0 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 17 Dec 2014 12:36:11 -0200
Subject: Support editing comments.

---
 sx-compose.el | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'sx-compose.el')

diff --git a/sx-compose.el b/sx-compose.el
index 96f47f3..af9d861 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -146,19 +146,22 @@ respectively added locally to `sx-compose-before-send-hook' and
       (error "Invalid PARENT"))
   (let ((is-question
          (and (listp parent)
-              (null (cdr (assoc 'answer_id parent))))))
+              (cdr (assoc 'title parent)))))
     (with-current-buffer (sx-compose--get-buffer-create site parent)
       (sx-compose-mode)
       (setq sx-compose--send-function
             (if (consp parent)
                 (sx-assoc-let parent
-                  (lambda () (sx-method-call (if .title 'questions 'answers)
+                  (lambda () (sx-method-call (cond
+                                         (.title 'questions)
+                                         (.comment_id 'comments)
+                                         (t 'answers))
                           :auth 'warn
                           :url-method "POST"
                           :filter sx-browse-filter
                           :site site
                           :keywords (sx-compose--generate-keywords is-question)
-                          :id (or .answer_id .question_id)
+                          :id (or .comment_id .answer_id .question_id)
                           :submethod 'edit)))
               (lambda () (sx-method-call 'questions
                       :auth 'warn
@@ -256,8 +259,13 @@ the id property."
        site data)))
    (t
     (get-buffer-create
-     (format "*sx draft edit %s %s*"
-       site (sx-assoc-let data (or .answer_id .question_id)))))))
+     (sx-assoc-let data
+       (format "*sx draft edit %s %s %s*"
+         site
+         (cond (.title "question")
+               (.comment_id "comment")
+               (t "answer"))
+         (or .comment_id .answer_id .question_id)))))))
 
 (provide 'sx-compose)
 ;;; sx-compose.el ends here
-- 
cgit v1.2.3


From 6e38818cf6d3c79eaf0d105e8628f066bb536579 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 17 Dec 2014 12:36:58 -0200
Subject: Close compose window when buffer is killed.

---
 sx-compose.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'sx-compose.el')

diff --git a/sx-compose.el b/sx-compose.el
index af9d861..5201435 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -117,9 +117,12 @@ contents to the API, then calls `sx-compose-after-send-functions'."
                               (current-buffer) result)))))
 
 (defun sx-compose-quit (buffer _)
-  "Kill BUFFER."
+  "Close BUFFER's window and kill it."
   (interactive (list (current-buffer) nil))
   (when (buffer-live-p buffer)
+    (let ((w (get-buffer-window buffer)))
+      (when (window-live-p w)
+        (delete-window w)))
     (kill-buffer buffer)))
 
 (defun sx-compose--copy-as-kill (buffer _)
-- 
cgit v1.2.3