Remove icecat

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
-        ("<tab>" . #'completion-at-point)
-        ("C-l" . #'eshell/clear))
+        ("<tab>" . #'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")