From a4271a8f876cb668d21939b46c39698a1d143bbf Mon Sep 17 00:00:00 2001
From: Evie Litherland-Smith <evie.litherland-smith@ukaea.uk>
Date: Thu, 15 Aug 2024 17:32:23 +0100
Subject: [PATCH] Make background for clocked tasks more legible

Set base16-current-theme-colors variable so uses of current theme
colours only needs changing in one place if the theme changes
---
 README.org | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 0deb379..63f4f05 100644
--- a/README.org
+++ b/README.org
@@ -1,7 +1,6 @@
 #+title: Emacs Config
 #+author: Evie Litherland-Smith
 #+email: evie@xenia.me.uk
-#+filetags: :emacs:config:org:
 Personal Emacs configuration. Clone to =~/.config/emacs/= (or
 =~/.emacs.d/=) and install specified plugins.
 * Config
@@ -86,6 +85,9 @@ Configure the look and feel of Emacs
     "Load theme and configure some faces."
     (require 'base16-theme)
     (load-theme 'base16-one-light t)
+    (defvar base16-current-theme-colors nil
+      "Set to `base16-*-theme-colors' for currently selected theme.")
+    (setq base16-current-theme-colors base16-one-light-theme-colors)
 
     ;; Change outline headers to follow rainbow order
     (require 'outline)
@@ -99,7 +101,7 @@ Configure the look and feel of Emacs
                        (outline-8 . :base0F)))
       (set-face-attribute (car pairing) nil
                           :foreground
-                          (plist-get base16-one-light-theme-colors (cdr pairing)))))
+                          (plist-get base16-current-theme-colors (cdr pairing)))))
 
   (require 'server)
   (add-hook 'after-init-hook
@@ -857,7 +859,11 @@ Configure email with iCalendar event support, to integrate with
     (set-face-attribute 'org-verbatim nil :inherit 'org-code)
     ;; Let quote and verse blocks use variable-pitch font, if configured
     (set-face-attribute 'org-quote nil :inherit 'variable-pitch)
-    (set-face-attribute 'org-verse nil :inherit 'variable-pitch))
+    (set-face-attribute 'org-verse nil :inherit 'variable-pitch)
+    ;; Lighten org-agenda-clocking background to be more legible
+    (require 'base16-theme)
+    (set-face-attribute 'org-agenda-clocking nil :background
+                        (plist-get base16-current-theme-colors :base01)))
 
   (use-package org-keys
     :after org
@@ -903,6 +909,11 @@ Configure email with iCalendar event support, to integrate with
       (push '(emacs-lisp . t) babel-languages)
       (org-babel-do-load-languages 'org-babel-load-languages babel-languages)))
 
+  (add-to-list 'package-selected-packages 'ob-async)
+  (use-package ob-async
+    :if (package-installed-p 'ob-async)
+    :after ob-code)
+
   (use-package ob-python
     :after ob-core
     :custom