From 72a576075bb04f2a9978ff7c0414e26eec5f3ae3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 21 Mar 2024 21:54:38 +0000
Subject: nits

---
 custom/jao-custom-eww.el      |  4 ++--
 custom/jao-custom-gnus.el     | 16 +++++++---------
 lib/media/jao-random-album.el |  6 +++---
 3 files changed, 12 insertions(+), 14 deletions(-)

diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index 13dd223..507069f 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -23,7 +23,7 @@
 ;;; multipart html renderer
 (defun jao-shr-html-renderer (handle)
   (let ((fill-column nil)
-        (shr-width nil)
+        (shr-width 160)
         (shr-max-width 160))
     (mm-shr handle)))
 
@@ -119,7 +119,7 @@
   :custom ((shr-width nil)
            (shr-use-colors t)
            (shr-use-fonts nil)
-           (shr-max-width 80)
+           (shr-max-width 160)
            (shr-blocked-images nil)
            (shr-inhibit-images t)
            (shr-max-image-proportion 0.8)
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index 9faf41b..e18ccf8 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -495,20 +495,18 @@
 (setq gnus-article-update-lapsed-header 60)
 (setq gnus-article-update-date-headers 60)
 
-(eval-after-load "gnus-art"
-  '(setq
-    gnus-visible-headers
-    (concat
-     gnus-visible-headers
-     "\\|^List-[iI][Dd]:\\|^X-Newsreader:\\|^X-Mailer:"
-     "\\|^User-Agent:\\|^X-User-Agent:\\|^X-RSS-Feed:")))
+(with-eval-after-load "gnus-art"
+  (setq gnus-visible-headers
+        (concat
+         gnus-visible-headers
+         "\\|^List-[iI][Dd]:\\|^X-Newsreader:\\|^X-Mailer:"
+         "\\|^User-Agent:\\|^X-User-Agent:\\|^X-RSS-Feed:")))
 
 ;;;; html and images
 (setq  gnus-button-url 'browse-url-generic
        gnus-inhibit-images t
        mm-discouraged-alternatives nil ;; '("text/html" "text/richtext")
-       mm-inline-large-images 'resize
-       shr-width 130)
+       mm-inline-large-images 'resize)
 
 (defvar-local jao-gnus--images nil)
 
diff --git a/lib/media/jao-random-album.el b/lib/media/jao-random-album.el
index e27b513..5b10308 100644
--- a/lib/media/jao-random-album.el
+++ b/lib/media/jao-random-album.el
@@ -1,6 +1,6 @@
 ;; jao-random-album.el -- play random albums
 
-;; Copyright (C) 2009, 2010, 2017-2019, 2021-2022 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2017-2019, 2021-2022, 2024 Jose Antonio Ortega Ruiz
 
 ;; Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
 ;; Start date: Sat Jul 04, 2009 13:06
@@ -23,7 +23,7 @@
 (defvar jao-random-album-active t)
 (defvar jao-random-lines nil)
 (defvar jao-random-lines-file (expand-file-name "~/.emacs.d/random-lines"))
-(defvar jao-random-album-notify-p t)
+(defvar jao-random-album-notify t)
 (defvar jao-random-album-notify-icon jao-notify-audio-icon)
 (defvar jao-random-album-skip-lines 2)
 
@@ -80,7 +80,7 @@
     (jao-goto-random-album)
     (let ((album (string-trim (thing-at-point 'line))))
       (funcall jao-random-album-add-tracks-and-play album)
-      (when jao-random-album-notify-p
+      (when jao-random-album-notify
         (jao-notify album "Next album" jao-random-album-notify-icon)))))
 
 (defun jao-random-album-reset ()
-- 
cgit v1.2.3