Theme Preview: metropolis-light

---

screenshot

Package

Package	metropolis-light-theme (melpa)
Source Repository	https://github.com/bitorhugo/metropolis-light-theme
Keywords	faces theme
Summary	Light theme based on the Metropolis Beamer palette.
Version	20260906.2048
Website	https://github.com/bitorhugo/metropolis-light-theme
Commit	e55ac1ae7d25ebff77d22cd432e1d1ebaafa1a84
Maintainer	<VítorSantosvhsoo@proton.me>
Author	<VítorSantosvhsoo@proton.me>

A light theme based on the Metropolis Beamer color palette.

---

A light Emacs theme based on the color palette of the Metropolis
LaTeX Beamer theme (https://github.com/matze/mtheme).

Metropolis itself only defines four colors: mDarkTeal, mDarkBrown, mLightBrown and mLightGreen, and derives everything else (block
backgrounds, progress bars, footnotes, ...) from them with simple
percentage color blends. This theme follows the same approach: the
four base colors below are blended using the same ratios Metropolis
uses in its .dtx source to produce the rest of the palette, so the
result stays visually consistent with the original Beamer theme
while covering the much larger set of faces Emacs needs.

A few extra hues (cyan, blue, red, yellow, magenta) are derived the
same way (by blending the base colors together) to cover roles
Metropolis has no opinion on, such as types, constants, errors and
terminal colors.

More Previews

c-mode

 *themed*<2> x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 #ifdef HAVE_TREE_SITTER
   2 #include "treesit.h"
   3 #endif
   4 
   5 enum equal_kind { EQUAL_NO_QUIT, EQUAL_PLAIN, EQUAL_INCLUDING_PROPERTIES };
   6 static bool internal_equal (Lisp_Object, Lisp_Object,
   7                             enum equal_kind, int, Lisp_Object);
   8 static EMACS_UINT sxhash_obj (Lisp_Object, int);
   9 
  10 DEFUN ("identity", Fidentity, Sidentity, 1, 1, 0,
  11        doc: /* Return the ARGUMENT unchanged.  */
  12        attributes: const)
  13   (Lisp_Object argument)
  14 {
  15   return argument;
  16 }
 -:**-  c-mode         All L17    (C/*l Abbrev) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<3>   All L3     (Elisp/d ElDoc) 

org-mode

 *themed*<3> x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 *** Using Org's git repository
   2 :PROPERTIES:
   3 :UNNUMBERED: notoc
   4 :END:
   5 
   6 You can clone Org's repository and install Org like this:
   7 
   8 #+begin_example
   9 $ cd ~/src/
  10 $ git clone https://git.savannah.gnu.org/git/emacs/org-mode.git
  11 $ cd org-mode/
  12 $ make autoloads
  13 #+end_example
  14 
  15 Note that in this case, =make autoloads= is mandatory: it defines
  16 Org's version in =org-version.el= and Org's autoloads in
  17 =org-loaddefs.el=.
  18 
  19 Make sure you set the load path correctly in your Emacs init file:
  20 
  21 #+begin_src emacs-lisp
  22 (add-to-list 'load-path "~/src/org-mode/lisp")
  23 #+end_src
 -:**-  org-mode       All L24    (Org) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<4>   All L3     (Elisp/d ElDoc) 

emacs-lisp-mode

 *themed* x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 ;; `metropolis-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) 

js-mode

 *themed*<5> x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 import 'https://cdn.jsdelivr.net/npm/minisearch@7.2.0/dist/umd/index.min.js';
   2 
   3 (() => {
   4   const tableElement = document.querySelector('.table') || window.dataTable;
   5   if (!tableElement) {
   6     return;
   7   }
   8   const where = document.querySelector('button') || tableElement;
   9 
  10   /**
  11    * @type {{symbol: string, file: string}[]}
  12    */
  13   const rows = [...tableElement.querySelectorAll('tr')];
  14   const data = rows.map((tr, i) => ({
  15     id: i,
  16     symbol: tr.childNodes[0].textContent,
  17     file: tr.childNodes[1].textContent,
  18   }));
  19   const container = document.createElement('div');
  20   container.classList.add('table', 'show');
  21   container.innerHTML = `
  22 <table><thead><tr>
  23 <th>Symbol<br><input id="symbol"></th>
  24 <th>File<br><input id="file"></th>
  25 </tr></thead><tbody id="results"></tbody></table>
  26 <div class="paging"><button id="prev">Prev</button>
  27 <span id="page">1-${paging.page} of ${paging.page}</span>
  28 <button id="next">Next</button></div>
  29 `;
  30   where.parentNode.replaceChild(container, where);
  31   const style = document.createElement('style');
  32   // ...
  33 })();
 -:**-  js-mode        All L34    (JavaScript) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<6>   All L3     (Elisp/d ElDoc) 

html-mode

 *themed*<4> x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 <!DOCTYPE html>
   2 <html>
   3     <head>
   4         <meta charset="UTF-8">
   5         <meta http-equiv="refresh" content="0; url=https://doc.emacsen.de/elisp/nil-and-t.html">
   6         <link rel="icon" href="/favicon.ico" sizes="48x48">
   7         <link rel="icon" href="/icon.svg" type="image/svg+xml">
   8         <link rel="apple-touch-icon" href="/apple-touch-icon.png">
   9         <script type="text/javascript">
  10              window.location.pathname='/elisp/nil-and-t.html'
  11         </script>
  12         <title>Emacs Lisp Boolean Values</title>
  13     </head>
  14     <body>
  15         Visit <a href="/elisp/nil-and-t.html">nil and t (GNU Emacs Lisp Reference Manual)</a>
  16         for <code>nil</code> and <code>t</code> documentation.
  17     </body>
  18 </html>
 -:**-  html-mode      All L19    (HTML) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<5>   All L3     (Elisp/d ElDoc) 

css-mode

 *themed*<6> x *scratch* x  + 
 current x modified x inactive x inactive-alt x *special* x 
   1 :root {
   2   --background:#f8f8ff;
   3   --text-muted:#70777f;
   4   --links:#0076d1;
   5   --border:#dbdbdb;
   6 }
   7 @media (prefers-color-scheme:dark) {
   8   :root {
   9     --background:#161f27;
  10     --text-muted:#a9b1ba;
  11     --links:#41adff;
  12     --border:#526980;
  13   }
  14 }
  15 html {
  16   margin: 0 1em;
  17 }
  18 body {
  19   line-height: 1.4;
  20   max-width: 800px;
  21   margin: 20px auto;
  22   word-wrap: break-word;
  23   text-rendering: optimizeLegibility;
  24 }
 -:**-  css-mode       All L25    (CSS) 
   1 ;; This buffer is for text that is not saved, and for Lisp evaluation.
   2 
 -:**-  emacs-lisp-mode<7>   All L3     (Elisp/d ElDoc)