pixelifytica/emacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Make background for clocked tasks more legible

Browse source 
Set base16-current-theme-colors variable so uses of current theme
colours only needs changing in one place if the theme changes
This commit is contained in:
Evie Litherland-Smith 2024-08-15 17:32:23 +01:00
parent d2118e8913
commit a4271a8f87
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
README.org
View file

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