From 2ee72cc4361031f3ab34e312fca191125ce18bfc Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 20:04:24 -0200
Subject: Move tag-format to sx-tag.el

---
 sx-question-list.el  | 2 +-
 sx-question-print.el | 2 +-
 sx-question.el       | 4 ----
 sx-tag.el            | 6 ++++++
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/sx-question-list.el b/sx-question-list.el
index 884f994..306d39f 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -170,7 +170,7 @@ Also see `sx-question-list-refresh'."
          " "
          ;; @TODO: Make this width customizable. (Or maybe just make
          ;; the whole thing customizable)
-         (propertize (format "%-40s" (mapconcat #'sx-question--tag-format .tags " "))
+         (propertize (format "%-40s" (mapconcat #'sx-tag--format .tags " "))
                      'face 'sx-question-list-tags)
          " "
          (sx-user--format "%15d %4r" .owner)
diff --git a/sx-question-print.el b/sx-question-print.el
index 9a51efb..b258fde 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -223,7 +223,7 @@ DATA can represent a question or an answer."
           ;; Tags
           (sx-question-mode--insert-header
            sx-question-mode-header-tags
-           (mapconcat #'sx-question--tag-format .tags " ")
+           (mapconcat #'sx-tag--format .tags " ")
            'sx-question-mode-tags))
         ;; Body
         (insert "\n"
diff --git a/sx-question.el b/sx-question.el
index 1adbc24..0f73795 100644
--- a/sx-question.el
+++ b/sx-question.el
@@ -183,10 +183,6 @@ If no cache exists for it, initialize one with SITE."
     (and (integerp .accepted_answer_id)
          .accepted_answer_id)))
 
-(defun sx-question--tag-format (tag)
-  "Formats TAG for display."
-  (concat "[" tag "]"))
-
 (provide 'sx-question)
 ;;; sx-question.el ends here
 
diff --git a/sx-tag.el b/sx-tag.el
index b2ad375..d69f330 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -133,6 +133,12 @@ tags."
       (push input list))
     (reverse list)))
 
+
+;;; Printing
+(defun sx-tag--format (tag)
+  "Formats TAG for display."
+  (concat "[" tag "]"))
+
 (provide 'sx-tag)
 ;;; sx-tag.el ends here
 
-- 
cgit v1.2.3


From c08dc31400711fbebea2c7ca650bd72dc3f92392 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 21:56:45 -0200
Subject: Implement sx-search-tag-at-point command

---
 sx-search.el | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/sx-search.el b/sx-search.el
index aefd12e..c22a554 100644
--- a/sx-search.el
+++ b/sx-search.el
@@ -32,6 +32,7 @@
 
 (require 'sx)
 (require 'sx-question-list)
+(require 'sx-question-mode)
 (require 'sx-tag)
 
 (defvar sx-search--query-history nil
@@ -103,6 +104,19 @@ prefix argument, the user is asked for everything."
     (sx-question-list-refresh 'redisplay)
     (switch-to-buffer (current-buffer))))
 
+
+;;; Tag
+(defun sx-search-tag-at-point (&optional pos)
+  "Follow tag under position POS or point."
+  (interactive)
+  (let ((tag (save-excursion
+               (when pos (goto-char pos))
+               (or (get-text-property (point) 'sx-tag)
+                   (thing-at-point 'symbol)))))
+    (sx-search (or sx-question-list--site
+                   (sx-assoc-let sx-question-mode--data .site_par))
+               nil tag)))
+
 (provide 'sx-search)
 ;;; sx-search.el ends here
 
-- 
cgit v1.2.3


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(+)

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


From feb8082bac11154d4f6cc768add49bd9b7c0c107 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:02:41 -0200
Subject: Turn tags into buttons

---
 sx-tag.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3


From 1dfa97db27a72f0121001b1d85c13d1cdee37f31 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:07:09 -0200
Subject: sx-question-mode--insert-header accepts a nil face as third arg

---
 sx-question-print.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/sx-question-print.el b/sx-question-print.el
index b258fde..0ae0f04 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -299,7 +299,10 @@ where `value' is given `face' as its face.
   (while args
     (insert
      (propertize (pop args) 'face 'sx-question-mode-header)
-     (propertize (pop args) 'face (pop args)))))
+     (let ((header (pop args))
+           (face (pop args)))
+       (if face (propertize header 'face face)
+         header)))))
 
 
 ;;;; Printing and Font-locking the content (body)
-- 
cgit v1.2.3


From 74fce2c36f803abe232eebe9f542696b8d0fac23 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:07:48 -0200
Subject: Always use sx-tag face for tags

---
 sx-question-list.el  | 8 +-------
 sx-question-print.el | 7 +------
 sx-tag.el            | 6 ++++++
 3 files changed, 8 insertions(+), 13 deletions(-)

diff --git a/sx-question-list.el b/sx-question-list.el
index 306d39f..256bdb4 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -81,11 +81,6 @@
   ""
   :group 'sx-question-list-faces)
 
-(defface sx-question-list-tags
-  '((t :inherit sx-question-mode-tags))
-  ""
-  :group 'sx-question-list-faces)
-
 (defface sx-question-list-date
   '((t :inherit font-lock-comment-face))
   ""
@@ -170,8 +165,7 @@ Also see `sx-question-list-refresh'."
          " "
          ;; @TODO: Make this width customizable. (Or maybe just make
          ;; the whole thing customizable)
-         (propertize (format "%-40s" (mapconcat #'sx-tag--format .tags " "))
-                     'face 'sx-question-list-tags)
+         (format "%-40s" (mapconcat #'sx-tag--format .tags " "))
          " "
          (sx-user--format "%15d %4r" .owner)
          (propertize " " 'display "\n")))))))
diff --git a/sx-question-print.el b/sx-question-print.el
index 0ae0f04..6791222 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -79,11 +79,6 @@ Some faces of this mode might be defined in the `sx-user' group."
   :type 'string
   :group 'sx-question-mode)
 
-(defface sx-question-mode-tags
-  '((t :underline nil :inherit font-lock-function-name-face))
-  "Face used on the question tags in the question buffer."
-  :group 'sx-question-mode-faces)
-
 (defface sx-question-mode-score
   '((t))
   "Face used for the score in the question buffer."
@@ -224,7 +219,7 @@ DATA can represent a question or an answer."
           (sx-question-mode--insert-header
            sx-question-mode-header-tags
            (mapconcat #'sx-tag--format .tags " ")
-           'sx-question-mode-tags))
+           nil))
         ;; Body
         (insert "\n"
                 (propertize sx-question-mode-separator
diff --git a/sx-tag.el b/sx-tag.el
index ba32544..d9e2877 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -24,6 +24,12 @@
 (require 'sx)
 (require 'sx-method)
 
+(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
 (defconst sx-tag-filter
-- 
cgit v1.2.3


From faddde5ff2c4f41c4844ee4ae88819dcfab5d8c8 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:17:20 -0200
Subject: Define sx-button--tag-help-echo

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

diff --git a/sx-button.el b/sx-button.el
index 69e8a7e..1d4eb4f 100644
--- a/sx-button.el
+++ b/sx-button.el
@@ -117,6 +117,12 @@ usually part of a code-block."
     "link")
   "Help echoed in the minibuffer when point is on a user.")
 
+(defconst sx-button--tag-help-echo
+  (format sx-button--help-echo
+    "Tag search"
+    "tag")
+  "Help echoed in the minibuffer when point is on a tag.")
+
 (defconst sx-button--question-title-help-echo
   (format sx-button--help-echo
     "hide content"
-- 
cgit v1.2.3


From 33746908e639e53320fe1412ae01b01854a98605 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:31:08 -0200
Subject: Define sx-tag--insert

---
 sx-tag.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/sx-tag.el b/sx-tag.el
index d9e2877..009c8b1 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -142,14 +142,18 @@ tags."
 
 ;;; Printing
 (defun sx-tag--format (tag)
-  "Formats TAG for display."
+  "Format and return TAG for display."
   (with-temp-buffer
-    (insert-text-button (concat "[" tag "]")
-                        'sx-button-copy tag
-                        'sx-tag tag
-                        :type 'sx-button-tag)
+    (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
 
-- 
cgit v1.2.3


From b4c850e313e51f27196de473e1bcfc546c0abb6a Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:31:53 -0200
Subject: Turn tags inside body into buttons. Fix #229

---
 sx-question-print.el | 33 ++++++++++++++++++++-------------
 1 file changed, 20 insertions(+), 13 deletions(-)

diff --git a/sx-question-print.el b/sx-question-print.el
index 6791222..d7c2a20 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -315,7 +315,8 @@ E.g.:
 
 (defconst sx-question-mode--link-regexp
   ;; Done at compile time.
-  (rx (or (and "[" (group-n 1 (1+ (not (any "]")))) "]"
+  (rx (or (and "[tag:" (group-n 5 (+ (not (any " ]")))) "]")
+          (and "[" (group-n 1 (1+ (not (any "]")))) "]"
                (or (and "(" (group-n 2 (1+ (not (any ")")))) ")")
                    (and "[" (group-n 3 (1+ (not (any "]")))) "]")))
           (group-n 4 (and (and "http" (opt "s") "://") ""
@@ -363,18 +364,24 @@ E.g.:
   (save-excursion
     (goto-char (point-min))
     (while (search-forward-regexp sx-question-mode--link-regexp nil t)
-      (let* ((text (match-string-no-properties 1))
-             (url (or (match-string-no-properties 2)
-                      (match-string-no-properties 4)
-                      (sx-question-mode-find-reference
-                       (match-string-no-properties 3)
-                       text)))
-             (full-text (match-string-no-properties 0)))
-        (when (stringp url)
-          (replace-match "")
-          (sx-question-mode--insert-link
-           (or (if sx-question-mode-pretty-links text full-text) url)
-           url))))))
+      ;; Tags are tag-buttons.
+      (let ((tag (match-string-no-properties 5)))
+        (if (and tag (> (length tag) 0))
+            (progn (replace-match "")
+                   (sx-tag--insert tag))
+          ;; Other links are link-buttons.
+          (let* ((text (match-string-no-properties 1))
+                 (url (or (match-string-no-properties 2)
+                          (match-string-no-properties 4)
+                          (sx-question-mode-find-reference
+                           (match-string-no-properties 3)
+                           text)))
+                 (full-text (match-string-no-properties 0)))
+            (when (stringp url)
+              (replace-match "")
+              (sx-question-mode--insert-link
+               (or (if sx-question-mode-pretty-links text full-text) url)
+               url))))))))
 
 (defun sx-question-mode--insert-link (text url)
   "Return a link propertized version of string TEXT.
-- 
cgit v1.2.3


From 058cca312d48ad44dc8b633be74e5731446d158e Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 15 Jan 2015 22:46:32 -0200
Subject: require 'sx-button

---
 sx-tag.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sx-tag.el b/sx-tag.el
index 009c8b1..316226b 100644
--- a/sx-tag.el
+++ b/sx-tag.el
@@ -23,6 +23,7 @@
 
 (require 'sx)
 (require 'sx-method)
+(require 'sx-button)
 
 (defface sx-tag
   '((t :underline nil :inherit font-lock-function-name-face))
-- 
cgit v1.2.3


From bed5191a0137cb115656baf6ae3535b2a646d0b2 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Fri, 16 Jan 2015 12:56:02 -0200
Subject: Fix and improve tests

---
 test/test-printing.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/test/test-printing.el b/test/test-printing.el
index 7384829..52fe5be 100644
--- a/test/test-printing.el
+++ b/test/test-printing.el
@@ -28,11 +28,18 @@ after being run through `sx-question--tag-format'."
 
 ;;; Tests
 (ert-deftest question-list-tag ()
-  "Test `sx-question--tag-format'."
+  "Test `sx-tag--format'."
   (should
-   (string=
-    (sx-question--tag-format "tag")
-    "[tag]")))
+   (string= (sx-tag--format "tag") "[tag]"))
+  (with-temp-buffer
+    (insert (sx-tag--format "tag"))
+    (should (get-char-property (point-min) 'button))
+    (should
+     (eq (get-char-property (point-min) 'face) 'sx-tag))
+    (should
+     (string= (get-char-property (point-min) 'sx-tag) "tag"))
+    (should
+     (string= (get-char-property (point-min) 'sx-button-copy) "tag"))))
 
 (ert-deftest question-list-display ()
   (cl-letf (((symbol-function #'sx-request-make)
-- 
cgit v1.2.3


From 6f83f1ef10f1316b489eba926aebecb51f37a6e7 Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Mon, 26 Jan 2015 14:52:21 -0200
Subject: Fix test

---
 test/test-printing.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/test/test-printing.el b/test/test-printing.el
index 52fe5be..a6815e2 100644
--- a/test/test-printing.el
+++ b/test/test-printing.el
@@ -13,7 +13,7 @@
 (defmacro question-list-regex (title votes answers &rest tags)
   "Construct a matching regexp for TITLE, VOTES, and ANSWERS.
 Each element of TAGS is appended at the end of the expression
-after being run through `sx-question--tag-format'."
+after being run through `sx-tag--format'."
   `(rx line-start
        (+ whitespace) ,(number-to-string votes)
        (+ whitespace) ,(number-to-string answers)
@@ -22,8 +22,7 @@ after being run through `sx-question--tag-format'."
        (+ (any whitespace digit))
        (or "y" "d" "h" "m" "mo" "s") " ago"
        (+ whitespace)
-       (eval (mapconcat #'sx-question--tag-format
-                        (list ,@tags) " "))))
+       (eval (mapconcat #'sx-tag--format (list ,@tags) " "))))
 
 
 ;;; Tests
-- 
cgit v1.2.3


From 1f73185f411de81a5e26152377c499498d732d8c Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Thu, 12 Feb 2015 21:26:03 -0200
Subject: require 'sx-tag

---
 sx-question-list.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/sx-question-list.el b/sx-question-list.el
index 07355d0..333fd83 100644
--- a/sx-question-list.el
+++ b/sx-question-list.el
@@ -27,6 +27,7 @@
 
 (require 'sx)
 (require 'sx-time)
+(require 'sx-tag)
 (require 'sx-site)
 (require 'sx-question)
 (require 'sx-question-mode)
-- 
cgit v1.2.3