Emacs Theme Gallery ​

default
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `default' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
adwaita
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `adwaita' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
deeper-blue
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `deeper-blue' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
dichromacy
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `dichromacy' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
light-blue
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `light-blue' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
manoj-dark
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `manoj-dark' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
misterioso
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `misterioso' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
tango
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `tango' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
tango-dark
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `tango-dark' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
tsdh-dark
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `tsdh-dark' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
tsdh-light
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `tsdh-light' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
wheatgrass
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `wheatgrass' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
whiteboard
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `whiteboard' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
wombat
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `wombat' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
aircon
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `aircon' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-almond
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-almond' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-beach
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-beach' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-cherry
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-cherry' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-copper
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-copper' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-coral
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-coral' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-dark
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-dark' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-earth
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-earth' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-fire
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-fire' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-jade
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-jade' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-light
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-light' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-magma
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-magma' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-marble
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-marble' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-mermaid
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-mermaid' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-oak
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-oak' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
doric-obsidian
 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `doric-obsidian' theme showcase -*- lexical-binding: t; -*-
   2 (require 'elisp-demos)
   3 (advice-add 'helpful-update :after #'elisp-demos-advice-helpful-update)
   4 
   5 (defvar elisp-doc--code-wrap-regexp "\\(?:\n[ \t]+[^[:space:]].+$\\)+")
   6 (defun elisp-doc--highlight-doc-lisp (entry)
   7   "Find indented blocks in ENTRY and highlight them as Lisp code.
   8 Uses `helpful--syntax-highlight'."
   9   (when-let* ((doc (elisp-doc--find-section entry "Documentation")))
  10     (goto-char (elisp-doc-entry-section-start doc))
  11     (while (and (not (eobp))
  12                 (re-search-forward elisp-doc--code-wrap-regexp
  13                                    (elisp-doc-entry-section-end doc) t))
  14       (when (progn (goto-char (match-beginning 0))
  15                    (skip-chars-forward "\n \t")
  16                    (eq ?\( (char-after)))
  17         (let* ((start (1+ (match-beginning 0)))
  18                (end (match-end 0))
  19                (text (helpful--syntax-highlight
  20                       (buffer-substring-no-properties start end))))
  21           (goto-char start)
  22           (delete-region start end)
  23           (insert text))))))
 -:**-  emacs-lisp-mode   All L24    (ELisp/d ElDoc) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<2>   All L3     (ELisp/d ElDoc)
On this page

This page shows a gallery of Emacs themes. They are either built-in themes, or can be installed from ELPA, NonGNU ELPA, or MELPA. Basically, I just typed in "theme" in the search boxes on those archives and installed all the matching themes. If I missed any, please do let me know!

Note that these previews don't always preserve the exact look of the original theme in Emacs. For example, some of these themes overwrite default fonts, which can be quite hard to get on the web.

And, by the way, this page requires JavaScript because rendering hundreds of Emacs themes without pagination seems to stress out browsers (at lease on my machine). Sorry about that!