From 4fd3842af895bc872af2f74b38836b75c8602197 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Thu, 30 Apr 2020 18:31:30 -0700 Subject: Colorize shr headings a bit more --- oni-shr.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'oni-shr.el') diff --git a/oni-shr.el b/oni-shr.el index 9bc2dfd..56f006a 100644 --- a/oni-shr.el +++ b/oni-shr.el @@ -4,7 +4,7 @@ ;; Author: Tom Willemse ;; Keywords: local -;; Version: 2020.0328.023508 +;; Version: 2020.0430.183119 ;; 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 @@ -40,6 +40,14 @@ (shr-generic dom) (add-face-text-property start (point) '(:background "#222222" :box (:line-width 3 :color "#222222"))))) +(defun shr-tag-h1 (dom) + "Render a

tag from DOM." + (shr-heading dom '(variable-pitch (:height 1.2 :weight bold :foreground "#65a854" :underline t)))) + +(defun shr-tag-h2 (dom) + "Render a

tag from DOM." + (shr-heading dom '(variable-pitch (:height 1.1 :weight bold :foreground "#54a8a8")))) + (defun oni-shr--recolorize (orig-fun &rest args) "Do some custom colorization. -- cgit v1.2.3-54-g00ecf