diff options
| -rw-r--r-- | custom/jao-custom-gnus.el | 24 |
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 |