From b60396f38c385f0f282428cc003748e2bd7dd220 Mon Sep 17 00:00:00 2001
From: Evie Litherland-Smith <evie.litherland-smith@ukaea.uk>
Date: Thu, 6 Jun 2024 07:14:36 +0100
Subject: [PATCH] Customise some base16-theme faces, update font showcase

Make comment / doc face a bit more legible

Change outline-{1,8} faces to be traversing rainbow themed

Update font-showcase with up to 10 levels of Header (to show wrapping)
and a table with an ASCII plot
---
 font-showcase.org | 16 ++++++++++++++++
 init.el           | 20 +++++++++++++++++++-
 2 files changed, 35 insertions(+), 1 deletion(-)

diff --git a/font-showcase.org b/font-showcase.org
index 2ac466d..4253e65 100644
--- a/font-showcase.org
+++ b/font-showcase.org
@@ -12,6 +12,8 @@ candle.
 ****** Header 6
 ******* Header 7
 ******** Header 8
+********* Header 9
+********** Header 10
 * Font emphasis
 Examples of:
 - *Bold text*
@@ -30,6 +32,20 @@ E3CGQ g9q¶ uvw ſßðþ ΓΔΛαδιλμξπτχ∂ ЖЗКУЯжзклмнру
 ** Legibility test
 Can I tell the difference between: 1,i,I,l,L,|
 How about: 0,O,o
+* Tables
+| Heading 1 | Heading 2 | Plot         |
+|-----------+-----------+--------------|
+|         1 |         1 |              |
+|         2 |         4 | c            |
+|         3 |         9 | W            |
+|         4 |        16 | WV           |
+|         5 |        25 | WWH          |
+|         6 |        36 | WWWW:        |
+|         7 |        49 | WWWWWV       |
+|         8 |        64 | WWWWWWWl     |
+|         9 |        81 | WWWWWWWWWh   |
+|        10 |       100 | WWWWWWWWWWWW |
+#+TBLFM: $2=$1**2::$3='(orgtbl-ascii-draw $2 1 100 12)
 * Coding ligatures
 #+begin_example
 -<< -< -<- <-- <--- <<- <- -> ->> --> ---> ->- >- >>-
diff --git a/init.el b/init.el
index 6122179..ea214fd 100644
--- a/init.el
+++ b/init.el
@@ -234,11 +234,29 @@
 
 (use-package base16-theme
   :if (display-graphic-p)
+  :defines base16-catppuccin-latte-theme-colors
   :custom
   (base16-theme-distinct-fringe-background nil)
   (base16-theme-highlight-mode-line 'contrast)
   :config
-  (load-theme 'base16-catppuccin-latte t))
+  (require 'font-lock)
+  (require 'outline)
+  (load-theme 'base16-catppuccin-latte t)
+  (dolist (face '(font-lock-doc-face
+                  font-lock-comment-face
+                  font-lock-comment-delimiter-face))
+    (set-face-attribute face nil :foreground (plist-get base16-catppuccin-latte-theme-colors :base04)))
+  (dolist (pairing '((outline-1 . :base08)
+                     (outline-2 . :base09)
+                     (outline-3 . :base0A)
+                     (outline-4 . :base0B)
+                     (outline-5 . :base0C)
+                     (outline-6 . :base0D)
+                     (outline-7 . :base0E)
+                     (outline-8 . :base0F)))
+    (set-face-attribute (car pairing) nil
+                        :foreground (plist-get base16-catppuccin-latte-theme-colors (cdr pairing))))
+  )
 
 (use-package nerd-icons
   :functions (nerd-icons-set-font