nasyxx/emacs-nasy-theme
Nasy's Emacs Theme 外皃
#+PROPERTY: header-args:emacs-lisp :tangle (expand-file-name "nasy-theme.el") :lexical t
#+options: ':nil *:t -:t ::t <:t H:3 \n:nil ^:{} arch:headline author:t
#+options: broken-links:mark c:nil creator:nil d:(not "LOGBOOK") date:t e:t
#+options: email:nil f:t inline:t num:t p:nil pri:nil prop:nil stat:t tags:t
#+options: tasks:t tex:t timestamp:t title:t toc:t todo:t |:t
#+title: README
#+date: <2021-05-18 Tue>
#+author: Nasy
#+email: nasyxx+emacs@gmail.com
#+update: <2021-06-08 Tue>
#+language: en
#+select_tags: export
#+exclude_tags: noexport
#+creator: Emacs 28.0.50 (Org mode 9.4.5)
外皃
Nasy's Emacs Theme
- 截圖 :noexport:
[[./screenshot1.png]]
[[./screenshot2.png]]
[[./screenshot3.png]]
[[./screenshot4.png]]
[[./screenshot5.png]]
- Header :noexport:
:PROPERTIES:
:ID: A386FB66-D302-4910-9681-5AD20423B0E1
:END:
#+begin_src emacs-lisp
;;; nasy-theme.el --- Nasy's Emacs Configuration theme file. -- lexical-binding: t; --
;; Copyright (C) 2022 Nasy
;; Author: Nasy nasyxx@gmail.com
;;; Commentary:
;; Nasy's Emacs 外皃
;;----------------------------------------------------------------------------
;; DO NOT EDIT THIS FILE DIRECTLY
;; This is a file generated from a literate programing source file located at
;; README.org
;;
;; You should make any changes there and regenerate using make generate.
;;----------------------------------------------------------------------------
;;; Code:
(require '彩)
(require 'color)
(eval-when-compile
(require 'cl-lib))
#+end_src
- Colors
:PROPERTIES:
:ID: 22A29749-9744-421C-9838-0344146A0ACF
:END:
#+begin_src emacs-lisp :tangle (expand-file-name "彩.el") :lexical t
;;; 彩.el --- Nasy's Emacs theme colors. -- lexical-binding: t; --
;;; Commentary:
;;; Code:
;;; 正色
(defconst n-青 "#00ffff")
(defconst n-赤 "#c3272b")
(defconst n-白 "#ffffff") ;; 精白
(defconst n-黑 "#000000")
(defconst n-黄 "#fff143") ;; 不知其法而用鵝黃
;;; 間色
(defconst n-紺青 "#3f4470")
(defconst n-鴉青 "#424c50")
(defconst n-靛藍 "#065279")
(defconst n-羣青 "#2e59a7")
(defconst n-深竹月 "#2e62cd")
(defconst n-寶藍 "#4b5cc4")
(defconst n-青冥 "#3271ae")
(defconst n-靛青 "#177CB0")
(defconst n-湖藍 "#30DFF3")
(defconst n--青 "#00ffff")
(defconst n-松绿 "#057748")
(defconst n-官緑 "#2a6e3f")
(defconst n-青青 "#4f6f46")
(defconst n-蒼翠 "#519a73")
(defconst n-菉竹 "#698e6a")
(defconst n-竹靑 "#789262")
(defconst n-春辰 "#a9be7b")
(defconst n-松花 "#bce672")
(defconst n-歐碧 "#c0d695")
(defconst n-龍泉靑瓷 "#c8e6c6")
(defconst n-水緑 "#d4f2e7")
(defconst n-水黄 "#ddeec4")
(defconst n-春緑 "#e3efd1")
(defconst n-蔥青 "#edfebb")
(defconst n-断肠 "#ecebc2")
(defconst n-絳 "#510312")
(defconst n-胭脂 "#960018")
(defconst n-綪 "#b13546")
(defconst n-品红 "#F00056")
(defconst n-朱 "#ff0000")
(defconst n-火红 "#FF2D51")
(defconst n-丹 "#ff4c00")
(defconst n-妃 "#ed5736")
(defconst n-海棠 "#DB5A6B")
(defconst n-桃红 "#f47983")
(defconst n-鳳仙粉 "#FF9393")
(defconst n-粉红 "#ffb3a7")
(defconst n-露玫瑰 "#ffe4e1")
(defconst n-墨 "#50616D")
(defconst n-蒼青 "#7397ab")
(defconst n-墨灰 "#758A99")
(defconst n-养生主 "#b49b7f")
(defconst n-茶 "#B35C44")
(defconst n-鱼肚 "#FCEFE8")
(defconst n-珈琲椶 "#705438")
(defconst n-紙棕 "#D2B38C")
(defconst n-向日黃 "#FFC34D")
(defconst n-缟 "#F2ECDE")
(defconst n-牙 "#EEDEB0")
(defconst n-米灰 "#D3CBAF")
(defconst n-芽灰 "#E3DBBF")
(defconst n-胡粉 "#FFFAE8")
(defconst n-蠟白 "#FEF8DE")
(defconst n-富春紡 "#FEF4B4")
(defconst n-鹅黄 "#FFF143")
(defconst n-嬭油 "#fffdd0")
(defconst n-鸭黄 "#FAFF72")
(defconst n-蛤粉 "#fdfff4")
(defconst n-荼 "#F3F9F1")
(defconst n-素 "#E0F0E9")
(defconst n-霜 "#E9F1F6")
(defconst n-漆 "#161823")
(defconst n-黛 "#4A4266")
(defconst n-丁香 "#CCA4E3")
(defconst n-青莲 "#801DAE")
(defconst n-淡紫丁香 "#e6cfe6")
(defconst n-水紅 "#f3d3e7")
(defconst n-長萅蕐 "#FF47D1")
(defconst n-紫扇貝 "#923A60")
(provide '彩)
;;; 彩.el ends here
#+end_src
- Definition
:PROPERTIES:
:ID: 957F26CD-C9BC-40E6-B9DE-41478964297B
:END:
#+begin_src emacs-lisp
(defgroup nasy-theme nil
"Options of Nasy's theme."
:group 'faces)
(defcustom nasy-theme-light/dark 'light
"Nasy theme uses light theme or dark theme?"
:group 'nasy-theme
:type 'symbol)
(defcustom nasy-theme-org-scale t
"Nasy theme uses scale up in `org-mode' or not."
:group 'nasy-theme
:type 'boolean)
(defcustom nasy-theme-outline-scale t
"Nasy theme uses scale up in `outline' or not."
:group 'nasy-theme
:type 'boolean)
(defcustom nasy-theme-underlines-list '(comment constant dash-string hl-line)
"Nasy theme uses underline on list.
Should be one or more in comment', hl-line', constant', dash-string', `keyword'."
:group 'nasy-theme
:type '(list symbol))
(defcustom nasy-theme-fixed-pitch-font "Recursive Mono Casual Static"
"Nasy theme fixed pitch font."
:group 'nasy-theme
:type 'string)
(defcustom nasy-theme-variable-pitch-font "Cardo"
"Nasy theme variable pitch font."
:group 'nasy-theme
:type 'string)
(defcustom nasy-theme-variable-pitch-font-weight 'regular
"Nasy theme variable pitch font weight."
:group 'nasy-theme
:type 'symbol)
(defcustom nasy-theme-fixed-pitch-font-scale 1.0
"Nasy theme fixed pitch font scale."
:group 'nasy-theme
:type 'float)
(defcustom nasy-theme-variable-pitch-font-scale 1.3
"Nasy theme variable pitch font scale."
:group 'nasy-theme
:type 'float)
(defcustom nasy-theme-rescale-f/v-pitch-font t
"Nasy theme rescale f/v-pitch-font or not."
:group 'nasy-theme
:type 'boolean)
(defun nasy-theme--light?dark (light dark)
"Determine using the LIGHT or the DARK color of nasy-theme."
(if (eq nasy-theme-light/dark 'light)
light
dark))
(defalias '--l?d #'nasy-theme--light?dark)
(defun nasy-theme--scale? (scale)
"Determine using org-mode' SCALE or not." (if nasy-theme-org-scale scale 1)) (defun nasy-theme--outline-scale? (scale) "Determine using outline' SCALE or not."
(if nasy-theme-outline-scale
scale
1))
(defalias '--s? #'nasy-theme--scale?)
(defalias '--os? #'nasy-theme--outline-scale?)
(defun nasy-theme--check-underline-list (sym)
"Check if SYM in `nasy-theme-underlines-list' or not."
(when (memq sym nasy-theme-underlines-list)
t))
(defalias '--u? #'nasy-theme--check-underline-list)
(defun nasy-theme--rescale-font ()
"Nasy theme rescale font."
(when nasy-theme-rescale-f/v-pitch-font
(setf (alist-get
nasy-theme-fixed-pitch-font
face-font-rescale-alist
nasy-theme-fixed-pitch-font-scale nil 'string=)
nasy-theme-fixed-pitch-font-scale)
(setf (alist-get
nasy-theme-variable-pitch-font
face-font-rescale-alist
nasy-theme-variable-pitch-font-scale nil 'string=)
nasy-theme-variable-pitch-font-scale)))
(nasy-theme--rescale-font)
#+end_src
- Theme
:PROPERTIES:
:ID: 9C9E3DCF-EE33-42A5-A312-AE5D3218EA92
:END:
#+begin_src emacs-lisp
(deftheme nasy)
(let* ((class '((class color) (min-colors 88) (background light)))
(classd '((class color) (min-colors 88) (background dark)))
(n/淺背景 "#f4daefb6e3b6") ;; (color-lighten-name n-缟 1.45)
(n/深背景 "#F109ea21da05") ;; (color-darken-name n-缟 1.45)
(n/深深背景 "#ef20e757d52d") ;; (color-darken-name n-缟 2.9)
(nd/淺背景 "#1667187123a5") ;; (color-lighten-name n-漆 1.45)
(nd/淺淺背景 "#16b918ca2427") ;; (color-lighten-name n-漆 2.9)
(n/丁香青莲 (--l?d n-青莲 n-青莲))
(n/墨墨灰 (--l?d n-墨 n-墨灰))
(n/墨灰墨 (--l?d n-墨灰 n-墨))
(n/墨灰素 (--l?d n-墨灰 n-素))
(n/墨缟 (--l?d n-墨 n-缟))
(n/湖藍靛青 (--l?d n-湖藍 n-靛青))
(n/漆缟 (--l?d n-漆 n-缟))
(n/牙墨 (--l?d n-牙 n-墨))
(n/牙黛 (--l?d n-牙 n-黛))
(n/素墨 (--l?d n-素 n-墨))
(n/素墨灰 (--l?d n-素 n-墨灰))
(n/缟墨 (--l?d n-缟 n-墨))
(n/缟漆 (--l?d n-缟 n-漆))
(n/缟黛 (--l?d n-缟 n-黛))
(n/霜黛 (--l?d n-霜 n-黛))
(n/青莲丁香 (--l?d n-青莲 n-丁香))
(n/青莲牙 (--l?d n-青莲 n-牙))
(n/靛青湖藍 (--l?d n-靛青 n-湖藍))
(n/黛缟 (--l?d n-黛 n-缟))
(n/黛霜 (--l?d n-黛 n-霜)))
(custom-theme-set-faces
'nasy
;;; essential styles
`(default ((,class (:foreground ,n/墨缟 :background ,n/缟漆))))
;;; Basic
`(bold ((,class (:weight bold))))
`(button ((,class (:box (:line-width 1) :underline t :weight bold))))
`(cursor ((,class (:background ,n/黛霜 :foreground ,n/霜黛))))
`(error ((,class (:background ,n-鳳仙粉 :foreground ,n-紫扇貝 :weight bold))))
`(escape-glyph ((,class (:foreground ,n-茶))))
`(fixed-pitch
((,class (:family ,nasy-theme-fixed-pitch-font))))
`(fixed-pitch-serif ((t (:inherit fixed-pitch))))
`(fringe ((,class (:background ,n/缟漆 :foreground ,n/墨缟))))
`(header-line ((,class (:background ,n-荼
:box (:line-width 2 :style released-button)
:extend t
:foreground ,n/靛青湖藍))))
`(highlight ((,class (:background ,n-米灰
:distant-foreground ,n/霜黛))))
`(internal-border ((,class (:background ,n/缟漆))))
`(link ((,class (:foreground ,n-靛青 :underline t))))
`(link-visited ((,class (:foreground ,n-青莲 :underline t))))
`(region ((,class (:background ,n-蠟白 :distant-foreground ,n/墨缟 :extend t))))
`(secondary-selection ((,class (:background ,n-芽灰))))
`(success ((,class (:background ,n-鱼肚 :foreground ,n-靛青 :weight bold))))
`(variable-pitch
((,class (:family ,nasy-theme-variable-pitch-font
:weight ,nasy-theme-variable-pitch-font-weight))))
`(warning ((,class (:background ,n-富春紡 :foreground ,n-珈琲椶 :weight bold))))
;;; centaur-tabs
`(centaur-tabs-default
((,class (:background ,n-米灰
:foreground ,n-墨))))
`(centaur-tabs-selected
((,class (:background ,n-富春紡
:foreground ,n-墨))))
`(centaur-tabs-selected-modified
((,class (:background ,n-富春紡
:foreground ,n-墨
:slant italic))))
`(centaur-tabs-unselected
((,class (:background ,n-春緑
:foreground ,n-墨灰))))
`(centaur-tabs-unselected-modified
((,class (:background ,n-水黄
:foreground ,n-墨灰
:slant italic))))
`(centaur-tabs-active-bar-face
((,class (:background ,n-墨))))
;;; company
`(company-box-scrollbar
((,class (:background ,n/黛缟
:box (:line-width 2 :style released-button)
:extend t
:foreground ,n/缟黛))))
`(company-box-selection
((,class (:inherit company-box-scrollbar))))
`(company-echo-common
((,class (:background ,n-茶 :foreground ,n-缟))))
`(company-preview-common
((,class (:background ,n-荼 :foreground ,n-墨 :slant italic :weight bold))))
`(company-scrollbar-bg
((,class (:background ,n-牙))))
`(company-scrollbar-fg
((,class (:background ,n-茶 :foreground ,n-缟))))
`(company-tooltip
((,class (:background ,n/霜黛 :foreground ,n/黛霜))))
`(company-tooltip-common
((,class (:background ,n-素 :foreground ,n-松绿 :weight bold))))
`(company-tooltip-common-selection
((,class (:background ,n/黛缟 :foreground ,n-松花 :inherit company-tooltip-common))))
`(company-tooltip-selection
((,class (:background ,n/黛缟
:box (:style released-button)
:extend t
:foreground ,n/缟黛))))
;;; counsel & ivy
`(all-the-icons-ivy-rich-icon-face
((t (:box (:line-width 2 :style released-button)
:inherit default))))
`(ivy-current-match
((,class (:background ,n/黛缟
:extend t
:foreground ,n/缟墨
:weight bold))))
`(ivy-highlight-face
((,class (:inherit counsel-active-mode))))
`(ivy-minibuffer-match-face-1
((,class (:background ,n-松花
:foreground ,n-墨
:weight bold))))
`(ivy-minibuffer-match-face-2
((,class (:background ,n-鹅黄
:foreground ,n-墨
:weight bold))))
`(ivy-minibuffer-match-face-3
((,class (:background ,n-丁香
:foreground ,n-墨
:weight bold))))
`(ivy-minibuffer-match-face-4
((,class (:background ,n-火红
:foreground ,n-墨
:weight bold))))
;;; customize faces
`(custom-button
((,class (:box (:line-width 2 :style released-button)
:foreground ,n/霜黛
:background ,n/黛霜))))
`(custom-button-mouse
((,class (:box (:line-width 2 :style released-button)
:background ,n/霜黛
:foreground ,n/黛霜))))
`(custom-button-pressed
((,class (:box (:line-width 2 :style pressed-button)
:inherit custom-button))))
`(custom-button-pressed-unraised
((,class (:foreground ,n-青莲 :inherit custom-button-unraised))))
`(custom-button-unraised
((,class (:underline t))))
`(custom-comment
((,class (:background ,n/霜黛 :foreground ,n/黛霜))))
`(custom-group-tag
((,class (:foreground ,n-靛青
:height 1.4
:slant normal
:weight bold
:inherit variable-pitch))))
`(custom-group-subtitle
((,class (:foreground ,n/墨缟
:height 1.2
:underline t
:weight bold))))
`(custom-variable-obsolete
((,class (:foreground ,n/黛霜
:strike-through t))))
`(custom-variable-tag
((,class (:foreground ,n-靛青
:slant normal
:weight bold))))
;;; dashboard
`(dashboard-heading
((,class (:inherit font-lock-string-face :underline ,(--u? 'dash-string)))))
`(widget-button
((,class (:weight unspecified))))
;;; display-fill-column-indicator-mode
`(fill-column-indicator ((,class (:background ,n-湖藍 :foreground ,n-靛青))))
;;; flycheck
`(flycheck-warning ((,class (:background ,n-牙
:underline (:style wave :color ,n-丁香)))))
;;; font-lock faces
`(font-lock-bracket-face
((,class (:foreground ,n-茶))))
`(font-lock-builtin-face
((,class (:foreground ,n-黛 :weight bold))))
`(font-lock-comment-delimiter-face
((,class (:foreground ,n-墨 :weight bold
:underline ,(--u? 'comment)))))
`(font-lock-comment-face
((,class (:foreground ,n-墨 :weight light
:slant italic
:underline ,(--u? 'comment)))))
`(font-lock-constant-face
((,class (:foreground ,n-黛
:underline ,(--u? 'constant)
:weight bold))))
`(font-lock-delimiter-face
((,class (:foreground ,n-蒼翠
:background ,n/深深背景))))
`(font-lock-doc-face
((,class (:background ,n-春緑 :foreground ,n-墨 :weight light :extend t))))
`(font-lock-doc-markup-face
((,class (:inherit font-lock-constant-face))))
`(font-lock-escape-face
((,class (:foreground ,n-丁香))))
`(font-lock-function-name-face
((,class (:background ,n/深背景 :foreground ,n-墨 :weight bold))))
`(font-lock-keyword-face
((,class (:foreground ,n-黛
:weight bold
:underline ,(--u? 'keyword)
:background ,n-断肠))
(,classd (:foreground ,n-缟
:weight bold
:underline ,(--u? 'keyword)))))
`(font-lock-misc-punctuation-face
((,class (:inherit font-lock-punctuation-face))))
`(font-lock-negation-char-face
((,class (:foreground ,n-珈琲椶))))
`(font-lock-number-face
((,class (:foreground ,n-深竹月))))
`(font-lock-operator-face
((,class (:foreground ,n-羣青
:background ,n-露玫瑰))))
`(font-lock-preprocessor-face
((,class (:foreground ,n-紙棕 :slant italic))))
`(font-lock-property-face
((,class (:foreground ,n-靛藍 :slant italic))))
`(font-lock-punctuation-face
((,class (:foreground ,n-春辰))))
`(font-lock-regexp-grouping-backslash
((,class (:background ,n-淡紫丁香))))
`(font-lock-regexp-grouping-construct
((,class (:background ,n-淡紫丁香))))
`(font-lock-string-face
((,class (:background ,n/淺背景 :foreground ,n-青青))))
`(font-lock-type-face
((,class (:background ,n/深深背景
:foreground ,n-墨
:slant italic
:weight bold))))
`(font-lock-variable-name-face
((,class (:foreground ,n-墨 :slant italic))))
`(font-lock-warning-face
((,class (:background ,n-鸭黄 :foreground ,n-墨 :weight bold))))
;;; highlight
;; highlight-indents-guide
`(highlight-indent-guides-even-face
((,class (:background ,n-水黄))))
`(highlight-indent-guides-odd-face
((,class (:background ,n-春緑))))
;; hl-line
`(hl-line ((,class (:underline ,(--u? 'hl-line)
;; :background ,n-芽灰
;; :distant-foreground ,n-墨
:extend t
:weight bold))))
;;; minibuffer
`(minibuffer-prompt ((,class (:foreground ,n-松绿 :weight bold
:underline t))))
;;; mode line
`(doom-modeline-battery-charging
((,class (:foreground ,n-寶藍))))
`(doom-modeline-battery-full
((,class (:foreground ,n-松绿))))
`(doom-modeline-buffer-file
((,class (:foreground ,n-墨
:weight light))))
`(doom-modeline-buffer-minor-mode
((,class (:inherit mode-line))))
`(doom-modeline-buffer-modified
((,class (:foreground ,n-火红
:inherit mode-line
:weight bold))))
`(doom-modeline-buffer-major-mode
((,class (:foreground ,n-火红 :weight light))))
`(doom-modeline-buffer-path
((,class (:foreground ,n-墨
:weight light))))
`(doom-modeline-debug
((,class (:foreground ,n-墨 :weight light))))
`(doom-modeline-info
((,class (:foreground ,n-靛青
:inherit mode-line
:weight light))))
`(doom-modeline-lsp-error
((,class (:inherit doom-modeline-urgent))))
`(doom-modeline-lsp-running
((,class (:inherit doom-modeline-warning))))
`(doom-modeline-lsp-warning
((,class (:inherit doom-modeline-warning))))
`(doom-modeline-buffer-minor-mode
((,class (:inherit mode-line :background nil))))
`(doom-modeline-project-dir
((,class (:foreground ,n-青青 :weight bold))))
`(doom-modeline-urgent
((,class (:foreground ,n-品红
:inherit mode-line
:weight bold))))
`(doom-modeline-warning
((,class (:foreground ,n-松花
:inherit mode-line
:weight bold))))
`(mode-line ((,class (:background ,n-胡粉 :weight light))))
`(mode-line-inactive ((,class (:background ,n-素 :weight light))))
;;; orderless
`(orderless-match-face-0
((,class (:background ,n-富春紡 :foreground ,n-蒼翠 :weight bold))))
`(orderless-match-face-1
((,class (:background ,n-鳳仙粉 :foreground ,n-珈琲椶 :weight bold))))
`(orderless-match-face-2
((,class (:background ,n-龍泉靑瓷 :foreground ,n-靛青 :weight bold))))
`(orderless-match-face-3
((,class (:background ,n-紙棕 :foreground ,n-松绿 :weight bold))))
;;; org mode
`(org-block
((,class (:background ,n/淺背景 :foreground ,n-墨 :extend t))
(,classd (:background ,nd/淺背景 :foreground ,n-缟 :extend t))))
`(org-block-begin-line
((,class (:background ,n-嬭油
:box (:line-width 1 :style released-button)
:extend t
:foreground ,n/墨缟
:weight bold
:slant italic))))
`(org-cite-key
((,class (:foreground ,n-松绿))
(,classd (:foreground ,n-蔥青))))
`(org-code ((,class (:background ,n-米灰
:foreground ,n-墨
:inheit fixed-pitch))))
`(org-document-title
((,class (:background ,n-富春紡
:extend t
:foreground ,n/墨缟
:height ,(--s? 1.7)
:weight bold))))
`(org-document-info
((,class (:extend nil
:foreground ,n/墨缟
:height ,(--s? 1.2)
:slant italic))))
`(org-document-info-keyword
((,class (:background ,n/素墨
:foreground ,n/墨缟
:height ,(--s? 1.2)
:slant italic))))
`(org-done
((,class (:box (:line-width 2 :style released-button)
:foreground ,n/墨缟))))
`(org-ellipsis
((,class (:foreground ,n-米灰
:underline nil))))
`(org-headline-done
((,class (:underline (:color ,n-松花)))))
`(org-list-dt ((,class (:height ,(--s? 1.1) :weight bold))))
`(org-meta-line
((,class (:inherit font-lock-comment-face
:underline nil))))
`(org-property-value ((,class (:foreground ,n-松绿))))
`(org-roam-link
((,class (:inherit org-link
:overline t
:underline t))))
`(org-special-keyword ((,class (:foreground ,n-深竹月))))
`(org-superstar-header-bullet ((,class (:background ,n-富春紡))))
`(org-superstar-item ((,class (:foreground ,n-靛青))))
`(org-tag
((,class (;; :background ,n/牙黛
:box nil
:foreground ,n/墨缟
:slant normal
:underline nil
:weight bold))))
`(org-verbatim ((,class (:background ,n-春緑
:foreground ,n-墨
:inheit fixed-pitch))))
;;; Outline
;; Also the org-levels
`(outline-1
((,class (:extend nil
;; :background ,n-霜
:foreground ,n-靛青
:height ,(--os? 1.4)
:overline nil
:underline nil
:weight bold))))
`(outline-2
((,class (:extend nil
;; :background ,n-露玫瑰
:foreground ,n-紫扇貝
:height ,(--os? 1.2)
:overline nil
:underline nil
:weight bold))))
`(outline-3
((,class (:extend nil
;; :background ,n-春緑
:foreground ,n-松绿
:height ,(--os? 1.1)
:overline nil
:underline nil
:weight bold))))
`(outline-4
((,class (:extend nil
;; :background ,n-淡紫丁香
:foreground ,n/青莲丁香
:height ,(--os? 1.1)
:overline nil
:underline nil
:weight bold))))
`(outline-5
((,class (:extend nil
:foreground ,n-靛青
:height ,(--os? 1.1)
:slant italic
:weight normal))))
`(outline-6
((,class (:extend nil
:foreground ,n-茶
:height ,(--os? 1.1)
:slant italic
:weight normal))))
`(outline-7
((,class (:extend nil
:foreground ,n-松绿
:height ,(--os? 1.1)
:slant italic
:weight normal))))
`(outline-8
((,class (:extend nil
:foreground ,n/青莲丁香
:height ,(--os? 1.1)
:slant italic
:weight normal))))
;;; page break lines
`(page-break-lines
((,class (:inherit font-lock-comment-face :slant normal :underline nil))))
;;; Show parens
`(show-paren-match ((,class (:background ,n-丁香))))
`(show-paren-mismatch ((,class (:background ,n-鳳仙粉))))
;;; tab-line and tab-bar
`(tab-line ((t (:inherit mode-line))))
`(tab-line-tab ((t (:inherit mode-line))))
`(tab-line-tab-inactive ((t (:inherit mode-line-inactive))))
`(tab-line-tab-face-inactive-alternating ((t (:inherit mode-line-inactive))))
`(tab-line-tab-current ((t (:inherit mode-line :foreground ,n-富春紡))))
`(tab-line-highlight ((t (:inherit tab-line-tab))))
`(tab-bar ((t (:inherit tab-line))))
`(tab-bar-tab ((t (:inherit tab-line-tab))))
`(tab-bar-tab-inactive ((t (:inherit tab-line-tab-inactive))))
;;; term
`(term-color-black ((,class (:background ,n-墨 :foreground ,n-墨))))
`(term-color-blue ((,class (:background ,n-靛青 :foreground ,n-靛青))))
`(term-color-cyan ((,class (:background ,n-湖藍 :foreground ,n-湖藍))))
`(term-color-green ((,class (:background ,n-松绿 :foreground ,n-松绿))))
`(term-color-magenta ((,class (:background ,n-長萅蕐 :foreground ,n-長萅蕐))))
`(term-color-red ((,class (:background ,n-火红 :foreground ,n-火红))))
`(term-color-white ((,class (:background ,n-缟 :foreground ,n-缟))))
`(term-color-yellow ((,class (:background ,n-紙棕 :foreground ,n-紙棕))))
`(vterm-color-inverse-video
((,class (:background ,n-墨))))
;;; vertico
`(vertico-mouse ((,class (:background ,n-紙棕
:inherit highlight))))
;;; which-func
`(which-func ((,class (:foreground ,n-青青 :weight light))))))
;;;###autoload
(and load-file-name
(boundp 'custom-theme-load-path)
(add-to-list 'custom-theme-load-path
(file-name-as-directory
(file-name-directory load-file-name))))
(provide-theme 'nasy)
#+end_src
- Footer :noexport:
:PROPERTIES:
:ID: D06983B0-64EC-41CD-A6AD-D243B37D4DCC
:END:
#+begin_src emacs-lisp
(provide 'nasy-theme)
;;; nasy-theme.el ends here
#+end_src