update tp-palette.el
This commit is contained in:
Kinneyzhang
parent
d7e54e3b3d
commit
63b58c6cf5
843
tp-palette.el
843
tp-palette.el
@ -21,726 +21,129 @@
|
|||||||
;; 基础文本样式 (Basic Text Styles)
|
;; 基础文本样式 (Basic Text Styles)
|
||||||
;; ============================================
|
;; ============================================
|
||||||
|
|
||||||
(defvar tp-palette-text-primary
|
(defvar tp-palette-alist nil)
|
||||||
'(:fg ("#24292f" . "#e6edf3") :bg ("#ffffff" . "#0d1117")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
(defmacro define-tp-palette (name &rest plist)
|
||||||
"主要文本样式，用于正文内容。")
|
(declare (indent defun))
|
||||||
|
(let ((var (intern (concat "tp-palette-" (symbol-name name)))))
|
||||||
(defvar tp-palette-text-secondary
|
`(progn
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
|
(setf (alist-get ',name tp-palette-alist)
|
||||||
:border ("#d8dee4" . "#30363d"))
|
'(,@plist))
|
||||||
"次要文本样式，用于辅助说明文字。")
|
(defvar ,var '(,@plist)))))
|
||||||
|
|
||||||
(defvar tp-palette-text-muted
|
(define-tp-palette button-primary
|
||||||
'(:fg ("#6e7781" . "#6e7681") :bg ("#f6f8fa" . "#161b22")
|
:fg ("#ffffff" . "#ffffff") :bg ("#007bff" . "#007bff"))
|
||||||
:border ("#e1e4e8" . "#21262d"))
|
|
||||||
"弱化文本样式，用于占位符、禁用状态。")
|
(define-tp-palette button-secondary
|
||||||
|
:fg ("#ffffff" . "#ffffff") :bg ("#6c757d" . "#6c757d"))
|
||||||
;; ============================================
|
|
||||||
;; 语义状态样式 (Semantic Status Styles)
|
(define-tp-palette button-info
|
||||||
;; ============================================
|
:fg ("#ffffff" . "#ffffff") :bg ("#17a2b8" . "#17a2b8"))
|
||||||
|
|
||||||
(defvar tp-palette-success
|
(define-tp-palette button-success
|
||||||
'(:fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
|
:fg ("#ffffff" . "#ffffff") :bg ("#28a745" . "#28a745"))
|
||||||
:border ("#4ac26b" . "#238636"))
|
|
||||||
"成功状态样式，用于成功提示、通过状态。")
|
(define-tp-palette button-warning
|
||||||
|
:fg ("#000000" . "#000000") :bg ("#ffc107" . "#ffc107"))
|
||||||
(defvar tp-palette-warning
|
|
||||||
'(:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
|
(define-tp-palette button-danger
|
||||||
:border ("#d4a72c" . "#9e6a03"))
|
:fg ("#ffffff" . "#ffffff") :bg ("#dc3545" . "#dc3545"))
|
||||||
"警告状态样式，用于警告提示、待处理状态。")
|
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
(defvar tp-palette-error
|
|
||||||
'(:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
|
(define-tp-palette heading-1
|
||||||
:border ("#ff8182" . "#f85149"))
|
:fg ("#0969da" . "#58a6ff") :bg ("#f0f7ff" . "#1a2634")
|
||||||
"错误状态样式，用于错误提示、失败状态。")
|
:border ("#54aeff" . "#388bfd"))
|
||||||
|
|
||||||
(defvar tp-palette-info
|
(define-tp-palette heading-2
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
:fg ("#8250df" . "#a371f7") :bg ("#fbefff" . "#271d36")
|
||||||
:border ("#54aeff" . "#388bfd"))
|
:border ("#c297ff" . "#6e40c9"))
|
||||||
"信息提示样式，用于普通提示、链接。")
|
|
||||||
|
(define-tp-palette heading-3
|
||||||
(defvar tp-palette-neutral
|
:fg ("#1a7f37" . "#3fb950") :bg ("#f0fff4" . "#1a2e1f")
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
|
:border ("#4ac26b" . "#238636"))
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"中性状态样式，用于普通标签、默认状态。")
|
(define-tp-palette heading-4
|
||||||
|
:fg ("#953800" . "#ffa657") :bg ("#fff8f0" . "#2e2318")
|
||||||
;; ============================================
|
:border ("#ffb86c" . "#9e6a03"))
|
||||||
;; 代码高亮样式 (Code Syntax Highlighting Styles)
|
|
||||||
;; Based on One Dark/Light and popular editor themes
|
(define-tp-palette heading-5
|
||||||
;; ============================================
|
:fg ("#bf3989" . "#db61a2") :bg ("#fff0f7" . "#2e1f28")
|
||||||
|
:border ("#f28cb1" . "#8b3d63"))
|
||||||
(defvar tp-palette-syntax-keyword
|
|
||||||
'(:fg ("#a626a4" . "#c678dd") :bg nil
|
(define-tp-palette heading-6
|
||||||
:border ("#a626a4" . "#c678dd"))
|
:fg ("#0598bc" . "#39c5cf") :bg ("#f0faff" . "#1a2e33")
|
||||||
"关键字样式，如 if, else, def, class 等。紫色调。")
|
:border ("#56d4dd" . "#2d7d85"))
|
||||||
|
|
||||||
(defvar tp-palette-syntax-string
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
'(:fg ("#50a14f" . "#98c379") :bg nil
|
|
||||||
:border ("#50a14f" . "#98c379"))
|
(define-tp-palette todo
|
||||||
"字符串样式。绿色调。")
|
:fg ("#ffffff" . "#ffffff") :bg ("#cf222e" . "#da3633")
|
||||||
|
:border ("#a40e26" . "#f85149"))
|
||||||
(defvar tp-palette-syntax-comment
|
|
||||||
'(:fg ("#a0a1a7" . "#5c6370") :bg nil
|
(define-tp-palette done
|
||||||
:border ("#a0a1a7" . "#5c6370"))
|
:fg ("#ffffff" . "#ffffff") :bg ("#1a7f37" . "#238636")
|
||||||
"注释样式。灰色调。")
|
:border ("#116329" . "#2ea043"))
|
||||||
|
|
||||||
(defvar tp-palette-syntax-function
|
(define-tp-palette code
|
||||||
'(:fg ("#4078f2" . "#61afef") :bg nil
|
:fg ("#0550ae" . "#79c0ff") :bg ("#f6f8fa" . "#161b22")
|
||||||
:border ("#4078f2" . "#61afef"))
|
:border ("#d0d7de" . "#30363d"))
|
||||||
"函数名样式。蓝色调。")
|
|
||||||
|
(define-tp-palette block
|
||||||
(defvar tp-palette-syntax-variable
|
:fg ("#24292f" . "#c9d1d9") :bg ("#f6f8fa" . "#161b22")
|
||||||
'(:fg ("#e45649" . "#e06c75") :bg nil
|
:border ("#d0d7de" . "#30363d"))
|
||||||
:border ("#e45649" . "#e06c75"))
|
|
||||||
"变量名样式。红色调。")
|
(define-tp-palette quote
|
||||||
|
:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
|
||||||
(defvar tp-palette-syntax-constant
|
:border ("#d0d7de" . "#30363d"))
|
||||||
'(:fg ("#986801" . "#d19a66") :bg nil
|
|
||||||
:border ("#986801" . "#d19a66"))
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
"常量样式。橙色调。")
|
|
||||||
|
(define-tp-palette success
|
||||||
(defvar tp-palette-syntax-type
|
:fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
|
||||||
'(:fg ("#c18401" . "#e5c07b") :bg nil
|
:border ("#4ac26b" . "#238636"))
|
||||||
:border ("#c18401" . "#e5c07b"))
|
|
||||||
"类型样式，如类名、结构体名。黄色调。")
|
(define-tp-palette warning
|
||||||
|
:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
|
||||||
(defvar tp-palette-syntax-number
|
:border ("#d4a72c" . "#9e6a03"))
|
||||||
'(:fg ("#986801" . "#d19a66") :bg nil
|
|
||||||
:border ("#986801" . "#d19a66"))
|
(define-tp-palette error
|
||||||
"数字样式。橙色调。")
|
:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
|
||||||
|
:border ("#ff8182" . "#f85149"))
|
||||||
(defvar tp-palette-syntax-operator
|
|
||||||
'(:fg ("#0184bc" . "#56b6c2") :bg nil
|
(define-tp-palette info
|
||||||
:border ("#0184bc" . "#56b6c2"))
|
:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
||||||
"运算符样式。青色调。")
|
:border ("#54aeff" . "#388bfd"))
|
||||||
|
|
||||||
(defvar tp-palette-syntax-preprocessor
|
(define-tp-palette neutral
|
||||||
'(:fg ("#a626a4" . "#c678dd") :bg nil
|
:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
|
||||||
:border ("#a626a4" . "#c678dd"))
|
:border ("#d0d7de" . "#30363d"))
|
||||||
"预处理器样式，如 #include, #define。紫色调。")
|
|
||||||
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
(defvar tp-palette-syntax-builtin
|
|
||||||
'(:fg ("#0184bc" . "#56b6c2") :bg nil
|
(define-tp-palette rainbow-1
|
||||||
:border ("#0184bc" . "#56b6c2"))
|
:fg ("#e45649" . "#e06c75") :border ("#e45649" . "#e06c75"))
|
||||||
"内置函数/方法样式。青色调。")
|
|
||||||
|
(define-tp-palette rainbow-2
|
||||||
(defvar tp-palette-syntax-regexp
|
:fg ("#986801" . "#d19a66") :border ("#986801" . "#d19a66"))
|
||||||
'(:fg ("#50a14f" . "#98c379") :bg nil
|
|
||||||
:border ("#50a14f" . "#98c379"))
|
(define-tp-palette rainbow-3
|
||||||
"正则表达式样式。绿色调。")
|
:fg ("#c18401" . "#e5c07b") :border ("#c18401" . "#e5c07b"))
|
||||||
|
|
||||||
(defvar tp-palette-syntax-attribute
|
(define-tp-palette rainbow-4
|
||||||
'(:fg ("#986801" . "#d19a66") :bg nil
|
:fg ("#50a14f" . "#98c379") :border ("#50a14f" . "#98c379"))
|
||||||
:border ("#986801" . "#d19a66"))
|
|
||||||
"属性/装饰器样式。橙色调。")
|
(define-tp-palette rainbow-5
|
||||||
|
:fg ("#0184bc" . "#56b6c2") :border ("#0184bc" . "#56b6c2"))
|
||||||
(defvar tp-palette-syntax-tag
|
|
||||||
'(:fg ("#e45649" . "#e06c75") :bg nil
|
(define-tp-palette rainbow-6
|
||||||
:border ("#e45649" . "#e06c75"))
|
:fg ("#4078f2" . "#61afef") :border ("#4078f2" . "#61afef"))
|
||||||
"HTML/XML 标签样式。红色调。")
|
|
||||||
|
(define-tp-palette rainbow-7
|
||||||
;; ============================================
|
:fg ("#a626a4" . "#c678dd") :border ("#a626a4" . "#c678dd"))
|
||||||
;; UI 界面样式 (UI Styles)
|
|
||||||
;; ============================================
|
(define-tp-palette rainbow-8
|
||||||
|
:fg ("#bf3989" . "#db61a2") :border ("#bf3989" . "#db61a2"))
|
||||||
(defvar tp-palette-ui-default
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#ffffff" . "#0d1117")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"默认 UI 样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-canvas
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d8dee4" . "#21262d"))
|
|
||||||
"画布/次级背景样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-overlay
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#ffffff" . "#21262d")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"覆盖层/弹窗样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-hover
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#eaeef2" . "#30363d")
|
|
||||||
:border ("#d0d7de" . "#484f58"))
|
|
||||||
"悬浮状态样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-selected
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"选中状态样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-active
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"激活状态样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-ui-disabled
|
|
||||||
'(:fg ("#8c959f" . "#484f58") :bg ("#f6f8fa" . "#21262d")
|
|
||||||
:border ("#e1e4e8" . "#30363d"))
|
|
||||||
"禁用状态样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 按钮样式 (Button Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-primary
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#007bff" . "#007bff")))
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-secondary
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#6c757d" . "#6c757d")))
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-info
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#17a2b8" . "#17a2b8")))
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-success
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#28a745" . "#28a745")))
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-warning
|
|
||||||
'(:fg ("#000000" . "#000000") :bg ("#ffc107" . "#ffc107")))
|
|
||||||
|
|
||||||
(defvar tp-palette-btn-danger
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#dc3545" . "#dc3545")))
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 输入框样式 (Input Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-input-default
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#ffffff" . "#0d1117")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"输入框默认样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-input-focus
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#ffffff" . "#0d1117")
|
|
||||||
:border ("#0969da" . "#58a6ff"))
|
|
||||||
"输入框聚焦样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-input-error
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#ffffff" . "#0d1117")
|
|
||||||
:border ("#cf222e" . "#f85149"))
|
|
||||||
"输入框错误样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-input-disabled
|
|
||||||
'(:fg ("#8c959f" . "#484f58") :bg ("#f6f8fa" . "#21262d")
|
|
||||||
:border ("#e1e4e8" . "#30363d"))
|
|
||||||
"输入框禁用样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; Diff 样式 (Version Control Diff Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-diff-added
|
|
||||||
'(:fg ("#116329" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
|
|
||||||
:border ("#4ac26b" . "#238636"))
|
|
||||||
"新增行样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-diff-removed
|
|
||||||
'(:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
|
|
||||||
:border ("#ff8182" . "#f85149"))
|
|
||||||
"删除行样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-diff-modified
|
|
||||||
'(:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
|
|
||||||
:border ("#d4a72c" . "#9e6a03"))
|
|
||||||
"修改行样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-diff-hunk-header
|
|
||||||
'(:fg ("#0550ae" . "#79c0ff") :bg ("#ddf4ff" . "#1f3d5c")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"Diff hunk 头部样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 模式行样式 (Modeline Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-modeline-active
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#f6f8fa" . "#21262d")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"活动窗口模式行样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-modeline-inactive
|
|
||||||
'(:fg ("#6e7781" . "#6e7681") :bg ("#eaeef2" . "#161b22")
|
|
||||||
:border ("#e1e4e8" . "#21262d"))
|
|
||||||
"非活动窗口模式行样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-modeline-highlight
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"模式行高亮样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 搜索和匹配样式 (Search & Match Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-search-match
|
|
||||||
'(:fg ("#9a6700" . "#f0c239") :bg ("#fff8c5" . "#533d00")
|
|
||||||
:border ("#d4a72c" . "#9e6a03"))
|
|
||||||
"搜索匹配高亮样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-search-current
|
|
||||||
'(:fg ("#24292f" . "#24292f") :bg ("#ffc83d" . "#e3b341")
|
|
||||||
:border ("#bf8700" . "#d29922"))
|
|
||||||
"当前搜索项高亮样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-lazy-highlight
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"延迟高亮样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-match-paren
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#add6ff" . "#264f78")
|
|
||||||
:border ("#0969da" . "#58a6ff"))
|
|
||||||
"括号匹配样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 选区和光标样式 (Selection & Cursor Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-region
|
|
||||||
'(:fg nil :bg ("#add6ff" . "#264f78")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"选区样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-cursor
|
|
||||||
'(:fg ("#ffffff" . "#0d1117") :bg ("#24292f" . "#58a6ff")
|
|
||||||
:border ("#24292f" . "#58a6ff"))
|
|
||||||
"光标样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-line-highlight
|
|
||||||
'(:fg nil :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#eaeef2" . "#21262d"))
|
|
||||||
"当前行高亮样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; Org-mode 标题样式 (Org-mode Heading Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-1
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#f0f7ff" . "#1a2634")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"Org 一级标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-2
|
|
||||||
'(:fg ("#8250df" . "#a371f7") :bg ("#fbefff" . "#271d36")
|
|
||||||
:border ("#c297ff" . "#6e40c9"))
|
|
||||||
"Org 二级标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-3
|
|
||||||
'(:fg ("#1a7f37" . "#3fb950") :bg ("#f0fff4" . "#1a2e1f")
|
|
||||||
:border ("#4ac26b" . "#238636"))
|
|
||||||
"Org 三级标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-4
|
|
||||||
'(:fg ("#953800" . "#ffa657") :bg ("#fff8f0" . "#2e2318")
|
|
||||||
:border ("#ffb86c" . "#9e6a03"))
|
|
||||||
"Org 四级标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-5
|
|
||||||
'(:fg ("#bf3989" . "#db61a2") :bg ("#fff0f7" . "#2e1f28")
|
|
||||||
:border ("#f28cb1" . "#8b3d63"))
|
|
||||||
"Org 五级标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-heading-6
|
|
||||||
'(:fg ("#0598bc" . "#39c5cf") :bg ("#f0faff" . "#1a2e33")
|
|
||||||
:border ("#56d4dd" . "#2d7d85"))
|
|
||||||
"Org 六级标题样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; Org-mode 其他样式 (Org-mode Other Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-org-todo
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#cf222e" . "#da3633")
|
|
||||||
:border ("#a40e26" . "#f85149"))
|
|
||||||
"Org TODO 关键字样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-done
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#1a7f37" . "#238636")
|
|
||||||
:border ("#116329" . "#2ea043"))
|
|
||||||
"Org DONE 关键字样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-code
|
|
||||||
'(:fg ("#0550ae" . "#79c0ff") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"Org 行内代码样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-block
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"Org 代码块样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-quote
|
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"Org 引用块样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-link
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg nil
|
|
||||||
:border ("#0969da" . "#58a6ff"))
|
|
||||||
"Org 链接样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-date
|
|
||||||
'(:fg ("#8250df" . "#a371f7") :bg nil
|
|
||||||
:border ("#8250df" . "#a371f7"))
|
|
||||||
"Org 日期样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-org-tag
|
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
|
|
||||||
:border ("#d0d7de" . "#888"))
|
|
||||||
;; #30363d
|
|
||||||
"Org 标签样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 强调色样式 (Accent Color Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-blue
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"蓝色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-purple
|
|
||||||
'(:fg ("#8250df" . "#a371f7") :bg ("#fbefff" . "#271d36")
|
|
||||||
:border ("#c297ff" . "#6e40c9"))
|
|
||||||
"紫色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-pink
|
|
||||||
'(:fg ("#bf3989" . "#db61a2") :bg ("#fff0f7" . "#2e1f28")
|
|
||||||
:border ("#f28cb1" . "#8b3d63"))
|
|
||||||
"粉色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-orange
|
|
||||||
'(:fg ("#bc4c00" . "#f0883e") :bg ("#fff5eb" . "#2e2318")
|
|
||||||
:border ("#ffb86c" . "#9e6a03"))
|
|
||||||
"橙色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-green
|
|
||||||
'(:fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
|
|
||||||
:border ("#4ac26b" . "#238636"))
|
|
||||||
"绿色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-red
|
|
||||||
'(:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
|
|
||||||
:border ("#ff8182" . "#f85149"))
|
|
||||||
"红色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-yellow
|
|
||||||
'(:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
|
|
||||||
:border ("#d4a72c" . "#9e6a03"))
|
|
||||||
"黄色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-cyan
|
|
||||||
'(:fg ("#0598bc" . "#39c5cf") :bg ("#e8f9fc" . "#1a2e33")
|
|
||||||
:border ("#56d4dd" . "#2d7d85"))
|
|
||||||
"青色强调样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 通知/徽章样式 (Notification/Badge Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-primary
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"主要徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-secondary
|
|
||||||
'(:fg ("#24292f" . "#c9d1d9") :bg ("#eaeef2" . "#30363d")
|
|
||||||
:border ("#d0d7de" . "#484f58"))
|
|
||||||
"次级徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-success
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#1a7f37" . "#238636")
|
|
||||||
:border ("#116329" . "#2ea043"))
|
|
||||||
"成功徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-warning
|
|
||||||
'(:fg ("#24292f" . "#24292f") :bg ("#ffd33d" . "#d29922")
|
|
||||||
:border ("#bf8700" . "#bb8009"))
|
|
||||||
"警告徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-danger
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#cf222e" . "#da3633")
|
|
||||||
:border ("#a40e26" . "#f85149"))
|
|
||||||
"危险徽章样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 彩虹括号样式 (Rainbow Delimiters Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-1
|
|
||||||
'(:fg ("#e45649" . "#e06c75") :bg nil
|
|
||||||
:border ("#e45649" . "#e06c75"))
|
|
||||||
"彩虹括号第一层样式（红色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-2
|
|
||||||
'(:fg ("#986801" . "#d19a66") :bg nil
|
|
||||||
:border ("#986801" . "#d19a66"))
|
|
||||||
"彩虹括号第二层样式（橙色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-3
|
|
||||||
'(:fg ("#c18401" . "#e5c07b") :bg nil
|
|
||||||
:border ("#c18401" . "#e5c07b"))
|
|
||||||
"彩虹括号第三层样式（黄色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-4
|
|
||||||
'(:fg ("#50a14f" . "#98c379") :bg nil
|
|
||||||
:border ("#50a14f" . "#98c379"))
|
|
||||||
"彩虹括号第四层样式（绿色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-5
|
|
||||||
'(:fg ("#0184bc" . "#56b6c2") :bg nil
|
|
||||||
:border ("#0184bc" . "#56b6c2"))
|
|
||||||
"彩虹括号第五层样式（青色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-6
|
|
||||||
'(:fg ("#4078f2" . "#61afef") :bg nil
|
|
||||||
:border ("#4078f2" . "#61afef"))
|
|
||||||
"彩虹括号第六层样式（蓝色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-7
|
|
||||||
'(:fg ("#a626a4" . "#c678dd") :bg nil
|
|
||||||
:border ("#a626a4" . "#c678dd"))
|
|
||||||
"彩虹括号第七层样式（紫色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-rainbow-8
|
|
||||||
'(:fg ("#bf3989" . "#db61a2") :bg nil
|
|
||||||
:border ("#bf3989" . "#db61a2"))
|
|
||||||
"彩虹括号第八层样式（粉色）。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 更多强调色 (Additional Accent Colors)
|
|
||||||
;; Inspired by Tailwind CSS color palette
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-teal
|
|
||||||
'(:fg ("#0d9488" . "#2dd4bf") :bg ("#ccfbf1" . "#134e4a")
|
|
||||||
:border ("#14b8a6" . "#0d9488"))
|
|
||||||
"蓝绿色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-indigo
|
|
||||||
'(:fg ("#4f46e5" . "#818cf8") :bg ("#e0e7ff" . "#312e81")
|
|
||||||
:border ("#6366f1" . "#4f46e5"))
|
|
||||||
"靛蓝色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-rose
|
|
||||||
'(:fg ("#e11d48" . "#fb7185") :bg ("#ffe4e6" . "#4c0519")
|
|
||||||
:border ("#f43f5e" . "#e11d48"))
|
|
||||||
"玫瑰色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-amber
|
|
||||||
'(:fg ("#d97706" . "#fbbf24") :bg ("#fef3c7" . "#451a03")
|
|
||||||
:border ("#f59e0b" . "#d97706"))
|
|
||||||
"琥珀色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-lime
|
|
||||||
'(:fg ("#65a30d" . "#a3e635") :bg ("#ecfccb" . "#1a2e05")
|
|
||||||
:border ("#84cc16" . "#65a30d"))
|
|
||||||
"青柠色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-emerald
|
|
||||||
'(:fg ("#059669" . "#34d399") :bg ("#d1fae5" . "#064e3b")
|
|
||||||
:border ("#10b981" . "#059669"))
|
|
||||||
"翡翠绿强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-sky
|
|
||||||
'(:fg ("#0284c7" . "#38bdf8") :bg ("#e0f2fe" . "#0c4a6e")
|
|
||||||
:border ("#0ea5e9" . "#0284c7"))
|
|
||||||
"天蓝色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-violet
|
|
||||||
'(:fg ("#7c3aed" . "#a78bfa") :bg ("#ede9fe" . "#2e1065")
|
|
||||||
:border ("#8b5cf6" . "#7c3aed"))
|
|
||||||
"紫罗兰色强调样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-accent-fuchsia
|
|
||||||
'(:fg ("#c026d3" . "#e879f9") :bg ("#fae8ff" . "#4a044e")
|
|
||||||
:border ("#d946ef" . "#c026d3"))
|
|
||||||
"洋红色强调样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 更多徽章样式 (Additional Badge Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-info
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"信息徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-purple
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#8250df" . "#8957e5")
|
|
||||||
:border ("#6e40c9" . "#a371f7"))
|
|
||||||
"紫色徽章样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-badge-pink
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#bf3989" . "#db61a2")
|
|
||||||
:border ("#99306f" . "#f28cb1"))
|
|
||||||
"粉色徽章样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 按钮扩展样式 (Additional Button Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-button-info
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"信息按钮样式（蓝色）。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; Markdown 样式 (Markdown Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-heading
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg nil
|
|
||||||
:border ("#0969da" . "#58a6ff"))
|
|
||||||
"Markdown 标题样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-bold
|
|
||||||
'(:fg ("#24292f" . "#e6edf3") :bg nil
|
|
||||||
:border ("#24292f" . "#e6edf3"))
|
|
||||||
"Markdown 粗体样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-italic
|
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg nil
|
|
||||||
:border ("#57606a" . "#8b949e"))
|
|
||||||
"Markdown 斜体样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-code
|
|
||||||
'(:fg ("#0550ae" . "#79c0ff") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"Markdown 行内代码样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-link
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg nil
|
|
||||||
:border ("#0969da" . "#58a6ff"))
|
|
||||||
"Markdown 链接样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-blockquote
|
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"Markdown 引用块样式。")
|
|
||||||
|
|
||||||
(defvar tp-palette-markdown-list
|
|
||||||
'(:fg ("#9a6700" . "#d29922") :bg nil
|
|
||||||
:border ("#9a6700" . "#d29922"))
|
|
||||||
"Markdown 列表标记样式。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 灰度色阶 (Grayscale Palette)
|
|
||||||
;; Inspired by Tailwind CSS neutral colors
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-50
|
|
||||||
'(:fg ("#24292f" . "#fafafa") :bg ("#fafafa" . "#171717")
|
|
||||||
:border ("#e5e5e5" . "#262626"))
|
|
||||||
"灰度 50 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-100
|
|
||||||
'(:fg ("#24292f" . "#f5f5f5") :bg ("#f5f5f5" . "#1c1c1c")
|
|
||||||
:border ("#e5e5e5" . "#262626"))
|
|
||||||
"灰度 100 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-200
|
|
||||||
'(:fg ("#24292f" . "#e5e5e5") :bg ("#e5e5e5" . "#262626")
|
|
||||||
:border ("#d4d4d4" . "#404040"))
|
|
||||||
"灰度 200 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-300
|
|
||||||
'(:fg ("#24292f" . "#d4d4d4") :bg ("#d4d4d4" . "#404040")
|
|
||||||
:border ("#a3a3a3" . "#525252"))
|
|
||||||
"灰度 300 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-400
|
|
||||||
'(:fg ("#24292f" . "#a3a3a3") :bg ("#a3a3a3" . "#525252")
|
|
||||||
:border ("#737373" . "#737373"))
|
|
||||||
"灰度 400 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-500
|
|
||||||
'(:fg ("#ffffff" . "#737373") :bg ("#737373" . "#737373")
|
|
||||||
:border ("#525252" . "#a3a3a3"))
|
|
||||||
"灰度 500 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-600
|
|
||||||
'(:fg ("#ffffff" . "#525252") :bg ("#525252" . "#a3a3a3")
|
|
||||||
:border ("#404040" . "#d4d4d4"))
|
|
||||||
"灰度 600 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-700
|
|
||||||
'(:fg ("#ffffff" . "#404040") :bg ("#404040" . "#d4d4d4")
|
|
||||||
:border ("#262626" . "#e5e5e5"))
|
|
||||||
"灰度 700 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-800
|
|
||||||
'(:fg ("#ffffff" . "#262626") :bg ("#262626" . "#e5e5e5")
|
|
||||||
:border ("#171717" . "#f5f5f5"))
|
|
||||||
"灰度 800 级别。")
|
|
||||||
|
|
||||||
(defvar tp-palette-gray-900
|
|
||||||
'(:fg ("#ffffff" . "#171717") :bg ("#171717" . "#f5f5f5")
|
|
||||||
:border ("#0a0a0a" . "#fafafa"))
|
|
||||||
"灰度 900 级别。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 优先级样式 (Priority Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-priority-highest
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#cf222e" . "#da3633")
|
|
||||||
:border ("#a40e26" . "#f85149"))
|
|
||||||
"最高优先级样式（红色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-priority-high
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#bc4c00" . "#f0883e")
|
|
||||||
:border ("#953800" . "#ffa657"))
|
|
||||||
"高优先级样式（橙色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-priority-medium
|
|
||||||
'(:fg ("#24292f" . "#24292f") :bg ("#ffd33d" . "#d29922")
|
|
||||||
:border ("#bf8700" . "#bb8009"))
|
|
||||||
"中等优先级样式（黄色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-priority-low
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#1a7f37" . "#238636")
|
|
||||||
:border ("#116329" . "#2ea043"))
|
|
||||||
"低优先级样式（绿色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-priority-lowest
|
|
||||||
'(:fg ("#ffffff" . "#ffffff") :bg ("#0969da" . "#1f6feb")
|
|
||||||
:border ("#0550ae" . "#388bfd"))
|
|
||||||
"最低优先级样式（蓝色）。")
|
|
||||||
|
|
||||||
;; ============================================
|
|
||||||
;; 进度状态样式 (Progress Status Styles)
|
|
||||||
;; ============================================
|
|
||||||
|
|
||||||
(defvar tp-palette-status-pending
|
|
||||||
'(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
|
|
||||||
:border ("#d0d7de" . "#30363d"))
|
|
||||||
"待处理状态样式（灰色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-status-in-progress
|
|
||||||
'(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
|
|
||||||
:border ("#54aeff" . "#388bfd"))
|
|
||||||
"进行中状态样式（蓝色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-status-review
|
|
||||||
'(:fg ("#8250df" . "#a371f7") :bg ("#fbefff" . "#271d36")
|
|
||||||
:border ("#c297ff" . "#6e40c9"))
|
|
||||||
"审核中状态样式（紫色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-status-completed
|
|
||||||
'(:fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
|
|
||||||
:border ("#4ac26b" . "#238636"))
|
|
||||||
"已完成状态样式（绿色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-status-cancelled
|
|
||||||
'(:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
|
|
||||||
:border ("#ff8182" . "#f85149"))
|
|
||||||
"已取消状态样式（红色）。")
|
|
||||||
|
|
||||||
(defvar tp-palette-status-on-hold
|
|
||||||
'(:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
|
|
||||||
:border ("#d4a72c" . "#9e6a03"))
|
|
||||||
"暂停状态样式（黄色）。")
|
|
||||||
|
|
||||||
;;; Utilities
|
;;; Utilities
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user