From e0408b2cb6dd773a512a15c55dfe46e4babed654 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Thu, 20 Oct 2022 15:56:27 +1100 Subject: org store and capture --- luwak.el | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/luwak.el b/luwak.el index c8e5470..88946f4 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: ") -- cgit v1.2.3