aboutsummaryrefslogtreecommitdiff
path: root/sx-question-print.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-12-02 00:43:37 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-12-02 00:43:37 +0000
commit142916ca3639995e7a06277ded627b3b01ee4931 (patch)
tree665403585b7653e3a22cb66d471c49eb018cad47 /sx-question-print.el
parentc6d0ee75c520041e9117422f7b8d5e86ca6cd5d4 (diff)
Add an answer button
Diffstat (limited to 'sx-question-print.el')
-rw-r--r--sx-question-print.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/sx-question-print.el b/sx-question-print.el
index 307742a..f206f56 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -177,6 +177,9 @@ QUESTION must be a data structure returned by `json-read'."
(sx-question-mode--print-section question)
(sx-assoc-let question
(mapc #'sx-question-mode--print-section .answers))
+ (insert "\n\n ")
+ (insert-text-button "Write an Answer" :type 'sx-button-answer)
+ ;; Reposition
(goto-char (point-min))
(sx-question-mode-next-section))