From 979fa11e49ed6a1cc2a697422a7350953e9007b2 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 12 Mar 2022 11:21:29 -0600 Subject: Add larry.el --- machines/larry.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 machines/larry.el diff --git a/machines/larry.el b/machines/larry.el new file mode 100644 index 0000000..ba4edb2 --- /dev/null +++ b/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"))))) -- cgit 1.4.1-21-gabe81 From a11c0cdeb0b92778ba29e468337fcfa3e82bb75e Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 12 Mar 2022 11:21:50 -0600 Subject: Fix affe-regexp-compiler arguments --- init.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/init.el b/init.el index 42cac67..9f6cb41 100644 --- a/init.el +++ b/init.el @@ -818,9 +818,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)) -- cgit 1.4.1-21-gabe81 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