From dd3afe747ecf51f87d33318c2ad68953d153495f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 23 May 2022 20:12:53 -0500
Subject: meh

---
 lisp/+org-drawer-list.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'lisp/+org-drawer-list.el')

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."
                                                                "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
-- 
cgit 1.4.1-21-gabe81