Readd emms, emacs.scm, trim details from global-mode-string

5 files changed, 60 insertions, 3 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 0dd79c5..6215b21 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -106,6 +106,7 @@
 (require 'bd--devel)
 (require 'bd--org)
 (require 'bd--notes)
+(require 'bd--emms)
 (require 'bd--modeline)
 (require 'bd--themes)
 (require 'bd--exwm)
diff --git a/.config/emacs/modules/bd--emms.el b/.config/emacs/modules/bd--emms.el
index 97b6dc3..1b8c45f 100644
--- a/.config/emacs/modules/bd--emms.el
+++ b/.config/emacs/modules/bd--emms.el
@@ -1,6 +1,5 @@
 ;;; -*- lexical-binding: t; -*-
 ;;; Commentary:
-;;; not loaded bd 1/24/25
 ;;; Code:
 
 
@@ -53,6 +52,7 @@ playback."
           emms-info-report-each-num-tracks 2000
           emms-playlist-buffer-name "*Playlist*"
           emms-mode-line-icon-enabled-p nil
+          emms-mode-line-length-limit 35
           emms-mode-line-format " [%s] "
           emms-repeat-playlist t)
   (add-to-list 'display-buffer-alist
diff --git a/.config/emacs/modules/bd--exwm.el b/.config/emacs/modules/bd--exwm.el
index 6fce268..1b48412 100644
--- a/.config/emacs/modules/bd--exwm.el
+++ b/.config/emacs/modules/bd--exwm.el
@@ -41,8 +41,10 @@ that buffer."
             ([f2] . bd/toggle-mute)
             ([f5] . bd/decrement-volume)
             ([f6] . bd/increment-volume)
-            ([f8] . bd/decrement-brightness)
-            ([f9] . bd/increment-brightness)
+            ([f7] . bd/decrement-brightness)
+            ([f8] . bd/increment-brightness)
+            ([f9] . emms-previous)
+            ([f10] . emms-next)
             ([print] . bd/shoot-part)
             ([S-print] . bd/shoot-full)
             ([?\s-O] . bd/browse-dispatcher)
diff --git a/.config/emacs/modules/bd--irc.el b/.config/emacs/modules/bd--irc.el
index 8c74096..99b1a49 100644
--- a/.config/emacs/modules/bd--irc.el
+++ b/.config/emacs/modules/bd--irc.el
@@ -16,6 +16,7 @@
           rcirc-reconnect-delay 60
           rcirc-omit-responses '("JOIN" "PART" "QUIT" "NICK" "AWAY")
           rcirc-track-minor-mode t
+          rcirc-track-ignore-server-buffer-flag t
           rcirc-server-alist
           '(("operationnull.com"
              :nick "Gondul"
diff --git a/.config/guix/modules/services/emacs.scm b/.config/guix/modules/services/emacs.scm
new file mode 100644
index 0000000..e975412
--- /dev/null
+++ b/.config/guix/modules/services/emacs.scm
@@ -0,0 +1,53 @@
+(define-module (services emacs)
+  #:use-module (gnu)
+  #:use-module (gnu home services)
+  #:use-module (gnu services)
+  #:use-module (gnu services configuration)
+  #:use-module (gnu system)
+  #:use-module (guix gexp)
+  #:export (bd-home-emacs-service-type))
+
+;;; Commentary:
+;;; Code:
+
+(use-package-modules
+ emacs
+ aspell
+ emacs-xyz
+ cpp
+ gnupg
+ mail
+ lisp)
+
+(define (bd-emacs-package-list config)
+  (list
+   emacs-next
+   pinentry-emacs
+
+   emacs-anki-editor
+   emacs-emms
+   emacs-dash
+   emacs-denote
+   emacs-elpher
+   emacs-exwm
+   emacs-f
+   emacs-guix
+   emacs-paredit
+   emacs-pinentry
+   emacs-rainbow-delimiters
+   emacs-rainbow-mode
+
+   aspell
+   aspell-dict-en
+   ))
+
+
+(define bd-home-emacs-service-type
+  (service-type (name 'emacs-config)
+                (description "A service which bundles required
+emacs packages.")
+                (extensions
+                 (list (service-extension
+                        home-profile-service-type
+                        bd-emacs-package-list)))
+                (default-value #f)))