aboutsummaryrefslogtreecommitdiff
path: root/sx-button.el
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2015-04-19 13:46:21 +0100
committerArtur Malabarba <bruce.connor.am@gmail.com>2015-04-19 13:46:31 +0100
commit706530f8f96dec5725a46774d85fe98c6b54912a (patch)
tree829c2d3ffeb8a992598d45e1f3e5dc94f29056af /sx-button.el
parent48887789f077b0a9d810f6c9dc9694899d873514 (diff)
Add Accept button to answers. Fixes #276
Diffstat (limited to 'sx-button.el')
-rw-r--r--sx-button.el8
1 files changed, 8 insertions, 0 deletions
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"