dotfiles/emacs/.emacs.d/init/oni-shr-init.org

shr configuration

• Remove background colors

  (require 'shr)

Remove background colors

Define a procedure that removes the last argument it gets if there are more than 3.

  (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))

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.

  (advice-add #'shr-colorize-region :filter-args
              #'oni:shr-colorize-remove-last-arg)