From 63b58c6cf5c0844c3c0bac31a738d2362cff04f1 Mon Sep 17 00:00:00 2001
From: Kinneyzhang <zhangkai18@asiainfo.com>
Date: Mon, 5 Jan 2026 17:29:20 +0800
Subject: [PATCH] update tp-palette.el

---
 tp-palette.el | 843 ++++++++------------------------------------------
 1 file changed, 123 insertions(+), 720 deletions(-)

diff --git a/tp-palette.el b/tp-palette.el
index 7c0fd37..2d4aad2 100644
--- a/tp-palette.el
+++ b/tp-palette.el
@@ -21,726 +21,129 @@
 ;; 基础文本样式 (Basic Text Styles)
 ;; ============================================
 
-(defvar tp-palette-text-primary
-  '(:fg ("#24292f" . "#e6edf3") :bg ("#ffffff" . "#0d1117")
-        :border ("#d0d7de" . "#30363d"))
-  "主要文本样式，用于正文内容。")
-
-(defvar tp-palette-text-secondary
-  '(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
-        :border ("#d8dee4" . "#30363d"))
-  "次要文本样式，用于辅助说明文字。")
-
-(defvar tp-palette-text-muted
-  '(:fg ("#6e7781" . "#6e7681") :bg ("#f6f8fa" . "#161b22")
-        :border ("#e1e4e8" . "#21262d"))
-  "弱化文本样式，用于占位符、禁用状态。")
-
-;; ============================================
-;; 语义状态样式 (Semantic Status Styles)
-;; ============================================
-
-(defvar tp-palette-success
-  '(:fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
-        :border ("#4ac26b" . "#238636"))
-  "成功状态样式，用于成功提示、通过状态。")
-
-(defvar tp-palette-warning
-  '(:fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
-        :border ("#d4a72c" . "#9e6a03"))
-  "警告状态样式，用于警告提示、待处理状态。")
-
-(defvar tp-palette-error
-  '(:fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
-        :border ("#ff8182" . "#f85149"))
-  "错误状态样式，用于错误提示、失败状态。")
-
-(defvar tp-palette-info
-  '(:fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
-        :border ("#54aeff" .  "#388bfd"))
-  "信息提示样式，用于普通提示、链接。")
-
-(defvar tp-palette-neutral
-  '(:fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
-        :border ("#d0d7de" .  "#30363d"))
-  "中性状态样式，用于普通标签、默认状态。")
-
-;; ============================================
-;; 代码高亮样式 (Code Syntax Highlighting Styles)
-;; Based on One Dark/Light and popular editor themes
-;; ============================================
-
-(defvar tp-palette-syntax-keyword
-  '(:fg ("#a626a4" . "#c678dd") :bg nil
-        :border ("#a626a4" . "#c678dd"))
-  "关键字样式，如 if, else, def, class 等。紫色调。")
-
-(defvar tp-palette-syntax-string
-  '(:fg ("#50a14f" . "#98c379") :bg nil
-        :border ("#50a14f" . "#98c379"))
-  "字符串样式。绿色调。")
-
-(defvar tp-palette-syntax-comment
-  '(:fg ("#a0a1a7" . "#5c6370") :bg nil
-        :border ("#a0a1a7" . "#5c6370"))
-  "注释样式。灰色调。")
-
-(defvar tp-palette-syntax-function
-  '(:fg ("#4078f2" . "#61afef") :bg nil
-        :border ("#4078f2" . "#61afef"))
-  "函数名样式。蓝色调。")
-
-(defvar tp-palette-syntax-variable
-  '(:fg ("#e45649" . "#e06c75") :bg nil
-        :border ("#e45649" . "#e06c75"))
-  "变量名样式。红色调。")
-
-(defvar tp-palette-syntax-constant
-  '(:fg ("#986801" . "#d19a66") :bg nil
-        :border ("#986801" . "#d19a66"))
-  "常量样式。橙色调。")
-
-(defvar tp-palette-syntax-type
-  '(:fg ("#c18401" . "#e5c07b") :bg nil
-        :border ("#c18401" . "#e5c07b"))
-  "类型样式，如类名、结构体名。黄色调。")
-
-(defvar tp-palette-syntax-number
-  '(:fg ("#986801" . "#d19a66") :bg nil
-        :border ("#986801" . "#d19a66"))
-  "数字样式。橙色调。")
-
-(defvar tp-palette-syntax-operator
-  '(:fg ("#0184bc" . "#56b6c2") :bg nil
-        :border ("#0184bc" . "#56b6c2"))
-  "运算符样式。青色调。")
-
-(defvar tp-palette-syntax-preprocessor
-  '(:fg ("#a626a4" . "#c678dd") :bg nil
-        :border ("#a626a4" . "#c678dd"))
-  "预处理器样式，如 #include, #define。紫色调。")
-
-(defvar tp-palette-syntax-builtin
-  '(:fg ("#0184bc" . "#56b6c2") :bg nil
-        :border ("#0184bc" . "#56b6c2"))
-  "内置函数/方法样式。青色调。")
-
-(defvar tp-palette-syntax-regexp
-  '(:fg ("#50a14f" . "#98c379") :bg nil
-        :border ("#50a14f" . "#98c379"))
-  "正则表达式样式。绿色调。")
-
-(defvar tp-palette-syntax-attribute
-  '(:fg ("#986801" . "#d19a66") :bg nil
-        :border ("#986801" . "#d19a66"))
-  "属性/装饰器样式。橙色调。")
-
-(defvar tp-palette-syntax-tag
-  '(:fg ("#e45649" . "#e06c75") :bg nil
-        :border ("#e45649" . "#e06c75"))
-  "HTML/XML 标签样式。红色调。")
-
-;; ============================================
-;; UI 界面样式 (UI Styles)
-;; ============================================
-
-(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"))
-  "暂停状态样式（黄色）。")
+(defvar tp-palette-alist nil)
+
+(defmacro define-tp-palette (name &rest plist)
+  (declare (indent defun))
+  (let ((var (intern (concat "tp-palette-" (symbol-name name)))))
+    `(progn
+       (setf (alist-get ',name tp-palette-alist)
+             '(,@plist))
+       (defvar ,var '(,@plist)))))
+
+(define-tp-palette button-primary
+  :fg ("#ffffff" . "#ffffff") :bg ("#007bff" . "#007bff"))
+
+(define-tp-palette button-secondary
+  :fg ("#ffffff" . "#ffffff") :bg ("#6c757d" . "#6c757d"))
+
+(define-tp-palette button-info
+  :fg ("#ffffff" . "#ffffff") :bg ("#17a2b8" . "#17a2b8"))
+
+(define-tp-palette button-success
+  :fg ("#ffffff" . "#ffffff") :bg ("#28a745" . "#28a745"))
+
+(define-tp-palette button-warning
+  :fg ("#000000" . "#000000") :bg ("#ffc107" . "#ffc107"))
+
+(define-tp-palette button-danger
+  :fg ("#ffffff" . "#ffffff") :bg ("#dc3545" . "#dc3545"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-tp-palette heading-1
+  :fg ("#0969da" . "#58a6ff") :bg ("#f0f7ff" . "#1a2634")
+  :border ("#54aeff" . "#388bfd"))
+
+(define-tp-palette heading-2
+  :fg ("#8250df" . "#a371f7") :bg ("#fbefff" . "#271d36")
+  :border ("#c297ff" . "#6e40c9"))
+
+(define-tp-palette heading-3
+  :fg ("#1a7f37" . "#3fb950") :bg ("#f0fff4" . "#1a2e1f")
+  :border ("#4ac26b" . "#238636"))
+
+(define-tp-palette heading-4
+  :fg ("#953800" . "#ffa657") :bg ("#fff8f0" . "#2e2318")
+  :border ("#ffb86c" . "#9e6a03"))
+
+(define-tp-palette heading-5
+  :fg ("#bf3989" . "#db61a2") :bg ("#fff0f7" . "#2e1f28")
+  :border ("#f28cb1" . "#8b3d63"))
+
+(define-tp-palette heading-6
+  :fg ("#0598bc" . "#39c5cf") :bg ("#f0faff" . "#1a2e33")
+  :border ("#56d4dd" . "#2d7d85"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-tp-palette todo
+  :fg ("#ffffff" . "#ffffff") :bg ("#cf222e" . "#da3633")
+  :border ("#a40e26" . "#f85149"))
+
+(define-tp-palette done
+  :fg ("#ffffff" . "#ffffff") :bg ("#1a7f37" . "#238636")
+  :border ("#116329" . "#2ea043"))
+
+(define-tp-palette code
+  :fg ("#0550ae" . "#79c0ff") :bg ("#f6f8fa" . "#161b22")
+  :border ("#d0d7de" . "#30363d"))
+
+(define-tp-palette block
+  :fg ("#24292f" . "#c9d1d9") :bg ("#f6f8fa" .  "#161b22")
+  :border ("#d0d7de" .  "#30363d"))
+
+(define-tp-palette quote
+  :fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#161b22")
+  :border ("#d0d7de" . "#30363d"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-tp-palette success
+  :fg ("#1a7f37" . "#3fb950") :bg ("#dafbe1" . "#1b4721")
+  :border ("#4ac26b" . "#238636"))
+
+(define-tp-palette warning
+  :fg ("#9a6700" . "#d29922") :bg ("#fff8c5" . "#3d2e00")
+  :border ("#d4a72c" . "#9e6a03"))
+
+(define-tp-palette error
+  :fg ("#cf222e" . "#f85149") :bg ("#ffebe9" . "#542426")
+  :border ("#ff8182" . "#f85149"))
+
+(define-tp-palette info
+  :fg ("#0969da" . "#58a6ff") :bg ("#ddf4ff" . "#1f3d5c")
+  :border ("#54aeff" .  "#388bfd"))
+
+(define-tp-palette neutral
+  :fg ("#57606a" . "#8b949e") :bg ("#f6f8fa" . "#21262d")
+  :border ("#d0d7de" .  "#30363d"))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-tp-palette rainbow-1
+  :fg ("#e45649" . "#e06c75") :border ("#e45649" . "#e06c75"))
+
+(define-tp-palette rainbow-2
+  :fg ("#986801" . "#d19a66") :border ("#986801" . "#d19a66"))
+
+(define-tp-palette rainbow-3
+  :fg ("#c18401" . "#e5c07b") :border ("#c18401" . "#e5c07b"))
+
+(define-tp-palette rainbow-4
+  :fg ("#50a14f" . "#98c379") :border ("#50a14f" . "#98c379"))
+
+(define-tp-palette rainbow-5
+  :fg ("#0184bc" . "#56b6c2") :border ("#0184bc" . "#56b6c2"))
+
+(define-tp-palette rainbow-6
+  :fg ("#4078f2" . "#61afef") :border ("#4078f2" . "#61afef"))
+
+(define-tp-palette rainbow-7
+  :fg ("#a626a4" . "#c678dd") :border ("#a626a4" . "#c678dd"))
+
+(define-tp-palette rainbow-8
+  :fg ("#bf3989" . "#db61a2") :border ("#bf3989" . "#db61a2"))
 
 ;;; Utilities