Cleanup unnecessary emacs packages

7 files changed, 10 insertions, 44 deletions

diff --git a/.config/emacs/modules/bd--devel.el b/.config/emacs/modules/bd--devel.el
index 63bfd8f..f476ad2 100644
--- a/.config/emacs/modules/bd--devel.el
+++ b/.config/emacs/modules/bd--devel.el
@@ -71,16 +71,6 @@ to.")
   ;; better support for latex packages
   (TeX-parse-self t))
 
-(use-package slime
-  :commands slime
-  :config
-  (add-hook 'slime-mode-hook
-            (lambda ()
-              (local-set-key (kdb "C-c C-k") 'slime-eval-buffer)))
-  :custom
-  ;; more memory for ml libraries
-  (inferior-lisp-program "sbcl --dynamic-space-size 4096"))
-
 (use-package rainbow-delimiters
   :hook prog-mode)
 
diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el
index 7f3324d..01f9f49 100644
--- a/.config/emacs/modules/bd--files.el
+++ b/.config/emacs/modules/bd--files.el
@@ -8,8 +8,6 @@
 (keymap-global-set "C-c d" 'dired-jump)
 (keymap-set dired-mode-map "h" #'dired-hide-details-mode)
 
-(add-hook 'dired-mode-hook #'dired-hide-details-mode)
-
 (setopt dired-listing-switches "-alhLG --time-style=long-iso --group-directories-first"
 
         dired-recursive-copies 'always
@@ -26,11 +24,6 @@
           (,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")
           (,(regexp-opt '(".html")) "icecat &")))
 
-(require 'all-the-icons)
-(use-package all-the-icons-dired
-  :config
-  (add-hook 'dired-mode-hook #'all-the-icons-dired-mode))
-
 
 ;;;; transmission
 (use-package transmission
diff --git a/.config/emacs/modules/bd--modeline.el b/.config/emacs/modules/bd--modeline.el
index 39e5088..8d82497 100644
--- a/.config/emacs/modules/bd--modeline.el
+++ b/.config/emacs/modules/bd--modeline.el
@@ -47,13 +47,8 @@
 (display-time)
 
 
-;;;; buffer name
-(defun modeline-buffer-name ()
-  "Return 'buffer-name' with proper spacing and icon."
-  (format " %s %s" (all-the-icons-icon-for-mode major-mode) (buffer-name)))
-
 (defvar-local bd/buffer-identification-mode-line
-    '(:eval (format "%s" (modeline-buffer-name)))
+    '(:eval (format "%s" (buffer-name)))
   "Formats the modeline-buffer-name.")
 
 ;;;; pos
@@ -68,9 +63,6 @@
 (defun git-vc-modeline ()
   (let ((branch (mapconcat 'concat (cdr (split-string vc-mode "[:-]")) "-")))
     (concat
-     (propertize (format " %s" (all-the-icons-octicon "git-branch"))
-                 'face `(:height 1 :family ,(all-the-icons-octicon-family))
-                 'display '(raise 0))
      (propertize (format " %s" branch))
      (propertize "  "))))
 
diff --git a/.config/emacs/modules/bd--shells.el b/.config/emacs/modules/bd--shells.el
index 49518bf..b343e8e 100644
--- a/.config/emacs/modules/bd--shells.el
+++ b/.config/emacs/modules/bd--shells.el
@@ -3,9 +3,6 @@
 ;;; Code:
 
 
-(require 'all-the-icons)
-
-
 ;;;; term
 (with-eval-after-load "term" (defalias 'term 'ansi-term))
 
@@ -28,13 +25,11 @@
   (abbreviate-file-name (eshell/pwd)))
 
 (defun bd/eshell-prompt ()
-  "Assemble a shell prompt including host, git
-status, and path."
+  "Return a prettified shell prompt."
   (concat
    "\n"
    (propertize (system-name) 'face `(:foreground "#edb54b"))
-   (format " %s " (all-the-icons-fileicon "gn"))
-   (propertize (bd/get-prompt-path) 'face `(:foreground "#33859d"))
+   (propertize (format " %s" (bd/get-prompt-path)) 'face `(:foreground "#33859d"))
    (propertize (format-time-string " %a, %R") 'face `(:foreground "#888ba5"))
    (propertize "\n> " 'face `(:foreground "#c33027"))))
 
diff --git a/.config/emacs/modules/bd--themes.el b/.config/emacs/modules/bd--themes.el
index 82ee86a..9f7f404 100644
--- a/.config/emacs/modules/bd--themes.el
+++ b/.config/emacs/modules/bd--themes.el
@@ -46,7 +46,7 @@ to.")
      (3 variable-pitch regular 1.1)
      (t variable-pitch regular 1.0)))
 
-  (ef-themes-to-toggle '(ef-winter ef-frost))
+  (ef-themes-to-toggle '(ef-autumn ef-frost))
   (ef-themes-common-palette-overrides
    '((bg-mode-line bg-main)
      (fg-mode-line fg-main)
@@ -62,7 +62,7 @@ to.")
   (ef-autumn-palette-overrides
    '((bg-main "#000000"))))
 
-(load-theme 'ef-winter :no-confirm)
+(load-theme 'ef-autumn :no-confirm)
 
 (provide 'bd--themes)
 ;;; bd-themes ends here
diff --git a/.config/guix/modules/emacs.scm b/.config/guix/modules/emacs.scm
index 23745b7..3979097 100644
--- a/.config/guix/modules/emacs.scm
+++ b/.config/guix/modules/emacs.scm
@@ -24,14 +24,11 @@
 (define (bd-emacs-package-list config)
   (list
    ;; direct
-   emacs-all-the-icons
-   emacs-all-the-icons-dired
    emacs-auctex
    emacs-consult
    emacs-ef-themes
    emacs-emms
    emacs-guix
-   emacs-htmlize
    emacs-magit
    emacs-marginalia
    emacs-orderless
@@ -42,18 +39,13 @@
    emacs-rainbow-delimiters
    emacs-rainbow-mode
    emacs-shackle
-   emacs-simple-httpd
-   emacs-slime
-   emacs-transmission
+   ;; emacs-transmission
    emacs-vertico
    emacs-visual-fill-column
-   emacs-yasnippet
-   emacs-yasnippet-snippets
 
    ;; associative
    aspell
    aspell-dict-en
-   sbcl
    ))
 
 
diff --git a/.config/guix/modules/utils.scm b/.config/guix/modules/utils.scm
index 12ab463..5ead6e4 100644
--- a/.config/guix/modules/utils.scm
+++ b/.config/guix/modules/utils.scm
@@ -23,6 +23,10 @@
   (list
    bsnes
    mgba
+   mupen64plus-audio-sdl
+   mupen64plus-rsp-hle
+   mupen64plus-ui-console
+   mupen64plus-video-glide64mk2
    nethack
    ))