geekinney/tp
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

modify tp-button

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-30 23:39:14 +08:00
parent 98d554aa1a
commit 8d17b7da12
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tp.el
View File

@ -3728,8 +3728,10 @@ e.g.3 (tp-parse-color '(:light \"red\" :dark \"green\"))"
;;; Built-in text properties
(define-tp tp-button (plist)
(let ((palette (plist-get plist :palette))
(action (plist-get plist :action)))
(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)