blob: 3aa8626a31afe86eaea0892b533ec9faf60f91a0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
#+TITLE: shr configuration
#+BEGIN_SRC emacs-lisp
(require 'shr)
#+END_SRC
* Remove background colors
Define a procedure that removes the last argument it gets if there
are more than 3.
#+BEGIN_SRC emacs-lisp
(defun oni:shr-colorize-remove-last-arg (args)
"If ARGS has more than 3 items, remove the last one."
(if (> (length args) 3)
(butlast args)
args))
#+END_SRC
Add the function as a filter-args advice to
=shr-colorize-region=. The last (fourth) argument to that function
is the background color to use, it's optional, so removing it
effectively stops shr from adding background colors.
#+BEGIN_SRC emacs-lisp
(advice-add #'shr-colorize-region :filter-args
#'oni:shr-colorize-remove-last-arg)
#+END_SRC
|