From 706530f8f96dec5725a46774d85fe98c6b54912a Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Sun, 19 Apr 2015 13:46:21 +0100
Subject: Add Accept button to answers. Fixes #276

---
 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 194c292..05ebadb 100644
--- a/sx-button.el
+++ b/sx-button.el
@@ -185,6 +185,14 @@ usually part of a code-block."
   'action    #'sx-comment
   :supertype 'sx-button)
 
+(define-button-type 'sx-button-accept
+  'help-echo (concat "mouse-1, RET"
+                     (propertize ": accept answer"
+                                 'face 'minibuffer-prompt))
+  'face 'sx-custom-button
+  'action    #'sx-accept
+  :supertype 'sx-button)
+
 (define-button-type 'sx-button-answer
   'help-echo (concat "mouse-1, RET"
                      (propertize ": write an answer"
-- 
cgit v1.2.3