summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--custom/jao-custom-eww.el4
-rw-r--r--custom/jao-custom-gnus.el16
-rw-r--r--lib/media/jao-random-album.el6
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 ()