(require 'eww) ;;; [2014-11-17 Mon]背景・文字色を無効化する (defvar eww-disable-colorize t) (defun shr-colorize-region--disable (orig start end fg &optional bg &rest _) (unless eww-disable-colorize (funcall orig start end fg))) (advice-add 'shr-colorize-region :around 'shr-colorize-region--disable) (advice-add 'eww-colorize-region :around 'shr-colorize-region--disable) (defun eww-disable-color () "ewwで文字色を反映させない" (interactive) (setq-local eww-disable-colorize t) (eww-reload)) (defun eww-enable-color () "ewwで文字色を反映させる" (interactive) (setq-local eww-disable-colorize nil) (eww-reload))