diff options
Diffstat (limited to 'lisp/+org-drawer-list.el')
-rw-r--r-- | lisp/+org-drawer-list.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/+org-drawer-list.el b/lisp/+org-drawer-list.el index 2fc7234..5066d4d 100644 --- a/lisp/+org-drawer-list.el +++ b/lisp/+org-drawer-list.el | |||
@@ -26,7 +26,7 @@ format the list item as an Org link." | |||
26 | "mailto"))) | 26 | "mailto"))) |
27 | (current-kill 0)) | 27 | (current-kill 0)) |
28 | (string-trim (current-kill 0)) | 28 | (string-trim (current-kill 0)) |
29 | (read-string "URL: "))) | 29 | (read-string "Resource URL: "))) |
30 | (url-title (let ((clipboard-headings | 30 | (url-title (let ((clipboard-headings |
31 | (+org-insert--get-title-and-headings clipboard-url))) | 31 | (+org-insert--get-title-and-headings clipboard-url))) |
32 | (read-string "title (edit): " | 32 | (read-string "title (edit): " |
@@ -34,8 +34,14 @@ format the list item as an Org link." | |||
34 | "title: " clipboard-headings | 34 | "title: " clipboard-headings |
35 | nil nil nil nil (car clipboard-headings)))))) | 35 | nil nil nil nil (car clipboard-headings)))))) |
36 | (list clipboard-url url-title))) | 36 | (list clipboard-url url-title))) |
37 | (org-drawer-list-add +org-drawer-list-resources-drawer | 37 | (let (current-visible-mode visible-mode) |
38 | (org-link-make-string url title))) | 38 | ;; XXX: This is not the "proper" way to fix the issue I was having --- I've |
39 | ;; isolated the bug to somewhere in `org-insert-item', but this fix works | ||
40 | ;; well enoughâ„¢ for now. | ||
41 | (visible-mode +1) | ||
42 | (org-drawer-list-add +org-drawer-list-resources-drawer | ||
43 | (org-link-make-string url title)) | ||
44 | (visible-mode (if current-visible-mode +1 -1)))) | ||
39 | 45 | ||
40 | (provide '+org-drawer-list) | 46 | (provide '+org-drawer-list) |
41 | ;;; +org-drawer-list.el ends here | 47 | ;;; +org-drawer-list.el ends here |