Merge pull request #233 from vermiculus/tag-buttons

Tag buttons

1 files changed, 22 insertions, 0 deletions

diff --git a/sx-tag.el b/sx-tag.el
index b2ad375..316226b 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -23,6 +23,13 @@
 
 (require 'sx)
 (require 'sx-method)
+(require 'sx-button)
+
+(defface sx-tag
+  '((t :underline nil :inherit font-lock-function-name-face))
+  "Face used on the question tags in the question buffer."
+  :group 'sx-question-mode-faces
+  :group 'sx-question-list-faces)
 
 
 ;;; Getting the list from a site
@@ -133,6 +140,21 @@ tags."
       (push input list))
     (reverse list)))
 
+
+;;; Printing
+(defun sx-tag--format (tag)
+  "Format and return TAG for display."
+  (with-temp-buffer
+    (sx-tag--insert tag)
+    (buffer-string)))
+
+(defun sx-tag--insert (tag)
+  "Insert TAG button."
+  (insert-text-button (concat "[" tag "]")
+                      'sx-button-copy tag
+                      'sx-tag tag
+                      :type 'sx-button-tag))
+
 (provide 'sx-tag)
 ;;; sx-tag.el ends here