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

add define-tp && define-tp-group

Browse Source
This commit is contained in:
Kinneyzhang 2025-12-18 10:47:40 +08:00
parent ff96cf25af
commit 22ee512632
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tp.el
View File

@ -1546,6 +1546,8 @@ The layer is stored in `tp-layer-alist'."
(push (cons ',name ',properties) tp-layer-alist)) (push (cons ',name ',properties) tp-layer-alist))
(assoc ',name tp-layer-alist)))) (assoc ',name tp-layer-alist))))
(defalias 'define-tp 'tp-define-layer)
(defun tp--layer-group-element-format (element) (defun tp--layer-group-element-format (element)
"Determine the format type of ELEMENT. "Determine the format type of ELEMENT.
Returns 'symbol, 'format-1, 'format-2, 'format-3, or nil if invalid." Returns 'symbol, 'format-1, 'format-2, 'format-3, or nil if invalid."
@ -1660,6 +1662,8 @@ and the group itself is stored in `tp-layer-groups'."
(push (cons ',name ',layer-names) tp-layer-groups)) (push (cons ',name ',layer-names) tp-layer-groups))
(assoc ',name tp-layer-groups)))) (assoc ',name tp-layer-groups))))
(defalias 'define-tp-group 'tp-define-layer-group)
(defun tp-layer-props (layer-name) (defun tp-layer-props (layer-name)
"Return properties for layer LAYER-NAME from `tp-layer-alist'. "Return properties for layer LAYER-NAME from `tp-layer-alist'.
Appends 'tp-name property to identify the layer." Appends 'tp-name property to identify the layer."