From 17d41cf40e36d0f0a7c48c60a7bf8880b659c438 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Tue, 6 Jan 2015 20:53:41 -0200
Subject: Define user button

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

diff --git a/sx-button.el b/sx-button.el
index 2dd20d0..8309543 100644
--- a/sx-button.el
+++ b/sx-button.el
@@ -151,6 +151,13 @@ usually part of a code-block."
   'action    #'sx-button-follow-link
   :supertype 'sx-button)
 
+(define-button-type 'sx-button-user
+  'action    #'sx-button-follow-link
+  'help-echo sx-button--user-help-echo
+  ;; We use different faces on diferent parts of the user button.
+  'face      nil
+  :supertype 'sx-button)
+
 (define-button-type 'sx-button-comment
   'help-echo (concat "mouse-1, RET"
                      (propertize ": write a comment"
-- 
cgit v1.2.3