diff options
Diffstat (limited to 'emacs/.emacs.d/init/oni-shr-init.el')
| -rw-r--r-- | emacs/.emacs.d/init/oni-shr-init.el | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/emacs/.emacs.d/init/oni-shr-init.el b/emacs/.emacs.d/init/oni-shr-init.el deleted file mode 100644 index 3345dd9..0000000 --- a/emacs/.emacs.d/init/oni-shr-init.el +++ /dev/null @@ -1,39 +0,0 @@ -;;; oni-shr-init.el --- My shr configuration -*- lexical-binding: t; -*- - -;; Copyright (C) 2018 Tom Willemse - -;; Author: Tom Willemse <tom@ryuslash.org> -;; Keywords: local - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; My shr configuration. - -;;; Code: - -(require 'shr) - -(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)) - -(advice-add #'shr-colorize-region :filter-args - #'oni:shr-colorize-remove-last-arg) - -(provide 'oni-shr-init) -;;; oni-shr-init.el ends here |