diff options
Diffstat (limited to 'sx-interaction.el')
| -rw-r--r-- | sx-interaction.el | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/sx-interaction.el b/sx-interaction.el index df871dd..ce00889 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -26,6 +26,8 @@ (require 'sx-question) (require 'sx-question-mode) (require 'sx-question-list) +(require 'sx-compose) +(require 'sx-tab) ;;; Using data in buffer @@ -222,6 +224,21 @@ from context at point." (sx--maybe-update-display buffer)))))))) +;;; Asking +(defun sx-ask (site) + "Start composing a question for SITE. +SITE is a string, indicating where the question will be posted." + ;; Answering doesn't really make sense from anywhere other than + ;; inside a question. So we don't need `sx--data-here' here. + (interactive (list (sx-tab--interactive-site-prompt))) + (let ((buffer (current-buffer))) + (pop-to-buffer + (sx-compose--create + site nil nil + ;; After send functions + (list (lambda (_ res) (sx--maybe-update-display buffer))))))) + + ;;; Answering (defun sx-answer (data) "Start composing an answer for question given by DATA. |