From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:41:28 -0500
Subject: Bankruptcy 9

---
 lisp/+org-drawer-list.el | 47 -----------------------------------------------
 1 file changed, 47 deletions(-)
 delete mode 100644 lisp/+org-drawer-list.el

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

diff --git a/lisp/+org-drawer-list.el b/lisp/+org-drawer-list.el
deleted file mode 100644
index 5066d4d..0000000
--- a/lisp/+org-drawer-list.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;;; +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 "Resource 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)))
-  (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