diff options
| -rw-r--r-- | sx-interaction.el | 14 |
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) |