Implement identifying type, id, and site of a link.

2 files changed, 17 insertions, 0 deletions

diff --git a/sx-interaction.el b/sx-interaction.el
index e7a4d94..2c392e1 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -128,6 +128,7 @@ If DATA is a question, also mark it as read."
       (sx-question--mark-read data)
       (sx--maybe-update-display))))
 
+
 
 ;;; Displaying
 (defun sx-display-question (&optional data focus window)
diff --git a/sx.el b/sx.el
index 4ad0fd5..7d67835 100644
--- a/sx.el
+++ b/sx.el
@@ -317,6 +317,22 @@ If ALIST doesn't have a `site' property, one is created using the
      (sx--ensure-site ,alist)
      (let-alist ,alist ,@body)))
 
+(defun sx--link-to-data (link)
+  "Convert string LINK into data that can be displayed."
+  (let ((result (list (cons 'site (sx--site link)))))
+    (when (or
+           ;; Answer
+           (and (or (string-match "/a/\\([0-9]+\\)/[0-9]+\\(#.*\\|\\)\\'" link)
+                    (string-match "/questions/[0-9]+/[^/]+/\\([0-9]\\)/?\\(#.*\\|\\)\\'" link))
+                (push (cons 'type 'answer) result))
+           ;; Question
+           (and (or (string-match "/q/\\([0-9]+\\)/[0-9]+\\(#.*\\|\\)\\'" link)
+                    (string-match "/questions/\\([0-9]+\\)/" link))
+                (push (cons 'type 'question) result)))
+      (push (cons 'id (string-to-number (match-string-no-properties 1 link)))
+            result))
+    result))
+
 (defcustom sx-init-hook nil
   "Hook run when SX initializes.
 Run after `sx-init--internal-hook'."