Add comment support on sx--link-to-data

1 files changed, 11 insertions, 0 deletions

diff --git a/sx.el b/sx.el
index 950bbf0..ff481c1 100644
--- a/sx.el
+++ b/sx.el
@@ -93,6 +93,17 @@ with a `link' property)."
   (let ((result (list (cons 'site_par (sx--site link)))))
     ;; Try to strip a question or answer ID
     (when (or
+           ;; Comment
+           (and (string-match
+                 ;; From inbox items
+                 (rx "/posts/comments/"
+                     ;; Comment ID
+                     (group-n 1 (+ digit))
+                     ;; Stuff at the end
+                     (or (sequence (any "?#") (* any)) "")
+                     string-end)
+                 link)
+                (push '(type . comment) result))
            ;; Answer
            (and (or (string-match
                      ;; From 'Share' button