#+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