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

Customise font-lock faces for base16 theme

Browse source
This commit is contained in:
Evie Litherland-Smith 2024-10-30 14:17:18 +00:00
parent d29f9dd772
commit a735e71e27
1 changed files with 16 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
README.org
View file

@ -106,7 +106,7 @@ Configure the look and feel of Emacs
(tool-bar-mode -1)
(scroll-bar-mode -1)
#+end_src
*** Theme and Icons
*** Theme
#+begin_src emacs-lisp
(add-to-list 'package-selected-packages 'base16-theme)
(use-package base16-theme
@ -116,7 +116,7 @@ Configure the look and feel of Emacs
(base16-theme-distinct-fringe-background nil)
(base16-theme-highlight-mode-line 'contrast))
(defvar base16-current-theme-colors nil
(defvar my/base16-colors nil
"Set to `base16-*-theme-colors' for currently selected theme.")
(defun my/load-theme-and-configure ()
@ -124,7 +124,12 @@ Configure the look and feel of Emacs
(interactive)
(require 'base16-theme)
(load-theme 'base16-one-light t)
(setq base16-current-theme-colors base16-one-light-theme-colors)
(setq my/base16-colors base16-one-light-theme-colors)
;; Set some font-lock faces to be italic
(set-face-attribute 'font-lock-doc-face nil :slant 'italic)
(set-face-attribute 'font-lock-comment-face nil :slant 'italic)
(set-face-attribute 'font-lock-comment-delimiter-face nil :slant 'italic)
;; Change outline headers to follow rainbow order
(require 'outline)
@ -138,27 +143,29 @@ Configure the look and feel of Emacs
(outline-8 . :base0F)))
(set-face-attribute (car pairing) nil
:foreground
(plist-get base16-current-theme-colors (cdr pairing))))
(plist-get my/base16-colors (cdr pairing))))
(require 'org-faces)
;; Lighten `org-agenda-clocking' background to be more legible.
(set-face-attribute 'org-agenda-clocking nil :background
(plist-get base16-current-theme-colors :base01))
(plist-get my/base16-colors :base01))
;; Set `org-hide' face to actually match background colour
(set-face-attribute 'org-hide nil :foreground
(plist-get base16-current-theme-colors :base00))
(plist-get my/base16-colors :base00))
(with-eval-after-load 'org-noter
(set-face-attribute 'org-noter-no-notes-exist-face nil :foreground
(plist-get base16-current-theme-colors :base08))
(plist-get my/base16-colors :base08))
(set-face-attribute 'org-noter-notes-exist-face nil :foreground
(plist-get base16-current-theme-colors :base0B))))
(plist-get my/base16-colors :base0B))))
(require 'server)
(add-hook 'after-init-hook
(lambda () (when (display-graphic-p) (my/load-theme-and-configure))))
(add-hook 'server-after-make-frame-hook
(lambda () (when (display-graphic-p) (my/load-theme-and-configure))))
#+end_src
*** Nerd Icons
#+begin_src emacs-lisp
(add-to-list 'package-selected-packages 'nerd-icons)
(use-package nerd-icons
:if (package-installed-p 'nerd-icons))