3 files changed, 52 insertions, 39 deletions

@@ -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"))
@@ -818,9 +817,10 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
              (and (executable-find "find")
                   (executable-find "grep"))))
   (:load-after consult orderless vertico)
-  (setq affe-regexp-compiler (defun affe-orderless-regexp-compiler (input _type)
-                               (setq input (orderless-pattern-compiler input))
-                               (cons input (lambda (str) (orderless--highlight input str)))))
+  (setq affe-regexp-compiler
+        (defun affe-orderless-regexp-compiler (input &rest _)
+          (setq input (orderless-pattern-compiler input))
+          (cons input (lambda (str) (orderless--highlight input str)))))
   (with-eval-after-load 'affe
     (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)
           (alist-get 'affe-find vertico-multiform-commands) '(buffer))
@@ -0,0 +1,13 @@
+;;; larry.el --- Customizations for "larry" -*- lexical-binding: t; -*-
+
+;;; Code:
+
+(require 'acdw)
+(require 'machine)
+
+(add-function :after machine-after-load-theme
+              (defun +larry-set-faces (&rest _)
+                (+set-faces
+                 `((default :family "DejaVu Sans Mono")
+                   (fixed-pitch :family "DejaVu Sans Mono")
+                   (variable-pitch :family "DejaVu Sans")))))