arxiv capture for rss2emailmain

1 files changed, 12 insertions, 12 deletions

diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index 32571c0..a7059c6 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -448,7 +448,8 @@
   :config
   (add-to-list 'org-capture-templates
                '("x" "arXiv" entry (file "notes/physics/arxiv.org")
-                 "* %(jao-gnus-subject)\n\n  %i" :immediate-finish t)
+                 "* %(jao-gnus-subject)\n\n  %i\n  %(jao-gnus-org-url)"
+                 :immediate-finish t)
                t)
   (add-to-list 'org-capture-templates
                '("X" "arXiv" entry (file "notes/physics/arxiv.org")
@@ -458,6 +459,7 @@
   (org-capture-upgrade-templates org-capture-templates))
 
 (defvar jao-gnus-org-url nil)
+(defun jao-gnus-org-url () jao-gnus-org-url)
 (defun jao-gnus-org-paragraph (x)
   (with-temp-buffer
     (insert "  " (string-trim (or x "")) "\n  ")
@@ -478,17 +480,15 @@
   (setq-local transient-mark-mode 'lambda)
   (set-mark (point))
   (forward-paragraph)
-  (unless (save-excursion
-            (when (re-search-forward "^Link" nil t)
-              (beginning-of-line)
-              (setq jao-gnus-org-url (org-eww-url-below-point))
-              (org-capture nil "X")
-              t))
-    (next-line)
-    (set-mark (point))
-    (end-of-buffer)
-    (org-capture nil "x"))
-  (set-mark (point))
+  (or (and (save-excursion
+             (when (re-search-forward "^Link" nil t)
+               (beginning-of-line)
+               (setq jao-gnus-org-url (org-eww-url-below-point))))
+           (org-capture nil "X"))
+      (and (save-excursion
+             (when (re-search-forward "^URL: " nil t)
+               (setq jao-gnus-org-url (thing-at-point-url-at-point))))
+           (org-capture nil "x")))
   (gnus-article-show-summary))
 
 ;;; article