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

Remove theme config, managed by nix home-manager/stylix

Browse source
This commit is contained in:
Evie Litherland-Smith 2024-11-25 07:44:38 +00:00
parent 5d31461269
commit e6b866e880
1 changed files with 0 additions and 56 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
README.org
View file

@ -103,62 +103,6 @@ Configure the look and feel of Emacs
(tool-bar-mode -1)
(scroll-bar-mode -1)
#+end_src
*** Theme
#+begin_src emacs-lisp
(add-to-list 'package-selected-packages 'base16-theme)
(use-package base16-theme
:if (package-installed-p 'base16-theme)
:defines (base16-one-light-theme-colors)
:custom
(base16-theme-distinct-fringe-background nil)
(base16-theme-highlight-mode-line 'contrast))
(defvar my/base16-colors nil
"Set to `base16-*-theme-colors' for currently selected theme.")
(defun my/load-theme-and-configure ()
"Load theme and configure some faces."
(interactive)
(require 'base16-theme)
(load-theme 'base16-one-light t)
(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)
(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 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 my/base16-colors :base01))
;; Set `org-hide' face to actually match background colour
(set-face-attribute 'org-hide nil :foreground
(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 my/base16-colors :base08))
(set-face-attribute 'org-noter-notes-exist-face nil :foreground
(plist-get my/base16-colors :base0B))))
(require 'server)
(add-hook 'after-init-hook (lambda () (my/load-theme-and-configure)))
(add-hook 'server-after-make-frame-hook (lambda () (my/load-theme-and-configure)))
#+end_src
*** Nerd Icons
#+begin_src emacs-lisp
(add-to-list 'package-selected-packages 'nerd-icons)