From eca252dfddba3b18d4da74bee1b802c8d59e0c4a Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sat, 29 Nov 2014 20:53:52 +0000
Subject: New "Add a Comment" button

---
 sx-button.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'sx-button.el')

diff --git a/sx-button.el b/sx-button.el
index ed94558..afc1cf7 100644
--- a/sx-button.el
+++ b/sx-button.el
@@ -25,6 +25,7 @@
 
 (require 'sx)
 (require 'sx-question)
+(require 'sx-interaction)
 
 
 ;;; Command definitions
@@ -92,6 +93,13 @@ This is usually a link's URL, or the content of a code block."
   'action    #'sx-button-follow-link
   :supertype 'sx-button)
 
+(define-button-type 'sx-button-comment
+  'help-echo (concat "mouse-1, RET"
+                     (propertize ": write a comment"
+                                 'face 'minibuffer-prompt))
+  'action    #'sx-comment
+  :supertype 'sx-button)
+
 (provide 'sx-button)
 ;;; sx-button.el ends here
 
-- 
cgit v1.2.3