| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 73 68 72 69 6e 6b 2d 70 61 74 68 2d 32 30 31 39 30 32 30 38 2e 31 33 33 35 2f 00 00 00 00 00 00 | shrink-path-20190208.1335/...... |
| 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 33 32 34 32 00 20 35 00 00 00 | 0000000.00000000000.013242..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 68 72 69 6e 6b 2d 70 61 74 68 2d 32 30 31 39 30 32 30 38 2e 31 33 33 35 2f 73 68 72 69 6e 6b | shrink-path-20190208.1335/shrink |
| 0220 | 2d 70 61 74 68 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -path-pkg.el.................... |
| 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 35 31 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 36 37 00 20 30 00 00 00 | 0000510.00000000000.016567..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 | 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 | ;;.-*-.no-byte-compile:.t;.lexic |
| 0420 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b | al-binding:.nil.-*-.(define-pack |
| 0440 | 61 67 65 20 22 73 68 72 69 6e 6b 2d 70 61 74 68 22 20 22 32 30 31 39 30 32 30 38 2e 31 33 33 35 | age."shrink-path"."20190208.1335 |
| 0460 | 22 0a 20 20 22 46 69 73 68 2d 73 74 79 6c 65 20 70 61 74 68 2e 22 0a 20 20 27 28 28 65 6d 61 63 | "..."Fish-style.path."...'((emac |
| 0480 | 73 20 22 32 34 22 29 0a 20 20 20 20 28 73 20 20 20 20 20 22 31 2e 36 2e 31 22 29 0a 20 20 20 20 | s."24").....(s....."1.6.1")..... |
| 04a0 | 28 64 61 73 68 20 20 22 31 2e 38 2e 30 22 29 0a 20 20 20 20 28 66 20 20 20 20 20 22 30 2e 31 30 | (dash.."1.8.0").....(f....."0.10 |
| 04c0 | 2e 30 22 29 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 6c 61 62 2e 63 6f 6d | .0"))...:url."https://gitlab.com |
| 04e0 | 2f 62 65 6e 6e 79 61 2f 73 68 72 69 6e 6b 2d 70 61 74 68 2e 65 6c 22 0a 20 20 3a 63 6f 6d 6d 69 | /bennya/shrink-path.el"...:commi |
| 0500 | 74 20 22 63 31 34 38 38 32 63 38 35 39 39 61 65 63 37 39 61 36 65 38 65 66 32 64 30 36 34 35 34 | t."c14882c8599aec79a6e8ef2d06454 |
| 0520 | 32 35 34 62 62 33 65 31 65 34 31 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 63 31 34 38 38 32 63 | 254bb3e1e41"...:revdesc."c14882c |
| 0540 | 38 35 39 39 61 22 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | 8599a")......................... |
| 0560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 68 72 69 6e 6b 2d 70 61 74 68 2d 32 30 31 39 30 32 30 38 2e 31 33 33 35 2f 73 68 72 69 6e 6b | shrink-path-20190208.1335/shrink |
| 0620 | 2d 70 61 74 68 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | -path.el........................ |
| 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 31 33 32 36 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 30 31 37 00 20 30 00 00 00 | 0013261.00000000000.016017..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 68 72 69 6e 6b 2d 70 61 74 68 2e 65 6c 20 2d 2d 2d 20 66 69 73 68 2d 73 74 79 6c | ;;;.shrink-path.el.---.fish-styl |
| 0820 | 65 20 70 61 74 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d | e.path.-*-.lexical-binding:.t;.- |
| 0840 | 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 31 37 20 42 65 6e 6a 61 6d | *-..;;.Copyright.(C).2017.Benjam |
| 0860 | 69 6e 20 41 6e 64 72 65 73 65 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 3a 20 42 65 6e 6a 61 6d 69 6e | in.Andresen..;;.Author:.Benjamin |
| 0880 | 20 41 6e 64 72 65 73 65 6e 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 | .Andresen.;;.Package-Version:.20 |
| 08a0 | 31 39 30 32 30 38 2e 31 33 33 35 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a | 190208.1335.;;.Package-Revision: |
| 08c0 | 20 63 31 34 38 38 32 63 38 35 39 39 61 0a 3b 3b 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 | .c14882c8599a.;;.URL:.https://gi |
| 08e0 | 74 6c 61 62 2e 63 6f 6d 2f 62 65 6e 6e 79 61 2f 73 68 72 69 6e 6b 2d 70 61 74 68 2e 65 6c 0a 3b | tlab.com/bennya/shrink-path.el.; |
| 0900 | 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 34 22 | ;.Package-Requires:.((emacs."24" |
| 0920 | 29 20 28 73 20 22 31 2e 36 2e 31 22 29 20 28 64 61 73 68 20 22 31 2e 38 2e 30 22 29 20 28 66 20 | ).(s."1.6.1").(dash."1.8.0").(f. |
| 0940 | 22 30 2e 31 30 2e 30 22 29 29 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 4e 4f 54 20 | "0.10.0"))..;;.This.file.is.NOT. |
| 0960 | 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 | part.of.GNU.Emacs...;;.This.prog |
| 0980 | 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 | ram.is.free.software;.you.can.re |
| 09a0 | 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 | distribute.it.and/or.modify.;;.i |
| 09c0 | 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e | t.under.the.terms.of.the.GNU.Gen |
| 09e0 | 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 | eral.Public.License.as.published |
| 0a00 | 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 | .by.;;.the.Free.Software.Foundat |
| 0a20 | 69 6f 6e 3b 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 2c 20 6f 72 20 28 61 74 20 79 6f | ion;.either.version.3,.or.(at.yo |
| 0a40 | 75 72 20 6f 70 74 69 6f 6e 29 0a 3b 3b 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e | ur.option).;;.any.later.version. |
| 0a60 | 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 62 75 74 65 64 | ..;;.This.program.is.distributed |
| 0a80 | 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 65 20 75 73 65 | .in.the.hope.that.it.will.be.use |
| 0aa0 | 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 52 41 4e 54 59 | ful,.;;.but.WITHOUT.ANY.WARRANTY |
| 0ac0 | 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 77 61 72 72 61 | ;.without.even.the.implied.warra |
| 0ae0 | 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 72 20 46 49 54 | nty.of.;;.MERCHANTABILITY.or.FIT |
| 0b00 | 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 53 45 2e 20 20 | NESS.FOR.A.PARTICULAR.PURPOSE... |
| 0b20 | 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 69 63 20 4c 69 | See.the.;;.GNU.General.Public.Li |
| 0b40 | 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 20 59 6f 75 20 | cense.for.more.details...;;.You. |
| 0b60 | 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 20 6f 66 20 74 | should.have.received.a.copy.of.t |
| 0b80 | 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 73 65 0a 3b 3b | he.GNU.General.Public.License.;; |
| 0ba0 | 20 61 6c 6f 6e 67 20 77 69 74 68 20 47 4e 55 20 45 6d 61 63 73 3b 20 73 65 65 20 74 68 65 20 66 | .along.with.GNU.Emacs;.see.the.f |
| 0bc0 | 69 6c 65 20 4c 49 43 45 4e 53 45 2e 20 20 49 66 20 6e 6f 74 2c 20 77 72 69 74 65 20 74 6f 20 74 | ile.LICENSE...If.not,.write.to.t |
| 0be0 | 68 65 0a 3b 3b 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 | he.;;.Free.Software.Foundation,. |
| 0c00 | 49 6e 63 2e 2c 20 35 31 20 46 72 61 6e 6b 6c 69 6e 20 53 74 72 65 65 74 2c 20 46 69 66 74 68 20 | Inc.,.51.Franklin.Street,.Fifth. |
| 0c20 | 46 6c 6f 6f 72 2c 0a 3b 3b 20 42 6f 73 74 6f 6e 2c 20 4d 41 20 30 32 31 31 30 2d 31 33 30 31 2c | Floor,.;;.Boston,.MA.02110-1301, |
| 0c40 | 20 55 53 41 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 50 72 6f 76 69 | .USA...;;;.Commentary:..;;.Provi |
| 0c60 | 64 65 73 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 6f 66 66 65 72 20 66 69 73 68 20 73 68 | des.functions.that.offer.fish.sh |
| 0c80 | 65 6c 6c 5b 31 5d 20 70 61 74 68 20 74 72 75 6e 63 61 74 69 6f 6e 2e 0a 3b 3b 20 44 69 72 65 63 | ell[1].path.truncation..;;.Direc |
| 0ca0 | 74 6f 72 79 20 2f 75 73 72 2f 73 68 61 72 65 2f 65 6d 61 63 73 2f 73 69 74 65 2d 6c 69 73 70 20 | tory./usr/share/emacs/site-lisp. |
| 0cc0 | 3d 3e 20 2f 75 2f 73 2f 65 2f 73 69 74 65 2d 6c 69 73 70 0a 3b 3b 0a 3b 3b 20 41 6c 73 6f 20 69 | =>./u/s/e/site-lisp.;;.;;.Also.i |
| 0ce0 | 6e 63 6c 75 64 65 73 20 75 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 6d | ncludes.utility.functions.that.m |
| 0d00 | 61 6b 65 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 69 6e 20 65 73 68 65 6c 6c 20 6f 72 20 74 68 65 | ake.integration.in.eshell.or.the |
| 0d20 | 0a 3b 3b 20 6d 6f 64 65 6c 69 6e 65 20 65 61 73 69 65 72 2e 0a 3b 3b 0a 3b 3b 20 5b 31 5d 20 68 | .;;.modeline.easier..;;.;;.[1].h |
| 0d40 | 74 74 70 73 3a 2f 2f 66 69 73 68 73 68 65 6c 6c 2e 63 6f 6d 2f 0a 0a 0a 3b 3b 3b 20 43 6f 64 65 | ttps://fishshell.com/...;;;.Code |
| 0d60 | 3a 0a 28 72 65 71 75 69 72 65 20 27 64 61 73 68 29 0a 28 72 65 71 75 69 72 65 20 27 73 29 0a 28 | :.(require.'dash).(require.'s).( |
| 0d80 | 72 65 71 75 69 72 65 20 27 66 29 0a 28 72 65 71 75 69 72 65 20 27 72 78 29 0a 0a 28 64 65 66 75 | require.'f).(require.'rx)..(defu |
| 0da0 | 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 2d 74 72 75 6e 63 61 74 65 20 28 73 74 72 29 0a 20 20 | n.shrink-path--truncate.(str)... |
| 0dc0 | 22 52 65 74 75 72 6e 20 53 54 52 27 73 20 66 69 72 73 74 20 63 68 61 72 61 63 74 65 72 20 6f 72 | "Return.STR's.first.character.or |
| 0de0 | 20 66 69 72 73 74 20 74 77 6f 20 63 68 61 72 61 63 74 65 72 73 20 69 66 20 68 69 64 64 65 6e 2e | .first.two.characters.if.hidden. |
| 0e00 | 22 0a 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 20 30 20 28 69 66 20 28 73 2d 73 74 61 72 | "...(substring.str.0.(if.(s-star |
| 0e20 | 74 73 2d 77 69 74 68 3f 20 22 2e 22 20 73 74 72 29 20 32 20 31 29 29 29 0a 0a 28 64 65 66 75 6e | ts-with?.".".str).2.1)))..(defun |
| 0e40 | 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 2d 64 69 72 73 2d 69 6e 74 65 72 6e 61 6c 20 28 66 75 6c | .shrink-path--dirs-internal.(ful |
| 0e60 | 6c 2d 70 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 74 72 75 6e 63 61 74 65 2d 61 6c 6c 29 0a 20 | l-path.&optional.truncate-all).. |
| 0e80 | 20 22 52 65 74 75 72 6e 20 66 69 73 68 2d 73 74 79 6c 65 20 74 72 75 6e 63 61 74 65 64 20 73 74 | ."Return.fish-style.truncated.st |
| 0ea0 | 72 69 6e 67 20 62 61 73 65 64 20 6f 6e 20 46 55 4c 4c 2d 50 41 54 48 2e 0a 4f 70 74 69 6f 6e 61 | ring.based.on.FULL-PATH..Optiona |
| 0ec0 | 6c 20 70 61 72 61 6d 65 74 65 72 20 54 52 55 4e 43 41 54 45 2d 41 4c 4c 20 77 69 6c 6c 20 63 61 | l.parameter.TRUNCATE-ALL.will.ca |
| 0ee0 | 75 73 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 74 72 75 6e 63 61 74 65 20 74 68 65 | use.the.function.to.truncate.the |
| 0f00 | 20 6c 61 73 74 0a 64 69 72 65 63 74 6f 72 79 20 74 6f 6f 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 | .last.directory.too."...(let*.(( |
| 0f20 | 68 6f 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 7e 22 29 29 0a 20 20 20 | home.(expand-file-name."~")).... |
| 0f40 | 20 20 20 20 20 20 28 70 61 74 68 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 | ......(path.(replace-regexp-in-s |
| 0f60 | 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 2d 63 6f 6e 63 61 74 20 | tring.................(s-concat. |
| 0f80 | 22 5e 22 20 68 6f 6d 65 29 20 22 7e 22 20 66 75 6c 6c 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 | "^".home)."~".full-path))....... |
| 0fa0 | 20 20 20 28 73 70 6c 69 74 20 28 73 2d 73 70 6c 69 74 20 22 2f 22 20 70 61 74 68 20 27 6f 6d 69 | ...(split.(s-split."/".path.'omi |
| 0fc0 | 74 2d 6e 75 6c 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 6c 65 6e 20 28 6c | t-nulls))..........(split-len.(l |
| 0fe0 | 65 6e 67 74 68 20 73 70 6c 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 73 68 72 75 6e 6b 29 0a 20 | ength.split))..........shrunk).. |
| 1000 | 20 20 20 28 2d 3e 3e 20 73 70 6c 69 74 0a 20 20 20 20 20 20 20 20 20 28 2d 2d 6d 61 70 2d 69 6e | ...(->>.split..........(--map-in |
| 1020 | 64 65 78 65 64 20 28 69 66 20 28 3d 20 69 74 2d 69 6e 64 65 78 20 28 31 2d 20 73 70 6c 69 74 2d | dexed.(if.(=.it-index.(1-.split- |
| 1040 | 6c 65 6e 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 20 | len))........................... |
| 1060 | 20 20 28 69 66 20 74 72 75 6e 63 61 74 65 2d 61 6c 6c 20 28 73 68 72 69 6e 6b 2d 70 61 74 68 2d | ..(if.truncate-all.(shrink-path- |
| 1080 | 2d 74 72 75 6e 63 61 74 65 20 69 74 29 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -truncate.it).it)............... |
| 10a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 72 69 6e 6b 2d 70 61 74 68 2d 2d 74 72 75 6e 63 61 | ............(shrink-path--trunca |
| 10c0 | 74 65 20 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 2d 6a 6f 69 6e 20 22 2f 22 29 0a 20 | te.it)))..........(s-join."/").. |
| 10e0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 68 72 75 6e 6b 29 29 0a 20 20 20 20 28 73 2d 63 6f | ........(setq.shrunk)).....(s-co |
| 1100 | 6e 63 61 74 20 28 75 6e 6c 65 73 73 20 28 73 2d 6d 61 74 63 68 65 73 3f 20 28 72 78 20 62 6f 73 | ncat.(unless.(s-matches?.(rx.bos |
| 1120 | 20 28 6f 72 20 22 7e 22 20 22 2f 22 29 29 20 73 68 72 75 6e 6b 29 20 22 2f 22 29 0a 20 20 20 20 | .(or."~"."/")).shrunk)."/")..... |
| 1140 | 20 20 20 20 20 20 20 20 20 20 73 68 72 75 6e 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..........shrunk...............( |
| 1160 | 75 6e 6c 65 73 73 20 28 73 2d 65 6e 64 73 2d 77 69 74 68 3f 20 22 2f 22 20 73 68 72 75 6e 6b 29 | unless.(s-ends-with?."/".shrunk) |
| 1180 | 20 22 2f 22 29 29 29 29 0a 0a 0a 28 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 64 69 | ."/"))))...(defun.shrink-path-di |
| 11a0 | 72 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 74 68 20 74 72 75 6e 63 61 74 65 2d 74 61 69 6c | rs.(&optional.path.truncate-tail |
| 11c0 | 29 0a 20 20 22 47 69 76 65 6e 20 50 41 54 48 20 72 65 74 75 72 6e 20 66 69 73 68 2d 73 74 79 6c | )..."Given.PATH.return.fish-styl |
| 11e0 | 65 64 20 73 68 72 75 6e 6b 65 6e 20 64 6f 77 6e 20 70 61 74 68 2e 0a 54 52 55 4e 43 41 54 45 2d | ed.shrunken.down.path..TRUNCATE- |
| 1200 | 54 41 49 4c 20 77 69 6c 6c 20 63 61 75 73 65 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 | TAIL.will.cause.the.function.to. |
| 1220 | 74 72 75 6e 63 61 74 65 20 74 68 65 20 6c 61 73 74 20 64 69 72 65 63 74 6f 72 79 20 74 6f 6f 2e | truncate.the.last.directory.too. |
| 1240 | 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 20 28 6f 72 20 70 61 74 68 20 64 65 66 61 75 6c | "...(let*.((path.(or.path.defaul |
| 1260 | 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 66 2d | t-directory))..........(path.(f- |
| 1280 | 66 75 6c 6c 20 70 61 74 68 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 73 2d | full.path))).....(cond......((s- |
| 12a0 | 65 71 75 61 6c 73 3f 20 28 66 2d 73 68 6f 72 74 20 70 61 74 68 29 20 22 2f 22 29 20 22 2f 22 29 | equals?.(f-short.path)."/")."/") |
| 12c0 | 0a 20 20 20 20 20 28 28 73 2d 6d 61 74 63 68 65 73 3f 20 28 72 78 20 62 6f 73 20 28 6f 72 20 22 | ......((s-matches?.(rx.bos.(or." |
| 12e0 | 7e 22 20 22 2f 22 29 20 65 6f 73 29 20 22 7e 2f 22 29 29 0a 20 20 20 20 20 28 74 20 28 73 68 72 | ~"."/").eos)."~/"))......(t.(shr |
| 1300 | 69 6e 6b 2d 70 61 74 68 2d 2d 64 69 72 73 2d 69 6e 74 65 72 6e 61 6c 20 70 61 74 68 20 74 72 75 | ink-path--dirs-internal.path.tru |
| 1320 | 6e 63 61 74 65 2d 74 61 69 6c 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 | ncate-tail)))))..(defun.shrink-p |
| 1340 | 61 74 68 2d 65 78 70 61 6e 64 20 28 73 74 72 20 26 6f 70 74 69 6f 6e 61 6c 20 61 62 73 6f 6c 75 | ath-expand.(str.&optional.absolu |
| 1360 | 74 65 2d 70 29 0a 20 20 22 52 65 74 75 72 6e 20 65 78 70 61 6e 64 65 64 20 70 61 74 68 20 66 72 | te-p)..."Return.expanded.path.fr |
| 1380 | 6f 6d 20 53 54 52 20 69 66 20 66 6f 75 6e 64 20 6f 72 20 6c 69 73 74 20 6f 66 20 6d 61 74 63 68 | om.STR.if.found.or.list.of.match |
| 13a0 | 65 73 20 6f 6e 20 6d 75 6c 74 69 70 6c 65 2e 0a 54 68 65 20 70 61 74 68 20 72 65 66 65 72 72 65 | es.on.multiple..The.path.referre |
| 13c0 | 64 20 74 6f 20 62 79 20 53 54 52 20 68 61 73 20 74 6f 20 65 78 69 73 74 20 66 6f 72 20 74 68 69 | d.to.by.STR.has.to.exist.for.thi |
| 13e0 | 73 20 74 6f 20 77 6f 72 6b 2e 0a 49 66 20 41 42 53 4f 4c 55 54 45 2d 50 20 69 73 20 74 20 74 68 | s.to.work..If.ABSOLUTE-P.is.t.th |
| 1400 | 65 20 72 65 74 75 72 6e 65 64 20 70 61 74 68 20 77 69 6c 6c 20 62 65 20 61 62 73 6f 6c 75 74 65 | e.returned.path.will.be.absolute |
| 1420 | 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 72 2d 73 70 6c 69 74 20 28 73 2d 73 70 6c 69 74 20 | ."...(let*.((str-split.(s-split. |
| 1440 | 22 2f 22 20 73 74 72 20 27 6f 6d 69 74 2d 6e 75 6c 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 | "/".str.'omit-nulls))..........( |
| 1460 | 68 65 61 64 20 28 63 61 72 20 73 74 72 2d 73 70 6c 69 74 29 29 29 0a 20 20 20 20 28 69 66 20 28 | head.(car.str-split))).....(if.( |
| 1480 | 3d 20 28 6c 65 6e 67 74 68 20 73 74 72 2d 73 70 6c 69 74 29 20 31 29 0a 20 20 20 20 20 20 20 20 | =.(length.str-split).1)......... |
| 14a0 | 28 73 2d 63 6f 6e 63 61 74 20 22 2f 22 20 73 74 72 2d 73 70 6c 69 74 29 0a 20 20 20 20 20 20 28 | (s-concat."/".str-split).......( |
| 14c0 | 2d 2d 3e 20 28 2d 64 72 6f 70 20 31 20 73 74 72 2d 73 70 6c 69 74 29 20 20 20 3b 3b 20 64 72 6f | -->.(-drop.1.str-split)...;;.dro |
| 14e0 | 70 20 68 65 61 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 6d 62 64 61 20 | p.head............(-map.(lambda. |
| 1500 | 28 65 29 20 28 73 2d 63 6f 6e 63 61 74 20 65 20 22 2a 22 29 29 20 69 74 29 0a 20 20 20 20 20 20 | (e).(s-concat.e."*")).it)....... |
| 1520 | 20 20 20 20 20 28 2d 64 72 6f 70 2d 6c 61 73 74 20 31 20 69 74 29 20 20 20 20 20 3b 3b 20 64 72 | .....(-drop-last.1.it).....;;.dr |
| 1540 | 6f 70 20 74 61 69 6c 20 61 73 20 69 74 20 6d 61 79 20 6e 6f 74 20 65 78 69 73 74 0a 20 20 20 20 | op.tail.as.it.may.not.exist..... |
| 1560 | 20 20 20 20 20 20 20 28 73 2d 6a 6f 69 6e 20 22 2f 22 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 | .......(s-join."/".it).......... |
| 1580 | 20 20 28 73 2d 63 6f 6e 63 61 74 20 28 69 66 20 28 73 2d 65 71 75 61 6c 73 3f 20 68 65 61 64 20 | ..(s-concat.(if.(s-equals?.head. |
| 15a0 | 22 7e 22 29 20 22 7e 2f 22 20 68 65 61 64 29 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | "~")."~/".head).it)............( |
| 15c0 | 66 2d 67 6c 6f 62 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 2d 6d 61 70 20 28 6c 61 6d | f-glob.it)............(-map.(lam |
| 15e0 | 62 64 61 20 28 65 29 20 28 73 2d 63 6f 6e 63 61 74 20 65 20 22 2f 22 20 28 2d 6c 61 73 74 2d 69 | bda.(e).(s-concat.e."/".(-last-i |
| 1600 | 74 65 6d 20 73 74 72 2d 73 70 6c 69 74 29 29 29 20 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tem.str-split))).it)............ |
| 1620 | 28 69 66 20 61 62 73 6f 6c 75 74 65 2d 70 20 28 2d 6d 61 70 20 23 27 66 2d 66 75 6c 6c 20 69 74 | (if.absolute-p.(-map.#'f-full.it |
| 1640 | 29 20 28 2d 6d 61 70 20 23 27 66 2d 61 62 62 72 65 76 20 69 74 29 29 0a 20 20 20 20 20 20 20 20 | ).(-map.#'f-abbrev.it))......... |
| 1660 | 20 20 20 28 69 66 20 28 3d 20 28 6c 65 6e 67 74 68 20 69 74 29 20 31 29 20 28 63 61 72 20 69 74 | ...(if.(=.(length.it).1).(car.it |
| 1680 | 29 20 69 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 70 72 | ).it)))))..(defun.shrink-path-pr |
| 16a0 | 6f 6d 70 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 77 64 29 0a 20 20 22 52 65 74 75 72 6e 20 63 | ompt.(&optional.pwd)..."Return.c |
| 16c0 | 6f 6e 73 20 6f 66 20 42 41 53 45 20 61 6e 64 20 44 49 52 20 66 6f 72 20 50 57 44 2e 0a 49 66 20 | ons.of.BASE.and.DIR.for.PWD..If. |
| 16e0 | 50 57 44 20 69 73 6e 27 74 20 70 72 6f 76 69 64 65 64 20 77 69 6c 6c 20 64 65 66 61 75 6c 74 20 | PWD.isn't.provided.will.default. |
| 1700 | 74 6f 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 22 0a 20 20 28 6c 65 74 2a | to.`default-directory'."...(let* |
| 1720 | 20 28 28 70 77 64 20 28 6f 72 20 70 77 64 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | .((pwd.(or.pwd.default-directory |
| 1740 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 68 72 75 6e 6b 20 28 73 68 72 69 6e 6b 2d 70 61 74 68 | ))..........(shrunk.(shrink-path |
| 1760 | 2d 64 69 72 73 20 70 77 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 20 28 2d 2d 3e | -dirs.pwd))..........(split.(--> |
| 1780 | 20 73 68 72 75 6e 6b 20 28 73 2d 73 70 6c 69 74 20 22 2f 22 20 69 74 20 27 6f 6d 69 74 2d 6e 75 | .shrunk.(s-split."/".it.'omit-nu |
| 17a0 | 6c 6c 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 62 61 73 65 20 64 69 72 29 0a 20 20 20 20 28 73 | lls)))..........base.dir).....(s |
| 17c0 | 65 74 71 20 64 69 72 20 28 6f 72 20 28 2d 6c 61 73 74 2d 69 74 65 6d 20 73 70 6c 69 74 29 20 22 | etq.dir.(or.(-last-item.split)." |
| 17e0 | 2f 22 29 29 0a 20 20 20 20 28 73 65 74 71 20 62 61 73 65 20 28 69 66 20 28 73 2d 65 71 75 61 6c | /")).....(setq.base.(if.(s-equal |
| 1800 | 73 3f 20 64 69 72 20 22 2f 22 29 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s?.dir."/")."".................. |
| 1820 | 28 73 2d 63 68 6f 70 2d 73 75 66 66 69 78 20 28 73 2d 63 6f 6e 63 61 74 20 64 69 72 20 22 2f 22 | (s-chop-suffix.(s-concat.dir."/" |
| 1840 | 29 20 73 68 72 75 6e 6b 29 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 62 61 73 65 20 64 69 72 29 29 | ).shrunk))).....(cons.base.dir)) |
| 1860 | 29 0a 0a 28 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 66 69 6c 65 20 28 66 69 6c 65 | )..(defun.shrink-path-file.(file |
| 1880 | 20 26 6f 70 74 69 6f 6e 61 6c 20 74 72 75 6e 63 61 74 65 2d 74 61 69 6c 29 0a 20 20 22 52 65 74 | .&optional.truncate-tail)..."Ret |
| 18a0 | 75 72 6e 20 46 49 4c 45 27 73 20 73 68 72 75 6e 6b 20 64 6f 77 6e 20 70 61 74 68 20 61 6e 64 20 | urn.FILE's.shrunk.down.path.and. |
| 18c0 | 66 69 6c 65 6e 61 6d 65 2e 0a 54 52 55 4e 43 41 54 45 2d 54 41 49 4c 20 63 6f 6e 74 72 6f 6c 73 | filename..TRUNCATE-TAIL.controls |
| 18e0 | 20 69 66 20 74 68 65 20 6c 61 73 74 20 64 69 72 65 63 74 6f 72 79 20 73 68 6f 75 6c 64 20 61 6c | .if.the.last.directory.should.al |
| 1900 | 73 6f 20 62 65 20 73 68 6f 72 74 65 6e 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 6e | so.be.shortened."...(let.((filen |
| 1920 | 61 6d 65 20 28 66 2d 66 69 6c 65 6e 61 6d 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 | ame.(f-filename.file)).........( |
| 1940 | 64 69 72 6e 61 6d 65 20 28 66 2d 64 69 72 6e 61 6d 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 | dirname.(f-dirname.file))).....( |
| 1960 | 73 2d 63 6f 6e 63 61 74 20 28 73 68 72 69 6e 6b 2d 70 61 74 68 2d 64 69 72 73 20 64 69 72 6e 61 | s-concat.(shrink-path-dirs.dirna |
| 1980 | 6d 65 20 74 72 75 6e 63 61 74 65 2d 74 61 69 6c 29 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 28 | me.truncate-tail).filename)))..( |
| 19a0 | 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 66 69 6c 65 2d 65 78 70 61 6e 64 20 28 73 | defun.shrink-path-file-expand.(s |
| 19c0 | 74 72 20 26 6f 70 74 69 6f 6e 61 6c 20 65 78 69 73 74 73 2d 70 20 61 62 73 6f 6c 75 74 65 2d 70 | tr.&optional.exists-p.absolute-p |
| 19e0 | 29 0a 20 20 22 52 65 74 75 72 6e 20 53 54 52 27 73 20 65 78 70 61 6e 64 65 64 20 66 69 6c 65 6e | )..."Return.STR's.expanded.filen |
| 1a00 | 61 6d 65 2e 0a 54 68 65 20 70 61 74 68 20 72 65 66 65 72 72 65 64 20 74 6f 20 62 79 20 53 54 52 | ame..The.path.referred.to.by.STR |
| 1a20 | 20 68 61 73 20 74 6f 20 65 78 69 73 74 20 66 6f 72 20 74 68 69 73 20 74 6f 20 77 6f 72 6b 2e 0a | .has.to.exist.for.this.to.work.. |
| 1a40 | 49 66 20 45 58 49 53 54 53 2d 50 20 69 73 20 74 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 20 61 6c | If.EXISTS-P.is.t.the.filename.al |
| 1a60 | 73 6f 20 68 61 73 20 74 6f 20 65 78 69 73 74 2e 0a 49 66 20 41 42 53 4f 4c 55 54 45 2d 50 20 69 | so.has.to.exist..If.ABSOLUTE-P.i |
| 1a80 | 73 20 74 20 74 68 65 20 72 65 74 75 72 6e 65 64 20 70 61 74 68 20 77 69 6c 6c 20 62 65 20 61 62 | s.t.the.returned.path.will.be.ab |
| 1aa0 | 73 6f 6c 75 74 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 65 78 70 61 6e 64 65 64 20 28 73 68 72 69 | solute."...(let.((expanded.(shri |
| 1ac0 | 6e 6b 2d 70 61 74 68 2d 65 78 70 61 6e 64 20 73 74 72 20 61 62 73 6f 6c 75 74 65 2d 70 29 29 29 | nk-path-expand.str.absolute-p))) |
| 1ae0 | 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 65 78 70 61 6e 64 65 64 20 65 78 69 73 74 73 2d 70 29 | .....(if.(and.expanded.exists-p) |
| 1b00 | 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 2d 65 78 69 73 74 73 3f 20 65 78 70 61 6e 64 65 64 | .........(if.(f-exists?.expanded |
| 1b20 | 29 20 65 78 70 61 6e 64 65 64 29 0a 20 20 20 20 20 20 65 78 70 61 6e 64 65 64 29 29 29 0a 0a 28 | ).expanded).......expanded)))..( |
| 1b40 | 64 65 66 75 6e 20 73 68 72 69 6e 6b 2d 70 61 74 68 2d 66 69 6c 65 2d 6d 69 78 65 64 20 28 73 68 | defun.shrink-path-file-mixed.(sh |
| 1b60 | 72 69 6e 6b 2d 70 61 74 68 20 72 65 6c 2d 70 61 74 68 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 22 | rink-path.rel-path.filename)..." |
| 1b80 | 52 65 74 75 72 6e 73 20 6c 69 73 74 20 6f 66 20 6d 69 78 65 64 20 74 72 75 6e 63 61 74 65 64 20 | Returns.list.of.mixed.truncated. |
| 1ba0 | 66 69 6c 65 20 6e 61 6d 65 20 6c 6f 63 61 74 69 6f 6e 73 2e 0a 0a 43 6f 6e 73 69 73 74 73 20 6f | file.name.locations...Consists.o |
| 1bc0 | 66 20 53 48 52 49 4e 4b 2d 50 41 54 48 27 73 20 70 61 72 65 6e 74 2c 20 53 48 52 49 4e 4b 2d 50 | f.SHRINK-PATH's.parent,.SHRINK-P |
| 1be0 | 41 54 48 20 62 61 73 65 6e 61 6d 65 2c 20 72 65 6c 61 74 69 76 65 20 52 45 4c 2d 50 41 54 48 20 | ATH.basename,.relative.REL-PATH. |
| 1c00 | 61 6e 64 0a 46 49 4c 45 4e 41 4d 45 2e 0a 46 6f 72 20 75 73 65 20 69 6e 20 6d 6f 64 65 6c 69 6e | and.FILENAME..For.use.in.modelin |
| 1c20 | 65 20 6f 72 20 70 72 6f 6d 70 74 73 2c 20 65 74 63 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 68 72 | e.or.prompts,.etc."...(let.((shr |
| 1c40 | 75 6e 6b 2d 64 69 72 73 20 28 73 68 72 69 6e 6b 2d 70 61 74 68 2d 70 72 6f 6d 70 74 20 73 68 72 | unk-dirs.(shrink-path-prompt.shr |
| 1c60 | 69 6e 6b 2d 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 73 70 2d 70 61 72 65 6e 74 20 73 70 2d | ink-path)).........sp-parent.sp- |
| 1c80 | 72 65 6c 20 72 65 6c 2d 72 65 6c 20 6e 64 2d 66 69 6c 65 29 0a 0a 20 20 20 20 28 77 68 65 6e 20 | rel.rel-rel.nd-file)......(when. |
| 1ca0 | 28 66 2d 64 65 73 63 65 6e 64 61 6e 74 2d 6f 66 3f 20 66 69 6c 65 6e 61 6d 65 20 73 68 72 69 6e | (f-descendant-of?.filename.shrin |
| 1cc0 | 6b 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 73 68 72 75 6e 6b 2d 64 69 72 73 0a | k-path).......(when.shrunk-dirs. |
| 1ce0 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 70 2d 70 61 72 65 6e 74 20 28 63 61 72 20 73 68 72 | ........(setq.sp-parent.(car.shr |
| 1d00 | 75 6e 6b 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 70 2d 72 65 6c 20 28 | unk-dirs)...............sp-rel.( |
| 1d20 | 63 64 72 20 73 68 72 75 6e 6b 2d 64 69 72 73 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 72 | cdr.shrunk-dirs))).......(setq.r |
| 1d40 | 65 6c 2d 72 65 6c 20 28 69 66 20 28 6f 72 20 28 66 2d 73 61 6d 65 3f 20 72 65 6c 2d 70 61 74 68 | el-rel.(if.(or.(f-same?.rel-path |
| 1d60 | 20 73 68 72 69 6e 6b 2d 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .shrink-path)................... |
| 1d80 | 20 20 20 20 20 20 20 20 20 20 28 73 2d 65 71 75 61 6c 73 3f 20 28 66 2d 72 65 6c 61 74 69 76 65 | ..........(s-equals?.(f-relative |
| 1da0 | 20 72 65 6c 2d 70 61 74 68 20 73 68 72 69 6e 6b 2d 70 61 74 68 29 20 22 2e 22 29 29 0a 20 20 20 | .rel-path.shrink-path).".")).... |
| 1dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 | .....................nil........ |
| 1de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 72 65 6c 61 74 69 76 65 20 72 65 6c 2d 70 | ...............(f-relative.rel-p |
| 1e00 | 61 74 68 20 73 68 72 69 6e 6b 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6e | ath.shrink-path))).......(setq.n |
| 1e20 | 64 2d 66 69 6c 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 66 | d-file.(file-name-nondirectory.f |
| 1e40 | 69 6c 65 6e 61 6d 65 29 29 0a 0a 20 20 20 20 20 20 28 6c 69 73 74 20 73 70 2d 70 61 72 65 6e 74 | ilename))........(list.sp-parent |
| 1e60 | 20 73 70 2d 72 65 6c 20 72 65 6c 2d 72 65 6c 20 6e 64 2d 66 69 6c 65 29 29 29 29 0a 0a 28 70 72 | .sp-rel.rel-rel.nd-file))))..(pr |
| 1e80 | 6f 76 69 64 65 20 27 73 68 72 69 6e 6b 2d 70 61 74 68 29 0a 3b 3b 3b 20 73 68 72 69 6e 6b 2d 70 | ovide.'shrink-path).;;;.shrink-p |
| 1ea0 | 61 74 68 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 00 | ath.el.ends.here................ |
| 1ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 1fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 20a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 20c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 20e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 21e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 22a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 22c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 22e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 23e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 24a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 24c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 24e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 25e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 26e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 2780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 27e0 | 00 00 00 00 00 00 00 00 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: 8328801dfa91c27b8e0bbb7b3b624512d9db14b1 (plain)