andrew/nixrice
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Move to gnu stow

Browse source
This commit is contained in:
agryphus 2024-02-25 23:58:49 -05:00
parent cd08a447a8
commit 9ea93f8144
120 changed files with 994 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

649
misc/dot-config/doom/config.org Normal file
View file

@ -0,0 +1,649 @@
#+TITLE: Agryphus' Emacs Config
#+AUTHOR: agryphus
# Unfold all org headings
#+STARTUP: showeverything
# Roughly in order of least to most likely to break / necessary to fix a broken config.
* TABLE OF CONTENTS :toc_3:
- [[#general-keybinds][General Keybinds]]
- [[#quick-find-files][Quick Find Files]]
- [[#elisp-evaluation][Elisp Evaluation]]
- [[#unsetting-bindings-that-step-on-mine][Unsetting Bindings That Step on Mine]]
- [[#better-defaults][Better Defaults]]
- [[#disable-really-quit-emacs-prompt][Disable "Really Quit Emacs" Prompt]]
- [[#relative-line-numbers][Relative Line Numbers]]
- [[#scrolloff][Scrolloff]]
- [[#scratch-buffer-mode][Scratch Buffer Mode]]
- [[#evil][Evil]]
- [[#changing-keybinds][Changing Keybinds]]
- [[#changing-backspace-behavior][Changing backspace behavior]]
- [[#leave-insertvisual-modes-with-c-c][Leave insert/visual modes with C-C]]
- [[#remove-jk-escape-sequence][Remove "jk" escape sequence]]
- [[#clearing-highlight-with-c-l][Clearing highlight with C-L]]
- [[#swap-gkj-and-kj][Swap g[k/j] and k/j]]
- [[#resize-font-in-insert-mode][Resize Font in Insert Mode]]
- [[#visual-tweaks][Visual Tweaks]]
- [[#scale-line-number-size-with-buffer-text][Scale Line Number Size with Buffer Text]]
- [[#block-cursor-not-showing-in-terminal-mode][Block Cursor Not Showing in Terminal Mode]]
- [[#doom-dashboard-spacing][Doom Dashboard Spacing]]
- [[#posframe][Posframe]]
- [[#vertico-posframe][Vertico Posframe]]
- [[#company-posframe][Company Posframe]]
- [[#fonts][Fonts]]
- [[#default][Default]]
- [[#mixed-pitch-mode][Mixed Pitch Mode]]
- [[#coloring][Coloring]]
- [[#themes][Themes]]
- [[#transparency][Transparency]]
- [[#languages][Languages]]
- [[#lspcompletion-config][LSP/Completion Config]]
- [[#company-mode][Company-mode]]
- [[#make-lsp-ui-sideline-suggestions-the-same-size-as-buffer-text][Make lsp-ui sideline suggestions the same size as buffer text]]
- [[#lsp-mode-in-org-src-blocks][LSP mode in org src blocks]]
- [[#org][Org]]
- [[#variable-height-headers][Variable Height Headers]]
- [[#org-modern][Org Modern]]
- [[#special-symbolscharacters][Special symbols/characters]]
- [[#agenda][Agenda]]
- [[#svg-tags][SVG Tags]]
- [[#markdown][Markdown]]
- [[#conceal-markup][Conceal Markup]]
- [[#variable-sized-headers][Variable Sized Headers]]
- [[#list-bullets][List Bullets]]
- [[#mixed-pitch][Mixed Pitch]]
- [[#typst][Typst]]
- [[#shell][Shell]]
- [[#nix][Nix]]
- [[#miscellaneous][Miscellaneous]]
- [[#anki][Anki]]
- [[#face-explorer][Face Explorer]]
* General Keybinds
** Quick Find Files
#+begin_src emacs-lisp
(map! :leader
(:prefix ("=" . "open file")
:desc "Edit doom config.org" "c" #'(lambda () (interactive) (find-file "~/.config/doom/config.org"))
:desc "Edit doom init.el" "i" #'(lambda () (interactive) (find-file "~/.config/doom/init.el"))))
(map! "C-/" #'comment-line)
#+end_src
** Elisp Evaluation
#+begin_src emacs-lisp
(map! :leader
(:prefix ("e". "evaluate")
:desc "Evaluate elisp in buffer" "b" #'eval-buffer
:desc "Evaluate defun" "d" #'eval-defun
:desc "Evaluate elisp expression" "e" #'eval-expression
:desc "Evaluate last sexpression" "l" #'eval-last-sexp
:desc "Evaluate elisp in region" "r" #'eval-region))
#+end_src
** Unsetting Bindings That Step on Mine
#+begin_src emacs-lisp
(after! ccls! (unbind-key "M-a" c-mode-base-map))
;; The C package adds a keybind to (ccls-navigate "D"), which not
;; only steps on my binding, but is not even a provided function.
(map! :after ccls
:map (c-mode-map c++-mode-map)
:n "C-h" nil
:n "C-j" nil
:n "C-k" nil
:n "C-l" nil)
#+end_src
* Better Defaults
** Disable "Really Quit Emacs" Prompt
#+begin_src emacs-lisp
(setq confirm-kill-emacs nil)
#+end_src
** Relative Line Numbers
#+begin_src emacs-lisp
(setq display-line-numbers-type 'relative)
#+end_src
** Scrolloff
#+begin_src emacs-lisp
(setq ag/scroll-margin 8) ;; Custom var
(setq scroll-margin ag/scroll-margin)
;; Exceptions for modes that need 0 scroll margin
(add-hook 'eat-mode-hook (lambda () (setq-local scroll-margin 0)))
(add-hook 'eat-exit-hook (lambda () (setq-local scroll-margin ag/scroll-margin)))
(add-hook '+doom-dashboard-mode-hook (lambda () (setq-local scroll-margin 0)))
#+end_src
** Scratch Buffer Mode
Scratch buffer is, by default, in interactive lisp mode. Default to just plaintext.
#+begin_src emacs-lisp
(setq initial-major-mode 'text-mode)
#+end_src
* Evil
** Changing Keybinds
*** Changing backspace behavior
#+begin_src emacs-lisp
(define-key evil-insert-state-map (kbd "<backspace>") 'backward-delete-char-untabify)
#+end_src
*** Leave insert/visual modes with C-C
#+begin_src emacs-lisp
(define-key evil-insert-state-map (kbd "C-c") 'evil-normal-state)
(define-key evil-visual-state-map (kbd "C-c") 'evil-normal-state)
#+end_src
*** Remove "jk" escape sequence
By default, evil exits insert mode when "jk" is pressed in sequence. I find this to be confusing behavior.
#+begin_src emacs-lisp
(setq evil-escape-key-sequence nil)
#+end_src
*** Clearing highlight with C-L
Mimics the "redraw" signal sent to terminals for vim.
#+begin_src emacs-lisp
(define-key evil-normal-state-map (kbd "C-l") 'evil-ex-nohighlight)
#+end_src
*** Swap g[k/j] and k/j
#+begin_src emacs-lisp
(define-key evil-motion-state-map (kbd "gj") 'evil-next-line)
(define-key evil-motion-state-map (kbd "gk") 'evil-previous-line)
(define-key evil-motion-state-map (kbd "j") 'evil-next-visual-line)
(define-key evil-motion-state-map (kbd "k") 'evil-previous-visual-line)
#+end_src
** Resize Font in Insert Mode
These are the same keybinds that are able to work outside of insert mode.
#+begin_src emacs-lisp
(define-key evil-insert-state-map (kbd "C-M-=") 'doom/increase-font-size)
(define-key evil-insert-state-map (kbd "C-M--") 'doom/decrease-font-size)
(define-key evil-insert-state-map (kbd "C-=") 'text-scale-increase)
(define-key evil-insert-state-map (kbd "C--") 'text-scale-decrease)
#+end_src
* Visual Tweaks
** Scale Line Number Size with Buffer Text
#+begin_src emacs-lisp
(add-hook 'text-scale-mode-hook (lambda() (face-remap--remap-face 'line-number)))
(add-hook 'text-scale-mode-hook (lambda() (face-remap--remap-face 'line-number-current-line)))
#+end_src
** Block Cursor Not Showing in Terminal Mode
#+begin_src emacs-lisp :tangle packages.el
(package! evil-terminal-cursor-changer)
#+end_src
#+begin_src emacs-lisp
(use-package! evil-terminal-cursor-changer
:hook (tty-setup . evil-terminal-cursor-changer-activate))
#+end_src
** Doom Dashboard Spacing
I felt that the spacing between the line items in the graphical doom dashboard was too large. There did not seem to be any variable to set this, so I overrode the entire function and manually decreased the spacing
#+begin_src emacs-lisp
(defun doom-dashboard-widget-shortmenu ()
(insert "\n")
(dolist (section +doom-dashboard-menu-sections)
(cl-destructuring-bind (label &key icon action when face key) section
(when (and (fboundp action)
(or (null when)
(eval when t)))
(insert
(+doom-dashboard--center
(- +doom-dashboard--width 1)
(let ((icon (if (stringp icon) icon (eval icon t))))
(format (format "%s%%s%%-10s" (if icon "%3s\t" "%3s"))
(or icon "")
(with-temp-buffer
(insert-text-button
label
'action
`(lambda (_)
(call-interactively (or (command-remapping #',action)
#',action)))
'face (or face 'doom-dashboard-menu-title)
'follow-link t
'help-echo
(format "%s (%s)" label
(propertize (symbol-name action) 'face 'doom-dashboard-menu-desc)))
(format "%-37s" (buffer-string)))
;; Lookup command keys dynamically
(propertize
(or key
(when-let*
((keymaps
(delq
nil (list (when (bound-and-true-p evil-local-mode)
(evil-get-auxiliary-keymap +doom-dashboard-mode-map 'normal))
+doom-dashboard-mode-map)))
(key
(or (when keymaps
(where-is-internal action keymaps t))
(where-is-internal action nil t))))
(with-temp-buffer
(save-excursion (insert (key-description key)))
(while (re-search-forward "<\\([^>]+\\)>" nil t)
(let ((str (match-string 1)))
(replace-match
(upcase (if (< (length str) 3)
str
(substring str 0 3))))))
(buffer-string)))
"")
'face 'doom-dashboard-menu-desc))))
;; (if (display-graphic-p)
;; "\n\n"
;; "\n"))))))
"\n"))))) ;; Overwrote above lines so remove the extra newline in graphical mode from the doom dashboard
(remove-hook '+doom-dashboard-functions #'doom-dashboard-widget-footer) ;; No github at bottom
#+end_src
** Posframe
*** Vertico Posframe
#+begin_src emacs-lisp :tangle packages.el
(package! vertico-posframe)
#+end_src
#+begin_src emacs-lisp
(vertico-posframe-mode 1)
(setq vertico-multiform-commands
'((consult-line
posframe
(vertico-posframe-poshandler . posframe-poshandler-frame-top-center)
(vertico-posframe-border-width . 10)
;; NOTE: This is useful when emacs is used in both in X and
;; terminal, for posframe do not work well in terminal, so
;; vertico-buffer-mode will be used as fallback at the
;; moment.
(vertico-posframe-fallback-mode . vertico-buffer-mode))
(t posframe)))
(vertico-multiform-mode 1)
#+end_src
*** Company Posframe
Company mode, by default, has its suggestions snap to the grid. When using anything other than monospaced font, this creately very glitchy looking behavior. Popping it out in a posframe makes the suggestions exist in their own graphical window.
#+begin_src emacs-lisp :tangle packages.el
(package! company-posframe)
#+end_src
#+begin_src emacs-lisp
(company-posframe-mode 1)
#+end_src
* Fonts
** Default
#+begin_src emacs-lisp
(add-to-list 'default-frame-alist '(font . "Symbols Nerd Font Mono 15"))
(add-to-list 'default-frame-alist '(font . "FiraCode 15"))
(set-face-font 'variable-pitch "Inter Display 15")
(set-fontset-font "fontset-default" 'han "Source Han Sans")
#+end_src
** Mixed Pitch Mode
#+begin_src emacs-lisp :tangle packages.el
(package! mixed-pitch)
#+end_src
* Coloring
There are four ways to start emacs with the combinations of GUI/TUI and standalone/daemon.
Unfortunately, each of these four methods requires a slightly different way to set window transparency.
** Themes
#+begin_src emacs-lisp :tangle packages.el
(package! gruber-darker-theme)
(package! no-clown-fiesta-theme)
#+end_src
#+begin_src emacs-lisp
(add-to-list 'custom-theme-load-path "~/.config/doom/themes/")
(load-theme 'some-clown-fiesta t)
#+end_src
** Transparency
#+begin_src emacs-lisp
;; GUI transparency
(set-frame-parameter nil 'alpha-background 80)
(add-to-list 'default-frame-alist '(alpha-background . 80))
;; Variable sized org headers
(custom-set-faces!
'(default :background "black"))
(defun ag/terminal-faces (frame)
(set-face-attribute 'hl-line frame :background "unspecified-bg")
(set-face-attribute 'org-block frame :background "unspecified-bg")
(set-face-attribute 'default frame :background "unspecified-bg"))
(defun window-transparency ()
(if (display-graphic-p (selected-frame))
(progn ;; $ emacs
;; Transparency for graphical session
)
(progn ;; $ emacs -nw
;; Transparency for terminal session
(ag/terminal-faces (selected-frame)))))
(unless (daemonp)
(add-hook 'window-setup-hook 'window-transparency))
(defun ag/make-client-frame (frame)
;; Called at the creation of each emacsclient frame
(if (display-graphic-p frame)
(progn ;; $ emacsclient -c
;; Transparency for specific graphical frame
)
(progn ;; $ emacsclient -nw
;; Transparency for specific terminal frame
(ag/terminal-faces frame))))
(add-hook 'after-make-frame-functions 'ag/make-client-frame)
#+end_src
Keybinds in order to increase/decrease the transparency of emacs windows in GUI mode. I try to keep these
bindings in sync with the terminal that I use, as to make the experiences of GUI and TUI emacs relatively similar.
#+begin_src emacs-lisp
(defun ag/adjust-alpha-background (delta)
"Increase or decrease the alpha-background by DELTA, not exceeding 1 or going below 0."
(interactive "p")
;; let* macro instead of let, since new-alpha relies on alpha
(let* ((current-alpha (or (frame-parameter (selected-frame) 'alpha-background) 0))
(new-alpha (+ current-alpha delta)))
(when (and (<= new-alpha 100) (>= new-alpha 0))
(set-frame-parameter (selected-frame) 'alpha-background new-alpha))))
(global-set-key (kbd "M-a") (lambda () (interactive) (ag/adjust-alpha-background 5)))
(global-set-key (kbd "M-s") (lambda () (interactive) (ag/adjust-alpha-background -5)))
#+end_src
* Languages
** LSP/Completion Config
*** Company-mode
#+begin_src emacs-lisp
(setq ag/company-idle-delay 0.0) ;; Give completion suggestions immediately
(setq company-minimum-prefix-length 1)
(setq company-idle-delay ag/company-idle-delay)
(set-company-backend!
'(text-mode
markdown-mode
gfm-mode)
'(:seperate
company-files
company-yasnippet
company-ispell))
;; "lsp-mode overrides my config and prepends company-capf to company-backends, which results in shadowing
;; the other backends. To avoid this issue we can remove the lsp added entry using lsp-after-open-hook"
;; - https://github.com/doomemacs/doomemacs/issues/4477#issuecomment-762882261
(add-hook! lsp-after-open
(setq-local company-backends '(:seperate
company-files
company-capf
company-yasnippet
company-ispell)))
(setq +lsp-company-backends '())
#+end_src
*** Make lsp-ui sideline suggestions the same size as buffer text
#+begin_src emacs-lisp
(use-package lsp-ui :commands lsp-ui-mode
:config (progn
;;
;; 2022-03-28 - fix sideline height computation
;;
(defun lsp-ui-sideline--compute-height nil
"Return a fixed size for text in sideline."
(let ((fontHeight (face-attribute 'lsp-ui-sideline-global :height)))
(if (null text-scale-mode-remapping)
'(height
(if (floatp fontHeight) fontHeight
(/ (face-attribute 'lsp-ui-sideline-global :height) 100.0)
)
;; Readjust height when text-scale-mode is used
(list 'height
(/ 1 (or (plist-get (cdr text-scale-mode-remapping) :height)
1)))))))
;;
;; 2022-03-28 - fix sideline alignment
;;
(defun lsp-ui-sideline--align (&rest lengths)
"Align sideline string by LENGTHS from the right of the window."
(list (* (window-font-width nil 'lsp-ui-sideline-global)
(+ (apply '+ lengths) (if (display-graphic-p) 1 2)))))
))
#+end_src
*** LSP mode in org src blocks
From: https://tecosaur.github.io/emacs-config/config.html
#+begin_src emacs-lisp
(cl-defmacro lsp-org-babel-enable (lang)
"Support LANG in org source code block."
(setq centaur-lsp 'lsp-mode)
(cl-check-type lang stringp)
(let* ((edit-pre (intern (format "org-babel-edit-prep:%s" lang)))
(intern-pre (intern (format "lsp--%s" (symbol-name edit-pre)))))
`(progn
(defun ,intern-pre (info)
(let ((file-name (->> info caddr (alist-get :file))))
(unless file-name
(setq file-name (make-temp-file "babel-lsp-")))
(setq buffer-file-name file-name)
(lsp-deferred)))
(put ',intern-pre 'function-documentation
(format "Enable lsp-mode in the buffer of org source block (%s)."
(upcase ,lang)))
(if (fboundp ',edit-pre)
(advice-add ',edit-pre :after ',intern-pre)
(progn
(defun ,edit-pre (info)
(,intern-pre info))
(put ',edit-pre 'function-documentation
(format "Prepare local buffer environment for org source block (%s)."
(upcase ,lang))))))))
(defvar org-babel-lang-list
'("go" "python" "ipython" "bash" "sh"))
(dolist (lang org-babel-lang-list)
(eval `(lsp-org-babel-enable ,lang)))
#+end_src
** Org
#+begin_src emacs-lisp
(add-hook 'org-mode-hook 'mixed-pitch-mode)
#+end_src
#+begin_src emacs-lisp
(setq org-src-fontify-natively t)
#+end_src
*** Variable Height Headers
#+begin_src emacs-lisp
(custom-set-faces!
'(org-document-title :height 1.5)
'(org-document-info :height 1.3)
'(org-level-1 :height 1.5)
'(org-level-2 :height 1.4)
'(org-level-3 :height 1.3)
'(org-level-4 :height 1.2)
'(org-level-5 :height 1.1)
'(org-level-6 :height 1.0)
'(org-level-7 :height 1.0)
'(org-level-8 :height 1.0))
#+end_src
*** Org Modern
#+begin_src emacs-lisp :tangle packages.el
(package! org-modern)
#+end_src
*** Special symbols/characters
#+begin_src emacs-lisp
(after! org
(setq
org-superstar-headline-bullets-list '("⁖" "◉" "•" "◦" "•" "◦" "•" "◦" "•" "◦")
org-superstar-itembullet-alist '((?+ . ?➤) (?- . ?✦)))) ; changes +/- symbols in item lists
(defun ag/prettify-me ()
(setq prettify-symbols-alist
'(("TODO" . "")
("WAIT" . "")
("NOPE" . "")
("DONE" . "")
("[ ]" . "")
("[X]" . "")
("[-]" . "")
("#+begin_src" . "")
("#+BEGIN_SRC" . "")
("#+end_src" . "")
("#+END_SRC" . "")
(":properties:" . "")
(":PROPERTIES:" . "")
("#+property:" . "")
("#+PROPERTY:" . "")
(":end:" . "―")
(":END:" . "―")
("#+options:" . "")
("#+OPTIONS:" . "")
("#+startup:" . "")
("#+STARTUP:" . "")
("#+title: " . "")
("#+TITLE: " . "")
("#+TOC:" . "󰠶")
("#+toc:" . "󰠶")
("#+results:" . "")
("#+RESULTS:" . "")
("#+name:" . "")
("#+NAME:" . "")
("#+roam_tags:" . "")
("#+ROAM_TAGS:" . "")
("#+filetags:" . "")
("#+FILETAGS:" . "")
("#+html_head:" . "")
("#+HTML_HEAD:" . "")
("#+subtitle:" . "")
("#+SUBTITLE:" . "")
("#+author:" . "󰙏")
("#+AUTHOR:" . "󰙏")
(":effort:" . "")
(":EFFORT:" . "")
("scheduled:" . "")
("SCHEDULED:" . "")
("deadline:" . "")
("DEADLINE:" . ""))))
(add-hook 'org-mode-hook 'ag/prettify-me)
;; Can probably remove duplicates with
;; (mapcan (lambda (x) (list x (cons (upcase (car x)) (cdr x))))
#+end_src
*** Agenda
#+begin_src emacs-lisp
(setq org-agenda-files
'("~/.local/share/org-agenda"))
(map! :leader :desc "Open org calendar" "o c" #'cfw:open-org-calendar)
(add-hook 'calendar-after-frame-setup-hook 'cfw:refresh-calendar-buffer)
#+end_src
*** SVG Tags
#+begin_src emacs-lisp :tangle packages.el
(package! svg-tag-mode)
#+end_src
#+begin_src emacs-lisp
(use-package! svg-tag-mode)
(setq svg-tag-tags
'((":TODO:" . ((lambda (tag) (svg-tag-make "TODO"))))
("[X]" . ((lambda (tag) (svg-tag-make "X"))))))
#+end_src
** Markdown
*** Conceal Markup
#+begin_src emacs-lisp
(add-hook 'markdown-mode-hook '(lambda () (markdown-toggle-markup-hiding)))
#+end_src
*** Variable Sized Headers
#+begin_src emacs-lisp
(custom-set-faces!
'(markdown-header-face-1 :height 1.5)
'(markdown-header-face-2 :height 1.4)
'(markdown-header-face-3 :height 1.3)
'(markdown-header-face-4 :height 1.2)
'(markdown-header-face-5 :height 1.1)
'(markdown-header-face-6 :height 1.0)
'(markdown-header-face-7 :height 1.0)
'(markdown-header-face-8 :height 1.0))
#+end_src
*** List Bullets
#+begin_src emacs-lisp
(setq markdown-list-item-bullets '("•" "◦"))
#+end_src
*** Mixed Pitch
#+begin_src emacs-lisp
(add-hook 'markdown-mode-hook '(lambda () (mixed-pitch-mode)))
#+end_src
** Typst
Download the `typst-ts-mode` package, which isn't yet in Melpa.
#+begin_src emacs-lisp :tangle packages.el
(package! typst-mode)
;; (package! typst-ts-mode :recipe (:type git
;; :host sourcehut
;; :repo "meow_king/typst-ts-mode"))
#+end_src
Configure typst-ts-mode.
#+begin_src emacs-lisp
(use-package! typst-mode)
;; (use-package! typst-ts-mode)
;; :custom
;; (typst-ts-mode-watch-options "--open")
;; (typst-ts-mode-enable-raw-blocks-highlight t)
;; (typst-ts-mode-highlight-raw-blocks-at-startup t))
;; (setq treesit-load-name-override-list
;; '((typst "libtree-sitter-typst" "tree_sitter_typst")))
;; (setq treesit-language-source-alist
;; '((typst "https://github.com/uben0/tree-sitter-typst")))
#+end_src
** Shell
#+begin_src emacs-lisp
(set-company-backend!
'(sh-mode)
'(:seperate
company-files
company-shell
company-yasnippet
company-ispell))
#+end_src
** Nix
#+begin_src emacs-lisp
(add-hook! lsp-nix-nil-after-open
(progn
;; There's a silly goofy little function called doom--setq-company-idle-delay-for-nix-mode-h that, for some reason,
;; has a hook that sets company-idle-delay to nil, which effectively removes auto completion in nix-mode. This was
;; very confusing to me and took me a bit to figure out why company-mode was buggy in nix-mode.
(setq-local company-idle-delay ag/company-idle-delay)
(setq-local company-backends nil)
(setq-local company-backends '(:separate
company-files
company-nixos-options
company-capf
company-yasnippet
company-ispell))))
#+end_src
* Miscellaneous
** Anki
#+begin_src emacs-lisp :tangle packages.el
(package! anki-connect)
(package! anki-editor)
#+end_src
** Face Explorer
#+begin_src emacs-lisp :tangle packages.el
(package! face-explorer)
#+end_src

195
misc/dot-config/doom/init.el Normal file
View file

@ -0,0 +1,195 @@
;;; init.el -*- lexical-binding: t; -*-
;; This file controls what Doom modules are enabled and what order they load
;; in. Remember to run 'doom sync' after modifying it!
;; NOTE Press 'SPC h d h' (or 'C-h d h' for non-vim users) to access Doom's
;; documentation. There you'll find a link to Doom's Module Index where all
;; of our modules are listed, including what flags they support.
;; NOTE Move your cursor over a module's name (or its flags) and press 'K' (or
;; 'C-c c k' for non-vim users) to view its documentation. This works on
;; flags as well (those symbols that start with a plus).
;;
;; Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
;; directory (for easy access to its source code).
(doom! :input
;;bidi ; (tfel ot) thgir etirw uoy gnipleh
;;chinese
;;japanese
;;layout ; auie,ctsrnm is the superior home row
:completion
company ; the ultimate code completion backend
;;helm ; the *other* search engine for love and life
;;ido ; the other *other* search engine...
;;ivy ; a search engine for love and life
vertico ; the search engine of the future
:ui
;;deft ; notational velocity for Emacs
doom ; what makes DOOM look the way it does
doom-dashboard ; a nifty splash screen for Emacs
;;doom-quit ; DOOM quit-message prompts when you quit Emacs
;;(emoji +unicode) ; 🙂
hl-todo ; highlight TODO/FIXME/NOTE/DEPRECATED/HACK/REVIEW
;;hydra
;;indent-guides ; highlighted indent columns
ligatures ; ligatures and symbols to make your code pretty again
minimap ; show a map of the code on the side
modeline ; snazzy, Atom-inspired modeline, plus API
;;nav-flash ; blink cursor line after big motions
neotree ; a project drawer, like NERDTree for vim
ophints ; highlight the region an operation acts on
(popup +defaults) ; tame sudden yet inevitable temporary windows
;;tabs ; a tab bar for Emacs
;;treemacs ; a project drawer, like neotree but cooler
;;unicode ; extended unicode support for various languages
(vc-gutter +pretty) ; vcs diff in the fringe
vi-tilde-fringe ; fringe tildes to mark beyond EOB
;;window-select ; visually switch windows
workspaces ; tab emulation, persistence & separate workspaces
;;zen ; distraction-free coding or writing
:editor
(evil +everywhere) ; come to the dark side, we have cookies
file-templates ; auto-snippets for empty files
fold ; (nigh) universal code folding
;;(format +onsave) ; automated prettiness
;;god ; run Emacs commands without modifier keys
;;lispy ; vim for lisp, for people who don't like vim
;;multiple-cursors ; editing in many places at once
;;objed ; text object editing for the innocent
;;parinfer ; turn lisp into python, sort of
;;rotate-text ; cycle region at point between text candidates
snippets ; my elves. They type so I don't have to
;;word-wrap ; soft wrapping with language-aware indent
:emacs
dired ; making dired pretty [functional]
electric ; smarter, keyword-based electric-indent
;;ibuffer ; interactive buffer management
undo ; persistent, smarter undo for your inevitable mistakes
vc ; version-control and Emacs, sitting in a tree
:term
;;eshell ; the elisp shell that works everywhere
;;shell ; simple shell REPL for Emacs
;;term ; basic terminal emulator for Emacs
vterm ; the best terminal emulation in Emacs
:checkers
syntax ; tasing you for every semicolon you forget
(spell +flyspell) ; tasing you for misspelling mispelling
;;grammar ; tasing grammar mistake every you make
:tools
;;ansible
;;biblio ; Writes a PhD for you (citation needed)
;;collab ; buffers with friends
;;debugger ; FIXME stepping through code, to help you add bugs
;;direnv
;;docker
;;editorconfig ; let someone else argue about tabs vs spaces
;;ein ; tame Jupyter notebooks with emacs
(eval +overlay) ; run code, run (also, repls)
;;gist ; interacting with github gists
lookup ; navigate your code and its documentation
lsp ; M-x vscode
magit ; a git porcelain for Emacs
;;make ; run make tasks from Emacs
;;pass ; password manager for nerds
;;pdf ; pdf enhancements
;;prodigy ; FIXME managing external services & code builders
rgb ; creating color strings
;;taskrunner ; taskrunner for all your projects
;;terraform ; infrastructure as code
;;tmux ; an API for interacting with tmux
tree-sitter ; syntax and parsing, sitting in a tree...
;;upload ; map local to remote projects via ssh/ftp
:os
(:if IS-MAC macos) ; improve compatibility with macOS
;;tty ; improve the terminal Emacs experience
:lang
;;agda ; types of types of types of types...
;;beancount ; mind the GAAP
(cc +lsp) ; C > C++ == 1
;;clojure ; java with a lisp
;;common-lisp ; if you've seen one lisp, you've seen them all
;;coq ; proofs-as-programs
;;crystal ; ruby at the speed of c
;;csharp ; unity, .NET, and mono shenanigans
;;data ; config/data formats
;;(dart +flutter) ; paint ui and not much else
;;dhall
;;elixir ; erlang done right
;;elm ; care for a cup of TEA?
(emacs-lisp +lsp) ; drown in parentheses
;;erlang ; an elegant language for a more civilized age
;;ess ; emacs speaks statistics
;;factor
;;faust ; dsp, but you get to keep your soul
;;fortran ; in FORTRAN, GOD is REAL (unless declared INTEGER)
;;fsharp ; ML stands for Microsoft's Language
;;fstar ; (dependent) types and (monadic) effects and Z3
;;gdscript ; the language you waited for
;;(go +lsp) ; the hipster dialect
;;(graphql +lsp) ; Give queries a REST
;;(haskell +lsp) ; a language that's lazier than I am
;;hy ; readability of scheme w/ speed of python
;;idris ; a language you can depend on
;;json ; At least it ain't XML
;;(java +lsp) ; the poster child for carpal tunnel syndrome
;;javascript ; all(hope(abandon(ye(who(enter(here))))))
;;julia ; a better, faster MATLAB
;;kotlin ; a better, slicker Java(Script)
;;latex ; writing papers in Emacs has never been so fun
;;lean ; for folks with too much to prove
;;ledger ; be audit you can be
;;lua ; one-based indices? one-based indices
markdown ; writing docs for people to ignore
;;nim ; python + lisp at the speed of c
(nix +lsp) ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel
(org +pretty) ; organize your plain life in plain text (+pretty enables org-superstar)
;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional
python ; beautiful is better than ugly
;;qt ; the 'cutest' gui framework ever
;;racket ; a DSL for DSLs
;;raku ; the artist formerly known as perl6
;;rest ; Emacs as a REST client
;;rst ; ReST in peace
;;(ruby +rails) ; 1.step {|i| p "Ruby is #{i.even? ? 'love' : 'life'}"}
;;(rust +lsp) ; Fe2O3.unwrap().unwrap().unwrap().unwrap()
;;scala ; java, but good
;;(scheme +guile) ; a fully conniving family of lisps
sh ; she sells {ba,z,fi}sh shells on the C xor
;;sml
;;solidity ; do you need a blockchain? No.
;;swift ; who asked for emoji variables?
;;terra ; Earth and Moon in alignment for performance.
;;web ; the tubes
;;yaml ; JSON, but readable
;;zig ; C, but simpler
:email
;;(mu4e +org +gmail)
;;notmuch
;;(wanderlust +gmail)
:app
calendar
;;emms
;;everywhere ; *leave* Emacs!? You must be joking
;;irc ; how neckbeards socialize
;;(rss +org) ; emacs as an RSS reader
;;twitter ; twitter client https://twitter.com/vnought
:config
literate
(default +bindings +smartparens))

490
misc/dot-config/doom/themes/some-clown-fiesta-theme.el Normal file
View file

@ -0,0 +1,490 @@
;;; some-clown-fiesta-theme.el --- Not-so-colorful-theme -*- lexical-binding: t -*-
;; URL: https://github.com/agryphus/some-clown-fiesta-theme.el
;; Author: agryphus
;;
;; Forked from:
;; URL: https://github.com/ranmaru22/no-clown-fiesta-theme.el
;; Author: ranmaru22
;;
;; This program is free software: you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free Software
;; Foundation, either version 3 of the License, or any later version.
;;
;; This program is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
;; details.
;;
;; You should have received a copy of the GNU General Public License along with
;; this program. If not, see http://www.gnu.org/licenses/.
;;; Commentary:
;; Color theme for Doom Emacs 29+ that does not look like a unicorn farted on your
;; screen. Based on no-clown-fiesta.nvim by aktersnurra, converted and extended
;; for Emacs by ranmaru22 and agryphus.
;;
;; Original nvim theme: https://github.com/aktersnurra/no-clown-fiesta.nvim
;;; Code:
(require 'autothemer)
;;;###autoload
(and (or load-file-name buffer-file-name)
(boundp 'custom-theme-load-path)
(add-to-list 'custom-theme-load-path
(file-name-as-directory
(file-name-directory
(or load-file-name buffer-file-name)))))
(autothemer-deftheme
some-clown-fiesta
"Color theme for Emacs 26+ that does not look like a clown puked up the source code."
((((class color) (min-colors #xFFFFFF))) ;; GUI only for now
;; Color palette
(fg "#E1E1E1")
(bg "#151515")
(_bg-darker "#101010")
(alt-bg "#202020")
(accent "#242424")
(white "#E1E1E1")
(true-white "#FFFFFF")
(dark-gray "#2A2A2A")
(gray "#424242")
(medium-gray "#727272")
(light-gray "#AFAFAF")
(blue "#A5D6FF")
(gray-blue "#7E97AB")
(medium-gray-blue "#A2B5C1")
(dark-gray-blue "#424952")
(cyan "#88afa2")
(red "#CC6666")
(green "#90A959")
(light-green "#77dd77")
(yellow "#F4BF75")
(orange "#FFA557")
(purple "#AA749F")
(pale-purple "#b790d4")
(_dark-purple "#2a2a66")
(magenta "#EFADF9")
(cursor-bg "#D0D0D0")
(cursor-fg "#151515")
(sign-add "#90A959")
(sign-change "#82a8c8")
(sign-delete "#AC4142")
(error-red "#AC4142")
(warning-orange "#F4BF75")
(_info-yellow "#F4BF75")
(success-green "#77dd77")
(hint-blue "#A5D6FF")
(_hint-green "#90A959")
(magit-light-green "#4f5c32")
(_magit-blue "#33424f")
(magit-green "#3f4928")
(magit-light-red "#4f2929")
(magit-red "#3f2121"))
;; Basic
((border (:background alt-bg :foreground medium-gray))
(cursor (:background cursor-bg :foreground cursor-fg))
(hl-line (:background 'unspecified))
(line-number (:foreground medium-gray))
(line-number-current-line (:foreground medium-gray))
(default (:foreground fg :background bg))
(fringe (:background 'unspecified :foreground light-gray))
(vertical-border (:background 'unspecified :foreground dark-gray))
(link (:foreground hint-blue :underline t))
(link-visited (:foreground pale-purple :underline t))
(match (:background accent))
(highlight (:background dark-gray-blue))
(shadow (:foreground gray))
(minibuffer-prompt (:foreground pale-purple))
(region (:background gray :foreground 'unspecified))
(secondary-selection (:background medium-gray :foreground 'unspecified))
(trailing-whitespace (:foreground 'unspecified :background error-red))
(tooltip (:background alt-bg :foreground fg))
(child-frame-border (:background dark-gray))
(error (:foreground error-red :weight 'bold))
(warning (:foreground warning-orange :weight 'bold))
(success (:foreground success-green :weight 'bold))
;; Term colors
(term-color-black (:foreground gray :background medium-gray))
(term-color-red (:foreground red :background error-red))
(term-color-green (:foreground green :background light-green))
(term-color-blue (:foreground gray-blue :background blue))
(term-color-yellow (:foreground orange :background yellow))
(term-color-magenta (:foreground purple :background magenta))
(term-color-cyan (:foreground cyan :background sign-change))
(term-color-white (:foreground white :background true-white))
;; ANSI colors
(ansi-color-black (:foreground gray :background gray))
(ansi-color-red (:foreground red :background red))
(ansi-color-green (:foreground green :background green))
(ansi-color-blue (:foreground gray-blue :background gray-blue))
(ansi-color-yellow (:foreground orange :background orange))
(ansi-color-magenta (:foreground purple :background purple))
(ansi-color-cyan (:foreground cyan :background cyan))
(ansi-color-gray (:foreground white :background white))
(ansi-color-bright-black (:foreground medium-gray :background medium-gray))
(ansi-color-bright-red (:foreground error-red :background error-red))
(ansi-color-bright-green (:foreground light-green :background light-green))
(ansi-color-bright-blue (:foreground blue :background blue))
(ansi-color-bright-yellow (:foreground yellow :background yellow))
(ansi-color-bright-magenta (:foreground magenta :background magenta))
(ansi-color-bright-cyan (:foreground sign-change :background sign-change))
(ansi-color-bright-gray (:foreground true-white :background true-white))
;; Pulse
(pulse-highlight-start-face (:background medium-gray :extend t))
;; Show paren
(show-paren-match (:foreground blue :weight 'bold :underline t))
(show-paren-match-expression (:foreground blue :weight 'bold :underline t))
(show-paren-mismatch (:background red :weight 'bold :underline t))
;; Rainbow delimiter
(rainbow-delimiters-base-error-face (:foreground error-red :weight 'bold))
(rainbow-delimiters-base-face (:foreground fg))
(rainbow-delimiters-depth-1-face (:foreground medium-gray-blue))
(rainbow-delimiters-depth-2-face (:foreground gray-blue))
(rainbow-delimiters-depth-3-face (:foreground cyan))
(rainbow-delimiters-depth-4-face (:foreground green))
(rainbow-delimiters-depth-5-face (:foreground medium-gray-blue))
(rainbow-delimiters-depth-6-face (:foreground gray-blue))
(rainbow-delimiters-depth-7-face (:foreground cyan))
(rainbow-delimiters-depth-8-face (:foreground green))
(rainbow-delimiters-depth-9-face (:foreground medium-gray-blue))
(rainbow-delimiters-mismatched-face (:foreground error-red :weight 'bold))
(rainbow-delimiters-unmatched-face (:foreground error-red :weight 'bold))
;; Mode-line
(mode-line (:foreground fg
:background dark-gray
:box (:line-width 4 :color dark-gray)))
(mode-line-inactive (:foreground medium-gray
:background alt-bg
:box (:line-width 4 :color alt-bg)))
;; Tab-bar
(tab-bar (:foreground medium-gray
:background dark-gray
:box (:line-width 4 :color dark-gray)))
(tab-bar-tab (:foreground fg))
(tab-bar-tab-group-current (:foreground fg :weight 'bold :underline t))
(tab-bar-tab-inactive (:foreground medium-gray))
(tab-bar-tab-ungrouped (:foreground medium-gray))
(tab-bar-tab-group-inactive (:foreground medium-gray :underline t))
;; Font lock
(font-lock-builtin-face (:foreground gray-blue))
(font-lock-comment-face (:foreground medium-gray))
(font-lock-comment-delimiter-face (:foreground medium-gray))
(font-lock-constant-face (:foreground medium-gray-blue))
(font-lock-doc-face (:foreground light-gray))
(font-lock-doc-markup-face (:foreground blue))
(font-lock-doc-string-face (:foreground medium-gray-blue))
(font-lock-function-name-face (:foreground cyan))
(font-lock-keyword-face (:foreground gray-blue :weight 'bold))
(font-lock-preprocessor-face (:foreground medium-gray-blue))
(font-lock-reference-face (:foreground blue))
(font-lock-string-face (:foreground green))
(font-lock-type-face (:foreground white :weight 'bold))
(font-lock-number-face (:foreground red))
(font-lock-variable-name-face (:foreground white))
(font-lock-warning-face (:foreground warning-orange))
;; Highlight number
(highlight-numbers-number (:foreground red))
;; HL Todo
(hl-todo (:foreground yellow :weight 'bold))
;; Treesitter
(tree-sitter-hl-face:attribute (:foreground white))
(tree-sitter-hl-face:comment (:foreground medium-gray))
(tree-sitter-hl-face:constant (:foreground white))
(tree-sitter-hl-face:constant.builtin (:foreground red))
(tree-sitter-hl-face:constructor (:foreground white))
(tree-sitter-hl-face:doc (:foreground light-gray))
(tree-sitter-hl-face:escape (:foreground medium-gray-blue))
(tree-sitter-hl-face:function (:foreground cyan))
(tree-sitter-hl-face:function.builtin (:foreground cyan))
(tree-sitter-hl-face:function.call (:foreground cyan))
(tree-sitter-hl-face:function.macro (:foreground cyan))
(tree-sitter-hl-face:function.special (:foreground cyan))
(tree-sitter-hl-face:keyword (:foreground gray-blue :weight 'bold))
(tree-sitter-hl-face:label (:foreground white))
(tree-sitter-hl-face:method (:foreground cyan))
(tree-sitter-hl-face:method.call (:foreground cyan))
(tree-sitter-hl-face:number (:foreground red))
(tree-sitter-hl-face:operator (:foreground white))
(tree-sitter-hl-face:property (:foreground white))
(tree-sitter-hl-face:property.definition (:foreground white))
(tree-sitter-hl-face:punctuation (:foreground white))
(tree-sitter-hl-face:punctuation.bracket (:foreground white))
(tree-sitter-hl-face:punctuation.delimiter (:foreground white))
(tree-sitter-hl-face:punctuation.special (:foreground medium-gray))
(tree-sitter-hl-face:string (:foreground green))
(tree-sitter-hl-face:string.special (:foreground medium-gray-blue))
(tree-sitter-hl-face:tag (:foreground pale-purple))
(tree-sitter-hl-face:type (:foreground white))
(tree-sitter-hl-face:type.argument (:foreground white))
(tree-sitter-hl-face:type.builtin (:foreground white))
(tree-sitter-hl-face:type.parameter (:foreground white))
(tree-sitter-hl-face:type.super (:foreground white))
(tree-sitter-hl-face:variable (:foreground white))
(tree-sitter-hl-face:variable.builtin (:foreground white))
(tree-sitter-hl-face:variable.parameter (:foreground white))
(tree-sitter-hl-face:variable.special (:foreground white))
;; Git
(git-commit-summary (:foreground white))
(git-commit-overlong-summary (:foreground error-red))
;; Magit
(magit-branch (:foreground cyan))
(magit-diff-hunk-header (:background alt-bg))
(magit-diff-file-header (:background alt-bg))
(magit-log-sha1 (:foreground red))
(magit-log-author (:foreground green))
(magit-diffstat-added (:foreground sign-add))
(magit-diffstat-removed (:foreground sign-delete))
(magit-diff-added (:background magit-green))
(magit-diff-removed (:background magit-red))
(magit-diff-added-highlight (:background magit-light-green))
(magit-diff-removed-highlight (:background magit-light-red))
(magit-bisect-bad (:inherit 'error))
(magit-bisect-good (:inherit 'success))
(magit-bisect-skip (:inherit 'warning))
(magit-blame-date (:foreground blue))
(magit-blame-dimmed (:inherit 'shadow))
(magit-blame-hash (:foreground orange))
(magit-blame-heading (:background alt-bg :extend t))
(magit-blame-highlight (:foreground yellow))
(magit-blame-margin (:foreground medium-gray-blue))
(magit-blame-name (:foreground magenta))
(magit-blame-summary (:foreground cyan))
(magit-branch--local (:foreground blue))
(magit-branch-remote (:foreground magenta))
(magit-branch-remote-head (:foreground magenta :box t))
(magit-branch-upstream (:inherit 'bold))
(magit-branch-warning (:inherit 'warning))
(magit-cherry-equivalent (:background alt-bg :foreground magenta))
(magit-cherry-unmatched (:background alt-bg :foreground cyan))
;; git-gutter
(git-gutter:added (:foreground sign-add))
(git-gutter:deleted (:foreground sign-delete))
(git-gutter:modified (:foreground sign-change))
;; isearch (and lazy-highlight)
(lazy-highlight (:background 'unspecified :foreground orange))
(isearch (:background 'unspecified :foreground orange :weight 'bold))
(isearch-group-1 (:foreground fg :background magenta))
(isearch-group-2 (:foreground fg :background purple))
(isearch-fail (:background error-red :foreground fg))
;; Anzu
(anzu-match-1 (:foreground orange))
(anzu-match-2 (:foreground magenta))
(anzu-match-3 (:foreground purple))
(anzu-mode-line (:foreground orange))
(anzu-mode-line-no-match (:foreground red))
(anzu-replace-highlight (:foreground orange :weight 'bold))
(anzu-replace-to (:foreground yellow))
;; Vertico
(vertico-current (:inherit 'highlight))
(vertico-group-title (:foreground medium-gray :weight 'bold))
;; Consult
(consult-line-number-prefix (:inherit 'line-number))
(consult-line-number-wrapped (:foreground gray-blue))
;; Marginalia
(marginalia-documentation (:foreground medium-gray))
(marginalia-file-name (:foreground medium-gray))
;; Orderless
(orderless-match-face-0 (:foreground orange :weight 'bold))
(orderless-match-face-1 (:foreground blue :weight 'bold))
(orderless-match-face-2 (:foreground magenta :weight 'bold))
(orderless-match-face-3 (:foreground light-green :weight 'bold))
;; Corfu
(corfu-current (:inherit 'highlight))
(corfu-bar (:background medium-gray))
(corfu-border (:background medium-gray))
(corfu-default (:background alt-bg))
(corfu-annotations (:foreground medium-gray))
(corfu-deprecated (:foreground medium-gray :strike-through t))
(corfu-echo (:foreground medium-gray))
;; Company (just for compatibility ... use Corfu instead)
(company-tooltip (:background alt-bg))
(company-tooltip-annotation (:background alt-bg))
(company-tooltip-annotation-selection (:background dark-gray))
(company-tooltip-selection (:background dark-gray))
;; Autocomplete partially typed field
(company-tooltip-common-selection (:background 'unspecified
:foreground orange))
(company-tooltip-common (:background 'unspecified
:foreground orange))
(company-scrollbar-fg (:background alt-bg))
(company-scrollbar-bg (:background medium-gray))
(company-preview (:background 'unspecified
:foreground green))
(company-preview-common (:background 'unspecified
:foreground green))
;; org-mode
(org-default (:foreground fg))
(org-block (:background "#111111"))
;; (org-block (:inherit 'fixed-pitch))
(org-level-1 (:foreground medium-gray-blue :weight 'bold))
(org-level-2 (:foreground gray-blue :weight 'bold))
(org-level-3 (:foreground cyan :weight 'bold))
(org-level-4 (:foreground green :weight 'bold))
(org-level-5 (:foreground medium-gray-blue :weight 'bold))
(org-level-6 (:foreground gray-blue :weight 'bold))
(org-level-7 (:foreground cyan :weight 'bold))
(org-level-8 (:foreground green :weight 'bold))
(org-quote (:foreground gray-blue))
(org-code (:foreground green))
(org-verbatim (:foreground blue))
(org-inline-src-block (:foreground green))
(org-todo (:foreground red))
(org-done (:foreground success-green))
(org-column (:background 'unspecified))
(org-column-title (:background 'unspecified :weight 'bold :underline t))
(org-document-info-keyword (:foreground medium-gray-blue))
(org-document-title (:foreground white :weight 'bold))
(org-document-info (:foreground white :weight 'bold))
;; Markdown
(markdown-header-face-1 (:weight 'bold
:underline (:style 'line)
:foreground medium-gray-blue :weight 'bold))
(markdown-header-face-2 (:weight 'bold
:underline (:style 'line)
:foreground gray-blue :weight 'bold))
(markdown-header-face-3 (:weight 'bold
:underline (:style 'line)
:foreground cyan :weight 'bold))
(markdown-header-face-4 (:weight 'bold
:underline (:style 'line)
:foreground green :weight 'bold))
(markdown-header-face-5 (:weight 'bold
:underline (:style 'line)
:foreground medium-gray-blue :weight 'bold))
(markdown-header-face-6 (:weight 'bold
:underline (:style 'line)
:foreground gray-blue :weight 'bold))
(markdown-header-face-7 (:weight 'bold
:underline (:style 'line)
:foreground cyan :weight 'bold))
(markdown-header-face-8 (:weight 'bold
:underline (:style 'line)
:foreground green :weight 'bold))
(markdown-list-face (:foreground medium-gray-blue))
(markdown-hr-face (:foreground medium-gray :weight 'bold))
(markdown-code-face (:background "#111111" :extend t))
;; Dired
(dired-directory (:foreground blue :weight 'bold))
(dired-ignored (:foreground gray-blue))
(dired-header (:foreground light-gray :weight 'bold :underline t))
;; Flymake
(flymake-error (:underline (:style 'wave :color error-red)))
(flymake-warning (:underline (:style 'wave :color warning-orange)))
(flymake-note (:underline (:style 'wave :color hint-blue)))
;; Flycheck
(flycheck-error (:underline (:style 'wave :color error-red)))
(flycheck-warning (:underline (:style 'wave :color warning-orange)))
(flycheck-info (:underline (:style 'wave :color hint-blue)))
(flycheck-fringe-error (:inherit 'error))
(flycheck-fringe-warning (:inherit 'warning))
(flycheck-fringe-info (:foreground hint-blue :weight 'bold))
(flycheck-error-list-error (:inherit 'error))
(flycheck-error-list-warning (:inherit 'warning))
(flycheck-error-list-info (:foreground hint-blue :weight 'bold))
;; Compilation
(compilation-info (:foreground hint-blue))
;; yasnippet
(yas-field-highlight-face (:background nil))
;; diredfl
(diredfl-compressed-file-name (:foreground gray-blue))
(diredfl-compressed-file-suffix (:foreground gray-blue))
(diredfl-date-time (:foreground medium-gray-blue))
(diredfl-deletion (:strike-through t))
(diredfl-deletion-file-name (:foreground red :strike-through t))
(diredfl-dir-heading (:foreground yellow
:weight 'bold
:underline t))
(diredfl-dir-name (:foreground cyan))
(diredfl-dir-priv (:foreground cyan))
(diredfl-exec-priv (:foreground green))
(diredfl-executable-tag (:foreground green))
(diredfl-file-name (:foreground white))
(diredfl-file-suffix (:foreground white))
(diredfl-flag-mark (:background gray-blue))
(diredfl-flag-mark-line (:background gray-blue))
(diredfl-ignored-file-name (:foreground gray))
(diredfl-link-priv (:foreground magenta))
(diredfl-no-priv (:foreground gray))
(diredfl-number (:foreground red))
(diredfl-other-priv (:foreground white))
(diredfl-rare-priv (:foreground purple))
(diredfl-read-priv (:foreground yellow))
(diredfl-symlink (:foreground magenta))
(diredfl-tagged-autofile-name (:foreground white))
(diredfl-write-priv (:foreground red))
;; Treemacs
(treemacs-directory-face (:foreground white))
(treemacs-root-face (:foreground yellow
:weight 'bold
:underline t))
(treemacs-git-added-face (:foreground green))
(treemacs-git-commit-diff-face (:foreground blue))
(treemacs-git-conflict-face (:foreground red))
(treemacs-git-ignored-face (:foreground gray))
(treemacs-git-modified-face (:foreground blue))
(treemacs-marked-file-face (:inherit 'highlight))
;; nix
(nix-builtin-face (:foreground red))
;; ERC
(erc-notice-face (:foreground purple))
(erc-timestamp-face (:foreground medium-gray-blue))
(erc-input-face (:foreground yellow))
(erc-my-nick-face (:foreground yellow)))
(custom-theme-set-variables
'some-clown-fiesta
`(pos-tip-foreground-color ,fg)
`(pos-tip-background-color ,alt-bg)
`(ansi-color-names-vector [,gray ,red ,green ,gray-blue
,orange ,purple ,cyan ,white])))
(provide-theme 'some-clown-fiesta)
;; Local Variables:
;; no-byte-compile: t
;; eval: (when (fboundp 'rainbow-mode) (rainbow-mode +1))
;; End:
;;; some-clown-fiesta-theme.el ends here.