From e850df66ef6d98d6a8733a6e096a8c83c9ad0e3c Mon Sep 17 00:00:00 2001
From: Sean Allred <code@seanallred.com>
Date: Wed, 6 Jan 2016 18:51:33 -0600
Subject: Support for org-store-link

Should fix #310
---
 sx-interaction.el | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

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