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

@@ -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
 -<< -< -<- <-- <--- <<- <- -> ->> --> ---> ->- >- >>-

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