From eca252dfddba3b18d4da74bee1b802c8d59e0c4a Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 29 Nov 2014 20:53:52 +0000 Subject: New "Add a Comment" button --- sx-question-print.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'sx-question-print.el') diff --git a/sx-question-print.el b/sx-question-print.el index b8fc633..22f857c 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -237,7 +237,12 @@ DATA can represent a question or an answer." .body_markdown) "\n" (propertize sx-question-mode-separator - 'face 'sx-question-mode-header))))) + 'face 'sx-question-mode-header)))) + ;; This is where the "add a comment" button is printed. + (insert " ") + (insert-text-button "Add a Comment" + :type 'sx-button-comment) + (insert "\n")) ;; Comments have their own `sx--data-here' property (so they can ;; be upvoted too). (when .comments -- cgit v1.2.3