From b462cc87855ce69b50aab7f0e68a63b79284da4a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 12 Mar 2022 11:23:38 -0600
Subject: Purge org-contacts

... sort of
---
 init.el    |  73 ++++++++++++++++++++++++++++++-------------------------------
 ponder.png | Bin 917646 -> 917644 bytes
 2 files changed, 36 insertions(+), 37 deletions(-)

diff --git a/init.el b/init.el
index 9f6cb41..63214a6 100644
--- a/init.el
+++ b/init.el
@@ -177,42 +177,41 @@
     (add-to-list '+browse-url-secondary-browser-regexps
                  (replace-regexp-in-string "\\." "\\\\." domain)))
   ;; Set up URL handlers.
-  (with-eval-after-load 'org-contacts
-    (require 'chd)
-    (+browse-url-set-handlers
-     (list
-      (cons (rx                           ; images
-             "." (or "jpeg" "jpg" "png" "bmp") eos)
-            (lambda (&rest args)
-              (apply
-               (cond ((executable-find "mpv") #'+browse-image-with-mpv)
-                     (t #'eww-browse-url))
-               args)))
-      (cons (rx (or ;; videos
-                 "youtube.com" "youtu.be" "invidious" "yewtu.be"
-                 (seq "." (or "mp4" "gif" "mov" "MOV" "webm") eos)
-                 ;; music
-                 "soundcloud.com" "bandcamp.com"
-                 (seq "." (or "ogg" "mp3" "opus" "m4a") eos)))
-            (lambda (&rest args)
-              (apply (if (executable-find "mpv")
-                         #'+browse-url-with-mpv
-                       browse-url-secondary-browser-function)
-                     args)))
-      (cons chd/url-regexps #'browse-url-chrome)
-      (cons (+browse-url-secondary-browser-regexps-combine) ; non-text websites
-            (lambda (&rest args)
-              (apply browse-url-secondary-browser-function args)))
-      (cons "xkcd\\.com"
-            (lambda (&rest args)
-              (apply (if (fboundp #'xkcd-get)
-                         (progn (require '+xkcd)
-                                #'+xkcd-get-from-url)
-                       +browse-url-browser-function)
-                     args)))
-      (cons "."                           ; everything else
-            (lambda (&rest args)
-              (apply +browse-url-browser-function args))))))
+  (require 'chd)
+  (+browse-url-set-handlers
+   (list
+    (cons (rx                           ; images
+           "." (or "jpeg" "jpg" "png" "bmp") eos)
+          (lambda (&rest args)
+            (apply
+             (cond ((executable-find "mpv") #'+browse-image-with-mpv)
+                   (t #'eww-browse-url))
+             args)))
+    (cons (rx (or ;; videos
+               "youtube.com" "youtu.be" "invidious" "yewtu.be"
+               (seq "." (or "mp4" "gif" "mov" "MOV" "webm") eos)
+               ;; music
+               "soundcloud.com" "bandcamp.com"
+               (seq "." (or "ogg" "mp3" "opus" "m4a") eos)))
+          (lambda (&rest args)
+            (apply (if (executable-find "mpv")
+                       #'+browse-url-with-mpv
+                     browse-url-secondary-browser-function)
+                   args)))
+    (cons chd/url-regexps #'browse-url-chrome)
+    (cons (+browse-url-secondary-browser-regexps-combine) ; non-text websites
+          (lambda (&rest args)
+            (apply browse-url-secondary-browser-function args)))
+    (cons "xkcd\\.com"
+          (lambda (&rest args)
+            (apply (if (fboundp #'xkcd-get)
+                       (progn (require '+xkcd)
+                              #'+xkcd-get-from-url)
+                     +browse-url-browser-function)
+                   args)))
+    (cons "."                           ; everything else
+          (lambda (&rest args)
+            (apply +browse-url-browser-function args)))))
   ;; Transform URLs before passing to `browse-url'
   (:option +browse-url-transformations `((,(rx (or "youtube.com"
                                                    "youtu.be"))
@@ -698,7 +697,7 @@
         :unnarrowed t))
   (+org-capture-sort))
 
-(setup org-contacts
+(setup org-contacts (:quit)
   (:load-after org)
   (:also-straight org-vcard)                 ; for importing Vcard files
   (:option org-contacts-matcher "contact")    ; Contacts are tagged "contact"
diff --git a/ponder.png b/ponder.png
index 4769dcb..c7b9a8e 100644
Binary files a/ponder.png and b/ponder.png differ
-- 
cgit 1.4.1-21-gabe81