From 142916ca3639995e7a06277ded627b3b01ee4931 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 2 Dec 2014 00:43:37 +0000
Subject: Add an answer button

---
 sx-question-print.el | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sx-question-print.el')

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))
 
-- 
cgit v1.2.3