From e6723ca07fe6dc7e790f75ec9b9963127a5e6c17 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 13 Apr 2025 14:31:04 -0400 Subject: Remove icecat --- .config/emacs/modules/bd--browse.el | 37 ++++++++++-------------------- .config/emacs/modules/bd--devel.el | 6 +++++ .config/emacs/modules/bd--exwm.el | 1 + .config/emacs/modules/bd--files.el | 3 +-- .config/emacs/modules/bd--org.el | 2 +- .config/emacs/modules/bd--shells.el | 3 +-- .config/emacs/modules/bd--window.el | 6 ----- .config/guix/modules/packages/packages.scm | 8 +------ .config/guix/modules/services/base.scm | 6 ++--- 9 files changed, 26 insertions(+), 46 deletions(-) diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el index 92bc0bf..22bbb6c 100644 --- a/.config/emacs/modules/bd--browse.el +++ b/.config/emacs/modules/bd--browse.el @@ -12,7 +12,6 @@ icecat, or eww." (interactive) (pcase pref (0 (eww url)) - (1 (start-process "icecat" nil "icecat" "--new-window" url)) (_ (start-process "librewolf" nil "librewolf" "--new-window" url)))) (setopt browse-url-browser-function 'bd/browse) @@ -62,7 +61,7 @@ icecat, or eww." (bd/search-candidate "Archwiki" "https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 0) (bd/selector-rip) - (bd/search-candidate "Web" "" 3)))) + (bd/search-candidate "Web" "" 1)))) (defun bd/browse-dispatcher () "Select and `browse-url' a bookmark or search feature." @@ -77,11 +76,6 @@ icecat, or eww." (lambda (url &rest _) (rip url)))) url-privacy-level '(email os emacs lastloc cookies)) -(use-package shr - :defer t - :config - (setopt )) - (use-package elpher :bind (:map elpher-mode-map @@ -106,30 +100,23 @@ icecat, or eww." elpher-use-emacs-bookmark-menu t)) (use-package eww + :defer 1 :bind (:map eww-mode-map - ("i" . eww-toggle-images)) - :hook - ((eww-after-render . (lambda () - (setq-local fill-column-desired-width 120) - (fill-column-mode)))) + ("i" . eww-toggle-images)) :config - (defun bd/eww-toggle-images () - (interactive) - (setq-local shr-inhibit-images (not shr-inhibit-images)) - (eww-reload t) - (message "%s images" - (if shr-inhibit-images "Disabled" "Enabled"))) (setopt eww-search-prefix "https://searx.operationnull.com/searxng/search?q=" eww-auto-rename-buffer 'title - eww-browse-url-new-window-is-tab nil + eww-browse-url-new-window-is-tab nil + browse-url-secondary-browser-function #'bd/browse + eww-header-line-format nil eww-use-browse-url (regexp-opt '("mailto:" - "youtube.com" - "youtu.be")) - shr-use-fonts t - shr-inhibit-images t - shr-cookie-policy nil - shr-max-width 85)) + "youtube.com" + "youtu.be")) + shr-use-fonts nil + shr-inhibit-images t + shr-cookie-policy nil + shr-max-width 90)) (provide 'bd--browse) diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el index e3a05f4..2c6ef02 100644 --- a/.config/emacs/modules/bd--devel.el +++ b/.config/emacs/modules/bd--devel.el @@ -172,6 +172,10 @@ display for opening with browser." (append (-map (lambda (x) (bd/selector-doc x)) doc-dirs) (list (bd/selector-search)))))) +(use-package gdb-mi + :config + (setopt gdb-debuginfod-enable-setting nil)) + (use-package eglot :defer t :hook ((c-mode . eglot-ensure) @@ -221,6 +225,7 @@ display for opening with browser." geiser-repl-mode lisp-mode scheme-mode + slime-repl-mode lisp-interaction-mode) :config (defun bd/paredit-preserve-repl (f &rest args) @@ -229,6 +234,7 @@ display for opening with browser." ('(inferior-emacs-lisp-mode . t) (ielm-return)) ('(eshell-mode . t) (eshell-send-input)) ('(geiser-repl-mode . t) (geiser-repl-maybe-send)) + ('(slime-repl-mode . t) (slime-repl-return)) (_ (funcall f)))) (advice-add #'paredit-RET :around #'bd/paredit-preserve-repl) (eldoc-add-command diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el index 39d161e..8316b0f 100644 --- a/.config/emacs/modules/bd--exwm.el +++ b/.config/emacs/modules/bd--exwm.el @@ -64,6 +64,7 @@ that buffer." ([?\C-n] . [down]) ([?\C-a] . [home]) ([?\C-e] . [end]) + ([?\C-j] . [S-return]) ([?\C-m] . [return]) ([?\M-v] . [prior]) ([?\C-v] . [next]) diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el index 2ad7fb3..f4c4f4f 100644 --- a/.config/emacs/modules/bd--files.el +++ b/.config/emacs/modules/bd--files.el @@ -74,8 +74,7 @@ dired-auto-revert-buffer t dired-dwim-target t dired-guess-shell-alist-user - `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout") - (,(regexp-opt '(".html")) "icecat &")))) + `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")))) (provide 'bd--files) diff --git a/.config/emacs/modules/bd--org.el b/.config/emacs/modules/bd--org.el index 3fefccb..fd2588e 100644 --- a/.config/emacs/modules/bd--org.el +++ b/.config/emacs/modules/bd--org.el @@ -175,7 +175,7 @@ representing all the tags ORd or ANDed together." org-capture-templates `(("t" "Task Entry" entry (file ,(concat org-directory "inbox.org")) - "* %?\n:PROPERTIES:\n:CREATED:%U\n:END:\n%i\nrecorded visiting: %a" + "* %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%i\nrecorded visiting: %a" :empty-lines 1))) (let ((orphan-view '(tags-todo "-{.*}" diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el index 2bbf403..6fff9e6 100644 --- a/.config/emacs/modules/bd--shells.el +++ b/.config/emacs/modules/bd--shells.el @@ -86,8 +86,7 @@ allowed." (use-package eshell :bind (:map eshell-mode-map - ("" . #'completion-at-point) - ("C-l" . #'eshell/clear)) + ("" . #'completion-at-point)) :config (defun eshell/clear (&optional scrollback) "Clear the eshell buffer and output the banner message." diff --git a/.config/emacs/modules/bd--window.el b/.config/emacs/modules/bd--window.el index 94841e6..4f12cdd 100644 --- a/.config/emacs/modules/bd--window.el +++ b/.config/emacs/modules/bd--window.el @@ -11,12 +11,6 @@ (add-to-list 'display-buffer-alist '("^\\*Async Shell Command\\*.*$" (display-buffer-no-window))) -(add-to-list 'display-buffer-alist - '((major-mode . Info-mode) - (display-buffer-in-side-window) - (side . right) - (slot . -1) - (width . 0.15))) (defun bd/layout--do-with-haste (f) (let* ((args (transient-args 'bd/layout-dispatcher)) diff --git a/.config/guix/modules/packages/packages.scm b/.config/guix/modules/packages/packages.scm index 74490c4..b36f9af 100644 --- a/.config/guix/modules/packages/packages.scm +++ b/.config/guix/modules/packages/packages.scm @@ -35,9 +35,8 @@ games ;; nethack gdb ;; gdb gimp ;; gimp-next - gnome ;; libnotify, brightnessctl + gnome ;; brightnessctl gnupg ;; gnupg - gnuzilla ;; icecat graphviz ;; graphviz haskell-xyz ;; pandoc image ;; flameshot @@ -60,13 +59,11 @@ screen ;; screen texlive ;; texlive tex ;; texlive-dvipng - tor-browsers ;; tor-browser version-control ;; git video ;; ffmpeg, mpv, yt-dlp vim ;; vim virtualization ;; qemu web ;; jq - wm ;; dunst xdisorg ;; xdotool, xrdb xorg ;; xf86-input-libinput, xf86-video-fbdev, xinit... ) @@ -96,7 +93,6 @@ (define bd-packages-desktop (list - dunst feh ffmpeg flameshot @@ -104,9 +100,7 @@ font-terminus gnupg graphviz - icecat imagemagick - libnotify mpv nsxiv password-store diff --git a/.config/guix/modules/services/base.scm b/.config/guix/modules/services/base.scm index 69fc815..08b53f2 100644 --- a/.config/guix/modules/services/base.scm +++ b/.config/guix/modules/services/base.scm @@ -108,8 +108,8 @@ ("vi" . "vim") ("xeb" . "emacsclient -nce '(switch-to-buffer nil)'") ("xet" . "emacsclient -nce '(shell)'") - ("ytta" . "yt-dlp --proxy \"socks5://localhost:9050\" --extract-audio --format bestaudio/best") - ("yttv" . "yt-dlp --proxy \"socks5://localhost:9050\" -f b"))) + ("ytta" . "yt-dlp --extract-audio --format bestaudio/best") + ("yttv" . "yt-dlp -f b"))) (bashrc (list (plain-file "bashrc" " @@ -118,7 +118,7 @@ alias | sed -E \"s/^alias ([^=]+)='(.*)'$/alias \\1 \\2 \\$*/g; s/'\\\\\\''/'/g; "))) (environment-variables '( - ("BROWSER" . "icecat") + ("BROWSER" . "librewolf") ("VISUAL" . "emacsclient") ("EDITOR" . "emacsclient") -- cgit v1.2.3