| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 00 00 00 00 00 00 00 | consult-dir-20250313.359/....... |
| 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 31 37 34 00 20 35 00 00 00 | 0000000.00000000000.013174..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 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 63 6f 6e 73 75 6c 74 | consult-dir-20250313.359/consult |
| 0220 | 2d 64 69 72 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 00 | -dir-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 36 34 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 34 32 00 20 30 00 00 00 | 0000642.00000000000.016542..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 63 6f 6e 73 75 6c 74 2d 64 69 72 22 20 22 32 30 32 35 30 33 31 33 2e 33 35 39 22 | age."consult-dir"."20250313.359" |
| 0460 | 0a 20 20 22 49 6e 73 65 72 74 20 70 61 74 68 73 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 | ..."Insert.paths.into.the.minibu |
| 0480 | 66 66 65 72 20 70 72 6f 6d 70 74 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 20 20 22 32 37 2e 31 | ffer.prompt."...'((emacs..."27.1 |
| 04a0 | 22 29 0a 20 20 20 20 28 63 6f 6e 73 75 6c 74 20 22 31 2e 30 22 29 29 0a 20 20 3a 75 72 6c 20 22 | ").....(consult."1.0"))...:url." |
| 04c0 | 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6b 61 72 74 68 69 6e 6b 2f 63 6f 6e 73 | https://github.com/karthink/cons |
| 04e0 | 75 6c 74 2d 64 69 72 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 34 35 33 32 62 38 64 32 31 35 64 31 | ult-dir"...:commit."4532b8d215d1 |
| 0500 | 36 62 30 31 35 39 36 39 31 63 65 34 64 65 65 36 39 33 65 37 32 64 37 31 65 30 66 66 22 0a 20 20 | 6b0159691ce4dee693e72d71e0ff"... |
| 0520 | 3a 72 65 76 64 65 73 63 20 22 34 35 33 32 62 38 64 32 31 35 64 31 22 0a 20 20 3a 6b 65 79 77 6f | :revdesc."4532b8d215d1"...:keywo |
| 0540 | 72 64 73 20 27 28 22 63 6f 6e 76 65 6e 69 65 6e 63 65 22 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e | rds.'("convenience")...:maintain |
| 0560 | 65 72 73 20 27 28 28 22 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 22 20 2e 20 22 | ers.'(("Karthik.Chikmagalur"..." |
| 0580 | 6b 61 72 74 68 69 6b 2e 63 68 69 6b 6d 61 67 61 6c 75 72 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 | karthik.chikmagalur@gmail.com")) |
| 05a0 | 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 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 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 32 30 32 35 30 33 31 33 2e 33 35 39 2f 63 6f 6e 73 75 6c 74 | consult-dir-20250313.359/consult |
| 0620 | 2d 64 69 72 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 00 | -dir.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 34 30 33 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 36 32 00 20 30 00 00 00 | 0040331.00000000000.015762..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 63 6f 6e 73 75 6c 74 2d 64 69 72 2e 65 6c 20 2d 2d 2d 20 49 6e 73 65 72 74 20 70 61 | ;;;.consult-dir.el.---.Insert.pa |
| 0820 | 74 68 73 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 20 | ths.into.the.minibuffer.prompt.. |
| 0840 | 2d 2a 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 | -*-.lexical-binding:.t.-*-..;;.C |
| 0860 | 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 34 20 46 72 65 65 20 53 6f 66 74 | opyright.(C).2021-2024.Free.Soft |
| 0880 | 77 61 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 2e 0a 0a 3b 3b 20 41 75 74 68 6f 72 | ware.Foundation,.Inc...;;.Author |
| 08a0 | 3a 20 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 0a 3b 3b 20 4d 61 69 6e 74 61 69 | :.Karthik.Chikmagalur.;;.Maintai |
| 08c0 | 6e 65 72 3a 20 4b 61 72 74 68 69 6b 20 43 68 69 6b 6d 61 67 61 6c 75 72 20 3c 6b 61 72 74 68 69 | ner:.Karthik.Chikmagalur.<karthi |
| 08e0 | 6b 2e 63 68 69 6b 6d 61 67 61 6c 75 72 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b 20 43 72 65 61 | k.chikmagalur@gmail.com>.;;.Crea |
| 0900 | 74 65 64 3a 20 32 30 32 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 | ted:.2021.;;.Package-Version:.20 |
| 0920 | 32 35 30 33 31 33 2e 33 35 39 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 | 250313.359.;;.Package-Revision:. |
| 0940 | 34 35 33 32 62 38 64 32 31 35 64 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 | 4532b8d215d1.;;.Package-Requires |
| 0960 | 3a 20 28 28 65 6d 61 63 73 20 22 32 37 2e 31 22 29 20 28 63 6f 6e 73 75 6c 74 20 22 31 2e 30 22 | :.((emacs."27.1").(consult."1.0" |
| 0980 | 29 29 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 | )).;;.Keywords:.convenience.;;.H |
| 09a0 | 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6b 61 72 74 | omepage:.https://github.com/kart |
| 09c0 | 68 69 6e 6b 2f 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 3b 3b 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 | hink/consult-dir.;;.;;.This.file |
| 09e0 | 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d 61 63 73 2e 0a 3b 3b 0a 3b 3b | .is.not.part.of.GNU.Emacs..;;.;; |
| 0a00 | 20 54 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3a 20 | .This.program.is.free.software:. |
| 0a20 | 79 6f 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d | you.can.redistribute.it.and/or.m |
| 0a40 | 6f 64 69 66 79 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 | odify.;;.it.under.the.terms.of.t |
| 0a60 | 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 20 61 73 | he.GNU.General.Public.License.as |
| 0a80 | 20 70 75 62 6c 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 | .published.by.;;.the.Free.Softwa |
| 0aa0 | 72 65 20 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 | re.Foundation,.either.version.3. |
| 0ac0 | 6f 66 20 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f | of.the.License,.or.;;.(at.your.o |
| 0ae0 | 70 74 69 6f 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 | ption).any.later.version...;;.Th |
| 0b00 | 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 20 69 6e 20 74 68 65 | is.program.is.distributed.in.the |
| 0b20 | 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 66 75 6c 2c 0a 3b 3b | .hope.that.it.will.be.useful,.;; |
| 0b40 | 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 3b 20 77 69 74 68 6f | .but.WITHOUT.ANY.WARRANTY;.witho |
| 0b60 | 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 6e 74 79 20 6f 66 0a | ut.even.the.implied.warranty.of. |
| 0b80 | 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 4e 45 53 53 20 46 4f | ;;.MERCHANTABILITY.or.FITNESS.FO |
| 0ba0 | 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 53 65 65 20 74 68 65 | R.A.PARTICULAR.PURPOSE...See.the |
| 0bc0 | 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 63 65 6e 73 65 20 66 | .;;.GNU.General.Public.License.f |
| 0be0 | 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 73 68 6f 75 6c 64 20 | or.more.details...;;.You.should. |
| 0c00 | 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 68 65 20 47 4e 55 20 | have.received.a.copy.of.the.GNU. |
| 0c20 | 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 20 61 6c 6f 6e 67 20 | General.Public.License.;;.along. |
| 0c40 | 77 69 74 68 20 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 | with.this.program...If.not,.see. |
| 0c60 | 3c 68 74 74 70 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a | <http://www.gnu.org/licenses/>.. |
| 0c80 | 3b 3b 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 0a 3b 3b 20 43 6f 6e 73 75 6c 74 | ;;.;;;.Commentary:.;;.;;.Consult |
| 0ca0 | 2d 64 69 72 20 69 6d 70 6c 65 6d 65 6e 74 73 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 65 61 73 69 | -dir.implements.commands.to.easi |
| 0cc0 | 6c 79 20 73 77 69 74 63 68 20 62 65 74 77 65 65 6e 20 22 61 63 74 69 76 65 22 0a 3b 3b 20 64 69 | ly.switch.between."active".;;.di |
| 0ce0 | 72 65 63 74 6f 72 69 65 73 2e 20 54 68 65 20 64 69 72 65 63 74 6f 72 79 20 63 61 6e 64 69 64 61 | rectories..The.directory.candida |
| 0d00 | 74 65 73 20 61 72 65 20 63 6f 6c 6c 65 63 74 65 64 20 66 72 6f 6d 20 75 73 65 72 20 62 6f 6f 6b | tes.are.collected.from.user.book |
| 0d20 | 6d 61 72 6b 73 2c 0a 3b 3b 20 70 72 6f 6a 65 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 20 72 6f 6f | marks,.;;.projectile.project.roo |
| 0d40 | 74 73 20 28 69 66 20 61 76 61 69 6c 61 62 6c 65 29 2c 20 70 72 6f 6a 65 63 74 2e 65 6c 20 70 72 | ts.(if.available),.project.el.pr |
| 0d60 | 6f 6a 65 63 74 20 72 6f 6f 74 73 20 61 6e 64 20 72 65 63 65 6e 74 66 0a 3b 3b 20 66 69 6c 65 20 | oject.roots.and.recentf.;;.file. |
| 0d80 | 6c 6f 63 61 74 69 6f 6e 73 2e 20 54 68 65 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 | locations..The.`default-director |
| 0da0 | 79 27 20 76 61 72 69 61 62 6c 65 20 6e 6f 74 20 63 68 61 6e 67 65 64 20 69 6e 20 74 68 65 20 70 | y'.variable.not.changed.in.the.p |
| 0dc0 | 72 6f 63 65 73 73 2e 0a 3b 3b 0a 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 | rocess..;;.;;.Call.`consult-dir' |
| 0de0 | 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 74 6f 20 63 68 6f 6f 73 65 20 61 | .from.the.minibuffer.to.choose.a |
| 0e00 | 20 64 69 72 65 63 74 6f 72 79 20 77 69 74 68 20 63 6f 6d 70 6c 65 74 69 6f 6e 0a 3b 3b 20 61 6e | .directory.with.completion.;;.an |
| 0e20 | 64 20 69 6e 73 65 72 74 20 69 74 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 | d.insert.it.into.the.minibuffer. |
| 0e40 | 70 72 6f 6d 70 74 2c 20 73 68 61 64 6f 77 69 6e 67 20 6f 72 20 64 65 6c 65 74 69 6e 67 20 61 6e | prompt,.shadowing.or.deleting.an |
| 0e60 | 79 20 65 78 69 73 74 69 6e 67 0a 3b 3b 20 64 69 72 65 63 74 6f 72 79 2e 20 54 68 65 20 66 69 6c | y.existing.;;.directory..The.fil |
| 0e80 | 65 20 6e 61 6d 65 20 69 6e 70 75 74 20 69 73 20 72 65 74 61 69 6e 65 64 2e 20 54 68 69 73 20 6c | e.name.input.is.retained..This.l |
| 0ea0 | 65 74 73 20 74 68 65 20 75 73 65 72 20 73 77 69 74 63 68 20 74 6f 0a 3b 3b 20 64 69 73 74 61 6e | ets.the.user.switch.to.;;.distan |
| 0ec0 | 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 76 65 72 79 20 71 75 69 63 6b 6c 79 20 77 68 65 6e 20 | t.directories.very.quickly.when. |
| 0ee0 | 66 69 6e 64 69 6e 67 20 66 69 6c 65 73 2c 20 66 6f 72 20 69 6e 73 74 61 6e 63 65 2e 0a 3b 3b 0a | finding.files,.for.instance..;;. |
| 0f00 | 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 20 66 72 6f 6d 20 61 20 72 65 67 | ;;.Call.`consult-dir'.from.a.reg |
| 0f20 | 75 6c 61 72 20 62 75 66 66 65 72 20 74 6f 20 63 68 6f 6f 73 65 20 61 20 64 69 72 65 63 74 6f 72 | ular.buffer.to.choose.a.director |
| 0f40 | 79 20 77 69 74 68 0a 3b 3b 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6e 64 20 74 68 65 6e 20 69 6e | y.with.;;.completion.and.then.in |
| 0f60 | 74 65 72 61 63 74 69 76 65 6c 79 20 66 69 6e 64 20 61 20 66 69 6c 65 20 69 6e 20 74 68 61 74 20 | teractively.find.a.file.in.that. |
| 0f80 | 64 69 72 65 63 74 6f 72 79 2e 20 54 68 65 20 63 6f 6d 6d 61 6e 64 0a 3b 3b 20 72 75 6e 20 77 69 | directory..The.command.;;.run.wi |
| 0fa0 | 74 68 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 63 6f 6e 66 69 67 75 72 61 62 6c | th.this.directory.is.configurabl |
| 0fc0 | 65 20 76 69 61 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 | e.via.`consult-dir-default-comma |
| 0fe0 | 6e 64 27 20 61 6e 64 0a 3b 3b 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 66 69 6e 64 2d 66 69 6c | nd'.and.;;.defaults.to.`find-fil |
| 1000 | 65 27 2e 0a 3b 3b 0a 3b 3b 20 43 61 6c 6c 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 | e'..;;.;;.Call.`consult-dir-jump |
| 1020 | 2d 66 69 6c 65 27 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 74 6f 20 61 73 | -file'.from.the.minibuffer.to.as |
| 1040 | 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 20 66 69 6e 64 20 61 0a 3b 3b 20 66 69 6c 65 20 61 6e 79 77 | ynchronously.find.a.;;.file.anyw |
| 1060 | 68 65 72 65 20 75 6e 64 65 72 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 74 68 61 74 20 69 73 | here.under.the.directory.that.is |
| 1080 | 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 20 74 68 65 20 70 72 6f 6d 70 74 2e 20 54 68 69 73 20 63 | .currently.in.the.prompt..This.c |
| 10a0 | 61 6e 0a 3b 3b 20 62 65 20 75 73 65 64 20 77 69 74 68 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 | an.;;.be.used.with.`consult-dir' |
| 10c0 | 20 74 6f 20 71 75 69 63 6b 6c 79 20 73 77 69 74 63 68 20 64 69 72 65 63 74 6f 72 69 65 73 20 61 | .to.quickly.switch.directories.a |
| 10e0 | 6e 64 20 66 69 6e 64 20 66 69 6c 65 73 20 61 74 20 61 6e 0a 3b 3b 20 61 72 62 69 74 72 61 72 79 | nd.find.files.at.an.;;.arbitrary |
| 1100 | 20 64 65 70 74 68 20 75 6e 64 65 72 20 74 68 65 6d 2e 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d | .depth.under.them..`consult-dir- |
| 1120 | 6a 75 6d 70 2d 66 69 6c 65 27 20 75 73 65 73 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 20 75 | jump-file'.uses.`consult-find'.u |
| 1140 | 6e 64 65 72 0a 3b 3b 20 74 68 65 20 68 6f 6f 64 2e 0a 3b 3b 0a 3b 3b 20 54 6f 20 75 73 65 20 74 | nder.;;.the.hood..;;.;;.To.use.t |
| 1160 | 68 69 73 20 70 61 63 6b 61 67 65 2c 20 62 69 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 20 | his.package,.bind.`consult-dir'. |
| 1180 | 61 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 27 20 75 6e 64 65 | and.`consult-dir-jump-file'.unde |
| 11a0 | 72 20 74 68 65 0a 3b 3b 20 60 6d 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 63 6f 6d 70 6c | r.the.;;.`minibuffer-local-compl |
| 11c0 | 65 74 69 6f 6e 2d 6d 61 70 27 20 6f 72 20 65 71 75 69 76 61 6c 65 6e 74 2c 20 61 6e 64 20 60 63 | etion-map'.or.equivalent,.and.`c |
| 11e0 | 6f 6e 73 75 6c 74 2d 64 69 72 27 20 74 6f 20 74 68 65 20 67 6c 6f 62 61 6c 20 6d 61 70 2e 0a 3b | onsult-dir'.to.the.global.map..; |
| 1200 | 3b 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 | ;.;;.(define-key.minibuffer-loca |
| 1220 | 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 20 28 6b 62 64 20 22 43 2d 78 20 43 2d 64 22 29 | l-completion-map.(kbd."C-x.C-d") |
| 1240 | 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d | .#'consult-dir).;;.(define-key.m |
| 1260 | 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 61 70 20 28 | inibuffer-local-completion-map.( |
| 1280 | 6b 62 64 20 22 43 2d 78 20 43 2d 6a 22 29 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d | kbd."C-x.C-j").#'consult-dir-jum |
| 12a0 | 70 2d 66 69 6c 65 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 67 6c 6f 62 61 6c 2d 6d 61 | p-file).;;.(define-key.global-ma |
| 12c0 | 70 20 28 6b 62 64 20 22 43 2d 78 20 43 2d 64 22 29 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 | p.(kbd."C-x.C-d").#'consult-dir) |
| 12e0 | 0a 3b 3b 0a 3b 3b 20 44 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 63 6f 6e 66 69 67 75 | .;;.;;.Directory.sources.configu |
| 1300 | 72 61 74 69 6f 6e 3a 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 72 65 63 65 6e 74 20 64 69 72 65 | ration:.;;.-.To.make.recent.dire |
| 1320 | 63 74 6f 72 69 65 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 74 75 72 6e 20 6f 6e 20 60 72 65 63 65 | ctories.available,.turn.on.`rece |
| 1340 | 6e 74 66 2d 6d 6f 64 65 27 2e 0a 3b 3b 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 70 72 6f 6a 65 | ntf-mode'..;;.;;.-.To.make.proje |
| 1360 | 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 74 75 72 6e 20 6f | ctile.projects.available,.turn.o |
| 1380 | 6e 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6d 6f 64 65 20 61 6e 64 0a 3b 3b 20 63 6f 6e 66 69 67 75 | n.projectile-mode.and.;;.configu |
| 13a0 | 72 65 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e | re.`consult-dir-project-list-fun |
| 13c0 | 63 74 69 6f 6e 27 2e 20 4e 6f 74 65 20 74 68 61 74 20 50 72 6f 6a 65 63 74 69 6c 65 20 69 73 20 | ction'..Note.that.Projectile.is. |
| 13e0 | 4e 4f 54 0a 3b 3b 20 72 65 71 75 69 72 65 64 20 74 6f 20 69 6e 73 74 61 6c 6c 20 74 68 69 73 20 | NOT.;;.required.to.install.this. |
| 1400 | 70 61 63 6b 61 67 65 2e 0a 3b 3b 0a 3b 3b 20 2d 20 54 6f 20 6d 61 6b 65 20 70 72 6f 6a 65 63 74 | package..;;.;;.-.To.make.project |
| 1420 | 2e 65 6c 20 70 72 6f 6a 65 63 74 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 63 6f 6e 66 69 67 75 72 | .el.projects.available,.configur |
| 1440 | 65 0a 3b 3b 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 | e.;;.`consult-dir-project-list-f |
| 1460 | 75 6e 63 74 69 6f 6e 27 2e 0a 3b 3b 0a 3b 3b 20 54 6f 20 63 68 61 6e 67 65 20 64 69 72 65 63 74 | unction'..;;.;;.To.change.direct |
| 1480 | 6f 72 79 20 73 6f 75 72 63 65 73 20 6f 72 20 74 68 65 69 72 20 6f 72 64 65 72 69 6e 67 2c 20 63 | ory.sources.or.their.ordering,.c |
| 14a0 | 75 73 74 6f 6d 69 7a 65 0a 3b 3b 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 | ustomize.;;.`consult-dir-sources |
| 14c0 | 27 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c | '...;;;.Code:..(eval-when-compil |
| 14e0 | 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 29 0a 28 72 65 71 75 69 72 65 20 | e...(require.'subr-x)).(require. |
| 1500 | 27 63 6c 2d 6c 69 62 29 0a 28 72 65 71 75 69 72 65 20 27 62 6f 6f 6b 6d 61 72 6b 29 0a 28 72 65 | 'cl-lib).(require.'bookmark).(re |
| 1520 | 71 75 69 72 65 20 27 72 65 63 65 6e 74 66 29 0a 28 72 65 71 75 69 72 65 20 27 73 65 71 29 0a 28 | quire.'recentf).(require.'seq).( |
| 1540 | 72 65 71 75 69 72 65 20 27 63 6f 6e 73 75 6c 74 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 | require.'consult)..(declare-func |
| 1560 | 74 69 6f 6e 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6c 6f 61 64 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 | tion.projectile-load-known-proje |
| 1580 | 63 74 73 20 22 70 72 6f 6a 65 63 74 69 6c 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | cts."projectile").(declare-funct |
| 15a0 | 69 6f 6e 20 70 72 6f 6a 65 63 74 2d 2d 72 65 61 64 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 20 22 | ion.project--read-project-list." |
| 15c0 | 70 72 6f 6a 65 63 74 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 74 72 61 6d | project").(declare-function.tram |
| 15e0 | 70 2d 70 61 72 73 65 2d 73 63 6f 6e 66 69 67 20 22 74 72 61 6d 70 22 29 0a 0a 3b 3b 3b 20 44 65 | p-parse-sconfig."tramp")..;;;.De |
| 1600 | 63 6c 61 72 65 20 76 61 72 69 61 62 6c 65 73 20 66 6f 72 20 62 79 74 65 20 63 6f 6d 70 69 6c 65 | clare.variables.for.byte.compile |
| 1620 | 72 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a | r..(defvar.projectile-known-proj |
| 1640 | 65 63 74 73 29 0a 28 64 65 66 76 61 72 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6d 6f 64 65 29 0a 28 | ects).(defvar.projectile-mode).( |
| 1660 | 64 65 66 76 61 72 20 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 29 0a 0a 28 64 | defvar.tramp-default-method)..(d |
| 1680 | 65 66 67 72 6f 75 70 20 63 6f 6e 73 75 6c 74 2d 64 69 72 20 6e 69 6c 0a 20 20 22 43 6f 6e 73 75 | efgroup.consult-dir.nil..."Consu |
| 16a0 | 6c 74 69 6e 67 20 60 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 27 2e 22 0a 20 20 3a 67 72 6f | lting.`completing-read'."...:gro |
| 16c0 | 75 70 20 27 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 20 20 3a 67 72 6f 75 70 20 27 6d 69 6e 69 62 75 | up.'convenience...:group.'minibu |
| 16e0 | 66 66 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 0a 20 20 3a 70 72 65 66 69 78 | ffer...:group.'consult...:prefix |
| 1700 | 20 22 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e | ."consult-dir-")..(defcustom.con |
| 1720 | 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 2d 66 69 6c 65 6e 61 6d 65 73 20 74 0a 20 20 22 53 | sult-dir-shadow-filenames.t..."S |
| 1740 | 68 61 64 6f 77 20 66 69 6c 65 20 6e 61 6d 65 73 20 69 6e 73 74 65 61 64 20 6f 66 20 72 65 70 6c | hadow.file.names.instead.of.repl |
| 1760 | 61 63 69 6e 67 20 74 68 65 6d 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 | acing.them.when.using.`consult-d |
| 1780 | 69 72 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 | ir'."...:group.'consult-dir...:t |
| 17a0 | 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c | ype.'boolean)..(defcustom.consul |
| 17c0 | 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 20 23 27 66 69 6e 64 2d 66 69 6c | t-dir-default-command.#'find-fil |
| 17e0 | 65 0a 20 20 22 43 6f 6d 6d 61 6e 64 20 74 6f 20 72 75 6e 20 61 66 74 65 72 20 73 65 6c 65 63 74 | e..."Command.to.run.after.select |
| 1800 | 69 6e 67 20 61 20 64 69 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 | ing.a.directory.using.`consult-d |
| 1820 | 69 72 27 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 74 6f 20 69 6e 76 6f 6b 65 20 60 | ir'...The.default.is.to.invoke.` |
| 1840 | 66 69 6e 64 2d 66 69 6c 65 27 20 66 72 6f 6d 20 74 68 65 20 63 68 6f 73 65 6e 0a 64 69 72 65 63 | find-file'.from.the.chosen.direc |
| 1860 | 74 6f 72 79 2e 20 53 65 74 74 69 6e 67 20 69 74 20 74 6f 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 | tory..Setting.it.to.`consult-dir |
| 1880 | 2d 64 69 72 65 64 27 20 77 69 6c 6c 20 69 6e 73 74 65 61 64 20 6f 70 65 6e 0a 74 68 65 20 63 68 | -dired'.will.instead.open.the.ch |
| 18a0 | 6f 73 65 6e 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 64 69 72 65 64 2e 0a 0a 41 6e 79 20 61 72 | osen.directory.in.dired...Any.ar |
| 18c0 | 62 69 74 72 61 72 79 20 66 75 6e 63 74 69 6f 6e 20 28 6f 66 20 6e 6f 20 76 61 72 69 61 62 6c 65 | bitrary.function.(of.no.variable |
| 18e0 | 73 29 20 63 61 6e 20 62 65 20 73 70 65 63 69 66 69 65 64 0a 69 6e 73 74 65 61 64 2e 20 49 74 20 | s).can.be.specified.instead..It. |
| 1900 | 69 73 20 72 75 6e 20 77 69 74 68 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 20 | is.run.with.`default-directory'. |
| 1920 | 73 65 74 20 74 6f 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 0a 63 68 6f 73 65 6e 20 75 73 69 6e | set.to.the.directory.chosen.usin |
| 1940 | 67 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 | g.`consult-dir'."...:group.'cons |
| 1960 | 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 75 6e 63 74 69 | ult-dir...:type.'(choice.(functi |
| 1980 | 6f 6e 2d 69 74 65 6d 20 3a 74 61 67 20 22 46 69 6e 64 20 66 69 6c 65 22 20 66 69 6e 64 2d 66 69 | on-item.:tag."Find.file".find-fi |
| 19a0 | 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 | le)..................(function-i |
| 19c0 | 74 65 6d 20 3a 74 61 67 20 22 4f 70 65 6e 20 64 69 72 65 63 74 6f 72 79 22 20 63 6f 6e 73 75 6c | tem.:tag."Open.directory".consul |
| 19e0 | 74 2d 64 69 72 2d 64 69 72 65 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | t-dir-dired)..................(f |
| 1a00 | 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 20 66 75 6e 63 74 69 6f 6e 22 29 29 | unction.:tag."Custom.function")) |
| 1a20 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d | )..(defcustom.consult-dir-tramp- |
| 1a40 | 64 65 66 61 75 6c 74 2d 72 65 6d 6f 74 65 2d 70 61 74 68 20 22 7e 22 0a 20 20 22 44 65 66 61 75 | default-remote-path."~"..."Defau |
| 1a60 | 6c 74 20 70 61 74 68 20 74 6f 20 75 73 65 20 66 6f 72 20 72 65 6d 6f 74 65 20 64 69 72 65 63 74 | lt.path.to.use.for.remote.direct |
| 1a80 | 6f 72 69 65 73 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 | ories.when.using.`consult-dir'." |
| 1aa0 | 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 | ...:group.'consult-dir...:type.' |
| 1ac0 | 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d | string)..(defcustom.consult-dir- |
| 1ae0 | 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f 73 74 73 20 27 28 22 2f 73 75 64 6f 3a 72 6f 6f 74 40 | tramp-local-hosts.'("/sudo:root@ |
| 1b00 | 6c 6f 63 61 6c 68 6f 73 74 3a 2f 22 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 6c 6f 63 61 6c | localhost:/")..."A.list.of.local |
| 1b20 | 20 68 6f 73 74 73 20 74 6f 20 69 6e 63 6c 75 64 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 63 6f | .hosts.to.include."...:group.'co |
| 1b40 | 6e 73 75 6c 74 2d 64 69 72 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e | nsult-dir...:type.'(repeat.strin |
| 1b60 | 67 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a | g))..(defcustom.consult-dir-proj |
| 1b80 | 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 74 69 6f 6e 20 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d | ect-list-function.#'consult-dir- |
| 1ba0 | 70 72 6f 6a 65 63 74 2d 64 69 72 73 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 | project-dirs..."Function.that.re |
| 1bc0 | 74 75 72 6e 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 | turns.the.list.of.project.direct |
| 1be0 | 6f 72 69 65 73 2e 0a 0a 54 68 65 73 65 20 61 72 65 20 75 73 65 64 20 61 73 20 63 61 6e 64 69 64 | ories...These.are.used.as.candid |
| 1c00 | 61 74 65 73 20 66 6f 72 20 73 77 69 74 63 68 69 6e 67 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 | ates.for.switching.when.using.`c |
| 1c20 | 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 0a 0a 54 68 65 20 6f 70 74 69 6f 6e 73 20 61 72 65 0a 0a 31 | onsult-dir'...The.options.are..1 |
| 1c40 | 2e 20 70 72 6f 6a 65 63 74 2e 65 6c 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 | ..project.el.project.directories |
| 1c60 | 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 0a 32 2e 20 70 72 6f 6a 65 63 74 69 6c 65 20 70 72 6f | .(the.default).2..projectile.pro |
| 1c80 | 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 0a 33 2e 20 41 6e 79 20 75 73 65 72 2d 64 65 66 | ject.directories.3..Any.user-def |
| 1ca0 | 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 2e 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 73 68 6f | ined.function..This.function.sho |
| 1cc0 | 75 6c 64 20 74 61 6b 65 20 6e 6f 0a 61 72 67 75 6d 65 6e 74 73 20 61 6e 64 20 72 65 74 75 72 6e | uld.take.no.arguments.and.return |
| 1ce0 | 20 61 20 6c 69 73 74 20 6f 66 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 3a 74 79 70 65 | .a.list.of.directories."...:type |
| 1d00 | 20 27 28 72 61 64 69 6f 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 | .'(radio...........(function-ite |
| 1d20 | 6d 20 3a 74 61 67 20 22 50 72 6f 6a 65 63 74 2e 65 6c 20 70 72 6f 6a 65 63 74 73 22 20 63 6f 6e | m.:tag."Project.el.projects".con |
| 1d40 | 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 | sult-dir-project-dirs).......... |
| 1d60 | 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 3a 74 61 67 20 22 50 72 6f 6a 65 63 74 69 6c 65 | .(function-item.:tag."Projectile |
| 1d80 | 20 70 72 6f 6a 65 63 74 73 22 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 69 6c | .projects".consult-dir-projectil |
| 1da0 | 65 2d 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 | e-dirs)...........(function.:tag |
| 1dc0 | 20 22 55 73 65 72 2d 64 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 | ."User-defined.function")))..(de |
| 1de0 | 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 0a 20 20 27 28 | fcustom.consult-dir-sources...'( |
| 1e00 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f 6b 6d 61 72 6b 0a 20 20 20 | consult-dir--source-bookmark.... |
| 1e20 | 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 64 65 66 61 75 6c 74 0a 20 20 20 | .consult-dir--source-default.... |
| 1e40 | 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 70 72 6f 6a 65 63 74 20 20 20 20 | .consult-dir--source-project.... |
| 1e60 | 20 20 20 20 20 3b 70 72 6f 6a 65 63 74 69 6c 65 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2c 20 70 | .....;projectile.if.available,.p |
| 1e80 | 72 6f 6a 65 63 74 2e 65 6c 20 6f 74 68 65 72 77 69 73 65 0a 20 20 20 20 63 6f 6e 73 75 6c 74 2d | roject.el.otherwise.....consult- |
| 1ea0 | 64 69 72 2d 2d 73 6f 75 72 63 65 2d 72 65 63 65 6e 74 66 0a 20 20 20 20 63 6f 6e 73 75 6c 74 2d | dir--source-recentf.....consult- |
| 1ec0 | 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 6c 6f 63 61 6c 29 0a 20 20 22 44 69 72 65 | dir--source-tramp-local)..."Dire |
| 1ee0 | 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e | ctory.sources.for.`consult-dir'. |
| 1f00 | 0a 0a 54 68 65 72 65 20 61 72 65 20 73 65 76 65 72 61 6c 20 62 75 69 6c 74 2d 69 6e 20 73 6f 75 | ..There.are.several.built-in.sou |
| 1f20 | 72 63 65 73 20 61 76 61 69 6c 61 62 6c 65 2c 20 69 6e 63 6c 75 64 69 6e 67 0a 62 6f 6f 6b 6d 61 | rces.available,.including.bookma |
| 1f40 | 72 6b 65 64 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 72 65 63 65 6e 74 6c 79 20 76 69 73 69 74 | rked.directories,.recently.visit |
| 1f60 | 65 64 20 66 69 6c 65 20 6c 6f 63 61 74 69 6f 6e 73 2c 20 70 72 6f 6a 65 63 74 0a 64 69 72 65 63 | ed.file.locations,.project.direc |
| 1f80 | 74 6f 72 69 65 73 20 61 6e 64 20 6d 6f 72 65 2c 20 73 65 65 20 63 75 73 74 6f 6d 69 7a 61 74 69 | tories.and.more,.see.customizati |
| 1fa0 | 6f 6e 20 6f 70 74 69 6f 6e 73 2e 0a 0a 59 6f 75 20 63 61 6e 20 61 64 64 20 79 6f 75 72 20 6f 77 | on.options...You.can.add.your.ow |
| 1fc0 | 6e 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 73 20 74 6f 20 74 68 65 20 6c 69 73 74 2e | n.directory.sources.to.the.list. |
| 1fe0 | 20 54 68 65 20 65 6e 74 72 79 0a 6d 75 73 74 20 62 65 20 61 20 76 61 72 69 61 62 6c 65 20 69 6e | .The.entry.must.be.a.variable.in |
| 2000 | 20 74 68 65 20 70 6c 69 73 74 20 66 6f 72 6d 61 74 20 73 70 65 63 69 66 69 65 64 20 62 79 20 43 | .the.plist.format.specified.by.C |
| 2020 | 6f 6e 73 75 6c 74 2c 20 73 65 65 0a 74 68 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 6f 66 | onsult,.see.the.documentation.of |
| 2040 | 20 60 63 6f 6e 73 75 6c 74 2d 2d 6d 75 6c 74 69 27 20 66 6f 72 20 64 65 74 61 69 6c 73 2e 22 0a | .`consult--multi'.for.details.". |
| 2060 | 20 20 3a 74 79 70 65 0a 20 20 27 28 72 65 70 65 61 74 20 28 63 68 6f 69 63 65 0a 20 20 20 20 20 | ..:type...'(repeat.(choice...... |
| 2080 | 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 42 6f 6f 6b 6d 61 72 6b 65 64 20 64 | .......(const.:tag."Bookmarked.d |
| 20a0 | 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | irectories"....................c |
| 20c0 | 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f 6b 6d 61 72 6b 29 0a 20 20 20 | onsult-dir--source-bookmark).... |
| 20e0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 43 75 72 72 65 6e 74 20 64 69 | .........(const.:tag."Current.di |
| 2100 | 72 65 63 74 6f 72 79 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 22 0a 20 20 20 20 20 20 | rectory.and.project.root"....... |
| 2120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 | .............consult-dir--source |
| 2140 | 2d 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 | -default).............(const.:ta |
| 2160 | 67 20 22 41 6c 6c 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 | g."All.project.directories"..... |
| 2180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 | ...............consult-dir--sour |
| 21a0 | 63 65 2d 70 72 6f 6a 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a | ce-project).............(const.: |
| 21c0 | 74 61 67 20 22 52 65 63 65 6e 74 20 64 69 72 65 63 74 6f 72 69 65 73 22 0a 20 20 20 20 20 20 20 | tag."Recent.directories"........ |
| 21e0 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d | ............consult-dir--source- |
| 2200 | 72 65 63 65 6e 74 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 | recentf).............(const.:tag |
| 2220 | 20 22 4c 6f 63 61 6c 20 54 52 41 4d 50 20 6d 65 74 68 6f 64 73 22 0a 20 20 20 20 20 20 20 20 20 | ."Local.TRAMP.methods".......... |
| 2240 | 20 20 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 | ..........consult-dir--source-tr |
| 2260 | 61 6d 70 2d 6c 6f 63 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 | amp-local).............(const.:t |
| 2280 | 61 67 20 22 4b 6e 6f 77 6e 20 73 73 68 20 68 6f 73 74 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ag."Known.ssh.hosts"............ |
| 22a0 | 20 20 20 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d | ........consult-dir--source-tram |
| 22c0 | 70 2d 73 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 20 3a 74 61 67 20 | p-ssh).............(symbol.:tag. |
| 22e0 | 22 43 75 73 74 6f 6d 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 22 29 29 29 29 0a 0a 28 | "Custom.directory.source"))))..( |
| 2300 | 64 65 66 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 2d | defcustom.consult-dir-jump-file- |
| 2320 | 63 6f 6d 6d 61 6e 64 20 27 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 0a 20 20 22 43 6f 6e 73 75 6c 74 | command.'consult-find..."Consult |
| 2340 | 20 63 6f 6d 6d 61 6e 64 20 75 73 65 64 20 62 79 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 | .command.used.by.`consult-dir-ju |
| 2360 | 6d 70 2d 66 69 6c 65 27 2e 0a 0a 41 76 61 69 6c 61 62 6c 65 20 6f 70 74 69 6f 6e 73 20 61 72 65 | mp-file'...Available.options.are |
| 2380 | 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 20 61 6e 64 20 60 63 6f 6e 73 75 6c 74 2d 66 64 27 | .`consult-find'.and.`consult-fd' |
| 23a0 | 20 28 62 6f 74 68 0a 70 72 6f 76 69 64 65 64 20 62 79 20 43 6f 6e 73 75 6c 74 29 2c 20 6f 72 20 | .(both.provided.by.Consult),.or. |
| 23c0 | 79 6f 75 72 20 6f 77 6e 20 76 61 72 69 61 74 69 6f 6e 20 74 68 65 72 65 6f 66 2e 20 20 49 74 20 | your.own.variation.thereof...It. |
| 23e0 | 73 68 6f 75 6c 64 0a 70 6f 73 73 65 73 73 20 74 68 65 20 73 61 6d 65 20 73 69 67 6e 61 74 75 72 | should.possess.the.same.signatur |
| 2400 | 65 20 61 73 20 60 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 | e.as.`consult-find'."...:type.'( |
| 2420 | 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 55 73 | choice...........(const.:tag."Us |
| 2440 | 65 20 60 66 69 6e 64 27 22 20 63 6f 6e 73 75 6c 74 2d 66 69 6e 64 29 0a 20 20 20 20 20 20 20 20 | e.`find'".consult-find)......... |
| 2460 | 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 55 73 65 20 60 66 64 27 22 20 63 6f 6e 73 75 6c 74 | ..(const.:tag."Use.`fd'".consult |
| 2480 | 2d 66 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 | -fd)...........(function.:tag."C |
| 24a0 | 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 | ustom.consult.function")))..(def |
| 24c0 | 63 75 73 74 6f 6d 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 72 74 2d 63 61 6e 64 69 64 61 74 | custom.consult-dir-sort-candidat |
| 24e0 | 65 73 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 20 6e 69 6c 2c 20 65 6e 61 62 6c 65 20 73 6f 72 | es.nil..."If.non.nil,.enable.sor |
| 2500 | 74 69 6e 67 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 73 2e 22 0a | ting.of.completion.candidates.". |
| 2520 | 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c | ..:type.'boolean)..(defun.consul |
| 2540 | 74 2d 64 69 72 2d 64 69 72 65 64 20 28 29 0a 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | t-dir-dired.().....(interactive) |
| 2560 | 0a 20 20 20 20 28 64 69 72 65 64 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a | .....(dired.default-directory)). |
| 2580 | 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 72 61 6d 70 2d 70 61 72 73 65 | .(defun.consult-dir--tramp-parse |
| 25a0 | 2d 63 6f 6e 66 69 67 20 28 63 6f 6e 66 69 67 29 0a 20 20 22 47 69 76 65 6e 20 61 20 43 4f 4e 46 | -config.(config)..."Given.a.CONF |
| 25c0 | 49 47 2c 20 70 61 72 73 65 20 74 68 65 20 68 6f 73 74 73 20 66 72 6f 6d 20 69 74 20 61 6e 64 20 | IG,.parse.the.hosts.from.it.and. |
| 25e0 | 72 65 74 75 72 6e 20 74 68 65 20 72 65 73 75 6c 74 73 20 61 73 20 61 20 6c 69 73 74 2e 22 0a 20 | return.the.results.as.a.list.".. |
| 2600 | 20 28 6c 65 74 20 28 28 68 6f 73 74 73 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 | .(let.((hosts)).....(when.(and.( |
| 2620 | 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 6f 6e 66 69 67 29 0a 20 20 20 20 20 20 20 20 20 20 | file-exists-p.config)........... |
| 2640 | 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 74 72 61 6d 70 20 6e 69 6c 20 74 29 29 0a 20 20 20 | .....(require.'tramp.nil.t)).... |
| 2660 | 20 20 20 28 64 6f 6c 69 73 74 20 28 63 61 6e 64 20 28 74 72 61 6d 70 2d 70 61 72 73 65 2d 73 63 | ...(dolist.(cand.(tramp-parse-sc |
| 2680 | 6f 6e 66 69 67 20 63 6f 6e 66 69 67 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 75 73 | onfig.config)).........(let.((us |
| 26a0 | 65 72 20 28 69 66 20 28 63 61 72 20 63 61 6e 64 29 20 28 63 6f 6e 63 61 74 20 28 63 61 72 20 63 | er.(if.(car.cand).(concat.(car.c |
| 26c0 | 61 6e 64 29 20 22 40 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 6f 73 74 20 | and)."@")))...............(host. |
| 26e0 | 28 63 61 64 72 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 68 6f | (cadr.cand)))...........(when.ho |
| 2700 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 63 61 74 20 22 2f 22 | st.............(push.(concat."/" |
| 2720 | 20 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 20 | .tramp-default-method........... |
| 2740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 22 20 75 73 65 72 20 68 6f 73 74 0a 20 20 | ................":".user.host... |
| 2760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 22 20 63 6f 6e 73 | ........................":".cons |
| 2780 | 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d 64 65 66 61 75 6c 74 2d 72 65 6d 6f 74 65 2d 70 61 74 | ult-dir-tramp-default-remote-pat |
| 27a0 | 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 6f 73 74 73 29 29 29 29 0a 20 | h)...................hosts)))).. |
| 27c0 | 20 20 20 20 20 68 6f 73 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 | .....hosts)))..(defun.consult-di |
| 27e0 | 72 2d 2d 74 72 61 6d 70 2d 73 73 68 2d 68 6f 73 74 73 20 28 29 0a 20 20 22 47 65 74 20 61 20 6c | r--tramp-ssh-hosts.()..."Get.a.l |
| 2800 | 69 73 74 20 6f 66 20 68 6f 73 74 73 20 66 72 6f 6d 20 60 63 6f 6e 73 75 6c 74 2d 74 72 61 6d 70 | ist.of.hosts.from.`consult-tramp |
| 2820 | 2d 73 73 68 2d 63 6f 6e 66 69 67 27 2e 22 0a 20 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 | -ssh-config'."...(consult-dir--t |
| 2840 | 72 61 6d 70 2d 70 61 72 73 65 2d 63 6f 6e 66 69 67 20 22 7e 2f 2e 73 73 68 2f 63 6f 6e 66 69 67 | ramp-parse-config."~/.ssh/config |
| 2860 | 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 | "))..(defun.consult-dir--default |
| 2880 | 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 64 65 66 61 75 6c 74 20 64 | -dirs.()..."Return.the.default.d |
| 28a0 | 69 72 65 63 74 6f 72 79 20 61 6e 64 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 20 69 66 20 61 76 61 | irectory.and.project.root.if.ava |
| 28c0 | 69 6c 61 62 6c 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 75 6c 6c 64 69 72 20 28 65 78 70 61 6e | ilable."...(let.((fulldir.(expan |
| 28e0 | 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a | d-file-name.default-directory)). |
| 2900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 20 28 61 62 62 | .......................(dir.(abb |
| 2920 | 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | reviate-file-name.default-direct |
| 2940 | 6f 72 79 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 28 72 6f | ory))........................(ro |
| 2960 | 6f 74 20 28 63 6f 6e 73 75 6c 74 2d 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 29 29 0a 20 20 20 | ot.(consult--project-root))).... |
| 2980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 72 6f 6f 74 | ................(cond.((and.root |
| 29a0 | 20 28 65 71 75 61 6c 20 66 75 6c 6c 64 69 72 20 72 6f 6f 74 29 29 20 28 6c 69 73 74 20 64 69 72 | .(equal.fulldir.root)).(list.dir |
| 29c0 | 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 72 6f 6f | ))..........................(roo |
| 29e0 | 74 20 28 6c 69 73 74 20 64 69 72 20 28 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d | t.(list.dir.(abbreviate-file-nam |
| 2a00 | 65 20 72 6f 6f 74 29 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 | e.root)))....................... |
| 2a20 | 20 20 20 28 74 20 28 6c 69 73 74 20 64 69 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e | ...(t.(list.dir)))))..(defun.con |
| 2a40 | 73 75 6c 74 2d 64 69 72 2d 2d 62 6f 6f 6b 6d 61 72 6b 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 | sult-dir--bookmark-dirs.()..."Re |
| 2a60 | 74 75 72 6e 20 62 6f 6f 6b 6d 61 72 6b 73 20 74 68 61 74 20 61 72 65 20 64 69 72 65 63 74 6f 72 | turn.bookmarks.that.are.director |
| 2a80 | 69 65 73 2e 22 0a 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6d 61 79 62 65 2d 6c 6f 61 64 2d 64 65 66 | ies."...(bookmark-maybe-load-def |
| 2aa0 | 61 75 6c 74 2d 66 69 6c 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 72 72 6f 77 20 | ault-file)...(let.((file-narrow. |
| 2ac0 | 3f 66 29 29 0a 20 20 20 20 28 74 68 72 65 61 64 2d 6c 61 73 74 20 62 6f 6f 6b 6d 61 72 6b 2d 61 | ?f)).....(thread-last.bookmark-a |
| 2ae0 | 6c 69 73 74 0a 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 20 20 20 20 28 6c 61 | list.......(cl-remove-if.....(la |
| 2b00 | 6d 62 64 61 20 28 63 61 6e 64 29 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 68 61 6e 64 6c 65 | mbda.(cand).(bookmark-get-handle |
| 2b20 | 72 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f | r.cand))).......(cl-remove-if-no |
| 2b40 | 74 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | t.(lambda.(cand)................ |
| 2b60 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 6d 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 | ...........(let.((bm.(bookmark-g |
| 2b80 | 65 74 2d 62 6f 6f 6b 6d 61 72 6b 2d 72 65 63 6f 72 64 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 | et-bookmark-record.cand)))...... |
| 2ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 | .......................(when-let |
| 2bc0 | 20 28 28 66 69 6c 65 20 28 61 6c 69 73 74 2d 67 65 74 20 27 66 69 6c 65 6e 61 6d 65 20 62 6d 29 | .((file.(alist-get.'filename.bm) |
| 2be0 | 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 20 20 20 | )).............................. |
| 2c00 | 20 28 69 66 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 | .(if.(file-remote-p.file)....... |
| 2c20 | 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 20 28 73 74 72 | ............................(str |
| 2c40 | 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 | ing-suffix-p."/".file).......... |
| 2c60 | 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 69 6c 65 2d 64 69 72 | .......................(file-dir |
| 2c80 | 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 6d 61 70 63 61 | ectory-p.file)))))).......(mapca |
| 2ca0 | 72 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 29 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 61 | r.(lambda.(cand).(propertize.(ca |
| 2cc0 | 72 20 63 61 6e 64 29 20 27 63 6f 6e 73 75 6c 74 2d 2d 74 79 70 65 20 66 69 6c 65 2d 6e 61 72 72 | r.cand).'consult--type.file-narr |
| 2ce0 | 6f 77 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f | ow))))))..(defun.consult-dir-pro |
| 2d00 | 6a 65 63 74 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 | ject-dirs.()..."Return.a.list.of |
| 2d20 | 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 6d 61 6e 61 67 65 64 20 62 79 20 | .project.directories.managed.by. |
| 2d40 | 70 72 6f 6a 65 63 74 2e 65 6c 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 20 28 62 6f 75 | project.el."...(unless.(and.(bou |
| 2d60 | 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 20 28 6c 69 73 74 70 20 70 72 6f 6a 65 | ndp.'project--list).(listp.proje |
| 2d80 | 63 74 2d 2d 6c 69 73 74 29 29 0a 20 20 20 20 28 61 6e 64 20 28 72 65 71 75 69 72 65 20 27 70 72 | ct--list)).....(and.(require.'pr |
| 2da0 | 6f 6a 65 63 74 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 6a 65 63 74 2d 2d | oject.nil.t)..........(project-- |
| 2dc0 | 72 65 61 64 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 29 29 29 0a 20 20 28 61 6e 64 20 28 62 6f 75 | read-project-list)))...(and.(bou |
| 2de0 | 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 20 28 63 6f 6e 73 70 20 70 72 6f 6a 65 | ndp.'project--list).(consp.proje |
| 2e00 | 63 74 2d 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 70 | ct--list)........(mapcar.#'car.p |
| 2e20 | 72 6f 6a 65 63 74 2d 2d 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d | roject--list)))..(defun.consult- |
| 2e40 | 64 69 72 2d 70 72 6f 6a 65 63 74 69 6c 65 2d 64 69 72 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e | dir-projectile-dirs.()..."Return |
| 2e60 | 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 | .a.list.of.the.project.directori |
| 2e80 | 65 73 20 6d 61 6e 61 67 65 64 20 62 79 20 50 72 6f 6a 65 63 74 69 6c 65 2e 22 0a 20 20 28 69 66 | es.managed.by.Projectile."...(if |
| 2ea0 | 20 28 6e 6f 74 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 70 72 6f 6a 65 63 74 69 | .(not.(bound-and-true-p.projecti |
| 2ec0 | 6c 65 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 63 74 73 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 72 | le-known-projects)).......(if.(r |
| 2ee0 | 65 71 75 69 72 65 20 27 70 72 6f 6a 65 63 74 69 6c 65 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 | equire.'projectile.nil.t)....... |
| 2f00 | 20 20 20 20 28 70 72 6f 6a 65 63 74 69 6c 65 2d 6c 6f 61 64 2d 6b 6e 6f 77 6e 2d 70 72 6f 6a 65 | ....(projectile-load-known-proje |
| 2f20 | 63 74 73 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 50 72 | cts).........(error.(message."Pr |
| 2f40 | 6f 6a 65 63 74 69 6c 65 20 70 72 6f 6a 65 63 74 73 20 63 6f 75 6c 64 20 6e 6f 74 20 62 65 20 6c | ojectile.projects.could.not.be.l |
| 2f60 | 6f 61 64 65 64 2e 22 29 29 29 0a 20 20 20 20 70 72 6f 6a 65 63 74 69 6c 65 2d 6b 6e 6f 77 6e 2d | oaded."))).....projectile-known- |
| 2f80 | 70 72 6f 6a 65 63 74 73 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d | projects))..(defvar.consult-dir- |
| 2fa0 | 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 20 6e 69 6c 0a 20 20 22 48 61 73 68 20 74 | -project-list-hash.nil..."Hash.t |
| 2fc0 | 6f 20 73 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 73 2e 0a 0a 55 | o.store.the.list.of.projects...U |
| 2fe0 | 73 65 64 20 74 6f 20 61 76 6f 69 64 20 64 75 70 6c 69 63 61 74 69 6e 67 20 73 6f 75 72 63 65 20 | sed.to.avoid.duplicating.source. |
| 3000 | 65 6e 74 72 69 65 73 20 69 6e 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 64 65 | entries.in.`consult-dir'.")..(de |
| 3020 | 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 | fun.consult-dir--project-list-ma |
| 3040 | 6b 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 66 72 65 73 68 29 0a 20 20 22 4d 61 6b 65 20 68 | ke.(&optional.refresh)..."Make.h |
| 3060 | 61 73 68 20 74 61 62 6c 65 20 74 6f 20 73 74 6f 72 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 70 | ash.table.to.store.the.list.of.p |
| 3080 | 72 6f 6a 65 63 74 73 2e 0a 0a 54 68 65 20 74 61 62 6c 65 20 69 73 20 73 74 6f 72 65 64 20 69 6e | rojects...The.table.is.stored.in |
| 30a0 | 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 | .`consult-dir--project-list-hash |
| 30c0 | 27 2e 20 57 68 65 6e 0a 52 45 46 52 45 53 48 20 69 73 20 6e 6f 6e 2d 6e 69 6c 20 66 6f 72 63 65 | '..When.REFRESH.is.non-nil.force |
| 30e0 | 20 74 68 65 20 68 61 73 68 20 74 6f 20 62 65 20 72 65 62 75 69 6c 74 2e 22 0a 20 20 28 77 68 65 | .the.hash.to.be.rebuilt."...(whe |
| 3100 | 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 74 | n.consult-dir-project-list-funct |
| 3120 | 69 6f 6e 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 6a 2d 6c 69 73 74 20 28 66 75 6e 63 61 | ion.....(let*.((proj-list.(funca |
| 3140 | 6c 6c 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 6e 63 | ll.consult-dir-project-list-func |
| 3160 | 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 6a 2d 73 78 20 28 73 78 68 61 | tion))............(proj-sx.(sxha |
| 3180 | 73 68 20 70 72 6f 6a 2d 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f | sh.proj-list))).......(unless.(o |
| 31a0 | 72 20 72 65 66 72 65 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 | r.refresh...................(equ |
| 31c0 | 61 6c 20 70 72 6f 6a 2d 73 78 20 28 63 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f | al.proj-sx.(car.consult-dir--pro |
| 31e0 | 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | ject-list-hash))).........(setq. |
| 3200 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 0a 20 | consult-dir--project-list-hash.. |
| 3220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 70 72 6f 6a 2d 73 78 20 28 63 6f 6e 73 | .............(cons.proj-sx.(cons |
| 3240 | 75 6c 74 2d 2d 73 74 72 69 6e 67 2d 68 61 73 68 20 28 64 65 6c 71 20 6e 69 6c 20 70 72 6f 6a 2d | ult--string-hash.(delq.nil.proj- |
| 3260 | 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 64 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 | list))))).......(cdr.consult-dir |
| 3280 | 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 68 61 73 68 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | --project-list-hash))))..(defun. |
| 32a0 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 20 28 29 0a 20 20 22 | consult-dir--project-dirs.()..." |
| 32c0 | 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 69 | Return.list.of.project.directori |
| 32e0 | 65 73 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 70 72 6f 6a 65 63 74 73 20 28 63 6f 6e | es."...(when-let.((projects.(con |
| 3300 | 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 6b 65 29 29 29 0a 20 | sult-dir--project-list-make))).. |
| 3320 | 20 20 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 6b 65 79 73 20 70 72 6f 6a 65 63 74 73 29 29 29 0a | ...(hash-table-keys.projects))). |
| 3340 | 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 72 65 63 65 6e 74 66 2d 64 69 72 | .(defun.consult-dir--recentf-dir |
| 3360 | 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 72 65 63 65 6e 74 66 20 64 | s.()..."Return.list.of.recentf.d |
| 3380 | 69 72 73 2e 0a 0a 45 6e 74 72 69 65 73 20 74 68 61 74 20 61 72 65 20 61 6c 73 6f 20 69 6e 20 74 | irs...Entries.that.are.also.in.t |
| 33a0 | 68 65 20 6c 69 73 74 20 6f 66 20 70 72 6f 6a 65 63 74 73 20 61 72 65 20 72 65 6d 6f 76 65 64 2e | he.list.of.projects.are.removed. |
| 33c0 | 22 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 72 65 6e 74 2d 64 69 72 73 20 28 63 6f 6e 73 75 6c | "...(let*.((current-dirs.(consul |
| 33e0 | 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 | t-dir--default-dirs))..........( |
| 3400 | 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f | proj-list-hash.(consult-dir--pro |
| 3420 | 6a 65 63 74 2d 6c 69 73 74 2d 6d 61 6b 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 2d 6f 74 | ject-list-make))..........(in-ot |
| 3440 | 68 65 72 2d 73 6f 75 72 63 65 2d 70 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 20 28 6e 6f 74 20 | her-source-p.(lambda.(dir).(not. |
| 3460 | 28 6f 72 20 28 61 6e 64 20 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 20 28 67 65 74 68 61 73 68 | (or.(and.proj-list-hash.(gethash |
| 3480 | 20 64 69 72 20 70 72 6f 6a 2d 6c 69 73 74 2d 68 61 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .dir.proj-list-hash))........... |
| 34a0 | 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 20 20 20 20 20 | ................................ |
| 34c0 | 20 20 20 20 28 6d 65 6d 62 65 72 20 64 69 72 20 63 75 72 72 65 6e 74 2d 64 69 72 73 29 29 29 29 | ....(member.dir.current-dirs)))) |
| 34e0 | 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 73 61 66 65 20 | )..........(file-directory-safe. |
| 3500 | 28 6c 61 6d 62 64 61 20 28 66 29 20 28 6f 72 20 28 61 6e 64 20 28 69 66 20 28 66 69 6c 65 2d 72 | (lambda.(f).(or.(and.(if.(file-r |
| 3520 | 65 6d 6f 74 65 2d 70 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | emote-p.f)...................... |
| 3540 | 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 20 20 20 20 20 | ................................ |
| 3560 | 20 20 28 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 66 29 0a 20 20 20 20 20 20 | ..(string-suffix-p."/".f)....... |
| 3580 | 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 20 20 20 20 20 | ................................ |
| 35a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 | ...............(file-directory-p |
| 35c0 | 20 66 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 20 | .f))............................ |
| 35e0 | 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 69 6c 65 2d 6e 61 | ........................(file-na |
| 3600 | 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | me-as-directory.f))............. |
| 3620 | 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 20 20 20 20 20 | ................................ |
| 3640 | 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 66 29 29 29 29 0a 20 20 20 | ..(file-name-directory.f)))).... |
| 3660 | 20 20 20 20 20 20 3b 3b 20 54 72 79 69 6e 67 20 74 6f 20 61 62 62 72 65 76 69 61 74 65 20 72 65 | ......;;.Trying.to.abbreviate.re |
| 3680 | 6d 6f 74 65 20 72 65 63 65 6e 74 20 66 69 6c 65 20 6e 61 6d 65 73 20 63 61 6e 20 63 61 75 73 65 | mote.recent.file.names.can.cause |
| 36a0 | 20 54 52 41 4d 50 20 74 6f 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 6f 70 65 6e 20 63 6f 6e 6e 65 | .TRAMP.to..........;;.open.conne |
| 36c0 | 63 74 69 6f 6e 73 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 73 6c 6f 77 20 61 6e 64 20 69 6e | ctions,.which.can.be.slow.and.in |
| 36e0 | 74 65 72 72 75 70 74 20 74 68 65 20 75 73 65 72 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 20 3b | terrupt.the.user.with..........; |
| 3700 | 3b 20 70 72 6f 6d 70 74 73 2e 20 53 65 65 20 e2 80 98 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d | ;.prompts..See....tramp-file-nam |
| 3720 | 65 2d 68 61 6e 64 6c 65 72 e2 80 99 2e 0a 20 20 20 20 20 20 20 20 20 28 61 62 62 72 65 76 69 61 | e-handler..............(abbrevia |
| 3740 | 74 65 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6c 61 6d 62 64 61 20 28 66 29 20 28 | te-local-file-name.(lambda.(f).( |
| 3760 | 69 66 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 | if.(file-remote-p.f)............ |
| 3780 | 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 20 20 20 20 20 | ................................ |
| 37a0 | 20 20 20 20 20 20 20 20 20 20 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........f..................... |
| 37c0 | 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 20 20 20 20 28 | ...............................( |
| 37e0 | 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 29 29 29 29 29 0a 20 20 20 20 | abbreviate-file-name.f)))))..... |
| 3800 | 28 74 68 72 65 61 64 2d 6c 61 73 74 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 0a 20 20 20 20 20 20 | (thread-last.recentf-list....... |
| 3820 | 28 6d 61 70 63 61 72 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 73 61 66 65 29 0a 20 20 20 | (mapcar.file-directory-safe).... |
| 3840 | 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 73 29 0a 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 61 | ...(delete-dups).......(mapcar.a |
| 3860 | 62 62 72 65 76 69 61 74 65 2d 6c 6f 63 61 6c 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | bbreviate-local-file-name)...... |
| 3880 | 20 28 73 65 71 2d 66 69 6c 74 65 72 20 69 6e 2d 6f 74 68 65 72 2d 73 6f 75 72 63 65 2d 70 29 29 | .(seq-filter.in-other-source-p)) |
| 38a0 | 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d | ))..(defvar.consult-dir--source- |
| 38c0 | 72 65 63 65 6e 74 66 0a 20 20 60 28 3a 6e 61 6d 65 20 22 52 65 63 65 6e 74 66 20 64 69 72 73 22 | recentf...`(:name."Recentf.dirs" |
| 38e0 | 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 3f 72 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 | .....:narrow.?r.....:category.fi |
| 3900 | 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 | le.....:face.consult-file.....:h |
| 3920 | 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 65 6e | istory.file-name-history.....:en |
| 3940 | 61 62 6c 65 64 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 72 65 63 65 6e 74 66 2d 6d 6f 64 65 29 0a | abled.,(lambda.().recentf-mode). |
| 3960 | 20 20 20 20 3a 69 74 65 6d 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 72 65 63 65 6e | ....:items.,#'consult-dir--recen |
| 3980 | 74 66 2d 64 69 72 73 29 0a 20 20 22 52 65 63 65 6e 74 66 20 64 69 72 65 63 74 6f 72 79 20 73 6f | tf-dirs)..."Recentf.directory.so |
| 39a0 | 75 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a | urce.for.`consult-dir--pick'."). |
| 39c0 | 0a 28 64 65 66 76 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 62 6f 6f | .(defvar.consult-dir--source-boo |
| 39e0 | 6b 6d 61 72 6b 0a 20 20 60 28 3a 6e 61 6d 65 20 22 42 6f 6f 6b 6d 61 72 6b 73 22 0a 20 20 20 20 | kmark...`(:name."Bookmarks"..... |
| 3a00 | 3a 6e 61 72 72 6f 77 20 3f 6d 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 62 6f 6f 6b 6d 61 72 | :narrow.?m.....:category.bookmar |
| 3a20 | 6b 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 | k.....:face.consult-file.....:hi |
| 3a40 | 73 74 6f 72 79 20 62 6f 6f 6b 6d 61 72 6b 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 65 6d | story.bookmark-history.....:item |
| 3a60 | 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 62 6f 6f 6b 6d 61 72 6b 2d 64 69 72 73 29 | s.,#'consult-dir--bookmark-dirs) |
| 3a80 | 0a 20 20 22 42 6f 6f 6b 6d 61 72 6b 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 20 66 6f | ..."Bookmark.directory.source.fo |
| 3aa0 | 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 61 | r.`consult-dir--pick'.")..(defva |
| 3ac0 | 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 64 65 66 61 75 6c 74 0a 20 20 | r.consult-dir--source-default... |
| 3ae0 | 60 28 3a 6e 61 6d 65 20 22 54 68 69 73 20 64 69 72 65 63 74 6f 72 79 2f 70 72 6f 6a 65 63 74 22 | `(:name."This.directory/project" |
| 3b00 | 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 3f 2e 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 | .....:narrow.?......:category.fi |
| 3b20 | 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 | le.....:face.consult-file.....:h |
| 3b40 | 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 | istory.file-name-history.....:it |
| 3b60 | 65 6d 73 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 | ems.,#'consult-dir--default-dirs |
| 3b80 | 29 0a 20 20 22 43 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 79 20 66 | )..."Current.project.directory.f |
| 3ba0 | 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 | or.`consult-dir--pick'.")..(defv |
| 3bc0 | 61 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 70 72 6f 6a 65 63 74 0a 20 | ar.consult-dir--source-project.. |
| 3be0 | 20 60 28 3a 6e 61 6d 65 20 22 50 72 6f 6a 65 63 74 73 22 0a 20 20 20 20 3a 6e 61 72 72 6f 77 20 | .`(:name."Projects".....:narrow. |
| 3c00 | 3f 70 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 20 20 20 3a 66 61 63 65 20 | ?p.....:category.file.....:face. |
| 3c20 | 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 73 74 6f 72 79 20 66 69 6c 65 2d 6e | consult-file.....:history.file-n |
| 3c40 | 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 65 6e 61 62 6c 65 64 20 2c 28 6c 61 6d 62 64 | ame-history.....:enabled.,(lambd |
| 3c60 | 61 20 28 29 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 70 72 6f 6a 65 63 74 2d 6c 69 73 74 2d 66 75 | a.().consult-dir-project-list-fu |
| 3c80 | 6e 63 74 69 6f 6e 29 0a 20 20 20 20 3a 69 74 65 6d 73 20 2c 28 6c 61 6d 62 64 61 20 28 29 20 28 | nction).....:items.,(lambda.().( |
| 3ca0 | 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 64 69 72 73 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d | let.((current-dirs.(consult-dir- |
| 3cc0 | 2d 64 65 66 61 75 6c 74 2d 64 69 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -default-dirs)))................ |
| 3ce0 | 20 20 20 20 20 28 73 65 71 2d 66 69 6c 74 65 72 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 6a 29 20 | .....(seq-filter.(lambda.(proj). |
| 3d00 | 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 70 72 6f 6a 20 63 75 72 72 65 6e 74 2d 64 69 72 73 29 29 | (not.(member.proj.current-dirs)) |
| 3d20 | 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 20 20 20 20 | )............................... |
| 3d40 | 20 20 28 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 72 6f 6a 65 63 74 2d 64 69 72 73 29 29 29 29 | ..(consult-dir--project-dirs)))) |
| 3d60 | 29 0a 20 20 22 50 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 79 20 73 6f 75 72 63 65 20 66 6f | )..."Project.directory.source.fo |
| 3d80 | 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 27 2e 22 29 0a 0a 28 64 65 66 76 61 | r.`consult-dir--pick'.")..(defva |
| 3da0 | 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 6c 6f 63 61 | r.consult-dir--source-tramp-loca |
| 3dc0 | 6c 0a 20 20 60 28 3a 6e 61 6d 65 20 20 20 20 20 22 4c 6f 63 61 6c 22 0a 20 20 20 20 3a 6e 61 72 | l...`(:name....."Local".....:nar |
| 3de0 | 72 6f 77 20 20 20 3f 6c 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 20 20 20 | row...?l.....:category.file..... |
| 3e00 | 3a 66 61 63 65 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 69 73 74 | :face.....consult-file.....:hist |
| 3e20 | 6f 72 79 20 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 74 65 6d | ory..file-name-history.....:item |
| 3e40 | 73 20 20 20 20 2c 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f | s....,consult-dir-tramp-local-ho |
| 3e60 | 73 74 73 29 0a 20 20 22 4c 6f 63 61 6c 20 68 6f 73 74 20 63 61 6e 64 69 64 61 74 65 20 73 6f 75 | sts)..."Local.host.candidate.sou |
| 3e80 | 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 64 65 66 76 61 | rce.for.`consult-dir'.")..(defva |
| 3ea0 | 72 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 73 6f 75 72 63 65 2d 74 72 61 6d 70 2d 73 73 68 0a | r.consult-dir--source-tramp-ssh. |
| 3ec0 | 20 20 60 28 3a 6e 61 6d 65 20 20 20 20 20 22 53 53 48 20 43 6f 6e 66 69 67 22 0a 20 20 20 20 3a | ..`(:name....."SSH.Config".....: |
| 3ee0 | 6e 61 72 72 6f 77 20 20 20 3f 73 0a 20 20 20 20 3a 63 61 74 65 67 6f 72 79 20 66 69 6c 65 0a 20 | narrow...?s.....:category.file.. |
| 3f00 | 20 20 20 3a 66 61 63 65 20 20 20 20 20 63 6f 6e 73 75 6c 74 2d 66 69 6c 65 0a 20 20 20 20 3a 68 | ...:face.....consult-file.....:h |
| 3f20 | 69 73 74 6f 72 79 20 20 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 3a 69 | istory..file-name-history.....:i |
| 3f40 | 74 65 6d 73 20 20 20 20 2c 23 27 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 74 72 61 6d 70 2d 73 73 | tems....,#'consult-dir--tramp-ss |
| 3f60 | 68 2d 68 6f 73 74 73 29 0a 20 20 22 53 53 48 20 43 6f 6e 66 69 67 20 63 61 6e 64 69 61 64 61 74 | h-hosts)..."SSH.Config.candiadat |
| 3f80 | 65 20 73 6f 75 72 63 65 20 66 6f 72 20 60 63 6f 6e 73 75 6c 74 2d 64 69 72 27 2e 22 29 0a 0a 28 | e.source.for.`consult-dir'.")..( |
| 3fa0 | 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 20 28 26 6f 70 74 69 6f 6e | defun.consult-dir--pick.(&option |
| 3fc0 | 61 6c 20 70 72 6f 6d 70 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 64 69 72 65 63 74 6f 72 79 | al.prompt)..."Return.a.directory |
| 3fe0 | 20 63 68 6f 73 65 6e 20 66 72 6f 6d 20 62 6f 6f 6b 6d 61 72 6b 73 20 61 6e 64 20 70 72 6f 6a 65 | .chosen.from.bookmarks.and.proje |
| 4000 | 63 74 73 2e 0a 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 50 52 4f 4d 50 54 20 69 | cts...Optional.argument.PROMPT.i |
| 4020 | 73 20 74 68 65 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 61 74 63 68 20 28 63 | s.the.prompt."...(let.((match.(c |
| 4040 | 6f 6e 73 75 6c 74 2d 2d 6d 75 6c 74 69 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 75 72 63 65 | onsult--multi.consult-dir-source |
| 4060 | 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 20 20 20 20 20 | s............................... |
| 4080 | 20 3a 70 72 6f 6d 70 74 20 28 6f 72 20 70 72 6f 6d 70 74 20 22 53 77 69 74 63 68 20 64 69 72 65 | .:prompt.(or.prompt."Switch.dire |
| 40a0 | 63 74 6f 72 79 3a 20 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 | ctory:.")....................... |
| 40c0 | 20 20 20 20 20 20 20 20 20 3a 73 6f 72 74 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 6f 72 74 2d | .........:sort.consult-dir-sort- |
| 40e0 | 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 70 63 61 73 65 20 28 70 6c 69 73 74 2d | candidates))).....(pcase.(plist- |
| 4100 | 67 65 74 20 28 63 64 72 20 6d 61 74 63 68 29 20 3a 63 61 74 65 67 6f 72 79 29 0a 20 20 20 20 20 | get.(cdr.match).:category)...... |
| 4120 | 20 28 27 62 6f 6f 6b 6d 61 72 6b 20 28 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 66 69 6c 65 6e 61 | .('bookmark.(bookmark-get-filena |
| 4140 | 6d 65 20 28 63 61 72 20 6d 61 74 63 68 29 29 29 0a 20 20 20 20 20 20 28 27 66 69 6c 65 20 28 63 | me.(car.match))).......('file.(c |
| 4160 | 61 72 20 6d 61 74 63 68 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 | ar.match)))))..;;;###autoload.(d |
| 4180 | 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 20 28 29 0a 20 20 | efun.consult-dir-jump-file.()... |
| 41a0 | 22 4a 75 6d 70 20 74 6f 20 66 69 6c 65 20 66 72 6f 6d 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 | "Jump.to.file.from.the.directory |
| 41c0 | 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 2e 22 0a 20 20 28 69 | .in.the.minibuffer.prompt."...(i |
| 41e0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6d 63 20 28 73 75 62 73 74 69 | nteractive)...(let*.((mc.(substi |
| 4200 | 74 75 74 65 2d 69 6e 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f | tute-in-file-name.(minibuffer-co |
| 4220 | 6e 74 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 20 28 66 69 6c 65 2d 6e 61 | ntents)))..........(dir.(file-na |
| 4240 | 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6d 63 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 61 72 | me-directory.mc))..........(sear |
| 4260 | 63 68 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 6d 63 29 29 29 | ch.(file-name-nondirectory.mc))) |
| 4280 | 0a 20 20 20 20 28 72 75 6e 2d 61 74 2d 74 69 6d 65 20 30 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | .....(run-at-time.0.nil......... |
| 42a0 | 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 66 75 6e 63 61 6c 6c 20 63 6f 6e | .........(lambda.().(funcall.con |
| 42c0 | 73 75 6c 74 2d 64 69 72 2d 6a 75 6d 70 2d 66 69 6c 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 | sult-dir-jump-file-command...... |
| 42e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 | ...................dir.......... |
| 4300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 73 65 61 72 63 68 0a 20 20 | ...............(concat.search... |
| 4320 | 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 20 20 20 28 75 | ..............................(u |
| 4340 | 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 2d 65 6d 70 74 79 2d 70 20 73 65 61 72 63 68 29 0a 20 20 | nless.(string-empty-p.search)... |
| 4360 | 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 20 20 20 20 20 | ................................ |
| 4380 | 28 70 6c 69 73 74 2d 67 65 74 20 28 63 6f 6e 73 75 6c 74 2d 2d 61 73 79 6e 63 2d 73 70 6c 69 74 | (plist-get.(consult--async-split |
| 43a0 | 2d 73 74 79 6c 65 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 | -style)......................... |
| 43c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 29 29 29 | .....................:initial))) |
| 43e0 | 29 29 29 0a 20 20 20 20 28 61 62 6f 72 74 2d 72 65 63 75 72 73 69 76 65 2d 65 64 69 74 29 29 29 | ))).....(abort-recursive-edit))) |
| 4400 | 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 6e 73 75 6c 74 2d | ..;;;###autoload.(defun.consult- |
| 4420 | 64 69 72 20 28 29 0a 20 20 20 20 22 43 68 6f 6f 73 65 20 61 20 64 69 72 65 63 74 6f 72 79 20 61 | dir.()....."Choose.a.directory.a |
| 4440 | 6e 64 20 61 63 74 20 6f 6e 20 69 74 2e 0a 0a 54 68 65 20 61 63 74 69 6f 6e 20 74 61 6b 65 6e 20 | nd.act.on.it...The.action.taken. |
| 4460 | 6f 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 | on.the.directory.is.the.value.of |
| 4480 | 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 27 2e 20 | .`consult-dir-default-command'.. |
| 44a0 | 54 68 65 20 64 65 66 61 75 6c 74 20 69 73 20 74 6f 20 63 61 6c 6c 0a 60 66 69 6e 64 2d 66 69 6c | The.default.is.to.call.`find-fil |
| 44c0 | 65 27 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 69 73 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a | e'.starting.at.this.directory... |
| 44e0 | 57 68 65 6e 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2c | When.called.from.the.minibuffer, |
| 4500 | 20 69 6e 73 65 72 74 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 69 6e 74 6f 20 74 68 65 0a 6d | .insert.the.directory.into.the.m |
| 4520 | 69 6e 69 62 75 66 66 65 72 20 70 72 6f 6d 70 74 20 69 6e 73 74 65 61 64 2e 20 45 78 69 73 74 69 | inibuffer.prompt.instead..Existi |
| 4540 | 6e 67 20 6d 69 6e 69 62 75 66 66 65 72 20 63 6f 6e 74 65 6e 74 73 20 77 69 6c 6c 20 62 65 0a 73 | ng.minibuffer.contents.will.be.s |
| 4560 | 68 61 64 6f 77 65 64 20 6f 72 20 64 65 6c 65 74 65 64 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 | hadowed.or.deleted.depending.on. |
| 4580 | 74 68 65 20 76 61 6c 75 65 20 6f 66 0a 60 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 | the.value.of.`consult-dir-shadow |
| 45a0 | 2d 66 69 6c 65 6e 61 6d 65 73 27 2e 0a 0a 54 68 65 20 6c 69 73 74 20 6f 66 20 73 6f 75 72 63 65 | -filenames'...The.list.of.source |
| 45c0 | 73 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 73 20 69 73 0a 60 63 6f 6e 73 75 6c | s.for.directory.paths.is.`consul |
| 45e0 | 74 2d 64 69 72 2d 73 6f 75 72 63 65 73 27 2c 20 77 68 69 63 68 20 63 61 6e 20 62 65 20 63 75 73 | t-dir-sources',.which.can.be.cus |
| 4600 | 74 6f 6d 69 7a 65 64 2e 22 0a 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 | tomized.".....(interactive)..... |
| 4620 | 28 69 66 20 28 6d 69 6e 69 62 75 66 66 65 72 70 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 | (if.(minibufferp).......(let*.(( |
| 4640 | 65 6e 61 62 6c 65 2d 72 65 63 75 72 73 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 73 20 74 29 0a | enable-recursive-minibuffers.t). |
| 4660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 | .............(file-name.(file-na |
| 4680 | 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 | me-nondirectory.(minibuffer-cont |
| 46a0 | 65 6e 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 64 69 72 20 28 63 | ents)))..............(new-dir.(c |
| 46c0 | 6f 6e 73 75 6c 74 2d 64 69 72 2d 2d 70 69 63 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | onsult-dir--pick)).............. |
| 46e0 | 28 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 6e 61 6d | (new-full-name.(concat.(file-nam |
| 4700 | 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 6e 65 77 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 | e-as-directory.new-dir)......... |
| 4720 | 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 20 66 69 6c 65 | ............................file |
| 4740 | 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 64 69 72 0a 20 | -name))).........(when.new-dir.. |
| 4760 | 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 73 68 61 64 6f 77 2d | .........(if.consult-dir-shadow- |
| 4780 | 66 69 6c 65 6e 61 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | filenames...............(insert. |
| 47a0 | 22 2f 22 20 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | "/".new-full-name).............( |
| 47c0 | 64 65 6c 65 74 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 | delete-minibuffer-contents)..... |
| 47e0 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 6e 65 77 2d 66 75 6c 6c 2d 6e 61 6d 65 29 29 29 | ........(insert.new-full-name))) |
| 4800 | 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6e 65 77 2d 64 69 72 20 28 63 6f 6e 73 75 6c 74 | ).......(let*.((new-dir.(consult |
| 4820 | 2d 64 69 72 2d 2d 70 69 63 6b 20 22 49 6e 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 29 0a 20 20 | -dir--pick."In.directory:."))... |
| 4840 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 6e 65 | ...........(default-directory.ne |
| 4860 | 77 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 | w-dir)).........(call-interactiv |
| 4880 | 65 6c 79 20 63 6f 6e 73 75 6c 74 2d 64 69 72 2d 64 65 66 61 75 6c 74 2d 63 6f 6d 6d 61 6e 64 29 | ely.consult-dir-default-command) |
| 48a0 | 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 6f 6e 73 75 6c 74 2d 64 69 72 29 0a 3b 3b 3b 20 | )))..(provide.'consult-dir).;;;. |
| 48c0 | 63 6f 6e 73 75 6c 74 2d 64 69 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 | consult-dir.el.ends.here........ |
| 48e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 49e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 4fe0 | 00 00 00 00 00 00 00 00 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: d140623031fb18d901856ed1da5311febe501d2c (plain)