[elpa] externals/luwak e0408b2cb6 15/28: org store and capture

[ELPA Syncer]

branch: externals/luwak
commit e0408b2cb6dd773a512a15c55dfe46e4babed654
Author: Yuchen Pei <hi@ypei.me>
Commit: Yuchen Pei <hi@ypei.me>

    org store and capture
---
 luwak.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/luwak.el b/luwak.el
index c8e5470df7..88946f4ac7 100644
--- a/luwak.el
+++ b/luwak.el
@@ -89,6 +89,24 @@ When non-nill, swap the tor-switch in prefix-arg effect."
             index))
     (reverse index)))
 
+(defun luwak-guess-title ()
+  (save-excursion
+    (goto-char (point-min))
+    (re-search-forward "^[^[:space:]]" nil t)
+    (buffer-substring-no-properties (1- (point))
+                                    (progn (end-of-line 1) (point)))))
+
+(defun luwak-org-store-link ()
+  (when (derived-mode-p 'luwak-mode)
+    (org-link-store-props
+     :type "luwak"
+     :link (plist-get luwak-data :url)
+     :description (luwak-guess-title))))
+
+(org-link-set-parameters "luwak"
+                         :follow #'luwak-open
+                         :store #'luwak-org-store-link)
+
 (defun luwak-open (url)
   "Open URL in luwak."
   (interactive "sUrl to open: ")