diff options
| author | jao <jao@gnu.org> | 2024-03-21 21:54:38 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2024-03-21 21:54:38 +0000 |
| commit | 72a576075bb04f2a9978ff7c0414e26eec5f3ae3 (patch) | |
| tree | 4c0c3984501e80d2e4316833fe2549c5911526ca | |
| parent | 98a2358f6f1fb0a5ebedfec1af3733417639da1a (diff) | |
| download | elibs-72a576075bb04f2a9978ff7c0414e26eec5f3ae3.tar.gz elibs-72a576075bb04f2a9978ff7c0414e26eec5f3ae3.tar.bz2 | |
nits
| -rw-r--r-- | custom/jao-custom-eww.el | 4 | ||||
| -rw-r--r-- | custom/jao-custom-gnus.el | 16 | ||||
| -rw-r--r-- | 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 () |