Merge branch 'main' of tildegit.org:acdw/emacs

init.el

@@ -840,6 +840,9 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
                                (setq input (orderless-pattern-compiler input))
                                (cons input (lambda (str) (orderless--highlight input str)))))
   (+with-eval-after-loads (affe vertico-multiform)
+    (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)))))
     (setf (alist-get 'affe-grep vertico-multiform-commands) '(buffer)
           (alist-get 'affe-find vertico-multiform-commands) '(buffer))
     (:+key "M-s g" #'affe-grep

machines/larry.el

@@ -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")))))