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

Improve documentation and add error handling for palette utility functions

Browse Source 
Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-30 16:00:49 +00:00
parent 03aa3d392a
commit 197a564733
2 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tp-palette.el
View File

@ -745,17 +745,33 @@
;;; Utilities ;;; Utilities
(defun tp-palette--get-color (symbol key)
"Get color value for KEY from palette SYMBOL.
SYMBOL should be a symbol bound to a palette plist.
KEY should be one of :fg, :bg, or :border.
Returns nil if SYMBOL is unbound or doesn't contain KEY."
(when (and (symbolp symbol) (boundp symbol))
(let ((plist (symbol-value symbol)))
(when (plistp plist)
(tp-parse-color (plist-get plist key))))))
(defun tp-palette-fg-color (symbol) (defun tp-palette-fg-color (symbol)
"Get the foreground color from palette SYMBOL." "Get the foreground color from palette SYMBOL.
(tp-parse-color (plist-get (symbol-value symbol) :fg))) SYMBOL should be a symbol bound to a palette plist with a :fg key.
Returns nil if SYMBOL is unbound or doesn't contain :fg."
(tp-palette--get-color symbol :fg))
(defun tp-palette-bg-color (symbol) (defun tp-palette-bg-color (symbol)
"Get the background color from palette SYMBOL." "Get the background color from palette SYMBOL.
(tp-parse-color (plist-get (symbol-value symbol) :bg))) SYMBOL should be a symbol bound to a palette plist with a :bg key.
Returns nil if SYMBOL is unbound or doesn't contain :bg."
(tp-palette--get-color symbol :bg))
(defun tp-palette-border-color (symbol) (defun tp-palette-border-color (symbol)
"Get the border color from palette SYMBOL." "Get the border color from palette SYMBOL.
(tp-parse-color (plist-get (symbol-value symbol) :border))) SYMBOL should be a symbol bound to a palette plist with a :border key.
Returns nil if SYMBOL is unbound or doesn't contain :border."
(tp-palette--get-color symbol :border))
(provide 'tp-palette) (provide 'tp-palette)
;;; tp-palette.el ends here ;;; tp-palette.el ends here

4
tp.el
View File

@ -124,7 +124,9 @@ This is a list of (LAYER-NAME . CHANGED-VARS) pairs pending update.")
yank-handler auto-composed evaporate face-alias) yank-handler auto-composed evaporate face-alias)
"List of built-in Emacs text property names. "List of built-in Emacs text property names.
These property names are reserved and cannot be used as layer names in `define-tp'. These property names are reserved and cannot be used as layer names in `define-tp'.
Layer names that conflict with these will cause errors during text property operations.") An error is signaled at macro expansion time (when the `define-tp' form is
evaluated) if a reserved name is used, preventing the layer definition from
being created.")
(defun tp--builtin-text-property-p (name) (defun tp--builtin-text-property-p (name)
"Return non-nil if NAME is a built-in text property name. "Return non-nil if NAME is a built-in text property name.