blob: 2fc7234db7ea6bfc55faff40c6effa9695bc1a95 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;;; +org-drawer-list.el --- Add stuff to org drawers easy-style -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'org)
(require '+org)
(require 'ol)
(require 'org-drawer-list)
(defcustom +org-drawer-list-resources-drawer "RESOURCES"
"Where to add links with `+org-drawer-list-add-resource'.")
(defun +org-drawer-list-add-resource (url &optional title)
"Add URL to the resource drawer of the current tree.
The resource drawer is given by the variable
`+org-drawer-list-resources-drawer'. If optional TITLE is given,
format the list item as an Org link."
(interactive
(let* ((clipboard-url (if (string-match-p (rx (sequence bos
(or "http"
"gemini"
"gopher"
"tel"
"mailto")))
(current-kill 0))
(string-trim (current-kill 0))
(read-string "URL: ")))
(url-title (let ((clipboard-headings
(+org-insert--get-title-and-headings clipboard-url)))
(read-string "title (edit): "
(completing-read
"title: " clipboard-headings
nil nil nil nil (car clipboard-headings))))))
(list clipboard-url url-title)))
(org-drawer-list-add +org-drawer-list-resources-drawer
(org-link-make-string url title)))
(provide '+org-drawer-list)
;;; +org-drawer-list.el ends here
|
