From 3be28a7362cfcb7d521498e2b562eee26a3bb5c8 Mon Sep 17 00:00:00 2001 From: Kinneyzhang Date: Wed, 31 Dec 2025 16:02:30 +0800 Subject: [PATCH] update --- tp.el | 24 ++++++++++-------------- 1 file changed, 10 insertions(+), 14 deletions(-) diff --git a/tp.el b/tp.el index 62440c3..f481043 100644 --- a/tp.el +++ b/tp.el @@ -3769,16 +3769,17 @@ e.g.3 (tp-parse-color '(:light \"red\" :dark \"green\"))" ;;; Built-in text properties +(define-tp tp-palette (symbol) + (let ((palette (intern (concat "tp-palette-" + (symbol-name symbol))))) + `(face ( :foreground ,(tp-palette-fg-color palette) + :background ,(tp-palette-bg-color palette) + :box (:color ,(tp-palette-border-color palette)))))) + (define-tp tp-button (plist) - (let* ((palette (plist-get plist :palette)) - (palette (intern (concat "tp-palette-" - (symbol-name palette)))) - (action (plist-get plist :action))) - `( face ( :box ( :color ,(tp-palette-border-color palette) - :line-width (1 . 1) - :style released-button) - :foreground ,(tp-palette-fg-color palette) - :background ,(tp-palette-bg-color palette)) + (let ((palette (plist-get plist :palette)) + (action (plist-get plist :action))) + `( tp-palette ,palette keymap ,(let ((keymap (make-sparse-keymap))) (define-key keymap (kbd "") action) (define-key keymap [mouse-1] action) @@ -3797,10 +3798,5 @@ e.g.3 (tp-parse-color '(:light \"red\" :dark \"green\"))" `(face (:height ,height ,@(when boldp '(:weight bold)))))) -(define-tp tp-palette (symbol) - (let ((plist (symbol-value symbol))) - `(face ( :foreground ,(tp-parse-color (plist-get plist :fg)) - :background ,(tp-parse-color (plist-get plist :bg)))))) - (provide 'tp) ;;; tp.el ends here