From 2fd860b5a17fe3f8b7bc3759a79bb7a2ae343bf2 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 21:57:03 -0200
Subject: Define button-tag

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

(limited to 'sx-button.el')

diff --git a/sx-button.el b/sx-button.el
index 5a2f052..69e8a7e 100644
--- a/sx-button.el
+++ b/sx-button.el
@@ -158,6 +158,13 @@ usually part of a code-block."
   'face      'sx-user-name
   :supertype 'sx-button)
 
+(declare-function sx-search-tag-at-point "sx-tag")
+(define-button-type 'sx-button-tag
+  'action    #'sx-search-tag-at-point
+  'help-echo sx-button--tag-help-echo
+  'face      'sx-tag
+  :supertype 'sx-button)
+
 (define-button-type 'sx-button-comment
   'help-echo (concat "mouse-1, RET"
                      (propertize ": write a comment"
-- 
cgit v1.2.3