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

Update documentation to use quoted format for define-tp and define-tp-group

Browse Source 
- Update README.md with new quoted format examples
- Update README_CN.md with new quoted format examples
- Simplify format descriptions (merged Format 2 and 3 into one)

Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com>
This commit is contained in:
copilot-swe-agent[bot] 2025-12-21 02:25:20 +00:00
parent 7302795530
commit 104b5b1d5c
2 changed files with 389 additions and 425 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

408
README.md
View File

@ -195,8 +195,8 @@ Native APIs only have simple set and get. tp.el provides three clear operation s
```elisp
;; Property layer usage example
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer error (face (:foreground "red")))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'error '(face (:foreground "red")))
;; Stack multiple property layers
(tp-push-layer 1 10 'highlight)
@ -239,8 +239,8 @@ Native APIs require manual searching and looping. tp.el provides convenient patt
;; Define a layer with reactive properties
(defvar my-color "red") ;; Reactive variable
(tp-define-layer my-highlight
:props (face (:foreground $my-color)))
(tp-define-layer 'my-highlight
:props '(face (:foreground $my-color)))
;; Apply the layer
(tp-push-layer 1 10 'my-highlight)
@ -249,8 +249,8 @@ Native APIs require manual searching and looping. tp.el provides convenient patt
(setq my-color "blue") ;; All text with my-highlight layer updates to blue!
;; Advanced example with :data, :compute, and :watch
(tp-define-layer full-name-layer
:props (help-echo $full-name face (:foreground $name-color))
(tp-define-layer 'full-name-layer
:props '(help-echo $full-name face (:foreground $name-color))
:data ((first-name . "John") (last-name . "Doe")) ;; With initial values
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((first-name (lambda (new old layer)
@ -435,8 +435,8 @@ LAYER-NAME can be a symbol representing a layer defined by `tp-define-layer` or
;; => (1 . 10)
;; Use a defined layer name
(tp-define-layer warning-style
(face (:foreground "orange" :weight bold)))
(tp-define-layer 'warning-style
'(face (:foreground "orange" :weight bold)))
(with-temp-buffer
(insert "Hello World")
(tp-set 1 10 'warning-style))
@ -460,8 +460,8 @@ LAYER-NAME can be a symbol representing a layer defined by `tp-define-layer` or
;; => #("Hello" 0 5 (face bold mouse-face highlight))
;; Use a defined layer name on entire string
(tp-define-layer my-style
:props (face (:foreground $my-color))
(tp-define-layer 'my-style
:props '(face (:foreground $my-color))
:data ((my-color . "blue")))
(tp-set " " 'my-style)
;; => #(" " 0 1 (tp-name my-style face (:foreground "blue") ...))
@ -497,8 +497,8 @@ LAYER-NAME can be a symbol representing a layer defined by `tp-define-layer` or
;; => #("Hello" 0 5 (face italic))
;; Use a defined layer name
(tp-define-layer error-style
(face (:foreground "red" :weight bold)))
(tp-define-layer 'error-style
'(face (:foreground "red" :weight bold)))
(with-temp-buffer
(insert "Hello World")
(tp-reset 1 10 'error-style))
@ -545,8 +545,8 @@ LAYER-NAME can be a symbol representing a layer defined by `tp-define-layer` or
;; => (shadow bold)
;; Use a defined layer name
(tp-define-layer highlight-style
(face (:background "yellow")))
(tp-define-layer 'highlight-style
'(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-set 1 10 '(face bold))
@ -850,8 +850,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => #("Hello world" 0 5 (face bold) 6 11 (face bold))
;; Use a defined layer name
(tp-define-layer todo-style
(face (:foreground "orange" :weight bold)))
(tp-define-layer 'todo-style
'(face (:foreground "orange" :weight bold)))
(with-temp-buffer
(insert "TODO: fix this. TODO: also this.")
(tp-match-set "TODO" 'todo-style))
@ -891,8 +891,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => ((1 . 5) (12 . 17))
;; Use a defined layer name
(tp-define-layer alert-style
(face (:background "red" :foreground "white")))
(tp-define-layer 'alert-style
'(face (:background "red" :foreground "white")))
(with-temp-buffer
(insert "TODO: fix this")
(tp-match-reset "TODO" 'alert-style))
@ -932,8 +932,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => ((1 . 5) (12 . 17))
;; Use a defined layer name
(tp-define-layer underline-style
(face (:underline (:color "blue" :style wave))))
(tp-define-layer 'underline-style
'(face (:underline (:color "blue" :style wave))))
(with-temp-buffer
(insert "TODO: fix this")
(tp-match-add "TODO" 'underline-style))
@ -974,8 +974,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => #("abc 123 XYZ" 4 7 (face bold) 8 11 (face bold))
;; Use a defined layer name
(tp-define-layer number-style
(face (:foreground "green")))
(tp-define-layer 'number-style
'(face (:foreground "green")))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-set "[0-9]+" 'number-style))
@ -1016,8 +1016,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => (face italic)
;; Use a defined layer name
(tp-define-layer code-number
(face (:foreground "cyan")))
(tp-define-layer 'code-number
'(face (:foreground "cyan")))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-reset "[0-9]+" 'code-number))
@ -1058,8 +1058,8 @@ OBJECT is a buffer or string; nil means current buffer.
;; => (face italic help-echo "number")
;; Use a defined layer name
(tp-define-layer bold-underline
(face (:weight bold :underline t)))
(tp-define-layer 'bold-underline
'(face (:weight bold :underline t)))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-add "[0-9]+" 'bold-underline))
@ -1319,33 +1319,26 @@ The **property layer system** is tp.el's innovative feature that allows stacking
Define a single text property layer. Supports multiple formats:
**Format 1 - Direct plist (legacy, no reactive features):**
**Format 1 - Direct plist (no reactive features):**
```elisp
(tp-define-layer layer-name
(face (:background "cyan") line-prefix ">>"))
(tp-define-layer 'layer-name
'(face (:background "cyan") line-prefix ">>"))
```
**Format 2 - With :props keyword:**
**Format 2 - With :props, :data, :watch, and/or :compute (Vue 3 style reactivity):**
```elisp
(tp-define-layer layer-name
:props (face (:background "cyan") line-prefix ">>"))
```
**Format 3 - With :props, :data, :watch, and/or :compute (Vue 3 style reactivity):**
```elisp
(tp-define-layer layer-name
(tp-define-layer 'layer-name
;; props: $-prefixed symbols are reactive variables; auto-defined if not bound
:props (face (:foreground $my-color) help-echo $full-name)
:props '(face (:foreground $my-color) help-echo $full-name)
;; data: additional reactive variables not used in props; can include initial values
:data ((first-name . "John") (last-name . "Doe"))
:data '((first-name . "John") (last-name . "Doe"))
;; compute: list of (VAR-NAME FUNCTION) - compute reactive variable values
:compute ((full-name (lambda () (concat first-name " " last-name))))
:compute '((full-name (lambda () (concat first-name " " last-name))))
;; watch: list of (VAR-NAME CALLBACK) - side effects when vars change
:watch ((my-color (lambda (new old layer)
(message "Color changed from %s to %s" old new)))))
:watch '((my-color (lambda (new old layer)
(message "Color changed from %s to %s" old new)))))
```
**Reactive Variables:**
@ -1366,25 +1359,17 @@ If a layer with the same name already exists, it will be overwritten with the ne
;; Define individual layers using Format 1 (direct plist)
(progn
(setq tp-layer-alist nil) ; Reset for clean example
(tp-define-layer highlight
(face (:background "yellow" :foreground "black")))
(tp-define-layer 'highlight
'(face (:background "yellow" :foreground "black")))
(tp-layer-props 'highlight))
;; => (face (:background "yellow" :foreground "black") tp-name highlight)
;; Define a layer using Format 2 (:props keyword)
(progn
(tp-define-layer error
:props (face (:background "red" :foreground "white")
help-echo "Error!"))
(tp-layer-props 'error))
;; => (face (:background "red" :foreground "white") help-echo "Error!" tp-name error)
;; Define a reactive layer (Format 3)
;; Define a reactive layer
(progn
(tp-layer-reset)
(defvar theme-color "blue")
(tp-define-layer themed-layer
:props (face (:foreground $theme-color)))
(tp-define-layer 'themed-layer
:props '(face (:foreground $theme-color)))
;; Apply the layer
(with-temp-buffer
(insert "Hello World")
@ -1396,8 +1381,8 @@ If a layer with the same name already exists, it will be overwritten with the ne
;; Redefine an existing layer (overwrites the old definition)
(progn
(tp-define-layer test-layer (face bold))
(tp-define-layer test-layer (face italic)) ; Overwrites
(tp-define-layer 'test-layer '(face bold))
(tp-define-layer 'test-layer '(face italic)) ; Overwrites
(tp-layer-props 'test-layer))
;; => (face italic tp-name test-layer)
```
@ -1406,57 +1391,57 @@ If a layer with the same name already exists, it will be overwritten with the ne
#### `tp-define-layer-group` - Define Layer Group
Define a group of multiple layers. Supports four formats for each element:
Define a group of multiple layers. Supports multiple formats for each element:
**Format 1 - Anonymous layers (named as GROUP-NAME-0, GROUP-NAME-1, etc.):**
```elisp
(tp-define-layer-group tp-test-moons
(display "🌑" face (:height 1.0))
(display "🌘" face (:height 1.5))
(display "🌗" face (:height 2.0)))
(tp-define-layer-group 'tp-test-moons
'(display "🌑" face (:height 1.0))
'(display "🌘" face (:height 1.5))
'(display "🌗" face (:height 2.0)))
;; Creates layers: tp-test-moons-0, tp-test-moons-1, tp-test-moons-2
```
**Format 2 - Named layers with cons-cell (named as GROUP-NAME-suffix):**
```elisp
(tp-define-layer-group tp-test-moons
("新月" . (display "🌑" face (:height 1.0)))
("残月" . (display "🌘" face (:height 1.5)))
("下弦月" . (display "🌗" face (:height 2.0))))
(tp-define-layer-group 'tp-test-moons
'("新月" . (display "🌑" face (:height 1.0)))
'("残月" . (display "🌘" face (:height 1.5)))
'("下弦月" . (display "🌗" face (:height 2.0))))
;; Creates layers: tp-test-moons-新月, tp-test-moons-残月, tp-test-moons-下弦月
```
**Format 3 - Named layers with :props keyword (named as GROUP-NAME-suffix):**
```elisp
(tp-define-layer-group tp-test-moons
("新月" :props (display "🌑" face (:height 1.0)))
("残月" :props (display "🌘" face (:height 1.5)))
("下弦月" :props (display "🌗" face (:height 2.0))))
(tp-define-layer-group 'tp-test-moons
'("新月" :props (display "🌑" face (:height 1.0)))
'("残月" :props (display "🌘" face (:height 1.5)))
'("下弦月" :props (display "🌗" face (:height 2.0))))
;; Creates layers: tp-test-moons-新月, tp-test-moons-残月, tp-test-moons-下弦月
```
**Format 4 - Named layers with :props, :data, :watch, and/or :compute (Vue 3 style reactivity):**
```elisp
(tp-define-layer-group reactive-group
("reactive" :props (face (:foreground $my-color) help-echo $full-name)
:data ((first-name . "John") (last-name . "Doe"))
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((my-color (lambda (new old layer) (message "Changed!"))))))
(tp-define-layer-group 'reactive-group
'("reactive" :props (face (:foreground $my-color) help-echo $full-name)
:data ((first-name . "John") (last-name . "Doe"))
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((my-color (lambda (new old layer) (message "Changed!"))))))
;; Creates layer: reactive-group-reactive with full reactive support
```
You can also reference already-defined layers in a group:
```elisp
(tp-define-layer existing-layer (face bold))
(tp-define-layer-group my-group
existing-layer ; Reference existing layer
(face (:background "red") line-prefix ">>") ; Anonymous layer
("named" . (face italic))) ; Named layer
(tp-define-layer 'existing-layer '(face bold))
(tp-define-layer-group 'my-group
'existing-layer ; Reference existing layer
'(face (:background "red") line-prefix ">>") ; Anonymous layer
'("named" . (face italic))) ; Named layer
```
If a layer group with the same name already exists, it will be overwritten.
@ -1469,16 +1454,13 @@ The first layer in the definition is the top layer (visible by default).
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer highlight
(face (:background "yellow" :foreground "black")))
(tp-define-layer error
(face (:background "red" :foreground "white")))
(tp-define-layer info
(face (:background "blue" :foreground "white")))
(tp-define-layer-group status-colors
highlight
error
info)
(tp-define-layer 'highlight
'(face (:background "yellow" :foreground "black")))
(tp-define-layer 'error
'(face (:background "red" :foreground "white")))
(tp-define-layer 'info
'(face (:background "blue" :foreground "white")))
(tp-define-layer-group 'status-colors 'highlight 'error 'info)
(length (tp-group-props 'status-colors)))
;; => 3
@ -1486,11 +1468,11 @@ The first layer in the definition is the top layer (visible by default).
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer-group moon-phases
("new" . (display "🌑"))
("waxing-crescent" . (display "🌒"))
("first-quarter" . (display "🌓"))
("full" . (display "🌕")))
(tp-define-layer-group 'moon-phases
'("new" . (display "🌑"))
'("waxing-crescent" . (display "🌒"))
'("first-quarter" . (display "🌓"))
'("full" . (display "🌕")))
(tp-layer-props 'moon-phases-full))
;; => (display "🌕" tp-name moon-phases-full)
```
@ -1512,7 +1494,7 @@ Get properties for a layer or all layers in a group.
;; Get layer properties
(progn
(setq tp-layer-alist nil)
(tp-define-layer my-layer (face bold help-echo "tip"))
(tp-define-layer 'my-layer '(face bold help-echo "tip"))
(tp-layer-props 'my-layer))
;; => (face bold help-echo "tip" tp-name my-layer)
@ -1520,9 +1502,9 @@ Get properties for a layer or all layers in a group.
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer-group my-group layer1 layer2)
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer-group 'my-group 'layer1 'layer2)
(length (tp-group-props 'my-group)))
;; => 2
```
@ -1544,7 +1526,7 @@ Remove layer or group definition.
;; Undefine a layer
(progn
(setq tp-layer-alist nil)
(tp-define-layer temp-layer (face bold))
(tp-define-layer 'temp-layer '(face bold))
(tp-undefine-layer 'temp-layer)
(tp-layer-props 'temp-layer))
;; => nil
@ -1553,8 +1535,8 @@ Remove layer or group definition.
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer l1 (face bold))
(tp-define-layer my-group l1)
(tp-define-layer 'l1 '(face bold))
(tp-define-layer-group 'my-group 'l1)
(tp-undefine-group 'my-group)
(assoc 'my-group tp-layer-groups))
;; => nil
@ -1574,7 +1556,7 @@ Clear all layer and group definitions, including all reactive dependencies and w
```elisp
(progn
(tp-define-layer test-layer (face bold))
(tp-define-layer 'test-layer '(face bold))
(tp-layer-reset)
(list tp-layer-alist tp-layer-groups))
;; => (nil nil)
@ -1598,8 +1580,8 @@ This is useful when you want to remove all reactive bindings but keep the layer
;; Define a reactive layer
(progn
(defvar my-reactive-color "red")
(tp-define-layer reactive-layer
:props (face (:foreground $my-reactive-color)))
(tp-define-layer 'reactive-layer
:props '(face (:foreground $my-reactive-color)))
;; Clear reactive bindings only
(tp-reactive-reset)
;; Layer still exists, but changing my-reactive-color no longer updates it
@ -1633,8 +1615,8 @@ Set layer(s) at a specific index position in the layer stack.
;; Put base layer at top
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1644,8 +1626,8 @@ Set layer(s) at a specific index position in the layer stack.
;; Put highlight at index 1 (below top)
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1656,8 +1638,8 @@ Set layer(s) at a specific index position in the layer stack.
;; Put layer at bottom
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer info (face (:foreground "blue")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'info '(face (:foreground "blue")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1686,8 +1668,8 @@ Push a layer to the top of the stack (equivalent to `tp-put-layer ... 0`).
;; Push base layer first
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1697,8 +1679,8 @@ Push a layer to the top of the stack (equivalent to `tp-put-layer ... 0`).
;; Push highlight on top (now visible)
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1729,8 +1711,8 @@ Delete a layer from anywhere in the stack by name or index.
;; Remove by name
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer base (face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'base '(face default))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1742,8 +1724,8 @@ Delete a layer from anywhere in the stack by name or index.
;; Remove top layer (idx=0)
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1755,8 +1737,8 @@ Delete a layer from anywhere in the stack by name or index.
;; Remove bottom layer
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1785,8 +1767,8 @@ Remove the top layer (equivalent to `tp-delete-layer ... 0`).
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1825,9 +1807,9 @@ This is the generic layer movement function used internally by `tp-raise-layer`,
;; Move layer at index 2 to index 0 (top)
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer layer3 (face underline))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer 'layer3 '(face underline))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1841,8 +1823,8 @@ This is the generic layer movement function used internally by `tp-raise-layer`,
;; Move layer by name to bottom
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1855,8 +1837,8 @@ This is the generic layer movement function used internally by `tp-raise-layer`,
;; Move on string
(let ((str (copy-sequence "Hello")))
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-push-layer str 'layer1)
(tp-push-layer str 'layer2)
;; layer2 is on top
@ -1885,9 +1867,9 @@ Raise a layer by N positions. Positive N moves toward top, negative moves toward
;; Move layer1 up by 2 positions (to top)
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer layer3 (face underline))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer 'layer3 '(face underline))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1901,8 +1883,8 @@ Raise a layer by N positions. Positive N moves toward top, negative moves toward
;; Move layer at idx 0 down by 1 position
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1933,8 +1915,8 @@ Rotate layers - top goes to bottom, next becomes visible.
;; Stack: highlight (top) -> base (bottom)
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1966,8 +1948,8 @@ Move a specific layer to the top (make it visible).
;; Make 'base the top layer
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1998,8 +1980,8 @@ Swap positions of two layers.
;; Switch layer1 and layer2
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2033,8 +2015,8 @@ Merge specified layers into a new layer. Earlier layers in the list take precede
;; Merge layer1 and layer2 into merged-layer
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2046,8 +2028,8 @@ Merge specified layers into a new layer. Earlier layers in the list take precede
;; Merge by index
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2077,8 +2059,8 @@ Flatten all layers into a single layer with the given name.
;; Flatten all layers into 'flat-layer
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2090,7 +2072,7 @@ Flatten all layers into a single layer with the given name.
;; Flatten with nil name (unnamed layer)
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer 'layer1 '(face bold))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2116,8 +2098,8 @@ Get list of all layer names in region.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer base (face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'base '(face default))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -2141,8 +2123,8 @@ Count layers in region.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2166,7 +2148,7 @@ Check if layer exists in region.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer 'layer1 '(face bold))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2190,8 +2172,8 @@ Get name of the top (visible) layer.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2224,8 +2206,8 @@ Add or merge properties to specific layers in a region or string.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face (:foreground "red")))
(tp-define-layer layer2 (face (:foreground "blue")))
(tp-define-layer 'layer1 '(face (:foreground "red")))
(tp-define-layer 'layer2 '(face (:foreground "blue")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2258,8 +2240,8 @@ Add or merge properties to all layers in a region or string.
```elisp
(let ((str (copy-sequence "Hello World")))
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-push-layer 0 5 'layer1 str)
(tp-push-layer 0 5 'layer2 str)
;; Add underline to all layers
@ -2338,7 +2320,7 @@ Return layer properties for LAYER-NAME in region from START to END.
```elisp
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World Test")
(tp-push-layer 1 6 'highlight)
@ -2409,13 +2391,13 @@ Return t if OBJECT has no text properties.
(progn
(tp-layer-reset)
;; Define layers for different highlighting purposes
(tp-define-layer code-base
(face font-lock-keyword-face))
(tp-define-layer code-error
(face (:underline (:color "red" :style wave))
(tp-define-layer 'code-base
'(face font-lock-keyword-face))
(tp-define-layer 'code-error
'(face (:underline (:color "red" :style wave))
help-echo "Syntax error"))
(tp-define-layer code-debug
(face (:background "dark blue")))
(tp-define-layer 'code-debug
'(face (:background "dark blue")))
(with-temp-buffer
(insert (make-string 100 ?x)) ; Create 100-char buffer
;; Apply base highlighting
@ -2440,10 +2422,10 @@ Return t if OBJECT has no text properties.
(progn
(tp-layer-reset)
;; Define status layers as a group
(tp-define-layer status-todo (face (:foreground "gray")))
(tp-define-layer status-progress (face (:foreground "yellow")))
(tp-define-layer status-done (face (:foreground "green")))
(tp-define-layer-group task-status status-todo status-progress status-done)
(tp-define-layer 'status-todo '(face (:foreground "gray")))
(tp-define-layer 'status-progress '(face (:foreground "yellow")))
(tp-define-layer 'status-done '(face (:foreground "green")))
(tp-define-layer-group 'task-status 'status-todo 'status-progress 'status-done)
;; Check group is defined
(length (tp-group-props 'task-status)))
;; => 3
@ -2461,8 +2443,8 @@ Return t if OBJECT has no text properties.
;; Define temporary highlight layer
(progn
(tp-layer-reset)
(tp-define-layer temp-highlight
(face (:background "yellow")))
(tp-define-layer 'temp-highlight
'(face (:background "yellow")))
(tp-layer-props 'temp-highlight))
;; => (face (:background "yellow") tp-name temp-highlight)
@ -2496,8 +2478,8 @@ Traditional text property manipulation requires manually updating all affected t
;; Reactive approach (automatic updates)
(defvar my-color "red")
(tp-define-layer my-layer
:props (face (:foreground $my-color)))
(tp-define-layer 'my-layer
:props '(face (:foreground $my-color)))
(tp-push-layer 1 10 'my-layer)
;; Just change the variable - all text updates automatically!
(setq my-color "blue") ; All regions with my-layer update instantly!
@ -2518,8 +2500,8 @@ Traditional text property manipulation requires manually updating all affected t
```elisp
(defvar highlight-color "yellow")
(tp-define-layer my-highlight
:props (face (:background $highlight-color)))
(tp-define-layer 'my-highlight
:props '(face (:background $highlight-color)))
(with-temp-buffer
(insert "Hello World")
@ -2537,8 +2519,8 @@ Traditional text property manipulation requires manually updating all affected t
(defvar fg-color "white")
(defvar bg-color "black")
(tp-define-layer themed-text
:props (face (:foreground $fg-color :background $bg-color)))
(tp-define-layer 'themed-text
:props '(face (:foreground $fg-color :background $bg-color)))
;; Changing either variable updates the text
(setq fg-color "yellow") ; Updates foreground
@ -2550,10 +2532,10 @@ Traditional text property manipulation requires manually updating all affected t
The `:data` keyword defines additional reactive variables that aren't directly used in `:props` but can trigger computed value updates or be watched:
```elisp
(tp-define-layer user-info
:props (help-echo $full-name)
:data (first-name last-name) ; Not used directly in props
:compute ((full-name (lambda () (concat first-name " " last-name)))))
(tp-define-layer 'user-info
:props '(help-echo $full-name)
:data '(first-name last-name) ; Not used directly in props
:compute '((full-name (lambda () (concat first-name " " last-name)))))
```
**With Initial Values:**
@ -2561,10 +2543,10 @@ The `:data` keyword defines additional reactive variables that aren't directly u
You can specify initial values using cons cells:
```elisp
(tp-define-layer user-info
:props (help-echo $full-name)
:data ((first-name . "John") (last-name . "Doe"))
:compute ((full-name (lambda () (concat first-name " " last-name)))))
(tp-define-layer 'user-info
:props '(help-echo $full-name)
:data '((first-name . "John") (last-name . "Doe"))
:compute '((full-name (lambda () (concat first-name " " last-name)))))
;; first-name is now "John", last-name is now "Doe"
```
@ -2574,14 +2556,14 @@ You can specify initial values using cons cells:
The `:compute` keyword creates derived values that are automatically recalculated when their dependencies change:
```elisp
(tp-define-layer progress-display
:props (display $progress-text face (:foreground $progress-color))
:data ((current . 0) (total . 100))
:compute ((progress-text (lambda () (format "%d%%" (/ (* current 100) total))))
(progress-color (lambda ()
(cond ((< current 30) "red")
((< current 70) "yellow")
(t "green"))))))
(tp-define-layer 'progress-display
:props '(display $progress-text face (:foreground $progress-color))
:data '((current . 0) (total . 100))
:compute '((progress-text (lambda () (format "%d%%" (/ (* current 100) total))))
(progress-color (lambda ()
(cond ((< current 30) "red")
((< current 70) "yellow")
(t "green"))))))
;; Update progress
(setq current 50)
@ -2593,8 +2575,8 @@ The `:compute` keyword creates derived values that are automatically recalculate
The `:watch` keyword lets you execute callbacks when reactive variables change:
```elisp
(tp-define-layer monitored-layer
:props (face (:foreground $status-color))
(tp-define-layer 'monitored-layer
:props '(face (:foreground $status-color))
:watch ((status-color
(lambda (new-val old-val layer-name)
(message "Layer %s: color changed from %s to %s"
@ -2626,8 +2608,8 @@ You can use reactive variables even without `tp-define-layer`. When you use `$`-
All text property APIs (`tp-set`, `tp-match-set`, `tp-regexp-set`, etc.) now accept layer names directly:
```elisp
(tp-define-layer warning-style
:props (face (:foreground "orange" :weight bold)))
(tp-define-layer 'warning-style
:props '(face (:foreground "orange" :weight bold)))
;; Use layer name instead of plist
(tp-set 1 10 'warning-style)
@ -2639,16 +2621,16 @@ All text property APIs (`tp-set`, `tp-match-set`, `tp-regexp-set`, etc.) now acc
### Reactive Layer Groups
Layer groups can also use reactive features in Format 4:
Layer groups can also use reactive features:
```elisp
(tp-define-layer-group status-indicators
("success" :props (face (:foreground $success-color))
:data ((success-color . "green")))
("warning" :props (face (:foreground $warning-color))
:data ((warning-color . "orange")))
("error" :props (face (:foreground $error-color))
:data ((error-color . "red"))))
(tp-define-layer-group 'status-indicators
'("success" :props (face (:foreground $success-color))
:data ((success-color . "green")))
'("warning" :props (face (:foreground $warning-color))
:data ((warning-color . "orange")))
'("error" :props (face (:foreground $error-color))
:data ((error-color . "red"))))
```
### Resetting Reactive State
@ -2670,14 +2652,14 @@ To clear all reactive dependencies and watchers:
(defvar theme-accent "cyan")
;; Define theme-aware layers
(tp-define-layer code-keyword
:props (face (:foreground $theme-accent :weight bold)))
(tp-define-layer 'code-keyword
:props '(face (:foreground $theme-accent :weight bold)))
(tp-define-layer code-comment
:props (face (:foreground "gray" :slant italic)))
(tp-define-layer 'code-comment
:props '(face (:foreground "gray" :slant italic)))
(tp-define-layer code-string
:props (face (:foreground "green")))
(tp-define-layer 'code-string
:props '(face (:foreground "green")))
;; Apply layers to code
(tp-match-set '("defun" "defvar" "let" "if" "when") 'code-keyword)

406
README_CN.md
View File

@ -194,8 +194,8 @@
```elisp
;; 属性层使用示例
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer error (face (:foreground "red")))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'error '(face (:foreground "red")))
;; 堆叠多个属性层
(tp-push-layer 1 10 'highlight)
@ -238,8 +238,8 @@
;; 定义一个带响应式属性的层
(defvar my-color "red") ;; 响应式变量
(tp-define-layer my-highlight
:props (face (:foreground $my-color)))
(tp-define-layer 'my-highlight
:props '(face (:foreground $my-color)))
;; 应用该层
(tp-push-layer 1 10 'my-highlight)
@ -248,11 +248,11 @@
(setq my-color "blue") ;; 所有 my-highlight 层的文本自动变成蓝色！
;; 高级示例：使用 :data、:compute 和 :watch
(tp-define-layer full-name-layer
:props (help-echo $full-name face (:foreground $name-color))
:data ((first-name . "John") (last-name . "Doe")) ;; 带初始值
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((first-name (lambda (new old layer)
(tp-define-layer 'full-name-layer
:props '(help-echo $full-name face (:foreground $name-color))
:data '((first-name . "John") (last-name . "Doe")) ;; 带初始值
:compute '((full-name (lambda () (concat first-name " " last-name))))
:watch '((first-name (lambda (new old layer)
(message "名字从 %s 改为 %s" old new)))))
```
@ -451,9 +451,9 @@ LAYER-NAME 可以是通过 `tp-define-layer` 定义的层名称或通过 `tp-def
;; => #("Hello" 0 5 (face bold mouse-face highlight))
;; 在整个字符串上使用已定义的层名称
(tp-define-layer my-style
:props (face (:foreground $my-color))
:data ((my-color . "blue")))
(tp-define-layer 'my-style
:props '(face (:foreground $my-color))
:data '((my-color . "blue")))
(tp-set " " 'my-style)
;; => #(" " 0 1 (tp-name my-style face (:foreground "blue") ...))
```
@ -488,8 +488,8 @@ LAYER-NAME 可以是通过 `tp-define-layer` 定义的层名称或通过 `tp-def
;; => #("Hello" 0 5 (face italic))
;; 使用已定义的层名称
(tp-define-layer error-style
(face (:foreground "red" :weight bold)))
(tp-define-layer 'error-style
'(face (:foreground "red" :weight bold)))
(with-temp-buffer
(insert "Hello World")
(tp-reset 1 10 'error-style))
@ -536,8 +536,8 @@ LAYER-NAME 可以是通过 `tp-define-layer` 定义的层名称或通过 `tp-def
;; => (shadow bold)
;; 使用已定义的层名称
(tp-define-layer highlight-style
(face (:background "yellow")))
(tp-define-layer 'highlight-style
'(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-set 1 10 '(face bold))
@ -841,8 +841,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => #("Hello world" 0 5 (face bold) 6 11 (face bold))
;; 使用已定义的层名称
(tp-define-layer todo-style
(face (:foreground "orange" :weight bold)))
(tp-define-layer 'todo-style
'(face (:foreground "orange" :weight bold)))
(with-temp-buffer
(insert "TODO: fix this. TODO: also this.")
(tp-match-set "TODO" 'todo-style))
@ -882,8 +882,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => ((1 . 5) (12 . 17))
;; 使用已定义的层名称
(tp-define-layer alert-style
(face (:background "red" :foreground "white")))
(tp-define-layer 'alert-style
'(face (:background "red" :foreground "white")))
(with-temp-buffer
(insert "TODO: fix this")
(tp-match-reset "TODO" 'alert-style))
@ -923,8 +923,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => ((1 . 5) (12 . 17))
;; 使用已定义的层名称
(tp-define-layer underline-style
(face (:underline (:color "blue" :style wave))))
(tp-define-layer 'underline-style
'(face (:underline (:color "blue" :style wave))))
(with-temp-buffer
(insert "TODO: fix this")
(tp-match-add "TODO" 'underline-style))
@ -965,8 +965,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => #("abc 123 XYZ" 4 7 (face bold) 8 11 (face bold))
;; 使用已定义的层名称
(tp-define-layer number-style
(face (:foreground "green")))
(tp-define-layer 'number-style
'(face (:foreground "green")))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-set "[0-9]+" 'number-style))
@ -1007,8 +1007,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => (face italic)
;; 使用已定义的层名称
(tp-define-layer code-number
(face (:foreground "cyan")))
(tp-define-layer 'code-number
'(face (:foreground "cyan")))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-reset "[0-9]+" 'code-number))
@ -1049,8 +1049,8 @@ OBJECT 是缓冲区或字符串；nil 表示当前缓冲区。
;; => (face italic help-echo "number")
;; 使用已定义的层名称
(tp-define-layer bold-underline
(face (:weight bold :underline t)))
(tp-define-layer 'bold-underline
'(face (:weight bold :underline t)))
(with-temp-buffer
(insert "abc 123 def 456")
(tp-regexp-add "[0-9]+" 'bold-underline))
@ -1308,33 +1308,26 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
定义单个文本属性层。支持多种格式：
**格式一 - 直接定义文本属性（传统方式，不支持响应式特性）：**
**格式一 - 直接定义文本属性（不支持响应式特性）：**
```elisp
(tp-define-layer layer-name
(face (:background "cyan") line-prefix ">>"))
(tp-define-layer 'layer-name
'(face (:background "cyan") line-prefix ">>"))
```
**格式二 - 使用 :props 关键字：**
**格式二 - 使用 :props、:data、:watch 和/或 :compute（Vue 3 风格响应式）：**
```elisp
(tp-define-layer layer-name
:props (face (:background "cyan") line-prefix ">>"))
```
**格式三 - 使用 :props、:data、:watch 和/或 :compute（Vue 3 风格响应式）：**
```elisp
(tp-define-layer layer-name
(tp-define-layer 'layer-name
;; props: $前缀的符号是响应式变量；如果未绑定会自动定义
:props (face (:foreground $my-color) help-echo $full-name)
:props '(face (:foreground $my-color) help-echo $full-name)
;; data: 不在 props 中使用的额外响应式变量；可以包含初始值
:data ((first-name . "John") (last-name . "Doe"))
:data '((first-name . "John") (last-name . "Doe"))
;; compute: (变量名 函数) 列表 - 计算响应式变量的值
:compute ((full-name (lambda () (concat first-name " " last-name))))
:compute '((full-name (lambda () (concat first-name " " last-name))))
;; watch: (变量名 回调函数) 列表 - 变量变化时的副作用
:watch ((my-color (lambda (new old layer)
(message "颜色从 %s 改为 %s" old new)))))
:watch '((my-color (lambda (new old layer)
(message "颜色从 %s 改为 %s" old new)))))
```
**响应式变量：**
@ -1355,25 +1348,17 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 使用格式一（直接 plist）定义单个属性层
(progn
(setq tp-layer-alist nil) ; 重置以确保干净的示例
(tp-define-layer highlight
(face (:background "yellow" :foreground "black")))
(tp-define-layer 'highlight
'(face (:background "yellow" :foreground "black")))
(tp-layer-props 'highlight))
;; => (face (:background "yellow" :foreground "black") tp-name highlight)
;; 使用格式二（:props 关键字）定义属性层
(progn
(tp-define-layer error
:props (face (:background "red" :foreground "white")
help-echo "错误!"))
(tp-layer-props 'error))
;; => (face (:background "red" :foreground "white") help-echo "错误!" tp-name error)
;; 定义响应式属性层（格式三）
;; 定义响应式属性层
(progn
(tp-layer-reset)
(defvar theme-color "blue")
(tp-define-layer themed-layer
:props (face (:foreground $theme-color)))
(tp-define-layer 'themed-layer
:props '(face (:foreground $theme-color)))
;; 应用该层
(with-temp-buffer
(insert "Hello World")
@ -1385,8 +1370,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 重新定义已存在的属性层（覆盖旧定义）
(progn
(tp-define-layer test-layer (face bold))
(tp-define-layer test-layer (face italic)) ; 覆盖
(tp-define-layer 'test-layer '(face bold))
(tp-define-layer 'test-layer '(face italic)) ; 覆盖
(tp-layer-props 'test-layer))
;; => (face italic tp-name test-layer)
```
@ -1395,57 +1380,57 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
#### `tp-define-layer-group` - 定义属性层组
定义包含多个属性层的层组。每个元素支持四种格式：
定义包含多个属性层的层组。每个元素支持多种格式：
**格式一 - 匿名层（命名为 GROUP-NAME-0, GROUP-NAME-1 等）：**
```elisp
(tp-define-layer-group tp-test-moons
(display "🌑" face (:height 1.0))
(display "🌘" face (:height 1.5))
(display "🌗" face (:height 2.0)))
(tp-define-layer-group 'tp-test-moons
'(display "🌑" face (:height 1.0))
'(display "🌘" face (:height 1.5))
'(display "🌗" face (:height 2.0)))
;; 创建层: tp-test-moons-0, tp-test-moons-1, tp-test-moons-2
```
**格式二 - 使用 cons-cell 命名层（命名为 GROUP-NAME-suffix）：**
```elisp
(tp-define-layer-group tp-test-moons
("新月" . (display "🌑" face (:height 1.0)))
("残月" . (display "🌘" face (:height 1.5)))
("下弦月" . (display "🌗" face (:height 2.0))))
(tp-define-layer-group 'tp-test-moons
'("新月" . (display "🌑" face (:height 1.0)))
'("残月" . (display "🌘" face (:height 1.5)))
'("下弦月" . (display "🌗" face (:height 2.0))))
;; 创建层: tp-test-moons-新月, tp-test-moons-残月, tp-test-moons-下弦月
```
**格式三 - 使用 :props 关键字命名层（命名为 GROUP-NAME-suffix）：**
```elisp
(tp-define-layer-group tp-test-moons
("新月" :props (display "🌑" face (:height 1.0)))
("残月" :props (display "🌘" face (:height 1.5)))
("下弦月" :props (display "🌗" face (:height 2.0))))
(tp-define-layer-group 'tp-test-moons
'("新月" :props (display "🌑" face (:height 1.0)))
'("残月" :props (display "🌘" face (:height 1.5)))
'("下弦月" :props (display "🌗" face (:height 2.0))))
;; 创建层: tp-test-moons-新月, tp-test-moons-残月, tp-test-moons-下弦月
```
**格式四 - 使用 :props、:data、:watch 和/或 :compute 的命名层（Vue 3 风格响应式）：**
```elisp
(tp-define-layer-group reactive-group
("reactive" :props (face (:foreground $my-color) help-echo $full-name)
:data ((first-name . "John") (last-name . "Doe"))
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((my-color (lambda (new old layer) (message "改变了！"))))))
(tp-define-layer-group 'reactive-group
'("reactive" :props (face (:foreground $my-color) help-echo $full-name)
:data ((first-name . "John") (last-name . "Doe"))
:compute ((full-name (lambda () (concat first-name " " last-name))))
:watch ((my-color (lambda (new old layer) (message "改变了！"))))))
;; 创建层: reactive-group-reactive，具有完整的响应式支持
```
你也可以在层组中引用已定义的层：
```elisp
(tp-define-layer existing-layer (face bold))
(tp-define-layer-group my-group
existing-layer ; 引用已存在的属性层
(face (:background "red") line-prefix ">>") ; 匿名属性层
("named" . (face italic))) ; 命名属性层
(tp-define-layer 'existing-layer '(face bold))
(tp-define-layer-group 'my-group
'existing-layer ; 引用已存在的属性层
'(face (:background "red") line-prefix ">>") ; 匿名属性层
'("named" . (face italic))) ; 命名属性层
```
如果同名的层组已存在，新定义将覆盖旧定义。
@ -1458,16 +1443,13 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer highlight
(face (:background "yellow" :foreground "black")))
(tp-define-layer error
(face (:background "red" :foreground "white")))
(tp-define-layer info
(face (:background "blue" :foreground "white")))
(tp-define-layer-group status-colors
highlight
error
info)
(tp-define-layer 'highlight
'(face (:background "yellow" :foreground "black")))
(tp-define-layer 'error
'(face (:background "red" :foreground "white")))
(tp-define-layer 'info
'(face (:background "blue" :foreground "white")))
(tp-define-layer-group 'status-colors 'highlight 'error 'info)
(length (tp-group-props 'status-colors)))
;; => 3
@ -1475,11 +1457,11 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer-group moon-phases
("new" . (display "🌑"))
("waxing-crescent" . (display "🌒"))
("first-quarter" . (display "🌓"))
("full" . (display "🌕")))
(tp-define-layer-group 'moon-phases
'("new" . (display "🌑"))
'("waxing-crescent" . (display "🌒"))
'("first-quarter" . (display "🌓"))
'("full" . (display "🌕")))
(tp-layer-props 'moon-phases-full))
;; => (display "🌕" tp-name moon-phases-full)
```
@ -1501,7 +1483,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 获取属性层属性
(progn
(setq tp-layer-alist nil)
(tp-define-layer my-layer (face bold help-echo "tip"))
(tp-define-layer 'my-layer '(face bold help-echo "tip"))
(tp-layer-props 'my-layer))
;; => (face bold help-echo "tip" tp-name my-layer)
@ -1509,9 +1491,9 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer-group my-group layer1 layer2)
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer-group 'my-group 'layer1 'layer2)
(length (tp-group-props 'my-group)))
;; => 2
```
@ -1533,7 +1515,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 取消定义属性层
(progn
(setq tp-layer-alist nil)
(tp-define-layer temp-layer (face bold))
(tp-define-layer 'temp-layer '(face bold))
(tp-undefine-layer 'temp-layer)
(tp-layer-props 'temp-layer))
;; => nil
@ -1542,8 +1524,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(setq tp-layer-alist nil)
(setq tp-layer-groups nil)
(tp-define-layer l1 (face bold))
(tp-define-layer my-group l1)
(tp-define-layer 'l1 '(face bold))
(tp-define-layer-group 'my-group 'l1)
(tp-undefine-group 'my-group)
(assoc 'my-group tp-layer-groups))
;; => nil
@ -1563,7 +1545,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-define-layer test-layer (face bold))
(tp-define-layer 'test-layer '(face bold))
(tp-layer-reset)
(list tp-layer-alist tp-layer-groups))
;; => (nil nil)
@ -1587,8 +1569,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 定义一个响应式层
(progn
(defvar my-reactive-color "red")
(tp-define-layer reactive-layer
:props (face (:foreground $my-reactive-color)))
(tp-define-layer 'reactive-layer
:props '(face (:foreground $my-reactive-color)))
;; 仅清除响应式绑定
(tp-reactive-reset)
;; 层仍然存在，但改变 my-reactive-color 不再更新它
@ -1622,8 +1604,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 base 属性层放在顶部
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1633,8 +1615,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 highlight 放在索引 1（顶部下面）
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1645,8 +1627,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将属性层放在底部
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer info (face (:foreground "blue")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'info '(face (:foreground "blue")))
(with-temp-buffer
(insert "Hello World")
(tp-put-layer 1 10 'base 0)
@ -1675,8 +1657,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 首先推入 base 属性层
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1686,8 +1668,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 highlight 推到顶部（现在可见）
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1718,8 +1700,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 按名称删除
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer base (face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'base '(face default))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1731,8 +1713,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 删除顶层（idx=0）
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1744,8 +1726,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 删除底层
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1774,8 +1756,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1814,9 +1796,9 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将索引 2 的层移动到索引 0（顶部）
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer layer3 (face underline))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer 'layer3 '(face underline))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1830,8 +1812,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 按名称移动层到底部
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1844,8 +1826,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 在字符串上移动
(let ((str (copy-sequence "Hello")))
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-push-layer str 'layer1)
(tp-push-layer str 'layer2)
;; layer2 在顶部
@ -1874,9 +1856,9 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 layer1 上移 2 个位置（到顶部）
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer layer3 (face underline))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-define-layer 'layer3 '(face underline))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1890,8 +1872,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将索引 0 的属性层下移 1 个位置
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -1922,8 +1904,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 堆栈: highlight (顶) -> base (底)
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1955,8 +1937,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 'base 设为顶层
(progn
(tp-layer-reset)
(tp-define-layer base (face default))
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'base '(face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -1987,8 +1969,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 交换 layer1 和 layer2
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2022,8 +2004,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将 layer1 和 layer2 合并为 merged-layer
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2035,8 +2017,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 按索引合并
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2066,8 +2048,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 将所有属性层扁平化为 'flat-layer
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (help-echo "tip"))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(help-echo "tip"))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2079,7 +2061,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 使用 nil 名称扁平化（无名属性层）
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer 'layer1 '(face bold))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2105,8 +2087,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer base (face default))
(tp-define-layer 'highlight '(face (:background "yellow")))
(tp-define-layer 'base '(face default))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'base)
@ -2130,8 +2112,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2155,7 +2137,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer 'layer1 '(face bold))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2179,8 +2161,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2213,8 +2195,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer layer1 (face (:foreground "red")))
(tp-define-layer layer2 (face (:foreground "blue")))
(tp-define-layer 'layer1 '(face (:foreground "red")))
(tp-define-layer 'layer2 '(face (:foreground "blue")))
(with-temp-buffer
(insert "Hello World")
(tp-push-layer 1 10 'layer1)
@ -2247,8 +2229,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(let ((str (copy-sequence "Hello World")))
(tp-define-layer layer1 (face bold))
(tp-define-layer layer2 (face italic))
(tp-define-layer 'layer1 '(face bold))
(tp-define-layer 'layer2 '(face italic))
(tp-push-layer 0 5 'layer1 str)
(tp-push-layer 0 5 'layer2 str)
;; 向所有层添加下划线
@ -2327,7 +2309,7 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(progn
(tp-layer-reset)
(tp-define-layer highlight (face (:background "yellow")))
(tp-define-layer 'highlight '(face (:background "yellow")))
(with-temp-buffer
(insert "Hello World Test")
(tp-push-layer 1 6 'highlight)
@ -2398,13 +2380,13 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(tp-layer-reset)
;; 为不同高亮目的定义属性层
(tp-define-layer code-base
(face font-lock-keyword-face))
(tp-define-layer code-error
(face (:underline (:color "red" :style wave))
(tp-define-layer 'code-base
'(face font-lock-keyword-face))
(tp-define-layer 'code-error
'(face (:underline (:color "red" :style wave))
help-echo "语法错误"))
(tp-define-layer code-debug
(face (:background "dark blue")))
(tp-define-layer 'code-debug
'(face (:background "dark blue")))
(with-temp-buffer
(insert (make-string 100 ?x)) ; 创建 100 字符缓冲区
;; 应用基础高亮
@ -2429,10 +2411,10 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(progn
(tp-layer-reset)
;; 将状态属性层定义为一个组
(tp-define-layer status-todo (face (:foreground "gray")))
(tp-define-layer status-progress (face (:foreground "yellow")))
(tp-define-layer status-done (face (:foreground "green")))
(tp-define-layer-group task-status status-todo status-progress status-done)
(tp-define-layer 'status-todo '(face (:foreground "gray")))
(tp-define-layer 'status-progress '(face (:foreground "yellow")))
(tp-define-layer 'status-done '(face (:foreground "green")))
(tp-define-layer-group 'task-status 'status-todo 'status-progress 'status-done)
;; 检查组是否已定义
(length (tp-group-props 'task-status)))
;; => 3
@ -2450,8 +2432,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 定义临时高亮属性层
(progn
(tp-layer-reset)
(tp-define-layer temp-highlight
(face (:background "yellow")))
(tp-define-layer 'temp-highlight
'(face (:background "yellow")))
(tp-layer-props 'temp-highlight))
;; => (face (:background "yellow") tp-name temp-highlight)
@ -2485,8 +2467,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
;; 响应式方式（自动更新）
(defvar my-color "red")
(tp-define-layer my-layer
:props (face (:foreground $my-color)))
(tp-define-layer 'my-layer
:props '(face (:foreground $my-color)))
(tp-push-layer 1 10 'my-layer)
;; 只需改变变量 - 所有文本自动更新！
(setq my-color "blue") ;; 所有使用 my-layer 的区域立即更新！
@ -2507,8 +2489,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
```elisp
(defvar highlight-color "yellow")
(tp-define-layer my-highlight
:props (face (:background $highlight-color)))
(tp-define-layer 'my-highlight
:props '(face (:background $highlight-color)))
(with-temp-buffer
(insert "Hello World")
@ -2526,8 +2508,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(defvar fg-color "white")
(defvar bg-color "black")
(tp-define-layer themed-text
:props (face (:foreground $fg-color :background $bg-color)))
(tp-define-layer 'themed-text
:props '(face (:foreground $fg-color :background $bg-color)))
;; 改变任一变量都会更新文本
(setq fg-color "yellow") ;; 更新前景色
@ -2539,10 +2521,10 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
`:data` 关键字定义不直接用于 `:props` 但可以触发计算值更新或被监听的额外响应式变量：
```elisp
(tp-define-layer user-info
:props (help-echo $full-name)
:data (first-name last-name) ;; 不直接用于 props
:compute ((full-name (lambda () (concat first-name " " last-name)))))
(tp-define-layer 'user-info
:props '(help-echo $full-name)
:data '(first-name last-name) ;; 不直接用于 props
:compute '((full-name (lambda () (concat first-name " " last-name)))))
```
**带初始值：**
@ -2550,10 +2532,10 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
你可以使用 cons cell 指定初始值：
```elisp
(tp-define-layer user-info
:props (help-echo $full-name)
:data ((first-name . "张") (last-name . "三"))
:compute ((full-name (lambda () (concat first-name last-name)))))
(tp-define-layer 'user-info
:props '(help-echo $full-name)
:data '((first-name . "张") (last-name . "三"))
:compute '((full-name (lambda () (concat first-name last-name)))))
;; first-name 现在是 "张"，last-name 现在是 "三"
```
@ -2563,10 +2545,10 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
`:compute` 关键字创建派生值，当它们的依赖项改变时会自动重新计算：
```elisp
(tp-define-layer progress-display
:props (display $progress-text face (:foreground $progress-color))
:data ((current . 0) (total . 100))
:compute ((progress-text (lambda () (format "%d%%" (/ (* current 100) total))))
(tp-define-layer 'progress-display
:props '(display $progress-text face (:foreground $progress-color))
:data '((current . 0) (total . 100))
:compute '((progress-text (lambda () (format "%d%%" (/ (* current 100) total))))
(progress-color (lambda ()
(cond ((< current 30) "red")
((< current 70) "yellow")
@ -2582,9 +2564,9 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
`:watch` 关键字让你在响应式变量改变时执行回调：
```elisp
(tp-define-layer monitored-layer
:props (face (:foreground $status-color))
:watch ((status-color
(tp-define-layer 'monitored-layer
:props '(face (:foreground $status-color))
:watch '((status-color
(lambda (new-val old-val layer-name)
(message "层 %s: 颜色从 %s 改为 %s"
layer-name old-val new-val)))))
@ -2615,8 +2597,8 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
所有文本属性 API（`tp-set`、`tp-match-set`、`tp-regexp-set` 等）现在可以直接接受层名：
```elisp
(tp-define-layer warning-style
:props (face (:foreground "orange" :weight bold)))
(tp-define-layer 'warning-style
:props '(face (:foreground "orange" :weight bold)))
;; 使用层名代替 plist
(tp-set 1 10 'warning-style)
@ -2628,16 +2610,16 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
### 响应式层组
层组也可以使用格式四的响应式特性：
层组也可以使用响应式特性：
```elisp
(tp-define-layer-group status-indicators
("success" :props (face (:foreground $success-color))
:data ((success-color . "green")))
("warning" :props (face (:foreground $warning-color))
:data ((warning-color . "orange")))
("error" :props (face (:foreground $error-color))
:data ((error-color . "red"))))
(tp-define-layer-group 'status-indicators
'("success" :props (face (:foreground $success-color))
:data ((success-color . "green")))
'("warning" :props (face (:foreground $warning-color))
:data ((warning-color . "orange")))
'("error" :props (face (:foreground $error-color))
:data ((error-color . "red"))))
```
### 重置响应式状态
@ -2659,14 +2641,14 @@ Emacs 的 `text-property-search-forward` 和 `text-property-search-backward` 的
(defvar theme-accent "cyan")
;; 定义主题感知层
(tp-define-layer code-keyword
:props (face (:foreground $theme-accent :weight bold)))
(tp-define-layer 'code-keyword
:props '(face (:foreground $theme-accent :weight bold)))
(tp-define-layer code-comment
:props (face (:foreground "gray" :slant italic)))
(tp-define-layer 'code-comment
:props '(face (:foreground "gray" :slant italic)))
(tp-define-layer code-string
:props (face (:foreground "green")))
(tp-define-layer 'code-string
:props '(face (:foreground "green")))
;; 将层应用到代码
(tp-match-set '("defun" "defvar" "let" "if" "when") 'code-keyword)