From b61259b49f7349fe705df4ab77d37d317bebbcaf Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Fri, 25 Oct 2024 19:31:40 -0400
Subject: dunst, miscellaneous changes

---
 .config/emacs/gnus.el                   |  3 ++-
 .config/emacs/modules/bd--files.el      | 18 +++++++++---------
 .config/emacs/modules/bd--minibuffer.el |  1 +
 .config/guix/modules/xorg.scm           |  4 +++-
 4 files changed, 15 insertions(+), 11 deletions(-)

(limited to '.config')

diff --git a/.config/emacs/gnus.el b/.config/emacs/gnus.el
index a60e8e7..986d0d0 100644
--- a/.config/emacs/gnus.el
+++ b/.config/emacs/gnus.el
@@ -46,7 +46,8 @@
          "%5{%B%}"
          "%s\n"))
 
-(setopt mml-secure-openpgp-encrypt-to-self t)
+(setopt message-from-style 'angles
+	mml-secure-openpgp-encrypt-to-self t)
 
 (require 'bd--mail) ;; (gitignored)
 
diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el
index e5df266..b8a5f4a 100644
--- a/.config/emacs/modules/bd--files.el
+++ b/.config/emacs/modules/bd--files.el
@@ -3,14 +3,10 @@
 ;;; Code:
 
 
-(defun bd/file-has-extension? (file types)
-  "Returns t if file has an extension in LST, nil otherwise."
-  (string-match (regexp-opt lst) (or (file-name-extension file) "")))
-
 (defmacro bd/defun-find-file-wrapper (name types open-f)
   `(defun ,name (f &rest args)
      "Wrapper around F (find-file), passing ARGS."
-     (if (bd/file-has-extension? (car args) ,types)
+     (if (string-match (regexp-opt ,types) (or (file-name-extension (car args)) ""))
 	 (progn
 	   (,(eval open-f) (car args))
 	   (recentf-add-file (car args))
@@ -33,8 +29,7 @@
         dired-dwim-target t
 
         dired-guess-shell-alist-user
-        `((,(regexp-opt '(".jpeg" ".jpg" ".png")) "nsxiv &")
-          (,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")
+        `((,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout")
           (,(regexp-opt '(".html")) "icecat &")))
 
 ;; pdf
@@ -43,7 +38,9 @@
   (interactive)
   (start-process (concat "zathura (" (file-name-base file) ")") nil "zathura" (expand-file-name file)))
 
-(bd/defun-find-file-wrapper bd/pdf-find-file-wrapper '("epub" "pdf") #'bd/zathura)
+(bd/defun-find-file-wrapper bd/pdf-find-file-wrapper
+			    '("epub" "pdf")
+			    #'bd/zathura)
 (advice-add 'find-file :around #'bd/pdf-find-file-wrapper)
 
 ;; video
@@ -61,9 +58,12 @@
 (defun bd/nsxiv (file)
   "Open FILE with nsxiv"
   (start-process (concat "nsxiv (" (file-name-base file) ")") nil "nsxiv" (expand-file-name file)))
-(bd/defun-find-file-wrapper bd/image-find-file-wrapper '("jpg" "jpeg" "png" "webp" "bmp" "ico" "gif" "JPG" "PNG") #'bd/nsxiv)
+(bd/defun-find-file-wrapper bd/image-find-file-wrapper
+			    '("jpg" "jpeg" "png" "webp" "bmp" "ico" "gif" "JPG" "PNG")
+			    #'bd/nsxiv)
 (advice-add 'find-file :around 'bd/image-find-file-wrapper)
 
+
 ;;;; transmission
 (use-package transmission
   :bind
diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el
index bd85369..66dffa5 100644
--- a/.config/emacs/modules/bd--minibuffer.el
+++ b/.config/emacs/modules/bd--minibuffer.el
@@ -43,6 +43,7 @@
          ("H-s G" . consult-git-grep)
          ("H-s r" . consult-ripgrep)
          ("H-s l" . consult-line)
+	 ("H-s i" . consult-info)
          ("H-s L" . consult-line-multi)
          ("H-s k" . consult-keep-lines)
          ("H-s u" . consult-focus-lines)))
diff --git a/.config/guix/modules/xorg.scm b/.config/guix/modules/xorg.scm
index c5ac890..11a2e35 100644
--- a/.config/guix/modules/xorg.scm
+++ b/.config/guix/modules/xorg.scm
@@ -26,13 +26,15 @@
  image-viewers ;; feh
  pulseaudio ;; pavucontrol, pulseaudio,
  suckless ;; dmenu
- xorg ;; xf86-input-libinput, xf86-video-fbdev, xinit...
+ wm ;; dunst
  xdisorg ;; xrdb
+ xorg ;; xf86-input-libinput, xf86-video-fbdev, xinit...
  )
 
 (define bd-desktop-system-packages
   (list
    dmenu
+   dunst
    emacs
    libnotify
    pavucontrol
-- 
cgit v1.2.3