Compare commits

..

2 commits

Author SHA1 Message Date
Evie Litherland-Smith 8e421f8073 org-agenda start with log mode now that the face is fixed 2024-08-15 17:33:33 +01:00
Evie Litherland-Smith a4271a8f87 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
2024-08-15 17:32:23 +01:00

View file

@ -1,7 +1,6 @@
#+title: Emacs Config #+title: Emacs Config
#+author: Evie Litherland-Smith #+author: Evie Litherland-Smith
#+email: evie@xenia.me.uk #+email: evie@xenia.me.uk
#+filetags: :emacs:config:org:
Personal Emacs configuration. Clone to =~/.config/emacs/= (or Personal Emacs configuration. Clone to =~/.config/emacs/= (or
=~/.emacs.d/=) and install specified plugins. =~/.emacs.d/=) and install specified plugins.
* Config * Config
@ -86,6 +85,9 @@ Configure the look and feel of Emacs
"Load theme and configure some faces." "Load theme and configure some faces."
(require 'base16-theme) (require 'base16-theme)
(load-theme 'base16-one-light t) (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 ;; Change outline headers to follow rainbow order
(require 'outline) (require 'outline)
@ -99,7 +101,7 @@ Configure the look and feel of Emacs
(outline-8 . :base0F))) (outline-8 . :base0F)))
(set-face-attribute (car pairing) nil (set-face-attribute (car pairing) nil
:foreground :foreground
(plist-get base16-one-light-theme-colors (cdr pairing))))) (plist-get base16-current-theme-colors (cdr pairing)))))
(require 'server) (require 'server)
(add-hook 'after-init-hook (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) (set-face-attribute 'org-verbatim nil :inherit 'org-code)
;; Let quote and verse blocks use variable-pitch font, if configured ;; Let quote and verse blocks use variable-pitch font, if configured
(set-face-attribute 'org-quote nil :inherit 'variable-pitch) (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 (use-package org-keys
:after org :after org
@ -903,6 +909,11 @@ Configure email with iCalendar event support, to integrate with
(push '(emacs-lisp . t) babel-languages) (push '(emacs-lisp . t) babel-languages)
(org-babel-do-load-languages 'org-babel-load-languages 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 (use-package ob-python
:after ob-core :after ob-core
:custom :custom
@ -987,7 +998,7 @@ Configure email with iCalendar event support, to integrate with
(org-agenda-todo-ignore-deadlines 'far) (org-agenda-todo-ignore-deadlines 'far)
(org-agenda-clockreport-parameter-plist '(:link t :maxlevel 6 :emphasize t :stepskip0 t :fileskip0 t :filetitle t :properties ("WON"))) (org-agenda-clockreport-parameter-plist '(:link t :maxlevel 6 :emphasize t :stepskip0 t :fileskip0 t :filetitle t :properties ("WON")))
(org-agenda-start-with-clockreport-mode t) (org-agenda-start-with-clockreport-mode t)
(org-agenda-start-with-log-mode nil) (org-agenda-start-with-log-mode t)
(org-agenda-prefix-format '((agenda . " %-12:c%?-12t% s") (org-agenda-prefix-format '((agenda . " %-12:c%?-12t% s")
(todo . " %-12:c") (todo . " %-12:c")
(tags . " %-12:c") (tags . " %-12:c")