Colorize shr headings a bit more

1 files changed, 9 insertions, 1 deletions

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 <tom@ryuslash.org>
 ;; 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 <h1> tag from DOM."
+  (shr-heading dom '(variable-pitch (:height 1.2 :weight bold :foreground "#65a854" :underline t))))
+
+(defun shr-tag-h2 (dom)
+  "Render a <h2> 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.