29 lines
790 B
Org Mode
29 lines
790 B
Org Mode
|
#+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
|