Skip to content

Instantly share code, notes, and snippets.

@ewilderj

ewilderj/README.md

Created May 14, 2026 16:41
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save ewilderj/9f5139bf5916369b69ec43169e2d89a8 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save ewilderj/9f5139bf5916369b69ec43169e2d89a8 to your computer and use it in GitHub Desktop.
Download ZIP
Edd's Dracula Light theme + markdown.el reading-mode config for Emacs
Raw
README.md

Edd's Emacs goodies

Two small things from my Emacs config that travel well:

dracula-light-theme.el

A light variant of the Dracula theme (port of film42's work, with my tweaks). Drop into a directory on custom-theme-load-path and:

(load-theme 'dracula-light t)

markdown.el

Makes editing and reading markdown in Emacs much nicer:

  • Fixed-pitch tables and code even when the rest of the buffer uses a proportional font (via mixed-pitch). Includes a font-lock rule so the spaces inside | ... | table lines also stay fixed-pitch — otherwise columns drift.
  • Disables whitespace-mode in markdown buffers. The default whitespace-space face has no :family, so spaces inherit the proportional default and code-block alignment explodes. Killing whitespace-mode for .md fixes it.
  • <TAB> realigns markdown tables when point is inside one (org-mode style), otherwise falls through to markdown-cycle.
  • <F6> toggles a "reading mode": hides inline **/_/` markup, switches the body to a serif "reading face" (New York / Iowan Old Style / Charter, whichever you have), widens olivetti, and silences flycheck/flymake/flyspell. Toggle off to return cleanly to your editing setup.

Requirements

markdown-mode, mixed-pitch, and (optionally) olivetti. The reading face falls back to a generic serif if none of the named fonts are installed.

Notes

The reading-mode face stack uses face-remap-add-relative rather than mucking with mixed-pitch-face directly — that way it composes cleanly on top of mixed-pitch-mode and toggles off without leaving ghost remappings.

Raw
dracula-light-theme.el
;;; dracula-light-theme.el --- Dracula Light Theme -*- lexical-binding: t; -*-
;; Copyright 2015-present, All rights reserved
;;
;; Code licensed under the MIT license
;; Maintainer: Edd Wilder-James <ewilderjames@gmail.com>
;; Author: film42 (ported by Gemini)
;; Version: 1.8.2
;; Package-Requires: ((emacs "24.3"))
;; URL: https://github.com/dracula/emacs
;;; Commentary:
;; A light color theme based on Dracula.
;;; Code:
(deftheme dracula-light)
;;;; Configuration options:
(defgroup dracula-light nil
"Dracula Light theme options.
The theme has to be reloaded after changing anything in this group."
:group 'faces)
(defcustom dracula-light-enlarge-headings t
"Use different font sizes for some headings and titles."
:type 'boolean
:group 'dracula-light)
(defcustom dracula-light-height-title-1 1.3
"Font size 130%."
:type 'number
:group 'dracula-light)
(defcustom dracula-light-height-title-2 1.1
"Font size 110%."
:type 'number
:group 'dracula-light)
(defcustom dracula-light-height-title-3 1.0
"Font size 100%."
:type 'number
:group 'dracula-light)
(defcustom dracula-light-height-doc-title 1.44
"Font size 144%."
:type 'number
:group 'dracula-light)
(defcustom dracula-light-bg "#FFFBEB"
"Background color for the Dracula Light theme."
:type 'string
:group 'dracula-light)
(defcustom dracula-light-comment "#6C664B"
"Comment color for the Dracula Light theme."
:type 'string
:group 'dracula-light)
(defcustom dracula-light-alternate-mode-line-and-minibuffer nil
"Use less bold and pink in the minibuffer."
:type 'boolean
:group 'dracula-light)
;;;; Theme definition:
;; Assigment form: VARIABLE COLOR [256-COLOR [TTY-COLOR]]
(let ((colors `(;; Upstream theme color
(dracula-bg ,dracula-light-bg "white" "white") ; official background
(dracula-fg "#1F1F1F" "black" "black") ; official foreground
(dracula-current "#CFCFDE" "#e0e0e0" "white") ; official selection
(dracula-comment ,dracula-light-comment "#5f5faf" "blue") ; official comment
(dracula-cyan "#036A96" "#0087ff" "blue") ; official cyan
(dracula-green "#14710A" "#00af00" "green") ; official green
(dracula-orange "#A34D14" "#ffaf5f" "red") ; official orange
(dracula-pink "#A3144D" "#ff87d7" "magenta") ; official pink
(dracula-purple "#644AC9" "#af87ff" "magenta") ; official purple
(dracula-red "#CB3A2A" "#ff8787" "red") ; official red
(dracula-yellow "#846E15" "#ffff87" "yellow") ; official yellow
;; Other colors
(bg2 "#F0ECD6" "#e4e4e4" "white") ; slightly darker than bg
(bg3 "#E0DCC6" "#cccccc" "white") ; even darker
(fg2 "#2F2F2F" "#444444" "black") ; lighter fg
(fg3 "#4F4F4F" "#555555" "black") ; even lighter fg
(fg4 "#6F6F6F" "#666666" "black") ; lightest fg
(dark-red "#FADAD7" "#ffafaf" "red") ; pale red for diffs
(dark-green "#D6F5D3" "#afffaf" "green") ; pale green for diffs
(dark-blue "#D6DEFA" "#afafff" "blue")))
(faces '(;; default / basic faces
(cursor :background ,fg3)
(default :background ,dracula-bg :foreground ,dracula-fg)
(default-italic :slant italic)
(error :foreground ,dracula-red)
(ffap :foreground ,fg4)
(fringe :background ,dracula-bg :foreground ,fg4)
(header-line :inherit 'mode-line)
(highlight :foreground ,fg3 :background ,dracula-current)
(hl-line :background ,bg2 :extend t)
(info-quoted-name :foreground ,dracula-orange)
(info-string :foreground ,dracula-yellow)
(lazy-highlight :foreground ,fg2 :background ,bg2)
(link :foreground ,dracula-cyan :underline t)
(linum :slant italic :foreground ,bg3 :background ,dracula-bg)
(line-number :slant italic :foreground ,bg3 :background ,dracula-bg)
(match :background ,dracula-yellow :foreground ,dracula-bg)
(menu :background ,dracula-current :inverse-video nil
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :foreground fg3)
(list :foreground dracula-fg)))
(minibuffer-prompt
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :weight 'normal :foreground dracula-fg)
(list :weight 'bold :foreground dracula-pink)))
(mode-line :background ,dracula-current
:box ,dracula-current :inverse-video nil
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :foreground fg3)
(list :foreground dracula-fg)))
(mode-line-inactive
:background ,dracula-bg :inverse-video nil
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :foreground dracula-comment :box dracula-bg)
(list :foreground fg4 :box bg2)))
(read-multiple-choice-face :inherit completions-first-difference)
(region :background ,dracula-current :extend nil)
(shadow :foreground ,dracula-comment)
(success :foreground ,dracula-green)
(tooltip :foreground ,dracula-fg :background ,dracula-current)
(trailing-whitespace :background ,dracula-current)
(vertical-border :foreground ,bg2)
(warning :foreground ,dracula-orange)
;; syntax / font-lock
(font-lock-builtin-face :foreground ,dracula-cyan :slant italic)
(font-lock-comment-face :inherit shadow)
(font-lock-comment-delimiter-face :inherit shadow)
(font-lock-constant-face :foreground ,dracula-purple)
(font-lock-doc-face :foreground ,dracula-comment)
(font-lock-function-name-face :foreground ,dracula-green :weight bold)
(font-lock-keyword-face :foreground ,dracula-pink :weight bold)
(font-lock-negation-char-face :foreground ,dracula-cyan)
(font-lock-number-face :foreground ,dracula-purple)
(font-lock-operator-face :foreground ,dracula-pink)
(font-lock-preprocessor-face :foreground ,dracula-orange)
(font-lock-reference-face :inherit font-lock-constant-face) ;; obsolete
(font-lock-regexp-grouping-backslash :foreground ,dracula-cyan)
(font-lock-regexp-grouping-construct :foreground ,dracula-purple)
(font-lock-string-face :foreground ,dracula-yellow)
(font-lock-type-face :inherit font-lock-builtin-face)
(font-lock-variable-name-face :foreground ,dracula-fg :weight bold)
(font-lock-warning-face :inherit warning :background ,bg2)
;; auto-complete
(ac-completion-face :underline t :foreground ,dracula-pink)
;; ansi-color
(ansi-color-black :foreground ,dracula-bg :background ,dracula-bg)
(ansi-color-bright-black :foreground "black" :background "black")
(ansi-color-blue :foreground ,dracula-purple :background ,dracula-purple)
(ansi-color-bright-blue :foreground ,dracula-purple
:background ,dracula-purple
:weight bold)
(ansi-color-cyan :foreground ,dracula-cyan :background ,dracula-cyan)
(ansi-color-bright-cyan :foreground ,dracula-cyan
:background ,dracula-cyan
:weight bold)
(ansi-color-green :foreground ,dracula-green :background ,dracula-green)
(ansi-color-bright-green :foreground ,dracula-green
:background ,dracula-green
:weight bold)
(ansi-color-magenta :foreground ,dracula-pink :background ,dracula-pink)
(ansi-color-bright-magenta :foreground ,dracula-pink
:background ,dracula-pink
:weight bold)
(ansi-color-red :foreground ,dracula-red :background ,dracula-red)
(ansi-color-bright-red :foreground ,dracula-red
:background ,dracula-red
:weight bold)
(ansi-color-white :foreground ,dracula-fg :background ,dracula-fg)
(ansi-color-bright-white :foreground "white" :background "white")
(ansi-color-yellow :foreground ,dracula-yellow :background ,dracula-yellow)
(ansi-color-bright-yellow :foreground ,dracula-yellow
:background ,dracula-yellow
:weight bold)
;; bookmarks
(bookmark-face :foreground ,dracula-pink)
;; company
(company-echo-common :foreground ,dracula-bg :background ,dracula-fg)
(company-preview :background ,dracula-current :foreground ,dark-blue)
(company-preview-common :inherit company-preview
:foreground ,dracula-pink)
(company-preview-search :inherit company-preview
:foreground ,dracula-green)
(company-scrollbar-bg :background ,dracula-comment)
(company-scrollbar-fg :foreground ,dark-blue)
(company-tooltip :inherit tooltip)
(company-tooltip-search :foreground ,dracula-green
:underline t)
(company-tooltip-search-selection :background ,dracula-green
:foreground ,dracula-bg)
(company-tooltip-selection :inherit match)
(company-tooltip-mouse :background ,dracula-bg)
(company-tooltip-common :foreground ,dracula-pink :weight bold)
;;(company-tooltip-common-selection :inherit company-tooltip-common)
(company-tooltip-annotation :foreground ,dracula-cyan)
;;(company-tooltip-annotation-selection :inherit company-tooltip-annotation)
;; completions (minibuffer.el)
(completions-annotations :inherit font-lock-comment-face)
(completions-common-part :foreground ,dracula-green)
(completions-first-difference :foreground ,dracula-pink :weight bold)
;; diff
(diff-added :background ,dark-green :foreground ,dracula-fg :extend t)
(diff-removed :background ,dark-red :foreground ,dracula-fg :extend t)
(diff-refine-added :background ,dracula-green
:foreground ,dracula-bg)
(diff-refine-removed :background ,dracula-red
:foreground ,dracula-fg)
(diff-indicator-added :foreground ,dracula-green)
(diff-indicator-removed :foreground ,dracula-red)
(diff-indicator-changed :foreground ,dracula-orange)
(diff-error :foreground ,dracula-red, :background ,dracula-bg
:weight bold)
;; diff-hl
(diff-hl-change :foreground ,dracula-orange :background ,dracula-orange)
(diff-hl-delete :foreground ,dracula-red :background ,dracula-red)
(diff-hl-insert :foreground ,dracula-green :background ,dracula-green)
;; dired
(dired-directory :foreground ,dracula-green :weight normal)
(dired-flagged :foreground ,dracula-pink)
(dired-header :foreground ,fg3 :background ,dracula-bg)
(dired-ignored :inherit shadow)
(dired-mark :foreground ,dracula-fg :weight bold)
(dired-marked :foreground ,dracula-orange :weight bold)
(dired-perm-write :foreground ,fg3 :underline t)
(dired-symlink :foreground ,dracula-yellow :weight normal :slant italic)
(dired-warning :foreground ,dracula-orange :underline t)
(diredp-compressed-file-name :foreground ,fg3)
(diredp-compressed-file-suffix :foreground ,fg4)
(diredp-date-time :foreground ,dracula-fg)
(diredp-deletion-file-name :foreground ,dracula-pink :background ,dracula-current)
(diredp-deletion :foreground ,dracula-pink :weight bold)
(diredp-dir-heading :foreground ,fg2 :background ,bg3)
(diredp-dir-name :inherit dired-directory)
(diredp-dir-priv :inherit dired-directory)
(diredp-executable-tag :foreground ,dracula-orange)
(diredp-file-name :foreground ,dracula-fg)
(diredp-file-suffix :foreground ,fg4)
(diredp-flag-mark-line :foreground ,fg2 :slant italic :background ,dracula-current)
(diredp-flag-mark :foreground ,fg2 :weight bold :background ,dracula-current)
(diredp-ignored-file-name :foreground ,dracula-fg)
(diredp-mode-line-flagged :foreground ,dracula-orange)
(diredp-mode-line-marked :foreground ,dracula-orange)
(diredp-no-priv :foreground ,dracula-fg)
(diredp-number :foreground ,dracula-cyan)
(diredp-other-priv :foreground ,dracula-orange)
(diredp-rare-priv :foreground ,dracula-orange)
(diredp-read-priv :foreground ,dracula-purple)
(diredp-write-priv :foreground ,dracula-pink)
(diredp-exec-priv :foreground ,dracula-yellow)
(diredp-symlink :foreground ,dracula-orange)
(diredp-link-priv :foreground ,dracula-orange)
(diredp-autofile-name :foreground ,dracula-yellow)
(diredp-tagged-autofile-name :foreground ,dracula-yellow)
;; ediff
(ediff-current-diff-A :background ,dark-red)
(ediff-fine-diff-A :background ,dracula-red :foreground ,dracula-fg)
(ediff-current-diff-B :background ,dark-green)
(ediff-fine-diff-B :background ,dracula-green :foreground ,dracula-bg)
(ediff-current-diff-C :background ,dark-blue)
(ediff-fine-diff-C :background ,dracula-cyan :foreground ,dracula-bg)
;; eglot
(eglot-diagnostic-tag-unnecessary-face :inherit warning)
(eglot-diagnostic-tag-deprecated-face :inherit warning :strike-through t)
;; eldoc-box
(eldoc-box-border :background ,dracula-current)
(eldoc-box-body :background ,dracula-current)
;; elfeed
(elfeed-search-date-face :foreground ,dracula-comment)
(elfeed-search-title-face :foreground ,dracula-fg)
(elfeed-search-unread-title-face :foreground ,dracula-pink :weight bold)
(elfeed-search-feed-face :foreground ,dracula-fg :weight bold)
(elfeed-search-tag-face :foreground ,dracula-green)
(elfeed-search-last-update-face :weight bold)
(elfeed-search-unread-count-face :foreground ,dracula-pink)
(elfeed-search-filter-face :foreground ,dracula-green :weight bold)
;;(elfeed-log-date-face :inherit font-lock-type-face)
(elfeed-log-error-level-face :foreground ,dracula-red)
(elfeed-log-warn-level-face :foreground ,dracula-orange)
(elfeed-log-info-level-face :foreground ,dracula-cyan)
(elfeed-log-debug-level-face :foreground ,dracula-comment)
;; elpher
(elpher-gemini-heading1 :inherit bold :foreground ,dracula-pink
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(elpher-gemini-heading2 :inherit bold :foreground ,dracula-purple
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-2)))
(elpher-gemini-heading3 :weight normal :foreground ,dracula-green
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-3)))
(elpher-gemini-preformatted :inherit fixed-pitch
:foreground ,dracula-orange)
;; enh-ruby
(enh-ruby-heredoc-delimiter-face :foreground ,dracula-yellow)
(enh-ruby-op-face :foreground ,dracula-pink)
(enh-ruby-regexp-delimiter-face :foreground ,dracula-yellow)
(enh-ruby-string-delimiter-face :foreground ,dracula-yellow)
;; flyspell
(flyspell-duplicate :underline (:style wave :color ,dracula-orange))
(flyspell-incorrect :underline (:style wave :color ,dracula-red))
;; font-latex (auctex)
(font-latex-bold-face :foreground ,dracula-purple)
(font-latex-italic-face :foreground ,dracula-pink :slant italic)
(font-latex-match-reference-keywords :foreground ,dracula-cyan)
(font-latex-match-variable-keywords :foreground ,dracula-fg)
(font-latex-math-face :foreground ,dracula-orange)
(font-latex-script-char-face :inherit font-latex-math-face)
(font-latex-sectioning-0-face :foreground ,dracula-pink :weight bold
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(font-latex-sectioning-1-face :foreground ,dracula-purple :weight bold
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(font-latex-sectioning-2-face :foreground ,dracula-green :weight bold
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-2)))
(font-latex-sectioning-3-face :foreground ,dracula-yellow :weight bold
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-3)))
(font-latex-sectioning-4-face :foreground ,dracula-cyan :weight bold)
(font-latex-sectioning-5-face :foreground ,dracula-orange :weight bold)
(font-latex-sedate-face :foreground ,dracula-pink)
(font-latex-string-face :foreground ,dracula-yellow)
(font-latex-verbatim-face :foreground ,dracula-orange)
(font-latex-warning-face :foreground ,dracula-red)
;; gemini
(gemini-heading-face-1 :inherit bold :foreground ,dracula-pink
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(gemini-heading-face-2 :inherit bold :foreground ,dracula-purple
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-2)))
(gemini-heading-face-3 :weight normal :foreground ,dracula-green
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-3)))
(gemini-heading-face-rest :weight normal :foreground ,dracula-yellow)
(gemini-quote-face :foreground ,dracula-purple)
;; go-test
(go-test--ok-face :inherit success)
(go-test--error-face :inherit error)
(go-test--warning-face :inherit warning)
(go-test--pointer-face :foreground ,dracula-pink)
(go-test--standard-face :foreground ,dracula-cyan)
;; gnus-group
(gnus-group-mail-1 :foreground ,dracula-pink :weight bold)
(gnus-group-mail-1-empty :inherit gnus-group-mail-1 :weight normal)
(gnus-group-mail-2 :foreground ,dracula-cyan :weight bold)
(gnus-group-mail-2-empty :inherit gnus-group-mail-2 :weight normal)
(gnus-group-mail-3 :foreground ,dracula-comment :weight bold)
(gnus-group-mail-3-empty :inherit gnus-group-mail-3 :weight normal)
(gnus-group-mail-low :foreground ,dracula-current :weight bold)
(gnus-group-mail-low-empty :inherit gnus-group-mail-low :weight normal)
(gnus-group-news-1 :foreground ,dracula-pink :weight bold)
(gnus-group-news-1-empty :inherit gnus-group-news-1 :weight normal)
(gnus-group-news-2 :foreground ,dracula-cyan :weight bold)
(gnus-group-news-2-empty :inherit gnus-group-news-2 :weight normal)
(gnus-group-news-3 :foreground ,dracula-comment :weight bold)
(gnus-group-news-3-empty :inherit gnus-group-news-3 :weight normal)
(gnus-group-news-4 :inherit gnus-group-news-low)
(gnus-group-news-4-empty :inherit gnus-group-news-low-empty)
(gnus-group-news-5 :inherit gnus-group-news-low)
(gnus-group-news-5-empty :inherit gnus-group-news-low-empty)
(gnus-group-news-6 :inherit gnus-group-news-low)
(gnus-group-news-6-empty :inherit gnus-group-news-low-empty)
(gnus-group-news-low :foreground ,dracula-current :weight bold)
(gnus-group-news-low-empty :inherit gnus-group-news-low :weight normal)
(gnus-header-content :foreground ,dracula-purple)
(gnus-header-from :foreground ,dracula-fg)
(gnus-header-name :foreground ,dracula-green)
(gnus-header-subject :foreground ,dracula-pink :weight bold)
(gnus-summary-markup-face :foreground ,dracula-cyan)
(gnus-summary-high-unread :foreground ,dracula-pink :weight bold)
(gnus-summary-high-read :inherit gnus-summary-high-unread :weight normal)
(gnus-summary-high-ancient :inherit gnus-summary-high-read)
(gnus-summary-high-ticked :inherit gnus-summary-high-read :underline t)
(gnus-summary-normal-unread :foreground ,dark-blue :weight bold)
(gnus-summary-normal-read :foreground ,dracula-comment :weight normal)
(gnus-summary-normal-ancient :inherit gnus-summary-normal-read :weight light)
(gnus-summary-normal-ticked :foreground ,dracula-pink :weight bold)
(gnus-summary-low-unread :foreground ,dracula-comment :weight bold)
(gnus-summary-low-read :inherit gnus-summary-low-unread :weight normal)
(gnus-summary-low-ancient :inherit gnus-summary-low-read)
(gnus-summary-low-ticked :inherit gnus-summary-low-read :underline t)
(gnus-summary-selected :inverse-video t)
;; haskell-mode
(haskell-operator-face :foreground ,dracula-pink)
(haskell-constructor-face :foreground ,dracula-purple)
;; helm
(helm-bookmark-w3m :foreground ,dracula-purple)
(helm-buffer-not-saved :foreground ,dracula-purple :background ,dracula-bg)
(helm-buffer-process :foreground ,dracula-orange :background ,dracula-bg)
(helm-buffer-saved-out :foreground ,dracula-fg :background ,dracula-bg)
(helm-buffer-size :foreground ,dracula-fg :background ,dracula-bg)
(helm-candidate-number :foreground ,dracula-bg :background ,dracula-fg)
(helm-ff-directory :foreground ,dracula-green :background ,dracula-bg :weight bold)
(helm-ff-dotted-directory :foreground ,dracula-green :background ,dracula-bg :weight normal)
(helm-ff-executable :foreground ,dark-blue :background ,dracula-bg :weight normal)
(helm-ff-file :foreground ,dracula-fg :background ,dracula-bg :weight normal)
(helm-ff-invalid-symlink :foreground ,dracula-pink :background ,dracula-bg :weight bold)
(helm-ff-prefix :foreground ,dracula-bg :background ,dracula-pink :weight normal)
(helm-ff-symlink :foreground ,dracula-pink :background ,dracula-bg :weight bold)
(helm-grep-cmd-line :foreground ,dracula-fg :background ,dracula-bg)
(helm-grep-file :foreground ,dracula-fg :background ,dracula-bg)
(helm-grep-finish :foreground ,fg2 :background ,dracula-bg)
(helm-grep-lineno :foreground ,dracula-fg :background ,dracula-bg)
(helm-grep-match :inherit match)
(helm-grep-running :foreground ,dracula-green :background ,dracula-bg)
(helm-header :foreground ,fg2 :background ,dracula-bg :underline nil :box nil)
(helm-moccur-buffer :foreground ,dracula-green :background ,dracula-bg)
(helm-selection :background ,bg2 :underline nil)
(helm-selection-line :background ,bg2)
(helm-separator :foreground ,dracula-purple :background ,dracula-bg)
(helm-source-go-package-godoc-description :foreground ,dracula-yellow)
(helm-source-header :foreground ,dracula-pink :background ,dracula-bg :underline nil :weight bold)
(helm-time-zone-current :foreground ,dracula-orange :background ,dracula-bg)
(helm-time-zone-home :foreground ,dracula-purple :background ,dracula-bg)
(helm-visible-mark :foreground ,dracula-bg :background ,dracula-current)
;; highlight-indentation minor mode
(highlight-indentation-face :background ,bg2)
;; icicle
(icicle-whitespace-highlight :background ,dracula-fg)
(icicle-special-candidate :foreground ,fg2)
(icicle-extra-candidate :foreground ,fg2)
(icicle-search-main-regexp-others :foreground ,dracula-fg)
(icicle-search-current-input :foreground ,dracula-pink)
(icicle-search-context-level-8 :foreground ,dracula-orange)
(icicle-search-context-level-7 :foreground ,dracula-orange)
(icicle-search-context-level-6 :foreground ,dracula-orange)
(icicle-search-context-level-5 :foreground ,dracula-orange)
(icicle-search-context-level-4 :foreground ,dracula-orange)
(icicle-search-context-level-3 :foreground ,dracula-orange)
(icicle-search-context-level-2 :foreground ,dracula-orange)
(icicle-search-context-level-1 :foreground ,dracula-orange)
(icicle-search-main-regexp-current :foreground ,dracula-fg)
(icicle-saved-candidate :foreground ,dracula-fg)
(icicle-proxy-candidate :foreground ,dracula-fg)
(icicle-mustmatch-completion :foreground ,dracula-purple)
(icicle-multi-command-completion :foreground ,fg2 :background ,bg2)
(icicle-msg-emphasis :foreground ,dracula-green)
(icicle-mode-line-help :foreground ,fg4)
(icicle-match-highlight-minibuffer :foreground ,dracula-orange)
(icicle-match-highlight-Completions :foreground ,dracula-green)
(icicle-key-complete-menu-local :foreground ,dracula-fg)
(icicle-key-complete-menu :foreground ,dracula-fg)
(icicle-input-completion-fail-lax :foreground ,dracula-pink)
(icicle-input-completion-fail :foreground ,dracula-pink)
(icicle-historical-candidate-other :foreground ,dracula-fg)
(icicle-historical-candidate :foreground ,dracula-fg)
(icicle-current-candidate-highlight :foreground ,dracula-orange :background ,dracula-current)
(icicle-Completions-instruction-2 :foreground ,fg4)
(icicle-Completions-instruction-1 :foreground ,fg4)
(icicle-completion :foreground ,dracula-fg)
(icicle-complete-input :foreground ,dracula-orange)
(icicle-common-match-highlight-Completions :foreground ,dracula-purple)
(icicle-candidate-part :foreground ,dracula-fg)
(icicle-annotation :foreground ,fg4)
;; icomplete
(icompletep-determined :foreground ,dracula-orange)
;; ido
(ido-first-match
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :weight 'normal :foreground dracula-green)
(list :weight 'bold :foreground dracula-pink)))
(ido-only-match :foreground ,dracula-orange)
(ido-subdir :foreground ,dracula-yellow)
(ido-virtual :foreground ,dracula-cyan)
(ido-incomplete-regexp :inherit font-lock-warning-face)
(ido-indicator :foreground ,dracula-fg :background ,dracula-pink)
;; ivy
(ivy-current-match
,@(if dracula-light-alternate-mode-line-and-minibuffer
(list :weight 'normal :background dracula-current :foreground dracula-green)
(list :weight 'bold :background dracula-current :foreground dracula-pink)))
;; Highlights the background of the match.
(ivy-minibuffer-match-face-1 :background ,dracula-current)
;; Highlights the first matched group.
(ivy-minibuffer-match-face-2 :background ,dracula-green
:foreground ,dracula-bg)
;; Highlights the second matched group.
(ivy-minibuffer-match-face-3 :background ,dracula-yellow
:foreground ,dracula-bg)
;; Highlights the third matched group.
(ivy-minibuffer-match-face-4 :background ,dracula-pink
:foreground ,dracula-bg)
(ivy-confirm-face :foreground ,dracula-orange)
(ivy-match-required-face :foreground ,dracula-red)
(ivy-subdir :foreground ,dracula-yellow)
(ivy-remote :foreground ,dracula-pink)
(ivy-virtual :foreground ,dracula-cyan)
;; isearch
(isearch :inherit match :weight bold)
(isearch-fail :foreground ,dracula-bg :background ,dracula-orange)
;; jde-java
(jde-java-font-lock-constant-face :foreground ,dracula-cyan)
(jde-java-font-lock-modifier-face :foreground ,dracula-pink)
(jde-java-font-lock-number-face :foreground ,dracula-fg)
(jde-java-font-lock-package-face :foreground ,dracula-fg)
(jde-java-font-lock-private-face :foreground ,dracula-pink)
(jde-java-font-lock-public-face :foreground ,dracula-pink)
;; js2-mode
(js2-external-variable :foreground ,dracula-purple)
(js2-function-param :foreground ,dracula-cyan)
(js2-jsdoc-html-tag-delimiter :foreground ,dracula-yellow)
(js2-jsdoc-html-tag-name :foreground ,dark-blue)
(js2-jsdoc-value :foreground ,dracula-yellow)
(js2-private-function-call :foreground ,dracula-cyan)
(js2-private-member :foreground ,fg3)
;; js3-mode
(js3-error-face :underline ,dracula-orange)
(js3-external-variable-face :foreground ,dracula-fg)
(js3-function-param-face :foreground ,dracula-pink)
(js3-instance-member-face :foreground ,dracula-cyan)
(js3-jsdoc-tag-face :foreground ,dracula-pink)
(js3-warning-face :underline ,dracula-pink)
;; lsp
(lsp-ui-peek-peek :background ,dracula-bg)
(lsp-ui-peek-list :background ,bg2)
(lsp-ui-peek-filename :foreground ,dracula-pink :weight bold)
(lsp-ui-peek-line-number :foreground ,dracula-fg)
(lsp-ui-peek-highlight :inherit highlight :distant-foreground ,dracula-bg)
(lsp-ui-peek-header :background ,dracula-current :foreground ,fg3, :weight bold)
(lsp-ui-peek-footer :inherit lsp-ui-peek-header)
(lsp-ui-peek-selection :inherit match)
(lsp-ui-sideline-symbol :foreground ,fg4 :box (:line-width -1 :color ,fg4) :height 0.99)
(lsp-ui-sideline-current-symbol :foreground ,dracula-fg :weight ultra-bold
:box (:line-width -1 :color ,dracula-fg) :height 0.99)
(lsp-ui-sideline-code-action :foreground ,dracula-yellow)
(lsp-ui-sideline-symbol-info :slant italic :height 0.99)
(lsp-ui-doc-background :background ,dracula-bg)
(lsp-ui-doc-header :foreground ,dracula-bg :background ,dracula-cyan)
;; magit
(magit-branch-local :foreground ,dracula-cyan)
(magit-branch-remote :foreground ,dracula-green)
(magit-refname :foreground ,dark-blue)
(magit-tag :foreground ,dracula-orange)
(magit-hash :foreground ,dracula-comment)
(magit-dimmed :foreground ,dracula-comment)
(magit-section-heading :foreground ,dracula-pink :weight bold)
(magit-section-highlight :background ,dracula-current :extend t)
(magit-diff-context :foreground ,fg3 :extend t)
(magit-diff-context-highlight :inherit magit-section-highlight
:foreground ,dracula-fg)
(magit-diff-revision-summary :foreground ,dracula-orange
:background ,dracula-bg
:weight bold)
(magit-diff-revision-summary-highlight :inherit magit-section-highlight
:foreground ,dracula-orange
:weight bold)
(magit-diff-added :background ,dracula-bg :foreground ,dracula-green)
(magit-diff-added-highlight :background ,dracula-current
:foreground ,dracula-green)
(magit-diff-removed :background ,dracula-bg :foreground ,dracula-red)
(magit-diff-removed-highlight :background ,dracula-current
:foreground ,dracula-red)
(magit-diff-file-heading :foreground ,dracula-fg)
(magit-diff-file-heading-highlight :inherit magit-section-highlight
:weight bold)
(magit-diff-file-heading-selection
:inherit magit-diff-file-heading-highlight
:foreground ,dracula-pink)
(magit-diff-hunk-heading :inherit magit-diff-context
:background ,bg3)
(magit-diff-hunk-heading-highlight
:inherit magit-diff-context-highlight
:weight bold)
(magit-diff-hunk-heading-selection
:inherit magit-diff-hunk-heading-highlight
:foreground ,dracula-pink)
(magit-diff-lines-heading
:inherit magit-diff-hunk-heading-highlight
:foreground ,dracula-pink)
(magit-diff-lines-boundary :background ,dracula-pink)
(magit-diffstat-added :foreground ,dracula-green)
(magit-diffstat-removed :foreground ,dracula-red)
(magit-log-author :foreground ,dracula-comment)
(magit-log-date :foreground ,dracula-comment)
(magit-log-graph :foreground ,dracula-yellow)
(magit-process-ng :foreground ,dracula-orange :weight bold)
(magit-process-ok :foreground ,dracula-green :weight bold)
(magit-signature-good :foreground ,dracula-green)
(magit-signature-bad :foreground ,dracula-red :weight bold)
(magit-signature-untrusted :foreground ,dracula-cyan)
(magit-signature-expired :foreground ,dracula-orange)
(magit-signature-revoked :foreground ,dracula-purple)
(magit-signature-error :foreground ,dracula-cyan)
(magit-cherry-unmatched :foreground ,dracula-cyan)
(magit-cherry-equivalent :foreground ,dracula-purple)
;; markdown
(markdown-blockquote-face :foreground ,dracula-yellow
:slant italic)
(markdown-code-face :foreground ,dracula-orange)
(markdown-footnote-face :foreground ,dark-blue)
(markdown-header-face :weight normal)
(markdown-header-face-1
:inherit bold :foreground ,dracula-pink
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(markdown-header-face-2
:inherit bold :foreground ,dracula-purple
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-2)))
(markdown-header-face-3
:foreground ,dracula-green
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-3)))
(markdown-header-face-4 :foreground ,dracula-yellow)
(markdown-header-face-5 :foreground ,dracula-cyan)
(markdown-header-face-6 :foreground ,dracula-orange)
(markdown-header-face-7 :foreground ,dark-blue)
(markdown-header-face-8 :foreground ,dracula-fg)
(markdown-inline-code-face :foreground ,dracula-green)
(markdown-plain-url-face :inherit link)
(markdown-pre-face :foreground ,dracula-orange)
(markdown-table-face :foreground ,dracula-purple)
(markdown-list-face :foreground ,dracula-cyan)
(markdown-language-keyword-face :foreground ,dracula-comment)
;; message
(message-header-to :foreground ,dracula-fg :weight bold)
(message-header-cc :foreground ,dracula-fg :bold bold)
(message-header-subject :foreground ,dracula-orange)
(message-header-newsgroups :foreground ,dracula-purple)
(message-header-other :foreground ,dracula-purple)
(message-header-name :foreground ,dracula-green)
(message-header-xheader :foreground ,dracula-cyan)
(message-separator :foreground ,dracula-cyan :slant italic)
(message-cited-text :foreground ,dracula-purple)
(message-cited-text-1 :foreground ,dracula-purple)
(message-cited-text-2 :foreground ,dracula-orange)
(message-cited-text-3 :foreground ,dracula-comment)
(message-cited-text-4 :foreground ,fg2)
(message-mml :foreground ,dracula-green :weight normal)
;; mini-modeline
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box nil)
;; mu4e
(mu4e-unread-face :foreground ,dracula-pink :weight normal)
(mu4e-view-url-number-face :foreground ,dracula-purple)
(mu4e-highlight-face :background ,dracula-bg
:foreground ,dracula-yellow
:extend t)
(mu4e-header-highlight-face :background ,dracula-current
:foreground ,dracula-fg
:underline nil :weight bold
:extend t)
(mu4e-header-key-face :inherit message-mml)
(mu4e-header-marks-face :foreground ,dracula-purple)
(mu4e-cited-1-face :foreground ,dracula-purple)
(mu4e-cited-2-face :foreground ,dracula-orange)
(mu4e-cited-3-face :foreground ,dracula-comment)
(mu4e-cited-4-face :foreground ,fg2)
(mu4e-cited-5-face :foreground ,fg3)
;; neotree
(neo-banner-face :foreground ,dracula-orange :weight bold)
;;(neo-button-face :underline nil)
(neo-dir-link-face :foreground ,dracula-purple)
(neo-expand-btn-face :foreground ,dracula-fg)
(neo-file-link-face :foreground ,dracula-cyan)
(neo-header-face :background ,dracula-bg
:foreground ,dracula-fg
:weight bold)
(neo-root-dir-face :foreground ,dracula-purple :weight bold)
(neo-vc-added-face :foreground ,dracula-orange)
(neo-vc-conflict-face :foreground ,dracula-red)
(neo-vc-default-face :inherit neo-file-link-face)
(neo-vc-edited-face :foreground ,dracula-orange)
(neo-vc-ignored-face :foreground ,dracula-comment)
(neo-vc-missing-face :foreground ,dracula-red)
(neo-vc-needs-merge-face :foreground ,dracula-red
:weight bold)
;;(neo-vc-needs-update-face :underline t)
;;(neo-vc-removed-face :strike-through t)
(neo-vc-unlocked-changes-face :foreground ,dracula-red)
;;(neo-vc-unregistered-face nil)
(neo-vc-up-to-date-face :foreground ,dracula-green)
(neo-vc-user-face :foreground ,dracula-purple)
;; org
(org-agenda-date :foreground ,dracula-cyan :underline nil)
(org-agenda-dimmed-todo-face :foreground ,dracula-comment)
(org-agenda-done :foreground ,dracula-green)
(org-agenda-structure :foreground ,dracula-purple)
(org-block :foreground ,dracula-orange)
(org-code :foreground ,dracula-green)
(org-column :background ,bg3)
(org-column-title :inherit org-column :weight bold :underline t)
(org-date :foreground ,dracula-cyan :underline t)
(org-document-info :foreground ,dark-blue)
(org-document-info-keyword :foreground ,dracula-comment)
(org-document-title :weight bold :foreground ,dracula-orange
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-doc-title)))
(org-done :foreground ,dracula-green)
(org-ellipsis :foreground ,dracula-comment)
(org-footnote :foreground ,dark-blue)
(org-formula :foreground ,dracula-pink)
(org-headline-done :foreground ,dracula-comment
:weight normal :strike-through t)
(org-hide :foreground ,dracula-bg :background ,dracula-bg)
(org-level-1 :inherit bold :foreground ,dracula-pink
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-1)))
(org-level-2 :inherit bold :foreground ,dracula-purple
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-2)))
(org-level-3 :weight normal :foreground ,dracula-green
,@(when dracula-light-enlarge-headings
(list :height dracula-light-height-title-3)))
(org-level-4 :weight normal :foreground ,dracula-yellow)
(org-level-5 :weight normal :foreground ,dracula-cyan)
(org-level-6 :weight normal :foreground ,dracula-orange)
(org-level-7 :weight normal :foreground ,dark-blue)
(org-level-8 :weight normal :foreground ,dracula-fg)
(org-link :foreground ,dracula-cyan :underline t)
(org-priority :foreground ,dracula-cyan)
(org-quote :foreground ,dracula-yellow :slant italic)
(org-scheduled :foreground ,dracula-green)
(org-scheduled-previously :foreground ,dracula-yellow)
(org-scheduled-today :foreground ,dracula-green)
(org-sexp-date :foreground ,fg4)
(org-special-keyword :foreground ,dracula-yellow)
(org-table :foreground ,dracula-purple)
(org-tag :foreground ,dracula-pink :weight bold :background ,bg2)
(org-todo :foreground ,dracula-orange :weight bold :background ,bg2)
(org-upcoming-deadline :foreground ,dracula-yellow)
(org-verbatim :inherit org-quote)
(org-warning :weight bold :foreground ,dracula-pink)
;; outline
(outline-1 :foreground ,dracula-pink)
(outline-2 :foreground ,dracula-purple)
(outline-3 :foreground ,dracula-green)
(outline-4 :foreground ,dracula-yellow)
(outline-5 :foreground ,dracula-cyan)
(outline-6 :foreground ,dracula-orange)
;; perspective
(persp-selected-face :weight bold :foreground ,dracula-pink)
;; powerline
(powerline-active1 :background ,dracula-bg :foreground ,dracula-pink)
(powerline-active2 :background ,dracula-bg :foreground ,dracula-pink)
(powerline-inactive1 :background ,bg2 :foreground ,dracula-purple)
(powerline-inactive2 :background ,bg2 :foreground ,dracula-purple)
(powerline-evil-base-face :foreground ,bg2)
(powerline-evil-emacs-face :inherit powerline-evil-base-face :background ,dracula-yellow)
(powerline-evil-insert-face :inherit powerline-evil-base-face :background ,dracula-cyan)
(powerline-evil-motion-face :inherit powerline-evil-base-face :background ,dracula-purple)
(powerline-evil-normal-face :inherit powerline-evil-base-face :background ,dracula-green)
(powerline-evil-operator-face :inherit powerline-evil-base-face :background ,dracula-pink)
(powerline-evil-replace-face :inherit powerline-evil-base-face :background ,dracula-red)
(powerline-evil-visual-face :inherit powerline-evil-base-face :background ,dracula-orange)
;; rainbow-delimiters
(rainbow-delimiters-depth-1-face :foreground ,dracula-fg)
(rainbow-delimiters-depth-2-face :foreground ,dracula-cyan)
(rainbow-delimiters-depth-3-face :foreground ,dracula-purple)
(rainbow-delimiters-depth-4-face :foreground ,dracula-pink)
(rainbow-delimiters-depth-5-face :foreground ,dracula-orange)
(rainbow-delimiters-depth-6-face :foreground ,dracula-green)
(rainbow-delimiters-depth-7-face :foreground ,dracula-yellow)
(rainbow-delimiters-depth-8-face :foreground ,dark-blue)
(rainbow-delimiters-unmatched-face :foreground ,dracula-orange)
;; rpm-spec
(rpm-spec-dir-face :foreground ,dracula-green)
(rpm-spec-doc-face :foreground ,dracula-pink)
(rpm-spec-ghost-face :foreground ,dracula-purple)
(rpm-spec-macro-face :foreground ,dracula-yellow)
(rpm-spec-obsolete-tag-face :inherit font-lock-warning-face)
(rpm-spec-package-face :foreground ,dracula-purple)
(rpm-spec-section-face :foreground ,dracula-yellow)
(rpm-spec-tag-face :foreground ,dracula-cyan)
(rpm-spec-var-face :foreground ,dracula-orange)
;; rst (reStructuredText)
(rst-level-1 :foreground ,dracula-pink :weight bold)
(rst-level-2 :foreground ,dracula-purple :weight bold)
(rst-level-3 :foreground ,dracula-green)
(rst-level-4 :foreground ,dracula-yellow)
(rst-level-5 :foreground ,dracula-cyan)
(rst-level-6 :foreground ,dracula-orange)
(rst-level-7 :foreground ,dark-blue)
(rst-level-8 :foreground ,dracula-fg)
;; selectrum-mode
(selectrum-current-candidate :weight bold)
(selectrum-primary-highlight :foreground ,dracula-pink)
(selectrum-secondary-highlight :foreground ,dracula-green)
;; show-paren
(show-paren-match-face :background unspecified
:foreground ,dracula-cyan
:weight bold)
(show-paren-match :background unspecified
:foreground ,dracula-cyan
:weight bold)
(show-paren-match-expression :inherit match)
(show-paren-mismatch :inherit font-lock-warning-face)
;; shr
(shr-h1 :foreground ,dracula-pink :weight bold :height 1.3)
(shr-h2 :foreground ,dracula-purple :weight bold)
(shr-h3 :foreground ,dracula-green :slant italic)
(shr-h4 :foreground ,dracula-yellow)
(shr-h5 :foreground ,dracula-cyan)
(shr-h6 :foreground ,dracula-orange)
;; slime
(slime-repl-inputed-output-face :foreground ,dracula-purple)
;; solaire-mode
(solaire-default-face :background ,bg2)
;; spam
(spam :inherit gnus-summary-normal-read :foreground ,dracula-orange
:strike-through t :slant oblique)
;; speedbar (and sr-speedbar)
(speedbar-button-face :foreground ,dracula-green)
(speedbar-file-face :foreground ,dracula-cyan)
(speedbar-directory-face :foreground ,dracula-purple)
(speedbar-tag-face :foreground ,dracula-yellow)
(speedbar-selected-face :foreground ,dracula-pink)
(speedbar-highlight-face :inherit match)
(speedbar-separator-face :background ,dracula-bg
:foreground ,dracula-fg
:weight bold)
;; tab-bar & tab-line (since Emacs 27.1)
(tab-bar :foreground ,dracula-purple :background ,dracula-current
:inherit variable-pitch)
(tab-bar-tab :foreground ,dracula-pink :background ,dracula-bg
:box (:line-width 2 :color ,dracula-bg :style nil))
(tab-bar-tab-inactive :foreground ,dracula-purple :background ,bg2
:box (:line-width 2 :color ,bg2 :style nil))
(tab-line :foreground ,dracula-purple :background ,dracula-current
:height 0.92 :inherit variable-pitch)
(tab-line-close-highlight :foreground ,dracula-red)
(tab-line-highlight :weight bold)
(tab-line-tab :foreground ,dracula-purple :background ,bg2
:box (:line-width 4 :color ,bg2 :style nil))
(tab-line-tab-current :foreground ,dracula-pink :background ,dracula-bg
:box (:line-width 4 :color ,dracula-bg :style nil)
:weight bold)
(tab-line-tab-group :background ,dracula-comment)
(tab-line-tab-inactive :inherit tab-line-tab)
(tab-line-tab-inactive-alternate :background ,bg3)
(tab-line-tab-modified :slant italic)
(tab-line-tab-special :foreground ,dracula-green)
;; telephone-line
(telephone-line-accent-active :background ,dracula-bg :foreground ,dracula-pink)
(telephone-line-accent-inactive :background ,bg2 :foreground ,dracula-purple)
(telephone-line-unimportant :background ,dracula-bg :foreground ,dracula-comment)
;; term
(term :foreground ,dracula-fg :background ,dracula-bg)
(term-color-black :foreground ,dracula-bg :background ,dracula-comment)
(term-color-blue :foreground ,dracula-purple :background ,dracula-purple)
(term-color-cyan :foreground ,dracula-cyan :background ,dracula-cyan)
(term-color-green :foreground ,dracula-green :background ,dracula-green)
(term-color-magenta :foreground ,dracula-pink :background ,dracula-pink)
(term-color-red :foreground ,dracula-red :background ,dracula-red)
(term-color-white :foreground ,dracula-fg :background ,dracula-fg)
(term-color-yellow :foreground ,dracula-yellow :background ,dracula-yellow)
;; TeX (auctex)
(TeX-error-description-error :inherit error)
(TeX-error-description-tex-said :foreground ,dracula-cyan)
(TeX-error-description-warning :inherit warning)
;; tree-sitter
(tree-sitter-hl-face:attribute :inherit font-lock-constant-face)
(tree-sitter-hl-face:comment :inherit font-lock-comment-face)
(tree-sitter-hl-face:constant :inherit font-lock-constant-face)
(tree-sitter-hl-face:constant.builtin :inherit font-lock-builtin-face)
(tree-sitter-hl-face:constructor :inherit font-lock-constant-face)
(tree-sitter-hl-face:escape :foreground ,dracula-pink)
(tree-sitter-hl-face:function :inherit font-lock-function-name-face)
(tree-sitter-hl-face:function.builtin :inherit font-lock-builtin-face)
(tree-sitter-hl-face:function.call :inherit font-lock-function-name-face
:weight normal)
(tree-sitter-hl-face:function.macro :inherit font-lock-preprocessor-face)
(tree-sitter-hl-face:function.special :inherit font-lock-preprocessor-face)
(tree-sitter-hl-face:keyword :inherit font-lock-keyword-face)
(tree-sitter-hl-face:punctuation :foreground ,dracula-pink)
(tree-sitter-hl-face:punctuation.bracket :foreground ,dracula-fg)
(tree-sitter-hl-face:punctuation.delimiter :foreground ,dracula-fg)
(tree-sitter-hl-face:punctuation.special :foreground ,dracula-pink)
(tree-sitter-hl-face:string :inherit font-lock-string-face)
(tree-sitter-hl-face:string.special :foreground ,dracula-red)
(tree-sitter-hl-face:tag :inherit font-lock-keyword-face)
(tree-sitter-hl-face:type :inherit font-lock-type-face)
(tree-sitter-hl-face:type.parameter :foreground ,dracula-pink)
(tree-sitter-hl-face:variable :inherit font-lock-variable-name-face)
(tree-sitter-hl-face:variable.parameter :inherit tree-sitter-hl-face:variable
:weight normal)
;; undo-tree
(undo-tree-visualizer-current-face :foreground ,dracula-orange)
(undo-tree-visualizer-default-face :foreground ,fg2)
(undo-tree-visualizer-register-face :foreground ,dracula-purple)
(undo-tree-visualizer-unmodified-face :foreground ,dracula-fg)
;; web-mode
(web-mode-builtin-face :inherit font-lock-builtin-face)
(web-mode-comment-face :inherit font-lock-comment-face)
(web-mode-constant-face :inherit font-lock-constant-face)
(web-mode-css-property-name-face :inherit font-lock-constant-face)
(web-mode-doctype-face :inherit font-lock-comment-face)
(web-mode-function-name-face :inherit font-lock-function-name-face)
(web-mode-html-attr-name-face :foreground ,dracula-purple)
(web-mode-html-attr-value-face :foreground ,dracula-green)
(web-mode-html-tag-face :foreground ,dracula-pink :weight bold)
(web-mode-keyword-face :foreground ,dracula-pink)
(web-mode-string-face :foreground ,dracula-yellow)
(web-mode-type-face :inherit font-lock-type-face)
(web-mode-warning-face :inherit font-lock-warning-face)
;; which-func
(which-func :inherit font-lock-function-name-face)
;; which-key
(which-key-key-face :inherit font-lock-builtin-face)
(which-key-command-description-face :inherit default)
(which-key-separator-face :inherit font-lock-comment-delimiter-face)
(which-key-local-map-description-face :foreground ,dracula-green)
;; whitespace
(whitespace-big-indent :background ,dracula-red :foreground ,dracula-red)
(whitespace-empty :background "#F5F0E0" :foreground "#F5F0E0")
(whitespace-hspace :background ,dracula-current :foreground ,dracula-comment)
(whitespace-indentation :background ,dracula-orange :foreground ,dracula-red)
(whitespace-line :background ,dracula-bg :foreground ,dracula-pink)
(whitespace-newline :foreground ,dracula-comment)
(whitespace-space :background ,dracula-bg :foreground ,dracula-comment)
(whitespace-space-after-tab :background ,dracula-orange :foreground ,dracula-red)
(whitespace-space-before-tab :background ,dracula-orange :foreground ,dracula-red)
(whitespace-tab :background ,bg2 :foreground ,dracula-comment)
(whitespace-trailing :inherit trailing-whitespace)
;; yard-mode
(yard-tag-face :inherit font-lock-builtin-face)
(yard-directive-face :inherit font-lock-builtin-face))))
(apply #'custom-theme-set-faces
'dracula-light
(let ((expand-with-func
(lambda (func spec)
(let (reduced-color-list)
(dolist (col colors reduced-color-list)
(push (list (car col) (funcall func col))
reduced-color-list))
(eval `(let ,reduced-color-list
(backquote ,spec))))))
whole-theme)
(pcase-dolist (`(,face . ,spec) faces)
(push `(,face
((((min-colors 16777216)) ; fully graphical envs
,(funcall expand-with-func 'cadr spec))
(((min-colors 256)) ; terminal withs 256 colors
,(funcall expand-with-func 'cadr spec))
(t ; should be only tty-like envs
,(funcall expand-with-func 'cadddr spec))))
whole-theme))
whole-theme)))
;;;###autoload
(when load-file-name
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(provide 'dracula-light-theme)
(provide-theme 'dracula-light)
;; Local Variables:
;; indent-tabs-mode: nil
;; End:
;;; dracula-light-theme.el ends here
Raw
markdown.el
;;; markdown.el --- Markdown reading/editing config -*- lexical-binding: t; -*-
;;
;; Markdown buffers inherit `mixed-pitch-mode' from text-mode (see org.el),
;; which makes tables and code blocks render in a proportional font and
;; become illegible. This file mirrors the org-mode treatment for markdown:
;;
;; A. Pin code/table/markup faces to fixed-pitch via mixed-pitch.
;; B. Provide an "edit <-> read" toggle (`ewj/markdown-reading-mode').
;; G. In reading mode, swap the variable-pitch face for a serif
;; "reading face" and widen olivetti.
;;
;; Faithful preview (xwidget/grip) is intentionally out of scope here.
;;;; A. Fixed-pitch for code, tables, and structural markup -----------------
(with-eval-after-load 'mixed-pitch
(setq mixed-pitch-fixed-pitch-faces
(append mixed-pitch-fixed-pitch-faces
'(markdown-code-face
markdown-inline-code-face
markdown-pre-face
markdown-table-face
markdown-language-keyword-face
markdown-language-info-face
markdown-markup-face
markdown-header-delimiter-face
markdown-header-rule-face
markdown-hr-face
markdown-url-face
markdown-plain-url-face
markdown-reference-face
markdown-footnote-marker-face
markdown-gfm-checkbox-face
markdown-html-tag-name-face
markdown-html-tag-delimiter-face
markdown-html-attr-name-face
markdown-html-attr-value-face
markdown-html-entity-face
markdown-metadata-key-face
markdown-metadata-value-face
markdown-math-face))))
(defun ewj/markdown-fixed-pitch-tables ()
"Apply fixed-pitch to entire markdown table lines (pipes + spaces + cells).
The default `markdown-table-face' only covers the cell text, so the
inter-cell spaces stay variable-pitch and the columns stop aligning."
(font-lock-add-keywords
nil
'(("^[ \t]*\\(|.*|\\)[ \t]*$"
(0 'fixed-pitch append))
;; Indented code blocks (4-space) and fenced code interiors are
;; already covered by markdown-code-face/pre-face being fixed-pitch.
)
'append))
(add-hook 'markdown-mode-hook #'ewj/markdown-fixed-pitch-tables)
;; Whitespace-mode (enabled by Prelude in text-mode) attaches the
;; `whitespace-space' face to every space. That face has no :family,
;; so spaces inherit the buffer default — which mixed-pitch has
;; remapped to variable-pitch. Result: inside fenced code blocks the
;; text is fixed-pitch but the spaces between are proportional, so
;; column alignment is destroyed. Disable whitespace-mode in markdown.
(defun ewj/markdown-disable-whitespace-mode ()
(when (bound-and-true-p whitespace-mode)
(whitespace-mode -1)))
(add-hook 'markdown-mode-hook #'ewj/markdown-disable-whitespace-mode)
;; TAB inside a markdown table re-aligns it (org-style); elsewhere it
;; falls back to the normal `markdown-cycle' binding.
(defun ewj/markdown-tab-dwim ()
"Re-align the markdown table at point, otherwise fall through."
(interactive)
(cond
((and (fboundp 'markdown-table-at-point-p)
(markdown-table-at-point-p))
(call-interactively #'markdown-table-align))
(t (call-interactively #'markdown-cycle))))
(with-eval-after-load 'markdown-mode
(define-key markdown-mode-map (kbd "TAB") #'ewj/markdown-tab-dwim))
;;;; G. Reading face --------------------------------------------------------
(defun ewj/first-available-font (candidates)
"Return the first font family in CANDIDATES that exists, or nil."
(seq-find (lambda (f) (member f (font-family-list))) candidates))
(defface ewj/reading-face
`((t :family ,(or (ewj/first-available-font
'("New York" "Iowan Old Style" "Charter"
"Georgia" "Palatino" "serif"))
"serif")
:height 1.15))
"Serif face used as the body font in `ewj/markdown-reading-mode'.")
;;;; B. Reading-mode toggle -------------------------------------------------
(defvar-local ewj/markdown-reading--saved-mixed-pitch-face nil
"Buffer-local stash of `mixed-pitch-face' before reading mode.")
(defvar-local ewj/markdown-reading--default-cookie nil
"Face-remap cookie for `default' -> reading face during reading mode.")
(defvar-local ewj/markdown-reading--saved-olivetti-width nil
"Buffer-local stash of `olivetti-body-width' before reading mode.")
(defvar-local ewj/markdown-reading--saved-checkers nil
"Alist of (MODE-SYMBOL . WAS-ON-P) for checkers disabled by reading mode.")
(defun ewj/markdown-reading--disable-checkers ()
"Turn off distracting on-the-fly checkers; remember which were on."
(setq ewj/markdown-reading--saved-checkers nil)
(dolist (m '(flycheck-mode flymake-mode flyspell-mode))
(when (and (boundp m) (symbol-value m))
(push (cons m t) ewj/markdown-reading--saved-checkers)
(funcall m -1)))
;; flyspell leaves overlays behind; clear them.
(when (fboundp 'flyspell-delete-all-overlays)
(ignore-errors (flyspell-delete-all-overlays))))
(defun ewj/markdown-reading--restore-checkers ()
"Re-enable checkers that were on before reading mode."
(dolist (entry ewj/markdown-reading--saved-checkers)
(when (fboundp (car entry))
(funcall (car entry) 1)))
(setq ewj/markdown-reading--saved-checkers nil))
(define-minor-mode ewj/markdown-reading-mode
"Toggle a read-optimized view for markdown buffers.
Hides inline markup (** _ etc.), swaps the variable-pitch body face
for `ewj/reading-face', and widens the olivetti column. Code and
tables remain fixed-pitch (see `mixed-pitch-fixed-pitch-faces').
Toggle off to return to the editing view."
:init-value nil
:lighter " 📖"
(if ewj/markdown-reading-mode
(progn
;; Markup hiding (** _ ` etc.).
(when (fboundp 'markdown-toggle-markup-hiding)
(markdown-toggle-markup-hiding 1))
;; Inline image display, if available.
(when (fboundp 'markdown-display-inline-images)
(ignore-errors (markdown-display-inline-images)))
;; Swap body font to the reading face by stacking a face-remap
;; on top of mixed-pitch's existing remaps. Stays out of
;; mixed-pitch's internal bookkeeping so toggle-off is clean.
(setq ewj/markdown-reading--default-cookie
(face-remap-add-relative
'default :family
(face-attribute 'ewj/reading-face :family)
:height (face-attribute 'ewj/reading-face :height)))
;; Wider olivetti column for prose.
(when (bound-and-true-p olivetti-mode)
(setq ewj/markdown-reading--saved-olivetti-width olivetti-body-width)
(setq-local olivetti-body-width 100))
;; Silence on-the-fly checkers (flycheck/flymake/flyspell).
(ewj/markdown-reading--disable-checkers)
;; Read-only by default; C-x C-q to flip back if needed.
(read-only-mode 1)
(message "Markdown reading mode: ON (toggle off to edit)"))
;; Disable.
(when (fboundp 'markdown-toggle-markup-hiding)
(markdown-toggle-markup-hiding -1))
(when (fboundp 'markdown-remove-inline-images)
(ignore-errors (markdown-remove-inline-images)))
(when ewj/markdown-reading--default-cookie
(face-remap-remove-relative ewj/markdown-reading--default-cookie)
(setq ewj/markdown-reading--default-cookie nil))
(when ewj/markdown-reading--saved-olivetti-width
(setq-local olivetti-body-width ewj/markdown-reading--saved-olivetti-width))
(ewj/markdown-reading--restore-checkers)
(read-only-mode -1)
(message "Markdown reading mode: OFF")))
(with-eval-after-load 'markdown-mode
(define-key markdown-mode-map (kbd "<f6>") #'ewj/markdown-reading-mode))
(provide 'markdown)
;;; markdown.el ends here
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment