meh

1 files changed, 9 insertions, 3 deletions

@@ -26,7 +26,7 @@ format the list item as an Org link."
                                                                "mailto")))
                                              (current-kill 0))
                              (string-trim (current-kill 0))
-                           (read-string "URL: ")))
+                           (read-string "Resource URL: ")))
           (url-title (let ((clipboard-headings
                             (+org-insert--get-title-and-headings clipboard-url)))
                        (read-string "title (edit): "
@@ -34,8 +34,14 @@ format the list item as an Org link."
                                      "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)))
+  (let (current-visible-mode visible-mode)
+    ;; XXX: This is not the "proper" way to fix the issue I was having --- I've
+    ;; isolated the bug to somewhere in `org-insert-item', but this fix works
+    ;; well enough™ for now.
+    (visible-mode +1)
+    (org-drawer-list-add +org-drawer-list-resources-drawer
+                         (org-link-make-string url title))
+    (visible-mode (if current-visible-mode +1 -1))))
 
 (provide '+org-drawer-list)
 ;;; +org-drawer-list.el ends here