;;; jao-light-theme.el --- a light theme -*- lexical-binding: t; -*- ;; Author: jao ;; Keywords: themes ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation, either version 3 of the License, or ;; (at your option) any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program. If not, see . (jao-define-custom-theme jao-light (:names (bg1 "gray98") (bg2 "gray95") (bg3 "gray90") (bg4 "gray85") (bg5 "gray98") (bg6 "gray99") (bg7 "gray80") (fg1 "black") (fg2 "gray10") (fg3 "gray20") (fg4 "gray30") (fg5 "gray40") (hl "cornsilk1") (dimm "lemonchiffon4") (search "#e8e800") (search2 "#ffffb4") (warning "orange4") (red "burlywood4") (blue "#023770") (green "#005555")) (:face-family "Fira Code") (:face-size 9) (:bold-weight 'medium) (:palette (fg "black") (bg "white") (box "gray80") (button (c fg5 bg1) (ul bg7)) (hilite (c nil hl)) (link (c green) nbf (ul bg7)) (visited-link (ul bg7) nbf) (tab-sel (~ mode-line)) (tab-unsel (~ mode-line-inactive)) (comment (c fg5) it) (keyword (c blue) bf) (type (c blue) nbf) (function (c green)) (variable-name (c fg1)) (constant (c fg4)) (string (c blue) nit) (warning (c warning)) (error (c red) bf) (dimm (c dimm)) (gnus-mail (c "black")) (gnus-news (c "black")) (outline (c "black") bf) (outline-1 (c green) bf) (outline-2 (c green) nbf) (outline-3 (c blue) nul nbf) (outline-4 (c blue) nul nbf) (outline-5 (c blue) nul nbf) (f00 (c green)) (f01 (c blue)) (f02 (c fg1)) (f10 (p f00)) (f11 (p f01)) (f12 (p f02))) (:x-faces (compilation-info (c "#223142" nil) nbf) (completions-group-separator (c nil ni) (st "grey80")) (corfu-default (~ default) (c "black" "grey95")) (corfu-bar (c nil "grey80")) ;; moving part of the bar (corfu-border (~ corfu-background)) ;; background of the bar (corfu-current (c "black" "grey95") nbf nit (ul "grey70")) (cursor (c "sienna3" "sienna3")) (diff-hl-change (c "white" pale-blue)) (diff-hl-insert (c "white" "honeydew2")) (diff-hl-delete (c "white" "wheat1")) (fill-column-indicator (c "grey80")) (fringe (c "grey70" nil)) (gnus-button (c blue)) (gnus-cite-1 (c "darkslategray" nil)) (gnus-cite-2 (c "slate gray" nil)) (gnus-cite-3 (c "slate gray" nil)) (gnus-cite-4 (c "slate gray" nil)) (gnus-summary-selected (c green) nbf) (gnus-summary-cancelled (c "sienna3" nil) st) (header-line (c fg4 bg1) :box (:line-width 1 :color "grey90")) (magit-diff-context-highlight (c nil hl) ex) (magit-diff-hunk-heading-highlight (c nil hl) it bf) (mode-line (c "grey30" bg2) :box (:line-width -1 :color "grey90")) (mode-line-inactive (c "grey40" "white") :box (:line-width -1 :color "grey90")) (mode-line-buffer-id (~ default) (c dark-blue-2 nil) nit) (mode-line-emphasis (c green nil)) (mode-line-highlight (c green nil)) (org-link (p link) (ul "grey80")) (scroll-bar (c "grey80" nil)) (show-paren-match (c nil "grey85")) (shr-text (c nil nil)) (shr-link (~ link) (ul fg5)) (shr-code (c blue nil)) (success (c green)) (vertical-border (c "grey70" nil)) (widget-button (~ default) nit (ul "grey80")))) ;; (enable-theme 'jao-light) ;; (jao-mode-line-adjust-faces) (provide 'jao-light-theme)