| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 73 2d 32 30 32 32 30 39 30 32 2e 31 35 31 31 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | s-20220902.1511/................ |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 32 34 33 00 20 35 00 00 00 | 0000000.00000000000.011243..5... |
| 00a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 00e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0100 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0120 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 01e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0200 | 73 2d 32 30 32 32 30 39 30 32 2e 31 35 31 31 2f 73 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 | s-20220902.1511/s-pkg.el........ |
| 0220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 30 30 30 36 31 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 36 30 34 00 20 30 00 00 00 | 0000611.00000000000.012604..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 73 22 20 22 32 30 32 32 30 39 30 32 2e 31 35 | (define-package."s"."20220902.15 |
| 0420 | 31 31 22 20 22 54 68 65 20 6c 6f 6e 67 20 6c 6f 73 74 20 45 6d 61 63 73 20 73 74 72 69 6e 67 20 | 11"."The.long.lost.Emacs.string. |
| 0440 | 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 6c 69 62 72 61 72 79 2e 22 20 27 6e 69 6c 20 3a 63 6f 6d | manipulation.library.".'nil.:com |
| 0460 | 6d 69 74 20 22 62 34 62 38 63 30 33 66 63 65 66 33 31 36 61 32 37 66 37 35 36 33 33 66 65 34 62 | mit."b4b8c03fcef316a27f75633fe4b |
| 0480 | 62 39 39 30 61 65 66 66 36 65 37 30 35 22 20 3a 61 75 74 68 6f 72 73 0a 20 20 27 28 28 22 4d 61 | b990aeff6e705".:authors...'(("Ma |
| 04a0 | 67 6e 61 72 20 53 76 65 65 6e 22 20 2e 20 22 6d 61 67 6e 61 72 73 40 67 6d 61 69 6c 2e 63 6f 6d | gnar.Sveen"..."magnars@gmail.com |
| 04c0 | 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 0a 20 20 27 28 28 22 4a 61 73 6f 6e 20 4d | "))...:maintainers...'(("Jason.M |
| 04e0 | 69 6c 6b 69 6e 73 22 20 2e 20 22 6a 61 73 6f 6e 6d 32 33 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 | ilkins"..."jasonm23@gmail.com")) |
| 0500 | 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 0a 20 20 27 28 22 4a 61 73 6f 6e 20 4d 69 6c 6b 69 6e | ...:maintainer...'("Jason.Milkin |
| 0520 | 73 22 20 2e 20 22 6a 61 73 6f 6e 6d 32 33 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 0a 20 20 3a 6b 65 | s"..."jasonm23@gmail.com")...:ke |
| 0540 | 79 77 6f 72 64 73 0a 20 20 27 28 22 73 74 72 69 6e 67 73 22 29 29 0a 3b 3b 20 4c 6f 63 61 6c 20 | ywords...'("strings")).;;.Local. |
| 0560 | 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 | Variables:.;;.no-byte-compile:.t |
| 0580 | 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .;;.End:........................ |
| 05a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 05c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 05e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0600 | 73 2d 32 30 32 32 30 39 30 32 2e 31 35 31 31 2f 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 | s-20220902.1511/s.el............ |
| 0620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 30 36 32 37 32 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 32 30 34 30 00 20 30 00 00 00 | 0062722.00000000000.012040..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 73 2e 65 6c 20 2d 2d 2d 20 54 68 65 20 6c 6f 6e 67 20 6c 6f 73 74 20 45 6d 61 63 73 | ;;;.s.el.---.The.long.lost.Emacs |
| 0820 | 20 73 74 72 69 6e 67 20 6d 61 6e 69 70 75 6c 61 74 69 6f 6e 20 6c 69 62 72 61 72 79 2e 20 2d 2a | .string.manipulation.library..-* |
| 0840 | 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 | -.lexical-binding:.t.-*-..;;.Cop |
| 0860 | 79 72 69 67 68 74 20 28 43 29 20 32 30 31 32 2d 32 30 32 32 20 4d 61 67 6e 61 72 20 53 76 65 65 | yright.(C).2012-2022.Magnar.Svee |
| 0880 | 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 4d 61 67 6e 61 72 20 53 76 65 65 6e 20 3c 6d 61 67 6e | n..;;.Author:.Magnar.Sveen.<magn |
| 08a0 | 61 72 73 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4a 61 | ars@gmail.com>.;;.Maintainer:.Ja |
| 08c0 | 73 6f 6e 20 4d 69 6c 6b 69 6e 73 20 3c 6a 61 73 6f 6e 6d 32 33 40 67 6d 61 69 6c 2e 63 6f 6d 3e | son.Milkins.<jasonm23@gmail.com> |
| 08e0 | 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 31 2e 31 33 2e 31 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a | .;;.Version:.1.13.1.;;.Keywords: |
| 0900 | 20 73 74 72 69 6e 67 73 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 | .strings..;;.This.program.is.fre |
| 0920 | 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 | e.software;.you.can.redistribute |
| 0940 | 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 | .it.and/or.modify.;;.it.under.th |
| 0960 | 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 | e.terms.of.the.GNU.General.Publi |
| 0980 | 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 | c.License.as.published.by.;;.the |
| 09a0 | 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 | .Free.Software.Foundation,.eithe |
| 09c0 | 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b | r.version.3.of.the.License,.or.; |
| 09e0 | 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 | ;.(at.your.option).any.later.ver |
| 0a00 | 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 | sion...;;.This.program.is.distri |
| 0a20 | 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 | buted.in.the.hope.that.it.will.b |
| 0a40 | 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 | e.useful,.;;.but.WITHOUT.ANY.WAR |
| 0a60 | 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 | RANTY;.without.even.the.implied. |
| 0a80 | 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f | warranty.of.;;.MERCHANTABILITY.o |
| 0aa0 | 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f | r.FITNESS.FOR.A.PARTICULAR.PURPO |
| 0ac0 | 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c | SE...See.the.;;.GNU.General.Publ |
| 0ae0 | 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b | ic.License.for.more.details...;; |
| 0b00 | 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 | .You.should.have.received.a.copy |
| 0b20 | 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e | .of.the.GNU.General.Public.Licen |
| 0b40 | 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 | se.;;.along.with.this.program... |
| 0b60 | 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f | If.not,.see.<http://www.gnu.org/ |
| 0b80 | 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b | licenses/>...;;;.Commentary:..;; |
| 0ba0 | 20 54 68 65 20 6c 6f 6e 67 20 6c 6f 73 74 20 45 6d 61 63 73 20 73 74 72 69 6e 67 20 6d 61 6e 69 | .The.long.lost.Emacs.string.mani |
| 0bc0 | 70 75 6c 61 74 69 6f 6e 20 6c 69 62 72 61 72 79 2e 0a 3b 3b 0a 3b 3b 20 53 65 65 20 64 6f 63 75 | pulation.library..;;.;;.See.docu |
| 0be0 | 6d 65 6e 74 61 74 69 6f 6e 20 6f 6e 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f | mentation.on.https://github.com/ |
| 0c00 | 6d 61 67 6e 61 72 73 2f 73 2e 65 6c 23 66 75 6e 63 74 69 6f 6e 73 0a 0a 3b 3b 3b 20 43 6f 64 65 | magnars/s.el#functions..;;;.Code |
| 0c20 | 3a 0a 0a 3b 3b 20 53 69 6c 65 6e 63 65 20 62 79 74 65 2d 63 6f 6d 70 69 6c 65 72 0a 28 64 65 66 | :..;;.Silence.byte-compiler.(def |
| 0c40 | 76 61 72 20 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 63 6f 6d 62 69 6e 69 6e 67 2d 63 68 61 72 | var.ucs-normalize-combining-char |
| 0c60 | 73 29 20 20 3b 20 44 65 66 69 6e 65 64 20 69 6e 20 60 75 63 73 2d 6e 6f 72 6d 61 6c 69 7a 65 27 | s)..;.Defined.in.`ucs-normalize' |
| 0c80 | 0a 28 61 75 74 6f 6c 6f 61 64 20 27 73 6c 6f 74 2d 76 61 6c 75 65 20 22 65 69 65 69 6f 22 29 0a | .(autoload.'slot-value."eieio"). |
| 0ca0 | 0a 28 64 65 66 75 6e 20 73 2d 74 72 69 6d 2d 6c 65 66 74 20 28 73 29 0a 20 20 22 52 65 6d 6f 76 | .(defun.s-trim-left.(s)..."Remov |
| 0cc0 | 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 | e.whitespace.at.the.beginning.of |
| 0ce0 | 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 | .S."...(declare.(pure.t).(side-e |
| 0d00 | 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 | ffect-free.t))...(save-match-dat |
| 0d20 | 61 0a 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5b 20 5c 74 | a.....(if.(string-match."\\`[.\t |
| 0d40 | 5c 6e 5c 72 5d 2b 22 20 73 29 0a 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 | \n\r]+".s).........(replace-matc |
| 0d60 | 68 20 22 22 20 74 20 74 20 73 29 0a 20 20 20 20 20 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | h."".t.t.s).......s)))..(defun.s |
| 0d80 | 2d 74 72 69 6d 2d 72 69 67 68 74 20 28 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 77 68 69 74 65 73 | -trim-right.(s)..."Remove.whites |
| 0da0 | 70 61 63 65 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 | pace.at.the.end.of.S."...(declar |
| 0dc0 | 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 | e.(pure.t).(side-effect-free.t)) |
| 0de0 | 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 69 66 20 28 73 74 72 | ...(save-match-data.....(if.(str |
| 0e00 | 69 6e 67 2d 6d 61 74 63 68 20 22 5b 20 5c 74 5c 6e 5c 72 5d 2b 5c 5c 27 22 20 73 29 0a 20 20 20 | ing-match."[.\t\n\r]+\\'".s).... |
| 0e20 | 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 20 74 20 73 29 0a 20 20 | .....(replace-match."".t.t.s)... |
| 0e40 | 20 20 20 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 74 72 69 6d 20 28 73 29 0a 20 20 22 52 | ....s)))..(defun.s-trim.(s)..."R |
| 0e60 | 65 6d 6f 76 65 20 77 68 69 74 65 73 70 61 63 65 20 61 74 20 74 68 65 20 62 65 67 69 6e 6e 69 6e | emove.whitespace.at.the.beginnin |
| 0e80 | 67 20 61 6e 64 20 65 6e 64 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 | g.and.end.of.S."...(declare.(pur |
| 0ea0 | 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d | e.t).(side-effect-free.t))...(s- |
| 0ec0 | 74 72 69 6d 2d 6c 65 66 74 20 28 73 2d 74 72 69 6d 2d 72 69 67 68 74 20 73 29 29 29 0a 0a 28 64 | trim-left.(s-trim-right.s)))..(d |
| 0ee0 | 65 66 75 6e 20 73 2d 63 6f 6c 6c 61 70 73 65 2d 77 68 69 74 65 73 70 61 63 65 20 28 73 29 0a 20 | efun.s-collapse-whitespace.(s).. |
| 0f00 | 20 22 43 6f 6e 76 65 72 74 20 61 6c 6c 20 61 64 6a 61 63 65 6e 74 20 77 68 69 74 65 73 70 61 63 | ."Convert.all.adjacent.whitespac |
| 0f20 | 65 20 63 68 61 72 61 63 74 65 72 73 20 74 6f 20 61 20 73 69 6e 67 6c 65 20 73 70 61 63 65 2e 22 | e.characters.to.a.single.space." |
| 0f40 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 | ...(declare.(pure.t).(side-effec |
| 0f60 | 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d | t-free.t))...(replace-regexp-in- |
| 0f80 | 73 74 72 69 6e 67 20 22 5b 20 5c 74 5c 6e 5c 72 5d 2b 22 20 22 20 22 20 73 29 29 0a 0a 28 64 65 | string."[.\t\n\r]+".".".s))..(de |
| 0fa0 | 66 75 6e 20 73 2d 75 6e 69 6e 64 65 6e 74 20 28 73 20 26 6f 70 74 69 6f 6e 61 6c 20 62 6f 6c 29 | fun.s-unindent.(s.&optional.bol) |
| 0fc0 | 0a 20 20 22 55 6e 69 6e 64 65 6e 74 20 53 20 77 68 69 63 68 20 68 61 73 20 42 4f 4c 20 28 62 65 | ..."Unindent.S.which.has.BOL.(be |
| 0fe0 | 67 69 6e 6e 69 6e 67 20 6f 66 20 6c 69 6e 65 29 20 69 6e 64 69 63 61 74 6f 72 73 2e 0a 42 4f 4c | ginning.of.line).indicators..BOL |
| 1000 | 20 77 69 6c 6c 20 64 65 66 61 75 6c 74 20 74 6f 20 70 69 70 65 2e 20 59 6f 75 20 63 61 6e 20 6f | .will.default.to.pipe..You.can.o |
| 1020 | 70 74 69 6f 6e 61 6c 6c 79 20 73 75 70 70 6c 79 20 79 6f 75 72 20 6f 77 6e 2e 22 0a 20 20 28 64 | ptionally.supply.your.own."...(d |
| 1040 | 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | eclare.(pure.t).(side-effect-fre |
| 1060 | 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 | e.t))...(let.((case-fold-search. |
| 1080 | 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 28 62 6f 6c 20 28 6f 72 20 62 6f 6c 20 22 7c 22 29 29 29 | nil).........(bol.(or.bol."|"))) |
| 10a0 | 0a 20 20 20 28 73 2d 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 20 28 63 6f 6e 63 61 74 20 22 5e | ....(s-replace-regexp.(concat."^ |
| 10c0 | 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2a 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 62 6f 6c 29 | [[:space:]]*".(regexp-quote.bol) |
| 10e0 | 29 20 22 22 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 73 70 6c 69 74 20 28 73 65 70 61 72 | )."".s)))..(defun.s-split.(separ |
| 1100 | 61 74 6f 72 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c 73 29 0a 20 20 22 | ator.s.&optional.omit-nulls)..." |
| 1120 | 53 70 6c 69 74 20 53 20 69 6e 74 6f 20 73 75 62 73 74 72 69 6e 67 73 20 62 6f 75 6e 64 65 64 20 | Split.S.into.substrings.bounded. |
| 1140 | 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 78 70 20 53 45 50 41 52 41 54 4f 52 2e | by.matches.for.regexp.SEPARATOR. |
| 1160 | 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 7a 65 72 6f 2d | .If.OMIT-NULLS.is.non-nil,.zero- |
| 1180 | 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20 61 72 65 20 6f 6d 69 74 74 65 64 2e 0a 0a | length.substrings.are.omitted... |
| 11a0 | 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 | This.is.a.simple.wrapper.around. |
| 11c0 | 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 70 6c 69 74 2d 73 74 72 69 6e 67 27 2e 22 0a 20 20 | the.built-in.`split-string'."... |
| 11e0 | 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 | (declare.(side-effect-free.t)).. |
| 1200 | 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 | .(save-match-data.....(split-str |
| 1220 | 69 6e 67 20 73 20 73 65 70 61 72 61 74 6f 72 20 6f 6d 69 74 2d 6e 75 6c 6c 73 29 29 29 0a 0a 28 | ing.s.separator.omit-nulls)))..( |
| 1240 | 64 65 66 75 6e 20 73 2d 73 70 6c 69 74 2d 75 70 2d 74 6f 20 28 73 65 70 61 72 61 74 6f 72 20 73 | defun.s-split-up-to.(separator.s |
| 1260 | 20 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 6d 69 74 2d 6e 75 6c 6c 73 29 0a 20 20 22 53 70 6c 69 | .n.&optional.omit-nulls)..."Spli |
| 1280 | 74 20 53 20 75 70 20 74 6f 20 4e 20 74 69 6d 65 73 20 69 6e 74 6f 20 73 75 62 73 74 72 69 6e 67 | t.S.up.to.N.times.into.substring |
| 12a0 | 73 20 62 6f 75 6e 64 65 64 20 62 79 20 6d 61 74 63 68 65 73 20 66 6f 72 20 72 65 67 65 78 70 20 | s.bounded.by.matches.for.regexp. |
| 12c0 | 53 45 50 41 52 41 54 4f 52 2e 0a 0a 49 66 20 4f 4d 49 54 2d 4e 55 4c 4c 53 20 69 73 20 6e 6f 6e | SEPARATOR...If.OMIT-NULLS.is.non |
| 12e0 | 2d 6e 69 6c 2c 20 7a 65 72 6f 2d 6c 65 6e 67 74 68 20 73 75 62 73 74 72 69 6e 67 73 20 61 72 65 | -nil,.zero-length.substrings.are |
| 1300 | 20 6f 6d 69 74 74 65 64 2e 0a 0a 53 65 65 20 61 6c 73 6f 20 60 73 2d 73 70 6c 69 74 27 2e 22 0a | .omitted...See.also.`s-split'.". |
| 1320 | 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 | ..(declare.(side-effect-free.t)) |
| 1340 | 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 6c 65 74 20 28 28 6f | ...(save-match-data.....(let.((o |
| 1360 | 70 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 77 | p.0)...........(r.nil)).......(w |
| 1380 | 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | ith-temp-buffer.........(insert. |
| 13a0 | 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 70 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | s).........(setq.op.(goto-char.( |
| 13c0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 | point-min))).........(while.(and |
| 13e0 | 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 73 65 70 61 72 61 74 6f 72 20 6e 69 | .(re-search-forward.separator.ni |
| 1400 | 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 30 20 6e 29 | l.t).....................(<.0.n) |
| 1420 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 75 62 20 28 62 75 66 66 65 72 2d 73 | )...........(let.((sub.(buffer-s |
| 1440 | 75 62 73 74 72 69 6e 67 20 6f 70 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 | ubstring.op.(match-beginning.0)) |
| 1460 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 6f 6d 69 74 | )).............(unless.(and.omit |
| 1480 | 2d 6e 75 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -nulls.......................... |
| 14a0 | 28 65 71 75 61 6c 20 73 75 62 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | (equal.sub.""))...............(p |
| 14c0 | 75 73 68 20 73 75 62 20 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 70 20 | ush.sub.r)))...........(setq.op. |
| 14e0 | 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 0a 20 20 20 20 20 | (goto-char.(match-end.0)))...... |
| 1500 | 20 20 20 20 20 28 73 65 74 71 20 6e 20 28 31 2d 20 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c | .....(setq.n.(1-.n))).........(l |
| 1520 | 65 74 20 28 28 73 75 62 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6f 70 20 28 70 | et.((sub.(buffer-substring.op.(p |
| 1540 | 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | oint-max))))...........(unless.( |
| 1560 | 61 6e 64 20 6f 6d 69 74 2d 6e 75 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and.omit-nulls.................. |
| 1580 | 20 20 20 20 20 20 28 65 71 75 61 6c 20 73 75 62 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ......(equal.sub.""))........... |
| 15a0 | 20 20 28 70 75 73 68 20 73 75 62 20 72 29 29 29 29 0a 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 | ..(push.sub.r)))).......(nrevers |
| 15c0 | 65 20 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6c 69 6e 65 73 20 28 73 29 0a 20 20 22 53 | e.r))))..(defun.s-lines.(s)..."S |
| 15e0 | 70 6c 69 74 73 20 53 20 69 6e 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 6f | plits.S.into.a.list.of.strings.o |
| 1600 | 6e 20 6e 65 77 6c 69 6e 65 20 63 68 61 72 61 63 74 65 72 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 | n.newline.characters."...(declar |
| 1620 | 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 | e.(pure.t).(side-effect-free.t)) |
| 1640 | 0a 20 20 28 73 2d 73 70 6c 69 74 20 22 5c 5c 28 5c 72 5c 6e 5c 5c 7c 5b 5c 6e 5c 72 5d 5c 5c 29 | ...(s-split."\\(\r\n\\|[\n\r]\\) |
| 1660 | 22 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6a 6f 69 6e 20 28 73 65 70 61 72 61 74 6f 72 20 | ".s))..(defun.s-join.(separator. |
| 1680 | 73 74 72 69 6e 67 73 29 0a 20 20 22 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 73 | strings)..."Join.all.the.strings |
| 16a0 | 20 69 6e 20 53 54 52 49 4e 47 53 20 77 69 74 68 20 53 45 50 41 52 41 54 4f 52 20 69 6e 20 62 65 | .in.STRINGS.with.SEPARATOR.in.be |
| 16c0 | 74 77 65 65 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 | tween."...(declare.(pure.t).(sid |
| 16e0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 27 | e-effect-free.t))...(mapconcat.' |
| 1700 | 69 64 65 6e 74 69 74 79 20 73 74 72 69 6e 67 73 20 73 65 70 61 72 61 74 6f 72 29 29 0a 0a 28 64 | identity.strings.separator))..(d |
| 1720 | 65 66 75 6e 20 73 2d 63 6f 6e 63 61 74 20 28 26 72 65 73 74 20 73 74 72 69 6e 67 73 29 0a 20 20 | efun.s-concat.(&rest.strings)... |
| 1740 | 22 4a 6f 69 6e 20 61 6c 6c 20 74 68 65 20 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 69 | "Join.all.the.string.arguments.i |
| 1760 | 6e 74 6f 20 6f 6e 65 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 | nto.one.string."...(declare.(pur |
| 1780 | 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 61 70 | e.t).(side-effect-free.t))...(ap |
| 17a0 | 70 6c 79 20 27 63 6f 6e 63 61 74 20 73 74 72 69 6e 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d | ply.'concat.strings))..(defun.s- |
| 17c0 | 70 72 65 70 65 6e 64 20 28 70 72 65 66 69 78 20 73 29 0a 20 20 22 43 6f 6e 63 61 74 65 6e 61 74 | prepend.(prefix.s)..."Concatenat |
| 17e0 | 65 20 50 52 45 46 49 58 20 61 6e 64 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 | e.PREFIX.and.S."...(declare.(pur |
| 1800 | 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 63 6f | e.t).(side-effect-free.t))...(co |
| 1820 | 6e 63 61 74 20 70 72 65 66 69 78 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 61 70 70 65 6e 64 | ncat.prefix.s))..(defun.s-append |
| 1840 | 20 28 73 75 66 66 69 78 20 73 29 0a 20 20 22 43 6f 6e 63 61 74 65 6e 61 74 65 20 53 20 61 6e 64 | .(suffix.s)..."Concatenate.S.and |
| 1860 | 20 53 55 46 46 49 58 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 | .SUFFIX."...(declare.(pure.t).(s |
| 1880 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 63 6f 6e 63 61 74 20 73 20 | ide-effect-free.t))...(concat.s. |
| 18a0 | 73 75 66 66 69 78 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 73 70 6c 69 63 65 20 28 6e 65 65 64 6c | suffix))..(defun.s-splice.(needl |
| 18c0 | 65 20 6e 20 73 29 0a 20 20 22 53 70 6c 69 63 65 20 4e 45 45 44 4c 45 20 69 6e 74 6f 20 53 20 61 | e.n.s)..."Splice.NEEDLE.into.S.a |
| 18e0 | 74 20 70 6f 73 69 74 69 6f 6e 20 4e 2e 0a 30 20 69 73 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 | t.position.N..0.is.the.beginning |
| 1900 | 20 6f 66 20 74 68 65 20 73 74 72 69 6e 67 2c 20 2d 31 20 69 73 20 74 68 65 20 65 6e 64 2e 22 0a | .of.the.string,.-1.is.the.end.". |
| 1920 | 20 20 28 69 66 20 28 3c 20 6e 20 30 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 65 66 74 20 | ..(if.(<.n.0).......(let.((left. |
| 1940 | 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 28 2b 20 31 20 6e 20 28 6c 65 6e 67 74 68 20 73 29 | (substring.s.0.(+.1.n.(length.s) |
| 1960 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 69 67 68 74 20 28 73 2d 72 69 67 68 74 20 | ))).............(right.(s-right. |
| 1980 | 28 2d 20 2d 31 20 6e 29 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 6c 65 | (-.-1.n).s))).........(concat.le |
| 19a0 | 66 74 20 6e 65 65 64 6c 65 20 72 69 67 68 74 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6c 65 66 | ft.needle.right)).....(let.((lef |
| 19c0 | 74 20 28 73 2d 6c 65 66 74 20 6e 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 69 67 68 74 | t.(s-left.n.s))...........(right |
| 19e0 | 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 6e 20 28 6c 65 6e 67 74 68 20 73 29 29 29 29 0a 20 20 | .(substring.s.n.(length.s))))... |
| 1a00 | 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 6c 65 66 74 20 6e 65 65 64 6c 65 20 72 69 67 68 74 29 | ......(concat.left.needle.right) |
| 1a20 | 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 2d 72 65 70 65 61 74 20 28 6e 75 6d 20 73 29 0a 20 20 | )))...(defun.s-repeat.(num.s)... |
| 1a40 | 22 4d 61 6b 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 53 20 72 65 70 65 61 74 65 64 20 4e 55 4d | "Make.a.string.of.S.repeated.NUM |
| 1a60 | 20 74 69 6d 65 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 | .times."...(declare.(pure.t).(si |
| 1a80 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 73 73 29 0a 20 | de-effect-free.t))...(let.(ss).. |
| 1aa0 | 20 20 20 28 77 68 69 6c 65 20 28 3e 20 6e 75 6d 20 30 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 | ...(while.(>.num.0).......(setq. |
| 1ac0 | 73 73 20 28 63 6f 6e 73 20 73 20 73 73 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6e 75 6d 20 | ss.(cons.s.ss)).......(setq.num. |
| 1ae0 | 28 31 2d 20 6e 75 6d 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 27 63 6f 6e 63 61 74 20 73 73 | (1-.num))).....(apply.'concat.ss |
| 1b00 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 28 73 75 66 66 69 | )))..(defun.s-chop-suffix.(suffi |
| 1b20 | 78 20 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 53 55 46 46 49 58 20 69 66 20 69 74 20 69 73 20 61 | x.s)..."Remove.SUFFIX.if.it.is.a |
| 1b40 | 74 20 65 6e 64 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 | t.end.of.S."...(declare.(pure.t) |
| 1b60 | 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 | .(side-effect-free.t))...(let.(( |
| 1b80 | 70 6f 73 20 28 2d 20 28 6c 65 6e 67 74 68 20 73 75 66 66 69 78 29 29 29 29 0a 20 20 20 20 28 69 | pos.(-.(length.suffix)))).....(i |
| 1ba0 | 66 20 28 61 6e 64 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 73 29 20 28 6c 65 6e 67 74 68 20 73 75 | f.(and.(>=.(length.s).(length.su |
| 1bc0 | 66 66 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 73 75 66 | ffix))..............(string=.suf |
| 1be0 | 66 69 78 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 | fix.(substring.s.pos)))......... |
| 1c00 | 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 70 6f 73 29 0a 20 20 20 20 20 20 73 29 29 29 0a 0a | (substring.s.0.pos).......s))).. |
| 1c20 | 28 64 65 66 75 6e 20 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 28 73 75 66 66 69 78 65 73 | (defun.s-chop-suffixes.(suffixes |
| 1c40 | 20 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 53 55 46 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e | .s)..."Remove.SUFFIXES.one.by.on |
| 1c60 | 65 20 69 6e 20 6f 72 64 65 72 2c 20 69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 65 | e.in.order,.if.they.are.at.the.e |
| 1c80 | 6e 64 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 | nd.of.S."...(declare.(pure.t).(s |
| 1ca0 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 77 68 69 6c 65 20 73 75 66 | ide-effect-free.t))...(while.suf |
| 1cc0 | 66 69 78 65 73 0a 20 20 20 20 28 73 65 74 71 20 73 20 28 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 | fixes.....(setq.s.(s-chop-suffix |
| 1ce0 | 20 28 63 61 72 20 73 75 66 66 69 78 65 73 29 20 73 29 29 0a 20 20 20 20 28 73 65 74 71 20 73 75 | .(car.suffixes).s)).....(setq.su |
| 1d00 | 66 66 69 78 65 73 20 28 63 64 72 20 73 75 66 66 69 78 65 73 29 29 29 0a 20 20 73 29 0a 0a 28 64 | ffixes.(cdr.suffixes)))...s)..(d |
| 1d20 | 65 66 75 6e 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 28 70 72 65 66 69 78 20 73 29 0a 20 20 | efun.s-chop-prefix.(prefix.s)... |
| 1d40 | 22 52 65 6d 6f 76 65 20 50 52 45 46 49 58 20 69 66 20 69 74 20 69 73 20 61 74 20 74 68 65 20 73 | "Remove.PREFIX.if.it.is.at.the.s |
| 1d60 | 74 61 72 74 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 | tart.of.S."...(declare.(pure.t). |
| 1d80 | 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 70 | (side-effect-free.t))...(let.((p |
| 1da0 | 6f 73 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e | os.(length.prefix))).....(if.(an |
| 1dc0 | 64 20 28 3e 3d 20 28 6c 65 6e 67 74 68 20 73 29 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 | d.(>=.(length.s).(length.prefix) |
| 1de0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 3d 20 70 72 65 66 69 78 20 28 | )..............(string=.prefix.( |
| 1e00 | 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 75 | substring.s.0.pos))).........(su |
| 1e20 | 62 73 74 72 69 6e 67 20 73 20 70 6f 73 29 0a 20 20 20 20 20 20 73 29 29 29 0a 0a 28 64 65 66 75 | bstring.s.pos).......s)))..(defu |
| 1e40 | 6e 20 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 65 73 20 28 70 72 65 66 69 78 65 73 20 73 29 0a 20 | n.s-chop-prefixes.(prefixes.s).. |
| 1e60 | 20 22 52 65 6d 6f 76 65 20 50 52 45 46 49 58 45 53 20 6f 6e 65 20 62 79 20 6f 6e 65 20 69 6e 20 | ."Remove.PREFIXES.one.by.one.in. |
| 1e80 | 6f 72 64 65 72 2c 20 69 66 20 74 68 65 79 20 61 72 65 20 61 74 20 74 68 65 20 73 74 61 72 74 20 | order,.if.they.are.at.the.start. |
| 1ea0 | 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 | of.S."...(declare.(pure.t).(side |
| 1ec0 | 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 77 68 69 6c 65 20 70 72 65 66 69 78 | -effect-free.t))...(while.prefix |
| 1ee0 | 65 73 0a 20 20 20 20 28 73 65 74 71 20 73 20 28 73 2d 63 68 6f 70 2d 70 72 65 66 69 78 20 28 63 | es.....(setq.s.(s-chop-prefix.(c |
| 1f00 | 61 72 20 70 72 65 66 69 78 65 73 29 20 73 29 29 0a 20 20 20 20 28 73 65 74 71 20 70 72 65 66 69 | ar.prefixes).s)).....(setq.prefi |
| 1f20 | 78 65 73 20 28 63 64 72 20 70 72 65 66 69 78 65 73 29 29 29 0a 20 20 73 29 0a 0a 28 64 65 66 75 | xes.(cdr.prefixes)))...s)..(defu |
| 1f40 | 6e 20 73 2d 73 68 61 72 65 64 2d 73 74 61 72 74 20 28 73 31 20 73 32 29 0a 20 20 22 52 65 74 75 | n.s-shared-start.(s1.s2)..."Retu |
| 1f60 | 72 6e 73 20 74 68 65 20 6c 6f 6e 67 65 73 74 20 70 72 65 66 69 78 20 53 31 20 61 6e 64 20 53 32 | rns.the.longest.prefix.S1.and.S2 |
| 1f80 | 20 68 61 76 65 20 69 6e 20 63 6f 6d 6d 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 | .have.in.common."...(declare.(pu |
| 1fa0 | 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c | re.t).(side-effect-free.t))...(l |
| 1fc0 | 65 74 20 28 28 63 6d 70 20 28 63 6f 6d 70 61 72 65 2d 73 74 72 69 6e 67 73 20 73 31 20 30 20 28 | et.((cmp.(compare-strings.s1.0.( |
| 1fe0 | 6c 65 6e 67 74 68 20 73 31 29 20 73 32 20 30 20 28 6c 65 6e 67 74 68 20 73 32 29 29 29 29 0a 20 | length.s1).s2.0.(length.s2)))).. |
| 2000 | 20 20 20 28 69 66 20 28 65 71 20 63 6d 70 20 74 29 20 73 31 20 28 73 75 62 73 74 72 69 6e 67 20 | ...(if.(eq.cmp.t).s1.(substring. |
| 2020 | 73 31 20 30 20 28 31 2d 20 28 61 62 73 20 63 6d 70 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | s1.0.(1-.(abs.cmp))))))..(defun. |
| 2040 | 73 2d 73 68 61 72 65 64 2d 65 6e 64 20 28 73 31 20 73 32 29 0a 20 20 22 52 65 74 75 72 6e 73 20 | s-shared-end.(s1.s2)..."Returns. |
| 2060 | 74 68 65 20 6c 6f 6e 67 65 73 74 20 73 75 66 66 69 78 20 53 31 20 61 6e 64 20 53 32 20 68 61 76 | the.longest.suffix.S1.and.S2.hav |
| 2080 | 65 20 69 6e 20 63 6f 6d 6d 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 | e.in.common."...(declare.(pure.t |
| 20a0 | 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 2a 20 | ).(side-effect-free.t))...(let*. |
| 20c0 | 28 28 6c 31 20 28 6c 65 6e 67 74 68 20 73 31 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 32 20 28 | ((l1.(length.s1))..........(l2.( |
| 20e0 | 6c 65 6e 67 74 68 20 73 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 6c 65 6e | length.s2))..........(search-len |
| 2100 | 67 74 68 20 28 6d 69 6e 20 6c 31 20 6c 32 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 20 30 29 29 | gth.(min.l1.l2))..........(i.0)) |
| 2120 | 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c 20 69 20 73 65 61 72 63 68 2d 6c 65 6e | .....(while.(and.(<.i.search-len |
| 2140 | 67 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 61 72 65 66 20 73 31 | gth).................(=.(aref.s1 |
| 2160 | 20 28 2d 20 6c 31 20 69 20 31 29 29 20 28 61 72 65 66 20 73 32 20 28 2d 20 6c 32 20 69 20 31 29 | .(-.l1.i.1)).(aref.s2.(-.l2.i.1) |
| 2180 | 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 0a 20 20 20 20 3b | ))).......(setq.i.(1+.i))).....; |
| 21a0 | 3b 20 49 66 20 49 20 69 73 20 30 2c 20 74 68 65 6e 20 69 74 20 6d 65 61 6e 73 20 74 68 61 74 20 | ;.If.I.is.0,.then.it.means.that. |
| 21c0 | 74 68 65 72 65 27 73 20 6e 6f 20 63 6f 6d 6d 6f 6e 20 73 75 66 66 69 78 20 62 65 74 77 65 65 6e | there's.no.common.suffix.between |
| 21e0 | 0a 20 20 20 20 3b 3b 20 53 31 20 61 6e 64 20 53 32 2e 0a 20 20 20 20 3b 3b 0a 20 20 20 20 3b 3b | .....;;.S1.and.S2......;;.....;; |
| 2200 | 20 48 6f 77 65 76 65 72 2c 20 73 69 6e 63 65 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 28 2d 20 | .However,.since.(substring.s.(-. |
| 2220 | 30 29 29 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 74 68 65 20 77 68 6f 6c 65 0a 20 20 20 20 3b 3b | 0)).will.return.the.whole.....;; |
| 2240 | 20 73 74 72 69 6e 67 2c 20 60 73 2d 73 68 61 72 65 64 2d 65 6e 64 27 20 73 68 6f 75 6c 64 20 73 | .string,.`s-shared-end'.should.s |
| 2260 | 69 6d 70 6c 79 20 72 65 74 75 72 6e 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 0a 20 20 | imply.return.the.empty.string... |
| 2280 | 20 20 3b 3b 20 77 68 65 6e 20 49 20 69 73 20 30 2e 0a 20 20 20 20 28 69 66 20 28 7a 65 72 6f 70 | ..;;.when.I.is.0......(if.(zerop |
| 22a0 | 20 69 29 0a 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 | .i)........."".......(substring. |
| 22c0 | 73 31 20 28 2d 20 69 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 68 6f 6d 70 20 28 73 29 | s1.(-.i)))))..(defun.s-chomp.(s) |
| 22e0 | 0a 20 20 22 52 65 6d 6f 76 65 20 6f 6e 65 20 74 72 61 69 6c 69 6e 67 20 60 5c 5c 6e 60 2c 20 60 | ..."Remove.one.trailing.`\\n`,.` |
| 2300 | 5c 5c 72 60 20 6f 72 20 60 5c 5c 72 5c 5c 6e 60 20 66 72 6f 6d 20 53 2e 22 0a 20 20 28 64 65 63 | \\r`.or.`\\r\\n`.from.S."...(dec |
| 2320 | 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 | lare.(pure.t).(side-effect-free. |
| 2340 | 74 29 29 0a 20 20 28 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 65 73 20 27 28 22 5c 6e 22 20 22 5c | t))...(s-chop-suffixes.'("\n"."\ |
| 2360 | 72 22 29 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 74 72 75 6e 63 61 74 65 20 28 6c 65 6e 20 | r").s))..(defun.s-truncate.(len. |
| 2380 | 73 20 26 6f 70 74 69 6f 6e 61 6c 20 65 6c 6c 69 70 73 69 73 29 0a 20 20 22 49 66 20 53 20 69 73 | s.&optional.ellipsis)..."If.S.is |
| 23a0 | 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 63 75 74 20 69 74 20 64 6f 77 6e 20 61 6e | .longer.than.LEN,.cut.it.down.an |
| 23c0 | 64 20 61 64 64 20 45 4c 4c 49 50 53 49 53 20 74 6f 20 74 68 65 20 65 6e 64 2e 0a 0a 54 68 65 20 | d.add.ELLIPSIS.to.the.end...The. |
| 23e0 | 72 65 73 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 2c 20 69 6e 63 6c 75 64 69 6e 67 20 65 6c 6c 69 | resulting.string,.including.elli |
| 2400 | 70 73 69 73 2c 20 77 69 6c 6c 20 62 65 20 4c 45 4e 20 63 68 61 72 61 63 74 65 72 73 0a 6c 6f 6e | psis,.will.be.LEN.characters.lon |
| 2420 | 67 2e 0a 0a 57 68 65 6e 20 6e 6f 74 20 73 70 65 63 69 66 69 65 64 2c 20 45 4c 4c 49 50 53 49 53 | g...When.not.specified,.ELLIPSIS |
| 2440 | 20 64 65 66 61 75 6c 74 73 20 74 6f 20 e2 80 98 2e 2e 2e e2 80 99 2e 22 0a 20 20 28 64 65 63 6c | .defaults.to..........."...(decl |
| 2460 | 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 | are.(pure.t).(side-effect-free.t |
| 2480 | 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 65 6c 6c 69 70 73 69 73 0a 20 20 20 20 28 73 65 74 71 20 | ))...(unless.ellipsis.....(setq. |
| 24a0 | 65 6c 6c 69 70 73 69 73 20 22 2e 2e 2e 22 29 29 0a 20 20 28 69 66 20 28 3e 20 28 6c 65 6e 67 74 | ellipsis."..."))...(if.(>.(lengt |
| 24c0 | 68 20 73 29 20 6c 65 6e 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 28 | h.s).len).......(format."%s%s".( |
| 24e0 | 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 28 2d 20 6c 65 6e 20 28 6c 65 6e 67 74 68 20 65 6c 6c | substring.s.0.(-.len.(length.ell |
| 2500 | 69 70 73 69 73 29 29 29 20 65 6c 6c 69 70 73 69 73 29 0a 20 20 20 20 73 29 29 0a 0a 28 64 65 66 | ipsis))).ellipsis).....s))..(def |
| 2520 | 75 6e 20 73 2d 77 6f 72 64 2d 77 72 61 70 20 28 6c 65 6e 20 73 29 0a 20 20 22 49 66 20 53 20 69 | un.s-word-wrap.(len.s)..."If.S.i |
| 2540 | 73 20 6c 6f 6e 67 65 72 20 74 68 61 6e 20 4c 45 4e 2c 20 77 72 61 70 20 74 68 65 20 77 6f 72 64 | s.longer.than.LEN,.wrap.the.word |
| 2560 | 73 20 77 69 74 68 20 6e 65 77 6c 69 6e 65 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 | s.with.newlines."...(declare.(si |
| 2580 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 | de-effect-free.t))...(save-match |
| 25a0 | 2d 64 61 74 61 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 | -data.....(with-temp-buffer..... |
| 25c0 | 20 20 28 69 6e 73 65 72 74 20 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 6c 2d 63 | ..(insert.s).......(let.((fill-c |
| 25e0 | 6f 6c 75 6d 6e 20 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6c 6c 2d 72 65 67 69 6f 6e | olumn.len)).........(fill-region |
| 2600 | 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 | .(point-min).(point-max)))...... |
| 2620 | 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 | .(buffer-substring.(point-min).( |
| 2640 | 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 65 6e 74 65 72 20 | point-max)))))..(defun.s-center. |
| 2660 | 28 6c 65 6e 20 73 29 0a 20 20 22 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 | (len.s)..."If.S.is.shorter.than. |
| 2680 | 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 73 70 61 63 65 73 20 73 6f 20 69 74 20 69 73 | LEN,.pad.it.with.spaces.so.it.is |
| 26a0 | 20 63 65 6e 74 65 72 65 64 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 | .centered."...(declare.(pure.t). |
| 26c0 | 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 65 | (side-effect-free.t))...(let.((e |
| 26e0 | 78 74 72 61 20 28 6d 61 78 20 30 20 28 2d 20 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 29 29 29 29 | xtra.(max.0.(-.len.(length.s)))) |
| 2700 | 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | ).....(concat......(make-string. |
| 2720 | 28 63 65 69 6c 69 6e 67 20 65 78 74 72 61 20 32 29 20 3f 5c 73 29 0a 20 20 20 20 20 73 0a 20 20 | (ceiling.extra.2).?\s)......s... |
| 2740 | 20 20 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 66 6c 6f 6f 72 20 65 78 74 72 61 20 32 29 20 | ...(make-string.(floor.extra.2). |
| 2760 | 3f 5c 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 70 61 64 2d 6c 65 66 74 20 28 6c 65 6e 20 | ?\s))))..(defun.s-pad-left.(len. |
| 2780 | 70 61 64 64 69 6e 67 20 73 29 0a 20 20 22 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 20 74 68 | padding.s)..."If.S.is.shorter.th |
| 27a0 | 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 50 41 44 44 49 4e 47 20 6f 6e 20 74 | an.LEN,.pad.it.with.PADDING.on.t |
| 27c0 | 68 65 20 6c 65 66 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 | he.left."...(declare.(pure.t).(s |
| 27e0 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 65 78 74 | ide-effect-free.t))...(let.((ext |
| 2800 | 72 61 20 28 6d 61 78 20 30 20 28 2d 20 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 29 29 29 29 29 0a | ra.(max.0.(-.len.(length.s))))). |
| 2820 | 20 20 20 20 28 63 6f 6e 63 61 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 65 78 74 72 61 20 28 | ....(concat.(make-string.extra.( |
| 2840 | 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 70 61 64 64 69 6e 67 29 29 0a 20 20 20 20 20 20 20 | string-to-char.padding))........ |
| 2860 | 20 20 20 20 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 70 61 64 2d 72 69 67 68 74 20 28 6c | .....s)))..(defun.s-pad-right.(l |
| 2880 | 65 6e 20 70 61 64 64 69 6e 67 20 73 29 0a 20 20 22 49 66 20 53 20 69 73 20 73 68 6f 72 74 65 72 | en.padding.s)..."If.S.is.shorter |
| 28a0 | 20 74 68 61 6e 20 4c 45 4e 2c 20 70 61 64 20 69 74 20 77 69 74 68 20 50 41 44 44 49 4e 47 20 6f | .than.LEN,.pad.it.with.PADDING.o |
| 28c0 | 6e 20 74 68 65 20 72 69 67 68 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 | n.the.right."...(declare.(pure.t |
| 28e0 | 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 | ).(side-effect-free.t))...(let.( |
| 2900 | 28 65 78 74 72 61 20 28 6d 61 78 20 30 20 28 2d 20 6c 65 6e 20 28 6c 65 6e 67 74 68 20 73 29 29 | (extra.(max.0.(-.len.(length.s)) |
| 2920 | 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d | ))).....(concat.s.............(m |
| 2940 | 61 6b 65 2d 73 74 72 69 6e 67 20 65 78 74 72 61 20 28 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 | ake-string.extra.(string-to-char |
| 2960 | 20 70 61 64 64 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6c 65 66 74 20 28 6c 65 | .padding)))))..(defun.s-left.(le |
| 2980 | 6e 20 73 29 0a 20 20 22 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 68 65 20 4c 45 4e 20 66 69 | n.s)..."Returns.up.to.the.LEN.fi |
| 29a0 | 72 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 | rst.chars.of.S."...(declare.(pur |
| 29c0 | 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 69 66 | e.t).(side-effect-free.t))...(if |
| 29e0 | 20 28 3e 20 28 6c 65 6e 67 74 68 20 73 29 20 6c 65 6e 29 0a 20 20 20 20 20 20 28 73 75 62 73 74 | .(>.(length.s).len).......(subst |
| 2a00 | 72 69 6e 67 20 73 20 30 20 6c 65 6e 29 0a 20 20 20 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d | ring.s.0.len).....s))..(defun.s- |
| 2a20 | 72 69 67 68 74 20 28 6c 65 6e 20 73 29 0a 20 20 22 52 65 74 75 72 6e 73 20 75 70 20 74 6f 20 74 | right.(len.s)..."Returns.up.to.t |
| 2a40 | 68 65 20 4c 45 4e 20 6c 61 73 74 20 63 68 61 72 73 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c | he.LEN.last.chars.of.S."...(decl |
| 2a60 | 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 | are.(pure.t).(side-effect-free.t |
| 2a80 | 29 29 0a 20 20 28 6c 65 74 20 28 28 6c 20 28 6c 65 6e 67 74 68 20 73 29 29 29 0a 20 20 20 20 28 | ))...(let.((l.(length.s))).....( |
| 2aa0 | 69 66 20 28 3e 20 6c 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 | if.(>.l.len).........(substring. |
| 2ac0 | 73 20 28 2d 20 6c 20 6c 65 6e 29 20 6c 29 0a 20 20 20 20 20 20 73 29 29 29 0a 0a 28 64 65 66 75 | s.(-.l.len).l).......s)))..(defu |
| 2ae0 | 6e 20 73 2d 63 68 6f 70 2d 6c 65 66 74 20 28 6c 65 6e 20 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 | n.s-chop-left.(len.s)..."Remove. |
| 2b00 | 74 68 65 20 66 69 72 73 74 20 4c 45 4e 20 63 68 61 72 73 20 66 72 6f 6d 20 53 2e 22 0a 20 20 28 | the.first.LEN.chars.from.S."...( |
| 2b20 | 6c 65 74 20 28 28 6c 20 28 6c 65 6e 67 74 68 20 73 29 29 29 0a 20 20 20 20 28 69 66 20 28 3e 20 | let.((l.(length.s))).....(if.(>. |
| 2b40 | 6c 20 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 6c 65 6e 20 | l.len).........(substring.s.len. |
| 2b60 | 6c 29 0a 20 20 20 20 20 20 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 68 6f 70 2d 72 69 | l)......."")))..(defun.s-chop-ri |
| 2b80 | 67 68 74 20 28 6c 65 6e 20 73 29 0a 20 20 22 52 65 6d 6f 76 65 20 74 68 65 20 6c 61 73 74 20 4c | ght.(len.s)..."Remove.the.last.L |
| 2ba0 | 45 4e 20 63 68 61 72 73 20 66 72 6f 6d 20 53 2e 22 0a 20 20 28 6c 65 74 20 28 28 6c 20 28 6c 65 | EN.chars.from.S."...(let.((l.(le |
| 2bc0 | 6e 67 74 68 20 73 29 29 29 0a 20 20 20 20 28 69 66 20 28 3e 20 6c 20 6c 65 6e 29 0a 20 20 20 20 | ngth.s))).....(if.(>.l.len)..... |
| 2be0 | 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 28 2d 20 6c 20 6c 65 6e 29 29 0a 20 20 | ....(substring.s.0.(-.l.len))... |
| 2c00 | 20 20 20 20 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 65 6e 64 73 2d 77 69 74 68 3f 20 28 | ...."")))..(defun.s-ends-with?.( |
| 2c20 | 73 75 66 66 69 78 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 0a | suffix.s.&optional.ignore-case). |
| 2c40 | 20 20 22 44 6f 65 73 20 53 20 65 6e 64 20 77 69 74 68 20 53 55 46 46 49 58 3f 0a 0a 49 66 20 49 | .."Does.S.end.with.SUFFIX?..If.I |
| 2c60 | 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 | GNORE-CASE.is.non-nil,.the.compa |
| 2c80 | 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 | rison.is.done.without.paying.att |
| 2ca0 | 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 | ention.to.case.differences...Ali |
| 2cc0 | 61 73 3a 20 60 73 2d 73 75 66 66 69 78 3f 27 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 | as:.`s-suffix?'"...(declare.(pur |
| 2ce0 | 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 | e.t).(side-effect-free.t))...(le |
| 2d00 | 74 20 28 28 73 74 61 72 74 2d 70 6f 73 20 28 2d 20 28 6c 65 6e 67 74 68 20 73 29 20 28 6c 65 6e | t.((start-pos.(-.(length.s).(len |
| 2d20 | 67 74 68 20 73 75 66 66 69 78 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 3e 3d 20 73 74 61 72 | gth.suffix)))).....(and.(>=.star |
| 2d40 | 74 2d 70 6f 73 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 65 71 20 74 20 28 63 6f 6d 70 61 72 65 | t-pos.0)..........(eq.t.(compare |
| 2d60 | 2d 73 74 72 69 6e 67 73 20 73 75 66 66 69 78 20 6e 69 6c 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | -strings.suffix.nil.nil......... |
| 2d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 73 74 61 72 74 2d | ........................s.start- |
| 2da0 | 70 6f 73 20 6e 69 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e | pos.nil.ignore-case)))))..(defun |
| 2dc0 | 20 73 2d 73 74 61 72 74 73 2d 77 69 74 68 3f 20 28 70 72 65 66 69 78 20 73 20 26 6f 70 74 69 6f | .s-starts-with?.(prefix.s.&optio |
| 2de0 | 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 0a 20 20 22 44 6f 65 73 20 53 20 73 74 61 72 74 | nal.ignore-case)..."Does.S.start |
| 2e00 | 20 77 69 74 68 20 50 52 45 46 49 58 3f 0a 0a 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 | .with.PREFIX?..If.IGNORE-CASE.is |
| 2e20 | 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 | .non-nil,.the.comparison.is.done |
| 2e40 | 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 | .without.paying.attention.to.cas |
| 2e60 | 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 0a 0a 41 6c 69 61 73 3a 20 60 73 2d 70 72 65 66 69 78 | e.differences...Alias:.`s-prefix |
| 2e80 | 3f 27 2e 20 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f | ?'..This.is.a.simple.wrapper.aro |
| 2ea0 | 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 0a 60 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d | und.the.built-in.`string-prefix- |
| 2ec0 | 70 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 | p'."...(declare.(pure.t).(side-e |
| 2ee0 | 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d | ffect-free.t))...(string-prefix- |
| 2f00 | 70 20 70 72 65 66 69 78 20 73 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 29 0a 0a 28 64 65 66 75 6e | p.prefix.s.ignore-case))..(defun |
| 2f20 | 20 73 2d 2d 74 72 75 74 68 79 3f 20 28 76 61 6c 29 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 | .s--truthy?.(val)...(declare.(pu |
| 2f40 | 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6e | re.t).(side-effect-free.t))...(n |
| 2f60 | 6f 74 20 28 6e 75 6c 6c 20 76 61 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 6f 6e 74 61 69 | ot.(null.val)))..(defun.s-contai |
| 2f80 | 6e 73 3f 20 28 6e 65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 2d 63 | ns?.(needle.s.&optional.ignore-c |
| 2fa0 | 61 73 65 29 0a 20 20 22 44 6f 65 73 20 53 20 63 6f 6e 74 61 69 6e 20 4e 45 45 44 4c 45 3f 0a 0a | ase)..."Does.S.contain.NEEDLE?.. |
| 2fc0 | 49 66 20 49 47 4e 4f 52 45 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 | If.IGNORE-CASE.is.non-nil,.the.c |
| 2fe0 | 6f 6d 70 61 72 69 73 6f 6e 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 | omparison.is.done.without.paying |
| 3000 | 0a 61 74 74 65 6e 74 69 6f 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 22 | .attention.to.case.differences." |
| 3020 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 | ...(declare.(pure.t).(side-effec |
| 3040 | 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 | t-free.t))...(let.((case-fold-se |
| 3060 | 61 72 63 68 20 69 67 6e 6f 72 65 2d 63 61 73 65 29 29 0a 20 20 20 20 28 73 2d 2d 74 72 75 74 68 | arch.ignore-case)).....(s--truth |
| 3080 | 79 3f 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 | y?.(string-match-p.(regexp-quote |
| 30a0 | 20 6e 65 65 64 6c 65 29 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 65 71 75 61 6c 73 3f | .needle).s))))..(defun.s-equals? |
| 30c0 | 20 28 73 31 20 73 32 29 0a 20 20 22 49 73 20 53 31 20 65 71 75 61 6c 20 74 6f 20 53 32 3f 0a 0a | .(s1.s2)..."Is.S1.equal.to.S2?.. |
| 30e0 | 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 | This.is.a.simple.wrapper.around. |
| 3100 | 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 2d 65 71 75 61 6c 27 2e 22 0a 20 20 | the.built-in.`string-equal'."... |
| 3120 | 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | (declare.(pure.t).(side-effect-f |
| 3140 | 72 65 65 20 74 29 29 0a 20 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 73 31 20 73 32 29 29 0a | ree.t))...(string-equal.s1.s2)). |
| 3160 | 0a 28 64 65 66 75 6e 20 73 2d 6c 65 73 73 3f 20 28 73 31 20 73 32 29 0a 20 20 22 49 73 20 53 31 | .(defun.s-less?.(s1.s2)..."Is.S1 |
| 3180 | 20 6c 65 73 73 20 74 68 61 6e 20 53 32 3f 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 | .less.than.S2?..This.is.a.simple |
| 31a0 | 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 | .wrapper.around.the.built-in.`st |
| 31c0 | 72 69 6e 67 2d 6c 65 73 73 70 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 | ring-lessp'."...(declare.(pure.t |
| 31e0 | 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 74 72 69 6e | ).(side-effect-free.t))...(strin |
| 3200 | 67 2d 6c 65 73 73 70 20 73 31 20 73 32 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6d 61 74 63 68 65 | g-lessp.s1.s2))..(defun.s-matche |
| 3220 | 73 3f 20 28 72 65 67 65 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 29 0a 20 20 | s?.(regexp.s.&optional.start)... |
| 3240 | 22 44 6f 65 73 20 52 45 47 45 58 50 20 6d 61 74 63 68 20 53 3f 0a 49 66 20 53 54 41 52 54 20 69 | "Does.REGEXP.match.S?.If.START.i |
| 3260 | 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 65 20 73 65 61 72 63 68 20 73 74 61 72 74 73 20 61 74 20 74 | s.non-nil.the.search.starts.at.t |
| 3280 | 68 61 74 20 69 6e 64 65 78 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 | hat.index...This.is.a.simple.wra |
| 32a0 | 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 73 74 72 69 6e 67 | pper.around.the.built-in.`string |
| 32c0 | 2d 6d 61 74 63 68 2d 70 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 | -match-p'."...(declare.(side-eff |
| 32e0 | 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 2d 74 72 75 74 68 79 3f 20 28 73 74 72 69 | ect-free.t))...(s--truthy?.(stri |
| 3300 | 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 67 65 78 70 20 73 20 73 74 61 72 74 29 29 29 0a 0a 28 64 | ng-match-p.regexp.s.start)))..(d |
| 3320 | 65 66 75 6e 20 73 2d 62 6c 61 6e 6b 3f 20 28 73 29 0a 20 20 22 49 73 20 53 20 6e 69 6c 20 6f 72 | efun.s-blank?.(s)..."Is.S.nil.or |
| 3340 | 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 3f 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 | .the.empty.string?"...(declare.( |
| 3360 | 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 | pure.t).(side-effect-free.t))... |
| 3380 | 28 6f 72 20 28 6e 75 6c 6c 20 73 29 20 28 73 74 72 69 6e 67 3d 20 22 22 20 73 29 29 29 0a 0a 28 | (or.(null.s).(string=."".s)))..( |
| 33a0 | 64 65 66 75 6e 20 73 2d 62 6c 61 6e 6b 2d 73 74 72 3f 20 28 73 29 0a 20 20 22 49 73 20 53 20 6e | defun.s-blank-str?.(s)..."Is.S.n |
| 33c0 | 69 6c 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 20 6f 72 20 73 74 72 69 6e 67 | il.or.the.empty.string.or.string |
| 33e0 | 20 6f 6e 6c 79 20 63 6f 6e 74 61 69 6e 73 20 77 68 69 74 65 73 70 61 63 65 3f 22 0a 20 20 28 64 | .only.contains.whitespace?"...(d |
| 3400 | 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 | eclare.(pure.t).(side-effect-fre |
| 3420 | 65 20 74 29 29 0a 20 20 28 6f 72 20 28 73 2d 62 6c 61 6e 6b 3f 20 73 29 20 28 73 2d 62 6c 61 6e | e.t))...(or.(s-blank?.s).(s-blan |
| 3440 | 6b 3f 20 28 73 2d 74 72 69 6d 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 70 72 65 73 65 | k?.(s-trim.s))))..(defun.s-prese |
| 3460 | 6e 74 3f 20 28 73 29 0a 20 20 22 49 73 20 53 20 61 6e 79 74 68 69 6e 67 20 62 75 74 20 6e 69 6c | nt?.(s)..."Is.S.anything.but.nil |
| 3480 | 20 6f 72 20 74 68 65 20 65 6d 70 74 79 20 73 74 72 69 6e 67 3f 22 0a 20 20 28 64 65 63 6c 61 72 | .or.the.empty.string?"...(declar |
| 34a0 | 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 | e.(pure.t).(side-effect-free.t)) |
| 34c0 | 0a 20 20 28 6e 6f 74 20 28 73 2d 62 6c 61 6e 6b 3f 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | ...(not.(s-blank?.s)))..(defun.s |
| 34e0 | 2d 70 72 65 73 65 6e 63 65 20 28 73 29 0a 20 20 22 52 65 74 75 72 6e 20 53 20 69 66 20 69 74 27 | -presence.(s)..."Return.S.if.it' |
| 3500 | 73 20 60 73 2d 70 72 65 73 65 6e 74 3f 27 2c 20 6f 74 68 65 72 77 69 73 65 20 72 65 74 75 72 6e | s.`s-present?',.otherwise.return |
| 3520 | 20 6e 69 6c 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 | .nil."...(declare.(pure.t).(side |
| 3540 | 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 61 6e 64 20 28 73 2d 70 72 65 73 65 | -effect-free.t))...(and.(s-prese |
| 3560 | 6e 74 3f 20 73 29 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6c 6f 77 65 72 63 61 73 65 3f 20 | nt?.s).s))..(defun.s-lowercase?. |
| 3580 | 28 73 29 0a 20 20 22 41 72 65 20 61 6c 6c 20 74 68 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 20 | (s)..."Are.all.the.letters.in.S. |
| 35a0 | 69 6e 20 6c 6f 77 65 72 20 63 61 73 65 3f 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 | in.lower.case?"...(declare.(side |
| 35c0 | 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 | -effect-free.t))...(let.((case-f |
| 35e0 | 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 29 29 0a 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e | old-search.nil)).....(not.(strin |
| 3600 | 67 2d 6d 61 74 63 68 2d 70 20 22 5b 5b 3a 75 70 70 65 72 3a 5d 5d 22 20 73 29 29 29 29 0a 0a 28 | g-match-p."[[:upper:]]".s))))..( |
| 3620 | 64 65 66 75 6e 20 73 2d 75 70 70 65 72 63 61 73 65 3f 20 28 73 29 0a 20 20 22 41 72 65 20 61 6c | defun.s-uppercase?.(s)..."Are.al |
| 3640 | 6c 20 74 68 65 20 6c 65 74 74 65 72 73 20 69 6e 20 53 20 69 6e 20 75 70 70 65 72 20 63 61 73 65 | l.the.letters.in.S.in.upper.case |
| 3660 | 3f 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 | ?"...(declare.(side-effect-free. |
| 3680 | 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 | t))...(let.((case-fold-search.ni |
| 36a0 | 6c 29 29 0a 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5b 5b | l)).....(not.(string-match-p."[[ |
| 36c0 | 3a 6c 6f 77 65 72 3a 5d 5d 22 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6d 69 78 65 64 | :lower:]]".s))))..(defun.s-mixed |
| 36e0 | 63 61 73 65 3f 20 28 73 29 0a 20 20 22 41 72 65 20 74 68 65 72 65 20 62 6f 74 68 20 6c 6f 77 65 | case?.(s)..."Are.there.both.lowe |
| 3700 | 72 20 63 61 73 65 20 61 6e 64 20 75 70 70 65 72 20 63 61 73 65 20 6c 65 74 74 65 72 73 20 69 6e | r.case.and.upper.case.letters.in |
| 3720 | 20 53 3f 22 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e | .S?"...(let.((case-fold-search.n |
| 3740 | 69 6c 29 29 0a 20 20 20 20 28 73 2d 2d 74 72 75 74 68 79 3f 0a 20 20 20 20 20 28 61 6e 64 20 28 | il)).....(s--truthy?......(and.( |
| 3760 | 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5b 5b 3a 6c 6f 77 65 72 3a 5d 5d 22 20 73 29 0a | string-match-p."[[:lower:]]".s). |
| 3780 | 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5b 5b 3a 75 70 | ..........(string-match-p."[[:up |
| 37a0 | 70 65 72 3a 5d 5d 22 20 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 61 70 69 74 61 6c | per:]]".s)))))..(defun.s-capital |
| 37c0 | 69 7a 65 64 3f 20 28 73 29 0a 20 20 22 49 6e 20 53 2c 20 69 73 20 74 68 65 20 66 69 72 73 74 20 | ized?.(s)..."In.S,.is.the.first. |
| 37e0 | 6c 65 74 74 65 72 20 75 70 70 65 72 20 63 61 73 65 2c 20 61 6e 64 20 61 6c 6c 20 6f 74 68 65 72 | letter.upper.case,.and.all.other |
| 3800 | 20 6c 65 74 74 65 72 73 20 6c 6f 77 65 72 20 63 61 73 65 3f 22 0a 20 20 28 64 65 63 6c 61 72 65 | .letters.lower.case?"...(declare |
| 3820 | 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 | .(side-effect-free.t))...(let.(( |
| 3840 | 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 29 29 0a 20 20 20 20 28 73 2d 2d 74 | case-fold-search.nil)).....(s--t |
| 3860 | 72 75 74 68 79 3f 0a 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5e 5b 5b | ruthy?......(string-match-p."^[[ |
| 3880 | 3a 75 70 70 65 72 3a 5d 5d 5b 5e 5b 3a 75 70 70 65 72 3a 5d 5d 2a 24 22 20 73 29 29 29 29 0a 0a | :upper:]][^[:upper:]]*$".s)))).. |
| 38a0 | 28 64 65 66 75 6e 20 73 2d 6e 75 6d 65 72 69 63 3f 20 28 73 29 0a 20 20 22 49 73 20 53 20 61 20 | (defun.s-numeric?.(s)..."Is.S.a. |
| 38c0 | 6e 75 6d 62 65 72 3f 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 | number?"...(declare.(pure.t).(si |
| 38e0 | 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 2d 74 72 75 74 68 79 3f | de-effect-free.t))...(s--truthy? |
| 3900 | 0a 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5e 5b 30 2d 39 5d 2b 24 22 20 73 | ....(string-match-p."^[0-9]+$".s |
| 3920 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 72 65 70 6c 61 63 65 20 28 6f 6c 64 20 6e 65 77 20 73 | )))..(defun.s-replace.(old.new.s |
| 3940 | 29 0a 20 20 22 52 65 70 6c 61 63 65 73 20 4f 4c 44 20 77 69 74 68 20 4e 45 57 20 69 6e 20 53 2e | )..."Replaces.OLD.with.NEW.in.S. |
| 3960 | 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 | "...(declare.(pure.t).(side-effe |
| 3980 | 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e | ct-free.t))...(replace-regexp-in |
| 39a0 | 2d 73 74 72 69 6e 67 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 6f 6c 64 29 20 6e 65 77 20 73 | -string.(regexp-quote.old).new.s |
| 39c0 | 20 74 20 74 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 72 65 70 6c 61 63 65 2d 72 65 67 | .t.t))..(defalias.'s-replace-reg |
| 39e0 | 65 78 70 20 27 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 29 0a 0a | exp.'replace-regexp-in-string).. |
| 3a00 | 28 64 65 66 75 6e 20 73 2d 2d 61 67 65 74 20 28 61 6c 69 73 74 20 6b 65 79 29 0a 20 20 22 47 65 | (defun.s--aget.(alist.key)..."Ge |
| 3a20 | 74 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 4b 45 59 20 69 6e 20 41 4c 49 53 54 2e 22 0a 20 20 | t.the.value.of.KEY.in.ALIST."... |
| 3a40 | 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 | (declare.(pure.t).(side-effect-f |
| 3a60 | 72 65 65 20 74 29 29 0a 20 20 28 63 64 72 20 28 61 73 73 6f 63 2d 73 74 72 69 6e 67 20 6b 65 79 | ree.t))...(cdr.(assoc-string.key |
| 3a80 | 20 61 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 72 65 70 6c 61 63 65 2d 61 6c 6c 20 | .alist)))..(defun.s-replace-all. |
| 3aa0 | 28 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 73 29 0a 20 20 22 52 45 50 4c 41 43 45 4d 45 4e 54 53 | (replacements.s)..."REPLACEMENTS |
| 3ac0 | 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6e 73 2d 63 65 6c 6c 73 2e 20 45 61 63 68 20 60 | .is.a.list.of.cons-cells..Each.` |
| 3ae0 | 63 61 72 60 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 60 63 64 72 60 20 69 6e 20 53 | car`.is.replaced.with.`cdr`.in.S |
| 3b00 | 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 | ."...(declare.(pure.t).(side-eff |
| 3b20 | 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d | ect-free.t))...(let.((case-fold- |
| 3b40 | 73 65 61 72 63 68 20 6e 69 6c 29 29 0a 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d | search.nil))....(replace-regexp- |
| 3b60 | 69 6e 2d 73 74 72 69 6e 67 20 28 72 65 67 65 78 70 2d 6f 70 74 20 28 6d 61 70 63 61 72 20 27 63 | in-string.(regexp-opt.(mapcar.'c |
| 3b80 | 61 72 20 72 65 70 6c 61 63 65 6d 65 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.replacements))............... |
| 3ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 69 74 29 20 28 73 2d 2d | ...............(lambda.(it).(s-- |
| 3bc0 | 61 67 65 74 20 72 65 70 6c 61 63 65 6d 65 6e 74 73 20 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 | aget.replacements.it)).......... |
| 3be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 74 20 74 29 29 29 0a 0a 28 64 | ....................s.t.t)))..(d |
| 3c00 | 65 66 75 6e 20 73 2d 64 6f 77 6e 63 61 73 65 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 | efun.s-downcase.(s)..."Convert.S |
| 3c20 | 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c | .to.lower.case...This.is.a.simpl |
| 3c40 | 65 20 77 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 64 | e.wrapper.around.the.built-in.`d |
| 3c60 | 6f 77 6e 63 61 73 65 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 | owncase'."...(declare.(side-effe |
| 3c80 | 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 64 6f 77 6e 63 61 73 65 20 73 29 29 0a 0a 28 64 65 | ct-free.t))...(downcase.s))..(de |
| 3ca0 | 66 75 6e 20 73 2d 75 70 63 61 73 65 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 6f | fun.s-upcase.(s)..."Convert.S.to |
| 3cc0 | 20 75 70 70 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 | .upper.case...This.is.a.simple.w |
| 3ce0 | 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 75 70 63 61 | rapper.around.the.built-in.`upca |
| 3d00 | 73 65 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | se'."...(declare.(side-effect-fr |
| 3d20 | 65 65 20 74 29 29 0a 20 20 28 75 70 63 61 73 65 20 73 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 | ee.t))...(upcase.s))..(defun.s-c |
| 3d40 | 61 70 69 74 61 6c 69 7a 65 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 66 69 72 73 74 | apitalize.(s)..."Convert.S.first |
| 3d60 | 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 74 6f 20 75 70 70 65 72 | .word's.first.character.to.upper |
| 3d80 | 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 65 72 20 63 61 73 65 2e 22 0a 20 20 | .and.the.rest.to.lower.case."... |
| 3da0 | 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 | (declare.(side-effect-free.t)).. |
| 3dc0 | 20 28 63 6f 6e 63 61 74 20 28 75 70 63 61 73 65 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 | .(concat.(upcase.(substring.s.0. |
| 3de0 | 31 29 29 20 28 64 6f 77 6e 63 61 73 65 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 31 29 29 29 29 | 1)).(downcase.(substring.s.1)))) |
| 3e00 | 0a 0a 28 64 65 66 75 6e 20 73 2d 74 69 74 6c 65 69 7a 65 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 | ..(defun.s-titleize.(s)..."Conve |
| 3e20 | 72 74 20 69 6e 20 53 20 65 61 63 68 20 77 6f 72 64 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 | rt.in.S.each.word's.first.charac |
| 3e40 | 74 65 72 20 74 6f 20 75 70 70 65 72 20 61 6e 64 20 74 68 65 20 72 65 73 74 20 74 6f 20 6c 6f 77 | ter.to.upper.and.the.rest.to.low |
| 3e60 | 65 72 20 63 61 73 65 2e 0a 0a 54 68 69 73 20 69 73 20 61 20 73 69 6d 70 6c 65 20 77 72 61 70 70 | er.case...This.is.a.simple.wrapp |
| 3e80 | 65 72 20 61 72 6f 75 6e 64 20 74 68 65 20 62 75 69 6c 74 2d 69 6e 20 60 63 61 70 69 74 61 6c 69 | er.around.the.built-in.`capitali |
| 3ea0 | 7a 65 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | ze'."...(declare.(side-effect-fr |
| 3ec0 | 65 65 20 74 29 29 0a 20 20 28 63 61 70 69 74 61 6c 69 7a 65 20 73 29 29 0a 0a 28 64 65 66 6d 61 | ee.t))...(capitalize.s))..(defma |
| 3ee0 | 63 72 6f 20 73 2d 77 69 74 68 20 28 73 20 66 6f 72 6d 20 26 72 65 73 74 20 6d 6f 72 65 29 0a 20 | cro.s-with.(s.form.&rest.more).. |
| 3f00 | 20 22 54 68 72 65 61 64 73 20 53 20 74 68 72 6f 75 67 68 20 74 68 65 20 66 6f 72 6d 73 2e 20 49 | ."Threads.S.through.the.forms..I |
| 3f20 | 6e 73 65 72 74 73 20 53 20 61 73 20 74 68 65 20 6c 61 73 74 20 69 74 65 6d 0a 69 6e 20 74 68 65 | nserts.S.as.the.last.item.in.the |
| 3f40 | 20 66 69 72 73 74 20 66 6f 72 6d 2c 20 6d 61 6b 69 6e 67 20 61 20 6c 69 73 74 20 6f 66 20 69 74 | .first.form,.making.a.list.of.it |
| 3f60 | 20 69 66 20 69 74 20 69 73 20 6e 6f 74 20 61 20 6c 69 73 74 0a 61 6c 72 65 61 64 79 2e 20 49 66 | .if.it.is.not.a.list.already..If |
| 3f80 | 20 74 68 65 72 65 20 61 72 65 20 6d 6f 72 65 20 66 6f 72 6d 73 2c 20 69 6e 73 65 72 74 73 20 74 | .there.are.more.forms,.inserts.t |
| 3fa0 | 68 65 20 66 69 72 73 74 20 66 6f 72 6d 20 61 73 20 74 68 65 0a 6c 61 73 74 20 69 74 65 6d 20 69 | he.first.form.as.the.last.item.i |
| 3fc0 | 6e 20 73 65 63 6f 6e 64 20 66 6f 72 6d 2c 20 65 74 63 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 | n.second.form,.etc."...(declare. |
| 3fe0 | 28 64 65 62 75 67 20 28 66 6f 72 6d 20 26 72 65 73 74 20 5b 26 6f 72 20 28 66 75 6e 63 74 69 6f | (debug.(form.&rest.[&or.(functio |
| 4000 | 6e 20 26 72 65 73 74 20 66 6f 72 6d 29 20 66 62 6f 75 6e 64 70 5d 29 29 29 0a 20 20 28 69 66 20 | n.&rest.form).fboundp])))...(if. |
| 4020 | 28 6e 75 6c 6c 20 6d 6f 72 65 29 0a 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 66 6f 72 | (null.more).......(if.(listp.for |
| 4040 | 6d 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 2c 28 63 61 72 20 66 6f 72 6d 29 20 2c 40 28 63 64 | m)...........`(,(car.form).,@(cd |
| 4060 | 72 20 66 6f 72 6d 29 20 2c 73 29 0a 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 6f 72 6d 20 73 | r.form).,s).........(list.form.s |
| 4080 | 29 29 0a 20 20 20 20 60 28 73 2d 77 69 74 68 20 28 73 2d 77 69 74 68 20 2c 73 20 2c 66 6f 72 6d | )).....`(s-with.(s-with.,s.,form |
| 40a0 | 29 20 2c 40 6d 6f 72 65 29 29 29 0a 0a 28 70 75 74 20 27 73 2d 77 69 74 68 20 27 6c 69 73 70 2d | ).,@more)))..(put.'s-with.'lisp- |
| 40c0 | 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 0a 0a 28 64 65 66 75 6e 20 73 2d 69 6e 64 | indent-function.1)..(defun.s-ind |
| 40e0 | 65 78 2d 6f 66 20 28 6e 65 65 64 6c 65 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f 72 65 | ex-of.(needle.s.&optional.ignore |
| 4100 | 2d 63 61 73 65 29 0a 20 20 22 52 65 74 75 72 6e 73 20 66 69 72 73 74 20 69 6e 64 65 78 20 6f 66 | -case)..."Returns.first.index.of |
| 4120 | 20 4e 45 45 44 4c 45 20 69 6e 20 53 2c 20 6f 72 20 6e 69 6c 2e 0a 0a 49 66 20 49 47 4e 4f 52 45 | .NEEDLE.in.S,.or.nil...If.IGNORE |
| 4140 | 2d 43 41 53 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 68 65 20 63 6f 6d 70 61 72 69 73 6f 6e | -CASE.is.non-nil,.the.comparison |
| 4160 | 20 69 73 20 64 6f 6e 65 20 77 69 74 68 6f 75 74 20 70 61 79 69 6e 67 0a 61 74 74 65 6e 74 69 6f | .is.done.without.paying.attentio |
| 4180 | 6e 20 74 6f 20 63 61 73 65 20 64 69 66 66 65 72 65 6e 63 65 73 2e 22 0a 20 20 28 64 65 63 6c 61 | n.to.case.differences."...(decla |
| 41a0 | 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 | re.(pure.t).(side-effect-free.t) |
| 41c0 | 29 0a 20 20 28 6c 65 74 20 28 28 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 69 67 6e 6f | )...(let.((case-fold-search.igno |
| 41e0 | 72 65 2d 63 61 73 65 29 29 0a 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 72 | re-case)).....(string-match-p.(r |
| 4200 | 65 67 65 78 70 2d 71 75 6f 74 65 20 6e 65 65 64 6c 65 29 20 73 29 29 29 0a 0a 28 64 65 66 75 6e | egexp-quote.needle).s)))..(defun |
| 4220 | 20 73 2d 72 65 76 65 72 73 65 20 28 73 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 65 76 | .s-reverse.(s)..."Return.the.rev |
| 4240 | 65 72 73 65 20 6f 66 20 53 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 | erse.of.S."...(declare.(pure.t). |
| 4260 | 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 61 76 65 2d 6d 61 | (side-effect-free.t))...(save-ma |
| 4280 | 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 69 66 20 28 6d 75 6c 74 69 62 79 74 65 2d 73 74 72 69 | tch-data.....(if.(multibyte-stri |
| 42a0 | 6e 67 2d 70 20 73 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 70 75 74 20 28 73 74 | ng-p.s).........(let.((input.(st |
| 42c0 | 72 69 6e 67 2d 74 6f 2d 6c 69 73 74 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f | ring-to-list.s))...............o |
| 42e0 | 75 74 70 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 75 63 73 2d 6e | utput)...........(require.'ucs-n |
| 4300 | 6f 72 6d 61 6c 69 7a 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 69 6e 70 75 74 | ormalize)...........(while.input |
| 4320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 48 61 6e 64 6c 65 20 65 6e 74 69 72 65 20 67 72 | .............;;.Handle.entire.gr |
| 4340 | 61 70 68 65 6d 65 20 63 6c 75 73 74 65 72 20 61 73 20 61 20 73 69 6e 67 6c 65 20 75 6e 69 74 0a | apheme.cluster.as.a.single.unit. |
| 4360 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 67 72 61 70 68 65 6d 65 20 28 6c 69 73 | ............(let.((grapheme.(lis |
| 4380 | 74 20 28 70 6f 70 20 69 6e 70 75 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | t.(pop.input))))...............( |
| 43a0 | 77 68 69 6c 65 20 28 6d 65 6d 71 6c 20 28 63 61 72 20 69 6e 70 75 74 29 20 75 63 73 2d 6e 6f 72 | while.(memql.(car.input).ucs-nor |
| 43c0 | 6d 61 6c 69 7a 65 2d 63 6f 6d 62 69 6e 69 6e 67 2d 63 68 61 72 73 29 0a 20 20 20 20 20 20 20 20 | malize-combining-chars)......... |
| 43e0 | 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 70 6f 70 20 69 6e 70 75 74 29 20 67 72 61 70 68 65 | ........(push.(pop.input).graphe |
| 4400 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 75 74 70 75 74 20 | me))...............(setq.output. |
| 4420 | 28 6e 63 6f 6e 63 20 28 6e 72 65 76 65 72 73 65 20 67 72 61 70 68 65 6d 65 29 20 6f 75 74 70 75 | (nconc.(nreverse.grapheme).outpu |
| 4440 | 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 6f 75 74 70 75 74 29 29 | t))))...........(concat.output)) |
| 4460 | 0a 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 6e 72 65 76 65 72 73 65 20 28 73 74 72 69 6e 67 | .......(concat.(nreverse.(string |
| 4480 | 2d 74 6f 2d 6c 69 73 74 20 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6d 61 74 63 68 | -to-list.s))))))..(defun.s-match |
| 44a0 | 2d 73 74 72 69 6e 67 73 2d 61 6c 6c 20 28 72 65 67 65 78 20 73 74 72 69 6e 67 29 0a 20 20 22 52 | -strings-all.(regex.string)..."R |
| 44c0 | 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 20 66 6f 72 20 52 45 47 45 | eturn.a.list.of.matches.for.REGE |
| 44e0 | 58 20 69 6e 20 53 54 52 49 4e 47 2e 0a 0a 45 61 63 68 20 65 6c 65 6d 65 6e 74 20 69 74 73 65 6c | X.in.STRING...Each.element.itsel |
| 4500 | 66 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 73 2c 20 61 73 20 70 65 72 0a 60 | f.is.a.list.of.matches,.as.per.` |
| 4520 | 6d 61 74 63 68 2d 73 74 72 69 6e 67 27 2e 20 4d 75 6c 74 69 70 6c 65 20 6d 61 74 63 68 65 73 20 | match-string'..Multiple.matches. |
| 4540 | 61 74 20 74 68 65 20 73 61 6d 65 20 70 6f 73 69 74 69 6f 6e 20 77 69 6c 6c 20 62 65 0a 69 67 6e | at.the.same.position.will.be.ign |
| 4560 | 6f 72 65 64 20 61 66 74 65 72 20 74 68 65 20 66 69 72 73 74 2e 22 0a 20 20 28 64 65 63 6c 61 72 | ored.after.the.first."...(declar |
| 4580 | 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 61 76 65 2d | e.(side-effect-free.t))...(save- |
| 45a0 | 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 6c 65 74 20 28 28 61 6c 6c 2d 73 74 72 69 6e 67 | match-data.....(let.((all-string |
| 45c0 | 73 20 28 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 20 30 29 29 0a 20 20 20 20 20 20 28 77 68 | s.())...........(i.0)).......(wh |
| 45e0 | 69 6c 65 20 28 61 6e 64 20 28 3c 20 69 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 0a 20 | ile.(and.(<.i.(length.string)).. |
| 4600 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 | .................(string-match.r |
| 4620 | 65 67 65 78 20 73 74 72 69 6e 67 20 69 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 20 | egex.string.i)).........(setq.i. |
| 4640 | 28 31 2b 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 | (1+.(match-beginning.0)))....... |
| 4660 | 20 20 28 6c 65 74 20 28 73 74 72 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e | ..(let.(strings...............(n |
| 4680 | 75 6d 2d 6d 61 74 63 68 65 73 20 28 2f 20 28 6c 65 6e 67 74 68 20 28 6d 61 74 63 68 2d 64 61 74 | um-matches.(/.(length.(match-dat |
| 46a0 | 61 29 29 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 20 30 29 29 | a)).2))...............(match.0)) |
| 46c0 | 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 2f 3d 20 6d 61 74 63 68 20 6e 75 6d 2d | ...........(while.(/=.match.num- |
| 46e0 | 6d 61 74 63 68 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6d 61 74 63 | matches).............(push.(matc |
| 4700 | 68 2d 73 74 72 69 6e 67 20 6d 61 74 63 68 20 73 74 72 69 6e 67 29 20 73 74 72 69 6e 67 73 29 0a | h-string.match.string).strings). |
| 4720 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 74 63 68 20 28 31 2b 20 6d 61 74 63 | ............(setq.match.(1+.matc |
| 4740 | 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6e 72 65 76 65 72 73 65 20 73 | h)))...........(push.(nreverse.s |
| 4760 | 74 72 69 6e 67 73 29 20 61 6c 6c 2d 73 74 72 69 6e 67 73 29 29 29 0a 20 20 20 20 20 20 28 6e 72 | trings).all-strings))).......(nr |
| 4780 | 65 76 65 72 73 65 20 61 6c 6c 2d 73 74 72 69 6e 67 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | everse.all-strings))))..(defun.s |
| 47a0 | 2d 6d 61 74 63 68 65 64 2d 70 6f 73 69 74 69 6f 6e 73 2d 61 6c 6c 20 28 72 65 67 65 78 70 20 73 | -matched-positions-all.(regexp.s |
| 47c0 | 74 72 69 6e 67 20 26 6f 70 74 69 6f 6e 61 6c 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 0a 20 20 | tring.&optional.subexp-depth)... |
| 47e0 | 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 65 64 20 70 6f 73 69 74 69 | "Return.a.list.of.matched.positi |
| 4800 | 6f 6e 73 20 66 6f 72 20 52 45 47 45 58 50 20 69 6e 20 53 54 52 49 4e 47 2e 0a 53 55 42 45 58 50 | ons.for.REGEXP.in.STRING..SUBEXP |
| 4820 | 2d 44 45 50 54 48 20 69 73 20 30 20 62 79 20 64 65 66 61 75 6c 74 2e 22 0a 20 20 28 64 65 63 6c | -DEPTH.is.0.by.default."...(decl |
| 4840 | 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 69 66 20 | are.(side-effect-free.t))...(if. |
| 4860 | 28 6e 75 6c 6c 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 | (null.subexp-depth).......(setq. |
| 4880 | 73 75 62 65 78 70 2d 64 65 70 74 68 20 30 29 29 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 | subexp-depth.0))...(save-match-d |
| 48a0 | 61 74 61 0a 20 20 20 20 28 6c 65 74 20 28 28 70 6f 73 20 30 29 20 72 65 73 75 6c 74 29 0a 20 20 | ata.....(let.((pos.0).result)... |
| 48c0 | 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 | ....(while.(and.(string-match.re |
| 48e0 | 67 65 78 70 20 73 74 72 69 6e 67 20 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gexp.string.pos)................ |
| 4900 | 20 20 20 28 3c 20 70 6f 73 20 28 6c 65 6e 67 74 68 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 | ...(<.pos.(length.string)))..... |
| 4920 | 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 | ....(push.(cons.(match-beginning |
| 4940 | 20 73 75 62 65 78 70 2d 64 65 70 74 68 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 73 75 62 65 78 70 | .subexp-depth).(match-end.subexp |
| 4960 | 2d 64 65 70 74 68 29 29 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 | -depth)).result).........(setq.p |
| 4980 | 6f 73 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 0a 20 20 20 20 20 20 28 6e 72 65 76 65 72 | os.(match-end.0))).......(nrever |
| 49a0 | 73 65 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6d 61 74 63 68 20 28 72 | se.result))))..(defun.s-match.(r |
| 49c0 | 65 67 65 78 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 29 0a 20 20 22 57 68 65 6e | egexp.s.&optional.start)..."When |
| 49e0 | 20 74 68 65 20 67 69 76 65 6e 20 65 78 70 72 65 73 73 69 6f 6e 20 6d 61 74 63 68 65 73 20 74 68 | .the.given.expression.matches.th |
| 4a00 | 65 20 73 74 72 69 6e 67 2c 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 | e.string,.this.function.returns. |
| 4a20 | 61 20 6c 69 73 74 0a 6f 66 20 74 68 65 20 77 68 6f 6c 65 20 6d 61 74 63 68 69 6e 67 20 73 74 72 | a.list.of.the.whole.matching.str |
| 4a40 | 69 6e 67 20 61 6e 64 20 61 20 73 74 72 69 6e 67 20 66 6f 72 20 65 61 63 68 20 6d 61 74 63 68 65 | ing.and.a.string.for.each.matche |
| 4a60 | 64 20 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73 2e 0a 53 75 62 65 78 70 72 65 73 73 69 6f 6e 73 | d.subexpressions..Subexpressions |
| 4a80 | 20 74 68 61 74 20 64 69 64 6e 27 74 20 6d 61 74 63 68 20 61 72 65 20 72 65 70 72 65 73 65 6e 74 | .that.didn't.match.are.represent |
| 4aa0 | 65 64 20 62 79 20 6e 69 6c 20 65 6c 65 6d 65 6e 74 73 0a 69 6e 20 74 68 65 20 6c 69 73 74 2c 20 | ed.by.nil.elements.in.the.list,. |
| 4ac0 | 65 78 63 65 70 74 20 74 68 61 74 20 6e 6f 6e 2d 6d 61 74 63 68 69 6e 67 20 73 75 62 65 78 70 72 | except.that.non-matching.subexpr |
| 4ae0 | 65 73 73 69 6f 6e 73 20 61 74 20 74 68 65 20 65 6e 64 0a 6f 66 20 52 45 47 45 58 50 20 6d 69 67 | essions.at.the.end.of.REGEXP.mig |
| 4b00 | 68 74 20 6e 6f 74 20 61 70 70 65 61 72 20 61 74 20 61 6c 6c 20 69 6e 20 74 68 65 20 6c 69 73 74 | ht.not.appear.at.all.in.the.list |
| 4b20 | 2e 20 20 54 68 61 74 20 69 73 2c 20 74 68 65 0a 72 65 74 75 72 6e 65 64 20 6c 69 73 74 20 63 61 | ...That.is,.the.returned.list.ca |
| 4b40 | 6e 20 62 65 20 73 68 6f 72 74 65 72 20 74 68 61 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 | n.be.shorter.than.the.number.of. |
| 4b60 | 73 75 62 65 78 70 72 65 73 73 69 6f 6e 73 20 69 6e 0a 52 45 47 45 58 50 20 70 6c 75 73 20 6f 6e | subexpressions.in.REGEXP.plus.on |
| 4b80 | 65 2e 20 20 49 66 20 52 45 47 45 58 50 20 64 69 64 20 6e 6f 74 20 6d 61 74 63 68 20 74 68 65 20 | e...If.REGEXP.did.not.match.the. |
| 4ba0 | 72 65 74 75 72 6e 65 64 20 76 61 6c 75 65 20 69 73 0a 61 6e 20 65 6d 70 74 79 20 6c 69 73 74 20 | returned.value.is.an.empty.list. |
| 4bc0 | 28 6e 69 6c 29 2e 0a 0a 57 68 65 6e 20 53 54 41 52 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 74 68 | (nil)...When.START.is.non-nil.th |
| 4be0 | 65 20 73 65 61 72 63 68 20 77 69 6c 6c 20 73 74 61 72 74 20 61 74 20 74 68 61 74 20 69 6e 64 65 | e.search.will.start.at.that.inde |
| 4c00 | 78 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | x."...(declare.(side-effect-free |
| 4c20 | 20 74 29 29 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 69 66 20 | .t))...(save-match-data.....(if. |
| 4c40 | 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 73 20 73 74 61 72 74 29 0a 20 20 | (string-match.regexp.s.start)... |
| 4c60 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 2d 64 61 74 61 2d 6c 69 73 74 20 28 6d 61 | ......(let.((match-data-list.(ma |
| 4c80 | 74 63 68 2d 64 61 74 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 75 6c 74 29 | tch-data))...............result) |
| 4ca0 | 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 6d 61 74 63 68 2d 64 61 74 61 2d 6c 69 73 | ...........(while.match-data-lis |
| 4cc0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 65 67 20 28 63 61 72 20 6d | t.............(let*.((beg.(car.m |
| 4ce0 | 61 74 63 68 2d 64 61 74 61 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | atch-data-list))................ |
| 4d00 | 20 20 20 20 28 65 6e 64 20 28 63 61 64 72 20 6d 61 74 63 68 2d 64 61 74 61 2d 6c 69 73 74 29 29 | ....(end.(cadr.match-data-list)) |
| 4d20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 20 28 69 66 20 28 61 | ....................(subs.(if.(a |
| 4d40 | 6e 64 20 62 65 67 20 65 6e 64 29 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 62 65 67 20 65 6e 64 | nd.beg.end).(substring.s.beg.end |
| 4d60 | 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 | ).nil)))...............(setq.res |
| 4d80 | 75 6c 74 20 28 63 6f 6e 73 20 73 75 62 73 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 | ult.(cons.subs.result))......... |
| 4da0 | 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 74 63 68 2d 64 61 74 61 2d 6c 69 73 74 0a 20 20 20 20 | ......(setq.match-data-list..... |
| 4dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 64 72 20 6d 61 74 63 68 2d 64 61 74 61 | ................(cddr.match-data |
| 4de0 | 2d 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 | -list))))...........(nreverse.re |
| 4e00 | 73 75 6c 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 73 6c 69 63 65 2d 61 74 20 28 72 65 | sult)))))..(defun.s-slice-at.(re |
| 4e20 | 67 65 78 70 20 73 29 0a 20 20 22 53 6c 69 63 65 73 20 53 20 75 70 20 61 74 20 65 76 65 72 79 20 | gexp.s)..."Slices.S.up.at.every. |
| 4e40 | 69 6e 64 65 78 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 22 0a 20 20 28 64 65 63 6c 61 | index.matching.REGEXP."...(decla |
| 4e60 | 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 69 66 20 28 | re.(side-effect-free.t))...(if.( |
| 4e80 | 73 2d 62 6c 61 6e 6b 3f 20 73 29 0a 20 20 20 20 20 20 28 6c 69 73 74 20 73 29 0a 20 20 20 20 28 | s-blank?.s).......(list.s).....( |
| 4ea0 | 6c 65 74 20 28 73 73 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 73 2d 62 6c | let.(ss).......(while.(not.(s-bl |
| 4ec0 | 61 6e 6b 3f 20 73 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 | ank?.s)).........(save-match-dat |
| 4ee0 | 61 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 20 28 73 74 72 69 6e 67 2d 6d 61 74 | a...........(let.((i.(string-mat |
| 4f00 | 63 68 20 72 65 67 65 78 70 20 73 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | ch.regexp.s.1))).............(if |
| 4f20 | 20 69 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 73 20 28 63 6f 6e | .i.................(setq.ss.(con |
| 4f40 | 73 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 69 29 20 73 73 29 0a 20 20 20 20 20 20 20 20 | s.(substring.s.0.i).ss)......... |
| 4f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 69 29 29 | ..............s.(substring.s.i)) |
| 4f80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 73 20 28 63 6f 6e 73 20 73 20 | ...............(setq.ss.(cons.s. |
| 4fa0 | 73 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 20 22 22 29 29 29 29 | ss).....................s."")))) |
| 4fc0 | 29 0a 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 73 73 29 29 29 29 0a 0a 28 64 65 66 75 6e | ).......(nreverse.ss))))..(defun |
| 4fe0 | 20 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 28 73 29 0a 20 20 22 53 70 6c 69 74 20 53 20 69 6e | .s-split-words.(s)..."Split.S.in |
| 5000 | 74 6f 20 6c 69 73 74 20 6f 66 20 77 6f 72 64 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 | to.list.of.words."...(declare.(s |
| 5020 | 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 73 70 6c 69 74 0a 20 | ide-effect-free.t))...(s-split.. |
| 5040 | 20 20 22 5b 5e 5b 3a 77 6f 72 64 3a 5d 30 2d 39 5d 2b 22 0a 20 20 20 28 6c 65 74 20 28 28 63 61 | .."[^[:word:]0-9]+"....(let.((ca |
| 5060 | 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 6e 69 6c 29 29 0a 20 20 20 20 20 28 72 65 70 6c 61 | se-fold-search.nil))......(repla |
| 5080 | 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 22 5c 5c 28 5b 5b | ce-regexp-in-string......."\\([[ |
| 50a0 | 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 22 20 22 | :lower:]]\\)\\([[:upper:]]\\)"." |
| 50c0 | 5c 5c 31 20 5c 5c 32 22 0a 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 | \\1.\\2".......(replace-regexp-i |
| 50e0 | 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 28 5b 5b 3a 75 70 70 65 72 3a 5d 5d 5c 5c 29 5c 5c 28 5b 5b | n-string."\\([[:upper:]]\\)\\([[ |
| 5100 | 3a 75 70 70 65 72 3a 5d 5d 5b 30 2d 39 5b 3a 6c 6f 77 65 72 3a 5d 5d 5c 5c 29 22 20 22 5c 5c 31 | :upper:]][0-9[:lower:]]\\)"."\\1 |
| 5120 | 20 5c 5c 32 22 20 73 29 29 29 0a 20 20 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 2d 6d 61 70 | .\\2".s)))....t))..(defun.s--map |
| 5140 | 63 61 72 2d 68 65 61 64 20 28 66 6e 2d 68 65 61 64 20 66 6e 2d 72 65 73 74 20 6c 69 73 74 29 0a | car-head.(fn-head.fn-rest.list). |
| 5160 | 20 20 22 4c 69 6b 65 20 4d 41 50 43 41 52 2c 20 62 75 74 20 61 70 70 6c 69 65 73 20 61 20 64 69 | .."Like.MAPCAR,.but.applies.a.di |
| 5180 | 66 66 65 72 65 6e 74 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 65 6c | fferent.function.to.the.first.el |
| 51a0 | 65 6d 65 6e 74 2e 22 0a 20 20 28 69 66 20 6c 69 73 74 0a 20 20 20 20 20 20 28 63 6f 6e 73 20 28 | ement."...(if.list.......(cons.( |
| 51c0 | 66 75 6e 63 61 6c 6c 20 66 6e 2d 68 65 61 64 20 28 63 61 72 20 6c 69 73 74 29 29 20 28 6d 61 70 | funcall.fn-head.(car.list)).(map |
| 51e0 | 63 61 72 20 66 6e 2d 72 65 73 74 20 28 63 64 72 20 6c 69 73 74 29 29 29 29 29 0a 0a 28 64 65 66 | car.fn-rest.(cdr.list)))))..(def |
| 5200 | 75 6e 20 73 2d 6c 6f 77 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 28 73 29 0a 20 20 22 43 6f 6e | un.s-lower-camel-case.(s)..."Con |
| 5220 | 76 65 72 74 20 53 20 74 6f 20 6c 6f 77 65 72 43 61 6d 65 6c 43 61 73 65 2e 22 0a 20 20 28 64 65 | vert.S.to.lowerCamelCase."...(de |
| 5240 | 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 | clare.(side-effect-free.t))...(s |
| 5260 | 2d 6a 6f 69 6e 20 22 22 20 28 73 2d 2d 6d 61 70 63 61 72 2d 68 65 61 64 20 27 64 6f 77 6e 63 61 | -join."".(s--mapcar-head.'downca |
| 5280 | 73 65 20 27 63 61 70 69 74 61 6c 69 7a 65 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 | se.'capitalize.(s-split-words.s) |
| 52a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 75 70 70 65 72 2d 63 61 6d 65 6c 2d 63 61 73 65 20 28 | )))..(defun.s-upper-camel-case.( |
| 52c0 | 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 55 70 70 65 72 43 61 6d 65 6c 43 61 73 | s)..."Convert.S.to.UpperCamelCas |
| 52e0 | 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 | e."...(declare.(side-effect-free |
| 5300 | 20 74 29 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 22 20 28 6d 61 70 63 61 72 20 27 63 61 70 69 74 | .t))...(s-join."".(mapcar.'capit |
| 5320 | 61 6c 69 7a 65 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 29 29 29 0a 0a 28 64 65 66 | alize.(s-split-words.s))))..(def |
| 5340 | 75 6e 20 73 2d 73 6e 61 6b 65 2d 63 61 73 65 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 | un.s-snake-case.(s)..."Convert.S |
| 5360 | 20 74 6f 20 73 6e 61 6b 65 5f 63 61 73 65 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 | .to.snake_case."...(declare.(sid |
| 5380 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 5f 22 20 | e-effect-free.t))...(s-join."_". |
| 53a0 | 28 6d 61 70 63 61 72 20 27 64 6f 77 6e 63 61 73 65 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 | (mapcar.'downcase.(s-split-words |
| 53c0 | 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 64 61 73 68 65 64 2d 77 6f 72 64 73 20 28 73 | .s))))..(defun.s-dashed-words.(s |
| 53e0 | 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 64 61 73 68 65 64 2d 77 6f 72 64 73 2e 22 | )..."Convert.S.to.dashed-words." |
| 5400 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 | ...(declare.(side-effect-free.t) |
| 5420 | 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 2d 22 20 28 6d 61 70 63 61 72 20 27 64 6f 77 6e 63 61 73 | )...(s-join."-".(mapcar.'downcas |
| 5440 | 65 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 | e.(s-split-words.s))))..(defun.s |
| 5460 | 2d 73 70 61 63 65 64 2d 77 6f 72 64 73 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 | -spaced-words.(s)..."Convert.S.t |
| 5480 | 6f 20 73 70 61 63 65 64 20 77 6f 72 64 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 | o.spaced.words."...(declare.(sid |
| 54a0 | 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 | e-effect-free.t))...(s-join.".". |
| 54c0 | 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 61 | (s-split-words.s)))..(defun.s-ca |
| 54e0 | 70 69 74 61 6c 69 7a 65 64 2d 77 6f 72 64 73 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 | pitalized-words.(s)..."Convert.S |
| 5500 | 20 74 6f 20 43 61 70 69 74 61 6c 69 7a 65 64 20 77 6f 72 64 73 2e 22 0a 20 20 28 64 65 63 6c 61 | .to.Capitalized.words."...(decla |
| 5520 | 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 74 20 | re.(side-effect-free.t))...(let. |
| 5540 | 28 28 77 6f 72 64 73 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 29 29 0a 20 20 20 20 | ((words.(s-split-words.s)))..... |
| 5560 | 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 63 6f 6e 73 20 28 63 61 70 69 74 61 6c 69 7a 65 20 28 63 | (s-join.".".(cons.(capitalize.(c |
| 5580 | 61 72 20 77 6f 72 64 73 29 29 20 28 6d 61 70 63 61 72 20 27 64 6f 77 6e 63 61 73 65 20 28 63 64 | ar.words)).(mapcar.'downcase.(cd |
| 55a0 | 72 20 77 6f 72 64 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 74 69 74 6c 65 69 7a 65 | r.words))))))..(defun.s-titleize |
| 55c0 | 64 2d 77 6f 72 64 73 20 28 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 54 69 74 6c | d-words.(s)..."Convert.S.to.Titl |
| 55e0 | 65 69 7a 65 64 20 57 6f 72 64 73 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 | eized.Words."...(declare.(side-e |
| 5600 | 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 20 22 20 28 6d 61 | ffect-free.t))...(s-join.".".(ma |
| 5620 | 70 63 61 72 20 27 73 2d 74 69 74 6c 65 69 7a 65 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 | pcar.'s-titleize.(s-split-words. |
| 5640 | 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 2d 77 6f 72 64 2d 69 6e 69 74 69 61 6c 73 20 28 73 | s))))..(defun.s-word-initials.(s |
| 5660 | 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 53 20 74 6f 20 69 74 73 20 69 6e 69 74 69 61 6c 73 2e 22 | )..."Convert.S.to.its.initials." |
| 5680 | 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 | ...(declare.(side-effect-free.t) |
| 56a0 | 29 0a 20 20 28 73 2d 6a 6f 69 6e 20 22 22 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 | )...(s-join."".(mapcar.(lambda.( |
| 56c0 | 73 73 29 20 28 73 75 62 73 74 72 69 6e 67 20 73 73 20 30 20 31 29 29 0a 20 20 20 20 20 20 20 20 | ss).(substring.ss.0.1))......... |
| 56e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 73 70 6c 69 74 2d 77 6f 72 64 73 20 73 29 29 29 | .............(s-split-words.s))) |
| 5700 | 29 0a 0a 3b 3b 20 45 72 72 6f 72 73 20 66 6f 72 20 73 2d 66 6f 72 6d 61 74 0a 28 70 72 6f 67 6e | )..;;.Errors.for.s-format.(progn |
| 5720 | 0a 20 20 28 70 75 74 20 27 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 0a 20 20 20 20 20 20 | ...(put.'s-format-resolve....... |
| 5740 | 20 27 65 72 72 6f 72 2d 63 6f 6e 64 69 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 27 28 65 72 72 6f | .'error-conditions........'(erro |
| 5760 | 72 20 73 2d 66 6f 72 6d 61 74 20 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 29 29 0a 20 20 | r.s-format.s-format-resolve))... |
| 5780 | 28 70 75 74 20 27 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 0a 20 20 20 20 20 20 20 27 65 | (put.'s-format-resolve........'e |
| 57a0 | 72 72 6f 72 2d 6d 65 73 73 61 67 65 0a 20 20 20 20 20 20 20 22 43 61 6e 6e 6f 74 20 72 65 73 6f | rror-message........"Cannot.reso |
| 57c0 | 6c 76 65 20 61 20 74 65 6d 70 6c 61 74 65 20 74 6f 20 76 61 6c 75 65 73 22 29 29 0a 0a 28 64 65 | lve.a.template.to.values"))..(de |
| 57e0 | 66 75 6e 20 73 2d 66 6f 72 6d 61 74 20 28 74 65 6d 70 6c 61 74 65 20 72 65 70 6c 61 63 65 72 20 | fun.s-format.(template.replacer. |
| 5800 | 26 6f 70 74 69 6f 6e 61 6c 20 65 78 74 72 61 29 0a 20 20 22 46 6f 72 6d 61 74 20 54 45 4d 50 4c | &optional.extra)..."Format.TEMPL |
| 5820 | 41 54 45 20 77 69 74 68 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 52 45 50 4c 41 43 45 52 2e 0a | ATE.with.the.function.REPLACER.. |
| 5840 | 0a 52 45 50 4c 41 43 45 52 20 74 61 6b 65 73 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 6f 66 20 74 | .REPLACER.takes.an.argument.of.t |
| 5860 | 68 65 20 66 6f 72 6d 61 74 20 76 61 72 69 61 62 6c 65 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c | he.format.variable.and.optionall |
| 5880 | 79 0a 61 6e 20 65 78 74 72 61 20 61 72 67 75 6d 65 6e 74 20 77 68 69 63 68 20 69 73 20 74 68 65 | y.an.extra.argument.which.is.the |
| 58a0 | 20 45 58 54 52 41 20 76 61 6c 75 65 20 66 72 6f 6d 20 74 68 65 20 63 61 6c 6c 20 74 6f 0a 60 73 | .EXTRA.value.from.the.call.to.`s |
| 58c0 | 2d 66 6f 72 6d 61 74 27 2e 0a 0a 53 65 76 65 72 61 6c 20 73 74 61 6e 64 61 72 64 20 60 73 2d 66 | -format'...Several.standard.`s-f |
| 58e0 | 6f 72 6d 61 74 27 20 68 65 6c 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 72 65 63 6f | ormat'.helper.functions.are.reco |
| 5900 | 67 6e 69 7a 65 64 20 61 6e 64 0a 61 64 61 70 74 65 64 20 66 6f 72 20 74 68 69 73 3a 0a 0a 20 20 | gnized.and.adapted.for.this:.... |
| 5920 | 20 20 28 73 2d 66 6f 72 6d 61 74 20 5c 22 24 7b 6e 61 6d 65 7d 5c 22 20 5c 5c 3d 27 67 65 74 68 | ..(s-format.\"${name}\".\\='geth |
| 5940 | 61 73 68 20 68 61 73 68 2d 74 61 62 6c 65 29 0a 20 20 20 20 28 73 2d 66 6f 72 6d 61 74 20 5c 22 | ash.hash-table).....(s-format.\" |
| 5960 | 24 7b 6e 61 6d 65 7d 5c 22 20 5c 5c 3d 27 61 67 65 74 20 61 6c 69 73 74 29 0a 20 20 20 20 28 73 | ${name}\".\\='aget.alist).....(s |
| 5980 | 2d 66 6f 72 6d 61 74 20 5c 22 24 30 5c 22 20 5c 5c 3d 27 65 6c 74 20 73 65 71 75 65 6e 63 65 29 | -format.\"$0\".\\='elt.sequence) |
| 59a0 | 0a 0a 54 68 65 20 52 45 50 4c 41 43 45 52 20 66 75 6e 63 74 69 6f 6e 20 6d 61 79 20 62 65 20 75 | ..The.REPLACER.function.may.be.u |
| 59c0 | 73 65 64 20 74 6f 20 64 6f 20 61 6e 79 20 6f 74 68 65 72 20 6b 69 6e 64 20 6f 66 0a 74 72 61 6e | sed.to.do.any.other.kind.of.tran |
| 59e0 | 73 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 61 76 65 64 2d 6d 61 74 63 | sformation."...(let.((saved-matc |
| 5a00 | 68 2d 64 61 74 61 20 28 6d 61 74 63 68 2d 64 61 74 61 29 29 29 0a 20 20 20 20 28 75 6e 77 69 6e | h-data.(match-data))).....(unwin |
| 5a20 | 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 | d-protect.........(replace-regex |
| 5a40 | 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 22 5c 5c 24 5c 5c 28 7b 5c 5c 28 | p-in-string.........."\\$\\({\\( |
| 5a60 | 5b 5e 7d 5d 2b 5c 5c 29 7d 5c 5c 7c 5b 30 2d 39 5d 2b 5c 5c 29 22 0a 20 20 20 20 20 20 20 20 20 | [^}]+\\)}\\|[0-9]+\\)".......... |
| 5a80 | 28 6c 61 6d 62 64 61 20 28 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 | (lambda.(md)............(let.((v |
| 5aa0 | 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 20 28 6d | ar...................(let.((m.(m |
| 5ac0 | 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 6d 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | atch-string.2.md)))............. |
| 5ae0 | 20 20 20 20 20 20 20 20 28 69 66 20 6d 20 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(if.m.m................. |
| 5b00 | 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 | ......(string-to-number.(match-s |
| 5b20 | 74 72 69 6e 67 20 31 20 6d 64 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tring.1.md)))))................. |
| 5b40 | 20 28 72 65 70 6c 61 63 65 72 2d 6d 61 74 63 68 2d 64 61 74 61 20 28 6d 61 74 63 68 2d 64 61 74 | .(replacer-match-data.(match-dat |
| 5b60 | 61 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 | a)))..............(unwind-protec |
| 5b80 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 76 0a 20 20 20 20 | t..................(let.((v..... |
| 5ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 | ....................(cond....... |
| 5bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 72 65 70 6c 61 63 65 72 | ...................((eq.replacer |
| 5be0 | 20 27 67 65 74 68 61 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'gethash)...................... |
| 5c00 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 70 6c 61 63 65 72 20 76 61 72 20 65 78 74 72 61 | .....(funcall.replacer.var.extra |
| 5c20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 | ))..........................((eq |
| 5c40 | 20 72 65 70 6c 61 63 65 72 20 27 61 67 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .replacer.'aget)................ |
| 5c60 | 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 27 73 2d 2d 61 67 65 74 20 65 78 74 | ...........(funcall.'s--aget.ext |
| 5c80 | 72 61 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ra.var))........................ |
| 5ca0 | 20 20 28 28 65 71 20 72 65 70 6c 61 63 65 72 20 27 65 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 | ..((eq.replacer.'elt)........... |
| 5cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 70 6c 61 63 65 | ................(funcall.replace |
| 5ce0 | 72 20 65 78 74 72 61 20 76 61 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.extra.var))................... |
| 5d00 | 20 20 20 20 20 20 20 28 28 65 71 20 72 65 70 6c 61 63 65 72 20 27 6f 72 65 66 29 0a 20 20 20 20 | .......((eq.replacer.'oref)..... |
| 5d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 23 | ......................(funcall.# |
| 5d40 | 27 73 6c 6f 74 2d 76 61 6c 75 65 20 65 78 74 72 61 20 28 69 6e 74 65 72 6e 20 76 61 72 29 29 29 | 'slot-value.extra.(intern.var))) |
| 5d60 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 | ..........................(t.... |
| 5d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 74 63 | .......................(set-matc |
| 5da0 | 68 2d 64 61 74 61 20 73 61 76 65 64 2d 6d 61 74 63 68 2d 64 61 74 61 29 0a 20 20 20 20 20 20 20 | h-data.saved-match-data)........ |
| 5dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 65 78 74 72 61 0a 20 20 20 | ...................(if.extra.... |
| 5de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 | ...........................(func |
| 5e00 | 61 6c 6c 20 72 65 70 6c 61 63 65 72 20 76 61 72 20 65 78 74 72 61 29 0a 20 20 20 20 20 20 20 20 | all.replacer.var.extra)......... |
| 5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 72 65 70 | ....................(funcall.rep |
| 5e40 | 6c 61 63 65 72 20 76 61 72 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lacer.var))))))................. |
| 5e60 | 20 20 20 28 69 66 20 76 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 76 29 20 28 73 69 67 6e 61 6c | ...(if.v.(format."%s".v).(signal |
| 5e80 | 20 27 73 2d 66 6f 72 6d 61 74 2d 72 65 73 6f 6c 76 65 20 6d 64 29 29 29 0a 20 20 20 20 20 20 20 | .'s-format-resolve.md)))........ |
| 5ea0 | 20 20 20 20 20 20 20 20 28 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 72 65 70 6c 61 63 65 72 | ........(set-match-data.replacer |
| 5ec0 | 2d 6d 61 74 63 68 2d 64 61 74 61 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 74 65 6d 70 6c 61 74 | -match-data))))..........templat |
| 5ee0 | 65 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 4e 65 65 64 20 6c 69 74 65 72 61 6c 20 74 6f 20 6d 61 | e..........;;.Need.literal.to.ma |
| 5f00 | 6b 65 20 73 75 72 65 20 69 74 20 77 6f 72 6b 73 0a 20 20 20 20 20 20 20 20 20 74 20 74 29 0a 20 | ke.sure.it.works..........t.t).. |
| 5f20 | 20 20 20 20 20 28 73 65 74 2d 6d 61 74 63 68 2d 64 61 74 61 20 73 61 76 65 64 2d 6d 61 74 63 68 | .....(set-match-data.saved-match |
| 5f40 | 2d 64 61 74 61 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 2d 6c 65 78 2d 76 61 6c 75 65 2d 61 | -data))))..(defvar.s-lex-value-a |
| 5f60 | 73 2d 6c 69 73 70 20 6e 69 6c 0a 20 20 22 49 66 20 60 74 27 20 69 6e 74 65 72 70 6f 6c 61 74 65 | s-lisp.nil..."If.`t'.interpolate |
| 5f80 | 20 6c 69 73 70 20 76 61 6c 75 65 73 20 61 73 20 6c 69 73 70 2e 0a 0a 60 73 2d 6c 65 78 2d 66 6f | .lisp.values.as.lisp...`s-lex-fo |
| 5fa0 | 72 6d 61 74 27 20 69 6e 73 65 72 74 73 20 76 61 6c 75 65 73 20 77 69 74 68 20 28 66 6f 72 6d 61 | rmat'.inserts.values.with.(forma |
| 5fc0 | 74 20 5c 22 25 53 5c 22 29 2e 22 29 0a 0a 28 64 65 66 75 6e 20 73 2d 6c 65 78 2d 66 6d 74 7c 65 | t.\"%S\").")..(defun.s-lex-fmt|e |
| 5fe0 | 78 70 61 6e 64 20 28 66 6d 74 29 0a 20 20 22 45 78 70 61 6e 64 20 46 4d 54 20 69 6e 74 6f 20 6c | xpand.(fmt)..."Expand.FMT.into.l |
| 6000 | 69 73 70 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 | isp."...(declare.(side-effect-fr |
| 6020 | 65 65 20 74 29 29 0a 20 20 28 6c 69 73 74 20 27 73 2d 66 6f 72 6d 61 74 20 66 6d 74 20 28 71 75 | ee.t))...(list.'s-format.fmt.(qu |
| 6040 | 6f 74 65 20 27 61 67 65 74 29 0a 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 27 28 6c 69 73 | ote.'aget).........(append.'(lis |
| 6060 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 | t).................(mapcar...... |
| 6080 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 61 74 63 68 65 73 29 0a 20 20 | ............(lambda.(matches)... |
| 60a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | .................(list.......... |
| 60c0 | 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........'cons................ |
| 60e0 | 20 20 20 20 20 28 63 61 64 72 20 6d 61 74 63 68 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .....(cadr.matches)............. |
| 6100 | 20 20 20 20 20 20 20 20 60 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........`(format................ |
| 6120 | 20 20 20 20 20 20 20 28 69 66 20 73 2d 6c 65 78 2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 20 22 | .......(if.s-lex-value-as-lisp." |
| 6140 | 25 53 22 20 22 25 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | %S"."%s")....................... |
| 6160 | 2c 28 69 6e 74 65 72 6e 20 28 63 61 64 72 20 6d 61 74 63 68 65 73 29 29 29 29 29 0a 20 20 20 20 | ,(intern.(cadr.matches)))))..... |
| 6180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 6d 61 74 63 68 2d 73 74 72 69 6e 67 73 2d 61 6c | .............(s-match-strings-al |
| 61a0 | 6c 20 22 24 7b 5c 5c 28 5b 5e 7d 5d 2b 5c 5c 29 7d 22 20 66 6d 74 29 29 29 29 29 0a 0a 28 64 65 | l."${\\([^}]+\\)}".fmt)))))..(de |
| 61c0 | 66 6d 61 63 72 6f 20 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 28 66 6f 72 6d 61 74 2d 73 74 72 29 | fmacro.s-lex-format.(format-str) |
| 61e0 | 0a 20 20 22 60 73 2d 66 6f 72 6d 61 74 60 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 | ..."`s-format`.with.the.current. |
| 6200 | 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 0a 0a 46 4f 52 4d 41 54 2d 53 54 52 20 6d 61 79 20 75 73 65 | environment...FORMAT-STR.may.use |
| 6220 | 20 74 68 65 20 60 73 2d 66 6f 72 6d 61 74 27 20 76 61 72 69 61 62 6c 65 20 72 65 66 65 72 65 6e | .the.`s-format'.variable.referen |
| 6240 | 63 65 20 74 6f 20 72 65 66 65 72 20 74 6f 0a 61 6e 79 20 76 61 72 69 61 62 6c 65 3a 0a 0a 20 28 | ce.to.refer.to.any.variable:...( |
| 6260 | 6c 65 74 20 28 28 78 20 31 29 29 0a 20 20 20 28 73 2d 6c 65 78 2d 66 6f 72 6d 61 74 20 5c 22 78 | let.((x.1))....(s-lex-format.\"x |
| 6280 | 20 69 73 3a 20 24 7b 78 7d 5c 22 29 29 0a 0a 54 68 65 20 76 61 6c 75 65 73 20 6f 66 20 74 68 65 | .is:.${x}\"))..The.values.of.the |
| 62a0 | 20 76 61 72 69 61 62 6c 65 73 20 61 72 65 20 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 | .variables.are.interpolated.with |
| 62c0 | 20 5c 22 25 73 5c 22 20 75 6e 6c 65 73 73 0a 74 68 65 20 76 61 72 69 61 62 6c 65 20 60 73 2d 6c | .\"%s\".unless.the.variable.`s-l |
| 62e0 | 65 78 2d 76 61 6c 75 65 2d 61 73 2d 6c 69 73 70 27 20 69 73 20 60 74 27 20 61 6e 64 20 74 68 65 | ex-value-as-lisp'.is.`t'.and.the |
| 6300 | 6e 20 74 68 65 79 20 61 72 65 0a 69 6e 74 65 72 70 6f 6c 61 74 65 64 20 77 69 74 68 20 5c 22 25 | n.they.are.interpolated.with.\"% |
| 6320 | 53 5c 22 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 66 6f 72 6d 29 29 29 | S\"."...(declare.(debug.(form))) |
| 6340 | 0a 20 20 28 73 2d 6c 65 78 2d 66 6d 74 7c 65 78 70 61 6e 64 20 66 6f 72 6d 61 74 2d 73 74 72 29 | ...(s-lex-fmt|expand.format-str) |
| 6360 | 29 0a 0a 28 64 65 66 75 6e 20 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 20 28 72 65 67 65 78 | )..(defun.s-count-matches.(regex |
| 6380 | 70 20 73 20 26 6f 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 43 6f 75 6e | p.s.&optional.start.end)..."Coun |
| 63a0 | 74 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 | t.occurrences.of.`regexp'.in.`s' |
| 63c0 | 2e 0a 0a 60 73 74 61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 | ...`start',.inclusive,.and.`end' |
| 63e0 | 2c 20 65 78 63 6c 75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 | ,.exclusive,.delimit.the.part.of |
| 6400 | 20 60 73 27 20 74 6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 | .`s'.to.match...`start'.and.`end |
| 6420 | 27 20 61 72 65 20 62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 | '.are.both.indexed.starting.at.1 |
| 6440 | 3b 20 74 68 65 20 69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 | ;.the.initial.character.in.`s'.i |
| 6460 | 73 20 69 6e 64 65 78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 | s.index.1...This.function.starts |
| 6480 | 20 6c 6f 6f 6b 69 6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d | .looking.for.the.next.match.from |
| 64a0 | 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 0a 70 72 65 76 69 6f 75 73 20 6d 61 74 63 68 2e 20 | .the.end.of.the.previous.match.. |
| 64c0 | 20 48 65 6e 63 65 2c 20 69 74 20 69 67 6e 6f 72 65 73 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 | .Hence,.it.ignores.matches.that. |
| 64e0 | 6f 76 65 72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 0a 66 6f 75 6e 64 20 6d 61 74 63 68 | overlap.a.previously.found.match |
| 6500 | 2e 20 20 54 6f 20 63 6f 75 6e 74 20 6f 76 65 72 6c 61 70 70 69 6e 67 20 6d 61 74 63 68 65 73 2c | ...To.count.overlapping.matches, |
| 6520 | 20 75 73 65 0a 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 27 2e 22 0a 20 20 28 | .use.`s-count-matches-all'."...( |
| 6540 | 64 65 63 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 | declare.(side-effect-free.t))... |
| 6560 | 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d | (save-match-data.....(with-temp- |
| 6580 | 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 29 0a 20 20 20 20 20 20 28 67 | buffer.......(insert.s).......(g |
| 65a0 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 63 6f 75 | oto-char.(point-min)).......(cou |
| 65c0 | 6e 74 2d 6d 61 74 63 68 65 73 20 72 65 67 65 78 70 20 28 6f 72 20 73 74 61 72 74 20 31 29 20 28 | nt-matches.regexp.(or.start.1).( |
| 65e0 | 6f 72 20 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | or.end.(point-max))))))..(defun. |
| 6600 | 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 2d 61 6c 6c 20 28 72 65 67 65 78 70 20 73 20 26 6f | s-count-matches-all.(regexp.s.&o |
| 6620 | 70 74 69 6f 6e 61 6c 20 73 74 61 72 74 20 65 6e 64 29 0a 20 20 22 43 6f 75 6e 74 20 6f 63 63 75 | ptional.start.end)..."Count.occu |
| 6640 | 72 72 65 6e 63 65 73 20 6f 66 20 60 72 65 67 65 78 70 27 20 69 6e 20 60 73 27 2e 0a 0a 60 73 74 | rrences.of.`regexp'.in.`s'...`st |
| 6660 | 61 72 74 27 2c 20 69 6e 63 6c 75 73 69 76 65 2c 20 61 6e 64 20 60 65 6e 64 27 2c 20 65 78 63 6c | art',.inclusive,.and.`end',.excl |
| 6680 | 75 73 69 76 65 2c 20 64 65 6c 69 6d 69 74 20 74 68 65 20 70 61 72 74 20 6f 66 20 60 73 27 20 74 | usive,.delimit.the.part.of.`s'.t |
| 66a0 | 6f 0a 6d 61 74 63 68 2e 20 20 60 73 74 61 72 74 27 20 61 6e 64 20 60 65 6e 64 27 20 61 72 65 20 | o.match...`start'.and.`end'.are. |
| 66c0 | 62 6f 74 68 20 69 6e 64 65 78 65 64 20 73 74 61 72 74 69 6e 67 20 61 74 20 31 3b 20 74 68 65 20 | both.indexed.starting.at.1;.the. |
| 66e0 | 69 6e 69 74 69 61 6c 0a 63 68 61 72 61 63 74 65 72 20 69 6e 20 60 73 27 20 69 73 20 69 6e 64 65 | initial.character.in.`s'.is.inde |
| 6700 | 78 20 31 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 74 61 72 74 73 20 6c 6f 6f 6b 69 | x.1...This.function.starts.looki |
| 6720 | 6e 67 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 6d 61 74 63 68 20 66 72 6f 6d 20 74 68 65 20 73 | ng.for.the.next.match.from.the.s |
| 6740 | 65 63 6f 6e 64 0a 63 68 61 72 61 63 74 65 72 20 6f 66 20 74 68 65 20 70 72 65 76 69 6f 75 73 20 | econd.character.of.the.previous. |
| 6760 | 6d 61 74 63 68 2e 20 20 48 65 6e 63 65 2c 20 69 74 20 63 6f 75 6e 74 73 20 6d 61 74 63 68 65 73 | match...Hence,.it.counts.matches |
| 6780 | 20 74 68 61 74 0a 6f 76 65 72 6c 61 70 20 61 20 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 | .that.overlap.a.previously.found |
| 67a0 | 20 6d 61 74 63 68 2e 20 20 54 6f 20 69 67 6e 6f 72 65 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 | .match...To.ignore.matches.that. |
| 67c0 | 6f 76 65 72 6c 61 70 20 61 0a 70 72 65 76 69 6f 75 73 6c 79 20 66 6f 75 6e 64 20 6d 61 74 63 68 | overlap.a.previously.found.match |
| 67e0 | 2c 20 75 73 65 20 60 73 2d 63 6f 75 6e 74 2d 6d 61 74 63 68 65 73 27 2e 22 0a 20 20 28 64 65 63 | ,.use.`s-count-matches'."...(dec |
| 6800 | 6c 61 72 65 20 28 73 69 64 65 2d 65 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 6c 65 | lare.(side-effect-free.t))...(le |
| 6820 | 74 2a 20 28 28 61 6e 63 68 6f 72 65 64 2d 72 65 67 65 78 70 20 28 66 6f 72 6d 61 74 20 22 5e 25 | t*.((anchored-regexp.(format."^% |
| 6840 | 73 22 20 72 65 67 65 78 70 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 63 6f 75 6e | s".regexp))..........(match-coun |
| 6860 | 74 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 69 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 | t.0)..........(i.0)..........(na |
| 6880 | 72 72 6f 77 65 64 2d 73 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 28 69 66 20 73 74 61 72 74 20 | rrowed-s.(substring.s.(if.start. |
| 68a0 | 28 31 2d 20 73 74 61 72 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (1-.start).0)................... |
| 68c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 65 6e 64 20 28 31 2d 20 65 6e | ................(when.end.(1-.en |
| 68e0 | 64 29 29 29 29 29 0a 20 20 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 | d))))).....(save-match-data..... |
| 6900 | 20 20 28 77 68 69 6c 65 20 28 3c 20 69 20 28 6c 65 6e 67 74 68 20 6e 61 72 72 6f 77 65 64 2d 73 | ..(while.(<.i.(length.narrowed-s |
| 6920 | 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 2d 6d 61 74 63 68 65 73 3f 20 61 6e 63 | )).........(when.(s-matches?.anc |
| 6940 | 68 6f 72 65 64 2d 72 65 67 65 78 70 20 28 73 75 62 73 74 72 69 6e 67 20 6e 61 72 72 6f 77 65 64 | hored-regexp.(substring.narrowed |
| 6960 | 2d 73 20 69 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6d 61 74 63 68 2d 63 6f 75 | -s.i))...........(setq.match-cou |
| 6980 | 6e 74 20 28 31 2b 20 6d 61 74 63 68 2d 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 | nt.(1+.match-count))).........(s |
| 69a0 | 65 74 71 20 69 20 28 31 2b 20 69 29 29 29 29 0a 20 20 20 20 6d 61 74 63 68 2d 63 6f 75 6e 74 29 | etq.i.(1+.i)))).....match-count) |
| 69c0 | 29 0a 0a 28 64 65 66 75 6e 20 73 2d 77 72 61 70 20 28 73 20 70 72 65 66 69 78 20 26 6f 70 74 69 | )..(defun.s-wrap.(s.prefix.&opti |
| 69e0 | 6f 6e 61 6c 20 73 75 66 66 69 78 29 0a 20 20 22 57 72 61 70 20 73 74 72 69 6e 67 20 53 20 77 69 | onal.suffix)..."Wrap.string.S.wi |
| 6a00 | 74 68 20 50 52 45 46 49 58 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 53 55 46 46 49 58 2e | th.PREFIX.and.optionally.SUFFIX. |
| 6a20 | 0a 0a 52 65 74 75 72 6e 20 73 74 72 69 6e 67 20 53 20 77 69 74 68 20 50 52 45 46 49 58 20 70 72 | ..Return.string.S.with.PREFIX.pr |
| 6a40 | 65 70 65 6e 64 65 64 2e 20 20 49 66 20 53 55 46 46 49 58 20 69 73 20 70 72 65 73 65 6e 74 2c 20 | epended...If.SUFFIX.is.present,. |
| 6a60 | 69 74 0a 69 73 20 61 70 70 65 6e 64 65 64 2c 20 6f 74 68 65 72 77 69 73 65 20 50 52 45 46 49 58 | it.is.appended,.otherwise.PREFIX |
| 6a80 | 20 69 73 20 75 73 65 64 20 61 73 20 62 6f 74 68 20 70 72 65 66 69 78 20 61 6e 64 0a 73 75 66 66 | .is.used.as.both.prefix.and.suff |
| 6aa0 | 69 78 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 70 75 72 65 20 74 29 20 28 73 69 64 65 2d 65 | ix."...(declare.(pure.t).(side-e |
| 6ac0 | 66 66 65 63 74 2d 66 72 65 65 20 74 29 29 0a 20 20 28 63 6f 6e 63 61 74 20 70 72 65 66 69 78 20 | ffect-free.t))...(concat.prefix. |
| 6ae0 | 73 20 28 6f 72 20 73 75 66 66 69 78 20 70 72 65 66 69 78 29 29 29 0a 0a 0c 0a 3b 3b 3b 20 41 6c | s.(or.suffix.prefix)))....;;;.Al |
| 6b00 | 69 61 73 65 73 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 70 20 27 73 2d 62 | iases..(defalias.'s-blank-p.'s-b |
| 6b20 | 6c 61 6e 6b 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 62 6c 61 6e 6b 2d 73 74 72 2d 70 20 | lank?).(defalias.'s-blank-str-p. |
| 6b40 | 27 73 2d 62 6c 61 6e 6b 2d 73 74 72 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 63 61 70 69 | 's-blank-str?).(defalias.'s-capi |
| 6b60 | 74 61 6c 69 7a 65 64 2d 70 20 27 73 2d 63 61 70 69 74 61 6c 69 7a 65 64 3f 29 0a 28 64 65 66 61 | talized-p.'s-capitalized?).(defa |
| 6b80 | 6c 69 61 73 20 27 73 2d 63 6f 6e 74 61 69 6e 73 2d 70 20 27 73 2d 63 6f 6e 74 61 69 6e 73 3f 29 | lias.'s-contains-p.'s-contains?) |
| 6ba0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 2d 70 20 27 73 2d 65 6e 64 | .(defalias.'s-ends-with-p.'s-end |
| 6bc0 | 73 2d 77 69 74 68 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 65 71 75 61 6c 73 2d 70 20 27 | s-with?).(defalias.'s-equals-p.' |
| 6be0 | 73 2d 65 71 75 61 6c 73 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 65 73 73 2d 70 20 27 | s-equals?).(defalias.'s-less-p.' |
| 6c00 | 73 2d 6c 65 73 73 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 2d | s-less?).(defalias.'s-lowercase- |
| 6c20 | 70 20 27 73 2d 6c 6f 77 65 72 63 61 73 65 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 6d 61 | p.'s-lowercase?).(defalias.'s-ma |
| 6c40 | 74 63 68 65 73 2d 70 20 27 73 2d 6d 61 74 63 68 65 73 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 | tches-p.'s-matches?).(defalias.' |
| 6c60 | 73 2d 6d 69 78 65 64 63 61 73 65 2d 70 20 27 73 2d 6d 69 78 65 64 63 61 73 65 3f 29 0a 28 64 65 | s-mixedcase-p.'s-mixedcase?).(de |
| 6c80 | 66 61 6c 69 61 73 20 27 73 2d 6e 75 6d 65 72 69 63 2d 70 20 27 73 2d 6e 75 6d 65 72 69 63 3f 29 | falias.'s-numeric-p.'s-numeric?) |
| 6ca0 | 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 66 69 78 2d 70 20 27 73 2d 73 74 61 72 74 73 | .(defalias.'s-prefix-p.'s-starts |
| 6cc0 | 2d 77 69 74 68 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 66 69 78 3f 20 27 73 2d | -with?).(defalias.'s-prefix?.'s- |
| 6ce0 | 73 74 61 72 74 73 2d 77 69 74 68 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 70 72 65 73 65 | starts-with?).(defalias.'s-prese |
| 6d00 | 6e 74 2d 70 20 27 73 2d 70 72 65 73 65 6e 74 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 | nt-p.'s-present?).(defalias.'s-s |
| 6d20 | 74 61 72 74 73 2d 77 69 74 68 2d 70 20 27 73 2d 73 74 61 72 74 73 2d 77 69 74 68 3f 29 0a 28 64 | tarts-with-p.'s-starts-with?).(d |
| 6d40 | 65 66 61 6c 69 61 73 20 27 73 2d 73 75 66 66 69 78 2d 70 20 27 73 2d 65 6e 64 73 2d 77 69 74 68 | efalias.'s-suffix-p.'s-ends-with |
| 6d60 | 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 73 75 66 66 69 78 3f 20 27 73 2d 65 6e 64 73 2d | ?).(defalias.'s-suffix?.'s-ends- |
| 6d80 | 77 69 74 68 3f 29 0a 28 64 65 66 61 6c 69 61 73 20 27 73 2d 75 70 70 65 72 63 61 73 65 2d 70 20 | with?).(defalias.'s-uppercase-p. |
| 6da0 | 27 73 2d 75 70 70 65 72 63 61 73 65 3f 29 0a 0a 0c 0a 28 70 72 6f 76 69 64 65 20 27 73 29 0a 3b | 's-uppercase?)....(provide.'s).; |
| 6dc0 | 3b 3b 20 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ;;.s.el.ends.here............... |
| 6de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 6fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 70a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 70c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 70e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 71a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 71c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 71e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 72a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 72c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 72e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 73e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 74e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 75a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 75c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 75e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 76a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 76c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 76e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 7780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 77e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
 |
index : dotemacs.git | |
| my Emacs configuration | Craig Jennings |
| summaryrefslogtreecommitdiff |
blob: 5b160aa3817ddc27e8f4300486690ec86eb1cc07 (plain)