Support for org-store-link

Should fix #310

1 files changed, 13 insertions, 1 deletions

diff --git a/sx-interaction.el b/sx-interaction.el
index ec11710..5d1039e 100644
--- a/sx-interaction.el
+++ b/sx-interaction.el
@@ -215,9 +215,21 @@ Element can be a question, answer, or comment."
            (sx-display-question
             (sx-question-get-question .site_par .id) 'focus))
           (t (error "Don't know how to open this link, please file a bug report: %s"
-               link)
+                    link)
              nil))))))
 
+;;;###autoload
+(defun sx-org-get-link ()
+  "Add a link to this post to Org's memory."
+  (when (memq major-mode '(sx-question-mode sx-question-list-mode))
+    (sx-assoc-let (sx--data-here)
+      (when .link
+        (org-store-link-props :type 'http
+                              :link .link
+                              :description .title)))))
+(eval-after-load "org"
+  '(add-to-list 'org-store-link-functions #'sx-org-get-link))
+
 
 ;;; Displaying
 (defun sx-display (&optional data)