|
1 | 1 | (ns rewrite-clj.paredit
|
2 | 2 | "Paredit zipper operations for Clojure/ClojureScript/EDN.
|
3 | 3 |
|
| 4 | + > [!WARNING] |
| 5 | + > This API is experimental, under development, and subject to change. |
| 6 | +
|
4 | 7 | You might find inspiration from examples here: https://pub.gajendra.net/src/paredit-refcard.pdf"
|
5 | 8 | (:require [clojure.string :as str]
|
6 | 9 | [rewrite-clj.custom-zipper.core :as zraw]
|
|
351 | 354 | (z/append-child (z/node slurpee-loc)) ;; slurp in slurpee
|
352 | 355 | (nav-via route)))))))
|
353 | 356 |
|
354 |
| -(defn ^{:deprecated "1.1.49"} slurp-forward |
| 357 | +(defn ^{:deprecated "1.2.50"} slurp-forward |
355 | 358 | "DEPRECATED: we recommend [[slurp-forward-into]] instead for more control.
|
356 | 359 |
|
357 | 360 | Return `zloc` with node to the right of nearest eligible sequence slurped into that sequence else `zloc` unchanged.
|
|
415 | 418 | (take (inc n-slurps))
|
416 | 419 | last))))))
|
417 | 420 |
|
418 |
| -(defn ^{:deprecated "1.1.49"} slurp-forward-fully |
| 421 | +(defn ^{:deprecated "1.2.50"} slurp-forward-fully |
419 | 422 | "DEPRECATED: We recommend [[slurp-forward-fully-into]]] for more control.
|
420 | 423 |
|
421 | 424 | Return `zloc` with all right sibling nodes of nearest eligible sequence slurped into that sequence else `zloc` unchanged.
|
|
478 | 481 | (z/insert-child (z/node slurpee-loc))
|
479 | 482 | (nav-via route)))))))
|
480 | 483 |
|
481 |
| -(defn ^{:deprecated "1.1.49"} slurp-backward |
| 484 | +(defn ^{:deprecated "1.2.50"} slurp-backward |
482 | 485 | "DEPRECATED: we recommend [[slurp-backward-into]] for more control.
|
483 | 486 |
|
484 | 487 | Returns `zloc` with node to the left of nearest eligible sequence slurped into that sequence else `zloc` unchanged.
|
|
543 | 546 | (take (inc n-slurps))
|
544 | 547 | last))))))
|
545 | 548 |
|
546 |
| -(defn ^{:deprecated "1.1.49"} slurp-backward-fully |
| 549 | +(defn ^{:deprecated "1.2.50"} slurp-backward-fully |
547 | 550 | "DEPRECATED: We recommend instead [[slurp-backward-fully-into]] for more control.
|
548 | 551 |
|
549 | 552 | Returns `zloc` with all left sibling nodes of nearest eligible sequnece slurped into that sequence else `zloc`.
|
|
0 commit comments