Turn tags into buttons

1 files changed, 6 insertions, 1 deletions

diff --git a/sx-tag.el b/sx-tag.el
index d69f330..ba32544 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -137,7 +137,12 @@ tags."
 ;;; Printing
 (defun sx-tag--format (tag)
   "Formats TAG for display."
-  (concat "[" tag "]"))
+  (with-temp-buffer
+    (insert-text-button (concat "[" tag "]")
+                        'sx-button-copy tag
+                        'sx-tag tag
+                        :type 'sx-button-tag)
+    (buffer-string)))
 
 (provide 'sx-tag)
 ;;; sx-tag.el ends here