| ofs | hex dump | ascii |
|---|---|---|
| 0000 | 63 6f 75 6e 73 65 6c 2d 30 2e 31 34 2e 32 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | counsel-0.14.2/................. |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 31 37 30 35 00 20 35 00 00 00 | 0000000.00000000000.011705..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 75 6e 73 65 6c 2d 30 2e 31 34 2e 32 2f 63 6f 75 6e 73 65 6c 2e 65 6c 00 00 00 00 00 00 00 | counsel-0.14.2/counsel.el....... |
| 0220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 31 30 32 35 34 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 37 30 36 00 20 30 00 00 00 | 1025432.00000000000.013706..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 3b 20 63 6f 75 6e 73 65 6c 2e 65 6c 20 2d 2d 2d 20 56 61 72 69 6f 75 73 20 63 6f 6d 70 6c | ;;;.counsel.el.---.Various.compl |
| 0420 | 65 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 69 6e 67 20 49 76 79 20 2d 2a 2d 20 6c 65 | etion.functions.using.Ivy.-*-.le |
| 0440 | 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 | xical-binding:.t.-*-..;;.Copyrig |
| 0460 | 68 74 20 28 43 29 20 32 30 31 35 2d 32 30 32 33 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 | ht.(C).2015-2023.Free.Software.F |
| 0480 | 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 3a 20 4f 6c 65 68 | oundation,.Inc...;;.Author:.Oleh |
| 04a0 | 20 4b 72 65 68 65 6c 20 3c 6f 68 77 6f 65 6f 77 68 6f 40 67 6d 61 69 6c 2e 63 6f 6d 3e 0a 3b 3b | .Krehel.<ohwoeowho@gmail.com>.;; |
| 04c0 | 20 55 52 4c 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 62 6f 2d 61 62 6f | .URL:.https://github.com/abo-abo |
| 04e0 | 2f 73 77 69 70 65 72 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 31 34 2e 32 0a 3b 3b 20 50 61 | /swiper.;;.Version:.0.14.2.;;.Pa |
| 0500 | 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 2e 35 22 29 20 | ckage-Requires:.((emacs."24.5"). |
| 0520 | 28 69 76 79 20 22 30 2e 31 34 2e 32 22 29 20 28 73 77 69 70 65 72 20 22 30 2e 31 34 2e 32 22 29 | (ivy."0.14.2").(swiper."0.14.2") |
| 0540 | 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 2c 20 6d 61 74 63 | ).;;.Keywords:.convenience,.matc |
| 0560 | 68 69 6e 67 2c 20 74 6f 6f 6c 73 0a 0a 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 70 61 72 | hing,.tools..;;.This.file.is.par |
| 0580 | 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 66 69 6c 65 20 69 73 | t.of.GNU.Emacs...;;.This.file.is |
| 05a0 | 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 64 69 73 74 72 69 | .free.software;.you.can.redistri |
| 05c0 | 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 74 20 75 6e 64 65 | bute.it.and/or.modify.;;.it.unde |
| 05e0 | 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 65 72 61 6c 20 50 | r.the.terms.of.the.GNU.General.P |
| 0600 | 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 20 62 79 0a 3b 3b | ublic.License.as.published.by.;; |
| 0620 | 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 69 6f 6e 3b 20 65 | .the.Free.Software.Foundation;.e |
| 0640 | 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 75 72 20 6f 70 74 | ither.version.3,.or.(at.your.opt |
| 0660 | 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 0a 0a 3b 3b 20 54 | ion).;;.any.later.version...;;.T |
| 0680 | 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 20 69 6e 20 74 68 | his.program.is.distributed.in.th |
| 06a0 | 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 66 75 6c 2c 0a 3b | e.hope.that.it.will.be.useful,.; |
| 06c0 | 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 3b 20 77 69 74 68 | ;.but.WITHOUT.ANY.WARRANTY;.with |
| 06e0 | 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 6e 74 79 20 6f 66 | out.even.the.implied.warranty.of |
| 0700 | 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 4e 45 53 53 20 46 | .;;.MERCHANTABILITY.or.FITNESS.F |
| 0720 | 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 53 65 65 20 74 68 | OR.A.PARTICULAR.PURPOSE...See.th |
| 0740 | 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 63 65 6e 73 65 20 | e.;;.GNU.General.Public.License. |
| 0760 | 66 6f 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 46 6f 72 20 61 20 66 75 6c 6c | for.more.details...;;.For.a.full |
| 0780 | 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 | .copy.of.the.GNU.General.Public. |
| 07a0 | 4c 69 63 65 6e 73 65 0a 3b 3b 20 73 65 65 20 3c 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6e 75 2e | License.;;.see.<https://www.gnu. |
| 07c0 | 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a | org/licenses/>...;;;.Commentary: |
| 07e0 | 0a 0a 3b 3b 20 4a 75 73 74 20 63 61 6c 6c 20 6f 6e 65 20 6f 66 20 74 68 65 20 69 6e 74 65 72 61 | ..;;.Just.call.one.of.the.intera |
| 0800 | 63 74 69 76 65 20 66 75 6e 63 74 69 6f 6e 73 20 69 6e 20 74 68 69 73 20 66 69 6c 65 20 74 6f 20 | ctive.functions.in.this.file.to. |
| 0820 | 63 6f 6d 70 6c 65 74 65 0a 3b 3b 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 68 | complete.;;.the.corresponding.th |
| 0840 | 69 6e 67 20 75 73 69 6e 67 20 60 69 76 79 27 2e 0a 3b 3b 0a 3b 3b 20 43 75 72 72 65 6e 74 6c 79 | ing.using.`ivy'..;;.;;.Currently |
| 0860 | 20 61 76 61 69 6c 61 62 6c 65 3a 0a 3b 3b 20 2d 20 53 79 6d 62 6f 6c 20 63 6f 6d 70 6c 65 74 69 | .available:.;;.-.Symbol.completi |
| 0880 | 6f 6e 20 66 6f 72 20 45 6c 69 73 70 2c 20 43 6f 6d 6d 6f 6e 20 4c 69 73 70 2c 20 50 79 74 68 6f | on.for.Elisp,.Common.Lisp,.Pytho |
| 08a0 | 6e 2c 20 43 6c 6f 6a 75 72 65 2c 20 43 2c 20 43 2b 2b 2e 0a 3b 3b 20 2d 20 44 65 73 63 72 69 62 | n,.Clojure,.C,.C++..;;.-.Describ |
| 08c0 | 65 20 66 75 6e 63 74 69 6f 6e 73 20 66 6f 72 20 45 6c 69 73 70 3a 20 66 75 6e 63 74 69 6f 6e 2c | e.functions.for.Elisp:.function, |
| 08e0 | 20 76 61 72 69 61 62 6c 65 2c 20 6c 69 62 72 61 72 79 2c 20 63 6f 6d 6d 61 6e 64 2c 0a 3b 3b 20 | .variable,.library,.command,.;;. |
| 0900 | 20 20 62 69 6e 64 69 6e 67 73 2c 20 74 68 65 6d 65 2e 0a 3b 3b 20 2d 20 4e 61 76 69 67 61 74 69 | ..bindings,.theme..;;.-.Navigati |
| 0920 | 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 3a 20 69 6d 65 6e 75 2c 20 61 63 65 2d 6c 69 6e 65 2c 20 73 | on.functions:.imenu,.ace-line,.s |
| 0940 | 65 6d 61 6e 74 69 63 2c 20 6f 75 74 6c 69 6e 65 2e 0a 3b 3b 20 2d 20 47 69 74 20 75 74 69 6c 69 | emantic,.outline..;;.-.Git.utili |
| 0960 | 74 69 65 73 3a 20 67 69 74 2d 66 69 6c 65 73 2c 20 67 69 74 2d 67 72 65 70 2c 20 67 69 74 2d 6c | ties:.git-files,.git-grep,.git-l |
| 0980 | 6f 67 2c 20 67 69 74 2d 73 74 61 73 68 2c 20 67 69 74 2d 63 68 65 63 6b 6f 75 74 2e 0a 3b 3b 20 | og,.git-stash,.git-checkout..;;. |
| 09a0 | 2d 20 47 72 65 70 20 75 74 69 6c 69 74 69 65 73 3a 20 67 72 65 70 2c 20 61 67 2c 20 70 74 2c 20 | -.Grep.utilities:.grep,.ag,.pt,. |
| 09c0 | 72 65 63 6f 6c 6c 2c 20 61 63 6b 2c 20 72 67 2e 0a 3b 3b 20 2d 20 53 79 73 74 65 6d 20 75 74 69 | recoll,.ack,.rg..;;.-.System.uti |
| 09e0 | 6c 69 74 69 65 73 3a 20 70 72 6f 63 65 73 73 20 6c 69 73 74 2c 20 72 68 79 74 68 6d 62 6f 78 2c | lities:.process.list,.rhythmbox, |
| 0a00 | 20 6c 69 6e 75 78 2d 61 70 70 2e 0a 3b 3b 20 2d 20 4d 61 6e 79 20 6d 6f 72 65 2e 0a 0a 3b 3b 3b | .linux-app..;;.-.Many.more...;;; |
| 0a20 | 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 69 76 79 29 0a 28 72 65 71 75 69 72 65 20 | .Code:..(require.'ivy).(require. |
| 0a40 | 27 73 77 69 70 65 72 29 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 70 69 6c 65 29 0a 28 72 65 | 'swiper)..(require.'compile).(re |
| 0a60 | 71 75 69 72 65 20 27 64 69 72 65 64 29 0a 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c | quire.'dired)..(eval-when-compil |
| 0a80 | 65 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 29 0a 0a 28 64 65 66 67 72 6f 75 | e...(require.'subr-x))..(defgrou |
| 0aa0 | 70 20 63 6f 75 6e 73 65 6c 20 6e 69 6c 0a 20 20 22 43 6f 6d 70 6c 65 74 69 6f 6e 20 66 75 6e 63 | p.counsel.nil..."Completion.func |
| 0ac0 | 74 69 6f 6e 73 20 75 73 69 6e 67 20 49 76 79 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 6d 61 74 63 | tions.using.Ivy."...:group.'matc |
| 0ae0 | 68 69 6e 67 0a 20 20 3a 70 72 65 66 69 78 20 22 63 6f 75 6e 73 65 6c 2d 22 29 0a 0a 3b 3b 2a 20 | hing...:prefix."counsel-")..;;*. |
| 0b00 | 55 74 69 6c 69 74 79 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f | Utility.(defun.counsel--elisp-to |
| 0b20 | 2d 70 63 72 65 20 28 72 65 67 65 78 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 6f 6b 2d 61 72 6f 75 | -pcre.(regex.&optional.look-arou |
| 0b40 | 6e 64 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 52 45 47 45 58 20 66 72 6f 6d 20 45 6c 69 73 70 20 | nd)..."Convert.REGEX.from.Elisp. |
| 0b60 | 66 6f 72 6d 61 74 20 74 6f 20 50 43 52 45 20 66 6f 72 6d 61 74 2c 20 6f 6e 20 62 65 73 74 2d 65 | format.to.PCRE.format,.on.best-e |
| 0b80 | 66 66 6f 72 74 20 62 61 73 69 73 2e 0a 52 45 47 45 58 20 6d 61 79 20 62 65 20 6f 66 20 61 6e 79 | ffort.basis..REGEX.may.be.of.any |
| 0ba0 | 20 66 6f 72 6d 61 74 20 72 65 74 75 72 6e 65 64 20 62 79 20 61 6e 20 49 76 79 20 72 65 67 65 78 | .format.returned.by.an.Ivy.regex |
| 0bc0 | 20 66 75 6e 63 74 69 6f 6e 2c 0a 6e 61 6d 65 6c 79 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 | .function,.namely.a.string.or.a. |
| 0be0 | 6c 69 73 74 2e 20 20 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 6c 77 61 79 | list...The.return.value.is.alway |
| 0c00 | 73 20 61 20 73 74 72 69 6e 67 2e 0a 0a 4e 6f 74 65 20 74 68 61 74 20 69 6e 63 6f 72 72 65 63 74 | s.a.string...Note.that.incorrect |
| 0c20 | 20 72 65 73 75 6c 74 73 20 6d 61 79 20 62 65 20 72 65 74 75 72 6e 65 64 20 66 6f 72 20 73 75 66 | .results.may.be.returned.for.suf |
| 0c40 | 66 69 63 69 65 6e 74 6c 79 0a 63 6f 6d 70 6c 65 78 20 72 65 67 65 78 65 73 2e 22 0a 20 20 28 69 | ficiently.complex.regexes."...(i |
| 0c60 | 66 20 28 63 6f 6e 73 70 20 72 65 67 65 78 29 0a 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 6c | f.(consp.regex).......(if.(and.l |
| 0c80 | 6f 6f 6b 2d 61 72 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 | ook-around................(or.(c |
| 0ca0 | 64 72 20 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f | dr.regex)....................(no |
| 0cc0 | 74 20 28 63 64 61 72 20 72 65 67 65 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | t.(cdar.regex))))...........(con |
| 0ce0 | 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 22 5e 22 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d | cat............"^"............(m |
| 0d00 | 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 | apconcat.............(lambda.(pa |
| 0d20 | 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 75 62 65 78 70 20 | ir)...............(let.((subexp. |
| 0d40 | 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 20 28 63 61 72 20 70 61 69 | (counsel--elisp-to-pcre.(car.pai |
| 0d60 | 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 | r)))).................(format."( |
| 0d80 | 3f 25 63 2e 2a 25 73 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ?%c.*%s)"....................... |
| 0da0 | 20 20 28 69 66 20 28 63 64 72 20 70 61 69 72 29 20 3f 3d 20 3f 21 29 0a 20 20 20 20 20 20 20 20 | ..(if.(cdr.pair).?=.?!)......... |
| 0dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 65 78 70 29 29 29 0a 20 20 20 20 20 20 | ................subexp)))....... |
| 0de0 | 20 20 20 20 20 20 72 65 67 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 29 0a 20 20 20 | ......regex............."")).... |
| 0e00 | 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 | .....(mapconcat..........(lambda |
| 0e20 | 20 28 70 61 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 75 62 65 78 70 | .(pair)............(let.((subexp |
| 0e40 | 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 20 28 63 61 72 20 70 61 | .(counsel--elisp-to-pcre.(car.pa |
| 0e60 | 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d | ir))))..............(if.(string- |
| 0e80 | 6d 61 74 63 68 2d 70 20 22 7c 22 20 73 75 62 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | match-p."|".subexp)............. |
| 0ea0 | 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 28 3f 3a 25 73 29 22 20 73 75 62 65 78 70 29 0a 20 20 | .....(format."(?:%s)".subexp)... |
| 0ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 75 62 65 78 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 | .............subexp))).......... |
| 0ee0 | 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 63 64 72 20 72 65 67 65 78 29 0a 20 | (cl-remove-if-not.#'cdr.regex).. |
| 0f00 | 20 20 20 20 20 20 20 20 22 2e 2a 22 29 29 0a 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 | ........".*")).....(replace-rege |
| 0f20 | 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 22 5c 5c 5c 5c 5b 28 29 7b 7d 7c 60 27 5d | xp-in-string......"\\\\[(){}|`'] |
| 0f40 | 5c 5c 7c 5b 28 29 5d 22 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 29 0a 20 20 20 20 20 20 | \\|[()]"......(lambda.(s)....... |
| 0f60 | 20 28 6f 72 20 28 63 64 72 20 28 61 73 73 6f 63 20 73 20 27 28 28 22 5c 5c 28 22 20 2e 20 22 28 | .(or.(cdr.(assoc.s.'(("\\("..."( |
| 0f80 | 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 20 20 20 20 20 28 22 | ")............................(" |
| 0fa0 | 5c 5c 29 22 20 2e 20 22 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \\)"...")")..................... |
| 0fc0 | 20 20 20 20 20 20 20 28 22 28 22 20 2e 20 22 5c 5c 28 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .......("("..."\\(")............ |
| 0fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 29 22 20 2e 20 22 5c 5c 29 22 29 0a 20 20 | ................(")"..."\\)")... |
| 1000 | 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 22 5c 5c 7b 22 20 | .........................("\\{". |
| 1020 | 2e 20 22 7b 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 20 20 20 | .."{").......................... |
| 1040 | 20 20 28 22 5c 5c 7d 22 20 2e 20 22 7d 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..("\\}"..."}")................. |
| 1060 | 20 20 20 20 20 20 20 20 20 20 20 28 22 5c 5c 7c 22 20 2e 20 22 7c 22 29 0a 20 20 20 20 20 20 20 | ...........("\\|"..."|")........ |
| 1080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 5c 5c 60 22 20 2e 20 22 5e 22 | ....................("\\`"..."^" |
| 10a0 | 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 28 22 5c | )............................("\ |
| 10c0 | 5c 27 22 20 2e 20 22 24 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 0a | \'"..."$"))))............(error. |
| 10e0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 55 6e 65 78 70 65 63 74 65 64 20 65 72 72 6f 72 20 69 6e | ............"Unexpected.error.in |
| 1100 | 20 60 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 27 20 28 67 6f 74 20 6d | .`counsel--elisp-to-pcre'.(got.m |
| 1120 | 61 74 63 68 20 25 53 29 22 20 73 29 29 29 0a 20 20 20 20 20 72 65 67 65 78 20 74 20 74 29 29 29 | atch.%S)".s)))......regex.t.t))) |
| 1140 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 | ..(defun.counsel-directory-name. |
| 1160 | 28 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 64 69 72 65 | (dir)..."Return.the.name.of.dire |
| 1180 | 63 74 6f 72 79 20 44 49 52 20 77 69 74 68 20 61 20 73 6c 61 73 68 2e 22 0a 20 20 28 66 69 6c 65 | ctory.DIR.with.a.slash."...(file |
| 11a0 | 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 | -name-as-directory....(file-name |
| 11c0 | 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c | -nondirectory.....(directory-fil |
| 11e0 | 65 2d 6e 61 6d 65 20 64 69 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 | e-name.dir))))..(defun.counsel-s |
| 1200 | 74 72 69 6e 67 2d 63 6f 6d 70 6f 73 65 20 28 70 72 65 66 69 78 20 73 74 72 29 0a 20 20 22 4d 61 | tring-compose.(prefix.str)..."Ma |
| 1220 | 6b 65 20 50 52 45 46 49 58 20 74 68 65 20 64 69 73 70 6c 61 79 20 70 72 65 66 69 78 20 6f 66 20 | ke.PREFIX.the.display.prefix.of. |
| 1240 | 53 54 52 20 74 68 72 6f 75 67 68 20 74 65 78 74 20 70 72 6f 70 65 72 74 69 65 73 2e 22 0a 20 20 | STR.through.text.properties."... |
| 1260 | 28 6c 65 74 20 28 28 73 74 72 20 28 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 73 74 72 29 29 29 | (let.((str.(copy-sequence.str))) |
| 1280 | 0a 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 30 20 31 | .....(put-text-property......0.1 |
| 12a0 | 20 27 64 69 73 70 6c 61 79 0a 20 20 20 20 20 28 63 6f 6e 63 61 74 20 70 72 65 66 69 78 20 28 73 | .'display......(concat.prefix.(s |
| 12c0 | 75 62 73 74 72 69 6e 67 20 73 74 72 20 30 20 31 29 29 0a 20 20 20 20 20 73 74 72 29 0a 20 20 20 | ubstring.str.0.1))......str).... |
| 12e0 | 20 73 74 72 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 2d 65 78 65 63 | .str))..(defalias.'counsel--exec |
| 1300 | 75 74 61 62 6c 65 2d 66 69 6e 64 0a 20 20 3b 3b 20 47 61 69 6e 65 64 20 6f 70 74 69 6f 6e 61 6c | utable-find...;;.Gained.optional |
| 1320 | 20 61 72 67 75 6d 65 6e 74 20 69 6e 20 32 37 2e 31 2e 0a 20 20 28 69 66 20 28 3e 3d 20 65 6d 61 | .argument.in.27.1....(if.(>=.ema |
| 1340 | 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 32 37 29 0a 20 20 20 20 20 20 23 27 65 78 65 | cs-major-version.27).......#'exe |
| 1360 | 63 75 74 61 62 6c 65 2d 66 69 6e 64 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6d 6d 61 6e | cutable-find.....(lambda.(comman |
| 1380 | 64 20 26 6f 70 74 69 6f 6e 61 6c 20 5f 72 65 6d 6f 74 65 29 0a 20 20 20 20 20 20 28 65 78 65 63 | d.&optional._remote).......(exec |
| 13a0 | 75 74 61 62 6c 65 2d 66 69 6e 64 20 63 6f 6d 6d 61 6e 64 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 | utable-find.command)))..."Compat |
| 13c0 | 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 6f 72 20 60 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e | ibility.shim.for.`executable-fin |
| 13e0 | 64 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 | d'.")..(defun.counsel-require-pr |
| 1400 | 6f 67 72 61 6d 20 28 63 6d 64 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 65 72 72 6f 72 29 0a 20 20 | ogram.(cmd.&optional.noerror)... |
| 1420 | 22 43 68 65 63 6b 20 73 79 73 74 65 6d 20 66 6f 72 20 70 72 6f 67 72 61 6d 20 75 73 65 64 20 69 | "Check.system.for.program.used.i |
| 1440 | 6e 20 43 4d 44 2c 20 70 72 69 6e 74 69 6e 67 20 65 72 72 6f 72 20 69 66 20 6e 6f 74 20 66 6f 75 | n.CMD,.printing.error.if.not.fou |
| 1460 | 6e 64 2e 0a 43 4d 44 20 69 73 20 65 69 74 68 65 72 20 61 20 73 74 72 69 6e 67 20 6f 72 20 61 20 | nd..CMD.is.either.a.string.or.a. |
| 1480 | 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2e 0a 54 6f 20 73 6b 69 70 20 74 68 65 20 60 65 78 | list.of.strings..To.skip.the.`ex |
| 14a0 | 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 27 20 63 68 65 63 6b 2c 20 73 74 61 72 74 20 74 68 65 20 | ecutable-find'.check,.start.the. |
| 14c0 | 73 74 72 69 6e 67 20 77 69 74 68 20 61 20 73 70 61 63 65 2e 0a 57 68 65 6e 20 4e 4f 45 52 52 4f | string.with.a.space..When.NOERRO |
| 14e0 | 52 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 6e 73 74 65 61 64 | R.is.non-nil,.return.nil.instead |
| 1500 | 20 6f 66 20 72 61 69 73 69 6e 67 20 61 6e 20 65 72 72 6f 72 2e 22 0a 20 20 28 75 6e 6c 65 73 73 | .of.raising.an.error."...(unless |
| 1520 | 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 63 6d 64 29 20 28 73 74 72 69 6e 67 2d 70 72 65 66 | .(and.(stringp.cmd).(string-pref |
| 1540 | 69 78 2d 70 20 22 20 22 20 63 6d 64 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 67 72 61 | ix-p.".".cmd)).....(let.((progra |
| 1560 | 6d 20 28 69 66 20 28 6c 69 73 74 70 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | m.(if.(listp.cmd)............... |
| 1580 | 20 20 20 20 20 20 20 20 20 28 63 61 72 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(car.cmd).............. |
| 15a0 | 20 20 20 20 20 20 20 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 63 6d 64 29 29 | ........(car.(split-string.cmd)) |
| 15c0 | 29 29 29 0a 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 70 72 6f 67 | ))).......(or.(and.(stringp.prog |
| 15e0 | 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 | ram)................(not.(string |
| 1600 | 3d 20 70 72 6f 67 72 61 6d 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | =.program.""))................(c |
| 1620 | 6f 75 6e 73 65 6c 2d 2d 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 70 72 6f 67 72 61 6d 20 | ounsel--executable-find.program. |
| 1640 | 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 6e 6f 65 72 72 6f 72 0a 20 20 | t))...........(unless.noerror... |
| 1660 | 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 52 65 71 75 69 72 65 64 20 | ..........(user-error."Required. |
| 1680 | 70 72 6f 67 72 61 6d 20 5c 22 25 73 5c 22 20 6e 6f 74 20 66 6f 75 6e 64 20 69 6e 20 79 6f 75 72 | program.\"%s\".not.found.in.your |
| 16a0 | 20 70 61 74 68 22 20 70 72 6f 67 72 61 6d 29 29 29 29 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 | .path".program))))))..(declare-f |
| 16c0 | 75 6e 63 74 69 6f 6e 20 65 73 68 65 6c 6c 2d 73 70 6c 69 74 2d 70 61 74 68 20 22 65 73 68 2d 75 | unction.eshell-split-path."esh-u |
| 16e0 | 74 69 6c 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 70 72 6f 6d 70 74 2d 66 75 6e | til")..(defun.counsel-prompt-fun |
| 1700 | 63 74 69 6f 6e 2d 64 69 72 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 70 72 6f 6d 70 74 20 61 70 | ction-dir.()..."Return.prompt.ap |
| 1720 | 70 65 6e 64 65 64 20 77 69 74 68 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 | pended.with.the.parent.directory |
| 1740 | 2e 22 0a 20 20 28 72 65 71 75 69 72 65 20 27 65 73 68 2d 75 74 69 6c 29 0a 20 20 28 6c 65 74 2a | ."...(require.'esh-util)...(let* |
| 1760 | 20 28 28 64 69 72 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d | .((dir.(ivy-state-directory.ivy- |
| 1780 | 6c 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 72 74 73 20 28 6e 74 68 63 64 72 20 33 | last))..........(parts.(nthcdr.3 |
| 17a0 | 20 28 65 73 68 65 6c 6c 2d 73 70 6c 69 74 2d 70 61 74 68 20 64 69 72 29 29 29 0a 20 20 20 20 20 | .(eshell-split-path.dir)))...... |
| 17c0 | 20 20 20 20 28 64 69 72 20 28 66 6f 72 6d 61 74 20 22 20 5b 25 73 5d 3a 20 22 20 28 69 66 20 70 | ....(dir.(format.".[%s]:.".(if.p |
| 17e0 | 61 72 74 73 20 28 61 70 70 6c 79 20 23 27 63 6f 6e 63 61 74 20 22 2e 2e 2e 22 20 70 61 72 74 73 | arts.(apply.#'concat."...".parts |
| 1800 | 29 20 64 69 72 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 61 64 64 2d 70 72 6f 6d 70 74 2d 63 6f | ).dir)))).....(ivy-add-prompt-co |
| 1820 | 75 6e 74 0a 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 | unt......(replace-regexp-in-stri |
| 1840 | 6e 67 20 20 20 20 20 20 20 20 20 20 3b 20 49 6e 73 65 72 74 20 64 69 72 20 62 65 66 6f 72 65 20 | ng..........;.Insert.dir.before. |
| 1860 | 61 6e 79 20 74 72 61 69 6c 69 6e 67 20 63 6f 6c 6f 6e 2e 0a 20 20 20 20 20 20 22 5c 5c 28 3f 3a | any.trailing.colon........"\\(?: |
| 1880 | 3a 20 3f 5c 5c 29 3f 5c 5c 27 22 20 64 69 72 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 6f 6d 70 | :.?\\)?\\'".dir.(ivy-state-promp |
| 18a0 | 74 20 69 76 79 2d 6c 61 73 74 29 20 74 20 74 29 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 | t.ivy-last).t.t))))..(defalias.' |
| 18c0 | 63 6f 75 6e 73 65 6c 2d 2d 66 6c 61 74 74 65 6e 0a 20 20 3b 3b 20 41 64 64 65 64 20 69 6e 20 45 | counsel--flatten...;;.Added.in.E |
| 18e0 | 6d 61 63 73 20 32 37 2e 31 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 66 6c 61 74 74 65 | macs.27.1...(if.(fboundp.'flatte |
| 1900 | 6e 2d 74 72 65 65 29 0a 20 20 20 20 20 20 23 27 66 6c 61 74 74 65 6e 2d 74 72 65 65 0a 20 20 20 | n-tree).......#'flatten-tree.... |
| 1920 | 20 28 6c 61 6d 62 64 61 20 28 74 72 65 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 65 6c 65 6d | .(lambda.(tree).......(let.(elem |
| 1940 | 73 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 63 6f 6e 73 70 20 74 72 65 65 29 0a 20 | s).........(while.(consp.tree).. |
| 1960 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 6c 65 6d 20 28 70 6f 70 20 74 72 65 65 29 29 | .........(let.((elem.(pop.tree)) |
| 1980 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 63 6f 6e 73 70 20 65 6c 65 6d | ).............(while.(consp.elem |
| 19a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 64 72 20 65 6c 65 6d 29 | )...............(push.(cdr.elem) |
| 19c0 | 20 74 72 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 65 6c 65 6d 20 | .tree)...............(setq.elem. |
| 19e0 | 28 63 61 72 20 65 6c 65 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 65 6c 65 | (car.elem))).............(if.ele |
| 1a00 | 6d 20 28 70 75 73 68 20 65 6c 65 6d 20 65 6c 65 6d 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 | m.(push.elem.elems)))).........( |
| 1a20 | 69 66 20 74 72 65 65 20 28 70 75 73 68 20 74 72 65 65 20 65 6c 65 6d 73 29 29 0a 20 20 20 20 20 | if.tree.(push.tree.elems))...... |
| 1a40 | 20 20 20 28 6e 72 65 76 65 72 73 65 20 65 6c 65 6d 73 29 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 | ...(nreverse.elems))))..."Compat |
| 1a60 | 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 6f 72 20 60 66 6c 61 74 74 65 6e 2d 74 72 65 65 27 2e | ibility.shim.for.`flatten-tree'. |
| 1a80 | 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 74 20 28 66 6f 72 6d | ")..(defun.counsel--format.(form |
| 1aa0 | 61 74 74 65 72 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 4c 69 6b 65 20 60 66 6f 72 6d 61 | atter.&rest.args)..."Like.`forma |
| 1ac0 | 74 27 20 62 75 74 20 46 4f 52 4d 41 54 54 45 52 20 63 61 6e 20 62 65 20 61 20 6c 69 73 74 2e 0a | t'.but.FORMATTER.can.be.a.list.. |
| 1ae0 | 57 68 65 6e 20 46 4f 52 4d 41 54 54 45 52 20 69 73 20 61 20 6c 69 73 74 2c 20 6f 6e 6c 79 20 60 | When.FORMATTER.is.a.list,.only.` |
| 1b00 | 25 73 27 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 68 20 41 52 47 53 2e 0a 0a 52 65 74 75 | %s'.is.replaced.with.ARGS...Retu |
| 1b20 | 72 6e 20 61 20 6c 69 73 74 20 6f 72 20 73 74 72 69 6e 67 20 64 65 70 65 6e 64 69 6e 67 20 6f 6e | rn.a.list.or.string.depending.on |
| 1b40 | 20 69 6e 70 75 74 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 6c 69 73 74 70 20 66 6f 72 6d | .input."...(cond....((listp.form |
| 1b60 | 61 74 74 65 72 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6c 61 74 74 65 6e 20 28 6d 61 | atter).....(counsel--flatten.(ma |
| 1b80 | 70 63 61 72 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 6c 61 6d | pcar........................(lam |
| 1ba0 | 62 64 61 20 28 69 74 29 20 28 69 66 20 28 65 71 75 61 6c 20 69 74 20 22 25 73 22 29 20 28 70 6f | bda.(it).(if.(equal.it."%s").(po |
| 1bc0 | 70 20 61 72 67 73 29 20 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p.args).it)).................... |
| 1be0 | 20 20 20 20 66 6f 72 6d 61 74 74 65 72 29 29 29 0a 20 20 20 28 74 20 28 61 70 70 6c 79 20 23 27 | ....formatter)))....(t.(apply.#' |
| 1c00 | 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 74 65 72 20 61 72 67 73 29 29 29 29 0a 0a 3b 3b 2a 20 41 | format.formatter.args))))..;;*.A |
| 1c20 | 73 79 6e 63 20 55 74 69 6c 69 74 79 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 | sync.Utility.(defvar.counsel--as |
| 1c40 | 79 6e 63 2d 74 69 6d 65 20 6e 69 6c 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 74 69 6d 65 20 77 | ync-time.nil..."Store.the.time.w |
| 1c60 | 68 65 6e 20 61 20 6e 65 77 20 70 72 6f 63 65 73 73 20 77 61 73 20 73 74 61 72 74 65 64 2e 0a 4f | hen.a.new.process.was.started..O |
| 1c80 | 72 20 74 68 65 20 74 69 6d 65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 6d 69 6e 69 62 75 66 66 65 | r.the.time.of.the.last.minibuffe |
| 1ca0 | 72 20 75 70 64 61 74 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 | r.update.")..(defvar.counsel--as |
| 1cc0 | 79 6e 63 2d 73 74 61 72 74 20 6e 69 6c 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 74 69 6d 65 20 | ync-start.nil..."Store.the.time. |
| 1ce0 | 77 68 65 6e 20 61 20 6e 65 77 20 70 72 6f 63 65 73 73 20 77 61 73 20 73 74 61 72 74 65 64 2e 22 | when.a.new.process.was.started." |
| 1d00 | 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 72 20 | )..(defvar.counsel--async-timer. |
| 1d20 | 6e 69 6c 0a 20 20 22 54 69 6d 65 72 20 75 73 65 64 20 74 6f 20 64 69 73 70 6f 73 65 20 60 63 6f | nil..."Timer.used.to.dispose.`co |
| 1d40 | 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2e 22 29 0a 0a 28 64 65 66 76 61 72 | unsel--async-command.")..(defvar |
| 1d60 | 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 64 75 72 61 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 | .counsel--async-duration.nil..." |
| 1d80 | 53 74 6f 72 65 20 74 68 65 20 74 69 6d 65 20 61 20 70 72 6f 63 65 73 73 20 74 61 6b 65 73 20 74 | Store.the.time.a.process.takes.t |
| 1da0 | 6f 20 67 61 74 68 65 72 20 61 6c 6c 20 69 74 73 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 54 68 65 | o.gather.all.its.candidates..The |
| 1dc0 | 20 74 69 6d 65 20 69 73 20 6d 65 61 73 75 72 65 64 20 69 6e 20 73 65 63 6f 6e 64 73 2e 22 29 0a | .time.is.measured.in.seconds."). |
| 1de0 | 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 65 78 69 74 2d 63 6f 64 | .(defvar.counsel--async-exit-cod |
| 1e00 | 65 2d 70 6c 69 73 74 20 28 29 0a 20 20 22 41 73 73 6f 63 69 61 74 65 20 63 6f 6d 6d 61 6e 64 73 | e-plist.()..."Associate.commands |
| 1e20 | 20 77 69 74 68 20 74 68 65 69 72 20 65 78 69 74 20 63 6f 64 65 20 64 65 73 63 72 69 70 74 69 6f | .with.their.exit.code.descriptio |
| 1e40 | 6e 73 2e 0a 54 68 69 73 20 70 6c 69 73 74 20 6d 61 70 73 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 | ns..This.plist.maps.commands.to. |
| 1e60 | 61 20 70 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 74 68 65 69 72 20 65 78 69 74 20 63 6f 64 65 73 | a.plist.mapping.their.exit.codes |
| 1e80 | 20 74 6f 0a 64 65 73 63 72 69 70 74 69 6f 6e 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 | .to.descriptions.")..(defvar.cou |
| 1ea0 | 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 6c 61 73 74 2d 65 72 72 6f 72 2d 73 74 72 69 6e 67 20 6e 69 | nsel--async-last-error-string.ni |
| 1ec0 | 6c 0a 20 20 22 57 68 65 6e 20 74 68 65 20 70 72 6f 63 65 73 73 20 72 65 74 75 72 6e 65 64 20 6e | l..."When.the.process.returned.n |
| 1ee0 | 6f 6e 2d 30 2c 20 73 74 6f 72 65 20 74 68 65 20 6f 75 74 70 75 74 20 68 65 72 65 2e 22 29 0a 0a | on-0,.store.the.output.here.").. |
| 1f00 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 61 73 79 6e 63 2d 65 78 69 74 2d 63 6f | (defun.counsel-set-async-exit-co |
| 1f20 | 64 65 20 28 63 6d 64 20 6e 75 6d 62 65 72 20 73 74 72 29 0a 20 20 22 46 6f 72 20 43 4d 44 2c 20 | de.(cmd.number.str)..."For.CMD,. |
| 1f40 | 61 73 73 6f 63 69 61 74 65 20 4e 55 4d 42 45 52 20 65 78 69 74 20 63 6f 64 65 20 77 69 74 68 20 | associate.NUMBER.exit.code.with. |
| 1f60 | 53 54 52 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 6c 69 73 74 20 28 70 6c 69 73 74 2d 67 65 74 20 | STR."...(let.((plist.(plist-get. |
| 1f80 | 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 65 78 69 74 2d 63 6f 64 65 2d 70 6c 69 73 74 20 63 | counsel--async-exit-code-plist.c |
| 1fa0 | 6d 64 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 65 | md))).....(setq.counsel--async-e |
| 1fc0 | 78 69 74 2d 63 6f 64 65 2d 70 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 28 70 6c 69 73 74 2d | xit-code-plist...........(plist- |
| 1fe0 | 70 75 74 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 65 78 69 74 2d 63 6f 64 65 2d 70 6c 69 | put.counsel--async-exit-code-pli |
| 2000 | 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 0a 20 20 20 20 | st......................cmd..... |
| 2020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 69 73 74 2d 70 75 74 20 70 6c 69 73 | .................(plist-put.plis |
| 2040 | 74 20 6e 75 6d 62 65 72 20 73 74 72 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 | t.number.str)))))..(defvar.couns |
| 2060 | 65 6c 2d 61 73 79 6e 63 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 2d 72 65 2d 61 6c 69 73 74 20 27 | el-async-split-string-re-alist.' |
| 2080 | 28 28 74 20 2e 20 22 5b 5c 72 5c 6e 5d 22 29 29 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 72 65 | ((t..."[\r\n]"))..."Store.the.re |
| 20a0 | 67 65 78 70 20 66 6f 72 20 73 70 6c 69 74 74 69 6e 67 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 | gexp.for.splitting.shell.command |
| 20c0 | 20 6f 75 74 70 75 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e | .output.")..(defvar.counsel-asyn |
| 20e0 | 63 2d 69 67 6e 6f 72 65 2d 72 65 2d 61 6c 69 73 74 20 6e 69 6c 0a 20 20 22 41 6e 20 61 6c 69 73 | c-ignore-re-alist.nil..."An.alis |
| 2100 | 74 20 6f 66 20 72 65 67 65 78 70 20 6d 61 74 63 68 69 6e 67 20 63 61 6e 64 69 64 61 74 65 73 20 | t.of.regexp.matching.candidates. |
| 2120 | 74 6f 20 69 67 6e 6f 72 65 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 66 69 6c | to.ignore.in.`counsel--async-fil |
| 2140 | 74 65 72 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d | ter'.")..(defvar.counsel--async- |
| 2160 | 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 6c 61 | last-command.nil..."Store.the.la |
| 2180 | 73 74 20 63 6f 6d 6d 61 6e 64 20 72 61 6e 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e | st.command.ran.by.`counsel--asyn |
| 21a0 | 63 2d 63 6f 6d 6d 61 6e 64 2d 31 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | c-command-1'.")..(defun.counsel- |
| 21c0 | 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d 31 20 28 63 6d 64 20 26 6f 70 74 69 6f 6e 61 6c 20 | -async-command-1.(cmd.&optional. |
| 21e0 | 73 65 6e 74 69 6e 65 6c 20 66 69 6c 74 65 72 20 6e 61 6d 65 29 0a 20 20 22 53 74 61 72 74 20 61 | sentinel.filter.name)..."Start.a |
| 2200 | 6e 64 20 72 65 74 75 72 6e 20 6e 65 77 20 63 6f 75 6e 73 65 6c 20 70 72 6f 63 65 73 73 20 62 79 | nd.return.new.counsel.process.by |
| 2220 | 20 63 61 6c 6c 69 6e 67 20 43 4d 44 2e 0a 43 4d 44 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 | .calling.CMD..CMD.can.be.either. |
| 2240 | 61 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 61 73 20 61 20 73 74 72 69 6e 67 2c 20 6f 72 20 | a.shell.command.as.a.string,.or. |
| 2260 | 61 20 6c 69 73 74 20 6f 66 20 74 68 65 0a 70 72 6f 67 72 61 6d 20 6e 61 6d 65 20 74 6f 20 62 65 | a.list.of.the.program.name.to.be |
| 2280 | 20 63 61 6c 6c 65 64 20 64 69 72 65 63 74 6c 79 2c 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 69 74 | .called.directly,.followed.by.it |
| 22a0 | 73 20 61 72 67 75 6d 65 6e 74 73 2e 0a 49 66 20 74 68 65 20 64 65 66 61 75 6c 74 20 63 6f 75 6e | s.arguments..If.the.default.coun |
| 22c0 | 73 65 6c 20 70 72 6f 63 65 73 73 20 6f 72 20 6f 6e 65 20 77 69 74 68 20 4e 41 4d 45 20 61 6c 72 | sel.process.or.one.with.NAME.alr |
| 22e0 | 65 61 64 79 20 65 78 69 73 74 73 2c 0a 6b 69 6c 6c 20 69 74 20 61 6e 64 20 69 74 73 20 61 73 73 | eady.exists,.kill.it.and.its.ass |
| 2300 | 6f 63 69 61 74 65 64 20 62 75 66 66 65 72 20 62 65 66 6f 72 65 20 73 74 61 72 74 69 6e 67 20 61 | ociated.buffer.before.starting.a |
| 2320 | 20 6e 65 77 20 6f 6e 65 2e 0a 47 69 76 65 20 74 68 65 20 70 72 6f 63 65 73 73 20 74 68 65 20 66 | .new.one..Give.the.process.the.f |
| 2340 | 75 6e 63 74 69 6f 6e 73 20 53 45 4e 54 49 4e 45 4c 20 61 6e 64 20 46 49 4c 54 45 52 2c 20 77 68 | unctions.SENTINEL.and.FILTER,.wh |
| 2360 | 69 63 68 20 64 65 66 61 75 6c 74 0a 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 73 | ich.default.to.`counsel--async-s |
| 2380 | 65 6e 74 69 6e 65 6c 27 20 61 6e 64 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 66 69 6c | entinel'.and.`counsel--async-fil |
| 23a0 | 74 65 72 27 2c 0a 72 65 73 70 65 63 74 69 76 65 6c 79 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d | ter',.respectively."...(counsel- |
| 23c0 | 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 6e 61 6d 65 29 0a 20 20 28 73 65 74 71 20 6e 61 6d | delete-process.name)...(setq.nam |
| 23e0 | 65 20 28 6f 72 20 6e 61 6d 65 20 22 20 2a 63 6f 75 6e 73 65 6c 2a 22 29 29 0a 20 20 28 77 68 65 | e.(or.name.".*counsel*"))...(whe |
| 2400 | 6e 20 28 67 65 74 2d 62 75 66 66 65 72 20 6e 61 6d 65 29 0a 20 20 20 20 28 6b 69 6c 6c 2d 62 75 | n.(get-buffer.name).....(kill-bu |
| 2420 | 66 66 65 72 20 6e 61 6d 65 29 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 | ffer.name))...(setq.counsel--asy |
| 2440 | 6e 63 2d 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 63 6d 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 | nc-last-command.cmd)...(let*.((b |
| 2460 | 75 66 20 28 67 65 74 2d 62 75 66 66 65 72 2d 63 72 65 61 74 65 20 6e 61 6d 65 29 29 0a 20 20 20 | uf.(get-buffer-create.name)).... |
| 2480 | 20 20 20 20 20 20 28 70 72 6f 63 20 28 69 66 20 28 6c 69 73 74 70 20 63 6d 64 29 0a 20 20 20 20 | ......(proc.(if.(listp.cmd)..... |
| 24a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 66 69 | ...............(apply.#'start-fi |
| 24c0 | 6c 65 2d 70 72 6f 63 65 73 73 20 6e 61 6d 65 20 62 75 66 20 63 6d 64 29 0a 20 20 20 20 20 20 20 | le-process.name.buf.cmd)........ |
| 24e0 | 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 73 73 2d 73 68 | ..........(start-file-process-sh |
| 2500 | 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 6e 61 6d 65 20 62 75 66 20 63 6d 64 29 29 29 29 0a 20 20 20 | ell-command.name.buf.cmd)))).... |
| 2520 | 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 20 28 63 75 72 72 | .(setq.counsel--async-time.(curr |
| 2540 | 65 6e 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 | ent-time)).....(setq.counsel--as |
| 2560 | 79 6e 63 2d 73 74 61 72 74 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 29 0a 20 | ync-start.counsel--async-time).. |
| 2580 | 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 70 72 6f 63 20 28 6f | ...(set-process-sentinel.proc.(o |
| 25a0 | 72 20 73 65 6e 74 69 6e 65 6c 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 73 65 6e 74 | r.sentinel.#'counsel--async-sent |
| 25c0 | 69 6e 65 6c 29 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 70 | inel)).....(set-process-filter.p |
| 25e0 | 72 6f 63 20 28 6f 72 20 66 69 6c 74 65 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d | roc.(or.filter.#'counsel--async- |
| 2600 | 66 69 6c 74 65 72 29 29 0a 20 20 20 20 70 72 6f 63 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | filter)).....proc))..(defcustom. |
| 2620 | 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d 64 65 6c 61 79 20 30 0a 20 20 | counsel-async-command-delay.0... |
| 2640 | 22 4e 75 6d 62 65 72 20 6f 66 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 | "Number.of.seconds.to.wait.befor |
| 2660 | 65 20 73 70 61 77 6e 69 6e 67 20 61 6e 6f 74 68 65 72 20 61 73 79 6e 63 20 63 6f 6d 6d 61 6e 64 | e.spawning.another.async.command |
| 2680 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | ."...:type.'number)..(defun.coun |
| 26a0 | 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 20 28 26 72 65 73 74 20 61 72 67 73 29 0a | sel--async-command.(&rest.args). |
| 26c0 | 20 20 22 4c 69 6b 65 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d | .."Like.`counsel--async-command- |
| 26e0 | 31 27 2c 20 77 69 74 68 20 73 61 6d 65 20 41 52 47 53 2c 20 62 75 74 20 64 65 62 6f 75 6e 63 65 | 1',.with.same.ARGS,.but.debounce |
| 2700 | 64 2e 0a 43 61 6c 6c 73 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d | d..Calls.to.`counsel--async-comm |
| 2720 | 61 6e 64 2d 31 27 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 62 79 20 61 74 20 6c 65 61 73 74 | and-1'.are.separated.by.at.least |
| 2740 | 0a 60 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d 64 65 6c 61 79 27 20 73 | .`counsel-async-command-delay'.s |
| 2760 | 65 63 6f 6e 64 73 2c 20 73 6f 20 61 73 20 74 6f 20 61 76 6f 69 64 20 69 73 73 75 65 73 0a 63 61 | econds,.so.as.to.avoid.issues.ca |
| 2780 | 75 73 65 64 20 62 79 20 73 70 61 77 6e 69 6e 67 20 74 6f 6f 20 6d 61 6e 79 20 73 75 62 70 72 6f | used.by.spawning.too.many.subpro |
| 27a0 | 63 65 73 73 65 73 20 74 6f 6f 20 71 75 69 63 6b 6c 79 2e 22 0a 20 20 28 69 66 20 28 7a 65 72 6f | cesses.too.quickly."...(if.(zero |
| 27c0 | 70 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d 64 65 6c 61 79 29 0a 20 | p.counsel-async-command-delay).. |
| 27e0 | 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d | .....(apply.#'counsel--async-com |
| 2800 | 6d 61 6e 64 2d 31 20 61 72 67 73 29 0a 20 20 20 20 28 77 68 65 6e 20 63 6f 75 6e 73 65 6c 2d 2d | mand-1.args).....(when.counsel-- |
| 2820 | 61 73 79 6e 63 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 | async-timer.......(cancel-timer. |
| 2840 | 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 72 29 29 0a 20 20 20 20 28 73 65 74 71 | counsel--async-timer)).....(setq |
| 2860 | 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 | .counsel--async-timer........... |
| 2880 | 28 61 70 70 6c 79 20 23 27 72 75 6e 2d 77 69 74 68 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 | (apply.#'run-with-timer......... |
| 28a0 | 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 2d 64 | .........counsel-async-command-d |
| 28c0 | 65 6c 61 79 0a 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 | elay..................nil....... |
| 28e0 | 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d | ...........#'counsel--async-comm |
| 2900 | 61 6e 64 2d 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 72 67 73 29 29 29 29 0a | and-1..................args)))). |
| 2920 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 26 | .(defun.counsel--split-string.(& |
| 2940 | 6f 70 74 69 6f 6e 61 6c 20 73 74 72 29 0a 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 | optional.str)...(split-string... |
| 2960 | 20 28 6f 72 20 73 74 72 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 28 69 76 | .(or.str.(buffer-string))....(iv |
| 2980 | 79 2d 61 6c 69 73 74 2d 73 65 74 74 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 73 70 | y-alist-setting.counsel-async-sp |
| 29a0 | 6c 69 74 2d 73 74 72 69 6e 67 2d 72 65 2d 61 6c 69 73 74 29 0a 20 20 20 74 29 29 0a 0a 28 64 65 | lit-string-re-alist)....t))..(de |
| 29c0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 79 6e 63 2d 73 65 6e 74 69 6e 65 6c 2d 6f 6e 2d 65 78 | fun.counsel--sync-sentinel-on-ex |
| 29e0 | 69 74 20 28 70 72 6f 63 65 73 73 29 0a 20 20 28 69 66 20 28 7a 65 72 6f 70 20 28 70 72 6f 63 65 | it.(process)...(if.(zerop.(proce |
| 2a00 | 73 73 2d 65 78 69 74 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 28 | ss-exit-status.process)).......( |
| 2a20 | 6c 65 74 20 28 28 63 75 72 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 | let.((cur.(ivy-state-current.ivy |
| 2a40 | 2d 6c 61 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 73 65 74 2d 63 61 6e 64 69 | -last))).........(ivy--set-candi |
| 2a60 | 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 73 6f 72 74 2d 6d 61 79 62 65 0a | dates..........(ivy--sort-maybe. |
| 2a80 | 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 | ..........(with-current-buffer.( |
| 2aa0 | 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 | process-buffer.process)......... |
| 2ac0 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 | ....(counsel--split-string)))).. |
| 2ae0 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 73 74 61 72 | .......(when.counsel--async-star |
| 2b00 | 74 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 | t...........(setq.counsel--async |
| 2b20 | 2d 64 75 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d | -duration.................(time- |
| 2b40 | 74 6f 2d 73 65 63 6f 6e 64 73 20 28 74 69 6d 65 2d 73 69 6e 63 65 20 63 6f 75 6e 73 65 6c 2d 2d | to-seconds.(time-since.counsel-- |
| 2b60 | 61 73 79 6e 63 2d 73 74 61 72 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 | async-start)))).........(let.((r |
| 2b80 | 65 20 28 69 76 79 2d 72 65 2d 74 6f 2d 73 74 72 20 69 76 79 2d 72 65 67 65 78 29 29 29 0a 20 20 | e.(ivy-re-to-str.ivy-regex)))... |
| 2ba0 | 20 20 20 20 20 20 20 20 28 69 66 20 69 76 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 0a 20 20 20 20 20 | ........(if.ivy--old-cands...... |
| 2bc0 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 69 76 79 2d 61 6c 69 73 74 2d 73 65 74 74 | .........(if.(eq.(ivy-alist-sett |
| 2be0 | 69 6e 67 20 69 76 79 2d 69 6e 64 65 78 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 29 20 27 | ing.ivy-index-functions-alist).' |
| 2c00 | 69 76 79 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d 7a 65 72 6f 29 0a 20 20 20 20 20 20 | ivy-recompute-index-zero)....... |
| 2c20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 73 65 74 2d 69 6e 64 65 78 20 30 29 0a 20 20 | ............(ivy-set-index.0)... |
| 2c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e | ..............(ivy--recompute-in |
| 2c60 | 64 65 78 20 72 65 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 29 29 0a 20 20 20 | dex.re.ivy--all-candidates)).... |
| 2c80 | 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6e 64 65 78 20 77 61 73 20 63 68 61 6e 67 65 64 20 62 65 | .........;;.index.was.changed.be |
| 2ca0 | 66 6f 72 65 20 61 20 6c 6f 6e 67 2d 72 75 6e 6e 69 6e 67 20 71 75 65 72 79 20 65 78 69 74 65 64 | fore.a.long-running.query.exited |
| 2cc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 63 75 | .............(unless.(string=.cu |
| 2ce0 | 72 20 28 6e 74 68 20 69 76 79 2d 2d 69 6e 64 65 78 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 | r.(nth.ivy--index.ivy--all-candi |
| 2d00 | 64 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 75 6e | dates))...............(let.((fun |
| 2d20 | 63 20 28 69 76 79 2d 61 6c 69 73 74 2d 73 65 74 74 69 6e 67 20 69 76 79 2d 69 6e 64 65 78 2d 66 | c.(ivy-alist-setting.ivy-index-f |
| 2d40 | 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | unctions-alist)))............... |
| 2d60 | 20 20 28 69 66 20 66 75 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ..(if.func.....................( |
| 2d80 | 66 75 6e 63 61 6c 6c 20 66 75 6e 63 20 72 65 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 | funcall.func.re.ivy--all-candida |
| 2da0 | 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 70 72 65 | tes)...................(ivy--pre |
| 2dc0 | 73 65 6c 65 63 74 2d 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | select-index.................... |
| 2de0 | 28 69 66 20 28 3e 20 28 6c 65 6e 67 74 68 20 72 65 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 | (if.(>.(length.re).0)........... |
| 2e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 75 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .............cur................ |
| 2e20 | 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 65 73 65 6c 65 63 74 20 69 76 79 2d 6c | ......(ivy-state-preselect.ivy-l |
| 2e40 | 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 76 79 2d 2d 61 6c | ast))....................ivy--al |
| 2e60 | 6c 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 | l-candidates)))))).........(setq |
| 2e80 | 20 69 76 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 | .ivy--old-cands.ivy--all-candida |
| 2ea0 | 74 65 73 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 | tes).........(if.ivy--all-candid |
| 2ec0 | 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 65 78 68 69 62 69 74 29 0a | ates.............(ivy--exhibit). |
| 2ee0 | 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 69 6e 73 65 72 74 2d 6d 69 6e 69 62 75 66 66 65 | ..........(ivy--insert-minibuffe |
| 2f00 | 72 20 22 22 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 | r.""))).....(setq.counsel--async |
| 2f20 | 2d 6c 61 73 74 2d 65 72 72 6f 72 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 | -last-error-string...........(wi |
| 2f40 | 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 | th-current-buffer.(process-buffe |
| 2f60 | 72 20 70 72 6f 63 65 73 73 29 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 | r.process).(buffer-string))).... |
| 2f80 | 20 28 73 65 74 71 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 | .(setq.ivy--all-candidates...... |
| 2fa0 | 20 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 74 75 73 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 | .....(let.((status.(process-exit |
| 2fc0 | 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -status.process))............... |
| 2fe0 | 20 20 28 70 6c 69 73 74 20 28 70 6c 69 73 74 2d 67 65 74 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 | ..(plist.(plist-get.counsel--asy |
| 3000 | 6e 63 2d 65 78 69 74 2d 63 6f 64 65 2d 70 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | nc-exit-code-plist.............. |
| 3020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d | .....................(ivy-state- |
| 3040 | 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | caller.ivy-last))))............. |
| 3060 | 28 6c 69 73 74 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 70 6c 69 73 74 20 73 74 61 74 75 | (list.(or.(plist-get.plist.statu |
| 3080 | 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | s).......................(format |
| 30a0 | 20 22 65 72 72 6f 72 20 63 6f 64 65 20 25 64 22 20 73 74 61 74 75 73 29 29 29 29 29 0a 20 20 20 | ."error.code.%d".status))))).... |
| 30c0 | 20 28 73 65 74 71 20 69 76 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 20 69 76 79 2d 2d 61 6c 6c 2d 63 | .(setq.ivy--old-cands.ivy--all-c |
| 30e0 | 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 28 69 76 79 2d 2d 65 78 68 69 62 69 74 29 29 29 0a | andidates).....(ivy--exhibit))). |
| 3100 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 73 65 6e 74 69 6e 65 6c 20 | .(defun.counsel--async-sentinel. |
| 3120 | 28 70 72 6f 63 65 73 73 20 5f 6d 73 67 29 0a 20 20 22 53 65 6e 74 69 6e 65 6c 20 66 75 6e 63 74 | (process._msg)..."Sentinel.funct |
| 3140 | 69 6f 6e 20 66 6f 72 20 61 6e 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 63 6f 75 6e 73 65 6c 20 | ion.for.an.asynchronous.counsel. |
| 3160 | 50 52 4f 43 45 53 53 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 28 70 72 6f 63 65 73 73 2d 73 | PROCESS."...(when.(eq.(process-s |
| 3180 | 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 20 27 65 78 69 74 29 0a 20 20 20 20 28 63 6f 75 6e 73 | tatus.process).'exit).....(couns |
| 31a0 | 65 6c 2d 2d 73 79 6e 63 2d 73 65 6e 74 69 6e 65 6c 2d 6f 6e 2d 65 78 69 74 20 70 72 6f 63 65 73 | el--sync-sentinel-on-exit.proces |
| 31c0 | 73 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 66 | s)))..(defcustom.counsel-async-f |
| 31e0 | 69 6c 74 65 72 2d 75 70 64 61 74 65 2d 74 69 6d 65 20 35 30 30 30 30 30 0a 20 20 22 54 68 65 20 | ilter-update-time.500000..."The. |
| 3200 | 61 6d 6f 75 6e 74 20 6f 66 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 75 | amount.of.microseconds.to.wait.u |
| 3220 | 6e 74 69 6c 20 75 70 64 61 74 69 6e 67 20 60 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 66 69 | ntil.updating.`counsel--async-fi |
| 3240 | 6c 74 65 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 64 65 66 75 | lter'."...:type.'integer)..(defu |
| 3260 | 6e 20 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 65 73 73 | n.counsel--async-filter.(process |
| 3280 | 20 73 74 72 29 0a 20 20 22 52 65 63 65 69 76 65 20 66 72 6f 6d 20 50 52 4f 43 45 53 53 20 74 68 | .str)..."Receive.from.PROCESS.th |
| 32a0 | 65 20 6f 75 74 70 75 74 20 53 54 52 2e 0a 55 70 64 61 74 65 20 74 68 65 20 6d 69 6e 69 62 75 66 | e.output.STR..Update.the.minibuf |
| 32c0 | 66 65 72 20 77 69 74 68 20 74 68 65 20 61 6d 6f 75 6e 74 20 6f 66 20 6c 69 6e 65 73 20 63 6f 6c | fer.with.the.amount.of.lines.col |
| 32e0 | 6c 65 63 74 65 64 20 65 76 65 72 79 0a 60 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 66 69 6c 74 | lected.every.`counsel-async-filt |
| 3300 | 65 72 2d 75 70 64 61 74 65 2d 74 69 6d 65 27 20 6d 69 63 72 6f 73 65 63 6f 6e 64 73 20 73 69 6e | er-update-time'.microseconds.sin |
| 3320 | 63 65 20 74 68 65 20 6c 61 73 74 20 75 70 64 61 74 65 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 | ce.the.last.update."...(with-cur |
| 3340 | 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 | rent-buffer.(process-buffer.proc |
| 3360 | 65 73 73 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 29 29 0a 20 20 28 77 68 65 6e 20 28 | ess).....(insert.str))...(when.( |
| 3380 | 74 69 6d 65 2d 6c 65 73 73 2d 70 20 28 6c 69 73 74 20 30 20 30 20 63 6f 75 6e 73 65 6c 2d 61 73 | time-less-p.(list.0.0.counsel-as |
| 33a0 | 79 6e 63 2d 66 69 6c 74 65 72 2d 75 70 64 61 74 65 2d 74 69 6d 65 29 0a 20 20 20 20 20 20 20 20 | ync-filter-update-time)......... |
| 33c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d 73 69 6e 63 65 20 63 6f 75 6e 73 65 6c | .............(time-since.counsel |
| 33e0 | 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 29 29 0a 20 20 20 20 28 6c 65 74 20 28 6e 75 6d 6c 69 6e 65 | --async-time)).....(let.(numline |
| 3400 | 73 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 70 | s).......(with-current-buffer.(p |
| 3420 | 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 65 73 73 29 0a 20 20 20 20 20 20 20 20 28 | rocess-buffer.process).........( |
| 3440 | 73 65 74 71 20 6e 75 6d 6c 69 6e 65 73 20 28 63 6f 75 6e 74 2d 6c 69 6e 65 73 20 28 70 6f 69 6e | setq.numlines.(count-lines.(poin |
| 3460 | 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 76 | t-min).(point-max))).........(iv |
| 3480 | 79 2d 2d 73 65 74 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | y--set-candidates..........(let. |
| 34a0 | 28 28 6c 69 6e 65 73 20 28 63 6f 75 6e 73 65 6c 2d 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 29 29 | ((lines.(counsel--split-string)) |
| 34c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 72 65 20 28 69 76 79 2d | ................(ignore-re.(ivy- |
| 34e0 | 61 6c 69 73 74 2d 73 65 74 74 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 69 67 6e 6f | alist-setting.counsel-async-igno |
| 3500 | 72 65 2d 72 65 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 | re-re-alist)))............(if.(s |
| 3520 | 74 72 69 6e 67 70 20 69 67 6e 6f 72 65 2d 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tringp.ignore-re)............... |
| 3540 | 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 6c 69 6e 65 29 0a 20 20 | .(cl-remove-if.(lambda.(line)... |
| 3560 | 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 73 74 | .............................(st |
| 3580 | 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 69 67 6e 6f 72 65 2d 72 65 20 6c 69 6e 65 29 29 0a 20 20 | ring-match-p.ignore-re.line))... |
| 35a0 | 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 6c 69 6e 65 73 | ...........................lines |
| 35c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 73 29 29 29 29 0a 20 20 20 20 20 20 28 | )..............lines)))).......( |
| 35e0 | 6c 65 74 20 28 28 69 76 79 2d 2d 70 72 6f 6d 70 74 20 28 66 6f 72 6d 61 74 20 22 25 64 2b 2b 20 | let.((ivy--prompt.(format."%d++. |
| 3600 | 25 73 22 20 6e 75 6d 6c 69 6e 65 73 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 6f 6d 70 74 20 69 | %s".numlines.(ivy-state-prompt.i |
| 3620 | 76 79 2d 6c 61 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 69 6e 73 65 72 74 | vy-last)))).........(ivy--insert |
| 3640 | 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 69 76 79 2d 2d 66 6f 72 6d 61 74 20 69 76 79 2d 2d 61 6c | -minibuffer.(ivy--format.ivy--al |
| 3660 | 6c 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e | l-candidates))).......(setq.coun |
| 3680 | 73 65 6c 2d 2d 61 73 79 6e 63 2d 74 69 6d 65 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 29 29 | sel--async-time.(current-time))) |
| 36a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 | ))..(defun.counsel-delete-proces |
| 36c0 | 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 29 0a 20 20 22 44 65 6c 65 74 65 20 63 75 72 | s.(&optional.name)..."Delete.cur |
| 36e0 | 72 65 6e 74 20 63 6f 75 6e 73 65 6c 20 70 72 6f 63 65 73 73 20 6f 72 20 74 68 61 74 20 77 69 74 | rent.counsel.process.or.that.wit |
| 3700 | 68 20 4e 41 4d 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 65 73 73 20 28 67 65 74 2d 70 | h.NAME."...(let.((process.(get-p |
| 3720 | 72 6f 63 65 73 73 20 28 6f 72 20 6e 61 6d 65 20 22 20 2a 63 6f 75 6e 73 65 6c 2a 22 29 29 29 29 | rocess.(or.name.".*counsel*")))) |
| 3740 | 0a 20 20 20 20 28 77 68 65 6e 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 | .....(when.process.......(delete |
| 3760 | 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 65 73 73 29 29 29 29 0a 0a 3b 3b 2a 20 43 6f 6d 70 6c 65 | -process.process))))..;;*.Comple |
| 3780 | 74 69 6f 6e 20 61 74 20 70 6f 69 6e 74 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 | tion.at.point.(define-obsolete-f |
| 37a0 | 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 65 6c 20 23 27 63 6f 6d 70 | unction-alias.'counsel-el.#'comp |
| 37c0 | 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 22 3c 32 30 32 30 2d 30 35 2d 32 30 20 57 65 64 3e 22 29 0a | lete-symbol."<2020-05-20.Wed>"). |
| 37e0 | 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 | (define-obsolete-function-alias. |
| 3800 | 27 63 6f 75 6e 73 65 6c 2d 63 6c 20 23 27 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 22 3c | 'counsel-cl.#'complete-symbol."< |
| 3820 | 32 30 32 30 2d 30 35 2d 32 30 20 57 65 64 3e 22 29 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 | 2020-05-20.Wed>").(define-obsole |
| 3840 | 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 6a 65 64 69 20 | te-function-alias.'counsel-jedi. |
| 3860 | 23 27 63 6f 6d 70 6c 65 74 65 2d 73 79 6d 62 6f 6c 20 22 3c 32 30 32 30 2d 30 35 2d 32 30 20 57 | #'complete-symbol."<2020-05-20.W |
| 3880 | 65 64 3e 22 29 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 75 6e 63 74 69 6f 6e 2d | ed>").(define-obsolete-function- |
| 38a0 | 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 63 6c 6a 20 23 27 63 6f 6d 70 6c 65 74 65 2d 73 79 | alias.'counsel-clj.#'complete-sy |
| 38c0 | 6d 62 6f 6c 20 22 3c 32 30 32 30 2d 30 35 2d 32 30 20 57 65 64 3e 22 29 0a 0a 3b 3b 2a 2a 20 60 | mbol."<2020-05-20.Wed>")..;;**.` |
| 38e0 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 61 6e 79 27 0a 28 64 65 66 76 61 72 20 63 6f 6d 70 61 6e 79 | counsel-company'.(defvar.company |
| 3900 | 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 | -candidates).(declare-function.c |
| 3920 | 6f 6d 70 61 6e 79 2d 61 62 6f 72 74 20 22 65 78 74 3a 63 6f 6d 70 61 6e 79 22 29 0a 28 64 65 63 | ompany-abort."ext:company").(dec |
| 3940 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 70 61 6e 79 2d 63 6f 6d 70 6c 65 74 65 20 22 | lare-function.company-complete." |
| 3960 | 65 78 74 3a 63 6f 6d 70 61 6e 79 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 | ext:company").(declare-function. |
| 3980 | 63 6f 6d 70 61 6e 79 2d 6d 6f 64 65 20 22 65 78 74 3a 63 6f 6d 70 61 6e 79 22 29 0a 28 64 65 63 | company-mode."ext:company").(dec |
| 39a0 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 70 61 6e 79 2d 63 61 6c 6c 2d 62 61 63 6b 65 | lare-function.company-call-backe |
| 39c0 | 6e 64 20 22 65 78 74 3a 63 6f 6d 70 61 6e 79 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | nd."ext:company").(declare-funct |
| 39e0 | 69 6f 6e 20 63 6f 6d 70 61 6e 79 2d 2d 63 6c 65 61 6e 2d 73 74 72 69 6e 67 20 22 65 78 74 3a 63 | ion.company--clean-string."ext:c |
| 3a00 | 6f 6d 70 61 6e 79 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 70 61 | ompany").(declare-function.compa |
| 3a20 | 6e 79 2d 2d 63 6f 6e 74 69 6e 75 65 20 22 65 78 74 3a 63 6f 6d 70 61 6e 79 22 29 0a 0a 3b 3b 3b | ny--continue."ext:company")..;;; |
| 3a40 | 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 61 | ###autoload.(defun.counsel-compa |
| 3a60 | 6e 79 20 28 29 0a 20 20 22 43 6f 6d 70 6c 65 74 65 20 75 73 69 6e 67 20 60 63 6f 6d 70 61 6e 79 | ny.()..."Complete.using.`company |
| 3a80 | 2d 63 61 6e 64 69 64 61 74 65 73 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | -candidates'."...(interactive).. |
| 3aa0 | 20 28 63 6f 6d 70 61 6e 79 2d 6d 6f 64 65 20 31 29 0a 20 20 28 75 6e 6c 65 73 73 20 63 6f 6d 70 | .(company-mode.1)...(unless.comp |
| 3ac0 | 61 6e 79 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 28 63 6f 6d 70 61 6e 79 2d 63 6f 6d 70 | any-candidates.....(company-comp |
| 3ae0 | 6c 65 74 65 29 29 0a 20 20 28 77 68 65 6e 20 63 6f 6d 70 61 6e 79 2d 63 61 6e 64 69 64 61 74 65 | lete))...(when.company-candidate |
| 3b00 | 73 0a 20 20 20 20 28 63 6f 6d 70 61 6e 79 2d 2d 63 6f 6e 74 69 6e 75 65 29 0a 20 20 20 20 28 69 | s.....(company--continue).....(i |
| 3b20 | 76 79 2d 72 65 61 64 20 22 43 61 6e 64 69 64 61 74 65 3a 20 22 20 63 6f 6d 70 61 6e 79 2d 63 61 | vy-read."Candidate:.".company-ca |
| 3b40 | 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 27 | ndidates...............:action.' |
| 3b60 | 63 6f 6d 70 61 6e 79 2d 66 69 6e 69 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 | company-finish...............:ca |
| 3b80 | 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 61 6e 79 29 29 29 0a 0a 28 69 76 79 2d 63 | ller.'counsel-company)))..(ivy-c |
| 3ba0 | 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 61 6e 79 0a 20 20 3a 64 69 73 | onfigure.'counsel-company...:dis |
| 3bc0 | 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 63 | play-transformer-fn.#'counsel--c |
| 3be0 | 6f 6d 70 61 6e 79 2d 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 0a 20 20 3a 75 6e | ompany-display-transformer...:un |
| 3c00 | 77 69 6e 64 2d 66 6e 20 28 6c 61 6d 62 64 61 28 29 20 28 75 6e 6c 65 73 73 20 69 76 79 2d 65 78 | wind-fn.(lambda().(unless.ivy-ex |
| 3c20 | 69 74 20 28 63 6f 6d 70 61 6e 79 2d 61 62 6f 72 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | it.(company-abort))))..(defun.co |
| 3c40 | 75 6e 73 65 6c 2d 2d 63 6f 6d 70 61 6e 79 2d 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d | unsel--company-display-transform |
| 3c60 | 65 72 20 28 73 29 0a 20 20 28 63 6f 6e 63 61 74 20 73 20 28 6c 65 74 20 28 28 61 6e 6e 6f 74 20 | er.(s)...(concat.s.(let.((annot. |
| 3c80 | 28 63 6f 6d 70 61 6e 79 2d 63 61 6c 6c 2d 62 61 63 6b 65 6e 64 20 27 61 6e 6e 6f 74 61 74 69 6f | (company-call-backend.'annotatio |
| 3ca0 | 6e 20 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 61 6e 6e 6f 74 | n.s)))...............(when.annot |
| 3cc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 61 6e 79 2d 2d 63 6c 65 61 6e | .................(company--clean |
| 3ce0 | 2d 73 74 72 69 6e 67 20 61 6e 6e 6f 74 29 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 | -string.annot)))))..;;**.`counse |
| 3d00 | 6c 2d 69 72 6f 6e 79 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 72 6f 6e 79 | l-irony'.(declare-function.irony |
| 3d20 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 63 61 6e 64 69 64 61 74 65 73 2d 61 73 79 6e 63 20 22 65 78 | -completion-candidates-async."ex |
| 3d40 | 74 3a 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 | t:irony-completion").(declare-fu |
| 3d60 | 6e 63 74 69 6f 6e 20 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 62 | nction.irony-completion-symbol-b |
| 3d80 | 6f 75 6e 64 73 20 22 65 78 74 3a 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 22 29 0a 28 64 | ounds."ext:irony-completion").(d |
| 3da0 | 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e | eclare-function.irony-completion |
| 3dc0 | 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 22 65 78 74 3a 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f | -annotation."ext:irony-completio |
| 3de0 | 6e 22 29 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 75 6e 73 | n")..;;;###autoload.(defun.couns |
| 3e00 | 65 6c 2d 69 72 6f 6e 79 20 28 29 0a 20 20 22 49 6e 6c 69 6e 65 20 43 2f 43 2b 2b 20 63 6f 6d 70 | el-irony.()..."Inline.C/C++.comp |
| 3e20 | 6c 65 74 69 6f 6e 20 75 73 69 6e 67 20 49 72 6f 6e 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | letion.using.Irony."...(interact |
| 3e40 | 69 76 65 29 0a 20 20 28 69 72 6f 6e 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 63 61 6e 64 69 64 61 | ive)...(irony-completion-candida |
| 3e60 | 74 65 73 2d 61 73 79 6e 63 20 27 63 6f 75 6e 73 65 6c 2d 69 72 6f 6e 79 2d 63 61 6c 6c 62 61 63 | tes-async.'counsel-irony-callbac |
| 3e80 | 6b 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 72 6f 6e 79 2d 63 61 6c 6c 62 61 | k))..(defun.counsel-irony-callba |
| 3ea0 | 63 6b 20 28 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 22 43 61 6c 6c 62 61 63 6b 20 66 75 6e 63 | ck.(candidates)..."Callback.func |
| 3ec0 | 74 69 6f 6e 20 66 6f 72 20 49 72 6f 6e 79 20 74 6f 20 73 65 61 72 63 68 20 61 6d 6f 6e 67 20 43 | tion.for.Irony.to.search.among.C |
| 3ee0 | 41 4e 44 49 44 41 54 45 53 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c | ANDIDATES."...(interactive)...(l |
| 3f00 | 65 74 2a 20 28 28 73 79 6d 62 6f 6c 2d 62 6f 75 6e 64 73 20 28 69 72 6f 6e 79 2d 63 6f 6d 70 6c | et*.((symbol-bounds.(irony-compl |
| 3f20 | 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 | etion-symbol-bounds))..........( |
| 3f40 | 62 65 67 20 28 63 61 72 20 73 79 6d 62 6f 6c 2d 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 20 20 20 | beg.(car.symbol-bounds))........ |
| 3f60 | 20 20 28 65 6e 64 20 28 63 64 72 20 73 79 6d 62 6f 6c 2d 62 6f 75 6e 64 73 29 29 0a 20 20 20 20 | ..(end.(cdr.symbol-bounds))..... |
| 3f80 | 20 20 20 20 20 28 70 72 65 66 69 78 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e | .....(prefix.(buffer-substring-n |
| 3fa0 | 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 28 73 65 74 | o-properties.beg.end))).....(set |
| 3fc0 | 71 20 69 76 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 62 65 67 20 62 65 67 0a 20 20 20 20 20 20 20 | q.ivy-completion-beg.beg........ |
| 3fe0 | 20 20 20 69 76 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 65 6e 64 20 65 6e 64 29 0a 20 20 20 20 28 | ...ivy-completion-end.end).....( |
| 4000 | 69 76 79 2d 72 65 61 64 20 22 63 6f 64 65 3a 20 22 20 28 6d 61 70 63 61 72 20 23 27 63 6f 75 6e | ivy-read."code:.".(mapcar.#'coun |
| 4020 | 73 65 6c 2d 69 72 6f 6e 79 2d 61 6e 6e 6f 74 61 74 65 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 | sel-irony-annotate.candidates).. |
| 4040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 6c 61 6d 62 64 61 20 | .............:predicate.(lambda. |
| 4060 | 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (candidate)..................... |
| 4080 | 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 70 72 65 66 69 78 20 28 | .......(string-prefix-p.prefix.( |
| 40a0 | 63 61 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | car.candidate)))...............: |
| 40c0 | 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 69 72 6f 6e 79 0a 20 20 20 20 20 20 20 20 20 20 | caller.'counsel-irony........... |
| 40e0 | 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 69 76 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d | ....:action.#'ivy-completion-in- |
| 4100 | 72 65 67 69 6f 6e 2d 61 63 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | region-action)))..(defun.counsel |
| 4120 | 2d 69 72 6f 6e 79 2d 61 6e 6e 6f 74 61 74 65 20 28 78 29 0a 20 20 22 4d 61 6b 65 20 49 76 79 20 | -irony-annotate.(x)..."Make.Ivy. |
| 4140 | 63 61 6e 64 69 64 61 74 65 20 66 72 6f 6d 20 49 72 6f 6e 79 20 63 61 6e 64 69 64 61 74 65 20 58 | candidate.from.Irony.candidate.X |
| 4160 | 2e 22 0a 20 20 28 63 6f 6e 73 20 28 63 6f 6e 63 61 74 20 28 63 61 72 20 78 29 20 28 69 72 6f 6e | ."...(cons.(concat.(car.x).(iron |
| 4180 | 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6e 6e 6f 74 61 74 69 6f 6e 20 78 29 29 0a 20 20 20 20 | y-completion-annotation.x))..... |
| 41a0 | 20 20 20 20 28 63 61 72 20 78 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 23 27 | ....(car.x)))..(ivy-configure.#' |
| 41c0 | 63 6f 75 6e 73 65 6c 2d 69 72 6f 6e 79 0a 20 20 3a 64 69 73 70 6c 61 79 2d 66 6e 20 23 27 69 76 | counsel-irony...:display-fn.#'iv |
| 41e0 | 79 2d 64 69 73 70 6c 61 79 2d 66 75 6e 63 74 69 6f 6e 2d 6f 76 65 72 6c 61 79 29 0a 0a 3b 3b 2a | y-display-function-overlay)..;;* |
| 4200 | 20 45 6c 69 73 70 20 73 79 6d 62 6f 6c 73 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 64 65 73 | .Elisp.symbols.;;**.`counsel-des |
| 4220 | 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d | cribe-variable'.(defvar.counsel- |
| 4240 | 64 65 73 63 72 69 62 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d | describe-map...(let.((map.(make- |
| 4260 | 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | sparse-keymap))).....(define-key |
| 4280 | 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 2e 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | .map.(kbd."C-.").#'counsel-find- |
| 42a0 | 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 | symbol).....(define-key.map.(kbd |
| 42c0 | 20 22 43 2d 2c 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 | ."C-,").#'counsel--info-lookup-s |
| 42e0 | 79 6d 62 6f 6c 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f | ymbol).....map))..(ivy-set-actio |
| 4300 | 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 0a 20 | ns..'counsel-describe-variable.. |
| 4320 | 27 28 28 22 49 22 20 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f | '(("I".counsel-info-lookup-symbo |
| 4340 | 6c 20 22 69 6e 66 6f 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d | l."info")....("d".counsel--find- |
| 4360 | 73 79 6d 62 6f 6c 20 22 64 65 66 69 6e 69 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | symbol."definition")))..(defvar. |
| 4380 | 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 68 69 73 74 6f 72 79 20 | counsel-describe-symbol-history. |
| 43a0 | 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 6c 69 73 74 20 66 6f 72 20 76 61 72 69 61 62 6c 65 20 | ()..."History.list.for.variable. |
| 43c0 | 61 6e 64 20 66 75 6e 63 74 69 6f 6e 20 6e 61 6d 65 73 2e 0a 55 73 65 64 20 62 79 20 63 6f 6d 6d | and.function.names..Used.by.comm |
| 43e0 | 61 6e 64 73 20 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 27 2c 0a | ands.`counsel-describe-symbol',. |
| 4400 | 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 27 2c 20 61 6e 64 | `counsel-describe-variable',.and |
| 4420 | 20 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 27 2e 22 29 0a | .`counsel-describe-function'."). |
| 4440 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 29 0a 20 | .(defun.counsel-find-symbol.().. |
| 4460 | 20 22 4a 75 6d 70 20 74 6f 20 74 68 65 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 74 68 65 20 | ."Jump.to.the.definition.of.the. |
| 4480 | 63 75 72 72 65 6e 74 20 73 79 6d 62 6f 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | current.symbol."...(interactive) |
| 44a0 | 0a 20 20 28 69 76 79 2d 65 78 69 74 2d 77 69 74 68 2d 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 | ...(ivy-exit-with-action.#'couns |
| 44c0 | 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 29 29 0a 28 70 75 74 20 27 63 6f 75 6e 73 65 6c 2d | el--find-symbol)).(put.'counsel- |
| 44e0 | 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 27 6e 6f 2d 63 6f 75 6e 73 65 6c 2d 4d 2d 78 20 74 29 0a 0a | find-symbol.'no-counsel-M-x.t).. |
| 4500 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 | (defun.counsel--info-lookup-symb |
| 4520 | 6f 6c 20 28 29 0a 20 20 22 4c 6f 6f 6b 75 70 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 79 6d 62 | ol.()..."Lookup.the.current.symb |
| 4540 | 6f 6c 20 69 6e 20 74 68 65 20 69 6e 66 6f 20 64 6f 63 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | ol.in.the.info.docs."...(interac |
| 4560 | 74 69 76 65 29 0a 20 20 28 69 76 79 2d 65 78 69 74 2d 77 69 74 68 2d 61 63 74 69 6f 6e 20 23 27 | tive)...(ivy-exit-with-action.#' |
| 4580 | 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 29 29 0a 0a 28 64 | counsel-info-lookup-symbol))..(d |
| 45a0 | 65 66 76 61 72 20 66 69 6e 64 2d 74 61 67 2d 6d 61 72 6b 65 72 2d 72 69 6e 67 29 0a 28 64 65 63 | efvar.find-tag-marker-ring).(dec |
| 45c0 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 78 72 65 66 2d 70 75 73 68 2d 6d 61 72 6b 65 72 2d 73 | lare-function.xref-push-marker-s |
| 45e0 | 74 61 63 6b 20 22 78 72 65 66 22 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c | tack."xref")..(defalias.'counsel |
| 4600 | 2d 2d 70 75 73 68 2d 78 72 65 66 2d 6d 61 72 6b 65 72 0a 20 20 3b 3b 20 41 64 64 65 64 20 69 6e | --push-xref-marker...;;.Added.in |
| 4620 | 20 45 6d 61 63 73 20 32 35 2e 31 2e 0a 20 20 28 69 66 20 28 72 65 71 75 69 72 65 20 27 78 72 65 | .Emacs.25.1....(if.(require.'xre |
| 4640 | 66 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 23 27 78 72 65 66 2d 70 75 73 68 2d 6d 61 72 6b 65 | f.nil.t).......#'xref-push-marke |
| 4660 | 72 2d 73 74 61 63 6b 0a 20 20 20 20 28 72 65 71 75 69 72 65 20 27 65 74 61 67 73 29 0a 20 20 20 | r-stack.....(require.'etags).... |
| 4680 | 20 28 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 29 0a 20 20 20 20 20 20 28 72 69 | .(lambda.(&optional.m).......(ri |
| 46a0 | 6e 67 2d 69 6e 73 65 72 74 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 20 66 69 6e 64 | ng-insert.(with-no-warnings.find |
| 46c0 | 2d 74 61 67 2d 6d 61 72 6b 65 72 2d 72 69 6e 67 29 20 28 6f 72 20 6d 20 28 70 6f 69 6e 74 2d 6d | -tag-marker-ring).(or.m.(point-m |
| 46e0 | 61 72 6b 65 72 29 29 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 73 68 69 6d | arker)))))..."Compatibility.shim |
| 4700 | 20 66 6f 72 20 60 78 72 65 66 2d 70 75 73 68 2d 6d 61 72 6b 65 72 2d 73 74 61 63 6b 27 2e 22 29 | .for.`xref-push-marker-stack'.") |
| 4720 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 28 78 | ..(defun.counsel--find-symbol.(x |
| 4740 | 29 0a 20 20 22 46 69 6e 64 20 73 79 6d 62 6f 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 74 68 61 74 | )..."Find.symbol.definition.that |
| 4760 | 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 73 74 72 69 6e 67 20 58 2e 22 0a 20 20 28 77 69 | .corresponds.to.string.X."...(wi |
| 4780 | 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 70 75 73 68 | th-ivy-window.....(counsel--push |
| 47a0 | 2d 78 72 65 66 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 75 6c 6c 2d 6e 61 | -xref-marker).....(let.((full-na |
| 47c0 | 6d 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 66 75 6c 6c 2d 6e 61 | me.(get-text-property.0.'full-na |
| 47e0 | 6d 65 20 78 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 66 75 6c 6c 2d 6e 61 6d 65 0a 20 20 20 20 | me.x))).......(if.full-name..... |
| 4800 | 20 20 20 20 20 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 66 75 6c 6c 2d 6e 61 6d 65 29 0a 20 | ......(find-library.full-name).. |
| 4820 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 72 65 61 64 20 78 29 29 29 0a 20 20 20 | .......(let.((sym.(read.x))).... |
| 4840 | 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 65 71 20 28 69 76 79 2d 73 74 61 74 | .......(cond.((and.(eq.(ivy-stat |
| 4860 | 65 2d 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-caller.ivy-last).............. |
| 4880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 | .............'counsel-describe-v |
| 48a0 | 61 72 69 61 62 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 28 | ariable).......................( |
| 48c0 | 62 6f 75 6e 64 70 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | boundp.sym))..................(f |
| 48e0 | 69 6e 64 2d 76 61 72 69 61 62 6c 65 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ind-variable.sym)).............. |
| 4900 | 20 20 20 28 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...((fboundp.sym)............... |
| 4920 | 20 20 20 28 66 69 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 | ...(find-function.sym))......... |
| 4940 | 20 20 20 20 20 20 20 20 28 28 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 | ........((boundp.sym)........... |
| 4960 | 20 20 20 20 20 20 20 28 66 69 6e 64 2d 76 61 72 69 61 62 6c 65 20 73 79 6d 29 29 0a 20 20 20 20 | .......(find-variable.sym))..... |
| 4980 | 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6f 72 20 28 66 65 61 74 75 72 65 70 20 73 79 6d 29 0a | ............((or.(featurep.sym). |
| 49a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 74 65 2d 6c 69 62 | .....................(locate-lib |
| 49c0 | 72 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e | rary.......................(prin |
| 49e0 | 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | 1-to-string.sym))).............. |
| 4a00 | 20 20 20 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(find-library............... |
| 4a20 | 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 79 6d 29 29 29 0a 20 20 20 20 | ....(prin1-to-string.sym)))..... |
| 4a40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(t.................. |
| 4a60 | 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 6e 27 74 20 66 69 6e 64 20 64 65 66 69 6e 69 74 69 6f 6e | (error."Couldn't.find.definition |
| 4a80 | 20 6f 66 20 25 73 22 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 | .of.%s"......................... |
| 4aa0 | 73 79 6d 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 76 61 72 | sym))))))))..(defun.counsel--var |
| 4ac0 | 69 61 62 6c 65 2d 70 20 28 73 79 6d 62 6f 6c 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f 6e 2d 6e | iable-p.(symbol)..."Return.non-n |
| 4ae0 | 69 6c 20 69 66 20 53 59 4d 42 4f 4c 20 69 73 20 61 20 62 6f 75 6e 64 20 6f 72 20 64 6f 63 75 6d | il.if.SYMBOL.is.a.bound.or.docum |
| 4b00 | 65 6e 74 65 64 20 76 61 72 69 61 62 6c 65 2e 22 0a 20 20 28 6f 72 20 28 61 6e 64 20 28 62 6f 75 | ented.variable."...(or.(and.(bou |
| 4b20 | 6e 64 70 20 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6b 65 79 | ndp.symbol)............(not.(key |
| 4b40 | 77 6f 72 64 70 20 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 28 67 65 74 20 73 79 6d 62 6f | wordp.symbol))).......(get.symbo |
| 4b60 | 6c 20 27 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 29 29 29 0a 0a 28 64 | l.'variable-documentation)))..(d |
| 4b80 | 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 | efcustom.counsel-describe-variab |
| 4ba0 | 6c 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 0a | le-function.#'describe-variable. |
| 4bc0 | 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 74 6f 20 64 65 73 63 72 69 62 65 20 | .."Function.to.call.to.describe. |
| 4be0 | 61 20 76 61 72 69 61 62 6c 65 20 70 61 73 73 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 2e 22 | a.variable.passed.as.parameter." |
| 4c00 | 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | ...:type.'function)..(defun.coun |
| 4c20 | 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 2d 74 72 61 6e 73 66 6f 72 6d 65 | sel-describe-variable-transforme |
| 4c40 | 72 20 28 76 61 72 29 0a 20 20 22 50 72 6f 70 65 72 74 69 7a 65 20 56 41 52 20 69 66 20 69 74 27 | r.(var)..."Propertize.VAR.if.it' |
| 4c60 | 73 20 61 20 63 75 73 74 6f 6d 20 76 61 72 69 61 62 6c 65 2e 22 0a 20 20 28 69 66 20 28 63 75 73 | s.a.custom.variable."...(if.(cus |
| 4c80 | 74 6f 6d 2d 76 61 72 69 61 62 6c 65 2d 70 20 28 69 6e 74 65 72 6e 20 76 61 72 29 29 0a 20 20 20 | tom-variable-p.(intern.var)).... |
| 4ca0 | 20 20 20 28 69 76 79 2d 61 70 70 65 6e 64 2d 66 61 63 65 20 76 61 72 20 27 69 76 79 2d 68 69 67 | ...(ivy-append-face.var.'ivy-hig |
| 4cc0 | 68 6c 69 67 68 74 2d 66 61 63 65 29 0a 20 20 20 20 76 61 72 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 | hlight-face).....var))..;;;###au |
| 4ce0 | 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 | toload.(defun.counsel-describe-v |
| 4d00 | 61 72 69 61 62 6c 65 20 28 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f 20 60 64 65 73 63 72 69 | ariable.()..."Forward.to.`descri |
| 4d20 | 62 65 2d 76 61 72 69 61 62 6c 65 27 2e 0a 0a 56 61 72 69 61 62 6c 65 73 20 64 65 63 6c 61 72 65 | be-variable'...Variables.declare |
| 4d40 | 64 20 75 73 69 6e 67 20 60 64 65 66 63 75 73 74 6f 6d 27 20 61 72 65 20 68 69 67 68 6c 69 67 68 | d.using.`defcustom'.are.highligh |
| 4d60 | 74 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a 60 69 76 79 2d 68 69 67 68 6c 69 67 68 74 2d | ted.according.to.`ivy-highlight- |
| 4d80 | 66 61 63 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 | face'."...(interactive)...(let.( |
| 4da0 | 28 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 | (enable-recursive-minibuffers.t) |
| 4dc0 | 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 44 65 73 63 72 69 62 65 20 76 61 72 69 61 62 | ).....(ivy-read."Describe.variab |
| 4de0 | 6c 65 3a 20 22 20 6f 62 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 | le:.".obarray...............:pre |
| 4e00 | 64 69 63 61 74 65 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 76 61 72 69 61 62 6c 65 2d 70 0a 20 20 20 | dicate.#'counsel--variable-p.... |
| 4e20 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 | ...........:require-match.t..... |
| 4e40 | 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 | ..........:history.'counsel-desc |
| 4e60 | 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ribe-symbol-history............. |
| 4e80 | 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 6d 61 70 0a 20 | ..:keymap.counsel-describe-map.. |
| 4ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 69 76 79 2d 74 68 69 | .............:preselect.(ivy-thi |
| 4ec0 | 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 | ng-at-point)...............:acti |
| 4ee0 | 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.(lambda.(x).................. |
| 4f00 | 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 | .......(funcall.counsel-describe |
| 4f20 | 2d 76 61 72 69 61 62 6c 65 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e 74 65 72 6e 20 78 29 29 29 0a | -variable-function.(intern.x))). |
| 4f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 64 | ..............:caller.'counsel-d |
| 4f60 | 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 | escribe-variable)))..(ivy-config |
| 4f80 | 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 0a 20 | ure.'counsel-describe-variable.. |
| 4fa0 | 20 3a 70 61 72 65 6e 74 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f | .:parent.'counsel-describe-symbo |
| 4fc0 | 6c 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f | l...:display-transformer-fn.#'co |
| 4fe0 | 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 2d 74 72 61 6e 73 66 6f 72 | unsel-describe-variable-transfor |
| 5000 | 6d 65 72 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e | mer)..;;**.`counsel-describe-fun |
| 5020 | 63 74 69 6f 6e 27 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 | ction'.(ivy-set-actions..'counse |
| 5040 | 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 27 28 28 22 49 22 20 63 6f 75 6e | l-describe-function..'(("I".coun |
| 5060 | 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 22 69 6e 66 6f 22 29 0a 20 | sel-info-lookup-symbol."info").. |
| 5080 | 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 64 65 66 | ..("d".counsel--find-symbol."def |
| 50a0 | 69 6e 69 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d | inition")))..(defcustom.counsel- |
| 50c0 | 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 65 73 | describe-function-function.#'des |
| 50e0 | 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 | cribe-function..."Function.to.ca |
| 5100 | 6c 6c 20 74 6f 20 64 65 73 63 72 69 62 65 20 61 20 66 75 6e 63 74 69 6f 6e 20 70 61 73 73 65 64 | ll.to.describe.a.function.passed |
| 5120 | 20 61 73 20 70 61 72 61 6d 65 74 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f | .as.parameter."...:type.'functio |
| 5140 | 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 | n)..(defun.counsel-describe-func |
| 5160 | 74 69 6f 6e 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 28 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 | tion-transformer.(function-name) |
| 5180 | 0a 20 20 22 50 72 6f 70 65 72 74 69 7a 65 20 46 55 4e 43 54 49 4f 4e 2d 4e 41 4d 45 20 69 66 20 | ..."Propertize.FUNCTION-NAME.if. |
| 51a0 | 69 74 27 73 20 61 6e 20 69 6e 74 65 72 61 63 74 69 76 65 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 | it's.an.interactive.function.".. |
| 51c0 | 20 28 69 66 20 28 63 6f 6d 6d 61 6e 64 70 20 28 69 6e 74 65 72 6e 20 66 75 6e 63 74 69 6f 6e 2d | .(if.(commandp.(intern.function- |
| 51e0 | 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 69 76 79 2d 61 70 70 65 6e 64 2d 66 61 63 65 20 66 75 | name)).......(ivy-append-face.fu |
| 5200 | 6e 63 74 69 6f 6e 2d 6e 61 6d 65 20 27 69 76 79 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 29 | nction-name.'ivy-highlight-face) |
| 5220 | 0a 20 20 20 20 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 69 76 79 | .....function-name))..(defun.ivy |
| 5240 | 2d 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 64 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 28 | -function-called-at-point.()...( |
| 5260 | 6c 65 74 20 28 28 66 20 28 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 64 2d 61 74 2d 70 6f 69 6e | let.((f.(function-called-at-poin |
| 5280 | 74 29 29 29 0a 20 20 20 20 28 61 6e 64 20 66 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 66 29 29 | t))).....(and.f.(symbol-name.f)) |
| 52a0 | 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d | ))..(defcustom.counsel-describe- |
| 52c0 | 66 75 6e 63 74 69 6f 6e 2d 70 72 65 73 65 6c 65 63 74 20 23 27 69 76 79 2d 74 68 69 6e 67 2d 61 | function-preselect.#'ivy-thing-a |
| 52e0 | 74 2d 70 6f 69 6e 74 0a 20 20 22 44 65 74 65 72 6d 69 6e 65 20 77 68 61 74 20 60 63 6f 75 6e 73 | t-point..."Determine.what.`couns |
| 5300 | 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 27 20 73 68 6f 75 6c 64 20 70 72 65 | el-describe-function'.should.pre |
| 5320 | 73 65 6c 65 63 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 61 64 69 6f 0a 20 20 20 20 20 20 20 | select."...:type.'(radio........ |
| 5340 | 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 69 76 79 2d 74 68 69 6e 67 2d 61 74 2d 70 | ...(function-item.ivy-thing-at-p |
| 5360 | 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 69 | oint)...........(function-item.i |
| 5380 | 76 79 2d 66 75 6e 63 74 69 6f 6e 2d 63 61 6c 6c 65 64 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 0a | vy-function-called-at-point))).. |
| 53a0 | 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 | ;;;###autoload.(defun.counsel-de |
| 53c0 | 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 28 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f | scribe-function.()..."Forward.to |
| 53e0 | 20 60 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 27 2e 0a 0a 49 6e 74 65 72 61 63 74 69 | .`describe-function'...Interacti |
| 5400 | 76 65 20 66 75 6e 63 74 69 6f 6e 73 20 28 69 2e 65 2e 2c 20 63 6f 6d 6d 61 6e 64 73 29 20 61 72 | ve.functions.(i.e.,.commands).ar |
| 5420 | 65 20 68 69 67 68 6c 69 67 68 74 65 64 20 61 63 63 6f 72 64 69 6e 67 0a 74 6f 20 60 69 76 79 2d | e.highlighted.according.to.`ivy- |
| 5440 | 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | highlight-face'."...(interactive |
| 5460 | 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 61 62 6c 65 2d 72 65 63 75 72 73 69 76 65 2d 6d 69 6e 69 | )...(let.((enable-recursive-mini |
| 5480 | 62 75 66 66 65 72 73 20 74 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 44 65 73 63 72 | buffers.t)).....(ivy-read."Descr |
| 54a0 | 69 62 65 20 66 75 6e 63 74 69 6f 6e 3a 20 22 20 6f 62 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 | ibe.function:.".obarray......... |
| 54c0 | 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 | ......:predicate.(lambda.(sym).. |
| 54e0 | 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 6f 72 20 28 66 | ..........................(or.(f |
| 5500 | 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | boundp.sym)..................... |
| 5520 | 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 20 73 79 6d 20 27 66 75 6e 63 74 69 6f 6e 2d 64 6f | ...........(get.sym.'function-do |
| 5540 | 63 75 6d 65 6e 74 61 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 | cumentation)))...............:re |
| 5560 | 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 | quire-match.t...............:his |
| 5580 | 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 68 69 | tory.'counsel-describe-symbol-hi |
| 55a0 | 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e | story...............:keymap.coun |
| 55c0 | 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | sel-describe-map...............: |
| 55e0 | 70 72 65 73 65 6c 65 63 74 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 | preselect.(funcall.counsel-descr |
| 5600 | 69 62 65 2d 66 75 6e 63 74 69 6f 6e 2d 70 72 65 73 65 6c 65 63 74 29 0a 20 20 20 20 20 20 20 20 | ibe-function-preselect)......... |
| 5620 | 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 | ......:action.(lambda.(x)....... |
| 5640 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 | ..................(funcall.couns |
| 5660 | 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 28 69 | el-describe-function-function.(i |
| 5680 | 6e 74 65 72 6e 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 | ntern.x)))...............:caller |
| 56a0 | 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 0a | .'counsel-describe-function))).. |
| 56c0 | 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 | (ivy-configure.'counsel-describe |
| 56e0 | 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 3a 70 61 72 65 6e 74 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 | -function...:parent.'counsel-des |
| 5700 | 63 72 69 62 65 2d 73 79 6d 62 6f 6c 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 | cribe-symbol...:display-transfor |
| 5720 | 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 | mer-fn.#'counsel-describe-functi |
| 5740 | 6f 6e 2d 74 72 61 6e 73 66 6f 72 6d 65 72 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 64 | on-transformer)..;;**.`counsel-d |
| 5760 | 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 27 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 | escribe-symbol'.(defcustom.couns |
| 5780 | 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 65 | el-describe-symbol-function.#'de |
| 57a0 | 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c | scribe-symbol..."Function.to.cal |
| 57c0 | 6c 20 74 6f 20 64 65 73 63 72 69 62 65 20 61 20 73 79 6d 62 6f 6c 20 70 61 73 73 65 64 20 61 73 | l.to.describe.a.symbol.passed.as |
| 57e0 | 20 70 61 72 61 6d 65 74 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f 6e 29 0a | .parameter."...:type.'function). |
| 5800 | 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 75 6e 73 65 6c 2d 64 | .;;;###autoload.(defun.counsel-d |
| 5820 | 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 28 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f 20 | escribe-symbol.()..."Forward.to. |
| 5840 | 60 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | `describe-symbol'."...(interacti |
| 5860 | 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 64 65 73 63 72 69 | ve)...(unless.(functionp.'descri |
| 5880 | 62 65 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 69 73 | be-symbol).....(user-error."This |
| 58a0 | 20 63 6f 6d 6d 61 6e 64 20 72 65 71 75 69 72 65 73 20 45 6d 61 63 73 20 32 35 2e 31 20 6f 72 20 | .command.requires.Emacs.25.1.or. |
| 58c0 | 6c 61 74 65 72 22 29 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 68 65 6c 70 2d 6d 6f 64 65 29 0a | later"))...(require.'help-mode). |
| 58e0 | 20 20 28 6c 65 74 20 28 28 65 6e 61 62 6c 65 2d 72 65 63 75 72 73 69 76 65 2d 6d 69 6e 69 62 75 | ..(let.((enable-recursive-minibu |
| 5900 | 66 66 65 72 73 20 74 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 44 65 73 63 72 69 62 | ffers.t)).....(ivy-read."Describ |
| 5920 | 65 20 73 79 6d 62 6f 6c 3a 20 22 20 6f 62 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.symbol:.".obarray............. |
| 5940 | 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 20 20 | ..:predicate.(lambda.(sym)...... |
| 5960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 6f 6d 65 20 28 | ......................(cl-some.( |
| 5980 | 6c 61 6d 62 64 61 20 28 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lambda.(backend)................ |
| 59a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | .......................(funcall. |
| 59c0 | 28 63 61 64 72 20 62 61 63 6b 65 6e 64 29 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (cadr.backend).sym))............ |
| 59e0 | 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 64 65 73 63 72 69 62 | .........................describ |
| 5a00 | 65 2d 73 79 6d 62 6f 6c 2d 62 61 63 6b 65 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-symbol-backends))............. |
| 5a20 | 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:require-match.t.............. |
| 5a40 | 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 | .:history.'counsel-describe-symb |
| 5a60 | 6f 6c 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 | ol-history...............:keymap |
| 5a80 | 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 | .counsel-describe-map........... |
| 5aa0 | 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 69 76 79 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 | ....:preselect.(ivy-thing-at-poi |
| 5ac0 | 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 | nt)...............:action.(lambd |
| 5ae0 | 61 20 28 78 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 28 66 | a.(x).........................(f |
| 5b00 | 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 2d 66 | uncall.counsel-describe-symbol-f |
| 5b20 | 75 6e 63 74 69 6f 6e 20 28 69 6e 74 65 72 6e 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | unction.(intern.x)))............ |
| 5b40 | 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 73 79 6d | ...:caller.'counsel-describe-sym |
| 5b60 | 62 6f 6c 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d | bol)))..(ivy-configure.'counsel- |
| 5b80 | 64 65 73 63 72 69 62 65 2d 73 79 6d 62 6f 6c 0a 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 | describe-symbol...:initial-input |
| 5ba0 | 20 22 5e 22 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a 0a | ."^"...:sort-fn.#'ivy-string<).. |
| 5bc0 | 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 | (ivy-set-actions..'counsel-descr |
| 5be0 | 69 62 65 2d 73 79 6d 62 6f 6c 0a 20 60 28 28 22 49 22 20 2c 23 27 63 6f 75 6e 73 65 6c 2d 69 6e | ibe-symbol..`(("I".,#'counsel-in |
| 5c00 | 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 22 69 6e 66 6f 22 29 0a 20 20 20 28 22 64 22 | fo-lookup-symbol."info")....("d" |
| 5c20 | 20 2c 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 64 65 66 69 6e 69 | .,#'counsel--find-symbol."defini |
| 5c40 | 74 69 6f 6e 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 76 61 72 69 | tion")))..;;**.`counsel-set-vari |
| 5c60 | 61 62 6c 65 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 76 61 72 69 61 62 | able'.(defvar.counsel-set-variab |
| 5c80 | 6c 65 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 53 74 6f 72 65 20 68 69 73 74 6f 72 79 20 | le-history.nil..."Store.history. |
| 5ca0 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 76 61 72 69 61 62 6c 65 27 2e 22 29 0a 0a 28 | for.`counsel-set-variable'.")..( |
| 5cc0 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 73 65 74 71 2d 65 78 70 72 65 73 73 69 | defun.counsel-read-setq-expressi |
| 5ce0 | 6f 6e 20 28 73 79 6d 29 0a 20 20 22 52 65 61 64 20 61 6e 64 20 65 76 61 6c 20 61 20 73 65 74 71 | on.(sym)..."Read.and.eval.a.setq |
| 5d00 | 20 65 78 70 72 65 73 73 69 6f 6e 20 66 6f 72 20 53 59 4d 2e 22 0a 20 20 28 73 65 74 71 20 74 68 | .expression.for.SYM."...(setq.th |
| 5d20 | 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 29 0a 20 20 28 | is-command.'eval-expression)...( |
| 5d40 | 6c 65 74 2a 20 28 28 73 79 6d 2d 76 61 6c 75 65 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 73 | let*.((sym-value.(symbol-value.s |
| 5d60 | 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 69 74 20 28 66 6f 72 6d 61 74 20 22 28 73 65 | ym))..........(init.(format."(se |
| 5d80 | 74 71 20 25 73 25 53 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tq.%s%S)"....................... |
| 5da0 | 20 28 69 66 20 28 6f 72 20 28 63 6f 6e 73 70 20 73 79 6d 2d 76 61 6c 75 65 29 0a 20 20 20 20 20 | .(if.(or.(consp.sym-value)...... |
| 5dc0 | 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 61 6e 64 20 73 | ..........................(and.s |
| 5de0 | 79 6d 2d 76 61 6c 75 65 20 28 73 79 6d 62 6f 6c 70 20 73 79 6d 2d 76 61 6c 75 65 29 29 29 0a 20 | ym-value.(symbolp.sym-value))).. |
| 5e00 | 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 22 27 22 0a 20 20 | .........................."'"... |
| 5e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 20 20 | ......................."")...... |
| 5e40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 79 6d 2d 76 61 6c 75 65 29 29 29 0a 20 | ..................sym-value))).. |
| 5e60 | 20 20 20 3b 3b 20 4d 6f 73 74 20 6f 66 20 74 68 69 73 20 64 75 70 6c 69 63 61 74 65 73 20 60 72 | ...;;.Most.of.this.duplicates.`r |
| 5e80 | 65 61 64 2d 2d 65 78 70 72 65 73 73 69 6f 6e 27 2e 0a 20 20 20 20 28 6d 69 6e 69 62 75 66 66 65 | ead--expression'......(minibuffe |
| 5ea0 | 72 2d 77 69 74 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 | r-with-setup-hook.........(lambd |
| 5ec0 | 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 | a.()...........(set-syntax-table |
| 5ee0 | 20 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 29 0a 20 | .emacs-lisp-mode-syntax-table).. |
| 5f00 | 20 20 20 20 20 20 20 20 20 3b 3b 20 41 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 35 2e 31 2e | .........;;.Added.in.Emacs.25.1. |
| 5f20 | 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 65 6c 69 73 70 | ...........(when.(fboundp.'elisp |
| 5f40 | 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | -completion-at-point)........... |
| 5f60 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 | ..(add-hook.'completion-at-point |
| 5f80 | 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -functions...................... |
| 5fa0 | 20 23 27 65 6c 69 73 70 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 74 2d 70 6f 69 6e 74 20 6e 69 6c | .#'elisp-completion-at-point.nil |
| 5fc0 | 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 45 6d 61 63 73 20 32 37 2b 20 61 6c 72 65 | .t))...........;;.Emacs.27+.alre |
| 5fe0 | 61 64 79 20 73 65 74 73 20 75 70 20 45 6c 44 6f 63 20 69 6e 20 74 68 69 73 20 68 6f 6f 6b 2e 20 | ady.sets.up.ElDoc.in.this.hook.. |
| 6000 | 20 45 6d 61 63 73 20 32 35 20 61 64 64 65 64 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 65 6c | .Emacs.25.added...........;;.`el |
| 6020 | 69 73 70 2d 65 6c 64 6f 63 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e | isp-eldoc-documentation-function |
| 6040 | 27 20 61 6e 64 20 45 6d 61 63 73 20 32 38 20 6f 62 73 6f 6c 65 74 65 73 20 69 74 2e 0a 20 20 20 | '.and.Emacs.28.obsoletes.it..... |
| 6060 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3c 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 | .......(when.(<.emacs-major-vers |
| 6080 | 69 6f 6e 20 32 37 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e | ion.27).............(when.(fboun |
| 60a0 | 64 70 20 27 65 6c 69 73 70 2d 65 6c 64 6f 63 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 | dp.'elisp-eldoc-documentation-fu |
| 60c0 | 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 66 75 6e 63 74 | nction)...............(add-funct |
| 60e0 | 69 6f 6e 20 3a 62 65 66 6f 72 65 2d 75 6e 74 69 6c 20 28 6c 6f 63 61 6c 20 27 65 6c 64 6f 63 2d | ion.:before-until.(local.'eldoc- |
| 6100 | 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | documentation-function)......... |
| 6120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 65 6c 69 73 70 2d 65 6c 64 6f | ....................#'elisp-eldo |
| 6140 | 63 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 | c-documentation-function))...... |
| 6160 | 20 20 20 20 20 20 20 28 65 6c 64 6f 63 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | .......(eldoc-mode))...........( |
| 6180 | 72 75 6e 2d 68 6f 6f 6b 73 20 27 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 2d 6d 69 6e 69 62 | run-hooks.'eval-expression-minib |
| 61a0 | 75 66 66 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 | uffer-setup-hook)...........;;.T |
| 61c0 | 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 69 76 65 72 67 65 73 20 66 72 6f 6d 20 60 72 65 61 64 | he.following.diverges.from.`read |
| 61e0 | 2d 2d 65 78 70 72 65 73 73 69 6f 6e 27 2e 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | --expression'............(goto-c |
| 6200 | 68 61 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 70 72 6f 6d 70 74 2d 65 6e 64 29 29 0a 20 20 20 | har.(minibuffer-prompt-end)).... |
| 6220 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 68 61 72 20 36 29 0a 20 20 20 20 20 20 20 20 | .......(forward-char.6)......... |
| 6240 | 20 20 28 69 6e 73 65 72 74 20 28 66 6f 72 6d 61 74 20 22 25 53 20 22 20 73 79 6d 29 29 29 0a 20 | ..(insert.(format."%S.".sym))).. |
| 6260 | 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 22 45 76 61 6c | .....(read-from-minibuffer."Eval |
| 6280 | 3a 20 22 20 69 6e 69 74 20 72 65 61 64 2d 65 78 70 72 65 73 73 69 6f 6e 2d 6d 61 70 20 74 0a 20 | :.".init.read-expression-map.t.. |
| 62a0 | 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 27 72 65 61 64 | ...........................'read |
| 62c0 | 2d 65 78 70 72 65 73 73 69 6f 6e 2d 68 69 73 74 6f 72 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | -expression-history))))..(defun. |
| 62e0 | 63 6f 75 6e 73 65 6c 2d 2d 73 65 74 71 2d 64 6f 63 6f 6e 73 74 20 28 78 29 0a 20 20 22 52 65 74 | counsel--setq-doconst.(x)..."Ret |
| 6300 | 75 72 6e 20 61 20 63 6f 6e 73 20 6f 66 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 6e 64 20 76 61 | urn.a.cons.of.description.and.va |
| 6320 | 6c 75 65 20 66 6f 72 20 58 2e 0a 58 20 69 73 20 61 6e 20 69 74 65 6d 20 6f 66 20 61 20 72 61 64 | lue.for.X..X.is.an.item.of.a.rad |
| 6340 | 69 6f 2d 20 6f 72 20 63 68 6f 69 63 65 2d 74 79 70 65 20 64 65 66 63 75 73 74 6f 6d 2e 22 0a 20 | io-.or.choice-type.defcustom.".. |
| 6360 | 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 78 29 0a 20 20 20 20 28 6c 65 74 20 28 28 76 20 28 63 | .(when.(listp.x).....(let.((v.(c |
| 6380 | 61 72 2d 73 61 66 65 20 28 6c 61 73 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 61 | ar-safe.(last.x)))...........(ta |
| 63a0 | 67 20 28 61 6e 64 20 28 65 71 20 28 63 61 72 20 78 29 20 27 63 6f 6e 73 74 29 0a 20 20 20 20 20 | g.(and.(eq.(car.x).'const)...... |
| 63c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6c 69 73 74 2d 67 65 74 20 28 63 64 72 20 78 | ...............(plist-get.(cdr.x |
| 63e0 | 29 20 3a 74 61 67 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6f 72 20 | ).:tag)))).......(when.(and.(or. |
| 6400 | 76 20 74 61 67 29 20 28 6e 6f 74 20 28 65 71 20 76 20 27 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 | v.tag).(not.(eq.v.'function))).. |
| 6420 | 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 | .......(cons..........(concat... |
| 6440 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 74 61 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ........(when.tag.............(c |
| 6460 | 6f 6e 63 61 74 20 74 61 67 20 22 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | oncat.tag.":."))...........(if.( |
| 6480 | 73 74 72 69 6e 67 70 20 76 29 20 76 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 76 29 | stringp.v).v.(prin1-to-string.v) |
| 64a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 70 20 76 29 0a 20 20 20 20 | ))..........(if.(symbolp.v)..... |
| 64c0 | 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 71 75 6f 74 65 20 76 29 0a 20 20 20 20 20 20 20 | .........(list.'quote.v)........ |
| 64e0 | 20 20 20 20 76 29 29 29 29 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6c | ....v))))))..(declare-function.l |
| 6500 | 76 2d 6d 65 73 73 61 67 65 20 22 65 78 74 3a 6c 76 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e | v-message."ext:lv").(declare-fun |
| 6520 | 63 74 69 6f 6e 20 6c 76 2d 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 22 65 78 74 3a 6c 76 22 29 | ction.lv-delete-window."ext:lv") |
| 6540 | 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 75 73 74 6f 6d 2d 76 61 72 69 61 62 | .(declare-function.custom-variab |
| 6560 | 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 63 75 73 2d 65 64 69 74 22 29 0a 0a 28 64 | le-documentation."cus-edit")..(d |
| 6580 | 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 | efface.counsel-variable-document |
| 65a0 | 61 74 69 6f 6e 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d | ation...'((t.:inherit.font-lock- |
| 65c0 | 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c | comment-face))..."Face.for.displ |
| 65e0 | 61 79 69 6e 67 20 4c 69 73 70 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 3a 67 72 | aying.Lisp.documentation."...:gr |
| 6600 | 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a | oup.'ivy-faces)..;;;###autoload. |
| 6620 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 76 61 72 69 61 62 6c 65 20 28 73 79 6d | (defun.counsel-set-variable.(sym |
| 6640 | 29 0a 20 20 22 53 65 74 20 61 20 76 61 72 69 61 62 6c 65 20 53 59 4d 2c 20 77 69 74 68 20 63 6f | )..."Set.a.variable.SYM,.with.co |
| 6660 | 6d 70 6c 65 74 69 6f 6e 2e 0a 0a 57 68 65 6e 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 76 61 72 | mpletion...When.the.selected.var |
| 6680 | 69 61 62 6c 65 20 69 73 20 61 20 60 64 65 66 63 75 73 74 6f 6d 27 20 77 69 74 68 20 74 68 65 20 | iable.is.a.`defcustom'.with.the. |
| 66a0 | 74 79 70 65 20 62 6f 6f 6c 65 61 6e 0a 6f 72 20 72 61 64 69 6f 2c 20 6f 66 66 65 72 20 63 6f 6d | type.boolean.or.radio,.offer.com |
| 66c0 | 70 6c 65 74 69 6f 6e 20 6f 66 20 61 6c 6c 20 70 6f 73 73 69 62 6c 65 20 76 61 6c 75 65 73 2e 0a | pletion.of.all.possible.values.. |
| 66e0 | 0a 4f 74 68 65 72 77 69 73 65 2c 20 6f 66 66 65 72 20 61 20 76 61 72 69 61 6e 74 20 6f 66 20 60 | .Otherwise,.offer.a.variant.of.` |
| 6700 | 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 27 2c 20 77 69 74 68 20 74 68 65 20 69 6e 69 74 69 | eval-expression',.with.the.initi |
| 6720 | 61 6c 0a 69 6e 70 75 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 63 68 | al.input.corresponding.to.the.ch |
| 6740 | 6f 73 65 6e 20 76 61 72 69 61 62 6c 65 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 | osen.variable...With.a.prefix.ar |
| 6760 | 67 2c 20 72 65 73 74 72 69 63 74 20 6c 69 73 74 20 74 6f 20 76 61 72 69 61 62 6c 65 73 20 64 65 | g,.restrict.list.to.variables.de |
| 6780 | 66 69 6e 65 64 20 75 73 69 6e 67 0a 60 64 65 66 63 75 73 74 6f 6d 27 2e 22 0a 20 20 28 69 6e 74 | fined.using.`defcustom'."...(int |
| 67a0 | 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 69 6e 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 | eractive.(list.(intern.......... |
| 67c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 65 74 20 76 61 72 69 | .............(ivy-read."Set.vari |
| 67e0 | 61 62 6c 65 3a 20 22 20 6f 62 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | able:.".obarray................. |
| 6800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 69 66 20 63 | ................:predicate.(if.c |
| 6820 | 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | urrent-prefix-arg............... |
| 6840 | 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 | ................................ |
| 6860 | 20 23 27 63 75 73 74 6f 6d 2d 76 61 72 69 61 62 6c 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 | .#'custom-variable-p............ |
| 6880 | 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 | ................................ |
| 68a0 | 20 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 76 61 72 69 61 62 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 | ..#'counsel--variable-p)........ |
| 68c0 | 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 3a 68 69 73 74 6f 72 | .........................:histor |
| 68e0 | 79 20 27 63 6f 75 6e 73 65 6c 2d 73 65 74 2d 76 61 72 69 61 62 6c 65 2d 68 69 73 74 6f 72 79 0a | y.'counsel-set-variable-history. |
| 6900 | 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 | ................................ |
| 6920 | 3a 70 72 65 73 65 6c 65 63 74 20 28 69 76 79 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 29 | :preselect.(ivy-thing-at-point)) |
| 6940 | 29 29 29 0a 20 20 28 6c 65 74 20 28 28 64 6f 63 20 28 61 6e 64 20 28 72 65 71 75 69 72 65 20 27 | )))...(let.((doc.(and.(require.' |
| 6960 | 63 75 73 2d 65 64 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 | cus-edit)...................(req |
| 6980 | 75 69 72 65 20 27 6c 76 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uire.'lv.nil.t)................. |
| 69a0 | 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 22 6e 69 6c 22 20 28 63 75 73 74 6f 6d 2d 76 61 | ..(not.(string=."nil".(custom-va |
| 69c0 | 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 29 29 29 0a 20 20 20 20 | riable-documentation.sym)))..... |
| 69e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 75 73 74 6f | ..............(propertize.(custo |
| 6a00 | 6d 2d 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 73 79 6d 29 0a 20 20 | m-variable-documentation.sym)... |
| 6a20 | 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 27 66 61 63 | ............................'fac |
| 6a40 | 65 20 27 63 6f 75 6e 73 65 6c 2d 76 61 72 69 61 62 6c 65 2d 64 6f 63 75 6d 65 6e 74 61 74 69 6f | e.'counsel-variable-documentatio |
| 6a60 | 6e 29 29 29 0a 20 20 20 20 20 20 20 20 73 79 6d 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 63 61 | n))).........sym-type.........ca |
| 6a80 | 6e 64 73 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 | nds).....(unwind-protect........ |
| 6aa0 | 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 6f 63 0a 20 20 | ..(progn............(when.doc... |
| 6ac0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 76 2d 6d 65 73 73 61 67 65 20 28 69 76 79 2d 2d 71 75 6f | ...........(lv-message.(ivy--quo |
| 6ae0 | 74 65 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 64 6f 63 29 29 29 0a 20 20 20 20 20 20 20 20 | te-format-string.doc)))......... |
| 6b00 | 20 20 20 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 | ...(if.(and.(boundp.sym)........ |
| 6b20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 79 6d 2d 74 79 70 65 20 28 67 65 74 | .............(setq.sym-type.(get |
| 6b40 | 20 73 79 6d 20 27 63 75 73 74 6f 6d 2d 74 79 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .sym.'custom-type))............. |
| 6b60 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(cond................... |
| 6b80 | 20 20 20 20 28 28 61 6e 64 20 28 63 6f 6e 73 70 20 73 79 6d 2d 74 79 70 65 29 0a 20 20 20 20 20 | ....((and.(consp.sym-type)...... |
| 6ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 28 63 61 | .......................(memq.(ca |
| 6bc0 | 72 20 73 79 6d 2d 74 79 70 65 29 20 27 28 63 68 6f 69 63 65 20 72 61 64 69 6f 29 29 29 0a 20 20 | r.sym-type).'(choice.radio)))... |
| 6be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 73 | .....................(setq.cands |
| 6c00 | 20 28 64 65 6c 71 20 6e 69 6c 20 28 6d 61 70 63 61 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 73 65 | .(delq.nil.(mapcar.#'counsel--se |
| 6c20 | 74 71 2d 64 6f 63 6f 6e 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tq-doconst...................... |
| 6c40 | 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 | ................................ |
| 6c60 | 28 63 64 72 20 73 79 6d 2d 74 79 70 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | (cdr.sym-type))))).............. |
| 6c80 | 20 20 20 20 20 20 20 20 20 28 28 65 71 20 73 79 6d 2d 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 | .........((eq.sym-type.'boolean) |
| 6ca0 | 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 73 65 74 71 20 63 61 | ........................(setq.ca |
| 6cc0 | 6e 64 73 20 27 28 28 22 6e 69 6c 22 20 2e 20 6e 69 6c 29 20 28 22 74 22 20 2e 20 74 29 29 29 29 | nds.'(("nil"...nil).("t"...t)))) |
| 6ce0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 6e 69 6c 29 29 29 | .......................(t.nil))) |
| 6d00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 79 6d 2d 76 61 6c 20 | ................(let*.((sym-val. |
| 6d20 | 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (symbol-value.sym))............. |
| 6d40 | 20 20 20 20 20 20 20 20 20 20 28 72 65 73 20 28 69 76 79 2d 72 65 61 64 20 28 66 6f 72 6d 61 74 | ..........(res.(ivy-read.(format |
| 6d60 | 20 22 53 65 74 20 28 25 53 20 3c 25 73 3e 29 3a 20 22 20 73 79 6d 20 73 79 6d 2d 76 61 6c 29 0a | ."Set.(%S.<%s>):.".sym.sym-val). |
| 6d80 | 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 | ................................ |
| 6da0 | 20 20 20 20 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....cands...................... |
| 6dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 70 72 69 6e | ................:preselect.(prin |
| 6de0 | 31 2d 74 6f 2d 73 74 72 69 6e 67 20 73 79 6d 2d 76 61 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 | 1-to-string.sym-val))))......... |
| 6e00 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(when.res.............. |
| 6e20 | 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(setq.res................. |
| 6e40 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 73 73 6f 63 20 72 65 73 20 63 61 6e 64 73 29 0a 20 | .........(if.(assoc.res.cands).. |
| 6e60 | 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 63 64 72 | ............................(cdr |
| 6e80 | 20 28 61 73 73 6f 63 20 72 65 73 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(assoc.res.cands))............. |
| 6ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 72 65 73 29 29 29 0a 20 20 20 20 | ...............(read.res)))..... |
| 6ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 6e 65 77 20 28 66 6f 72 6d 61 74 | ...............(kill-new.(format |
| 6ee0 | 20 22 28 73 65 74 71 20 25 53 20 25 53 29 22 20 73 79 6d 20 72 65 73 29 29 0a 20 20 20 20 20 20 | ."(setq.%S.%S)".sym.res))....... |
| 6f00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 20 73 79 6d 20 28 69 66 20 28 61 6e 64 20 28 | .............(set.sym.(if.(and.( |
| 6f20 | 6c 69 73 74 70 20 72 65 73 29 20 28 65 71 20 28 63 61 72 20 72 65 73 29 20 27 71 75 6f 74 65 29 | listp.res).(eq.(car.res).'quote) |
| 6f40 | 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 | )............................... |
| 6f60 | 20 20 28 63 61 64 72 20 72 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(cadr.res).................... |
| 6f80 | 20 20 20 20 20 20 20 20 20 20 20 72 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........res)))).............. |
| 6fa0 | 28 75 6e 6c 65 73 73 20 28 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (unless.(boundp.sym)............ |
| 6fc0 | 20 20 20 20 28 73 65 74 20 73 79 6d 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(set.sym.nil)).............. |
| 6fe0 | 28 6c 65 74 20 28 28 65 78 70 72 20 28 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 73 65 74 71 2d 65 | (let.((expr.(counsel-read-setq-e |
| 7000 | 78 70 72 65 73 73 69 6f 6e 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xpression.sym)))................ |
| 7020 | 28 6b 69 6c 6c 2d 6e 65 77 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 65 78 70 72 29 29 0a 20 20 | (kill-new.(format."%S".expr))... |
| 7040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 2d 65 78 70 72 65 73 73 69 6f 6e 20 65 78 | .............(eval-expression.ex |
| 7060 | 70 72 29 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 6f 63 0a 20 20 20 20 20 20 20 20 28 | pr)))).......(when.doc.........( |
| 7080 | 6c 76 2d 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 | lv-delete-window)))))..;;**.`cou |
| 70a0 | 6e 73 65 6c 2d 61 70 72 6f 70 6f 73 27 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 | nsel-apropos'.;;;###autoload.(de |
| 70c0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 70 72 6f 70 6f 73 20 28 29 0a 20 20 22 53 68 6f 77 20 61 | fun.counsel-apropos.()..."Show.a |
| 70e0 | 6c 6c 20 6d 61 74 63 68 69 6e 67 20 73 79 6d 62 6f 6c 73 2e 0a 53 65 65 20 60 61 70 72 6f 70 6f | ll.matching.symbols..See.`apropo |
| 7100 | 73 27 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 6e 20 77 68 | s'.for.further.information.on.wh |
| 7120 | 61 74 20 69 73 20 63 6f 6e 73 69 64 65 72 65 64 0a 61 20 73 79 6d 62 6f 6c 20 61 6e 64 20 68 6f | at.is.considered.a.symbol.and.ho |
| 7140 | 77 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 20 74 68 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 | w.to.search.for.them."...(intera |
| 7160 | 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 65 61 72 63 68 20 66 6f 72 20 73 | ctive)...(ivy-read."Search.for.s |
| 7180 | 79 6d 62 6f 6c 20 28 77 6f 72 64 20 6c 69 73 74 20 6f 72 20 72 65 67 65 78 70 29 3a 20 22 20 6f | ymbol.(word.list.or.regexp):.".o |
| 71a0 | 62 61 72 72 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 6c | barray.............:predicate.(l |
| 71c0 | 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ambda.(sym)..................... |
| 71e0 | 20 20 20 20 20 28 6f 72 20 28 66 62 6f 75 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 | .....(or.(fboundp.sym).......... |
| 7200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 73 79 6d 29 | ....................(boundp.sym) |
| 7220 | 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 28 66 | ..............................(f |
| 7240 | 61 63 65 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | acep.sym)....................... |
| 7260 | 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 70 6c 69 73 74 20 73 79 6d 29 29 29 0a 20 20 20 20 | .......(symbol-plist.sym)))..... |
| 7280 | 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 61 70 72 6f 70 6f | ........:history.'counsel-apropo |
| 72a0 | 73 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 | s-history.............:preselect |
| 72c0 | 20 28 69 76 79 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 | .(ivy-thing-at-point)........... |
| 72e0 | 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 70 61 74 74 65 72 6e 29 0a 20 20 20 20 | ..:action.(lambda.(pattern)..... |
| 7300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 3d | ..................(when.(string= |
| 7320 | 20 70 61 74 74 65 72 6e 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .pattern."").................... |
| 7340 | 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 50 6c 65 61 73 65 20 73 70 65 63 69 66 79 | .....(user-error."Please.specify |
| 7360 | 20 61 20 70 61 74 74 65 72 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .a.pattern"))................... |
| 7380 | 20 20 20 20 3b 3b 20 49 66 20 74 68 65 20 75 73 65 72 20 73 65 6c 65 63 74 65 64 20 61 20 63 61 | ....;;.If.the.user.selected.a.ca |
| 73a0 | 6e 64 69 64 61 74 65 20 66 6f 72 6d 20 74 68 65 20 6c 69 73 74 2c 20 77 65 20 75 73 65 0a 20 20 | ndidate.form.the.list,.we.use... |
| 73c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 20 70 61 74 74 65 72 6e | ....................;;.a.pattern |
| 73e0 | 20 77 68 69 63 68 20 6d 61 74 63 68 65 73 20 6f 6e 6c 79 20 74 68 65 20 73 65 6c 65 63 74 65 64 | .which.matches.only.the.selected |
| 7400 | 20 73 79 6d 62 6f 6c 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .symbol........................( |
| 7420 | 69 66 20 28 6d 65 6d 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 28 69 76 79 2d 69 6d 6d 65 | if.(memq.this-command.'(ivy-imme |
| 7440 | 64 69 61 74 65 2d 64 6f 6e 65 20 69 76 79 2d 61 6c 74 2d 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 | diate-done.ivy-alt-done))....... |
| 7460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 67 65 78 70 20 70 61 | ....................;;.Regexp.pa |
| 7480 | 74 74 65 72 6e 20 61 72 65 20 70 61 73 73 65 64 20 76 65 72 62 61 74 69 6d 2c 20 6f 74 68 65 72 | ttern.are.passed.verbatim,.other |
| 74a0 | 20 69 6e 70 75 74 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .input.is....................... |
| 74c0 | 20 20 20 20 3b 3b 20 73 70 6c 69 74 20 69 6e 74 6f 20 77 6f 72 64 73 2e 0a 20 20 20 20 20 20 20 | ....;;.split.into.words......... |
| 74e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 | ...................(if.(string=. |
| 7500 | 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 70 61 74 74 65 72 6e 29 20 70 61 74 74 65 72 6e 29 0a | (regexp-quote.pattern).pattern). |
| 7520 | 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 61 | ..............................(a |
| 7540 | 70 72 6f 70 6f 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 70 61 74 74 65 72 6e 20 22 5b 20 | propos.(split-string.pattern."[. |
| 7560 | 5c 74 5d 2b 22 20 74 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 | \t]+".t))....................... |
| 7580 | 20 20 20 20 20 20 28 61 70 72 6f 70 6f 73 20 70 61 74 74 65 72 6e 29 29 0a 20 20 20 20 20 20 20 | ......(apropos.pattern))........ |
| 75a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 72 6f 70 6f 73 20 28 63 6f 6e 63 61 | .................(apropos.(conca |
| 75c0 | 74 20 22 5c 5c 60 22 20 70 61 74 74 65 72 6e 20 22 5c 5c 27 22 29 29 29 29 0a 20 20 20 20 20 20 | t."\\`".pattern."\\'"))))....... |
| 75e0 | 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 61 70 72 6f 70 6f 73 29 29 | ......:caller.'counsel-apropos)) |
| 7600 | 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 61 70 72 6f 70 6f | ..(ivy-configure.'counsel-apropo |
| 7620 | 73 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a 0a 3b 3b 2a | s...:sort-fn.#'ivy-string<)..;;* |
| 7640 | 2a 20 60 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 27 0a 28 | *.`counsel-info-lookup-symbol'.( |
| 7660 | 64 65 66 76 61 72 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 6d 6f 64 65 29 0a 28 64 65 63 6c 61 72 | defvar.info-lookup-mode).(declar |
| 7680 | 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 67 75 65 73 73 2d 64 65 66 | e-function.info-lookup-guess-def |
| 76a0 | 61 75 6c 74 20 22 69 6e 66 6f 2d 6c 6f 6f 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | ault."info-look").(declare-funct |
| 76c0 | 69 6f 6e 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 22 69 6e | ion.info-lookup->completions."in |
| 76e0 | 66 6f 2d 6c 6f 6f 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 66 6f | fo-look").(declare-function.info |
| 7700 | 2d 6c 6f 6f 6b 75 70 2d 3e 6d 6f 64 65 2d 76 61 6c 75 65 20 22 69 6e 66 6f 2d 6c 6f 6f 6b 22 29 | -lookup->mode-value."info-look") |
| 7720 | 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 | .(declare-function.info-lookup-s |
| 7740 | 65 6c 65 63 74 2d 6d 6f 64 65 20 22 69 6e 66 6f 2d 6c 6f 6f 6b 22 29 0a 28 64 65 63 6c 61 72 65 | elect-mode."info-look").(declare |
| 7760 | 2d 66 75 6e 63 74 69 6f 6e 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 63 68 61 6e 67 65 2d 6d 6f 64 | -function.info-lookup-change-mod |
| 7780 | 65 20 22 69 6e 66 6f 2d 6c 6f 6f 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e | e."info-look").(declare-function |
| 77a0 | 20 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 20 22 69 6e 66 6f 2d 6c 6f 6f 6b 22 29 0a 0a 3b 3b 3b 23 23 | .info-lookup."info-look")..;;;## |
| 77c0 | 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f | #autoload.(defun.counsel-info-lo |
| 77e0 | 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 6d 6f | okup-symbol.(symbol.&optional.mo |
| 7800 | 64 65 29 0a 20 20 22 46 6f 72 77 61 72 64 20 53 59 4d 42 4f 4c 20 74 6f 20 60 69 6e 66 6f 2d 6c | de)..."Forward.SYMBOL.to.`info-l |
| 7820 | 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 27 20 77 69 74 68 20 69 76 79 20 63 6f 6d 70 6c 65 74 69 6f | ookup-symbol'.with.ivy.completio |
| 7840 | 6e 2e 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 20 4d 4f 44 45 20 61 20 71 75 65 72 79 20 | n..With.prefix.arg.MODE.a.query. |
| 7860 | 66 6f 72 20 74 68 65 20 73 79 6d 62 6f 6c 20 68 65 6c 70 20 6d 6f 64 65 20 69 73 20 6f 66 66 65 | for.the.symbol.help.mode.is.offe |
| 7880 | 72 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 70 72 6f 67 6e 0a 20 | red."...(interactive....(progn.. |
| 78a0 | 20 20 20 20 28 72 65 71 75 69 72 65 20 27 69 6e 66 6f 2d 6c 6f 6f 6b 29 0a 20 20 20 20 20 3b 3b | ....(require.'info-look)......;; |
| 78c0 | 20 43 6f 75 72 74 65 73 79 20 6f 66 20 60 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 69 6e 74 65 72 61 | .Courtesy.of.`info-lookup-intera |
| 78e0 | 63 74 69 76 65 2d 61 72 67 75 6d 65 6e 74 73 27 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 74 6f | ctive-arguments'......(let*.((to |
| 7900 | 70 69 63 20 27 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6f 64 65 20 28 | pic.'symbol).............(mode.( |
| 7920 | 63 6f 6e 64 20 28 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 | cond.(current-prefix-arg........ |
| 7940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 63 | ..................(info-lookup-c |
| 7960 | 68 61 6e 67 65 2d 6d 6f 64 65 20 74 6f 70 69 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | hange-mode.topic)).............. |
| 7980 | 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 6d 6f 64 65 2d 76 | ...........((info-lookup->mode-v |
| 79a0 | 61 6c 75 65 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 74 | alue...........................t |
| 79c0 | 6f 70 69 63 20 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 65 6c 65 63 74 2d 6d 6f 64 65 29 29 0a | opic.(info-lookup-select-mode)). |
| 79e0 | 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 69 6e 66 6f 2d 6c 6f | .........................info-lo |
| 7a00 | 6f 6b 75 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | okup-mode)...................... |
| 7a20 | 20 20 20 28 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 63 68 61 6e 67 65 2d 6d 6f 64 65 20 74 6f 70 | ...((info-lookup-change-mode.top |
| 7a40 | 69 63 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 61 62 6c 65 2d 72 65 63 75 72 | ic)))).............(enable-recur |
| 7a60 | 73 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 73 20 74 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 | sive-minibuffers.t))........(lis |
| 7a80 | 74 20 28 69 76 79 2d 72 65 61 64 20 22 44 65 73 63 72 69 62 65 20 73 79 6d 62 6f 6c 3a 20 22 20 | t.(ivy-read."Describe.symbol:.". |
| 7aa0 | 28 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 3e 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 74 6f 70 69 63 20 | (info-lookup->completions.topic. |
| 7ac0 | 6d 6f 64 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 3a 68 69 | mode)........................:hi |
| 7ae0 | 73 74 6f 72 79 20 27 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 | story.'info-lookup-history...... |
| 7b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 69 6e | ..................:preselect.(in |
| 7b20 | 66 6f 2d 6c 6f 6f 6b 75 70 2d 67 75 65 73 73 2d 64 65 66 61 75 6c 74 20 74 6f 70 69 63 20 6d 6f | fo-lookup-guess-default.topic.mo |
| 7b40 | 64 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 3a 63 61 6c 6c | de)........................:call |
| 7b60 | 65 72 20 27 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 29 0a | er.'counsel-info-lookup-symbol). |
| 7b80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 29 29 29 29 0a 20 20 28 69 6e 66 6f 2d 6c 6f | .............mode))))...(info-lo |
| 7ba0 | 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 73 79 6d 62 6f 6c 20 6d 6f 64 65 29 29 0a 0a 28 69 76 79 2d | okup-symbol.symbol.mode))..(ivy- |
| 7bc0 | 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 | configure.'counsel-info-lookup-s |
| 7be0 | 79 6d 62 6f 6c 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a | ymbol...:sort-fn.#'ivy-string<). |
| 7c00 | 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d 78 27 0a 28 64 65 66 66 61 63 65 20 63 6f 75 | .;;**.`counsel-M-x'.(defface.cou |
| 7c20 | 6e 73 65 6c 2d 6b 65 79 2d 62 69 6e 64 69 6e 67 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 | nsel-key-binding...'((t.:inherit |
| 7c40 | 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 2d 66 61 63 65 29 29 0a 20 20 22 46 61 63 | .font-lock-keyword-face))..."Fac |
| 7c60 | 65 20 75 73 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d 78 27 20 66 6f 72 20 6b 65 79 20 | e.used.by.`counsel-M-x'.for.key. |
| 7c80 | 62 69 6e 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a | bindings."...:group.'ivy-faces). |
| 7ca0 | 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 61 63 74 69 76 65 2d 6d 6f 64 65 0a 20 20 | .(defface.counsel-active-mode... |
| 7cc0 | 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d | '((t.:inherit.font-lock-builtin- |
| 7ce0 | 66 61 63 65 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d | face))..."Face.used.by.`counsel- |
| 7d00 | 4d 2d 78 27 20 66 6f 72 20 61 63 74 69 76 61 74 65 64 20 6d 6f 64 65 73 2e 22 0a 20 20 3a 67 72 | M-x'.for.activated.modes."...:gr |
| 7d20 | 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e | oup.'ivy-faces)..(defcustom.coun |
| 7d40 | 73 65 6c 2d 61 6c 69 61 73 2d 65 78 70 61 6e 64 20 74 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e | sel-alias-expand.t..."When.non-n |
| 7d60 | 69 6c 2c 20 73 68 6f 77 20 74 68 65 20 65 78 70 61 6e 73 69 6f 6e 20 6f 66 20 61 6c 69 61 73 65 | il,.show.the.expansion.of.aliase |
| 7d80 | 73 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d 78 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f | s.in.`counsel-M-x'."...:type.'bo |
| 7da0 | 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | olean...:group.'ivy)..(defun.cou |
| 7dc0 | 6e 73 65 6c 2d 4d 2d 78 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 28 63 6d 64 29 0a 20 20 22 52 65 | nsel-M-x-transformer.(cmd)..."Re |
| 7de0 | 74 75 72 6e 20 43 4d 44 20 61 6e 6e 6f 74 61 74 65 64 20 77 69 74 68 20 69 74 73 20 61 63 74 69 | turn.CMD.annotated.with.its.acti |
| 7e00 | 76 65 20 6b 65 79 20 62 69 6e 64 69 6e 67 2c 20 69 66 20 61 6e 79 2e 22 0a 20 20 28 6c 65 74 2a | ve.key.binding,.if.any."...(let* |
| 7e20 | 20 28 28 73 79 6d 20 28 69 6e 74 65 72 6e 20 63 6d 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 | .((sym.(intern.cmd))..........(a |
| 7e40 | 6c 69 61 73 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 73 79 6d 29 29 0a 20 20 20 20 | lias.(symbol-function.sym))..... |
| 7e60 | 20 20 20 20 20 28 6b 65 79 20 28 77 68 65 72 65 2d 69 73 2d 69 6e 74 65 72 6e 61 6c 20 73 79 6d | .....(key.(where-is-internal.sym |
| 7e80 | 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 65 71 20 73 79 6d 20 | .nil.t))).....(when.(or.(eq.sym. |
| 7ea0 | 6d 61 6a 6f 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 0a 20 | major-mode)...............(and.. |
| 7ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 73 79 6d 20 6d 69 6e 6f 72 2d 6d 6f | ..............(memq.sym.minor-mo |
| 7ee0 | 64 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 | de-list)................(boundp. |
| 7f00 | 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 | sym)................(buffer-loca |
| 7f20 | 6c 2d 76 61 6c 75 65 20 73 79 6d 20 28 69 76 79 2d 73 74 61 74 65 2d 62 75 66 66 65 72 20 69 76 | l-value.sym.(ivy-state-buffer.iv |
| 7f40 | 79 2d 6c 61 73 74 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6d 64 20 28 70 72 6f 70 | y-last)))).......(setq.cmd.(prop |
| 7f60 | 65 72 74 69 7a 65 20 63 6d 64 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 61 63 74 69 76 65 | ertize.cmd.'face.'counsel-active |
| 7f80 | 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 63 6d 64 0a 20 20 20 20 20 20 20 | -mode))).....(concat.cmd........ |
| 7fa0 | 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 61 6c 69 61 73 29 20 | .....(when.(and.(symbolp.alias). |
| 7fc0 | 63 6f 75 6e 73 65 6c 2d 61 6c 69 61 73 2d 65 78 70 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 | counsel-alias-expand)........... |
| 7fe0 | 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 28 25 73 29 22 20 61 6c 69 61 73 29 29 0a 20 20 20 20 | ....(format.".(%s)".alias))..... |
| 8000 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 6b 65 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........(when.key............... |
| 8020 | 3b 3b 20 50 72 65 66 65 72 20 60 3c 66 32 3e 27 20 6f 76 65 72 20 60 43 2d 78 20 36 27 20 77 68 | ;;.Prefer.`<f2>'.over.`C-x.6'.wh |
| 8040 | 65 72 65 20 61 70 70 6c 69 63 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 | ere.applicable...............(le |
| 8060 | 74 20 28 28 69 20 28 63 6c 2d 73 65 61 72 63 68 20 5b 3f 5c 43 2d 78 20 3f 36 5d 20 6b 65 79 29 | t.((i.(cl-search.[?\C-x.?6].key) |
| 8080 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 69 0a 20 20 20 20 20 | )).................(when.i...... |
| 80a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 75 70 20 28 76 63 6f 6e 63 61 74 | .............(let.((dup.(vconcat |
| 80c0 | 20 28 73 75 62 73 74 72 69 6e 67 20 6b 65 79 20 30 20 69 29 20 5b 66 32 5d 20 28 73 75 62 73 74 | .(substring.key.0.i).[f2].(subst |
| 80e0 | 72 69 6e 67 20 6b 65 79 20 28 2b 20 69 20 32 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ring.key.(+.i.2))))............. |
| 8100 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 20 28 63 75 72 72 65 6e 74 2d 67 6c 6f 62 61 6c | ............(map.(current-global |
| 8120 | 2d 6d 61 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | -map))).....................(whe |
| 8140 | 6e 20 28 65 71 75 61 6c 20 28 6c 6f 6f 6b 75 70 2d 6b 65 79 20 6d 61 70 20 6b 65 79 29 0a 20 20 | n.(equal.(lookup-key.map.key)... |
| 8160 | 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 | ...............................( |
| 8180 | 6c 6f 6f 6b 75 70 2d 6b 65 79 20 6d 61 70 20 64 75 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | lookup-key.map.dup))............ |
| 81a0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6b 65 79 20 64 75 70 29 29 29 29 29 0a 20 20 | ...........(setq.key.dup)))))... |
| 81c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6b 65 79 20 28 6b 65 79 2d 64 65 73 63 72 | ............(setq.key.(key-descr |
| 81e0 | 69 70 74 69 6f 6e 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d | iption.key))...............(put- |
| 8200 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 20 6b 65 79 29 20 27 66 61 | text-property.0.(length.key).'fa |
| 8220 | 63 65 20 27 63 6f 75 6e 73 65 6c 2d 6b 65 79 2d 62 69 6e 64 69 6e 67 20 6b 65 79 29 0a 20 20 20 | ce.'counsel-key-binding.key).... |
| 8240 | 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 28 25 73 29 22 20 6b 65 79 29 29 | ...........(format.".(%s)".key)) |
| 8260 | 29 29 29 0a 0a 28 64 65 66 76 61 72 20 61 6d 78 2d 69 6e 69 74 69 61 6c 69 7a 65 64 29 0a 28 64 | )))..(defvar.amx-initialized).(d |
| 8280 | 65 66 76 61 72 20 61 6d 78 2d 63 61 63 68 65 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 | efvar.amx-cache).(declare-functi |
| 82a0 | 6f 6e 20 61 6d 78 2d 69 6e 69 74 69 61 6c 69 7a 65 20 22 65 78 74 3a 61 6d 78 22 29 0a 28 64 65 | on.amx-initialize."ext:amx").(de |
| 82c0 | 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 61 6d 78 2d 64 65 74 65 63 74 2d 6e 65 77 2d 63 6f | clare-function.amx-detect-new-co |
| 82e0 | 6d 6d 61 6e 64 73 20 22 65 78 74 3a 61 6d 78 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | mmands."ext:amx").(declare-funct |
| 8300 | 69 6f 6e 20 61 6d 78 2d 75 70 64 61 74 65 20 22 65 78 74 3a 61 6d 78 22 29 0a 28 64 65 63 6c 61 | ion.amx-update."ext:amx").(decla |
| 8320 | 72 65 2d 66 75 6e 63 74 69 6f 6e 20 61 6d 78 2d 72 61 6e 6b 20 22 65 78 74 3a 61 6d 78 22 29 0a | re-function.amx-rank."ext:amx"). |
| 8340 | 28 64 65 66 76 61 72 20 73 6d 65 78 2d 69 6e 69 74 69 61 6c 69 7a 65 64 2d 70 29 0a 28 64 65 66 | (defvar.smex-initialized-p).(def |
| 8360 | 76 61 72 20 73 6d 65 78 2d 69 64 6f 2d 63 61 63 68 65 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e | var.smex-ido-cache).(declare-fun |
| 8380 | 63 74 69 6f 6e 20 73 6d 65 78 2d 69 6e 69 74 69 61 6c 69 7a 65 20 22 65 78 74 3a 73 6d 65 78 22 | ction.smex-initialize."ext:smex" |
| 83a0 | 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 6d 65 78 2d 64 65 74 65 63 74 2d | ).(declare-function.smex-detect- |
| 83c0 | 6e 65 77 2d 63 6f 6d 6d 61 6e 64 73 20 22 65 78 74 3a 73 6d 65 78 22 29 0a 28 64 65 63 6c 61 72 | new-commands."ext:smex").(declar |
| 83e0 | 65 2d 66 75 6e 63 74 69 6f 6e 20 73 6d 65 78 2d 75 70 64 61 74 65 20 22 65 78 74 3a 73 6d 65 78 | e-function.smex-update."ext:smex |
| 8400 | 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 6d 65 78 2d 72 61 6e 6b 20 22 | ").(declare-function.smex-rank." |
| 8420 | 65 78 74 3a 73 6d 65 78 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d | ext:smex")..(defun.counsel--M-x- |
| 8440 | 65 78 74 65 72 6e 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d | externs.()..."Return.`counsel-M- |
| 8460 | 78 27 20 63 61 6e 64 69 64 61 74 65 73 20 66 72 6f 6d 20 65 78 74 65 72 6e 61 6c 20 70 61 63 6b | x'.candidates.from.external.pack |
| 8480 | 61 67 65 73 2e 0a 54 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 61 20 6c 69 73 74 | ages..The.return.value.is.a.list |
| 84a0 | 20 6f 66 20 73 74 72 69 6e 67 73 2e 20 20 54 68 65 20 63 75 72 72 65 6e 74 6c 79 20 73 75 70 70 | .of.strings...The.currently.supp |
| 84c0 | 6f 72 74 65 64 0a 70 61 63 6b 61 67 65 73 20 61 72 65 2c 20 69 6e 20 6f 72 64 65 72 20 6f 66 20 | orted.packages.are,.in.order.of. |
| 84e0 | 70 72 65 63 65 64 65 6e 63 65 2c 20 60 61 6d 78 27 20 61 6e 64 20 60 73 6d 65 78 27 2e 22 0a 20 | precedence,.`amx'.and.`smex'.".. |
| 8500 | 20 28 63 6f 6e 64 20 28 28 72 65 71 75 69 72 65 20 27 61 6d 78 20 6e 69 6c 20 74 29 0a 20 20 20 | .(cond.((require.'amx.nil.t).... |
| 8520 | 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 61 6d 78 2d 69 6e 69 74 69 61 6c 69 7a 65 64 0a 20 20 | ......(unless.amx-initialized... |
| 8540 | 20 20 20 20 20 20 20 20 20 28 61 6d 78 2d 69 6e 69 74 69 61 6c 69 7a 65 29 29 0a 20 20 20 20 20 | .........(amx-initialize))...... |
| 8560 | 20 20 20 20 28 77 68 65 6e 20 28 61 6d 78 2d 64 65 74 65 63 74 2d 6e 65 77 2d 63 6f 6d 6d 61 6e | ....(when.(amx-detect-new-comman |
| 8580 | 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6d 78 2d 75 70 64 61 74 65 29 29 0a 20 20 20 | ds)............(amx-update)).... |
| 85a0 | 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a 20 20 | ......(mapcar.(lambda.(entry)... |
| 85c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 63 | .................(symbol-name.(c |
| 85e0 | 61 72 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6d 78 | ar.entry)))..................amx |
| 8600 | 2d 63 61 63 68 65 29 29 0a 20 20 20 20 20 20 20 20 28 28 72 65 71 75 69 72 65 20 27 73 6d 65 78 | -cache)).........((require.'smex |
| 8620 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 73 6d 65 78 2d 69 6e | .nil.t)..........(unless.smex-in |
| 8640 | 69 74 69 61 6c 69 7a 65 64 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 6d 65 78 2d 69 6e 69 | itialized-p............(smex-ini |
| 8660 | 74 69 61 6c 69 7a 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 6d 65 78 2d 64 | tialize))..........(when.(smex-d |
| 8680 | 65 74 65 63 74 2d 6e 65 77 2d 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | etect-new-commands)............( |
| 86a0 | 73 6d 65 78 2d 75 70 64 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 73 6d 65 78 2d 69 64 6f 2d | smex-update))..........smex-ido- |
| 86c0 | 63 61 63 68 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 65 78 | cache)))..(defun.counsel--M-x-ex |
| 86e0 | 74 65 72 6e 73 2d 70 72 65 64 69 63 61 74 65 20 28 63 61 6e 64 29 0a 20 20 22 52 65 74 75 72 6e | terns-predicate.(cand)..."Return |
| 8700 | 20 6e 6f 6e 2d 6e 69 6c 20 69 66 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d 78 27 20 73 68 6f 75 6c 64 | .non-nil.if.`counsel-M-x'.should |
| 8720 | 20 63 6f 6d 70 6c 65 74 65 20 43 41 4e 44 2e 0a 43 41 4e 44 20 69 73 20 61 20 73 74 72 69 6e 67 | .complete.CAND..CAND.is.a.string |
| 8740 | 20 72 65 74 75 72 6e 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 65 78 74 65 72 | .returned.by.`counsel--M-x-exter |
| 8760 | 6e 73 27 2e 22 0a 20 20 28 6e 6f 74 20 28 67 65 74 20 28 69 6e 74 65 72 6e 20 63 61 6e 64 29 20 | ns'."...(not.(get.(intern.cand). |
| 8780 | 27 6e 6f 2d 63 6f 75 6e 73 65 6c 2d 4d 2d 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | 'no-counsel-M-x)))..(defun.couns |
| 87a0 | 65 6c 2d 2d 4d 2d 78 2d 6d 61 6b 65 2d 70 72 65 64 69 63 61 74 65 20 28 29 0a 20 20 22 52 65 74 | el--M-x-make-predicate.()..."Ret |
| 87c0 | 75 72 6e 20 61 20 70 72 65 64 69 63 61 74 65 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 4d 2d 78 | urn.a.predicate.for.`counsel-M-x |
| 87e0 | 27 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 65 66 | '.in.the.current.buffer."...(def |
| 8800 | 76 61 72 20 72 65 61 64 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 2d 70 72 65 64 69 63 | var.read-extended-command-predic |
| 8820 | 61 74 65 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | ate)...(let.((buf.(current-buffe |
| 8840 | 72 29 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 79 6d 29 0a 20 20 20 20 20 20 28 61 6e | r))).....(lambda.(sym).......(an |
| 8860 | 64 20 28 63 6f 6d 6d 61 6e 64 70 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | d.(commandp.sym)............(not |
| 8880 | 20 28 67 65 74 20 73 79 6d 20 27 62 79 74 65 2d 6f 62 73 6f 6c 65 74 65 2d 69 6e 66 6f 29 29 0a | .(get.sym.'byte-obsolete-info)). |
| 88a0 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 67 65 74 20 73 79 6d 20 27 6e 6f 2d 63 6f 75 | ...........(not.(get.sym.'no-cou |
| 88c0 | 6e 73 65 6c 2d 4d 2d 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f | nsel-M-x))............(cond.((no |
| 88e0 | 74 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 72 65 61 64 2d 65 78 74 65 6e 64 65 | t.(bound-and-true-p.read-extende |
| 8900 | 64 2d 63 6f 6d 6d 61 6e 64 2d 70 72 65 64 69 63 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 | d-command-predicate))).......... |
| 8920 | 20 20 20 20 20 20 20 20 28 28 66 75 6e 63 74 69 6f 6e 70 20 72 65 61 64 2d 65 78 74 65 6e 64 65 | ........((functionp.read-extende |
| 8940 | 64 2d 63 6f 6d 6d 61 6e 64 2d 70 72 65 64 69 63 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | d-command-predicate)............ |
| 8960 | 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 2d 75 6e 6c 65 73 73 2d 64 65 | .......(condition-case-unless-de |
| 8980 | 62 75 67 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | bug.err.......................(f |
| 89a0 | 75 6e 63 61 6c 6c 20 72 65 61 64 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 2d 70 72 65 | uncall.read-extended-command-pre |
| 89c0 | 64 69 63 61 74 65 20 73 79 6d 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dicate.sym.buf)................. |
| 89e0 | 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 72 65 61 64 2d 65 78 74 65 6e 64 | ....(error.(message."read-extend |
| 8a00 | 65 64 2d 63 6f 6d 6d 61 6e 64 2d 70 72 65 64 69 63 61 74 65 3a 20 25 73 3a 20 25 73 22 0a 20 20 | ed-command-predicate:.%s:.%s"... |
| 8a20 | 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 | ................................ |
| 8a40 | 20 20 73 79 6d 20 28 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 65 72 72 29 | ..sym.(error-message-string.err) |
| 8a60 | 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 70 | )))))))))..(defun.counsel--M-x-p |
| 8a80 | 72 6f 6d 70 74 20 28 29 0a 20 20 22 53 74 72 69 6e 67 20 66 6f 72 20 60 4d 2d 78 27 20 70 6c 75 | rompt.()..."String.for.`M-x'.plu |
| 8aa0 | 73 20 74 68 65 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 60 | s.the.string.representation.of.` |
| 8ac0 | 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 27 2e 22 0a 20 20 28 63 6f 6e 63 61 74 20 | current-prefix-arg'."...(concat. |
| 8ae0 | 28 63 6f 6e 64 20 28 28 6e 75 6c 6c 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 | (cond.((null.current-prefix-arg) |
| 8b00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 | ..................nil).......... |
| 8b20 | 20 20 20 20 20 20 20 28 28 65 71 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 27 | .......((eq.current-prefix-arg.' |
| 8b40 | 2d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 20 22 29 0a 20 20 20 20 20 20 | -).................."-.")....... |
| 8b60 | 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 74 65 67 65 72 70 20 63 75 72 72 65 6e 74 2d 70 72 65 | ..........((integerp.current-pre |
| 8b80 | 66 69 78 2d 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | fix-arg)..................(forma |
| 8ba0 | 74 20 22 25 64 20 22 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 20 | t."%d.".current-prefix-arg)).... |
| 8bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 28 63 61 72 20 63 75 72 72 65 6e 74 2d 70 72 | .............((=.(car.current-pr |
| 8be0 | 65 66 69 78 2d 61 72 67 29 20 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 | efix-arg).4).................."C |
| 8c00 | 2d 75 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | -u.").................(t........ |
| 8c20 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 64 20 22 20 28 63 61 72 20 63 75 72 | ..........(format."%d.".(car.cur |
| 8c40 | 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 22 4d | rent-prefix-arg))))..........."M |
| 8c60 | 2d 78 20 22 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 4d 2d 78 2d 68 69 73 74 | -x."))..(defvar.counsel-M-x-hist |
| 8c80 | 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d | ory.nil..."History.for.`counsel- |
| 8ca0 | 4d 2d 78 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 4d 2d 78 2d 61 63 74 69 | M-x'.")..(defun.counsel-M-x-acti |
| 8cc0 | 6f 6e 20 28 63 6d 64 29 0a 20 20 22 45 78 65 63 75 74 65 20 43 4d 44 2e 22 0a 20 20 28 73 65 74 | on.(cmd)..."Execute.CMD."...(set |
| 8ce0 | 71 20 63 6d 64 20 28 69 6e 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 | q.cmd.(intern..............(subs |
| 8d00 | 74 2d 63 68 61 72 2d 69 6e 2d 73 74 72 69 6e 67 20 3f 5c 73 20 3f 2d 20 28 73 74 72 69 6e 67 2d | t-char-in-string.?\s.?-.(string- |
| 8d20 | 72 65 6d 6f 76 65 2d 70 72 65 66 69 78 20 22 5e 22 20 63 6d 64 29 29 29 29 0a 20 20 28 63 6f 6e | remove-prefix."^".cmd))))...(con |
| 8d40 | 64 20 28 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 61 6d 78 2d 69 6e 69 74 69 61 6c | d.((bound-and-true-p.amx-initial |
| 8d60 | 69 7a 65 64 29 0a 20 20 20 20 20 20 20 20 20 28 61 6d 78 2d 72 61 6e 6b 20 63 6d 64 29 29 0a 20 | ized)..........(amx-rank.cmd)).. |
| 8d80 | 20 20 20 20 20 20 20 28 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 73 6d 65 78 2d 69 | .......((bound-and-true-p.smex-i |
| 8da0 | 6e 69 74 69 61 6c 69 7a 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 28 73 6d 65 78 2d 72 61 6e | nitialized-p)..........(smex-ran |
| 8dc0 | 6b 20 63 6d 64 29 29 29 0a 20 20 28 73 65 74 71 20 70 72 65 66 69 78 2d 61 72 67 20 63 75 72 72 | k.cmd)))...(setq.prefix-arg.curr |
| 8de0 | 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 0a 20 20 28 73 65 74 71 20 74 68 69 73 2d 63 6f 6d | ent-prefix-arg)...(setq.this-com |
| 8e00 | 6d 61 6e 64 20 63 6d 64 29 0a 20 20 28 73 65 74 71 20 72 65 61 6c 2d 74 68 69 73 2d 63 6f 6d 6d | mand.cmd)...(setq.real-this-comm |
| 8e20 | 61 6e 64 20 63 6d 64 29 0a 20 20 28 63 6f 6d 6d 61 6e 64 2d 65 78 65 63 75 74 65 20 63 6d 64 20 | and.cmd)...(command-execute.cmd. |
| 8e40 | 27 72 65 63 6f 72 64 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | 'record))..;;;###autoload.(defun |
| 8e60 | 20 63 6f 75 6e 73 65 6c 2d 4d 2d 78 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d | .counsel-M-x.(&optional.initial- |
| 8e80 | 69 6e 70 75 74 29 0a 20 20 22 49 76 79 20 76 65 72 73 69 6f 6e 20 6f 66 20 60 65 78 65 63 75 74 | input)..."Ivy.version.of.`execut |
| 8ea0 | 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 27 2e 0a 4f 70 74 69 6f 6e 61 6c 20 49 4e | e-extended-command'..Optional.IN |
| 8ec0 | 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 69 6e 70 75 74 | ITIAL-INPUT.is.the.initial.input |
| 8ee0 | 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f | .in.the.minibuffer..This.functio |
| 8f00 | 6e 20 69 6e 74 65 67 72 61 74 65 73 20 77 69 74 68 20 65 69 74 68 65 72 20 74 68 65 20 60 61 6d | n.integrates.with.either.the.`am |
| 8f20 | 78 27 20 6f 72 20 60 73 6d 65 78 27 20 70 61 63 6b 61 67 65 0a 77 68 65 6e 20 61 76 61 69 6c 61 | x'.or.`smex'.package.when.availa |
| 8f40 | 62 6c 65 2c 20 69 6e 20 74 68 61 74 20 6f 72 64 65 72 20 6f 66 20 70 72 65 63 65 64 65 6e 63 65 | ble,.in.that.order.of.precedence |
| 8f60 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 3b 3b 20 57 68 65 6e 20 60 63 6f | ."...(interactive)...;;.When.`co |
| 8f80 | 75 6e 73 65 6c 2d 4d 2d 78 27 20 72 65 74 75 72 6e 73 2c 20 60 6c 61 73 74 2d 63 6f 6d 6d 61 6e | unsel-M-x'.returns,.`last-comman |
| 8fa0 | 64 27 20 77 6f 75 6c 64 20 62 65 20 73 65 74 20 74 6f 0a 20 20 3b 3b 20 60 63 6f 75 6e 73 65 6c | d'.would.be.set.to...;;.`counsel |
| 8fc0 | 2d 4d 2d 78 27 20 62 65 63 61 75 73 65 20 3a 61 63 74 69 6f 6e 20 68 61 73 6e 27 74 20 62 65 65 | -M-x'.because.:action.hasn't.bee |
| 8fe0 | 6e 20 69 6e 76 6f 6b 65 64 20 79 65 74 2e 0a 20 20 3b 3b 20 49 6e 73 74 65 61 64 2c 20 70 72 65 | n.invoked.yet....;;.Instead,.pre |
| 9000 | 73 65 72 76 65 20 74 68 65 20 6f 6c 64 20 76 61 6c 75 65 20 6f 66 20 60 74 68 69 73 2d 63 6f 6d | serve.the.old.value.of.`this-com |
| 9020 | 6d 61 6e 64 27 2e 0a 20 20 28 73 65 74 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 6c 61 73 74 | mand'....(setq.this-command.last |
| 9040 | 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 73 65 74 71 20 72 65 61 6c 2d 74 68 69 73 2d 63 6f 6d 6d | -command)...(setq.real-this-comm |
| 9060 | 61 6e 64 20 72 65 61 6c 2d 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 | and.real-last-command)...(let.(( |
| 9080 | 65 78 74 65 72 6e 73 20 28 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 65 78 74 65 72 6e 73 29 29 29 | externs.(counsel--M-x-externs))) |
| 90a0 | 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 28 63 6f 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 70 72 6f | .....(ivy-read.(counsel--M-x-pro |
| 90c0 | 6d 70 74 29 20 28 6f 72 20 65 78 74 65 72 6e 73 20 6f 62 61 72 72 61 79 29 0a 20 20 20 20 20 20 | mpt).(or.externs.obarray)....... |
| 90e0 | 20 20 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 69 66 20 65 78 74 65 72 6e 73 0a 20 | ........:predicate.(if.externs.. |
| 9100 | 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 23 27 63 6f | ............................#'co |
| 9120 | 75 6e 73 65 6c 2d 2d 4d 2d 78 2d 65 78 74 65 72 6e 73 2d 70 72 65 64 69 63 61 74 65 0a 20 20 20 | unsel--M-x-externs-predicate.... |
| 9140 | 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 63 6f 75 6e 73 65 6c | ........................(counsel |
| 9160 | 2d 2d 4d 2d 78 2d 6d 61 6b 65 2d 70 72 65 64 69 63 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 | --M-x-make-predicate)).......... |
| 9180 | 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 | .....:require-match.t........... |
| 91a0 | 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 4d 2d 78 2d 68 69 73 74 6f 72 | ....:history.'counsel-M-x-histor |
| 91c0 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 | y...............:action.#'counse |
| 91e0 | 6c 2d 4d 2d 78 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d | l-M-x-action...............:keym |
| 9200 | 61 70 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 | ap.counsel-describe-map......... |
| 9220 | 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 | ......:initial-input.initial-inp |
| 9240 | 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 | ut...............:caller.'counse |
| 9260 | 6c 2d 4d 2d 78 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 | l-M-x)))..(ivy-configure.'counse |
| 9280 | 6c 2d 4d 2d 78 0a 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 22 5e 22 0a 20 20 3a 64 69 | l-M-x...:initial-input."^"...:di |
| 92a0 | 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 4d | splay-transformer-fn.#'counsel-M |
| 92c0 | 2d 78 2d 74 72 61 6e 73 66 6f 72 6d 65 72 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e | -x-transformer)..(ivy-set-action |
| 92e0 | 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 4d 2d 78 0a 20 60 28 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d | s..'counsel-M-x..`(("d".counsel- |
| 9300 | 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 64 65 66 69 6e 69 74 69 6f 6e 22 29 0a 20 20 20 28 22 | -find-symbol."definition")....(" |
| 9320 | 68 22 20 2c 28 6c 61 6d 62 64 61 20 28 78 29 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c | h".,(lambda.(x).(funcall.counsel |
| 9340 | 2d 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e 74 | -describe-function-function.(int |
| 9360 | 65 72 6e 20 78 29 29 29 20 22 68 65 6c 70 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 | ern.x)))."help")))..;;**.`counse |
| 9380 | 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | l-command-history'.(defun.counse |
| 93a0 | 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 2d 65 76 61 6c 20 28 63 | l-command-history-action-eval.(c |
| 93c0 | 6d 64 29 0a 20 20 22 45 76 61 6c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 43 4d 44 2e 22 0a 20 20 | md)..."Eval.the.command.CMD."... |
| 93e0 | 28 65 76 61 6c 20 28 72 65 61 64 20 63 6d 64 29 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | (eval.(read.cmd).t))..(defun.cou |
| 9400 | 6e 73 65 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 2d 65 64 69 74 | nsel-command-history-action-edit |
| 9420 | 2d 61 6e 64 2d 65 76 61 6c 20 28 63 6d 64 29 0a 20 20 22 45 64 69 74 20 61 6e 64 20 65 76 61 6c | -and-eval.(cmd)..."Edit.and.eval |
| 9440 | 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 43 4d 44 2e 22 0a 20 20 28 65 64 69 74 2d 61 6e 64 2d 65 | .the.command.CMD."...(edit-and-e |
| 9460 | 76 61 6c 2d 63 6f 6d 6d 61 6e 64 20 22 45 76 61 6c 3a 20 22 20 28 72 65 61 64 20 63 6d 64 29 29 | val-command."Eval:.".(read.cmd)) |
| 9480 | 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 63 6f | )..(ivy-set-actions..'counsel-co |
| 94a0 | 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 0a 20 27 28 28 22 72 22 20 63 6f 75 6e 73 65 6c 2d 63 6f | mmand-history..'(("r".counsel-co |
| 94c0 | 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 2d 65 76 61 6c 20 20 20 20 20 20 20 | mmand-history-action-eval....... |
| 94e0 | 20 20 20 20 22 65 76 61 6c 20 63 6f 6d 6d 61 6e 64 22 29 0a 20 20 20 28 22 65 22 20 63 6f 75 6e | ...."eval.command")....("e".coun |
| 9500 | 73 65 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 2d 65 64 69 74 2d | sel-command-history-action-edit- |
| 9520 | 61 6e 64 2d 65 76 61 6c 20 20 22 65 64 69 74 20 61 6e 64 20 65 76 61 6c 20 63 6f 6d 6d 61 6e 64 | and-eval.."edit.and.eval.command |
| 9540 | 22 29 29 29 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 75 6e | ")))..;;;###autoload.(defun.coun |
| 9560 | 73 65 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 53 68 6f 77 20 74 | sel-command-history.()..."Show.t |
| 9580 | 68 65 20 68 69 73 74 6f 72 79 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 28 69 6e 74 65 | he.history.of.commands."...(inte |
| 95a0 | 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 43 6f 6d 6d 61 6e 64 3a 20 22 | ractive)...(ivy-read."Command:." |
| 95c0 | 20 28 6d 61 70 63 61 72 20 23 27 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 6d 6d 61 | .(mapcar.#'prin1-to-string.comma |
| 95e0 | 6e 64 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 | nd-history).............:require |
| 9600 | 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 | -match.t.............:action.#'c |
| 9620 | 6f 75 6e 73 65 6c 2d 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 2d 65 76 | ounsel-command-history-action-ev |
| 9640 | 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d | al.............:caller.'counsel- |
| 9660 | 63 6f 6d 6d 61 6e 64 2d 68 69 73 74 6f 72 79 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c | command-history))..;;**.`counsel |
| 9680 | 2d 6c 6f 61 64 2d 6c 69 62 72 61 72 79 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 | -load-library'.(defun.counsel-li |
| 96a0 | 62 72 61 72 79 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 | brary-candidates.()..."Return.a. |
| 96c0 | 6c 69 73 74 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 20 66 6f | list.of.completion.candidates.fo |
| 96e0 | 72 20 60 63 6f 75 6e 73 65 6c 2d 6c 6f 61 64 2d 6c 69 62 72 61 72 79 27 2e 22 0a 20 20 28 6c 65 | r.`counsel-load-library'."...(le |
| 9700 | 74 20 28 28 73 75 66 66 69 78 20 28 63 6f 6e 63 61 74 20 28 72 65 67 65 78 70 2d 6f 70 74 20 27 | t.((suffix.(concat.(regexp-opt.' |
| 9720 | 28 22 2e 65 6c 22 20 22 2e 65 6c 2e 67 7a 22 29 20 74 29 20 22 5c 5c 27 22 29 29 0a 20 20 20 20 | (".el".".el.gz").t)."\\'"))..... |
| 9740 | 20 20 20 20 28 63 61 6e 64 73 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 | ....(cands.(make-hash-table.:tes |
| 9760 | 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 73 68 6f 72 74 2d 6e 61 6d 65 0a 20 | t.#'equal)).........short-name.. |
| 9780 | 20 20 20 20 20 20 20 6f 6c 64 2d 76 61 6c 0a 20 20 20 20 20 20 20 20 64 69 72 2d 70 61 72 65 6e | .......old-val.........dir-paren |
| 97a0 | 74 0a 20 20 20 20 20 20 20 20 72 65 73 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 69 72 20 | t.........res).....(dolist.(dir. |
| 97c0 | 6c 6f 61 64 2d 70 61 74 68 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 20 28 6f 72 20 64 | load-path).......(setq.dir.(or.d |
| 97e0 | 69 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 20 3b 3b 20 69 6e 74 65 72 70 | ir.default-directory)).;;.interp |
| 9800 | 72 65 74 20 6e 69 6c 20 69 6e 20 6c 6f 61 64 2d 70 61 74 68 20 61 73 20 64 65 66 61 75 6c 74 2d | ret.nil.in.load-path.as.default- |
| 9820 | 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 64 69 72 65 | directory.......(when.(file-dire |
| 9840 | 63 74 6f 72 79 2d 70 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 69 | ctory-p.dir).........(dolist.(fi |
| 9860 | 6c 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 22 22 | le.(file-name-all-completions."" |
| 9880 | 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d | .dir))...........(when.(string-m |
| 98a0 | 61 74 63 68 20 73 75 66 66 69 78 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 | atch.suffix.file).............(u |
| 98c0 | 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 70 6b 67 2e 65 6c 63 3f 24 22 20 | nless.(string-match."pkg.elc?$". |
| 98e0 | 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 68 6f 72 74 2d | file)...............(setq.short- |
| 9900 | 6e 61 6d 65 20 28 73 75 62 73 74 72 69 6e 67 20 66 69 6c 65 20 30 20 28 6d 61 74 63 68 2d 62 65 | name.(substring.file.0.(match-be |
| 9920 | 67 69 6e 6e 69 6e 67 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | ginning.0)))...............(if.( |
| 9940 | 73 65 74 71 20 6f 6c 64 2d 76 61 6c 20 28 67 65 74 68 61 73 68 20 73 68 6f 72 74 2d 6e 61 6d 65 | setq.old-val.(gethash.short-name |
| 9960 | 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 | .cands))...................(prog |
| 9980 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 73 73 75 6d 65 20 | n.....................;;.assume. |
| 99a0 | 67 6f 69 6e 67 20 75 70 20 64 69 72 65 63 74 6f 72 79 20 6f 6e 63 65 20 77 69 6c 6c 20 72 65 73 | going.up.directory.once.will.res |
| 99c0 | 6f 6c 76 65 20 6e 61 6d 65 20 63 6c 61 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | olve.name.clash................. |
| 99e0 | 20 20 20 20 28 73 65 74 71 20 64 69 72 2d 70 61 72 65 6e 74 20 28 63 6f 75 6e 73 65 6c 2d 64 69 | ....(setq.dir-parent.(counsel-di |
| 9a00 | 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 28 63 64 72 20 6f 6c 64 2d 76 61 6c 29 29 29 0a 20 20 20 | rectory-name.(cdr.old-val))).... |
| 9a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 73 68 20 73 68 6f 72 74 2d | .................(puthash.short- |
| 9a40 | 6e 61 6d 65 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 | name............................ |
| 9a60 | 20 20 28 63 6f 6e 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 | ..(cons......................... |
| 9a80 | 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 73 74 72 69 6e 67 2d 63 6f 6d 70 6f 73 65 20 64 69 | ......(counsel-string-compose.di |
| 9aa0 | 72 2d 70 61 72 65 6e 74 20 28 63 61 72 20 6f 6c 64 2d 76 61 6c 29 29 0a 20 20 20 20 20 20 20 20 | r-parent.(car.old-val))......... |
| 9ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 6f 6c 64 2d 76 | ......................(cdr.old-v |
| 9ae0 | 61 6c 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 | al))............................ |
| 9b00 | 20 20 63 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | ..cands).....................(se |
| 9b20 | 74 71 20 64 69 72 2d 70 61 72 65 6e 74 20 28 63 6f 75 6e 73 65 6c 2d 64 69 72 65 63 74 6f 72 79 | tq.dir-parent.(counsel-directory |
| 9b40 | 2d 6e 61 6d 65 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -name.dir))..................... |
| 9b60 | 28 70 75 74 68 61 73 68 20 28 63 6f 6e 63 61 74 20 64 69 72 2d 70 61 72 65 6e 74 20 73 68 6f 72 | (puthash.(concat.dir-parent.shor |
| 9b80 | 74 2d 6e 61 6d 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 | t-name)......................... |
| 9ba0 | 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(cons...................... |
| 9bc0 | 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 | .........(propertize............ |
| 9be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 73 74 72 | ....................(counsel-str |
| 9c00 | 69 6e 67 2d 63 6f 6d 70 6f 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing-compose..................... |
| 9c20 | 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 2d 70 61 72 65 6e 74 20 73 68 6f 72 74 2d 6e 61 6d | ............dir-parent.short-nam |
| 9c40 | 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 20 20 20 20 20 | e).............................. |
| 9c60 | 20 20 27 66 75 6c 6c 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 | ..'full-name.(expand-file-name.f |
| 9c80 | 69 6c 65 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.dir))....................... |
| 9ca0 | 20 20 20 20 20 20 20 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........dir).................... |
| 9cc0 | 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........cands))............... |
| 9ce0 | 20 20 28 70 75 74 68 61 73 68 20 73 68 6f 72 74 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 | ..(puthash.short-name........... |
| 9d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 70 72 6f 70 65 72 74 69 7a 65 | ...............(cons.(propertize |
| 9d20 | 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 20 | ................................ |
| 9d40 | 20 73 68 6f 72 74 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .short-name..................... |
| 9d60 | 20 20 20 20 20 20 20 20 20 20 20 20 27 66 75 6c 6c 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 | ............'full-name.(expand-f |
| 9d80 | 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ile-name.file.dir))............. |
| 9da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 | ...................dir)......... |
| 9dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 73 29 29 29 29 29 29 29 0a 20 20 | .................cands)))))))... |
| 9de0 | 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 5f 6b 20 76 29 20 28 70 75 73 68 20 | ..(maphash.(lambda.(_k.v).(push. |
| 9e00 | 28 63 61 72 20 76 29 20 72 65 73 29 29 20 63 61 6e 64 73 29 0a 20 20 20 20 28 6e 72 65 76 65 72 | (car.v).res)).cands).....(nrever |
| 9e20 | 73 65 20 72 65 73 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | se.res)))..;;;###autoload.(defun |
| 9e40 | 20 63 6f 75 6e 73 65 6c 2d 6c 6f 61 64 2d 6c 69 62 72 61 72 79 20 28 29 0a 20 20 22 4c 6f 61 64 | .counsel-load-library.()..."Load |
| 9e60 | 20 61 20 73 65 6c 65 63 74 65 64 20 74 68 65 20 45 6d 61 63 73 20 4c 69 73 70 20 6c 69 62 72 61 | .a.selected.the.Emacs.Lisp.libra |
| 9e80 | 72 79 2e 0a 54 68 65 20 6c 69 62 72 61 72 69 65 73 20 61 72 65 20 6f 66 66 65 72 65 64 20 66 72 | ry..The.libraries.are.offered.fr |
| 9ea0 | 6f 6d 20 60 6c 6f 61 64 2d 70 61 74 68 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | om.`load-path'."...(interactive) |
| 9ec0 | 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 73 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 62 72 61 72 79 | ...(let.((cands.(counsel-library |
| 9ee0 | 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 4c 6f | -candidates))).....(ivy-read."Lo |
| 9f00 | 61 64 20 6c 69 62 72 61 72 79 3a 20 22 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ad.library:.".cands............. |
| 9f20 | 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 | ..:action.(lambda.(x)........... |
| 9f40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 61 64 2d 6c 69 62 72 61 72 79 0a 20 20 20 20 | ..............(load-library..... |
| 9f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 | .....................(get-text-p |
| 9f80 | 72 6f 70 65 72 74 79 20 30 20 27 66 75 6c 6c 2d 6e 61 6d 65 20 78 29 29 29 0a 20 20 20 20 20 20 | roperty.0.'full-name.x)))....... |
| 9fa0 | 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 | ........:keymap.counsel-describe |
| 9fc0 | 2d 6d 61 70 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e | -map)))..(ivy-set-actions..'coun |
| 9fe0 | 73 65 6c 2d 6c 6f 61 64 2d 6c 69 62 72 61 72 79 0a 20 27 28 28 22 64 22 20 63 6f 75 6e 73 65 6c | sel-load-library..'(("d".counsel |
| a000 | 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 20 22 64 65 66 69 6e 69 74 69 6f 6e 22 29 29 29 0a 0a 3b | --find-symbol."definition")))..; |
| a020 | 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 6c 69 62 72 61 72 79 27 0a 28 64 65 63 6c | ;**.`counsel-find-library'.(decl |
| a040 | 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 69 6e 64 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 22 | are-function.find-library-name." |
| a060 | 66 69 6e 64 2d 66 75 6e 63 22 29 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | find-func").(defun.counsel-find- |
| a080 | 6c 69 62 72 61 72 79 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 6c 69 62 72 61 72 79 29 0a 20 | library-other-window.(library).. |
| a0a0 | 20 28 6c 65 74 20 28 28 62 75 66 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 | .(let.((buf.(find-file-noselect. |
| a0c0 | 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 6c 69 62 72 61 72 79 29 29 29 29 0a 20 | (find-library-name.library)))).. |
| a0e0 | 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 20 27 6f 74 68 65 72 2d 77 69 6e | ...(pop-to-buffer.buf.'other-win |
| a100 | 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 6c 69 62 72 | dow)))..(defun.counsel-find-libr |
| a120 | 61 72 79 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 28 6c 69 62 72 61 72 79 29 0a 20 20 28 6c 65 74 | ary-other-frame.(library)...(let |
| a140 | 20 28 28 62 75 66 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 28 66 69 6e 64 | .((buf.(find-file-noselect.(find |
| a160 | 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 6c 69 62 72 61 72 79 29 29 29 29 0a 20 20 20 20 28 63 | -library-name.library)))).....(c |
| a180 | 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 73 77 69 74 63 | ondition-case.nil.........(switc |
| a1a0 | 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 62 75 66 29 0a 20 20 20 | h-to-buffer-other-frame.buf).... |
| a1c0 | 20 20 20 28 65 72 72 6f 72 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 29 29 29 29 | ...(error.(pop-to-buffer.buf)))) |
| a1e0 | 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 66 69 | )..(ivy-set-actions..'counsel-fi |
| a200 | 6e 64 2d 6c 69 62 72 61 72 79 0a 20 27 28 28 22 6a 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | nd-library..'(("j".counsel-find- |
| a220 | 6c 69 62 72 61 72 79 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 | library-other-window."other.wind |
| a240 | 6f 77 22 29 0a 20 20 20 28 22 66 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 6c 69 62 72 61 72 | ow")....("f".counsel-find-librar |
| a260 | 79 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 22 6f 74 68 65 72 20 66 72 61 6d 65 22 29 29 29 0a 0a | y-other-frame."other.frame"))).. |
| a280 | 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 | ;;;###autoload.(defun.counsel-fi |
| a2a0 | 6e 64 2d 6c 69 62 72 61 72 79 20 28 29 0a 20 20 22 56 69 73 69 74 20 61 20 73 65 6c 65 63 74 65 | nd-library.()..."Visit.a.selecte |
| a2c0 | 64 20 74 68 65 20 45 6d 61 63 73 20 4c 69 73 70 20 6c 69 62 72 61 72 79 2e 0a 54 68 65 20 6c 69 | d.the.Emacs.Lisp.library..The.li |
| a2e0 | 62 72 61 72 69 65 73 20 61 72 65 20 6f 66 66 65 72 65 64 20 66 72 6f 6d 20 60 6c 6f 61 64 2d 70 | braries.are.offered.from.`load-p |
| a300 | 61 74 68 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 | ath'."...(interactive)...(let.(( |
| a320 | 63 61 6e 64 73 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 62 72 61 72 79 2d 63 61 6e 64 69 64 61 74 65 | cands.(counsel-library-candidate |
| a340 | 73 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 69 6e 64 20 6c 69 62 72 61 72 79 | s))).....(ivy-read."Find.library |
| a360 | 3a 20 22 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 | :.".cands...............:action. |
| a380 | 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 | #'counsel--find-symbol.......... |
| a3a0 | 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 6d 61 | .....:keymap.counsel-describe-ma |
| a3c0 | 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c | p...............:caller.'counsel |
| a3e0 | 2d 66 69 6e 64 2d 6c 69 62 72 61 72 79 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d | -find-library)))..;;**.`counsel- |
| a400 | 6c 6f 61 64 2d 74 68 65 6d 65 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 70 6f | load-theme'.(declare-function.po |
| a420 | 77 65 72 6c 69 6e 65 2d 72 65 73 65 74 20 22 65 78 74 3a 70 6f 77 65 72 6c 69 6e 65 22 29 0a 0a | werline-reset."ext:powerline").. |
| a440 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 61 64 2d 74 68 65 6d 65 2d 61 63 74 69 6f 6e | (defun.counsel-load-theme-action |
| a460 | 20 28 78 29 0a 20 20 22 44 69 73 61 62 6c 65 20 63 75 72 72 65 6e 74 20 74 68 65 6d 65 73 20 61 | .(x)..."Disable.current.themes.a |
| a480 | 6e 64 20 6c 6f 61 64 20 74 68 65 6d 65 20 58 2e 22 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 | nd.load.theme.X."...(condition-c |
| a4a0 | 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 6d 61 | ase.nil.......(progn.........(ma |
| a4c0 | 70 63 20 23 27 64 69 73 61 62 6c 65 2d 74 68 65 6d 65 20 63 75 73 74 6f 6d 2d 65 6e 61 62 6c 65 | pc.#'disable-theme.custom-enable |
| a4e0 | 64 2d 74 68 65 6d 65 73 29 0a 20 20 20 20 20 20 20 20 28 6c 6f 61 64 2d 74 68 65 6d 65 20 28 69 | d-themes).........(load-theme.(i |
| a500 | 6e 74 65 72 6e 20 78 29 20 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e | ntern.x).t).........(when.(fboun |
| a520 | 64 70 20 27 70 6f 77 65 72 6c 69 6e 65 2d 72 65 73 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 | dp.'powerline-reset)...........( |
| a540 | 70 6f 77 65 72 6c 69 6e 65 2d 72 65 73 65 74 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 22 50 | powerline-reset))).....(error."P |
| a560 | 72 6f 62 6c 65 6d 20 6c 6f 61 64 69 6e 67 20 74 68 65 6d 65 20 25 73 22 20 78 29 29 29 0a 0a 3b | roblem.loading.theme.%s".x)))..; |
| a580 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 61 | ;;###autoload.(defun.counsel-loa |
| a5a0 | 64 2d 74 68 65 6d 65 20 28 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f 20 60 6c 6f 61 64 2d 74 | d-theme.()..."Forward.to.`load-t |
| a5c0 | 68 65 6d 65 27 2e 0a 55 73 61 62 6c 65 20 77 69 74 68 20 60 69 76 79 2d 72 65 73 75 6d 65 27 2c | heme'..Usable.with.`ivy-resume', |
| a5e0 | 20 60 69 76 79 2d 6e 65 78 74 2d 6c 69 6e 65 2d 61 6e 64 2d 63 61 6c 6c 27 20 61 6e 64 0a 60 69 | .`ivy-next-line-and-call'.and.`i |
| a600 | 76 79 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 2d 61 6e 64 2d 63 61 6c 6c 27 2e 22 0a 20 20 28 | vy-previous-line-and-call'."...( |
| a620 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 4c 6f 61 64 20 63 | interactive)...(ivy-read."Load.c |
| a640 | 75 73 74 6f 6d 20 74 68 65 6d 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 | ustom.theme:.".............(mapc |
| a660 | 61 72 20 23 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ar.#'symbol-name................ |
| a680 | 20 20 20 20 20 28 63 75 73 74 6f 6d 2d 61 76 61 69 6c 61 62 6c 65 2d 74 68 65 6d 65 73 29 29 0a | .....(custom-available-themes)). |
| a6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f | ............:action.#'counsel-lo |
| a6c0 | 61 64 2d 74 68 65 6d 65 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c | ad-theme-action.............:cal |
| a6e0 | 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6c 6f 61 64 2d 74 68 65 6d 65 29 29 0a 0a 3b 3b 2a 2a 20 | ler.'counsel-load-theme))..;;**. |
| a700 | 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 27 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 | `counsel-descbinds'.(ivy-set-act |
| a720 | 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 0a 20 27 28 28 22 64 22 | ions..'counsel-descbinds..'(("d" |
| a740 | 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 66 69 6e 64 20 22 | .counsel-descbinds-action-find." |
| a760 | 64 65 66 69 6e 69 74 69 6f 6e 22 29 0a 20 20 20 28 22 49 22 20 63 6f 75 6e 73 65 6c 2d 64 65 73 | definition")....("I".counsel-des |
| a780 | 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 69 6e 66 6f 20 22 69 6e 66 6f 22 29 0a 20 20 20 28 22 | cbinds-action-info."info")....(" |
| a7a0 | 78 22 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 65 78 65 63 | x".counsel-descbinds-action-exec |
| a7c0 | 20 22 65 78 65 63 75 74 65 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 64 | ."execute")))..(defvar.counsel-d |
| a7e0 | 65 73 63 62 69 6e 64 73 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 | escbinds-history.nil..."History. |
| a800 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 27 2e 22 29 0a 0a 28 64 65 66 | for.`counsel-descbinds'.")..(def |
| a820 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 64 65 73 63 62 69 6e 64 73 2d 63 61 6e 64 73 20 28 26 6f 70 | un.counsel--descbinds-cands.(&op |
| a840 | 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 20 62 75 66 66 65 72 29 0a 20 20 22 47 65 74 20 6b 65 79 | tional.prefix.buffer)..."Get.key |
| a860 | 20 62 69 6e 64 69 6e 67 73 20 73 74 61 72 74 69 6e 67 20 77 69 74 68 20 50 52 45 46 49 58 20 69 | .bindings.starting.with.PREFIX.i |
| a880 | 6e 20 42 55 46 46 45 52 2e 0a 53 65 65 20 60 64 65 73 63 72 69 62 65 2d 62 75 66 66 65 72 2d 62 | n.BUFFER..See.`describe-buffer-b |
| a8a0 | 69 6e 64 69 6e 67 73 27 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e | indings'.for.further.information |
| a8c0 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 6f 72 20 62 75 66 66 65 72 20 28 63 | ."...(let.((buffer.(or.buffer.(c |
| a8e0 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 2d 65 78 63 | urrent-buffer))).........(re-exc |
| a900 | 6c 75 64 65 20 28 72 65 67 65 78 70 2d 6f 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lude.(regexp-opt................ |
| a920 | 20 20 20 20 20 20 27 28 22 3c 76 65 72 74 69 63 61 6c 2d 6c 69 6e 65 3e 22 20 22 3c 62 6f 74 74 | ......'("<vertical-line>"."<bott |
| a940 | 6f 6d 2d 64 69 76 69 64 65 72 3e 22 20 22 3c 72 69 67 68 74 2d 64 69 76 69 64 65 72 3e 22 0a 20 | om-divider>"."<right-divider>".. |
| a960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 6d 6f 64 65 2d 6c 69 6e | ......................"<mode-lin |
| a980 | 65 3e 22 20 22 3c 43 2d 64 6f 77 6e 2d 6d 6f 75 73 65 2d 32 3e 22 20 22 3c 6c 65 66 74 2d 66 72 | e>"."<C-down-mouse-2>"."<left-fr |
| a9a0 | 69 6e 67 65 3e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c | inge>"........................"< |
| a9c0 | 72 69 67 68 74 2d 66 72 69 6e 67 65 3e 22 20 22 3c 68 65 61 64 65 72 2d 6c 69 6e 65 3e 22 0a 20 | right-fringe>"."<header-line>".. |
| a9e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3c 76 65 72 74 69 63 61 6c | ......................"<vertical |
| aa00 | 2d 73 63 72 6f 6c 6c 2d 62 61 72 3e 22 20 22 3c 68 6f 72 69 7a 6f 6e 74 61 6c 2d 73 63 72 6f 6c | -scroll-bar>"."<horizontal-scrol |
| aa20 | 6c 2d 62 61 72 3e 22 29 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 29 0a 20 20 20 20 28 77 69 74 | l-bar>"))).........res).....(wit |
| aa40 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 6e 64 65 6e | h-temp-buffer.......(let.((inden |
| aa60 | 74 2d 74 61 62 73 2d 6d 6f 64 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 62 | t-tabs-mode.t)).........(describ |
| aa80 | 65 2d 62 75 66 66 65 72 2d 62 69 6e 64 69 6e 67 73 20 62 75 66 66 65 72 20 70 72 65 66 69 78 29 | e-buffer-bindings.buffer.prefix) |
| aaa0 | 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a | ).......(goto-char.(point-min)). |
| aac0 | 20 20 20 20 20 20 3b 3b 20 53 6b 69 70 20 74 68 65 20 22 4b 65 79 20 74 72 61 6e 73 6c 61 74 69 | ......;;.Skip.the."Key.translati |
| aae0 | 6f 6e 73 22 20 73 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 28 73 6b 69 70 2d 63 68 61 72 73 2d 66 | ons".section.......(skip-chars-f |
| ab00 | 6f 72 77 61 72 64 20 22 5e 5c 43 2d 6c 22 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 63 | orward."^\C-l").......(forward-c |
| ab20 | 68 61 72 20 32 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 | har.2).......(while.(not.(eobp)) |
| ab40 | 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5e 5c 5c 28 | .........(when.(looking-at."^\\( |
| ab60 | 5b 5e 5c 74 5c 6e 5d 2b 5c 5c 29 5b 5c 74 20 5d 2a 5c 5c 28 2e 2a 5c 5c 29 24 22 29 0a 20 20 20 | [^\t\n]+\\)[\t.]*\\(.*\\)$").... |
| ab80 | 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6b 65 79 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 | .......(let.((key.(match-string. |
| aba0 | 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 6d 61 74 63 68 2d | 1)).................(fun.(match- |
| abc0 | 73 74 72 69 6e 67 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 29 0a | string.2)).................cmd). |
| abe0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 6d 65 6d 62 65 72 20 | ............(unless.(or.(member. |
| ac00 | 66 75 6e 20 27 28 22 3f 3f 22 20 22 73 65 6c 66 2d 69 6e 73 65 72 74 2d 63 6f 6d 6d 61 6e 64 22 | fun.'("??"."self-insert-command" |
| ac20 | 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 28 73 74 72 69 | )).........................(stri |
| ac40 | 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 2d 65 78 63 6c 75 64 65 20 6b 65 79 29 0a 20 20 20 20 20 | ng-match-p.re-exclude.key)...... |
| ac60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6f 72 20 28 63 6f 6d | ...................(not.(or.(com |
| ac80 | 6d 61 6e 64 70 20 28 73 65 74 71 20 63 6d 64 20 28 69 6e 74 65 72 6e 2d 73 6f 66 74 20 66 75 6e | mandp.(setq.cmd.(intern-soft.fun |
| aca0 | 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 20 20 20 20 20 20 | )))............................. |
| acc0 | 20 20 20 20 20 28 65 71 75 61 6c 20 66 75 6e 20 22 50 72 65 66 69 78 20 43 6f 6d 6d 61 6e 64 22 | .....(equal.fun."Prefix.Command" |
| ace0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 0a 20 20 20 20 20 20 20 | ))))...............(push........ |
| ad00 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 | ........(cons.(format........... |
| ad20 | 20 20 20 20 20 20 20 20 20 20 20 20 22 25 2d 31 35 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 | ............"%-15s.%s".......... |
| ad40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 6b 65 79 20 27 66 61 | .............(propertize.key.'fa |
| ad60 | 63 65 20 27 63 6f 75 6e 73 65 6c 2d 6b 65 79 2d 62 69 6e 64 69 6e 67 29 0a 20 20 20 20 20 20 20 | ce.'counsel-key-binding)........ |
| ad80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 75 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...............fun)............. |
| ada0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6b 65 79 20 63 6d 64 29 29 0a 20 20 20 20 20 20 20 | .........(cons.key.cmd))........ |
| adc0 | 20 20 20 20 20 20 20 20 72 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 | ........res)))).........(forward |
| ade0 | 2d 6c 69 6e 65 29 29 29 0a 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 29 29 29 0a 0a 28 | -line))).....(nreverse.res)))..( |
| ae00 | 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 66 75 6e 63 | defcustom.counsel-descbinds-func |
| ae20 | 74 69 6f 6e 20 23 27 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 22 46 75 6e 63 | tion.#'describe-function..."Func |
| ae40 | 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 74 6f 20 64 65 73 63 72 69 62 65 20 61 20 66 75 6e 63 74 | tion.to.call.to.describe.a.funct |
| ae60 | 69 6f 6e 20 70 61 73 73 65 64 20 61 73 20 70 61 72 61 6d 65 74 65 72 2e 22 0a 20 20 3a 74 79 70 | ion.passed.as.parameter."...:typ |
| ae80 | 65 20 27 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 | e.'function)..(defun.counsel-des |
| aea0 | 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 64 65 73 63 72 69 62 65 20 28 78 29 0a 20 20 22 44 65 | cbinds-action-describe.(x)..."De |
| aec0 | 73 63 72 69 62 65 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 63 61 6e 64 69 64 61 74 65 20 58 2e 0a | scribe.function.of.candidate.X.. |
| aee0 | 53 65 65 20 60 64 65 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 27 20 66 6f 72 20 66 75 72 74 | See.`describe-function'.for.furt |
| af00 | 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6d 64 20 28 | her.information."...(let.((cmd.( |
| af20 | 63 64 64 72 20 78 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c 2d 64 | cddr.x))).....(funcall.counsel-d |
| af40 | 65 73 63 62 69 6e 64 73 2d 66 75 6e 63 74 69 6f 6e 20 63 6d 64 29 29 29 0a 0a 28 64 65 66 75 6e | escbinds-function.cmd)))..(defun |
| af60 | 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 65 78 65 63 20 28 | .counsel-descbinds-action-exec.( |
| af80 | 78 29 0a 20 20 22 52 75 6e 20 63 61 6e 64 69 64 61 74 65 20 58 2e 0a 53 65 65 20 60 65 78 65 63 | x)..."Run.candidate.X..See.`exec |
| afa0 | 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d 6d 61 6e 64 27 20 66 6f 72 20 66 75 72 74 68 65 | ute-extended-command'.for.furthe |
| afc0 | 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6d 64 20 28 63 64 | r.information."...(let.((cmd.(cd |
| afe0 | 64 72 20 78 29 29 29 0a 20 20 20 20 28 63 6f 6d 6d 61 6e 64 2d 65 78 65 63 75 74 65 20 63 6d 64 | dr.x))).....(command-execute.cmd |
| b000 | 20 27 72 65 63 6f 72 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 | .'record)))..(defun.counsel-desc |
| b020 | 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 66 69 6e 64 20 28 78 29 0a 20 20 22 46 69 6e 64 20 73 79 | binds-action-find.(x)..."Find.sy |
| b040 | 6d 62 6f 6c 20 64 65 66 69 6e 69 74 69 6f 6e 20 6f 66 20 63 61 6e 64 69 64 61 74 65 20 58 2e 0a | mbol.definition.of.candidate.X.. |
| b060 | 53 65 65 20 60 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 73 79 6d 62 6f 6c 27 20 66 6f 72 20 66 | See.`counsel--find-symbol'.for.f |
| b080 | 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6d | urther.information."...(let.((cm |
| b0a0 | 64 20 28 63 64 64 72 20 78 29 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d | d.(cddr.x))).....(counsel--find- |
| b0c0 | 73 79 6d 62 6f 6c 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 63 6d 64 29 29 29 29 0a 0a 28 64 65 | symbol.(symbol-name.cmd))))..(de |
| b0e0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 69 6e 66 | fun.counsel-descbinds-action-inf |
| b100 | 6f 20 28 78 29 0a 20 20 22 44 69 73 70 6c 61 79 20 73 79 6d 62 6f 6c 20 64 65 66 69 6e 69 74 69 | o.(x)..."Display.symbol.definiti |
| b120 | 6f 6e 20 6f 66 20 63 61 6e 64 69 64 61 74 65 20 58 2c 20 61 73 20 66 6f 75 6e 64 20 69 6e 20 74 | on.of.candidate.X,.as.found.in.t |
| b140 | 68 65 20 72 65 6c 65 76 61 6e 74 20 6d 61 6e 75 61 6c 2e 0a 53 65 65 20 60 69 6e 66 6f 2d 6c 6f | he.relevant.manual..See.`info-lo |
| b160 | 6f 6b 75 70 2d 73 79 6d 62 6f 6c 27 20 66 6f 72 20 66 75 72 74 68 65 72 20 69 6e 66 6f 72 6d 61 | okup-symbol'.for.further.informa |
| b180 | 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 6d 64 20 28 63 64 64 72 20 78 29 29 29 0a 20 | tion."...(let.((cmd.(cddr.x))).. |
| b1a0 | 20 20 20 28 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 28 | ...(counsel-info-lookup-symbol.( |
| b1c0 | 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 63 6d 64 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c | symbol-name.cmd))))..;;;###autol |
| b1e0 | 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 20 28 26 6f | oad.(defun.counsel-descbinds.(&o |
| b200 | 70 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 20 62 75 66 66 65 72 29 0a 20 20 22 53 68 6f 77 20 61 | ptional.prefix.buffer)..."Show.a |
| b220 | 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 64 65 66 69 6e 65 64 20 6b 65 79 73 20 61 6e 64 20 74 68 | .list.of.all.defined.keys.and.th |
| b240 | 65 69 72 20 64 65 66 69 6e 69 74 69 6f 6e 73 2e 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 73 68 6f | eir.definitions..If.non-nil,.sho |
| b260 | 77 20 6f 6e 6c 79 20 62 69 6e 64 69 6e 67 73 20 74 68 61 74 20 73 74 61 72 74 20 77 69 74 68 20 | w.only.bindings.that.start.with. |
| b280 | 50 52 45 46 49 58 2e 0a 42 55 46 46 45 52 20 64 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 63 | PREFIX..BUFFER.defaults.to.the.c |
| b2a0 | 75 72 72 65 6e 74 20 6f 6e 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | urrent.one."...(interactive)...( |
| b2c0 | 69 76 79 2d 72 65 61 64 20 22 42 69 6e 64 69 6e 67 73 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 2d | ivy-read."Bindings:.".(counsel-- |
| b2e0 | 64 65 73 63 62 69 6e 64 73 2d 63 61 6e 64 73 20 70 72 65 66 69 78 20 62 75 66 66 65 72 29 0a 20 | descbinds-cands.prefix.buffer).. |
| b300 | 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 73 | ...........:action.#'counsel-des |
| b320 | 63 62 69 6e 64 73 2d 61 63 74 69 6f 6e 2d 64 65 73 63 72 69 62 65 0a 20 20 20 20 20 20 20 20 20 | cbinds-action-describe.......... |
| b340 | 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 2d 68 | ...:history.'counsel-descbinds-h |
| b360 | 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e | istory.............:caller.'coun |
| b380 | 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 64 | sel-descbinds))..;;**.`counsel-d |
| b3a0 | 65 73 63 72 69 62 65 2d 66 61 63 65 27 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c | escribe-face'.(defcustom.counsel |
| b3c0 | 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 65 73 63 72 69 | -describe-face-function.#'descri |
| b3e0 | 62 65 2d 66 61 63 65 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 74 6f 20 64 | be-face..."Function.to.call.to.d |
| b400 | 65 73 63 72 69 62 65 20 61 20 66 61 63 65 20 6f 72 20 66 61 63 65 20 6e 61 6d 65 20 61 72 67 75 | escribe.a.face.or.face.name.argu |
| b420 | 6d 65 6e 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 | ment."...:type.'function)..(defu |
| b440 | 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 2d 61 74 2d 70 6f 69 6e 74 20 28 29 0a 20 20 22 52 | n.counsel--face-at-point.()..."R |
| b460 | 65 74 75 72 6e 20 6e 61 6d 65 20 6f 66 20 66 61 63 65 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 2e | eturn.name.of.face.around.point. |
| b480 | 0a 54 72 79 20 64 65 74 65 63 74 69 6e 67 20 61 20 66 61 63 65 20 6e 61 6d 65 20 69 6e 20 74 68 | .Try.detecting.a.face.name.in.th |
| b4a0 | 65 20 74 65 78 74 20 61 72 6f 75 6e 64 20 70 6f 69 6e 74 20 62 65 66 6f 72 65 20 66 61 6c 6c 69 | e.text.around.point.before.falli |
| b4c0 | 6e 67 0a 62 61 63 6b 20 74 6f 20 74 68 65 20 66 61 63 65 20 6f 66 20 74 68 65 20 63 68 61 72 61 | ng.back.to.the.face.of.the.chara |
| b4e0 | 63 74 65 72 20 61 66 74 65 72 20 70 6f 69 6e 74 2c 20 61 6e 64 20 66 69 6e 61 6c 6c 79 20 74 68 | cter.after.point,.and.finally.th |
| b500 | 65 0a 60 64 65 66 61 75 6c 74 27 20 66 61 63 65 2e 22 0a 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d | e.`default'.face."...(symbol-nam |
| b520 | 65 20 28 6f 72 20 28 66 61 63 65 2d 61 74 2d 70 6f 69 6e 74 20 74 29 20 27 64 65 66 61 75 6c 74 | e.(or.(face-at-point.t).'default |
| b540 | 29 29 29 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 75 6e 73 | )))..;;;###autoload.(defun.couns |
| b560 | 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 20 28 29 0a 20 20 22 43 6f 6d 70 6c 65 74 69 6f | el-describe-face.()..."Completio |
| b580 | 6e 20 66 6f 72 20 60 64 65 73 63 72 69 62 65 2d 66 61 63 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 | n.for.`describe-face'."...(inter |
| b5a0 | 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 61 63 65 3a 20 22 20 28 66 61 | active)...(ivy-read."Face:.".(fa |
| b5c0 | 63 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 | ce-list).............:require-ma |
| b5e0 | 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 66 61 63 65 | tch.t.............:history.'face |
| b600 | 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 | -name-history.............:prese |
| b620 | 6c 65 63 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 | lect.(counsel--face-at-point)... |
| b640 | 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 | ..........:action.counsel-descri |
| b660 | 62 65 2d 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 | be-face-function.............:ca |
| b680 | 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 29 29 0a 0a 28 | ller.'counsel-describe-face))..( |
| b6a0 | 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d | ivy-configure.'counsel-describe- |
| b6c0 | 66 61 63 65 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a 0a | face...:sort-fn.#'ivy-string<).. |
| b6e0 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 20 28 6e | (defun.counsel-customize-face.(n |
| b700 | 61 6d 65 29 0a 20 20 22 43 75 73 74 6f 6d 69 7a 65 20 66 61 63 65 20 77 69 74 68 20 4e 41 4d 45 | ame)..."Customize.face.with.NAME |
| b720 | 2e 22 0a 20 20 28 63 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 20 28 69 6e 74 65 72 6e 20 6e 61 6d | ."...(customize-face.(intern.nam |
| b740 | 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 75 73 74 6f 6d 69 7a 65 2d 66 | e)))..(defun.counsel-customize-f |
| b760 | 61 63 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 6e 61 6d 65 29 0a 20 20 22 43 75 73 74 6f | ace-other-window.(name)..."Custo |
| b780 | 6d 69 7a 65 20 66 61 63 65 20 77 69 74 68 20 4e 41 4d 45 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 | mize.face.with.NAME.in.another.w |
| b7a0 | 69 6e 64 6f 77 2e 22 0a 20 20 28 63 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 2d 6f 74 68 65 72 2d | indow."...(customize-face-other- |
| b7c0 | 77 69 6e 64 6f 77 20 28 69 6e 74 65 72 6e 20 6e 61 6d 65 29 29 29 0a 0a 28 64 65 63 6c 61 72 65 | window.(intern.name)))..(declare |
| b7e0 | 2d 66 75 6e 63 74 69 6f 6e 20 68 69 2d 6c 6f 63 6b 2d 73 65 74 2d 70 61 74 74 65 72 6e 20 22 68 | -function.hi-lock-set-pattern."h |
| b800 | 69 2d 6c 6f 63 6b 22 29 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 68 69 67 68 6c 69 67 68 | i-lock").(defun.counsel-highligh |
| b820 | 74 2d 77 69 74 68 2d 66 61 63 65 20 28 66 61 63 65 29 0a 20 20 22 48 69 67 68 6c 69 67 68 74 20 | t-with-face.(face)..."Highlight. |
| b840 | 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 77 69 74 68 20 46 41 43 45 2e 22 0a 20 20 28 68 69 | thing-at-point.with.FACE."...(hi |
| b860 | 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 31 29 0a 20 20 28 6c 65 74 20 28 28 74 68 69 6e 67 20 28 69 76 | -lock-mode.1)...(let.((thing.(iv |
| b880 | 79 2d 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 75 | y-thing-at-point))).....(when.(u |
| b8a0 | 73 65 2d 72 65 67 69 6f 6e 2d 70 29 0a 20 20 20 20 20 20 28 64 65 61 63 74 69 76 61 74 65 2d 6d | se-region-p).......(deactivate-m |
| b8c0 | 61 72 6b 29 29 0a 20 20 20 20 28 68 69 2d 6c 6f 63 6b 2d 73 65 74 2d 70 61 74 74 65 72 6e 20 28 | ark)).....(hi-lock-set-pattern.( |
| b8e0 | 72 65 67 65 78 70 2d 71 75 6f 74 65 20 74 68 69 6e 67 29 20 28 69 6e 74 65 72 6e 20 66 61 63 65 | regexp-quote.thing).(intern.face |
| b900 | 29 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c | ))))..(ivy-set-actions..'counsel |
| b920 | 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 0a 20 27 28 28 22 63 22 20 63 6f 75 6e 73 65 6c 2d 63 | -describe-face..'(("c".counsel-c |
| b940 | 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 20 22 63 75 73 74 6f 6d 69 7a 65 22 29 0a 20 20 20 28 22 | ustomize-face."customize")....(" |
| b960 | 43 22 20 63 6f 75 6e 73 65 6c 2d 63 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 2d 6f 74 68 65 72 2d | C".counsel-customize-face-other- |
| b980 | 77 69 6e 64 6f 77 20 22 63 75 73 74 6f 6d 69 7a 65 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 | window."customize.other.window") |
| b9a0 | 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 61 63 65 73 27 0a 28 64 65 66 76 61 72 | ))..;;**.`counsel-faces'.(defvar |
| b9c0 | 20 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 6f 72 6d 61 74 20 22 25 2d 34 30 73 20 25 73 | .counsel--faces-format."%-40s.%s |
| b9e0 | 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 6f 72 6d 61 74 | ")..(defun.counsel--faces-format |
| ba00 | 2d 66 75 6e 63 74 69 6f 6e 20 28 6e 61 6d 65 73 29 0a 20 20 22 46 6f 72 6d 61 74 20 4e 41 4d 45 | -function.(names)..."Format.NAME |
| ba20 | 53 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 | S.according.to.`counsel--faces-f |
| ba40 | 6f 72 6d 61 74 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6f 72 6d 61 74 74 65 72 0a 20 20 20 20 | ormat'."...(let.((formatter..... |
| ba60 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | .....(lambda.(name)............( |
| ba80 | 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 6f 72 6d 61 74 20 6e 61 6d | format.counsel--faces-format.nam |
| baa0 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 | e....................(propertize |
| bac0 | 20 6c 69 73 74 2d 66 61 63 65 73 2d 73 61 6d 70 6c 65 2d 74 65 78 74 0a 20 20 20 20 20 20 20 20 | .list-faces-sample-text......... |
| bae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 28 69 6e | .......................'face.(in |
| bb00 | 74 65 72 6e 20 6e 61 6d 65 29 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 2d 66 6f 72 6d 61 74 | tern.name)))))).....(ivy--format |
| bb20 | 2d 66 75 6e 63 74 69 6f 6e 2d 67 65 6e 65 72 69 63 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | -function-generic......(lambda.( |
| bb40 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6f 72 6d 61 74 74 65 72 20 | name)........(funcall.formatter. |
| bb60 | 28 69 76 79 2d 2d 61 64 64 2d 66 61 63 65 20 6e 61 6d 65 20 27 69 76 79 2d 63 75 72 72 65 6e 74 | (ivy--add-face.name.'ivy-current |
| bb80 | 2d 6d 61 74 63 68 29 29 29 0a 20 20 20 20 20 66 6f 72 6d 61 74 74 65 72 20 6e 61 6d 65 73 20 22 | -match)))......formatter.names." |
| bba0 | 5c 6e 22 29 29 29 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 | \n")))..;;;###autoload.(defun.co |
| bbc0 | 75 6e 73 65 6c 2d 66 61 63 65 73 20 28 29 0a 20 20 22 43 6f 6d 70 6c 65 74 65 20 66 61 63 65 73 | unsel-faces.()..."Complete.faces |
| bbe0 | 20 77 69 74 68 20 70 72 65 76 69 65 77 2e 0a 41 63 74 69 6f 6e 73 20 61 72 65 20 70 72 6f 76 69 | .with.preview..Actions.are.provi |
| bc00 | 64 65 64 20 62 79 20 64 65 66 61 75 6c 74 20 66 6f 72 20 64 65 73 63 72 69 62 69 6e 67 20 6f 72 | ded.by.default.for.describing.or |
| bc20 | 20 63 75 73 74 6f 6d 69 7a 69 6e 67 20 74 68 65 0a 73 65 6c 65 63 74 65 64 20 66 61 63 65 2e 22 | .customizing.the.selected.face." |
| bc40 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 73 | ...(interactive)...(let*.((names |
| bc60 | 20 28 6d 61 70 63 61 72 20 23 27 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 66 61 63 65 2d 6c 69 73 | .(mapcar.#'symbol-name.(face-lis |
| bc80 | 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 6f | t)))..........(counsel--faces-fo |
| bca0 | 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 25 2d 25 64 73 20 25 | rmat...........(format."%%-%ds.% |
| bcc0 | 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 6d | %s"...................(apply.#'m |
| bce0 | 61 78 20 30 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 6e 67 2d 77 69 64 74 68 20 6e 61 6d 65 | ax.0.(mapcar.#'string-width.name |
| bd00 | 73 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 61 63 65 3a 20 22 20 6e 61 | s))))).....(ivy-read."Face:.".na |
| bd20 | 6d 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 | mes...............:require-match |
| bd40 | 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 66 61 63 65 2d | .t...............:history.'face- |
| bd60 | 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 | name-history...............:pres |
| bd80 | 65 6c 65 63 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 | elect.(counsel--face-at-point).. |
| bda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 | .............:action.counsel-des |
| bdc0 | 63 72 69 62 65 2d 66 61 63 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | cribe-face-function............. |
| bde0 | 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 66 61 63 65 73 29 29 29 0a 0a 28 69 76 | ..:caller.'counsel-faces)))..(iv |
| be00 | 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 66 61 63 65 73 0a 20 20 3a 70 61 | y-configure.'counsel-faces...:pa |
| be20 | 72 65 6e 74 20 27 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 0a 20 20 3a 66 | rent.'counsel-describe-face...:f |
| be40 | 6f 72 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 61 63 65 73 2d 66 6f 72 6d 61 74 | ormat-fn.#'counsel--faces-format |
| be60 | 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 | -function)..(ivy-set-actions..'c |
| be80 | 6f 75 6e 73 65 6c 2d 66 61 63 65 73 0a 20 27 28 28 22 63 22 20 63 6f 75 6e 73 65 6c 2d 63 75 73 | ounsel-faces..'(("c".counsel-cus |
| bea0 | 74 6f 6d 69 7a 65 2d 66 61 63 65 20 22 63 75 73 74 6f 6d 69 7a 65 22 29 0a 20 20 20 28 22 43 22 | tomize-face."customize")....("C" |
| bec0 | 20 63 6f 75 6e 73 65 6c 2d 63 75 73 74 6f 6d 69 7a 65 2d 66 61 63 65 2d 6f 74 68 65 72 2d 77 69 | .counsel-customize-face-other-wi |
| bee0 | 6e 64 6f 77 20 22 63 75 73 74 6f 6d 69 7a 65 20 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 | ndow."customize.other.window").. |
| bf00 | 20 20 28 22 68 22 20 63 6f 75 6e 73 65 6c 2d 68 69 67 68 6c 69 67 68 74 2d 77 69 74 68 2d 66 61 | ..("h".counsel-highlight-with-fa |
| bf20 | 63 65 20 22 68 69 67 68 6c 69 67 68 74 22 29 29 29 0a 0a 3b 3b 2a 20 47 69 74 0a 3b 3b 2a 2a 20 | ce."highlight")))..;;*.Git.;;**. |
| bf40 | 60 63 6f 75 6e 73 65 6c 2d 67 69 74 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 67 69 | `counsel-git'.(defvar.counsel-gi |
| bf60 | 74 2d 63 6d 64 20 22 67 69 74 20 6c 73 2d 66 69 6c 65 73 20 2d 7a 20 2d 2d 66 75 6c 6c 2d 6e 61 | t-cmd."git.ls-files.-z.--full-na |
| bf80 | 6d 65 20 2d 2d 22 0a 20 20 22 43 6f 6d 6d 61 6e 64 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 | me.--"..."Command.for.`counsel-g |
| bfa0 | 69 74 27 2e 22 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 | it'.")..(ivy-set-actions..'couns |
| bfc0 | 65 6c 2d 67 69 74 0a 20 27 28 28 22 6a 22 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 | el-git..'(("j".find-file-other-w |
| bfe0 | 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 20 28 22 78 22 20 63 6f | indow."other.window")....("x".co |
| c000 | 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 20 22 6f 70 65 6e 20 65 78 74 | unsel-find-file-extern."open.ext |
| c020 | 65 72 6e 61 6c 6c 79 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 64 6f 6d | ernally")))..(defun.counsel--dom |
| c040 | 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 28 66 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 64 69 72 | inating-file.(file.&optional.dir |
| c060 | 29 0a 20 20 22 4c 6f 6f 6b 20 75 70 20 64 69 72 65 63 74 6f 72 79 20 68 69 65 72 61 72 63 68 79 | )..."Look.up.directory.hierarchy |
| c080 | 20 66 6f 72 20 46 49 4c 45 2c 20 73 74 61 72 74 69 6e 67 20 69 6e 20 44 49 52 2e 0a 4c 69 6b 65 | .for.FILE,.starting.in.DIR..Like |
| c0a0 | 20 60 6c 6f 63 61 74 65 2d 64 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 27 2c 20 62 75 74 20 44 | .`locate-dominating-file',.but.D |
| c0c0 | 49 52 20 64 65 66 61 75 6c 74 73 20 74 6f 0a 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 | IR.defaults.to.`default-director |
| c0e0 | 79 27 20 61 6e 64 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 69 73 20 65 78 70 61 6e | y'.and.the.return.value.is.expan |
| c100 | 64 65 64 2e 22 0a 20 20 28 61 6e 64 20 28 73 65 74 71 20 64 69 72 20 28 6c 6f 63 61 74 65 2d 64 | ded."...(and.(setq.dir.(locate-d |
| c120 | 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 28 6f 72 20 64 69 72 20 64 65 66 61 75 6c 74 2d 64 | ominating-file.(or.dir.default-d |
| c140 | 69 72 65 63 74 6f 72 79 29 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d | irectory).file))........(expand- |
| c160 | 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | file-name.dir)))..(defun.counsel |
| c180 | 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 | -locate-git-root.()..."Return.th |
| c1a0 | 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 20 63 6f 6e | e.root.of.the.Git.repository.con |
| c1c0 | 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 | taining.the.current.buffer."...( |
| c1e0 | 6f 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 28 65 72 | or.(counsel--git-root).......(er |
| c200 | 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 22 29 29 29 | ror."Not.in.a.Git.repository"))) |
| c220 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 61 6e 64 73 20 28 64 69 72 29 | ..(defun.counsel-git-cands.(dir) |
| c240 | 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 | ...(let.((default-directory.dir) |
| c260 | 29 0a 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 28 73 68 65 6c 6c 2d | ).....(split-string......(shell- |
| c280 | 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 6d | command-to-string.counsel-git-cm |
| c2a0 | 64 29 0a 20 20 20 20 20 22 5c 30 22 0a 20 20 20 20 20 74 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | d)......"\0"......t)))..(defvar. |
| c2c0 | 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f | counsel-git-history.nil..."Histo |
| c2e0 | 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 | ry.for.`counsel-git'.")..;;;###a |
| c300 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 20 28 26 6f 70 74 | utoload.(defun.counsel-git.(&opt |
| c320 | 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 46 69 6e 64 20 66 69 6c | ional.initial-input)..."Find.fil |
| c340 | 65 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e | e.in.the.current.Git.repository. |
| c360 | 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 | .INITIAL-INPUT.can.be.given.as.t |
| c380 | 68 65 20 69 6e 69 74 69 61 6c 20 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 22 0a 20 20 | he.initial.minibuffer.input."... |
| c3a0 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 | (interactive)...(counsel-require |
| c3c0 | 2d 70 72 6f 67 72 61 6d 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 6d 64 29 0a 20 20 28 6c 65 74 | -program.counsel-git-cmd)...(let |
| c3e0 | 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f | .((default-directory.(counsel-lo |
| c400 | 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 | cate-git-root))).....(ivy-read." |
| c420 | 46 69 6e 64 20 66 69 6c 65 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 61 6e 64 73 20 | Find.file:.".(counsel-git-cands. |
| c440 | 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | default-directory).............. |
| c460 | 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 | .:initial-input.initial-input... |
| c480 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 | ............:action.#'counsel-gi |
| c4a0 | 74 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 | t-action...............:history. |
| c4c0 | 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 | 'counsel-git-history............ |
| c4e0 | 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 29 29 29 0a 0a 28 69 76 79 | ...:caller.'counsel-git)))..(ivy |
| c500 | 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 0a 20 20 3a 6f 63 63 75 72 | -configure.'counsel-git...:occur |
| c520 | 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6f 63 63 75 72 29 0a 0a 28 64 65 66 75 6e 20 63 6f | .#'counsel-git-occur)..(defun.co |
| c540 | 75 6e 73 65 6c 2d 67 69 74 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 46 69 6e 64 20 66 69 6c | unsel-git-action.(x)..."Find.fil |
| c560 | 65 20 58 20 69 6e 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e 22 0a | e.X.in.current.Git.repository.". |
| c580 | 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 | ..(with-ivy-window.....(let.((de |
| c5a0 | 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 | fault-directory.(ivy-state-direc |
| c5c0 | 74 6f 72 79 20 69 76 79 2d 6c 61 73 74 29 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c | tory.ivy-last))).......(find-fil |
| c5e0 | 65 20 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6f 63 63 75 | e.x))))..(defun.counsel-git-occu |
| c600 | 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 22 4f 63 63 75 72 20 66 75 | r.(&optional._cands)..."Occur.fu |
| c620 | 6e 63 74 69 6f 6e 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 27 20 75 73 69 6e 67 20 60 | nction.for.`counsel-git'.using.` |
| c640 | 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 27 2e 22 0a 20 20 28 63 64 20 28 69 | counsel-cmd-to-dired'."...(cd.(i |
| c660 | 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 73 74 29 29 0a 20 20 | vy-state-directory.ivy-last))... |
| c680 | 28 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 0a 20 20 20 28 63 6f 75 6e 73 65 | (counsel-cmd-to-dired....(counse |
| c6a0 | 6c 2d 2d 65 78 70 61 6e 64 2d 6c 73 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 7c 20 25 | l--expand-ls.....(format."%s.|.% |
| c6c0 | 73 20 7c 20 78 61 72 67 73 20 6c 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 | s.|.xargs.ls".............(repla |
| c6e0 | 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 28 2d 30 5c 5c 29 5c 5c 7c | ce-regexp-in-string."\\(-0\\)\\| |
| c700 | 5c 5c 28 2d 7a 5c 5c 29 22 20 22 22 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 6d 64 29 0a 20 20 | \\(-z\\)"."".counsel-git-cmd)... |
| c720 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6c 65 2d 6e 61 6d 65 2d 66 69 | ..........(counsel--file-name-fi |
| c740 | 6c 74 65 72 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 | lter)))))..(defvar.counsel-dired |
| c760 | 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 20 22 2d 61 6c 68 22 0a 20 20 22 53 77 69 74 | -listing-switches."-alh"..."Swit |
| c780 | 63 68 65 73 20 70 61 73 73 65 64 20 74 6f 20 60 6c 73 27 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c | ches.passed.to.`ls'.for.`counsel |
| c7a0 | 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | -cmd-to-dired'.")..(defun.counse |
| c7c0 | 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 20 28 66 75 6c 6c 2d 63 6d 64 20 26 6f 70 74 69 6f 6e | l-cmd-to-dired.(full-cmd.&option |
| c7e0 | 61 6c 20 66 69 6c 74 65 72 29 0a 20 20 22 41 64 61 70 74 65 64 20 66 72 6f 6d 20 60 66 69 6e 64 | al.filter)..."Adapted.from.`find |
| c800 | 2d 64 69 72 65 64 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d | -dired'."...(let.((inhibit-read- |
| c820 | 6f 6e 6c 79 20 74 29 29 0a 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 | only.t)).....(erase-buffer)..... |
| c840 | 28 64 69 72 65 64 2d 6d 6f 64 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 63 6f | (dired-mode.default-directory.co |
| c860 | 75 6e 73 65 6c 2d 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 29 0a 20 20 | unsel-dired-listing-switches)... |
| c880 | 20 20 28 69 6e 73 65 72 74 20 22 20 20 22 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 | ..(insert."..".default-directory |
| c8a0 | 20 22 3a 5c 6e 22 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 | .":\n").....(let.((point.(point) |
| c8c0 | 29 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 20 22 20 66 75 6c 6c 2d 63 6d 64 20 22 | )).......(insert."..".full-cmd." |
| c8e0 | 5c 6e 22 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 73 65 74 2d 70 72 6f | \n").......(dired-insert-set-pro |
| c900 | 70 65 72 74 69 65 73 20 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 73 65 74 | perties.point.(point))).....(set |
| c920 | 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 6f 72 74 2d 69 6e 68 69 62 69 74 20 74 29 0a 20 20 | q-local.dired-sort-inhibit.t)... |
| c940 | 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 | ..(setq-local.revert-buffer-func |
| c960 | 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 5f 31 | tion.................(lambda.(_1 |
| c980 | 20 5f 32 29 20 28 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 20 66 75 6c 6c 2d | ._2).(counsel-cmd-to-dired.full- |
| c9a0 | 63 6d 64 29 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 75 62 | cmd))).....(setq-local.dired-sub |
| c9c0 | 64 69 72 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | dir-alist.................(list. |
| c9e0 | 28 63 6f 6e 73 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 70 6f 69 6e 74 2d 6d | (cons.default-directory.(point-m |
| ca00 | 69 6e 2d 6d 61 72 6b 65 72 29 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 73 | in-marker)))).....(let.((proc.(s |
| ca20 | 74 61 72 74 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 | tart-process-shell-command...... |
| ca40 | 20 20 20 20 20 20 20 20 20 20 20 20 22 63 6f 75 6e 73 65 6c 2d 63 6d 64 22 20 28 63 75 72 72 65 | ............"counsel-cmd".(curre |
| ca60 | 6e 74 2d 62 75 66 66 65 72 29 20 66 75 6c 6c 2d 63 6d 64 29 29 29 0a 20 20 20 20 20 20 28 73 65 | nt-buffer).full-cmd))).......(se |
| ca80 | 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 70 72 6f 63 20 66 69 6c 74 65 72 29 0a 20 20 | t-process-filter.proc.filter)... |
| caa0 | 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 20 | ....(set-process-sentinel....... |
| cac0 | 20 70 72 6f 63 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 63 65 73 73 20 5f 6d | .proc........(lambda.(process._m |
| cae0 | 73 67 29 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 28 70 72 6f | sg)..........(when.(and.(eq.(pro |
| cb00 | 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 20 27 65 78 69 74 29 0a 20 20 20 20 | cess-status.process).'exit)..... |
| cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 7a 65 72 6f 70 20 28 70 72 6f 63 65 73 73 2d | ................(zerop.(process- |
| cb40 | 65 78 69 74 2d 73 74 61 74 75 73 20 70 72 6f 63 65 73 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 | exit-status.process))).......... |
| cb60 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 | ..(goto-char.(point-min))....... |
| cb80 | 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 | .....(forward-line.2)........... |
| cba0 | 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 29 29 29 29 29 0a | .(dired-move-to-filename))))))). |
| cbc0 | 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 27 0a 28 64 65 66 76 61 72 | .;;**.`counsel-git-grep'.(defvar |
| cbe0 | 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d | .counsel-git-grep-map...(let.((m |
| cc00 | 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 | ap.(make-sparse-keymap))).....(d |
| cc20 | 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6c 22 29 20 23 27 69 76 79 2d | efine-key.map.(kbd."C-l").#'ivy- |
| cc40 | 63 61 6c 6c 2d 61 6e 64 2d 72 65 63 65 6e 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b | call-and-recenter).....(define-k |
| cc60 | 65 79 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 71 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 | ey.map.(kbd."M-q").#'counsel-git |
| cc80 | 2d 67 72 65 70 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 | -grep-query-replace).....(define |
| cca0 | 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 63 20 43 2d 6d 22 29 20 23 27 63 6f 75 6e 73 | -key.map.(kbd."C-c.C-m").#'couns |
| ccc0 | 65 6c 2d 67 69 74 2d 67 72 65 70 2d 73 77 69 74 63 68 2d 63 6d 64 29 0a 20 20 20 20 28 64 65 66 | el-git-grep-switch-cmd).....(def |
| cce0 | 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 78 20 43 2d 64 22 29 20 23 27 63 6f | ine-key.map.(kbd."C-x.C-d").#'co |
| cd00 | 75 6e 73 65 6c 2d 63 64 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 | unsel-cd).....map))..(defvar.cou |
| cd20 | 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 64 65 66 61 75 6c 74 20 22 67 69 74 20 2d | nsel-git-grep-cmd-default."git.- |
| cd40 | 2d 6e 6f 2d 70 61 67 65 72 20 67 72 65 70 20 2d 6e 20 2d 2d 6e 6f 2d 63 6f 6c 6f 72 20 2d 49 20 | -no-pager.grep.-n.--no-color.-I. |
| cd60 | 2d 65 20 5c 22 25 73 5c 22 22 0a 20 20 22 49 6e 69 74 69 61 6c 20 63 6f 6d 6d 61 6e 64 20 66 6f | -e.\"%s\""..."Initial.command.fo |
| cd80 | 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 | r.`counsel-git-grep'.")..(defvar |
| cda0 | 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 20 6e 69 6c 0a 20 20 22 53 74 6f | .counsel-git-grep-cmd.nil..."Sto |
| cdc0 | 72 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d | re.the.command.for.`counsel-git- |
| cde0 | 67 72 65 70 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 | grep'.")..(defvar.counsel-git-gr |
| ce00 | 65 70 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 | ep-history.nil..."History.for.`c |
| ce20 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 | ounsel-git-grep'.")..(defvar.cou |
| ce40 | 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 28 6c 69 73 | nsel-git-grep-cmd-history...(lis |
| ce60 | 74 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 64 65 66 61 75 6c 74 29 0a | t.counsel-git-grep-cmd-default). |
| ce80 | 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 | .."History.for.`counsel-git-grep |
| cea0 | 27 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | '.shell.commands.")..(defcustom. |
| cec0 | 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 70 6f 73 74 2d 61 63 74 69 6f 6e 2d 68 6f 6f 6b 20 6e 69 | counsel-grep-post-action-hook.ni |
| cee0 | 6c 0a 20 20 22 48 6f 6f 6b 20 74 68 61 74 20 72 75 6e 73 20 61 66 74 65 72 20 74 68 65 20 70 6f | l..."Hook.that.runs.after.the.po |
| cf00 | 69 6e 74 20 6d 6f 76 65 73 20 74 6f 20 74 68 65 20 6e 65 78 74 20 63 61 6e 64 69 64 61 74 65 2e | int.moves.to.the.next.candidate. |
| cf20 | 0a 41 20 74 79 70 69 63 61 6c 20 65 78 61 6d 70 6c 65 20 6f 66 20 77 68 61 74 20 74 6f 20 61 64 | .A.typical.example.of.what.to.ad |
| cf40 | 64 20 74 6f 20 74 68 69 73 20 68 6f 6f 6b 20 69 73 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 0a 60 | d.to.this.hook.is.the.function.` |
| cf60 | 72 65 63 65 6e 74 65 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 68 6f 6f 6b 0a 20 20 3a 6f 70 74 | recenter'."...:type.'hook...:opt |
| cf80 | 69 6f 6e 73 20 27 28 72 65 63 65 6e 74 65 72 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f | ions.'(recenter))..(defcustom.co |
| cfa0 | 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 66 75 6e 63 74 69 6f 6e 20 23 27 63 6f | unsel-git-grep-cmd-function.#'co |
| cfc0 | 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 66 61 | unsel-git-grep-cmd-function-defa |
| cfe0 | 75 6c 74 0a 20 20 22 48 6f 77 20 61 20 67 69 74 2d 67 72 65 70 20 73 68 65 6c 6c 20 63 61 6c 6c | ult..."How.a.git-grep.shell.call |
| d000 | 20 69 73 20 62 75 69 6c 74 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 2e 0a 54 68 69 73 20 66 | .is.built.from.the.input..This.f |
| d020 | 75 6e 63 74 69 6f 6e 20 73 68 6f 75 6c 64 20 73 65 74 20 60 69 76 79 2d 2d 6f 6c 64 2d 72 65 27 | unction.should.set.`ivy--old-re' |
| d040 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 61 64 69 6f 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 | ."...:type.'(radio...........(fu |
| d060 | 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 | nction-item.counsel-git-grep-cmd |
| d080 | 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 | -function-default)...........(fu |
| d0a0 | 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 | nction-item.counsel-git-grep-cmd |
| d0c0 | 2d 66 75 6e 63 74 69 6f 6e 2d 69 67 6e 6f 72 65 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 20 20 | -function-ignore-order)......... |
| d0e0 | 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 4f 74 68 65 72 22 29 29 29 0a 0a 28 64 65 | ..(function.:tag."Other")))..(de |
| d100 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 66 75 6e 63 74 69 6f | fun.counsel-git-grep-cmd-functio |
| d120 | 6e 2d 64 65 66 61 75 6c 74 20 28 73 74 72 29 0a 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 | n-default.(str)...(format.counse |
| d140 | 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 | l-git-grep-cmd...........(setq.i |
| d160 | 76 79 2d 2d 6f 6c 64 2d 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 | vy--old-re.................(if.( |
| d180 | 65 71 20 69 76 79 2d 2d 72 65 67 65 78 2d 66 75 6e 63 74 69 6f 6e 20 23 27 69 76 79 2d 2d 72 65 | eq.ivy--regex-function.#'ivy--re |
| d1a0 | 67 65 78 2d 66 75 7a 7a 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | gex-fuzzy).....................( |
| d1c0 | 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 | replace-regexp-in-string........ |
| d1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 20 22 22 20 28 69 76 79 2d 2d 72 65 67 65 | .............."\n"."".(ivy--rege |
| d200 | 78 2d 66 75 7a 7a 79 20 73 74 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | x-fuzzy.str))................... |
| d220 | 28 69 76 79 2d 2d 72 65 67 65 78 20 73 74 72 20 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | (ivy--regex.str.t)))))..(defun.c |
| d240 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 66 75 6e 63 74 69 6f 6e 2d 69 67 6e | ounsel-git-grep-cmd-function-ign |
| d260 | 6f 72 65 2d 6f 72 64 65 72 20 28 73 74 72 29 0a 20 20 28 73 65 74 71 20 69 76 79 2d 2d 6f 6c 64 | ore-order.(str)...(setq.ivy--old |
| d280 | 2d 72 65 20 28 69 76 79 2d 2d 72 65 67 65 78 20 73 74 72 20 74 29 29 0a 20 20 28 6c 65 74 20 28 | -re.(ivy--regex.str.t))...(let.( |
| d2a0 | 28 70 61 72 74 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 73 74 72 20 22 20 22 20 74 29 29 | (parts.(split-string.str.".".t)) |
| d2c0 | 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 22 67 69 74 20 2d 2d 6e 6f 2d 70 61 67 | ).....(concat......"git.--no-pag |
| d2e0 | 65 72 20 67 72 65 70 20 2d 2d 66 75 6c 6c 2d 6e 61 6d 65 20 2d 6e 20 2d 2d 6e 6f 2d 63 6f 6c 6f | er.grep.--full-name.-n.--no-colo |
| d300 | 72 20 2d 69 20 2d 65 20 22 0a 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 73 68 65 6c | r.-i.-e."......(mapconcat.#'shel |
| d320 | 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 70 61 72 74 73 20 22 20 2d 2d 61 6e 64 20 2d | l-quote-argument.parts.".--and.- |
| d340 | 65 20 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 | e."))))..(defun.counsel-git-grep |
| d360 | 2d 66 75 6e 63 74 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 22 47 72 65 70 20 69 6e 20 74 68 | -function.(string)..."Grep.in.th |
| d380 | 65 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 20 66 6f 72 20 53 54 52 | e.current.Git.repository.for.STR |
| d3a0 | 49 4e 47 2e 22 0a 20 20 28 6f 72 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a | ING."...(or....(ivy-more-chars). |
| d3c0 | 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 | ...(progn......(counsel--async-c |
| d3e0 | 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 28 66 75 6e | ommand.......(concat........(fun |
| d400 | 63 61 6c 6c 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 66 75 6e 63 74 69 | call.counsel-git-grep-cmd-functi |
| d420 | 6f 6e 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 69 76 79 2d 2d 63 61 73 65 | on.string)........(if.(ivy--case |
| d440 | 2d 66 6f 6c 64 2d 70 20 73 74 72 69 6e 67 29 20 22 20 2d 69 22 20 22 22 29 29 29 0a 20 20 20 20 | -fold-p.string).".-i"."")))..... |
| d460 | 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 | .nil)))..(defun.counsel-git-grep |
| d480 | 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 47 6f 20 74 6f 20 6f 63 63 75 72 72 65 6e 63 65 20 | -action.(x)..."Go.to.occurrence. |
| d4a0 | 58 20 69 6e 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e 22 0a 20 20 | X.in.current.Git.repository."... |
| d4c0 | 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 2e 2a 3f 5c 5c | (when.(string-match."\\`\\(.*?\\ |
| d4e0 | 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 20 78 29 0a 20 | ):\\([0-9]+\\):\\(.*\\)\\'".x).. |
| d500 | 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e | ...(let.((file-name.(match-strin |
| d520 | 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 | g-no-properties.1.x))........... |
| d540 | 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 | (line-number.(match-string-no-pr |
| d560 | 6f 70 65 72 74 69 65 73 20 32 20 78 29 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 | operties.2.x))).......(find-file |
| d580 | 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(expand-file-name.............. |
| d5a0 | 20 20 20 20 20 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....file-name.................. |
| d5c0 | 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 73 74 29 29 | .(ivy-state-directory.ivy-last)) |
| d5e0 | 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a | ).......(goto-char.(point-min)). |
| d600 | 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 28 73 74 72 69 6e 67 2d | ......(forward-line.(1-.(string- |
| d620 | 74 6f 2d 6e 75 6d 62 65 72 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 28 | to-number.line-number))).......( |
| d640 | 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 69 76 79 2d 2d 72 65 | when.(re-search-forward.(ivy--re |
| d660 | 67 65 78 20 69 76 79 2d 74 65 78 74 20 74 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 | gex.ivy-text.t).(line-end-positi |
| d680 | 6f 6e 29 20 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 77 69 70 65 72 2d 67 6f 74 6f | on).t).........(when.swiper-goto |
| d6a0 | 2d 73 74 61 72 74 2d 6f 66 2d 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d | -start-of-match...........(goto- |
| d6c0 | 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 29 0a 20 20 20 20 | char.(match-beginning.0))))..... |
| d6e0 | 20 20 28 73 77 69 70 65 72 2d 2d 65 6e 73 75 72 65 2d 76 69 73 69 62 6c 65 29 0a 20 20 20 20 20 | ..(swiper--ensure-visible)...... |
| d700 | 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 70 6f 73 74 2d 61 | .(run-hooks.'counsel-grep-post-a |
| d720 | 63 74 69 6f 6e 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 69 76 | ction-hook).......(unless.(eq.iv |
| d740 | 79 2d 65 78 69 74 20 27 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 28 73 77 69 70 65 72 2d 2d 63 | y-exit.'done).........(swiper--c |
| d760 | 6c 65 61 6e 75 70 29 0a 20 20 20 20 20 20 20 20 28 73 77 69 70 65 72 2d 2d 61 64 64 2d 6f 76 65 | leanup).........(swiper--add-ove |
| d780 | 72 6c 61 79 73 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 76 79 2d 74 65 78 74 29 29 29 29 29 29 | rlays.(ivy--regex.ivy-text)))))) |
| d7a0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 74 72 61 6e 73 66 | ..(defun.counsel-git-grep-transf |
| d7c0 | 6f 72 6d 65 72 20 28 73 74 72 29 0a 20 20 22 48 69 67 68 6c 69 67 68 74 20 66 69 6c 65 20 61 6e | ormer.(str)..."Highlight.file.an |
| d7e0 | 64 20 6c 69 6e 65 20 6e 75 6d 62 65 72 20 69 6e 20 53 54 52 2e 22 0a 20 20 28 77 68 65 6e 20 28 | d.line.number.in.STR."...(when.( |
| d800 | 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 5b 5e 3a 5d 2b 5c 5c 29 3a 5c 5c 28 | string-match."\\`\\([^:]+\\):\\( |
| d820 | 5b 5e 3a 5d 2b 5c 5c 29 3a 22 20 73 74 72 29 0a 20 20 20 20 28 61 64 64 2d 66 61 63 65 2d 74 65 | [^:]+\\):".str).....(add-face-te |
| d840 | 78 74 2d 70 72 6f 70 65 72 74 79 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 20 | xt-property.(match-beginning.1). |
| d860 | 28 6d 61 74 63 68 2d 65 6e 64 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (match-end.1)................... |
| d880 | 20 20 20 20 20 20 20 20 20 20 27 69 76 79 2d 67 72 65 70 2d 69 6e 66 6f 20 6e 69 6c 20 73 74 72 | ..........'ivy-grep-info.nil.str |
| d8a0 | 29 0a 20 20 20 20 28 61 64 64 2d 66 61 63 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 28 6d | ).....(add-face-text-property.(m |
| d8c0 | 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 32 29 20 28 6d 61 74 63 68 2d 65 6e 64 20 32 29 0a | atch-beginning.2).(match-end.2). |
| d8e0 | 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 27 69 76 79 | ............................'ivy |
| d900 | 2d 67 72 65 70 2d 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 6e 69 6c 20 73 74 72 29 29 0a 20 20 73 74 | -grep-line-number.nil.str))...st |
| d920 | 72 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 70 72 6f | r)..(defvar.counsel-git-grep-pro |
| d940 | 6a 65 63 74 73 2d 61 6c 69 73 74 20 6e 69 6c 0a 20 20 22 41 6e 20 61 6c 69 73 74 20 6f 66 20 70 | jects-alist.nil..."An.alist.of.p |
| d960 | 72 6f 6a 65 63 74 20 64 69 72 65 63 74 6f 72 79 20 74 6f 20 5c 22 67 69 74 2d 67 72 65 70 5c 22 | roject.directory.to.\"git-grep\" |
| d980 | 20 63 6f 6d 6d 61 6e 64 2e 0a 41 6c 6c 6f 77 73 20 74 6f 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c | .command..Allows.to.automaticall |
| d9a0 | 79 20 75 73 65 20 61 20 63 75 73 74 6f 6d 20 5c 22 67 69 74 2d 67 72 65 70 5c 22 20 63 6f 6d 6d | y.use.a.custom.\"git-grep\".comm |
| d9c0 | 61 6e 64 20 66 6f 72 20 61 6c 6c 0a 66 69 6c 65 73 20 69 6e 20 61 20 70 72 6f 6a 65 63 74 2e 22 | and.for.all.files.in.a.project." |
| d9e0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d | )..(defun.counsel--git-grep-cmd- |
| da00 | 61 6e 64 2d 70 72 6f 6a 20 28 63 6d 64 29 0a 20 20 28 6c 65 74 20 28 28 64 64 20 28 65 78 70 61 | and-proj.(cmd)...(let.((dd.(expa |
| da20 | 6e 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 | nd-file-name.default-directory)) |
| da40 | 0a 20 20 20 20 20 20 20 20 70 72 6f 6a 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 | .........proj).....(cond.......( |
| da60 | 28 73 74 72 69 6e 67 70 20 63 6d 64 29 29 0a 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 70 72 | (stringp.cmd)).......(current-pr |
| da80 | 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 28 69 66 20 28 73 65 74 71 20 70 72 6f 6a 0a 20 | efix-arg........(if.(setq.proj.. |
| daa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 6e 64 2d 69 66 0a 20 20 20 20 | ................(cl-find-if..... |
| dac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 | ..............(lambda.(x)....... |
| dae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 28 63 61 72 | ..............(string-match.(car |
| db00 | 20 78 29 20 64 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 | .x).dd))...................couns |
| db20 | 65 6c 2d 67 69 74 2d 67 72 65 70 2d 70 72 6f 6a 65 63 74 73 2d 61 6c 69 73 74 29 29 0a 20 20 20 | el-git-grep-projects-alist)).... |
| db40 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6d 64 20 28 63 64 72 20 70 72 6f 6a 29 29 0a 20 20 | ........(setq.cmd.(cdr.proj))... |
| db60 | 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6d 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(setq.cmd................ |
| db80 | 28 69 76 79 2d 72 65 61 64 20 22 63 6d 64 3a 20 22 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 | (ivy-read."cmd:.".counsel-git-gr |
| dba0 | 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ep-cmd-history.................. |
| dbc0 | 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 | ........:history.'counsel-git-gr |
| dbe0 | 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ep-cmd-history.................. |
| dc00 | 20 20 20 20 20 20 20 20 3a 72 65 2d 62 75 69 6c 64 65 72 20 23 27 69 76 79 2d 2d 72 65 67 65 78 | ........:re-builder.#'ivy--regex |
| dc20 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 | ))..........(setq.counsel-git-gr |
| dc40 | 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | ep-cmd-history................(d |
| dc60 | 65 6c 65 74 65 2d 64 75 70 73 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d | elete-dups.counsel-git-grep-cmd- |
| dc80 | 68 69 73 74 6f 72 79 29 29 29 29 0a 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 28 73 65 74 | history)))).......(t........(set |
| dca0 | 71 20 63 6d 64 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 64 65 66 61 75 | q.cmd.counsel-git-grep-cmd-defau |
| dcc0 | 6c 74 29 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 70 72 6f 6a 20 63 6d 64 29 29 29 0a 0a 28 64 65 | lt))).....(cons.proj.cmd)))..(de |
| dce0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 63 61 6c 6c 20 28 63 6f 6d 6d 61 6e 64 20 26 6f 70 74 69 | fun.counsel--call.(command.&opti |
| dd00 | 6f 6e 61 6c 20 72 65 73 75 6c 74 2d 66 6e 29 0a 20 20 22 53 79 6e 63 68 72 6f 6e 6f 75 73 6c 79 | onal.result-fn)..."Synchronously |
| dd20 | 20 63 61 6c 6c 20 43 4f 4d 4d 41 4e 44 20 61 6e 64 20 72 65 74 75 72 6e 20 69 74 73 20 6f 75 74 | .call.COMMAND.and.return.its.out |
| dd40 | 70 75 74 20 61 73 20 61 20 73 74 72 69 6e 67 2e 0a 43 4f 4d 4d 41 4e 44 20 63 6f 6d 70 72 69 73 | put.as.a.string..COMMAND.compris |
| dd60 | 65 73 20 74 68 65 20 70 72 6f 67 72 61 6d 20 6e 61 6d 65 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 | es.the.program.name.followed.by. |
| dd80 | 69 74 73 20 61 72 67 75 6d 65 6e 74 73 2c 20 61 73 0a 69 6e 20 60 6d 61 6b 65 2d 70 72 6f 63 65 | its.arguments,.as.in.`make-proce |
| dda0 | 73 73 27 2e 20 20 53 69 67 6e 61 6c 20 60 66 69 6c 65 2d 65 72 72 6f 72 27 20 61 6e 64 20 65 6d | ss'...Signal.`file-error'.and.em |
| ddc0 | 69 74 20 61 20 77 61 72 6e 69 6e 67 20 69 66 0a 43 4f 4d 4d 41 4e 44 20 66 61 69 6c 73 2e 20 20 | it.a.warning.if.COMMAND.fails... |
| dde0 | 4f 62 65 79 20 66 69 6c 65 20 68 61 6e 64 6c 65 72 73 20 62 61 73 65 64 20 6f 6e 20 60 64 65 66 | Obey.file.handlers.based.on.`def |
| de00 | 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 0a 4f 6e 20 73 75 63 63 65 73 73 2c 20 52 45 53 | ault-directory'..On.success,.RES |
| de20 | 55 4c 54 2d 46 4e 20 69 73 20 63 61 6c 6c 65 64 20 69 6e 20 6f 75 74 70 75 74 20 62 75 66 66 65 | ULT-FN.is.called.in.output.buffe |
| de40 | 72 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 | r.with.no.arguments."...(let.((s |
| de60 | 74 64 65 72 72 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 66 69 6c 65 20 22 63 6f 75 6e 73 65 6c 2d 63 | tderr.(make-temp-file."counsel-c |
| de80 | 61 6c 6c 2d 73 74 64 65 72 72 2d 22 29 29 0a 20 20 20 20 20 20 20 20 73 74 61 74 75 73 29 0a 20 | all-stderr-")).........status).. |
| dea0 | 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 | ...(unwind-protect..........(wit |
| dec0 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 | h-temp-buffer............(setq.s |
| dee0 | 74 61 74 75 73 20 28 61 70 70 6c 79 20 23 27 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 28 63 61 72 | tatus.(apply.#'process-file.(car |
| df00 | 20 63 6f 6d 6d 61 6e 64 29 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .command).nil................... |
| df20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 74 20 73 74 64 65 72 72 29 20 6e 69 6c | .............(list.t.stderr).nil |
| df40 | 20 28 63 64 72 20 63 6f 6d 6d 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | .(cdr.command)))............(if. |
| df60 | 28 65 71 20 73 74 61 74 75 73 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 | (eq.status.0)................(if |
| df80 | 20 72 65 73 75 6c 74 2d 66 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | .result-fn....................(f |
| dfa0 | 75 6e 63 61 6c 6c 20 72 65 73 75 6c 74 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uncall.result-fn)............... |
| dfc0 | 20 20 20 3b 3b 20 52 65 74 75 72 6e 20 61 6c 6c 20 6f 75 74 70 75 74 20 65 78 63 65 70 74 20 74 | ...;;.Return.all.output.except.t |
| dfe0 | 72 61 69 6c 69 6e 67 20 6e 65 77 6c 69 6e 65 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | railing.newline................. |
| e000 | 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a | ..(buffer-substring.(point-min). |
| e020 | 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 | ................................ |
| e040 | 20 20 20 28 2d 20 28 70 6f 69 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(-.(point)................... |
| e060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 62 6f 62 | ....................(if.(eq.(bob |
| e080 | 70 29 20 28 62 6f 6c 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | p).(bolp))...................... |
| e0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 0a 20 20 20 20 20 20 20 20 20 | .....................0.......... |
| e0c0 | 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 31 | ...............................1 |
| e0e0 | 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 6e 76 65 72 74 20 70 72 6f | ))))..............;;.Convert.pro |
| e100 | 63 65 73 73 20 73 74 61 74 75 73 20 69 6e 74 6f 20 65 72 72 6f 72 20 6c 69 73 74 2e 0a 20 20 20 | cess.status.into.error.list..... |
| e120 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 61 74 75 73 20 28 6c 69 73 74 20 27 66 69 | ..........(setq.status.(list.'fi |
| e140 | 6c 65 2d 65 72 72 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-error........................ |
| e160 | 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 60 | .........(mapconcat.#'identity.` |
| e180 | 28 2c 40 63 6f 6d 6d 61 6e 64 20 22 66 61 69 6c 65 64 22 29 20 22 20 22 29 0a 20 20 20 20 20 20 | (,@command."failed").".")....... |
| e1a0 | 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 73 74 61 74 75 73 | ..........................status |
| e1c0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 50 72 69 6e 74 20 73 74 64 65 72 72 20 | ))..............;;.Print.stderr. |
| e1e0 | 63 6f 6e 74 65 6e 74 73 2c 20 69 66 20 61 6e 79 2c 20 74 6f 20 2a 57 61 72 6e 69 6e 67 73 2a 20 | contents,.if.any,.to.*Warnings*. |
| e200 | 62 75 66 66 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 73 67 20 | buffer...............(let.((msg. |
| e220 | 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 | (condition-case.err............. |
| e240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 7a 65 72 6f 70 20 28 | ................(unless.(zerop.( |
| e260 | 63 61 64 72 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 0a 20 20 20 20 20 | cadr.(insert-file-contents...... |
| e280 | 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 | ................................ |
| e2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 64 65 72 72 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 | .............stderr.nil.nil.nil. |
| e2c0 | 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 20 20 20 20 20 | t)))............................ |
| e2e0 | 20 20 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...(buffer-string))............. |
| e300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 65 72 72 6f 72 2d 6d 65 73 73 | ..............(error.(error-mess |
| e320 | 61 67 65 2d 73 74 72 69 6e 67 20 65 72 72 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | age-string.err)))))............. |
| e340 | 20 20 20 28 6c 77 61 72 6e 20 27 69 76 79 20 3a 77 61 72 6e 69 6e 67 20 22 25 73 22 20 28 61 70 | ...(lwarn.'ivy.:warning."%s".(ap |
| e360 | 70 6c 79 20 23 27 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ply.#'concat.................... |
| e380 | 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 65 72 | .............................(er |
| e3a0 | 72 6f 72 2d 6d 65 73 73 61 67 65 2d 73 74 72 69 6e 67 20 73 74 61 74 75 73 29 0a 20 20 20 20 20 | ror-message-string.status)...... |
| e3c0 | 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 | ................................ |
| e3e0 | 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 6d 73 67 20 28 6c 69 73 74 20 22 5c 6e 22 20 6d | ...........(and.msg.(list."\n".m |
| e400 | 73 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 69 67 6e 61 6c 20 60 | sg)))))..............;;.Signal.` |
| e420 | 66 69 6c 65 2d 65 72 72 6f 72 27 20 77 69 74 68 20 70 72 6f 63 65 73 73 20 73 74 61 74 75 73 2e | file-error'.with.process.status. |
| e440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 67 6e 61 6c 20 28 63 61 72 20 73 74 61 74 75 | ..............(signal.(car.statu |
| e460 | 73 29 20 28 63 64 72 20 73 74 61 74 75 73 29 29 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 | s).(cdr.status)))).......(delete |
| e480 | 2d 66 69 6c 65 20 73 74 64 65 72 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | -file.stderr))))..(defun.counsel |
| e4a0 | 2d 2d 63 6f 6d 6d 61 6e 64 20 28 26 72 65 73 74 20 63 6f 6d 6d 61 6e 64 29 0a 20 20 22 46 6f 72 | --command.(&rest.command)..."For |
| e4c0 | 77 61 72 64 20 43 4f 4d 4d 41 4e 44 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 2d 63 61 6c 6c 27 2e | ward.COMMAND.to.`counsel--call'. |
| e4e0 | 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 61 6c 6c 20 63 6f 6d 6d 61 6e 64 29 29 0a 0a 28 64 | "...(counsel--call.command))..(d |
| e500 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 75 6e 77 69 6e 64 20 28 29 0a 20 20 28 | efun.counsel--grep-unwind.()...( |
| e520 | 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 29 0a 20 20 28 73 77 69 70 65 | counsel-delete-process)...(swipe |
| e540 | 72 2d 2d 63 6c 65 61 6e 75 70 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 | r--cleanup))..;;;###autoload.(de |
| e560 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | fun.counsel-git-grep.(&optional. |
| e580 | 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 | initial-input.initial-directory. |
| e5a0 | 63 6d 64 29 0a 20 20 22 47 72 65 70 20 66 6f 72 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 | cmd)..."Grep.for.a.string.in.the |
| e5c0 | 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e 0a 49 4e 49 54 49 41 4c | .current.Git.repository..INITIAL |
| e5e0 | 2d 49 4e 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 | -INPUT.can.be.given.as.the.initi |
| e600 | 61 6c 20 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 52 | al.minibuffer.input..INITIAL-DIR |
| e620 | 45 43 54 4f 52 59 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 74 | ECTORY,.if.non-nil,.is.used.as.t |
| e640 | 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 0a 57 68 | he.root.directory.for.search..Wh |
| e660 | 65 6e 20 43 4d 44 20 69 73 20 61 20 73 74 72 69 6e 67 2c 20 75 73 65 20 69 74 20 61 73 20 61 20 | en.CMD.is.a.string,.use.it.as.a. |
| e680 | 5c 22 67 69 74 20 67 72 65 70 5c 22 20 63 6f 6d 6d 61 6e 64 2e 0a 57 68 65 6e 20 43 4d 44 20 69 | \"git.grep\".command..When.CMD.i |
| e6a0 | 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 70 72 6f 6d 70 74 20 66 6f 72 20 61 20 73 70 65 63 69 66 69 63 | s.non-nil,.prompt.for.a.specific |
| e6c0 | 20 5c 22 67 69 74 20 67 72 65 70 5c 22 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 | .\"git.grep\".command."...(inter |
| e6e0 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 6a 2d 61 6e 64 2d 63 6d 64 20 28 63 | active)...(let.((proj-and-cmd.(c |
| e700 | 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 61 6e 64 2d 70 72 6f 6a 20 63 6d | ounsel--git-grep-cmd-and-proj.cm |
| e720 | 64 29 29 0a 20 20 20 20 20 20 20 20 70 72 6f 6a 29 0a 20 20 20 20 28 73 65 74 71 20 70 72 6f 6a | d)).........proj).....(setq.proj |
| e740 | 20 28 63 61 72 20 70 72 6f 6a 2d 61 6e 64 2d 63 6d 64 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 | .(car.proj-and-cmd)).....(setq.c |
| e760 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 20 28 63 64 72 20 70 72 6f 6a 2d 61 6e | ounsel-git-grep-cmd.(cdr.proj-an |
| e780 | 64 2d 63 6d 64 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f | d-cmd)).....(counsel-require-pro |
| e7a0 | 67 72 61 6d 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 29 0a 20 20 20 20 28 | gram.counsel-git-grep-cmd).....( |
| e7c0 | 6c 65 74 20 28 28 63 6f 6c 6c 65 63 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 | let.((collection-function....... |
| e7e0 | 20 20 20 20 20 28 69 66 20 70 72 6f 6a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 63 | .....(if.proj................#'c |
| e800 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 70 72 6f 6a 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 | ounsel-git-grep-proj-function... |
| e820 | 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 66 75 | ...........#'counsel-git-grep-fu |
| e840 | 6e 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 | nction))...........(default-dire |
| e860 | 63 74 6f 72 79 20 28 6f 72 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 | ctory.(or.initial-directory..... |
| e880 | 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 69 66 | .............................(if |
| e8a0 | 20 70 72 6f 6a 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 | .proj........................... |
| e8c0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 70 72 6f 6a 29 0a 20 20 20 20 20 20 20 20 20 20 | ...........(car.proj)........... |
| e8e0 | 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 63 6f 75 6e 73 65 | .........................(counse |
| e900 | 6c 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 29 29 29 29 29 0a 20 20 20 20 20 20 28 69 76 | l-locate-git-root))))).......(iv |
| e920 | 79 2d 72 65 61 64 20 22 67 69 74 20 67 72 65 70 3a 20 22 20 63 6f 6c 6c 65 63 74 69 6f 6e 2d 66 | y-read."git.grep:.".collection-f |
| e940 | 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c | unction.................:initial |
| e960 | 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 | -input.initial-input............ |
| e980 | 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 | .....:dynamic-collection.t...... |
| e9a0 | 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 | ...........:keymap.counsel-git-g |
| e9c0 | 72 65 70 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 | rep-map.................:action. |
| e9e0 | 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 | #'counsel-git-grep-action....... |
| ea00 | 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d | ..........:history.'counsel-git- |
| ea20 | 67 72 65 70 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 | grep-history.................:re |
| ea40 | 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 | quire-match.t.................:c |
| ea60 | 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 29 29 29 29 0a 0a 28 64 65 | aller.'counsel-git-grep))))..(de |
| ea80 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 67 72 65 70 2d 69 6e 64 65 78 20 28 5f 72 65 | fun.counsel--git-grep-index.(_re |
| eaa0 | 2d 73 74 72 20 63 61 6e 64 73 29 0a 20 20 28 6c 65 74 20 28 6e 61 6d 65 20 6c 6e 29 0a 20 20 20 | -str.cands)...(let.(name.ln).... |
| eac0 | 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 69 76 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 0a 20 20 20 | .(cond.......(ivy--old-cands.... |
| eae0 | 20 20 20 20 28 69 76 79 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d 73 77 69 70 65 72 2d | ....(ivy-recompute-index-swiper- |
| eb00 | 61 73 79 6e 63 20 6e 69 6c 20 63 61 6e 64 73 29 29 0a 20 20 20 20 20 20 28 28 75 6e 6c 65 73 73 | async.nil.cands)).......((unless |
| eb20 | 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(with-ivy-window............... |
| eb40 | 20 20 20 28 77 68 65 6e 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 | ...(when.buffer-file-name....... |
| eb60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 6e 20 28 6c 69 6e 65 2d 6e 75 6d 62 | .............(setq.ln.(line-numb |
| eb80 | 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | er-at-pos))....................( |
| eba0 | 73 65 74 71 20 6e 61 6d 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 | setq.name.(file-name-nondirector |
| ebc0 | 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | y.buffer-file-name)))).......... |
| ebe0 | 30 29 29 0a 20 20 20 20 20 20 3b 3b 20 43 6c 6f 73 65 73 74 20 74 6f 20 63 75 72 72 65 6e 74 20 | 0)).......;;.Closest.to.current. |
| ec00 | 6c 69 6e 65 20 67 6f 69 6e 67 20 66 6f 72 77 61 72 64 73 2e 0a 20 20 20 20 20 20 28 28 6c 65 74 | line.going.forwards........((let |
| ec20 | 20 28 28 62 65 67 20 28 31 2b 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 | .((beg.(1+.(length.name))))..... |
| ec40 | 20 20 20 20 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 | .....(cl-position-if.(lambda.(x) |
| ec60 | 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 28 61 6e 64 | ............................(and |
| ec80 | 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 6e 61 6d 65 20 78 29 0a 20 20 20 20 20 20 | .(string-prefix-p.name.x)....... |
| eca0 | 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 3e 3d 20 28 73 | ..........................(>=.(s |
| ecc0 | 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 73 75 62 73 74 72 69 6e 67 20 78 20 62 65 67 | tring-to-number.(substring.x.beg |
| ece0 | 29 29 20 6c 6e 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 20 | )).ln)))........................ |
| ed00 | 20 20 63 61 6e 64 73 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 43 6c 6f 73 65 73 74 20 74 6f 20 63 | ..cands))).......;;.Closest.to.c |
| ed20 | 75 72 72 65 6e 74 20 6c 69 6e 65 20 67 6f 69 6e 67 20 62 61 63 6b 77 61 72 64 73 2e 0a 20 20 20 | urrent.line.going.backwards..... |
| ed40 | 20 20 20 28 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 78 29 0a | ...((cl-position-if.(lambda.(x). |
| ed60 | 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 69 6e 67 | .........................(string |
| ed80 | 2d 70 72 65 66 69 78 2d 70 20 6e 61 6d 65 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -prefix-p.name.x)).............. |
| eda0 | 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..........cands................. |
| edc0 | 20 20 20 20 20 20 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 0a 20 20 20 20 20 20 28 74 20 30 29 | .......:from-end.t)).......(t.0) |
| ede0 | 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 | )))..(ivy-configure.'counsel-git |
| ee00 | 2d 67 72 65 70 0a 20 20 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 | -grep...:occur.#'counsel-git-gre |
| ee20 | 70 2d 6f 63 63 75 72 0a 20 20 3a 75 6e 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d | p-occur...:unwind-fn.#'counsel-- |
| ee40 | 67 72 65 70 2d 75 6e 77 69 6e 64 0a 20 20 3a 69 6e 64 65 78 2d 66 6e 20 23 27 63 6f 75 6e 73 65 | grep-unwind...:index-fn.#'counse |
| ee60 | 6c 2d 2d 67 69 74 2d 67 72 65 70 2d 69 6e 64 65 78 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 | l--git-grep-index...:display-tra |
| ee80 | 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 74 | nsformer-fn.#'counsel-git-grep-t |
| eea0 | 72 61 6e 73 66 6f 72 6d 65 72 0a 20 20 3a 67 72 65 70 2d 70 20 74 0a 20 20 3a 65 78 69 74 2d 63 | ransformer...:grep-p.t...:exit-c |
| eec0 | 6f 64 65 73 20 27 28 31 20 22 4e 6f 20 6d 61 74 63 68 65 73 20 66 6f 75 6e 64 22 29 29 0a 0a 28 | odes.'(1."No.matches.found"))..( |
| eee0 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 70 72 6f 6a 2d 66 75 6e 63 | defun.counsel-git-grep-proj-func |
| ef00 | 74 69 6f 6e 20 28 73 74 72 29 0a 20 20 22 47 72 65 70 20 66 6f 72 20 53 54 52 20 69 6e 20 74 68 | tion.(str)..."Grep.for.STR.in.th |
| ef20 | 65 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e 22 0a 20 20 28 6f 72 | e.current.Git.repository."...(or |
| ef40 | 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 6c 65 74 20 28 28 72 | ....(ivy-more-chars)....(let.((r |
| ef60 | 65 67 65 78 20 28 73 65 74 71 20 69 76 79 2d 2d 6f 6c 64 2d 72 65 0a 20 20 20 20 20 20 20 20 20 | egex.(setq.ivy--old-re.......... |
| ef80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 72 65 67 65 78 20 73 74 72 20 74 29 29 | .............(ivy--regex.str.t)) |
| efa0 | 29 29 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 0a | ))......(counsel--async-command. |
| efc0 | 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 | ......(concat........(format.cou |
| efe0 | 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 20 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 | nsel-git-grep-cmd.regex)........ |
| f000 | 28 69 66 20 28 69 76 79 2d 2d 63 61 73 65 2d 66 6f 6c 64 2d 70 20 73 74 72 29 20 22 20 2d 69 22 | (if.(ivy--case-fold-p.str).".-i" |
| f020 | 20 22 22 29 29 29 0a 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | ."")))......nil)))..(defun.couns |
| f040 | 65 6c 2d 67 69 74 2d 67 72 65 70 2d 73 77 69 74 63 68 2d 63 6d 64 20 28 29 0a 20 20 22 53 65 74 | el-git-grep-switch-cmd.()..."Set |
| f060 | 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 27 20 74 6f 20 61 20 64 69 66 | .`counsel-git-grep-cmd'.to.a.dif |
| f080 | 66 65 72 65 6e 74 20 76 61 6c 75 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | ferent.value."...(interactive).. |
| f0a0 | 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 0a 20 20 20 20 | .(setq.counsel-git-grep-cmd..... |
| f0c0 | 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 63 6d 64 3a 20 22 20 63 6f 75 6e 73 65 6c 2d 67 69 | ....(ivy-read."cmd:.".counsel-gi |
| f0e0 | 74 2d 67 72 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | t-grep-cmd-history.............. |
| f100 | 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d | .....:history.'counsel-git-grep- |
| f120 | 63 6d 64 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 67 69 | cmd-history))...(setq.counsel-gi |
| f140 | 74 2d 67 72 65 70 2d 63 6d 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 | t-grep-cmd-history.........(dele |
| f160 | 74 65 2d 64 75 70 73 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 2d 68 69 73 | te-dups.counsel-git-grep-cmd-his |
| f180 | 74 6f 72 79 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 69 76 79 2d 73 74 61 74 65 2d 64 79 6e 61 | tory))...(unless.(ivy-state-dyna |
| f1a0 | 6d 69 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 28 73 65 | mic-collection.ivy-last).....(se |
| f1c0 | 74 71 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 | tq.ivy--all-candidates.......... |
| f1e0 | 20 28 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 22 22 20 23 27 63 6f 75 6e 73 65 6c 2d 67 | .(all-completions."".#'counsel-g |
| f200 | 69 74 2d 67 72 65 70 2d 66 75 6e 63 74 69 6f 6e 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | it-grep-function))))..(defun.cou |
| f220 | 6e 73 65 6c 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 67 72 65 70 2d 6d 61 74 63 68 20 28 73 74 72 29 | nsel--normalize-grep-match.(str) |
| f240 | 0a 20 20 3b 3b 20 50 72 65 70 65 6e 64 20 2e 2f 20 69 66 20 6e 65 63 65 73 73 61 72 79 3a 0a 20 | ...;;.Prepend../.if.necessary:.. |
| f260 | 20 28 75 6e 6c 65 73 73 20 28 69 76 79 2d 2d 73 74 61 72 74 73 2d 77 69 74 68 2d 64 6f 74 73 6c | .(unless.(ivy--starts-with-dotsl |
| f280 | 61 73 68 20 73 74 72 29 0a 20 20 20 20 28 73 65 74 71 20 73 74 72 20 28 63 6f 6e 63 61 74 20 22 | ash.str).....(setq.str.(concat." |
| f2a0 | 2e 2f 22 20 73 74 72 29 29 29 0a 20 20 3b 3b 20 52 65 6d 6f 76 65 20 63 6f 6c 75 6d 6e 20 69 6e | ./".str)))...;;.Remove.column.in |
| f2c0 | 66 6f 20 69 66 20 61 6e 79 3a 0a 20 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 | fo.if.any:...(save-match-data... |
| f2e0 | 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 | ..(when.(string-match........... |
| f300 | 20 22 5b 5e 5c 6e 3a 5d 2b 3f 5b 5e 5c 6e 2f 3a 5d 3a 5b 5c 74 20 5d 2a 5b 31 2d 39 5d 5b 30 2d | ."[^\n:]+?[^\n/:]:[\t.]*[1-9][0- |
| f320 | 39 5d 2a 5b 5c 74 20 5d 2a 3a 5c 5c 28 5b 31 2d 39 5d 5b 30 2d 39 5d 2a 3a 5c 5c 29 22 0a 20 20 | 9]*[\t.]*:\\([1-9][0-9]*:\\)"... |
| f340 | 20 20 20 20 20 20 20 20 20 73 74 72 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 73 74 72 20 28 72 | .........str).......(setq.str.(r |
| f360 | 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 22 20 74 20 74 20 73 74 72 20 31 29 29 29 29 0a 20 20 | eplace-match."".t.t.str.1))))... |
| f380 | 73 74 72 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 67 72 65 70 2d 6f | str)..(defun.counsel--git-grep-o |
| f3a0 | 63 63 75 72 2d 63 6d 64 20 28 69 6e 70 75 74 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 67 65 78 | ccur-cmd.(input)...(let*.((regex |
| f3c0 | 20 69 76 79 2d 2d 6f 6c 64 2d 72 65 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 73 69 74 69 76 65 | .ivy--old-re)..........(positive |
| f3e0 | 2d 70 61 74 74 65 72 6e 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 | -pattern.(replace-regexp-in-stri |
| f400 | 6e 67 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 3b | ng.............................; |
| f420 | 3b 20 67 69 74 2d 67 72 65 70 20 63 61 6e 27 74 20 68 61 6e 64 6c 65 20 2e 2a 3f 0a 20 20 20 20 | ;.git-grep.can't.handle..*?..... |
| f440 | 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 5c 5c 2e 5c 5c 2a 5c | ........................"\\.\\*\ |
| f460 | 5c 3f 22 20 22 2e 2a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | \?".".*"........................ |
| f480 | 20 20 20 20 20 28 69 76 79 2d 72 65 2d 74 6f 2d 73 74 72 20 72 65 67 65 78 29 29 29 0a 20 20 20 | .....(ivy-re-to-str.regex))).... |
| f4a0 | 20 20 20 20 20 20 28 6e 65 67 61 74 69 76 65 2d 70 61 74 74 65 72 6e 73 0a 20 20 20 20 20 20 20 | ......(negative-patterns........ |
| f4c0 | 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 72 65 67 65 78 29 20 22 22 0a 20 20 20 20 20 20 | ...(if.(stringp.regex).""....... |
| f4e0 | 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 | ......(mapconcat.(lambda.(x).... |
| f500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 6e 75 6c 6c | ......................(and.(null |
| f520 | 20 28 63 64 72 20 78 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 | .(cdr.x))....................... |
| f540 | 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 7c 20 67 72 65 70 20 2d 76 20 25 73 22 20 28 | ........(format."|.grep.-v.%s".( |
| f560 | 63 61 72 20 78 29 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 | car.x))))....................... |
| f580 | 20 72 65 67 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 | .regex........................". |
| f5a0 | 22 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 | ")))).....(concat......(format.c |
| f5c0 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 63 6d 64 20 70 6f 73 69 74 69 76 65 2d 70 61 74 | ounsel-git-grep-cmd.positive-pat |
| f5e0 | 74 65 72 6e 29 0a 20 20 20 20 20 6e 65 67 61 74 69 76 65 2d 70 61 74 74 65 72 6e 73 0a 20 20 20 | tern)......negative-patterns.... |
| f600 | 20 20 28 69 66 20 28 69 76 79 2d 2d 63 61 73 65 2d 66 6f 6c 64 2d 70 20 69 6e 70 75 74 29 20 22 | ..(if.(ivy--case-fold-p.input)." |
| f620 | 20 2d 69 22 20 22 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d | .-i".""))))..(defun.counsel-git- |
| f640 | 67 72 65 70 2d 6f 63 63 75 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 | grep-occur.(&optional._cands)... |
| f660 | 22 47 65 6e 65 72 61 74 65 20 61 20 63 75 73 74 6f 6d 20 6f 63 63 75 72 20 62 75 66 66 65 72 20 | "Generate.a.custom.occur.buffer. |
| f680 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 27 2e 22 0a 20 20 28 63 6f 75 6e | for.`counsel-git-grep'."...(coun |
| f6a0 | 73 65 6c 2d 67 72 65 70 2d 6c 69 6b 65 2d 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 67 | sel-grep-like-occur.#'counsel--g |
| f6c0 | 69 74 2d 67 72 65 70 2d 6f 63 63 75 72 2d 63 6d 64 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | it-grep-occur-cmd))..(defun.coun |
| f6e0 | 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 20 28 29 0a 20 20 | sel-git-grep-query-replace.()... |
| f700 | 22 53 74 61 72 74 20 60 71 75 65 72 79 2d 72 65 70 6c 61 63 65 27 20 77 69 74 68 20 73 74 72 69 | "Start.`query-replace'.with.stri |
| f720 | 6e 67 20 74 6f 20 72 65 70 6c 61 63 65 20 66 72 6f 6d 20 6c 61 73 74 20 73 65 61 72 63 68 20 73 | ng.to.replace.from.last.search.s |
| f740 | 74 72 69 6e 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 | tring."...(interactive)...(unles |
| f760 | 73 20 28 77 69 6e 64 6f 77 2d 6d 69 6e 69 62 75 66 66 65 72 2d 70 29 0a 20 20 20 20 28 75 73 65 | s.(window-minibuffer-p).....(use |
| f780 | 72 2d 65 72 72 6f 72 0a 20 20 20 20 20 22 53 68 6f 75 6c 64 20 6f 6e 6c 79 20 62 65 20 63 61 6c | r-error......"Should.only.be.cal |
| f7a0 | 6c 65 64 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 74 68 72 6f 75 67 68 20 60 63 | led.in.the.minibuffer.through.`c |
| f7c0 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 6d 61 70 27 22 29 29 0a 20 20 28 6c 65 74 2a 20 | ounsel-git-grep-map'"))...(let*. |
| f7e0 | 28 28 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 | ((enable-recursive-minibuffers.t |
| f800 | 29 0a 20 20 20 20 20 20 20 20 20 28 66 72 6f 6d 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 76 79 | )..........(from.(ivy--regex.ivy |
| f820 | 2d 74 65 78 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 6f 20 28 71 75 65 72 79 2d 72 65 70 6c | -text))..........(to.(query-repl |
| f840 | 61 63 65 2d 72 65 61 64 2d 74 6f 20 66 72 6f 6d 20 22 51 75 65 72 79 20 72 65 70 6c 61 63 65 22 | ace-read-to.from."Query.replace" |
| f860 | 20 74 29 29 29 0a 20 20 20 20 28 69 76 79 2d 65 78 69 74 2d 77 69 74 68 2d 61 63 74 69 6f 6e 0a | .t))).....(ivy-exit-with-action. |
| f880 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 5f 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 64 6f | .....(lambda.(_)........(let.(do |
| f8a0 | 6e 65 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 61 | ne-buffers)..........(dolist.(ca |
| f8c0 | 6e 64 20 69 76 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 | nd.ivy--old-cands)............(w |
| f8e0 | 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 2e 2a 3f 5c 5c 29 3a | hen.(string-match."\\`\\(.*?\\): |
| f900 | 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 20 63 61 6e 64 29 0a | \\([0-9]+\\):\\(.*\\)\\'".cand). |
| f920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 | .............(with-ivy-window... |
| f940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 28 6d | .............(let.((file-name.(m |
| f960 | 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 20 63 61 6e 64 | atch-string-no-properties.1.cand |
| f980 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c 65 2d | )))..................(setq.file- |
| f9a0 | 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 | name.(expand-file-name.......... |
| f9c0 | 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 2d 6e 61 | .........................file-na |
| f9e0 | 6d 65 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 | me.............................. |
| fa00 | 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 | .....(ivy-state-directory.ivy-la |
| fa20 | 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | st)))..................(unless.( |
| fa40 | 6d 65 6d 62 65 72 20 66 69 6c 65 2d 6e 61 6d 65 20 64 6f 6e 65 2d 62 75 66 66 65 72 73 29 0a 20 | member.file-name.done-buffers).. |
| fa60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 2d 6e 61 6d | ..................(push.file-nam |
| fa80 | 65 20 64 6f 6e 65 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.done-buffers)................. |
| faa0 | 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | ...(find-file.file-name)........ |
| fac0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 | ............(goto-char.(point-mi |
| fae0 | 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 65 72 66 6f 72 6d 2d 72 | n)))..................(perform-r |
| fb00 | 65 70 6c 61 63 65 20 66 72 6f 6d 20 74 6f 20 74 20 74 20 6e 69 6c 29 29 29 29 29 29 29 29 29 29 | eplace.from.to.t.t.nil)))))))))) |
| fb20 | 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 73 74 61 73 68 27 0a 28 64 65 66 75 | ..;;**.`counsel-git-stash'.(defu |
| fb40 | 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 73 74 61 73 68 2d 6b 69 6c 6c 2d 61 63 74 69 6f 6e 20 | n.counsel-git-stash-kill-action. |
| fb60 | 28 78 29 0a 20 20 22 41 64 64 20 67 69 74 20 73 74 61 73 68 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 | (x)..."Add.git.stash.command.to. |
| fb80 | 6b 69 6c 6c 20 72 69 6e 67 2e 0a 54 68 65 20 67 69 74 20 63 6f 6d 6d 61 6e 64 20 61 70 70 6c 69 | kill.ring..The.git.command.appli |
| fba0 | 65 73 20 74 68 65 20 73 74 61 73 68 20 65 6e 74 72 79 20 77 68 65 72 65 20 63 61 6e 64 69 64 61 | es.the.stash.entry.where.candida |
| fbc0 | 74 65 20 58 20 77 61 73 20 66 6f 75 6e 64 20 69 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 73 74 72 | te.X.was.found.in."...(when.(str |
| fbe0 | 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 28 5b 5e 3a 5d 2b 5c 5c 29 3a 22 20 78 29 0a 20 20 20 20 | ing-match."\\([^:]+\\):".x)..... |
| fc00 | 28 6b 69 6c 6c 2d 6e 65 77 20 28 6d 65 73 73 61 67 65 20 28 66 6f 72 6d 61 74 20 22 67 69 74 20 | (kill-new.(message.(format."git. |
| fc20 | 73 74 61 73 68 20 61 70 70 6c 79 20 25 73 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 | stash.apply.%s".(match-string.1. |
| fc40 | 78 29 29 29 29 29 29 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 | x))))))..;;;###autoload.(defun.c |
| fc60 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 73 74 61 73 68 20 28 29 0a 20 20 22 53 65 61 72 63 68 20 74 68 | ounsel-git-stash.()..."Search.th |
| fc80 | 72 6f 75 67 68 20 61 6c 6c 20 61 76 61 69 6c 61 62 6c 65 20 67 69 74 20 73 74 61 73 68 65 73 2e | rough.all.available.git.stashes. |
| fca0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 66 61 | "...(interactive)...(let*.((defa |
| fcc0 | 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 67 69 | ult-directory.(counsel-locate-gi |
| fce0 | 74 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 73 20 28 73 70 6c 69 74 2d | t-root))..........(cands.(split- |
| fd00 | 73 74 72 69 6e 67 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 0a | string.(shell-command-to-string. |
| fd20 | 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 22 | ..............................." |
| fd40 | 49 46 53 3d 24 27 5c 6e 27 0a 66 6f 72 20 69 20 69 6e 20 60 67 69 74 20 73 74 61 73 68 20 6c 69 | IFS=$'\n'.for.i.in.`git.stash.li |
| fd60 | 73 74 20 2d 2d 66 6f 72 6d 61 74 3d 5c 22 25 67 64 5c 22 60 3b 20 64 6f 0a 20 20 20 20 67 69 74 | st.--format=\"%gd\"`;.do.....git |
| fd80 | 20 73 74 61 73 68 20 73 68 6f 77 20 2d 70 20 24 69 20 7c 20 67 72 65 70 20 2d 48 20 2d 2d 6c 61 | .stash.show.-p.$i.|.grep.-H.--la |
| fda0 | 62 65 6c 3d 5c 22 24 69 5c 22 20 5c 22 24 31 5c 22 0a 64 6f 6e 65 22 29 20 22 5c 6e 22 20 74 29 | bel=\"$i\".\"$1\".done")."\n".t) |
| fdc0 | 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 67 69 74 20 73 74 61 73 68 3a 20 22 20 63 | )).....(ivy-read."git.stash:.".c |
| fde0 | 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 | ands...............:action.#'cou |
| fe00 | 6e 73 65 6c 2d 67 69 74 2d 73 74 61 73 68 2d 6b 69 6c 6c 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 | nsel-git-stash-kill-action...... |
| fe20 | 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 73 74 | .........:caller.'counsel-git-st |
| fe40 | 61 73 68 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 27 0a 28 | ash)))..;;**.`counsel-git-log'.( |
| fe60 | 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 2d 63 6d 64 20 22 47 49 54 5f | defvar.counsel-git-log-cmd."GIT_ |
| fe80 | 50 41 47 45 52 3d 63 61 74 20 67 69 74 20 6c 6f 67 20 2d 2d 6e 6f 2d 63 6f 6c 6f 72 20 2d 2d 67 | PAGER=cat.git.log.--no-color.--g |
| fea0 | 72 65 70 20 27 25 73 27 22 0a 20 20 22 43 6f 6d 6d 61 6e 64 20 75 73 65 64 20 66 6f 72 20 5c 22 | rep.'%s'"..."Command.used.for.\" |
| fec0 | 67 69 74 20 6c 6f 67 5c 22 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 | git.log\".")..(defun.counsel-git |
| fee0 | 2d 6c 6f 67 2d 66 75 6e 63 74 69 6f 6e 20 28 5f 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 20 | -log-function.(_)..."Search.for. |
| ff00 | 60 69 76 79 2d 72 65 67 65 78 27 20 69 6e 20 67 69 74 20 6c 6f 67 2e 22 0a 20 20 28 6f 72 0a 20 | `ivy-regex'.in.git.log."...(or.. |
| ff20 | 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 | ..(ivy-more-chars)....(progn.... |
| ff40 | 20 20 3b 3b 20 60 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 66 6f 72 6d 61 74 2d 66 | ..;;.`counsel--yank-pop-format-f |
| ff60 | 75 6e 63 74 69 6f 6e 27 20 75 73 65 73 20 74 68 69 73 0a 20 20 20 20 20 28 73 65 74 71 20 69 76 | unction'.uses.this......(setq.iv |
| ff80 | 79 2d 2d 6f 6c 64 2d 72 65 20 69 76 79 2d 72 65 67 65 78 29 0a 20 20 20 20 20 28 63 6f 75 6e 73 | y--old-re.ivy-regex)......(couns |
| ffa0 | 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 3b 3b 20 22 67 69 74 20 | el--async-command.......;;."git. |
| ffc0 | 6c 6f 67 20 2d 2d 67 72 65 70 22 20 6c 69 6b 65 73 20 74 6f 20 68 61 76 65 20 67 72 6f 75 70 73 | log.--grep".likes.to.have.groups |
| ffe0 | 20 71 75 6f 74 65 64 20 65 2e 67 2e 20 5c 28 66 6f 6f 5c 29 2e 0a 20 20 20 20 20 20 3b 3b 20 42 | .quoted.e.g..\(foo\)........;;.B |
| 10000 | 75 74 20 69 74 20 64 6f 65 73 6e 27 74 20 6c 69 6b 65 20 74 68 65 20 6e 6f 6e 2d 67 72 65 65 64 | ut.it.doesn't.like.the.non-greed |
| 10020 | 79 20 22 2e 2a 3f 22 2e 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 67 | y.".*?"........(format.counsel-g |
| 10040 | 69 74 2d 6c 6f 67 2d 63 6d 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 | it-log-cmd...............(replac |
| 10060 | 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 5c 5c 2e 5c 5c 2a 5c 5c 3f 22 20 22 | e-regexp-in-string."\\.\\*\\?"." |
| 10080 | 2e 2a 22 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 | .*"............................. |
| 100a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 72 65 2d 74 6f 2d 73 74 72 20 69 76 79 2d 2d | ............(ivy-re-to-str.ivy-- |
| 100c0 | 6f 6c 64 2d 72 65 29 29 29 29 0a 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | old-re))))......nil)))..(defun.c |
| 100e0 | 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 41 64 64 | ounsel-git-log-action.(x)..."Add |
| 10100 | 20 63 61 6e 64 69 64 61 74 65 20 58 20 74 6f 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 0a 20 20 28 6d | .candidate.X.to.kill.ring."...(m |
| 10120 | 65 73 73 61 67 65 20 22 25 53 22 20 28 6b 69 6c 6c 2d 6e 65 77 20 78 29 29 29 0a 0a 28 64 65 63 | essage."%S".(kill-new.x)))..(dec |
| 10140 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6d 61 67 69 74 2d 73 68 6f 77 2d 63 6f 6d 6d 69 74 20 | lare-function.magit-show-commit. |
| 10160 | 22 65 78 74 3a 6d 61 67 69 74 2d 64 69 66 66 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | "ext:magit-diff")..(defun.counse |
| 10180 | 6c 2d 67 69 74 2d 6c 6f 67 2d 73 68 6f 77 2d 63 6f 6d 6d 69 74 2d 61 63 74 69 6f 6e 20 28 6c 6f | l-git-log-show-commit-action.(lo |
| 101a0 | 67 2d 65 6e 74 72 79 29 0a 20 20 22 56 69 73 69 74 20 74 68 65 20 63 6f 6d 6d 69 74 20 63 6f 72 | g-entry)..."Visit.the.commit.cor |
| 101c0 | 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 4c 4f 47 2d 45 4e 54 52 59 2e 22 0a 20 20 28 72 65 71 | responding.to.LOG-ENTRY."...(req |
| 101e0 | 75 69 72 65 20 27 6d 61 67 69 74 2d 64 69 66 66 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 6d 6d 69 | uire.'magit-diff)...(let.((commi |
| 10200 | 74 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 6f 67 2d 65 | t.(substring-no-properties.log-e |
| 10220 | 6e 74 72 79 20 30 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5c 5c 57 22 20 6c 6f 67 | ntry.0.(string-match-p."\\W".log |
| 10240 | 2d 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 28 6d 61 67 69 74 2d 73 68 6f 77 2d 63 6f 6d 6d 69 | -entry)))).....(magit-show-commi |
| 10260 | 74 20 63 6f 6d 6d 69 74 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 | t.commit)))..(ivy-set-actions..' |
| 10280 | 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 0a 20 27 28 28 22 76 22 20 63 6f 75 6e 73 65 6c 2d | counsel-git-log..'(("v".counsel- |
| 102a0 | 67 69 74 2d 6c 6f 67 2d 73 68 6f 77 2d 63 6f 6d 6d 69 74 2d 61 63 74 69 6f 6e 20 22 76 69 73 69 | git-log-show-commit-action."visi |
| 102c0 | 74 20 63 6f 6d 6d 69 74 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d | t.commit")))..;;**.`counsel-git- |
| 102e0 | 63 68 61 6e 67 65 2d 77 6f 72 6b 74 72 65 65 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | change-worktree'.(defun.counsel- |
| 10300 | 67 69 74 2d 63 68 61 6e 67 65 2d 77 6f 72 6b 74 72 65 65 2d 61 63 74 69 6f 6e 20 28 67 69 74 2d | git-change-worktree-action.(git- |
| 10320 | 72 6f 6f 74 2d 64 69 72 20 74 72 65 65 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 63 6f 72 72 65 | root-dir.tree)..."Find.the.corre |
| 10340 | 73 70 6f 6e 64 69 6e 67 20 66 69 6c 65 20 69 6e 20 74 68 65 20 77 6f 72 6b 74 72 65 65 20 6c 6f | sponding.file.in.the.worktree.lo |
| 10360 | 63 61 74 65 64 20 61 74 20 74 72 65 65 2e 0a 54 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 | cated.at.tree..The.current.buffe |
| 10380 | 72 20 69 73 20 61 73 73 75 6d 65 64 20 74 6f 20 62 65 20 69 6e 20 61 20 73 75 62 64 69 72 65 63 | r.is.assumed.to.be.in.a.subdirec |
| 103a0 | 74 6f 72 79 20 6f 66 20 47 49 54 2d 52 4f 4f 54 2d 44 49 52 2e 0a 54 52 45 45 20 69 73 20 74 68 | tory.of.GIT-ROOT-DIR..TREE.is.th |
| 103c0 | 65 20 73 65 6c 65 63 74 65 64 20 63 61 6e 64 69 64 61 74 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 | e.selected.candidate."...(let*.( |
| 103e0 | 28 6e 65 77 2d 72 6f 6f 74 2d 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 77 6f 72 6b 74 | (new-root-dir.(counsel-git-workt |
| 10400 | 72 65 65 2d 70 61 72 73 65 2d 72 6f 6f 74 20 74 72 65 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 | ree-parse-root.tree))..........( |
| 10420 | 74 72 65 65 2d 66 69 6c 65 6e 61 6d 65 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d | tree-filename.(file-relative-nam |
| 10440 | 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 67 69 74 2d 72 6f 6f 74 2d 64 69 72 29 | e.buffer-file-name.git-root-dir) |
| 10460 | 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 | )..........(file-name.(expand-fi |
| 10480 | 6c 65 2d 6e 61 6d 65 20 74 72 65 65 2d 66 69 6c 65 6e 61 6d 65 20 6e 65 77 2d 72 6f 6f 74 2d 64 | le-name.tree-filename.new-root-d |
| 104a0 | 69 72 29 29 29 0a 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 29 29 | ir))).....(find-file.file-name)) |
| 104c0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 77 6f 72 6b 74 72 65 65 2d 6c | )..(defun.counsel-git-worktree-l |
| 104e0 | 69 73 74 20 28 29 0a 20 20 22 4c 69 73 74 20 77 6f 72 6b 74 72 65 65 73 20 69 6e 20 74 68 65 20 | ist.()..."List.worktrees.in.the. |
| 10500 | 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 20 74 68 65 20 63 75 | Git.repository.containing.the.cu |
| 10520 | 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d | rrent.buffer."...(let.((default- |
| 10540 | 64 69 72 65 63 74 6f 72 79 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f | directory.(counsel-locate-git-ro |
| 10560 | 6f 74 29 29 29 0a 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 68 65 6c 6c 2d 63 | ot))).....(split-string.(shell-c |
| 10580 | 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 22 67 69 74 20 77 6f 72 6b 74 72 65 65 20 6c | ommand-to-string."git.worktree.l |
| 105a0 | 69 73 74 22 29 20 22 5c 6e 22 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | ist")."\n".t)))..(defun.counsel- |
| 105c0 | 67 69 74 2d 77 6f 72 6b 74 72 65 65 2d 70 61 72 73 65 2d 72 6f 6f 74 20 28 74 72 65 65 29 0a 20 | git-worktree-parse-root.(tree).. |
| 105e0 | 20 22 52 65 74 75 72 6e 20 77 6f 72 6b 74 72 65 65 20 66 72 6f 6d 20 63 61 6e 64 69 64 61 74 65 | ."Return.worktree.from.candidate |
| 10600 | 20 54 52 45 45 2e 22 0a 20 20 28 73 75 62 73 74 72 69 6e 67 20 74 72 65 65 20 30 20 28 73 74 72 | .TREE."...(substring.tree.0.(str |
| 10620 | 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 20 22 20 74 72 65 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ing-match-p.".".tree)))..(defun. |
| 10640 | 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 6c 6f 73 65 2d 77 6f 72 6b 74 72 65 65 2d 66 69 6c 65 73 | counsel-git-close-worktree-files |
| 10660 | 2d 61 63 74 69 6f 6e 20 28 72 6f 6f 74 2d 64 69 72 29 0a 20 20 22 43 6c 6f 73 65 20 61 6c 6c 20 | -action.(root-dir)..."Close.all. |
| 10680 | 62 75 66 66 65 72 73 20 66 72 6f 6d 20 74 68 65 20 77 6f 72 6b 74 72 65 65 20 6c 6f 63 61 74 65 | buffers.from.the.worktree.locate |
| 106a0 | 64 20 61 74 20 52 4f 4f 54 2d 44 49 52 2e 22 0a 20 20 28 73 65 74 71 20 72 6f 6f 74 2d 64 69 72 | d.at.ROOT-DIR."...(setq.root-dir |
| 106c0 | 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 77 6f 72 6b 74 72 65 65 2d 70 61 72 73 65 2d 72 6f 6f | .(counsel-git-worktree-parse-roo |
| 106e0 | 74 20 72 6f 6f 74 2d 64 69 72 29 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 | t.root-dir))...(save-excursion.. |
| 10700 | 20 20 20 28 64 6f 6c 69 73 74 20 28 62 75 66 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 | ...(dolist.(buf.(buffer-list)).. |
| 10720 | 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 28 61 6e 64 | .....(set-buffer.buf).......(and |
| 10740 | 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 | .buffer-file-name............(st |
| 10760 | 72 69 6e 67 3d 20 22 2e 22 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 72 6f | ring=.".".(file-relative-name.ro |
| 10780 | 6f 74 2d 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 29 | ot-dir.(counsel-locate-git-root) |
| 107a0 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 75 66 29 29 | ))............(kill-buffer.buf)) |
| 107c0 | 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d | )))..(ivy-set-actions..'counsel- |
| 107e0 | 67 69 74 2d 63 68 61 6e 67 65 2d 77 6f 72 6b 74 72 65 65 0a 20 27 28 28 22 6b 22 20 63 6f 75 6e | git-change-worktree..'(("k".coun |
| 10800 | 73 65 6c 2d 67 69 74 2d 63 6c 6f 73 65 2d 77 6f 72 6b 74 72 65 65 2d 66 69 6c 65 73 2d 61 63 74 | sel-git-close-worktree-files-act |
| 10820 | 69 6f 6e 20 22 6b 69 6c 6c 20 61 6c 6c 22 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 | ion."kill.all")))..;;;###autoloa |
| 10840 | 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 61 6e 67 65 2d 77 6f 72 6b | d.(defun.counsel-git-change-work |
| 10860 | 74 72 65 65 20 28 29 0a 20 20 22 46 69 6e 64 20 74 68 65 20 66 69 6c 65 20 63 6f 72 72 65 73 70 | tree.()..."Find.the.file.corresp |
| 10880 | 6f 6e 64 69 6e 67 20 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 6f 6e 20 | onding.to.the.current.buffer.on. |
| 108a0 | 61 20 64 69 66 66 65 72 65 6e 74 20 77 6f 72 6b 74 72 65 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 | a.different.worktree."...(intera |
| 108c0 | 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 | ctive)...(let.((default-director |
| 108e0 | 79 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 29 29 29 0a 20 20 | y.(counsel-locate-git-root)))... |
| 10900 | 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 65 6c 65 63 74 20 77 6f 72 6b 74 72 65 65 3a 20 22 0a | ..(ivy-read."Select.worktree:.". |
| 10920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 6c 2d 64 65 6c 65 74 65 20 64 65 66 | ..............(or.(cl-delete.def |
| 10940 | 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 77 6f 72 6b | ault-directory.(counsel-git-work |
| 10960 | 74 72 65 65 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tree-list)...................... |
| 10980 | 20 20 20 20 20 20 20 20 3a 6b 65 79 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 77 6f 72 6b 74 | ........:key.#'counsel-git-workt |
| 109a0 | 72 65 65 2d 70 61 72 73 65 2d 72 6f 6f 74 20 3a 74 65 73 74 20 23 27 73 74 72 69 6e 67 3d 29 0a | ree-parse-root.:test.#'string=). |
| 109c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 6f 74 68 | ..................(error."No.oth |
| 109e0 | 65 72 20 77 6f 72 6b 74 72 65 65 73 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 | er.worktrees"))...............:a |
| 10a00 | 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 74 72 65 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ction.(lambda.(tree)............ |
| 10a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 61 6e 67 65 | .............(counsel-git-change |
| 10a40 | 2d 77 6f 72 6b 74 72 65 65 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -worktree-action................ |
| 10a60 | 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 | ..........(ivy-state-directory.i |
| 10a80 | 76 79 2d 6c 61 73 74 29 20 74 72 65 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 | vy-last).tree))...............:r |
| 10aa0 | 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 | equire-match.t...............:ca |
| 10ac0 | 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 61 6e 67 65 2d 77 6f 72 6b 74 72 65 | ller.'counsel-git-change-worktre |
| 10ae0 | 65 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 65 63 6b 6f 75 74 | e)))..;;**.`counsel-git-checkout |
| 10b00 | 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 65 63 6b 6f 75 74 2d 61 63 | '.(defun.counsel-git-checkout-ac |
| 10b20 | 74 69 6f 6e 20 28 62 72 61 6e 63 68 29 0a 20 20 22 53 77 69 74 63 68 20 62 72 61 6e 63 68 20 62 | tion.(branch)..."Switch.branch.b |
| 10b40 | 79 20 69 6e 76 6f 6b 69 6e 67 20 67 69 74 2d 63 68 65 63 6b 6f 75 74 28 31 29 2e 0a 54 68 65 20 | y.invoking.git-checkout(1)..The. |
| 10b60 | 63 6f 6d 6d 61 6e 64 20 69 73 20 70 61 73 73 65 64 20 61 20 73 69 6e 67 6c 65 20 61 72 67 75 6d | command.is.passed.a.single.argum |
| 10b80 | 65 6e 74 20 63 6f 6d 70 72 69 73 69 6e 67 20 61 6c 6c 20 63 68 61 72 61 63 74 65 72 73 0a 69 6e | ent.comprising.all.characters.in |
| 10ba0 | 20 42 52 41 4e 43 48 20 75 70 20 74 6f 2c 20 62 75 74 20 6e 6f 74 20 69 6e 63 6c 75 64 69 6e 67 | .BRANCH.up.to,.but.not.including |
| 10bc0 | 2c 20 74 68 65 20 66 69 72 73 74 20 73 70 61 63 65 0a 63 68 61 72 61 63 74 65 72 20 28 23 78 32 | ,.the.first.space.character.(#x2 |
| 10be0 | 30 29 2c 20 6f 72 20 74 68 65 20 73 74 72 69 6e 67 27 73 20 65 6e 64 20 69 66 20 69 74 20 6c 61 | 0),.or.the.string's.end.if.it.la |
| 10c00 | 63 6b 73 20 61 20 73 70 61 63 65 2e 22 0a 20 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 0a 20 | cks.a.space."...(shell-command.. |
| 10c20 | 20 20 28 66 6f 72 6d 61 74 20 22 67 69 74 20 63 68 65 63 6b 6f 75 74 20 25 73 22 0a 20 20 20 20 | ..(format."git.checkout.%s"..... |
| 10c40 | 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 0a 20 20 20 | .......(shell-quote-argument.... |
| 10c60 | 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 62 72 61 6e 63 68 20 30 20 28 73 74 | .........(substring.branch.0.(st |
| 10c80 | 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 20 22 20 62 72 61 6e 63 68 29 29 29 29 29 29 0a 0a 28 | ring-match-p.".".branch))))))..( |
| 10ca0 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 62 72 61 6e 63 68 2d 6c 69 73 74 20 28 29 | defun.counsel-git-branch-list.() |
| 10cc0 | 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 62 72 61 6e 63 68 65 73 20 69 6e 20 74 | ..."Return.list.of.branches.in.t |
| 10ce0 | 68 65 20 63 75 72 72 65 6e 74 20 47 69 74 20 72 65 70 6f 73 69 74 6f 72 79 2e 0a 56 61 6c 75 65 | he.current.Git.repository..Value |
| 10d00 | 20 63 6f 6d 70 72 69 73 65 73 20 61 6c 6c 20 6c 6f 63 61 6c 20 61 6e 64 20 72 65 6d 6f 74 65 20 | .comprises.all.local.and.remote. |
| 10d20 | 62 72 61 6e 63 68 65 73 20 62 61 72 20 74 68 65 20 6f 6e 65 0a 63 75 72 72 65 6e 74 6c 79 20 63 | branches.bar.the.one.currently.c |
| 10d40 | 68 65 63 6b 65 64 20 6f 75 74 2e 22 0a 20 20 28 63 6c 2d 6d 61 70 63 61 6e 20 28 6c 61 6d 62 64 | hecked.out."...(cl-mapcan.(lambd |
| 10d60 | 61 20 28 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 73 74 | a.(line)................(and.(st |
| 10d80 | 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5b 5b 3a 62 6c 61 6e 6b 3a 5d 5d 2b 22 20 6c 69 6e | ring-match."\\`[[:blank:]]+".lin |
| 10da0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 75 | e).....................(list.(su |
| 10dc0 | 62 73 74 72 69 6e 67 20 6c 69 6e 65 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 29 29 29 0a 20 | bstring.line.(match-end.0))))).. |
| 10de0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | ............(let.((default-direc |
| 10e00 | 74 6f 72 79 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 67 69 74 2d 72 6f 6f 74 29 29 29 | tory.(counsel-locate-git-root))) |
| 10e20 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 | ................(split-string.(s |
| 10e40 | 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 | hell-command-to-string.......... |
| 10e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 67 69 74 20 62 72 61 6e 63 68 | ....................."git.branch |
| 10e80 | 20 2d 76 76 20 2d 2d 61 6c 6c 20 2d 2d 6e 6f 2d 63 6f 6c 6f 72 22 29 0a 20 20 20 20 20 20 20 20 | .-vv.--all.--no-color")......... |
| 10ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 6e 22 20 74 29 29 29 29 0a | ....................."\n".t)))). |
| 10ec0 | 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 75 6e 73 65 6c 2d 67 | .;;;###autoload.(defun.counsel-g |
| 10ee0 | 69 74 2d 63 68 65 63 6b 6f 75 74 20 28 29 0a 20 20 22 43 61 6c 6c 20 74 68 65 20 5c 22 67 69 74 | it-checkout.()..."Call.the.\"git |
| 10f00 | 20 63 68 65 63 6b 6f 75 74 5c 22 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | .checkout\".command."...(interac |
| 10f20 | 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 43 68 65 63 6b 6f 75 74 20 62 72 61 6e | tive)...(ivy-read."Checkout.bran |
| 10f40 | 63 68 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 62 72 61 6e 63 68 2d 6c 69 73 74 29 0a | ch:.".(counsel-git-branch-list). |
| 10f60 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 | ............:action.#'counsel-gi |
| 10f80 | 74 2d 63 68 65 63 6b 6f 75 74 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 | t-checkout-action.............:c |
| 10fa0 | 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 63 68 65 63 6b 6f 75 74 29 29 0a 0a 28 | aller.'counsel-git-checkout))..( |
| 10fc0 | 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e 63 61 74 65 | defvar.counsel-yank-pop-truncate |
| 10fe0 | 2d 72 61 64 69 75 73 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 6c 6f | -radius)..(defun.counsel--git-lo |
| 11000 | 67 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 20 28 73 74 72 29 0a 20 20 28 6c 65 74 20 28 | g-format-function.(str)...(let.( |
| 11020 | 28 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e 63 61 74 65 2d 72 61 64 69 75 | (counsel-yank-pop-truncate-radiu |
| 11040 | 73 20 35 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 66 6f 72 | s.5)).....(counsel--yank-pop-for |
| 11060 | 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 20 73 74 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c | mat-function.str)))..;;;###autol |
| 11080 | 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 20 28 29 0a 20 20 | oad.(defun.counsel-git-log.()... |
| 110a0 | 22 43 61 6c 6c 20 74 68 65 20 5c 22 67 69 74 20 6c 6f 67 20 2d 2d 67 72 65 70 5c 22 20 73 68 65 | "Call.the.\"git.log.--grep\".she |
| 110c0 | 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 | ll.command."...(interactive)...( |
| 110e0 | 69 76 79 2d 72 65 61 64 20 22 47 72 65 70 20 6c 6f 67 3a 20 22 20 23 27 63 6f 75 6e 73 65 6c 2d | ivy-read."Grep.log:.".#'counsel- |
| 11100 | 67 69 74 2d 6c 6f 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 | git-log-function.............:dy |
| 11120 | 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a | namic-collection.t.............: |
| 11140 | 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 2d 61 63 74 69 6f 6e 0a | action.#'counsel-git-log-action. |
| 11160 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 | ............:caller.'counsel-git |
| 11180 | 2d 6c 6f 67 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d | -log))..(ivy-configure.'counsel- |
| 111a0 | 67 69 74 2d 6c 6f 67 0a 20 20 3a 68 65 69 67 68 74 20 34 0a 20 20 3a 75 6e 77 69 6e 64 2d 66 6e | git-log...:height.4...:unwind-fn |
| 111c0 | 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 0a 20 20 3a 66 6f 72 | .#'counsel-delete-process...:for |
| 111e0 | 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 6c 6f 67 2d 66 6f 72 6d 61 74 | mat-fn.#'counsel--git-log-format |
| 11200 | 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 63 6f 75 6e 73 65 | -function)..(add-to-list.'counse |
| 11220 | 6c 2d 61 73 79 6e 63 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 2d 72 65 2d 61 6c 69 73 74 20 27 28 | l-async-split-string-re-alist.'( |
| 11240 | 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 20 2e 20 22 5e 63 6f 6d 6d 69 74 20 22 29 29 0a 28 | counsel-git-log..."^commit.")).( |
| 11260 | 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 63 6f 75 6e 73 65 6c 2d 61 73 79 6e 63 2d 69 67 6e 6f 72 | add-to-list.'counsel-async-ignor |
| 11280 | 65 2d 72 65 2d 61 6c 69 73 74 20 27 28 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 6c 6f 67 20 2e 20 22 | e-re-alist.'(counsel-git-log..." |
| 112a0 | 5e 5b 20 5c 6e 5d 2a 24 22 29 29 0a 0a 3b 3b 2a 20 46 69 6c 65 0a 3b 3b 2a 2a 20 60 63 6f 75 6e | ^[.\n]*$"))..;;*.File.;;**.`coun |
| 112c0 | 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 | sel-find-file'.(defvar.counsel-f |
| 112e0 | 69 6e 64 2d 66 69 6c 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d | ind-file-map...(let.((map.(make- |
| 11300 | 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | sparse-keymap))).....(define-key |
| 11320 | 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 44 45 4c 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 75 70 2d | .map.(kbd."C-DEL").#'counsel-up- |
| 11340 | 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 | directory).....(define-key.map.( |
| 11360 | 6b 62 64 20 22 43 2d 3c 62 61 63 6b 73 70 61 63 65 3e 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 75 | kbd."C-<backspace>").#'counsel-u |
| 11380 | 70 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 | p-directory).....(define-key.map |
| 113a0 | 20 28 6b 62 64 20 22 60 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 2d 66 | .(kbd."`").#'counsel-file-jump-f |
| 113c0 | 72 6f 6d 2d 66 69 6e 64 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b | rom-find).....(define-key.map.(k |
| 113e0 | 62 64 20 22 43 2d 60 22 29 20 28 69 76 79 2d 6d 61 6b 65 2d 6d 61 67 69 63 2d 61 63 74 69 6f 6e | bd."C-`").(ivy-make-magic-action |
| 11400 | 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 20 22 62 22 29 29 0a 20 20 20 20 28 | .#'counsel-find-file."b")).....( |
| 11420 | 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 72 65 6d 61 70 20 75 6e 64 6f 5d 20 23 27 63 6f | define-key.map.[remap.undo].#'co |
| 11440 | 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 75 6e 64 6f 29 0a 20 20 20 20 6d 61 70 29 29 0a | unsel-find-file-undo).....map)). |
| 11460 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 2d 66 72 6f 6d 2d 66 | .(defun.counsel-file-jump-from-f |
| 11480 | 69 6e 64 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6c | ind.()..."Switch.to.`counsel-fil |
| 114a0 | 65 2d 6a 75 6d 70 27 20 66 72 6f 6d 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 27 | e-jump'.from.`counsel-find-file' |
| 114c0 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 71 75 69 74 2d 61 | ."...(interactive)...(ivy-quit-a |
| 114e0 | 6e 64 2d 72 75 6e 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 20 69 76 | nd-run.....(counsel-file-jump.iv |
| 11500 | 79 2d 74 65 78 74 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d | y-text.(ivy-state-directory.ivy- |
| 11520 | 6c 61 73 74 29 29 29 29 0a 0a 28 77 68 65 6e 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 | last))))..(when.(executable-find |
| 11540 | 20 22 67 69 74 22 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 69 76 79 2d 66 66 61 70 | ."git")...(add-to-list.'ivy-ffap |
| 11560 | 2d 75 72 6c 2d 66 75 6e 63 74 69 6f 6e 73 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 68 75 62 2d 75 | -url-functions.'counsel-github-u |
| 11580 | 72 6c 2d 70 29 0a 20 20 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 69 76 79 2d 66 66 61 70 2d 75 | rl-p)...(add-to-list.'ivy-ffap-u |
| 115a0 | 72 6c 2d 66 75 6e 63 74 69 6f 6e 73 20 27 63 6f 75 6e 73 65 6c 2d 65 6d 61 63 73 2d 75 72 6c 2d | rl-functions.'counsel-emacs-url- |
| 115c0 | 70 29 29 0a 28 61 64 64 2d 74 6f 2d 6c 69 73 74 20 27 69 76 79 2d 66 66 61 70 2d 75 72 6c 2d 66 | p)).(add-to-list.'ivy-ffap-url-f |
| 115e0 | 75 6e 63 74 69 6f 6e 73 20 27 63 6f 75 6e 73 65 6c 2d 75 72 6c 2d 65 78 70 61 6e 64 29 0a 28 64 | unctions.'counsel-url-expand).(d |
| 11600 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 63 64 2d 62 6f 6f 6b 6d 61 | efun.counsel-find-file-cd-bookma |
| 11620 | 72 6b 2d 61 63 74 69 6f 6e 20 28 5f 29 0a 20 20 22 52 65 73 65 74 20 60 63 6f 75 6e 73 65 6c 2d | rk-action.(_)..."Reset.`counsel- |
| 11640 | 66 69 6e 64 2d 66 69 6c 65 27 20 66 72 6f 6d 20 73 65 6c 65 63 74 65 64 20 64 69 72 65 63 74 6f | find-file'.from.selected.directo |
| 11660 | 72 79 2e 22 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 63 64 3a 20 22 0a 20 20 20 20 20 20 20 20 | ry."...(ivy-read."cd:."......... |
| 11680 | 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 76 | ....(progn...............(ivy--v |
| 116a0 | 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | irtual-buffers)...............(d |
| 116c0 | 65 6c 65 74 65 2d 64 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 | elete-dups................(mapca |
| 116e0 | 72 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f | r.(lambda.(x).(file-name-directo |
| 11700 | 72 79 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ry.(cdr.x))).................... |
| 11720 | 20 20 20 20 69 76 79 2d 2d 76 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 29 29 29 0a 20 20 20 20 | ....ivy--virtual-buffers)))..... |
| 11740 | 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 | ........:action.(lambda.(x)..... |
| 11760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 | ..................(let.((default |
| 11780 | 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 | -directory.(file-name-directory. |
| 117a0 | 78 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 20 20 28 63 6f | x))).........................(co |
| 117c0 | 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | unsel-find-file)))))..(defcustom |
| 117e0 | 20 63 6f 75 6e 73 65 6c 2d 72 6f 6f 74 2d 63 6f 6d 6d 61 6e 64 20 22 73 75 64 6f 22 0a 20 20 22 | .counsel-root-command."sudo"..." |
| 11800 | 43 6f 6d 6d 61 6e 64 20 74 6f 20 67 61 69 6e 20 72 6f 6f 74 20 70 72 69 76 69 6c 65 67 65 73 2e | Command.to.gain.root.privileges. |
| 11820 | 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | "...:type.'string)..(defun.couns |
| 11840 | 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 73 2d 72 6f 6f 74 20 28 78 29 0a 20 20 22 46 69 6e 64 | el-find-file-as-root.(x)..."Find |
| 11860 | 20 66 69 6c 65 20 58 20 77 69 74 68 20 72 6f 6f 74 20 70 72 69 76 69 6c 65 67 65 73 2e 22 0a 20 | .file.X.with.root.privileges.".. |
| 11880 | 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 63 6f 75 6e 73 65 | .(counsel-require-program.counse |
| 118a0 | 6c 2d 72 6f 6f 74 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 6c 65 74 2a 20 28 28 68 6f 73 74 20 28 | l-root-command)...(let*.((host.( |
| 118c0 | 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 78 20 27 68 6f 73 74 29 29 0a 20 20 20 20 20 20 20 20 | file-remote-p.x.'host))......... |
| 118e0 | 20 28 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 2f 25 73 3a 25 73 3a 25 73 22 0a | .(file-name.(format."/%s:%s:%s". |
| 11900 | 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 63 6f 75 6e | ............................coun |
| 11920 | 73 65 6c 2d 72 6f 6f 74 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sel-root-command................ |
| 11940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 68 6f 73 74 20 22 22 29 0a 20 20 20 20 20 20 | .............(or.host."")....... |
| 11960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 | ......................(expand-fi |
| 11980 | 6c 65 2d 6e 61 6d 65 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 | le-name......................... |
| 119a0 | 20 20 20 20 20 28 69 66 20 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....(if.host................... |
| 119c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 78 20 | ...............(file-remote-p.x. |
| 119e0 | 27 6c 6f 63 61 6c 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'localname)..................... |
| 11a00 | 20 20 20 20 20 20 20 20 20 20 20 78 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 49 66 20 74 68 65 20 | ...........x))))).....;;.If.the. |
| 11a20 | 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 76 69 73 69 74 73 20 74 68 65 20 73 61 6d 65 20 66 | current.buffer.visits.the.same.f |
| 11a40 | 69 6c 65 20 77 65 20 61 72 65 20 61 62 6f 75 74 20 74 6f 20 6f 70 65 6e 2c 0a 20 20 20 20 3b 3b | ile.we.are.about.to.open,.....;; |
| 11a60 | 20 72 65 70 6c 61 63 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 77 69 74 68 | .replace.the.current.buffer.with |
| 11a80 | 20 74 68 65 20 6e 65 77 20 6f 6e 65 2e 0a 20 20 20 20 28 69 66 20 28 65 71 20 28 63 75 72 72 65 | .the.new.one......(if.(eq.(curre |
| 11aa0 | 6e 74 2d 62 75 66 66 65 72 29 20 28 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 78 29 29 0a | nt-buffer).(get-file-buffer.x)). |
| 11ac0 | 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 61 6c 74 65 72 6e 61 74 65 2d 66 69 6c 65 20 66 69 6c | ........(find-alternate-file.fil |
| 11ae0 | 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 | e-name).......(find-file.file-na |
| 11b00 | 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 79 65 73 2d 6f 72 2d 6e | me))))..(defun.counsel--yes-or-n |
| 11b20 | 6f 2d 70 20 28 66 6d 74 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 41 73 6b 20 75 73 65 72 | o-p.(fmt.&rest.args)..."Ask.user |
| 11b40 | 20 61 20 79 65 73 20 6f 72 20 6e 6f 20 71 75 65 73 74 69 6f 6e 20 63 72 65 61 74 65 64 20 75 73 | .a.yes.or.no.question.created.us |
| 11b60 | 69 6e 67 20 46 4d 54 20 61 6e 64 20 41 52 47 53 2e 0a 49 66 20 45 6d 61 63 73 20 32 36 20 75 73 | ing.FMT.and.ARGS..If.Emacs.26.us |
| 11b80 | 65 72 20 6f 70 74 69 6f 6e 20 60 72 65 61 64 2d 61 6e 73 77 65 72 2d 73 68 6f 72 74 27 20 69 73 | er.option.`read-answer-short'.is |
| 11ba0 | 20 62 6f 75 6e 64 2c 20 75 73 65 20 69 74 20 74 6f 0a 63 68 6f 6f 73 65 20 62 65 74 77 65 65 6e | .bound,.use.it.to.choose.between |
| 11bc0 | 20 60 79 65 73 2d 6f 72 2d 6e 6f 2d 70 27 20 61 6e 64 20 60 79 2d 6f 72 2d 6e 2d 70 27 3b 20 6f | .`yes-or-no-p'.and.`y-or-n-p';.o |
| 11be0 | 74 68 65 72 77 69 73 65 20 64 65 66 61 75 6c 74 20 74 6f 0a 60 79 65 73 2d 6f 72 2d 6e 6f 2d 70 | therwise.default.to.`yes-or-no-p |
| 11c00 | 27 2e 22 0a 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 | '."...(funcall.(if.(and.(boundp. |
| 11c20 | 27 72 65 61 64 2d 61 6e 73 77 65 72 2d 73 68 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | 'read-answer-short)............. |
| 11c40 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 72 65 61 64 2d 61 6e 73 77 65 72 2d 73 | ........(cond.((eq.read-answer-s |
| 11c60 | 68 6f 72 74 20 74 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 | hort.t))........................ |
| 11c80 | 20 20 20 28 28 65 71 20 72 65 61 64 2d 61 6e 73 77 65 72 2d 73 68 6f 72 74 20 27 61 75 74 6f 29 | ...((eq.read-answer-short.'auto) |
| 11ca0 | 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 28 65 71 20 | ............................(eq. |
| 11cc0 | 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 79 65 73 2d 6f 72 2d 6e 6f 2d 70 29 20 27 | (symbol-function.'yes-or-no-p).' |
| 11ce0 | 79 2d 6f 72 2d 6e 2d 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 79 2d | y-or-n-p))))................#'y- |
| 11d00 | 6f 72 2d 6e 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 79 65 73 2d 6f 72 2d 6e 6f 2d | or-n-p..............#'yes-or-no- |
| 11d20 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 66 6f 72 6d 61 74 20 66 6d | p)............(apply.#'format.fm |
| 11d40 | 74 20 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 | t.args)))..(defun.counsel-find-f |
| 11d60 | 69 6c 65 2d 63 6f 70 79 20 28 78 29 0a 20 20 22 43 6f 70 79 20 66 69 6c 65 20 58 2e 22 0a 20 20 | ile-copy.(x)..."Copy.file.X."... |
| 11d80 | 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 61 75 78 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d | (require.'dired-aux)...(counsel- |
| 11da0 | 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 20 22 43 6f 70 79 20 66 69 6c 65 20 74 6f 3a 20 22 0a 20 20 | -find-file-1."Copy.file.to:."... |
| 11dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 76 79 2d 2d 64 69 72 65 63 | ......................ivy--direc |
| 11de0 | 74 6f 72 79 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 28 6c 61 | tory.........................(la |
| 11e00 | 6d 62 64 61 20 28 6e 65 77 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mbda.(new-name)................. |
| 11e20 | 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 63 6f 70 79 2d 66 69 6c 65 20 78 20 6e 65 77 | ..........(dired-copy-file.x.new |
| 11e40 | 2d 6e 61 6d 65 20 31 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 | -name.1))....................... |
| 11e60 | 20 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 63 6f 70 79 29 29 0a 0a 28 64 65 | ..'counsel-find-file-copy))..(de |
| 11e80 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 64 65 6c 65 74 65 20 28 78 29 | fun.counsel-find-file-delete.(x) |
| 11ea0 | 0a 20 20 22 44 65 6c 65 74 65 20 66 69 6c 65 20 58 2e 22 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 | ..."Delete.file.X."...(when.(or. |
| 11ec0 | 64 65 6c 65 74 65 2d 62 79 2d 6d 6f 76 69 6e 67 2d 74 6f 2d 74 72 61 73 68 0a 20 20 20 20 20 20 | delete-by-moving-to-trash....... |
| 11ee0 | 20 20 20 20 20 20 3b 3b 20 60 64 69 72 65 64 2d 64 65 6c 65 74 65 2d 66 69 6c 65 27 2c 20 77 68 | ......;;.`dired-delete-file',.wh |
| 11f00 | 69 63 68 20 73 65 65 2c 20 61 6c 72 65 61 64 79 20 70 72 6f 6d 70 74 73 20 66 6f 72 20 64 69 72 | ich.see,.already.prompts.for.dir |
| 11f20 | 65 63 74 6f 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 20 74 20 28 63 61 72 20 | ectories.............(eq.t.(car. |
| 11f40 | 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | (file-attributes.x)))........... |
| 11f60 | 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 79 65 73 2d 6f 72 2d 6e 6f 2d 70 20 22 44 65 6c 65 74 65 20 | ..(counsel--yes-or-no-p."Delete. |
| 11f80 | 25 73 3f 20 22 20 78 29 29 0a 20 20 20 20 28 64 69 72 65 64 2d 64 65 6c 65 74 65 2d 66 69 6c 65 | %s?.".x)).....(dired-delete-file |
| 11fa0 | 20 78 20 64 69 72 65 64 2d 72 65 63 75 72 73 69 76 65 2d 64 65 6c 65 74 65 73 20 64 65 6c 65 74 | .x.dired-recursive-deletes.delet |
| 11fc0 | 65 2d 62 79 2d 6d 6f 76 69 6e 67 2d 74 6f 2d 74 72 61 73 68 29 0a 20 20 20 20 28 64 69 72 65 64 | e-by-moving-to-trash).....(dired |
| 11fe0 | 2d 63 6c 65 61 6e 2d 75 70 2d 61 66 74 65 72 2d 64 65 6c 65 74 69 6f 6e 20 78 29 0a 20 20 20 20 | -clean-up-after-deletion.x)..... |
| 12000 | 28 6c 65 74 20 28 28 77 69 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 71 20 69 76 79 2d 65 78 69 | (let.((win.(and.(not.(eq.ivy-exi |
| 12020 | 74 20 27 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 | t.'done)).....................(a |
| 12040 | 63 74 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 | ctive-minibuffer-window))))..... |
| 12060 | 20 20 28 77 68 65 6e 20 77 69 6e 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f | ..(when.win.(with-selected-windo |
| 12080 | 77 20 77 69 6e 20 28 69 76 79 2d 2d 63 64 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 29 29 29 | w.win.(ivy--cd.ivy--directory))) |
| 120a0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 6f | )))..(defun.counsel-find-file-mo |
| 120c0 | 76 65 20 28 78 29 0a 20 20 22 4d 6f 76 65 20 6f 72 20 72 65 6e 61 6d 65 20 66 69 6c 65 20 58 2e | ve.(x)..."Move.or.rename.file.X. |
| 120e0 | 22 0a 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 61 75 78 29 0a 20 20 28 63 6f 75 6e | "...(require.'dired-aux)...(coun |
| 12100 | 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 20 22 52 65 6e 61 6d 65 20 66 69 6c 65 20 74 6f | sel--find-file-1."Rename.file.to |
| 12120 | 3a 20 22 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 69 76 79 2d | :.".........................ivy- |
| 12140 | 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -directory...................... |
| 12160 | 20 20 20 28 6c 61 6d 62 64 61 20 28 6e 65 77 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(new-name)........... |
| 12180 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 | ................(dired-rename-fi |
| 121a0 | 6c 65 20 78 20 6e 65 77 2d 6e 61 6d 65 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le.x.new-name.1))............... |
| 121c0 | 20 20 20 20 20 20 20 20 20 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 6f 76 | ..........'counsel-find-file-mov |
| 121e0 | 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 6b | e))..(defun.counsel-find-file-mk |
| 12200 | 64 69 72 2d 61 63 74 69 6f 6e 20 28 5f 78 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 64 69 72 65 | dir-action.(_x)..."Create.a.dire |
| 12220 | 63 74 6f 72 79 20 61 6e 64 20 61 6e 79 20 6e 6f 6e 65 78 69 73 74 65 6e 74 20 70 61 72 65 6e 74 | ctory.and.any.nonexistent.parent |
| 12240 | 20 64 69 72 73 20 66 72 6f 6d 20 60 69 76 79 2d 74 65 78 74 27 2e 22 0a 20 20 28 6c 65 74 20 28 | .dirs.from.`ivy-text'."...(let.( |
| 12260 | 28 64 69 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 | (dir.(file-name-as-directory.... |
| 12280 | 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 76 79 | ...........(expand-file-name.ivy |
| 122a0 | 2d 74 65 78 74 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 | -text.ivy--directory)))......... |
| 122c0 | 28 77 69 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 65 71 20 69 76 79 2d 65 78 69 74 20 27 64 6f 6e | (win.(and.(not.(eq.ivy-exit.'don |
| 122e0 | 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 63 74 69 76 65 2d 6d 69 | e))...................(active-mi |
| 12300 | 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 29 29 0a 20 20 20 20 28 6d 61 6b 65 2d 64 69 | nibuffer-window)))).....(make-di |
| 12320 | 72 65 63 74 6f 72 79 20 64 69 72 20 74 29 0a 20 20 20 20 28 77 68 65 6e 20 77 69 6e 20 28 77 69 | rectory.dir.t).....(when.win.(wi |
| 12340 | 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 20 28 69 76 79 2d 2d 63 64 20 | th-selected-window.win.(ivy--cd. |
| 12360 | 64 69 72 29 29 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 | dir)))))..(ivy-set-actions..'cou |
| 12380 | 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 0a 20 27 28 28 22 6a 22 20 66 69 6e 64 2d 66 69 6c 65 | nsel-find-file..'(("j".find-file |
| 123a0 | 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 | -other-window."other.window")... |
| 123c0 | 20 28 22 66 22 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d 65 20 22 6f 74 68 | .("f".find-file-other-frame."oth |
| 123e0 | 65 72 20 66 72 61 6d 65 22 29 0a 20 20 20 28 22 62 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | er.frame")....("b".counsel-find- |
| 12400 | 66 69 6c 65 2d 63 64 2d 62 6f 6f 6b 6d 61 72 6b 2d 61 63 74 69 6f 6e 20 22 63 64 20 62 6f 6f 6b | file-cd-bookmark-action."cd.book |
| 12420 | 6d 61 72 6b 22 29 0a 20 20 20 28 22 78 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 | mark")....("x".counsel-find-file |
| 12440 | 2d 65 78 74 65 72 6e 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c 6c 79 22 29 0a 20 20 20 28 22 | -extern."open.externally")....(" |
| 12460 | 72 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 73 2d 72 6f 6f 74 20 22 6f 70 | r".counsel-find-file-as-root."op |
| 12480 | 65 6e 20 61 73 20 72 6f 6f 74 22 29 0a 20 20 20 28 22 52 22 20 66 69 6e 64 2d 66 69 6c 65 2d 72 | en.as.root")....("R".find-file-r |
| 124a0 | 65 61 64 2d 6f 6e 6c 79 20 22 72 65 61 64 20 6f 6e 6c 79 22 29 0a 20 20 20 28 22 6c 22 20 66 69 | ead-only."read.only")....("l".fi |
| 124c0 | 6e 64 2d 66 69 6c 65 2d 6c 69 74 65 72 61 6c 6c 79 20 22 6f 70 65 6e 20 6c 69 74 65 72 61 6c 6c | nd-file-literally."open.literall |
| 124e0 | 79 22 29 0a 20 20 20 28 22 6b 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 64 65 | y")....("k".counsel-find-file-de |
| 12500 | 6c 65 74 65 20 22 64 65 6c 65 74 65 22 29 0a 20 20 20 28 22 63 22 20 63 6f 75 6e 73 65 6c 2d 66 | lete."delete")....("c".counsel-f |
| 12520 | 69 6e 64 2d 66 69 6c 65 2d 63 6f 70 79 20 22 63 6f 70 79 20 66 69 6c 65 22 29 0a 20 20 20 28 22 | ind-file-copy."copy.file")....(" |
| 12540 | 6d 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 6f 76 65 20 22 6d 6f 76 65 20 | m".counsel-find-file-move."move. |
| 12560 | 6f 72 20 72 65 6e 61 6d 65 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 | or.rename")....("d".counsel-find |
| 12580 | 2d 66 69 6c 65 2d 6d 6b 64 69 72 2d 61 63 74 69 6f 6e 20 22 6d 6b 64 69 72 22 29 29 29 0a 0a 28 | -file-mkdir-action."mkdir")))..( |
| 125a0 | 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 74 2d 70 | defcustom.counsel-find-file-at-p |
| 125c0 | 6f 69 6e 74 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 64 64 20 66 69 | oint.nil..."When.non-nil,.add.fi |
| 125e0 | 6c 65 2d 61 74 2d 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 6c 69 73 74 20 6f 66 20 63 61 6e 64 69 | le-at-point.to.the.list.of.candi |
| 12600 | 64 61 74 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 | dates."...:type.'boolean)..(defc |
| 12620 | 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 70 72 65 73 65 6c 65 63 74 2d 63 75 72 72 65 6e 74 2d | ustom.counsel-preselect-current- |
| 12640 | 66 69 6c 65 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 70 72 65 73 65 6c | file.nil..."When.non-nil,.presel |
| 12660 | 65 63 74 20 63 75 72 72 65 6e 74 20 66 69 6c 65 20 69 6e 20 6c 69 73 74 20 6f 66 20 63 61 6e 64 | ect.current.file.in.list.of.cand |
| 12680 | 69 64 61 74 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 | idates."...:type.'boolean)..(def |
| 126a0 | 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 65 2d | custom.counsel-find-file-ignore- |
| 126c0 | 72 65 67 65 78 70 20 6e 69 6c 0a 20 20 22 41 20 72 65 67 65 78 70 20 6f 66 20 66 69 6c 65 73 20 | regexp.nil..."A.regexp.of.files. |
| 126e0 | 74 6f 20 69 67 6e 6f 72 65 20 77 68 69 6c 65 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 | to.ignore.while.in.`counsel-find |
| 12700 | 2d 66 69 6c 65 27 2e 0a 54 68 65 73 65 20 66 69 6c 65 73 20 61 72 65 20 75 6e 2d 69 67 6e 6f 72 | -file'..These.files.are.un-ignor |
| 12720 | 65 64 20 69 66 20 60 69 76 79 2d 74 65 78 74 27 20 6d 61 74 63 68 65 73 20 74 68 65 6d 2e 20 20 | ed.if.`ivy-text'.matches.them... |
| 12740 | 54 68 65 0a 63 6f 6d 6d 6f 6e 20 77 61 79 20 74 6f 20 73 68 6f 77 20 61 6c 6c 20 66 69 6c 65 73 | The.common.way.to.show.all.files |
| 12760 | 20 69 73 20 74 6f 20 73 74 61 72 74 20 60 69 76 79 2d 74 65 78 74 27 20 77 69 74 68 20 61 20 64 | .is.to.start.`ivy-text'.with.a.d |
| 12780 | 6f 74 2e 0a 0a 45 78 61 6d 70 6c 65 20 76 61 6c 75 65 3a 20 5c 22 5c 5c 5c 5c 3d 60 5b 23 2e 5d | ot...Example.value:.\"\\\\=`[#.] |
| 127a0 | 5c 5c 7c 5b 23 7e 5d 5c 5c 5c 5c 3d 27 5c 22 2e 0a 54 68 69 73 20 77 69 6c 6c 20 68 69 64 65 20 | \\|[#~]\\\\='\"..This.will.hide. |
| 127c0 | 74 65 6d 70 6f 72 61 72 79 20 61 6e 64 20 6c 6f 63 6b 20 66 69 6c 65 73 2e 0a 5c 5c 3c 69 76 79 | temporary.and.lock.files..\\<ivy |
| 127e0 | 2d 6d 69 6e 69 62 75 66 66 65 72 2d 6d 61 70 3e 0a 43 68 6f 6f 73 69 6e 67 20 74 68 65 20 64 6f | -minibuffer-map>.Choosing.the.do |
| 12800 | 74 66 69 6c 65 73 20 6f 70 74 69 6f 6e 2c 20 5c 22 5c 5c 5c 5c 3d 60 5c 5c 2e 5c 22 2c 20 6d 69 | tfiles.option,.\"\\\\=`\\.\",.mi |
| 12820 | 67 68 74 20 62 65 20 63 6f 6e 76 65 6e 69 65 6e 74 2c 0a 73 69 6e 63 65 20 79 6f 75 20 63 61 6e | ght.be.convenient,.since.you.can |
| 12840 | 20 73 74 69 6c 6c 20 61 63 63 65 73 73 20 74 68 65 20 64 6f 74 66 69 6c 65 73 20 69 66 20 79 6f | .still.access.the.dotfiles.if.yo |
| 12860 | 75 72 20 69 6e 70 75 74 20 73 74 61 72 74 73 20 77 69 74 68 0a 61 20 64 6f 74 2e 20 20 54 68 65 | ur.input.starts.with.a.dot...The |
| 12880 | 20 67 65 6e 65 72 69 63 20 77 61 79 20 74 6f 20 74 6f 67 67 6c 65 20 69 67 6e 6f 72 65 64 20 66 | .generic.way.to.toggle.ignored.f |
| 128a0 | 69 6c 65 73 20 69 73 20 5c 5c 5b 69 76 79 2d 74 6f 67 67 6c 65 2d 69 67 6e 6f 72 65 5d 2c 0a 62 | iles.is.\\[ivy-toggle-ignore],.b |
| 128c0 | 75 74 20 74 68 65 20 6c 65 61 64 69 6e 67 20 64 6f 74 20 69 73 20 61 20 6c 6f 74 20 66 61 73 74 | ut.the.leading.dot.is.a.lot.fast |
| 128e0 | 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 60 28 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 | er."...:type.`(choice........... |
| 12900 | 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 6e 65 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 | (const.:tag."None".nil)......... |
| 12920 | 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 44 6f 74 66 69 6c 65 73 20 61 6e 64 20 4c 6f 63 6b | ..(const.:tag."Dotfiles.and.Lock |
| 12940 | 66 69 6c 65 73 22 20 22 5c 5c 28 3f 3a 5c 5c 60 5c 5c 7c 5b 2f 5c 5c 5d 5c 5c 29 5c 5c 28 3f 3a | files"."\\(?:\\`\\|[/\\]\\)\\(?: |
| 12960 | 5b 23 2e 5d 5c 5c 29 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 | [#.]\\)")...........(const.:tag. |
| 12980 | 22 49 67 6e 6f 72 65 64 20 45 78 74 65 6e 73 69 6f 6e 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 | "Ignored.Extensions"............ |
| 129a0 | 20 20 20 20 20 20 2c 28 63 6f 6e 63 61 74 20 28 72 65 67 65 78 70 2d 6f 70 74 20 63 6f 6d 70 6c | ......,(concat.(regexp-opt.compl |
| 129c0 | 65 74 69 6f 6e 2d 69 67 6e 6f 72 65 64 2d 65 78 74 65 6e 73 69 6f 6e 73 29 20 22 5c 5c 27 22 29 | etion-ignored-extensions)."\\'") |
| 129e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 20 3a 74 61 67 20 22 52 65 67 65 78 22 | )...........(regexp.:tag."Regex" |
| 12a00 | 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d | )))..(defvar.counsel--find-file- |
| 12a20 | 70 72 65 64 69 63 61 74 65 20 6e 69 6c 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 60 | predicate.nil..."When.non-nil,.` |
| 12a40 | 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 74 63 68 65 72 27 20 77 69 6c 6c | counsel--find-file-matcher'.will |
| 12a60 | 20 75 73 65 20 74 68 69 73 20 70 72 65 64 69 63 61 74 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 | .use.this.predicate.")..(defun.c |
| 12a80 | 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 74 63 68 65 72 20 28 72 65 67 65 78 | ounsel--find-file-matcher.(regex |
| 12aa0 | 70 20 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 52 45 47 45 58 50 20 6d | p.candidates)..."Return.REGEXP.m |
| 12ac0 | 61 74 63 68 69 6e 67 20 43 41 4e 44 49 44 41 54 45 53 2e 0a 53 6b 69 70 20 73 6f 6d 65 20 64 6f | atching.CANDIDATES..Skip.some.do |
| 12ae0 | 74 66 69 6c 65 73 20 75 6e 6c 65 73 73 20 60 69 76 79 2d 74 65 78 74 27 20 72 65 71 75 69 72 65 | tfiles.unless.`ivy-text'.require |
| 12b00 | 73 20 74 68 65 6d 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 73 0a 20 20 20 20 20 20 20 20 20 28 | s.them."...(let.((res..........( |
| 12b20 | 69 76 79 2d 2d 72 65 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 72 65 67 65 78 70 20 | ivy--re-filter...........regexp. |
| 12b40 | 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 72 65 | candidates...........(lambda.(re |
| 12b60 | 2d 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 | -str).............(lambda.(x)... |
| 12b80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 2d 73 74 72 | ............(string-match.re-str |
| 12ba0 | 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 78 29 29 29 29 29 29 29 0a 20 | .(directory-file-name.x))))))).. |
| 12bc0 | 20 20 20 28 77 68 65 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 70 72 65 64 | ...(when.counsel--find-file-pred |
| 12be0 | 69 63 61 74 65 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | icate.......(let.((default-direc |
| 12c00 | 74 6f 72 79 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 28 73 | tory.ivy--directory)).........(s |
| 12c20 | 65 74 71 20 72 65 73 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 63 6f 75 6e 73 65 | etq.res.(cl-remove-if-not.counse |
| 12c40 | 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 70 72 65 64 69 63 61 74 65 20 72 65 73 29 29 29 29 0a 20 | l--find-file-predicate.res)))).. |
| 12c60 | 20 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 20 69 76 79 2d 75 73 65 2d 69 67 6e 6f 72 65 29 | ...(if.(or.(null.ivy-use-ignore) |
| 12c80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | .............(null.counsel-find- |
| 12ca0 | 66 69 6c 65 2d 69 67 6e 6f 72 65 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | file-ignore-regexp)............. |
| 12cc0 | 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c | (string-match-p.counsel-find-fil |
| 12ce0 | 65 2d 69 67 6e 6f 72 65 2d 72 65 67 65 78 70 20 69 76 79 2d 74 65 78 74 29 29 0a 20 20 20 20 20 | e-ignore-regexp.ivy-text))...... |
| 12d00 | 20 20 20 72 65 73 0a 20 20 20 20 20 20 28 6f 72 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 0a 20 | ...res.......(or.(cl-remove-if.. |
| 12d20 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 | ..........(lambda.(x)........... |
| 12d40 | 20 20 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 | ...(and...............(string-ma |
| 12d60 | 74 63 68 2d 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 65 2d 72 | tch-p.counsel-find-file-ignore-r |
| 12d80 | 65 67 65 78 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d | egexp.x)...............(not.(mem |
| 12da0 | 62 65 72 20 78 20 69 76 79 2d 65 78 74 72 61 2d 64 69 72 65 63 74 6f 72 69 65 73 29 29 29 29 0a | ber.x.ivy-extra-directories)))). |
| 12dc0 | 20 20 20 20 20 20 20 20 20 20 20 72 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 72 65 73 29 29 29 | ...........res)...........res))) |
| 12de0 | 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 66 61 70 2d 67 75 65 73 73 65 | )..(declare-function.ffap-guesse |
| 12e00 | 72 20 22 66 66 61 70 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | r."ffap")..(defvar.counsel-find- |
| 12e20 | 66 69 6c 65 2d 73 70 65 65 64 75 70 2d 72 65 6d 6f 74 65 20 74 0a 20 20 22 53 70 65 65 64 20 75 | file-speedup-remote.t..."Speed.u |
| 12e40 | 70 20 6f 70 65 6e 69 6e 67 20 72 65 6d 6f 74 65 20 66 69 6c 65 73 20 62 79 20 64 69 73 61 62 6c | p.opening.remote.files.by.disabl |
| 12e60 | 69 6e 67 20 60 66 69 6e 64 2d 66 69 6c 65 2d 68 6f 6f 6b 27 20 66 6f 72 20 74 68 65 6d 2e 22 29 | ing.`find-file-hook'.for.them.") |
| 12e80 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 | ..(defcustom.counsel-find-file-e |
| 12ea0 | 78 74 65 72 6e 2d 65 78 74 65 6e 73 69 6f 6e 73 20 27 28 22 6d 70 34 22 20 22 6d 6b 76 22 20 22 | xtern-extensions.'("mp4"."mkv"." |
| 12ec0 | 78 6c 73 78 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 65 78 74 65 6e 73 69 6f 6e 73 20 74 68 61 | xlsx")..."List.of.extensions.tha |
| 12ee0 | 74 20 6d 61 6b 65 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 27 20 75 73 65 20 60 | t.make.`counsel-find-file'.use.` |
| 12f00 | 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 27 2e 22 0a 20 20 3a 74 | counsel-find-file-extern'."...:t |
| 12f20 | 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | ype.'(repeat.string))..(defun.co |
| 12f40 | 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 46 69 | unsel-find-file-action.(x)..."Fi |
| 12f60 | 6e 64 20 66 69 6c 65 20 58 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 63 6f 75 6e 73 65 | nd.file.X."...(cond.((and.counse |
| 12f80 | 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 73 70 65 65 64 75 70 2d 72 65 6d 6f 74 65 0a 20 20 20 20 20 | l-find-file-speedup-remote...... |
| 12fa0 | 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 69 76 79 2d 2d 64 69 72 | .........(file-remote-p.ivy--dir |
| 12fc0 | 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6e 64 2d 66 69 | ectory))..........(let.((find-fi |
| 12fe0 | 6c 65 2d 68 6f 6f 6b 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 | le-hook.nil))............(find-f |
| 13000 | 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 78 20 69 76 79 2d 2d 64 69 72 | ile.(expand-file-name.x.ivy--dir |
| 13020 | 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 28 66 69 6c | ectory)))).........((member.(fil |
| 13040 | 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 78 29 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 | e-name-extension.x).counsel-find |
| 13060 | 2d 66 69 6c 65 2d 65 78 74 65 72 6e 2d 65 78 74 65 6e 73 69 6f 6e 73 29 0a 20 20 20 20 20 20 20 | -file-extern-extensions)........ |
| 13080 | 20 20 28 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 20 78 29 29 0a | ..(counsel-find-file-extern.x)). |
| 130a0 | 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 28 | ........(t..........(find-file.( |
| 130c0 | 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 78 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 | expand-file-name.x.ivy--director |
| 130e0 | 79 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 70 72 65 73 65 6c 65 63 | y)))))..(defun.counsel--preselec |
| 13100 | 74 2d 66 69 6c 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 63 61 6e 64 69 64 61 74 65 20 74 6f | t-file.()..."Return.candidate.to |
| 13120 | 20 70 72 65 73 65 6c 65 63 74 20 64 75 72 69 6e 67 20 66 69 6c 65 6e 61 6d 65 20 63 6f 6d 70 6c | .preselect.during.filename.compl |
| 13140 | 65 74 69 6f 6e 2e 0a 54 68 65 20 70 72 65 73 65 6c 65 63 74 20 62 65 68 61 76 69 6f 72 20 63 61 | etion..The.preselect.behavior.ca |
| 13160 | 6e 20 62 65 20 63 75 73 74 6f 6d 69 7a 65 64 20 76 69 61 20 75 73 65 72 20 6f 70 74 69 6f 6e 73 | n.be.customized.via.user.options |
| 13180 | 0a 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 27 20 61 6e | .`counsel-find-file-at-point'.an |
| 131a0 | 64 0a 60 63 6f 75 6e 73 65 6c 2d 70 72 65 73 65 6c 65 63 74 2d 63 75 72 72 65 6e 74 2d 66 69 6c | d.`counsel-preselect-current-fil |
| 131c0 | 65 27 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 28 6f 72 0a 20 20 20 28 77 68 65 6e 20 63 | e',.which.see."...(or....(when.c |
| 131e0 | 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 28 | ounsel-find-file-at-point......( |
| 13200 | 72 65 71 75 69 72 65 20 27 66 66 61 70 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 66 20 28 66 66 | require.'ffap)......(let.((f.(ff |
| 13220 | 61 70 2d 67 75 65 73 73 65 72 29 29 29 0a 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 | ap-guesser)))........(when.(and. |
| 13240 | 66 20 28 6e 6f 74 20 28 69 76 79 2d 66 66 61 70 2d 75 72 6c 2d 70 20 66 29 29 29 0a 20 20 20 20 | f.(not.(ivy-ffap-url-p.f)))..... |
| 13260 | 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 29 29 29 29 0a 20 20 20 | .....(expand-file-name.f)))).... |
| 13280 | 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 70 72 65 73 65 6c 65 63 74 2d 63 75 72 72 65 6e 74 2d 66 | (and.counsel-preselect-current-f |
| 132a0 | 69 6c 65 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 | ile.........buffer-file-name.... |
| 132c0 | 20 20 20 20 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 62 75 66 | .....(file-name-nondirectory.buf |
| 132e0 | 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | fer-file-name))))..(defun.counse |
| 13300 | 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 20 28 70 72 6f 6d 70 74 20 69 6e 69 74 69 61 6c 2d 69 | l--find-file-1.(prompt.initial-i |
| 13320 | 6e 70 75 74 20 61 63 74 69 6f 6e 20 63 61 6c 6c 65 72 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 | nput.action.caller)...(let.((def |
| 13340 | 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 | ault-directory..........(if.(eq. |
| 13360 | 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 | major-mode.'dired-mode)......... |
| 13380 | 20 20 20 20 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 | .....(dired-current-directory).. |
| 133a0 | 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 | ..........default-directory))).. |
| 133c0 | 20 20 20 28 69 76 79 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 23 27 72 65 61 64 2d 66 69 6c 65 2d | ...(ivy-read.prompt.#'read-file- |
| 133e0 | 6e 61 6d 65 2d 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 61 74 | name-internal...............:mat |
| 13400 | 63 68 65 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 74 63 68 65 | cher.#'counsel--find-file-matche |
| 13420 | 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 | r...............:initial-input.i |
| 13440 | 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 | nitial-input...............:acti |
| 13460 | 6f 6e 20 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 | on.action...............:presele |
| 13480 | 63 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 70 72 65 73 65 6c 65 63 74 2d 66 69 6c 65 29 0a 20 20 20 | ct.(counsel--preselect-file).... |
| 134a0 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 27 63 6f 6e 66 69 | ...........:require-match.'confi |
| 134c0 | 72 6d 2d 61 66 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | rm-after-completion............. |
| 134e0 | 20 20 3a 68 69 73 74 6f 72 79 20 27 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 | ..:history.'file-name-history... |
| 13500 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 | ............:keymap.counsel-find |
| 13520 | 2d 66 69 6c 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 | -file-map...............:caller. |
| 13540 | 63 61 6c 6c 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | caller)))..;;;###autoload.(defun |
| 13560 | 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e | .counsel-find-file.(&optional.in |
| 13580 | 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 | itial-input.initial-directory).. |
| 135a0 | 20 22 46 6f 72 77 61 72 64 20 74 6f 20 60 66 69 6e 64 2d 66 69 6c 65 27 2e 0a 57 68 65 6e 20 49 | ."Forward.to.`find-file'..When.I |
| 135c0 | 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 75 73 65 20 69 74 20 | NITIAL-INPUT.is.non-nil,.use.it. |
| 135e0 | 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 64 75 72 69 6e 67 20 63 6f 6d 70 6c 65 74 | in.the.minibuffer.during.complet |
| 13600 | 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 65 66 76 61 72 20 | ion."...(interactive)...(defvar. |
| 13620 | 74 72 61 6d 70 2d 61 72 63 68 69 76 65 2d 65 6e 61 62 6c 65 64 29 0a 20 20 28 6c 65 74 20 28 28 | tramp-archive-enabled)...(let.(( |
| 13640 | 74 72 61 6d 70 2d 61 72 63 68 69 76 65 2d 65 6e 61 62 6c 65 64 20 6e 69 6c 29 0a 20 20 20 20 20 | tramp-archive-enabled.nil)...... |
| 13660 | 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6f 72 20 69 6e 69 74 69 61 | ...(default-directory.(or.initia |
| 13680 | 6c 2d 64 69 72 65 63 74 6f 72 79 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 | l-directory.default-directory))) |
| 136a0 | 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 20 22 46 69 6e 64 | .....(counsel--find-file-1."Find |
| 136c0 | 20 66 69 6c 65 3a 20 22 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 | .file:.".initial-input.......... |
| 136e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | .................#'counsel-find- |
| 13700 | 66 69 6c 65 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | file-action..................... |
| 13720 | 20 20 20 20 20 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 29 29 29 0a 0a 28 69 76 | ......'counsel-find-file)))..(iv |
| 13740 | 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 0a 20 | y-configure.'counsel-find-file.. |
| 13760 | 20 3a 70 61 72 65 6e 74 20 27 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 2d 69 6e 74 65 72 6e 61 | .:parent.'read-file-name-interna |
| 13780 | 6c 0a 20 20 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f | l...:occur.#'counsel-find-file-o |
| 137a0 | 63 63 75 72 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 | ccur)..(defvar.counsel-find-file |
| 137c0 | 2d 6f 63 63 75 72 2d 63 6d 64 20 22 6c 73 20 2d 61 20 7c 20 25 73 20 7c 20 78 61 72 67 73 20 2d | -occur-cmd."ls.-a.|.%s.|.xargs.- |
| 137e0 | 64 20 27 5c 5c 6e 27 20 6c 73 20 2d 64 20 2d 2d 67 72 6f 75 70 2d 64 69 72 65 63 74 6f 72 69 65 | d.'\\n'.ls.-d.--group-directorie |
| 13800 | 73 2d 66 69 72 73 74 22 0a 20 20 22 46 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 66 6f 72 20 60 63 | s-first"..."Format.string.for.`c |
| 13820 | 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 27 2e 22 29 0a 0a 28 64 65 66 | ounsel-find-file-occur'.")..(def |
| 13840 | 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 2d 75 73 65 2d | var.counsel-find-file-occur-use- |
| 13860 | 66 69 6e 64 20 28 6e 6f 74 20 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 67 6e 75 2f 6c | find.(not.(eq.system-type.'gnu/l |
| 13880 | 69 6e 75 78 29 29 0a 20 20 22 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 60 63 6f 75 6e 73 65 6c | inux))..."When.non-nil,.`counsel |
| 138a0 | 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 27 20 77 69 6c 6c 20 75 73 65 20 5c 22 66 69 6e | -find-file-occur'.will.use.\"fin |
| 138c0 | 64 5c 22 20 61 73 20 74 68 65 20 62 61 73 65 20 63 6d 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 | d\".as.the.base.cmd.")..(defun.c |
| 138e0 | 6f 75 6e 73 65 6c 2d 2d 65 78 70 61 6e 64 2d 6c 73 20 28 63 6d 64 29 0a 20 20 22 45 78 70 61 6e | ounsel--expand-ls.(cmd)..."Expan |
| 13900 | 64 20 43 4d 44 20 74 68 61 74 20 65 6e 64 73 20 69 6e 20 5c 22 6c 73 5c 22 20 77 69 74 68 20 73 | d.CMD.that.ends.in.\"ls\".with.s |
| 13920 | 77 69 74 63 68 65 73 2e 22 0a 20 20 28 63 6f 6e 63 61 74 20 63 6d 64 20 22 20 22 20 63 6f 75 6e | witches."...(concat.cmd.".".coun |
| 13940 | 73 65 6c 2d 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 20 22 20 7c 20 73 | sel-dired-listing-switches.".|.s |
| 13960 | 65 64 20 2d 65 20 5c 22 73 2f 5e 2f 20 20 2f 5c 22 22 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f | ed.-e.\"s/^/../\""))..(defvar.co |
| 13980 | 75 6e 73 65 6c 2d 66 69 6c 65 2d 6e 61 6d 65 2d 66 69 6c 74 65 72 2d 61 6c 69 73 74 0a 20 20 27 | unsel-file-name-filter-alist...' |
| 139a0 | 28 28 22 61 67 20 2d 69 20 27 25 73 27 22 20 2e 20 74 29 0a 20 20 20 20 28 22 61 63 6b 20 2d 69 | (("ag.-i.'%s'"...t).....("ack.-i |
| 139c0 | 20 27 25 73 27 22 20 2e 20 74 29 0a 20 20 20 20 28 22 70 65 72 6c 20 2d 6e 65 20 27 2f 28 2e 2a | .'%s'"...t).....("perl.-ne.'/(.* |
| 139e0 | 25 73 2e 2a 29 2f 69 20 26 26 20 70 72 69 6e 74 20 5c 22 24 31 5c 5c 6e 5c 22 3b 27 22 20 2e 20 | %s.*)/i.&&.print.\"$1\\n\";'"... |
| 13a00 | 74 29 0a 20 20 20 20 28 22 67 72 65 70 20 2d 69 20 2d 45 20 27 25 73 27 22 29 29 0a 20 20 22 41 | t).....("grep.-i.-E.'%s'"))..."A |
| 13a20 | 6c 69 73 74 20 6f 66 20 66 69 6c 65 20 6e 61 6d 65 20 66 69 6c 74 65 72 69 6e 67 20 63 6f 6d 6d | list.of.file.name.filtering.comm |
| 13a40 | 61 6e 64 73 2e 0a 54 68 65 20 63 61 72 20 69 73 20 61 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 | ands..The.car.is.a.shell.command |
| 13a60 | 20 61 6e 64 20 74 68 65 20 63 64 72 20 69 73 20 74 20 77 68 65 6e 20 74 68 65 20 73 68 65 6c 6c | .and.the.cdr.is.t.when.the.shell |
| 13a80 | 0a 63 6f 6d 6d 61 6e 64 20 73 75 70 70 6f 72 74 73 20 6c 6f 6f 6b 2d 61 72 6f 75 6e 64 73 2e 20 | .command.supports.look-arounds.. |
| 13aa0 | 20 54 68 65 20 65 78 65 63 75 74 61 62 6c 65 20 66 6f 72 20 74 68 65 20 63 6f 6d 6d 61 6e 64 73 | .The.executable.for.the.commands |
| 13ac0 | 0a 77 69 6c 6c 20 62 65 20 63 68 65 63 6b 65 64 20 66 6f 72 20 65 78 69 73 74 65 6e 63 65 20 76 | .will.be.checked.for.existence.v |
| 13ae0 | 69 61 20 60 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 27 2e 20 20 54 68 65 20 66 69 72 73 74 | ia.`executable-find'...The.first |
| 13b00 | 0a 6f 6e 65 20 74 68 61 74 20 65 78 69 73 74 73 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2e 22 29 | .one.that.exists.will.be.used.") |
| 13b20 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6c 65 2d 6e 61 6d 65 2d 66 69 6c 74 | ..(defun.counsel--file-name-filt |
| 13b40 | 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 75 73 65 2d 69 67 6e 6f 72 65 29 0a 20 20 22 52 65 74 | er.(&optional.use-ignore)..."Ret |
| 13b60 | 75 72 6e 20 61 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 66 69 6c 74 65 72 73 20 61 20 66 69 6c | urn.a.command.that.filters.a.fil |
| 13b80 | 65 20 6c 69 73 74 20 74 6f 20 6d 61 74 63 68 20 69 76 79 20 63 61 6e 64 69 64 61 74 65 73 2e 0a | e.list.to.match.ivy.candidates.. |
| 13ba0 | 49 66 20 55 53 45 2d 49 47 4e 4f 52 45 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 74 72 79 20 74 6f | If.USE-IGNORE.is.non-nil,.try.to |
| 13bc0 | 20 67 65 6e 65 72 61 74 65 20 61 20 63 6f 6d 6d 61 6e 64 20 74 68 61 74 20 72 65 73 70 65 63 74 | .generate.a.command.that.respect |
| 13be0 | 73 0a 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 65 2d 72 65 67 65 | s.`counsel-find-file-ignore-rege |
| 13c00 | 78 70 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 65 67 65 78 20 69 76 79 2d 2d 6f 6c 64 2d 72 65 | xp'."...(let.((regex.ivy--old-re |
| 13c20 | 29 29 0a 20 20 20 20 28 69 66 20 28 3d 20 30 20 28 6c 65 6e 67 74 68 20 72 65 67 65 78 29 29 0a | )).....(if.(=.0.(length.regex)). |
| 13c40 | 20 20 20 20 20 20 20 20 22 63 61 74 22 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 74 65 | ........"cat".......(let.((filte |
| 13c60 | 72 2d 63 6d 64 20 28 63 6c 2d 66 69 6e 64 2d 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-cmd.(cl-find-if............... |
| 13c80 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 | ...........(lambda.(x).......... |
| 13ca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 | ..................(executable-fi |
| 13cc0 | 6e 64 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 28 | nd.............................( |
| 13ce0 | 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 72 20 78 29 29 29 29 29 0a 20 20 | car.(split-string.(car.x)))))... |
| 13d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 66 | .......................counsel-f |
| 13d20 | 69 6c 65 2d 6e 61 6d 65 2d 66 69 6c 74 65 72 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 | ile-name-filter-alist))......... |
| 13d40 | 20 20 20 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 75 73 65 2d | ....cmd).........(when.(and.use- |
| 13d60 | 69 67 6e 6f 72 65 20 69 76 79 2d 75 73 65 2d 69 67 6e 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 | ignore.ivy-use-ignore........... |
| 13d80 | 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 | .........counsel-find-file-ignor |
| 13da0 | 65 2d 72 65 67 65 78 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 | e-regexp....................(cdr |
| 13dc0 | 20 66 69 6c 74 65 72 2d 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .filter-cmd).................... |
| 13de0 | 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e | (not.(string-match-p.counsel-fin |
| 13e00 | 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 65 2d 72 65 67 65 78 70 20 69 76 79 2d 74 65 78 74 29 29 0a | d-file-ignore-regexp.ivy-text)). |
| 13e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d | ...................(not.(string- |
| 13e40 | 6d 61 74 63 68 2d 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e 6f 72 65 | match-p.counsel-find-file-ignore |
| 13e60 | 2d 72 65 67 65 78 70 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 | -regexp......................... |
| 13e80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 61 72 20 69 76 79 2d 2d 6f 6c | ................(or.(car.ivy--ol |
| 13ea0 | 64 2d 63 61 6e 64 73 29 20 22 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | d-cands).""))))...........(let.( |
| 13ec0 | 28 69 67 6e 6f 72 65 2d 72 65 20 28 6c 69 73 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 | (ignore-re.(list.(counsel--elisp |
| 13ee0 | 2d 74 6f 2d 70 63 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -to-pcre........................ |
| 13f00 | 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 69 67 6e | ...........counsel-find-file-ign |
| 13f20 | 6f 72 65 2d 72 65 67 65 78 70 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | ore-regexp)))).............(setq |
| 13f40 | 20 72 65 67 65 78 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 72 65 67 65 78 29 0a 20 20 20 20 20 | .regex.(if.(stringp.regex)...... |
| 13f60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 69 67 6e | .......................(list.ign |
| 13f80 | 6f 72 65 2d 72 65 20 28 63 6f 6e 73 20 72 65 67 65 78 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 | ore-re.(cons.regex.t)).......... |
| 13fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 69 67 6e 6f 72 65 2d 72 65 | .................(cons.ignore-re |
| 13fc0 | 20 72 65 67 65 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6d 64 20 28 66 | .regex))))).........(setq.cmd.(f |
| 13fe0 | 6f 72 6d 61 74 20 28 63 61 72 20 66 69 6c 74 65 72 2d 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 | ormat.(car.filter-cmd).......... |
| 14000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 | .................(counsel--elisp |
| 14020 | 2d 74 6f 2d 70 63 72 65 20 72 65 67 65 78 20 28 63 64 72 20 66 69 6c 74 65 72 2d 63 6d 64 29 29 | -to-pcre.regex.(cdr.filter-cmd)) |
| 14040 | 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 | )).........(if.(string-match-p." |
| 14060 | 63 73 68 5c 5c 27 22 20 73 68 65 6c 6c 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 | csh\\'".shell-file-name)........ |
| 14080 | 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 | .....(replace-regexp-in-string." |
| 140a0 | 5c 5c 3f 21 22 20 22 3f 5c 5c 5c 5c 21 22 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 63 6d | \\?!"."?\\\\!".cmd)...........cm |
| 140c0 | 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6f 63 63 75 72 2d 63 6d | d)))))..(defun.counsel--occur-cm |
| 140e0 | 64 2d 66 69 6e 64 20 28 29 0a 20 20 28 6c 65 74 20 28 28 63 6d 64 20 28 66 6f 72 6d 61 74 0a 20 | d-find.()...(let.((cmd.(format.. |
| 14100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 69 6e 64 20 2e 20 2d 6d 61 78 64 65 70 74 68 20 31 | ............."find...-maxdepth.1 |
| 14120 | 20 7c 20 25 73 20 7c 20 78 61 72 67 73 20 2d 49 20 7b 7d 20 66 69 6e 64 20 7b 7d 20 2d 6d 61 78 | .|.%s.|.xargs.-I.{}.find.{}.-max |
| 14140 | 64 65 70 74 68 20 30 20 2d 6c 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e | depth.0.-ls"...............(coun |
| 14160 | 73 65 6c 2d 2d 66 69 6c 65 2d 6e 61 6d 65 2d 66 69 6c 74 65 72 20 74 29 29 29 29 0a 20 20 20 20 | sel--file-name-filter.t))))..... |
| 14180 | 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6d 64 2d 74 6f 2d 64 69 | (concat......(counsel--cmd-to-di |
| 141a0 | 72 65 64 2d 62 79 2d 74 79 70 65 20 22 64 22 20 63 6d 64 29 0a 20 20 20 20 20 22 20 26 26 20 22 | red-by-type."d".cmd)......".&&." |
| 141c0 | 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 2d 62 79 2d | ......(counsel--cmd-to-dired-by- |
| 141e0 | 74 79 70 65 20 22 66 22 20 63 6d 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | type."f".cmd))))..(defun.counsel |
| 14200 | 2d 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 2d 62 79 2d 74 79 70 65 20 28 74 79 70 65 20 63 6d 64 | --cmd-to-dired-by-type.(type.cmd |
| 14220 | 29 0a 20 20 28 6c 65 74 20 28 28 65 78 63 6c 75 64 65 2d 64 6f 74 73 0a 20 20 20 20 20 20 20 20 | )...(let.((exclude-dots......... |
| 14240 | 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5e 5c 5c 2e 22 20 69 76 79 2d 74 65 | .(if.(string-match."^\\.".ivy-te |
| 14260 | 78 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 20 22 | xt)..............""............" |
| 14280 | 20 7c 20 67 72 65 70 20 2d 76 20 27 2f 5c 5c 5c 5c 2e 27 22 29 29 29 0a 20 20 20 20 28 72 65 70 | .|.grep.-v.'/\\\\.'"))).....(rep |
| 142a0 | 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 22 20 7c 20 67 | lace-regexp-in-string......".|.g |
| 142c0 | 72 65 70 22 0a 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 20 2d 74 79 70 65 20 22 20 74 79 70 65 | rep"......(concat.".-type.".type |
| 142e0 | 20 65 78 63 6c 75 64 65 2d 64 6f 74 73 20 22 20 7c 20 67 72 65 70 22 29 20 63 6d 64 29 29 29 0a | .exclude-dots.".|.grep").cmd))). |
| 14300 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 20 | .(defun.counsel-find-file-occur. |
| 14320 | 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 66 | (&optional._cands)...(require.'f |
| 14340 | 69 6e 64 2d 64 69 72 65 64 29 0a 20 20 28 63 64 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 29 | ind-dired)...(cd.ivy--directory) |
| 14360 | 0a 20 20 28 69 66 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 2d 75 | ...(if.counsel-find-file-occur-u |
| 14380 | 73 65 2d 66 69 6e 64 0a 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 | se-find.......(counsel-cmd-to-di |
| 143a0 | 72 65 64 0a 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 6f 63 63 75 72 2d 63 6d 64 2d 66 | red........(counsel--occur-cmd-f |
| 143c0 | 69 6e 64 29 0a 20 20 20 20 20 20 20 27 66 69 6e 64 2d 64 69 72 65 64 2d 66 69 6c 74 65 72 29 0a | ind)........'find-dired-filter). |
| 143e0 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 0a 20 20 20 20 20 28 | ....(counsel-cmd-to-dired......( |
| 14400 | 63 6f 75 6e 73 65 6c 2d 2d 65 78 70 61 6e 64 2d 6c 73 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | counsel--expand-ls.......(format |
| 14420 | 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 2d 63 6d 64 0a 20 20 20 | .counsel-find-file-occur-cmd.... |
| 14440 | 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 | ...........(if.(string-match-p." |
| 14460 | 67 72 65 70 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 63 63 75 72 2d 63 6d | grep".counsel-find-file-occur-cm |
| 14480 | 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 20 62 61 63 6b | d)...................;;.for.back |
| 144a0 | 77 61 72 64 73 20 63 6f 6d 70 61 74 69 62 69 6c 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | wards.compatibility............. |
| 144c0 | 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 20 69 76 | ......(counsel--elisp-to-pcre.iv |
| 144e0 | 79 2d 2d 6f 6c 64 2d 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e | y--old-re).................(coun |
| 14500 | 73 65 6c 2d 2d 66 69 6c 65 2d 6e 61 6d 65 2d 66 69 6c 74 65 72 20 74 29 29 29 29 29 29 29 0a 0a | sel--file-name-filter.t))))))).. |
| 14520 | 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 2d 6c 65 76 | (defvar.counsel-up-directory-lev |
| 14540 | 65 6c 20 74 0a 20 20 22 43 6f 6e 74 72 6f 6c 20 77 68 65 74 68 65 72 20 60 63 6f 75 6e 73 65 6c | el.t..."Control.whether.`counsel |
| 14560 | 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 27 20 67 6f 65 73 20 75 70 20 61 20 6c 65 76 65 6c 20 6f | -up-directory'.goes.up.a.level.o |
| 14580 | 72 20 61 6c 77 61 79 73 20 61 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 49 66 20 6e 6f 6e 2d 6e 69 | r.always.a.directory...If.non-ni |
| 145a0 | 6c 2c 20 74 68 65 6e 20 60 63 6f 75 6e 73 65 6c 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 27 20 77 | l,.then.`counsel-up-directory'.w |
| 145c0 | 69 6c 6c 20 72 65 6d 6f 76 65 20 74 68 65 20 66 69 6e 61 6c 20 6c 65 76 65 6c 20 6f 66 20 74 68 | ill.remove.the.final.level.of.th |
| 145e0 | 65 20 70 61 74 68 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 20 2f 61 2f 6c 6f 6e 67 2f 70 61 74 | e.path..For.example:./a/long/pat |
| 14600 | 68 2f 66 69 6c 65 2e 6a 70 67 20 3d 3e 20 2f 61 2f 6c 6f 6e 67 2f 70 61 74 68 2f 0a 20 20 20 20 | h/file.jpg.=>./a/long/path/..... |
| 14620 | 20 20 20 20 20 20 20 20 20 2f 61 2f 6c 6f 6e 67 2f 70 61 74 68 2f 20 20 20 20 20 3d 3e 20 20 20 | ........./a/long/path/.....=>... |
| 14640 | 20 20 2f 61 2f 6c 6f 6e 67 2f 0a 0a 49 66 20 6e 69 6c 2c 20 74 68 65 6e 20 60 63 6f 75 6e 73 65 | ../a/long/..If.nil,.then.`counse |
| 14660 | 6c 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 27 20 77 69 6c 6c 20 67 6f 20 75 70 20 61 20 64 69 72 | l-up-directory'.will.go.up.a.dir |
| 14680 | 65 63 74 6f 72 79 2e 0a 46 6f 72 20 65 78 61 6d 70 6c 65 3a 20 2f 61 2f 6c 6f 6e 67 2f 70 61 74 | ectory..For.example:./a/long/pat |
| 146a0 | 68 2f 66 69 6c 65 2e 6a 70 67 20 3d 3e 20 2f 61 2f 6c 6f 6e 67 2f 0a 20 20 20 20 20 20 20 20 20 | h/file.jpg.=>./a/long/.......... |
| 146c0 | 20 20 20 20 2f 61 2f 6c 6f 6e 67 2f 70 61 74 68 2f 20 20 20 20 20 3d 3e 20 20 20 20 20 2f 61 2f | ..../a/long/path/.....=>...../a/ |
| 146e0 | 6c 6f 6e 67 2f 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 75 70 2d 64 69 72 65 63 | long/")..(defun.counsel-up-direc |
| 14700 | 74 6f 72 79 20 28 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65 | tory.()..."Go.to.the.parent.dire |
| 14720 | 63 74 6f 72 79 20 70 72 65 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 6f | ctory.preselecting.the.current.o |
| 14740 | 6e 65 2e 0a 0a 49 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 69 73 | ne...If.the.current.directory.is |
| 14760 | 20 72 65 6d 6f 74 65 20 61 6e 64 20 69 74 27 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65 20 74 6f | .remote.and.it's.not.possible.to |
| 14780 | 20 67 6f 20 75 70 20 61 6e 79 0a 66 75 72 74 68 65 72 2c 20 6d 61 6b 65 20 74 68 65 20 72 65 6d | .go.up.any.further,.make.the.rem |
| 147a0 | 6f 74 65 20 70 72 65 66 69 78 20 65 64 69 74 61 62 6c 65 2e 0a 0a 53 65 65 20 76 61 72 69 61 62 | ote.prefix.editable...See.variab |
| 147c0 | 6c 65 20 60 63 6f 75 6e 73 65 6c 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 2d 6c 65 76 65 6c 27 2e | le.`counsel-up-directory-level'. |
| 147e0 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 2d | "...(interactive)...(let*.((cur- |
| 14800 | 64 69 72 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 | dir.(directory-file-name.(expand |
| 14820 | 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 | -file-name.ivy--directory))).... |
| 14840 | 20 20 20 20 20 20 28 75 70 2d 64 69 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f | ......(up-dir.(file-name-directo |
| 14860 | 72 79 20 63 75 72 2d 64 69 72 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 66 69 6c 65 | ry.cur-dir))).....(if.(and.(file |
| 14880 | 2d 72 65 6d 6f 74 65 2d 70 20 63 75 72 2d 64 69 72 29 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c | -remote-p.cur-dir).(string-equal |
| 148a0 | 20 63 75 72 2d 64 69 72 20 75 70 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e | .cur-dir.up-dir)).........(progn |
| 148c0 | 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6d 61 6b 65 20 74 68 65 20 72 65 6d 6f 74 65 20 70 72 | ...........;;.make.the.remote.pr |
| 148e0 | 65 66 69 78 20 65 64 69 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 76 | efix.editable...........(setq.iv |
| 14900 | 79 2d 2d 6f 6c 64 2d 63 61 6e 64 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | y--old-cands.nil)...........(set |
| 14920 | 71 20 69 76 79 2d 2d 6f 6c 64 2d 72 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 76 | q.ivy--old-re.nil)...........(iv |
| 14940 | 79 2d 73 65 74 2d 69 6e 64 65 78 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 | y-set-index.0)...........(setq.i |
| 14960 | 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | vy--directory."")...........(set |
| 14980 | 71 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 20 6e 69 6c 29 0a 20 20 20 20 20 | q.ivy--all-candidates.nil)...... |
| 149a0 | 20 20 20 20 20 28 69 76 79 2d 73 65 74 2d 74 65 78 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 | .....(ivy-set-text."").......... |
| 149c0 | 20 28 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 | .(delete-minibuffer-contents)... |
| 149e0 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 75 70 2d 64 69 72 29 29 0a 20 20 20 20 20 20 28 | ........(insert.up-dir)).......( |
| 14a00 | 69 66 20 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 2d 6c 65 76 | if.(and.counsel-up-directory-lev |
| 14a20 | 65 6c 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 69 76 79 2d 74 65 78 74 20 22 22 29 29 29 0a | el.(not.(string=.ivy-text.""))). |
| 14a40 | 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6c 69 6e 65 2d 62 | ..........(delete-region.(line-b |
| 14a60 | 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 | eginning-position).(line-end-pos |
| 14a80 | 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 63 64 20 75 70 2d 64 69 72 29 | ition)).........(ivy--cd.up-dir) |
| 14aa0 | 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 65 73 65 6c | .........(setf.(ivy-state-presel |
| 14ac0 | 65 63 74 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c | ect.ivy-last)...............(fil |
| 14ae0 | 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e | e-name-as-directory.(file-name-n |
| 14b00 | 6f 6e 64 69 72 65 63 74 6f 72 79 20 63 75 72 2d 64 69 72 29 29 29 29 29 29 29 0a 0a 28 64 65 66 | ondirectory.cur-dir)))))))..(def |
| 14b20 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 6f 77 6e 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 | un.counsel-down-directory.()..." |
| 14b40 | 44 65 73 63 65 6e 64 20 69 6e 74 6f 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f | Descend.into.the.current.directo |
| 14b60 | 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 2d 64 69 72 | ry."...(interactive)...(ivy--dir |
| 14b80 | 65 63 74 6f 72 79 2d 65 6e 74 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 | ectory-enter))..(defun.counsel-f |
| 14ba0 | 69 6e 64 2d 66 69 6c 65 2d 75 6e 64 6f 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | ind-file-undo.()...(interactive) |
| 14bc0 | 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 69 76 79 2d 74 65 78 74 20 22 22 29 0a 20 20 20 | ...(if.(string=.ivy-text."").... |
| 14be0 | 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(let.((dir.(progn............ |
| 14c00 | 20 20 20 20 20 20 20 20 28 70 6f 70 20 69 76 79 2d 2d 64 69 72 65 63 74 6f 72 79 2d 68 69 73 74 | ........(pop.ivy--directory-hist |
| 14c20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 69 76 79 2d 2d 64 | )....................(pop.ivy--d |
| 14c40 | 69 72 65 63 74 6f 72 79 2d 68 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | irectory-hist)))).........(when. |
| 14c60 | 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 63 64 20 64 69 72 29 29 29 0a 20 20 | dir...........(ivy--cd.dir)))... |
| 14c80 | 20 20 28 75 6e 64 6f 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 74 2d 67 69 | ..(undo)))..(defun.counsel-at-gi |
| 14ca0 | 74 2d 69 73 73 75 65 2d 70 20 28 29 0a 20 20 22 57 68 65 6e 20 70 6f 69 6e 74 20 69 73 20 61 74 | t-issue-p.()..."When.point.is.at |
| 14cc0 | 20 61 6e 20 69 73 73 75 65 20 69 6e 20 61 20 47 69 74 2d 76 65 72 73 69 6f 6e 65 64 20 66 69 6c | .an.issue.in.a.Git-versioned.fil |
| 14ce0 | 65 2c 20 72 65 74 75 72 6e 20 74 68 65 20 69 73 73 75 65 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 | e,.return.the.issue.string."...( |
| 14d00 | 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 23 5b 30 2d 39 5d 2b 22 29 0a 20 20 20 20 20 | and.(looking-at."#[0-9]+")...... |
| 14d20 | 20 20 28 6f 72 20 28 65 71 20 28 76 63 2d 62 61 63 6b 65 6e 64 20 62 75 66 66 65 72 2d 66 69 6c | ..(or.(eq.(vc-backend.buffer-fil |
| 14d40 | 65 2d 6e 61 6d 65 29 20 27 47 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 71 20 6d | e-name).'Git)............(memq.m |
| 14d60 | 61 6a 6f 72 2d 6d 6f 64 65 20 27 28 6d 61 67 69 74 2d 63 6f 6d 6d 69 74 2d 6d 6f 64 65 20 76 63 | ajor-mode.'(magit-commit-mode.vc |
| 14d80 | 2d 67 69 74 2d 6c 6f 67 2d 76 69 65 77 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | -git-log-view-mode))............ |
| 14da0 | 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 6d 61 67 69 74 2d 63 6f 6d 6d 69 74 2d 6d | (bound-and-true-p.magit-commit-m |
| 14dc0 | 6f 64 65 29 29 0a 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 | ode))........(match-string-no-pr |
| 14de0 | 6f 70 65 72 74 69 65 73 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 69 | operties.0)))..(defun.counsel-gi |
| 14e00 | 74 68 75 62 2d 75 72 6c 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 47 69 74 68 75 62 | thub-url-p.()..."Return.a.Github |
| 14e20 | 20 69 73 73 75 65 20 55 52 4c 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 77 68 65 6e 20 28 63 | .issue.URL.at.point."...(when.(c |
| 14e40 | 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 22 67 69 74 22 20 74 29 0a | ounsel-require-program."git".t). |
| 14e60 | 20 20 20 20 28 6c 65 74 20 28 28 75 72 6c 20 28 63 6f 75 6e 73 65 6c 2d 61 74 2d 67 69 74 2d 69 | ....(let.((url.(counsel-at-git-i |
| 14e80 | 73 73 75 65 2d 70 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 75 72 6c 0a 20 20 20 20 20 20 | ssue-p))).......(when.url....... |
| 14ea0 | 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 | ..(let.((origin.(shell-command-t |
| 14ec0 | 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | o-string........................ |
| 14ee0 | 22 67 69 74 20 72 65 6d 6f 74 65 20 67 65 74 2d 75 72 6c 20 6f 72 69 67 69 6e 22 29 29 0a 20 20 | "git.remote.get-url.origin"))... |
| 14f00 | 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 20 72 65 70 6f 29 0a 20 20 20 20 20 20 20 20 20 | ............user.repo).......... |
| 14f20 | 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 67 69 74 40 67 69 | .(cond.((string-match."\\`git@gi |
| 14f40 | 74 68 75 62 2e 63 6f 6d 3a 5c 5c 28 5b 5e 2f 5d 2b 5c 5c 29 2f 5c 5c 28 2e 2a 5c 5c 29 5c 5c 2e | thub.com:\\([^/]+\\)/\\(.*\\)\\. |
| 14f60 | 67 69 74 24 22 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 | git$"........................... |
| 14f80 | 20 20 20 20 20 6f 72 69 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 | .....origin)..................(s |
| 14fa0 | 65 74 71 20 75 73 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6f 72 69 67 69 6e 29 | etq.user.(match-string.1.origin) |
| 14fc0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 70 6f 20 28 6d | )..................(setq.repo.(m |
| 14fe0 | 61 74 63 68 2d 73 74 72 69 6e 67 20 32 20 6f 72 69 67 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | atch-string.2.origin)))......... |
| 15000 | 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 68 74 74 70 73 | ........((string-match."\\`https |
| 15020 | 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 5c 5c 28 5b 5e 2f 5d 2b 5c 5c 29 2f 5c 5c 28 2e 2a 5c | ://github.com/\\([^/]+\\)/\\(.*\ |
| 15040 | 5c 29 24 22 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 | \)$"............................ |
| 15060 | 20 20 20 20 6f 72 69 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | ....origin)..................(se |
| 15080 | 74 71 20 75 73 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 6f 72 69 67 69 6e 29 29 | tq.user.(match-string.1.origin)) |
| 150a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 70 6f 20 28 6d 61 | ..................(setq.repo.(ma |
| 150c0 | 74 63 68 2d 73 74 72 69 6e 67 20 32 20 6f 72 69 67 69 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 | tch-string.2.origin))))......... |
| 150e0 | 20 20 28 77 68 65 6e 20 75 73 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 75 | ..(when.user.............(setq.u |
| 15100 | 72 6c 20 28 66 6f 72 6d 61 74 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 25 | rl.(format."https://github.com/% |
| 15120 | 73 2f 25 73 2f 69 73 73 75 65 73 2f 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s/%s/issues/%s"................. |
| 15140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 73 65 72 20 72 65 70 6f 20 28 73 75 62 73 74 72 69 | ..............user.repo.(substri |
| 15160 | 6e 67 20 75 72 6c 20 31 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | ng.url.1)))))))))..(defun.counse |
| 15180 | 6c 2d 65 6d 61 63 73 2d 75 72 6c 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 44 65 62 | l-emacs-url-p.()..."Return.a.Deb |
| 151a0 | 62 75 67 73 20 69 73 73 75 65 20 55 52 4c 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 6c 65 74 | bugs.issue.URL.at.point."...(let |
| 151c0 | 20 28 28 75 72 6c 20 28 61 6e 64 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f | .((url.(and.(counsel-require-pro |
| 151e0 | 67 72 61 6d 20 22 67 69 74 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | gram."git".t)................... |
| 15200 | 28 63 6f 75 6e 73 65 6c 2d 61 74 2d 67 69 74 2d 69 73 73 75 65 2d 70 29 29 29 29 0a 20 20 20 20 | (counsel-at-git-issue-p))))..... |
| 15220 | 28 77 68 65 6e 20 75 72 6c 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 72 69 67 69 6e 20 28 73 | (when.url.......(let.((origin.(s |
| 15240 | 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 22 67 69 74 20 72 65 6d 6f | hell-command-to-string."git.remo |
| 15260 | 74 65 20 67 65 74 2d 75 72 6c 20 6f 72 69 67 69 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 | te.get-url.origin"))).........(w |
| 15280 | 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 67 69 74 2e 73 76 2e 67 6e 75 2e | hen.(string-match-p."git.sv.gnu. |
| 152a0 | 6f 72 67 3a 2f 73 72 76 2f 67 69 74 2f 65 6d 61 63 73 2e 67 69 74 22 20 6f 72 69 67 69 6e 29 0a | org:/srv/git/emacs.git".origin). |
| 152c0 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 68 74 74 70 73 3a 2f 2f 62 75 67 73 2e | ..........(format."https://bugs. |
| 152e0 | 67 6e 75 2e 6f 72 67 2f 25 73 22 20 28 73 75 62 73 74 72 69 6e 67 20 75 72 6c 20 31 29 29 29 29 | gnu.org/%s".(substring.url.1)))) |
| 15300 | 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 75 72 6c 2d 65 78 70 61 6e 73 69 | )))..(defvar.counsel-url-expansi |
| 15320 | 6f 6e 73 2d 61 6c 69 73 74 20 6e 69 6c 0a 20 20 22 4d 61 70 20 6f 66 20 72 65 67 75 6c 61 72 20 | ons-alist.nil..."Map.of.regular. |
| 15340 | 65 78 70 72 65 73 73 69 6f 6e 73 20 74 6f 20 65 78 70 61 6e 73 69 6f 6e 73 2e 0a 0a 54 68 65 20 | expressions.to.expansions...The. |
| 15360 | 76 61 6c 75 65 20 6f 66 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 69 73 20 61 20 6c 69 73 74 | value.of.this.variable.is.a.list |
| 15380 | 20 6f 66 20 70 61 69 72 73 20 28 52 45 47 45 58 50 20 2e 20 46 4f 52 4d 41 54 29 2e 0a 0a 60 63 | .of.pairs.(REGEXP...FORMAT)...`c |
| 153a0 | 6f 75 6e 73 65 6c 2d 75 72 6c 2d 65 78 70 61 6e 64 27 20 65 78 70 61 6e 64 73 20 74 68 65 20 77 | ounsel-url-expand'.expands.the.w |
| 153c0 | 6f 72 64 20 61 74 20 70 6f 69 6e 74 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 0a 46 4f 52 4d 41 54 | ord.at.point.according.to.FORMAT |
| 153e0 | 20 66 6f 72 20 74 68 65 20 66 69 72 73 74 20 6d 61 74 63 68 69 6e 67 20 52 45 47 45 58 50 2e 20 | .for.the.first.matching.REGEXP.. |
| 15400 | 20 46 4f 52 4d 41 54 20 63 61 6e 20 62 65 20 65 69 74 68 65 72 20 61 0a 73 74 72 69 6e 67 20 6f | .FORMAT.can.be.either.a.string.o |
| 15420 | 72 20 61 20 66 75 6e 63 74 69 6f 6e 2e 20 20 49 66 20 69 74 20 69 73 20 61 20 73 74 72 69 6e 67 | r.a.function...If.it.is.a.string |
| 15440 | 2c 20 69 74 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 0a 66 6f 72 6d 61 74 20 73 74 72 69 6e | ,.it.is.used.as.the.format.strin |
| 15460 | 67 20 66 6f 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 60 66 6f 72 6d 61 74 27 2c 20 77 69 74 | g.for.the.function.`format',.wit |
| 15480 | 68 20 74 68 65 20 77 6f 72 64 20 61 74 20 70 6f 69 6e 74 0a 61 73 20 74 68 65 20 6e 65 78 74 20 | h.the.word.at.point.as.the.next. |
| 154a0 | 61 72 67 75 6d 65 6e 74 2e 20 20 49 66 20 69 74 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 | argument...If.it.is.a.function,. |
| 154c0 | 69 74 20 69 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 74 68 65 0a 77 6f 72 64 20 61 74 20 70 6f | it.is.called.with.the.word.at.po |
| 154e0 | 69 6e 74 20 61 73 20 74 68 65 20 73 6f 6c 65 20 61 72 67 75 6d 65 6e 74 2e 0a 0a 46 6f 72 20 65 | int.as.the.sole.argument...For.e |
| 15500 | 78 61 6d 70 6c 65 2c 20 61 20 70 61 69 72 20 6f 66 20 74 68 65 20 66 6f 72 6d 3a 0a 20 20 5c 5c | xample,.a.pair.of.the.form:...\\ |
| 15520 | 3d 27 28 5c 22 5c 5c 5c 5c 5c 5c 3d 60 42 53 45 52 56 2d 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 5c | ='(\"\\\\\\=`BSERV-[[:digit:]]+\ |
| 15540 | 5c 5c 5c 5c 5c 3d 27 5c 22 20 2e 0a 20 20 20 20 5c 22 68 74 74 70 73 3a 2f 2f 6a 69 72 61 2e 61 | \\\\\='\".......\"https://jira.a |
| 15560 | 74 6c 61 73 73 69 61 6e 2e 63 6f 6d 2f 62 72 6f 77 73 65 2f 25 73 5c 22 29 0a 65 78 70 61 6e 64 | tlassian.com/browse/%s\").expand |
| 15580 | 73 20 74 6f 20 74 68 65 20 55 52 4c 20 60 68 74 74 70 73 3a 2f 2f 6a 69 72 61 2e 61 74 6c 61 73 | s.to.the.URL.`https://jira.atlas |
| 155a0 | 73 69 61 6e 2e 63 6f 6d 2f 62 72 6f 77 73 65 2f 42 53 45 52 56 2d 31 30 30 27 0a 77 68 65 6e 20 | sian.com/browse/BSERV-100'.when. |
| 155c0 | 74 68 65 20 77 6f 72 64 20 61 74 20 70 6f 69 6e 74 20 69 73 20 5c 22 42 53 45 52 56 2d 31 30 30 | the.word.at.point.is.\"BSERV-100 |
| 155e0 | 5c 22 2e 0a 0a 49 66 20 46 4f 52 4d 41 54 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 2c 20 6d 6f | \"...If.FORMAT.is.a.function,.mo |
| 15600 | 72 65 20 70 6f 77 65 72 66 75 6c 20 74 72 61 6e 73 66 6f 72 6d 61 74 69 6f 6e 73 20 61 72 65 0a | re.powerful.transformations.are. |
| 15620 | 70 6f 73 73 69 62 6c 65 2e 20 20 41 73 20 61 6e 20 65 78 61 6d 70 6c 65 2c 0a 20 20 5c 5c 3d 27 | possible...As.an.example,...\\=' |
| 15640 | 28 5c 22 5c 5c 5c 5c 5c 5c 3d 60 69 73 73 75 65 5c 5c 5c 5c 28 5b 5b 3a 64 69 67 69 74 3a 5d 5d | (\"\\\\\\=`issue\\\\([[:digit:]] |
| 15660 | 2b 5c 5c 5c 5c 29 5c 5c 5c 5c 5c 5c 3d 27 5c 22 20 2e 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | +\\\\)\\\\\\='\".......(lambda.( |
| 15680 | 77 6f 72 64 29 0a 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 5c 22 68 74 74 70 73 3a 2f 2f 62 75 | word).......(concat.\"https://bu |
| 156a0 | 67 73 2e 67 6e 75 2e 6f 72 67 2f 5c 22 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 77 6f | gs.gnu.org/\".(match-string.1.wo |
| 156c0 | 72 64 29 29 29 29 0a 74 72 69 6d 73 20 74 68 65 20 5c 22 69 73 73 75 65 5c 22 20 70 72 65 66 69 | rd)))).trims.the.\"issue\".prefi |
| 156e0 | 78 20 66 72 6f 6d 20 74 68 65 20 77 6f 72 64 20 61 74 20 70 6f 69 6e 74 20 62 65 66 6f 72 65 20 | x.from.the.word.at.point.before. |
| 15700 | 63 72 65 61 74 69 6e 67 0a 74 68 65 20 55 52 4c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | creating.the.URL.")..(defun.coun |
| 15720 | 73 65 6c 2d 75 72 6c 2d 65 78 70 61 6e 64 20 28 29 0a 20 20 22 45 78 70 61 6e 64 20 77 6f 72 64 | sel-url-expand.()..."Expand.word |
| 15740 | 20 61 74 20 70 6f 69 6e 74 20 75 73 69 6e 67 20 60 63 6f 75 6e 73 65 6c 2d 75 72 6c 2d 65 78 70 | .at.point.using.`counsel-url-exp |
| 15760 | 61 6e 73 69 6f 6e 73 2d 61 6c 69 73 74 27 2e 0a 54 68 65 20 66 69 72 73 74 20 70 61 69 72 20 69 | ansions-alist'..The.first.pair.i |
| 15780 | 6e 20 74 68 65 20 6c 69 73 74 20 77 68 6f 73 65 20 72 65 67 65 78 70 20 6d 61 74 63 68 65 73 20 | n.the.list.whose.regexp.matches. |
| 157a0 | 74 68 65 20 77 6f 72 64 20 61 74 20 70 6f 69 6e 74 0a 77 69 6c 6c 20 62 65 20 65 78 70 61 6e 64 | the.word.at.point.will.be.expand |
| 157c0 | 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 69 74 73 20 66 6f 72 6d 61 74 2e 20 20 54 68 69 | ed.according.to.its.format...Thi |
| 157e0 | 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 0a 69 6e 74 65 6e 64 65 64 20 74 6f 20 62 65 20 75 73 65 | s.function.is.intended.to.be.use |
| 15800 | 64 20 69 6e 20 60 69 76 79 2d 66 66 61 70 2d 75 72 6c 2d 66 75 6e 63 74 69 6f 6e 73 27 20 74 6f | d.in.`ivy-ffap-url-functions'.to |
| 15820 | 20 62 72 6f 77 73 65 20 74 68 65 0a 72 65 73 75 6c 74 20 61 73 20 61 20 55 52 4c 2e 22 0a 20 20 | .browse.the.result.as.a.URL."... |
| 15840 | 28 6c 65 74 20 28 28 77 6f 72 64 2d 61 74 2d 70 6f 69 6e 74 20 28 63 75 72 72 65 6e 74 2d 77 6f | (let.((word-at-point.(current-wo |
| 15860 | 72 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 77 6f 72 64 2d 61 74 2d 70 6f 69 6e 74 0a 20 20 | rd))).....(when.word-at-point... |
| 15880 | 20 20 20 20 28 63 6c 2d 73 6f 6d 65 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 70 61 69 | ....(cl-some........(lambda.(pai |
| 158a0 | 72 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 67 65 78 70 20 28 63 61 72 20 70 | r)..........(let.((regexp.(car.p |
| 158c0 | 61 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 74 65 72 20 | air))................(formatter. |
| 158e0 | 28 63 64 72 20 70 61 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 | (cdr.pair)))............(when.(s |
| 15900 | 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 70 20 77 6f 72 64 2d 61 74 2d 70 6f 69 6e 74 | tring-match.regexp.word-at-point |
| 15920 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 66 6f | )..............(if.(functionp.fo |
| 15940 | 72 6d 61 74 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 | rmatter)..................(funca |
| 15960 | 6c 6c 20 66 6f 72 6d 61 74 74 65 72 20 77 6f 72 64 2d 61 74 2d 70 6f 69 6e 74 29 0a 20 20 20 20 | ll.formatter.word-at-point)..... |
| 15980 | 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 66 6f 72 6d 61 74 74 65 72 20 77 6f 72 | ...........(format.formatter.wor |
| 159a0 | 64 2d 61 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 75 | d-at-point)))))........counsel-u |
| 159c0 | 72 6c 2d 65 78 70 61 6e 73 69 6f 6e 73 2d 61 6c 69 73 74 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 | rl-expansions-alist))))..;;**.`c |
| 159e0 | 6f 75 6e 73 65 6c 2d 64 69 72 65 64 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 | ounsel-dired'.(declare-function. |
| 15a00 | 64 69 72 65 64 20 22 64 69 72 65 64 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 | dired."dired")..;;;###autoload.( |
| 15a20 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 | defun.counsel-dired.(&optional.i |
| 15a40 | 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f 20 60 64 69 72 | nitial-input)..."Forward.to.`dir |
| 15a60 | 65 64 27 2e 0a 57 68 65 6e 20 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 20 6e 6f 6e 2d 6e | ed'..When.INITIAL-INPUT.is.non-n |
| 15a80 | 69 6c 2c 20 75 73 65 20 69 74 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 64 75 72 | il,.use.it.in.the.minibuffer.dur |
| 15aa0 | 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | ing.completion."...(interactive) |
| 15ac0 | 0a 20 20 28 6c 65 74 20 28 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 70 72 65 | ...(let.((counsel--find-file-pre |
| 15ae0 | 64 69 63 61 74 65 20 23 27 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 29 29 0a 20 20 20 20 | dicate.#'file-directory-p))..... |
| 15b00 | 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 31 0a 20 20 20 20 20 22 44 69 72 65 | (counsel--find-file-1......"Dire |
| 15b20 | 64 20 28 64 69 72 65 63 74 6f 72 79 29 3a 20 22 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 | d.(directory):.".initial-input.. |
| 15b40 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 64 29 20 28 64 69 72 65 64 20 28 65 78 70 61 6e 64 2d 66 | ....(lambda.(d).(dired.(expand-f |
| 15b60 | 69 6c 65 2d 6e 61 6d 65 20 64 29 29 29 0a 20 20 20 20 20 27 63 6f 75 6e 73 65 6c 2d 64 69 72 65 | ile-name.d)))......'counsel-dire |
| 15b80 | 64 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 64 69 | d)))..(ivy-configure.'counsel-di |
| 15ba0 | 72 65 64 0a 20 20 3a 70 61 72 65 6e 74 20 27 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 2d 69 6e | red...:parent.'read-file-name-in |
| 15bc0 | 74 65 72 6e 61 6c 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 27 0a | ternal)..;;**.`counsel-recentf'. |
| 15be0 | 28 64 65 66 76 61 72 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 29 0a 28 64 65 63 6c 61 72 65 2d 66 | (defvar.recentf-list).(declare-f |
| 15c00 | 75 6e 63 74 69 6f 6e 20 72 65 63 65 6e 74 66 2d 6d 6f 64 65 20 22 72 65 63 65 6e 74 66 22 29 0a | unction.recentf-mode."recentf"). |
| 15c20 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 2d 69 6e 63 6c | .(defcustom.counsel-recentf-incl |
| 15c40 | 75 64 65 2d 78 64 67 2d 6c 69 73 74 20 6e 69 6c 0a 20 20 22 49 6e 63 6c 75 64 65 20 72 65 63 65 | ude-xdg-list.nil..."Include.rece |
| 15c60 | 6e 74 6c 79 20 75 73 65 64 20 66 69 6c 65 73 20 6c 69 73 74 65 64 20 62 79 20 58 44 47 2d 63 6f | ntly.used.files.listed.by.XDG-co |
| 15c80 | 6d 70 6c 69 61 6e 74 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 2e 0a 45 78 61 6d 70 6c 65 73 20 6f | mpliant.environments..Examples.o |
| 15ca0 | 66 20 73 75 63 68 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 20 61 72 65 20 47 4e 4f 4d 45 20 61 6e | f.such.environments.are.GNOME.an |
| 15cc0 | 64 20 4b 44 45 2e 20 20 53 65 65 20 74 68 65 20 55 52 4c 0a 60 68 74 74 70 73 3a 2f 2f 77 77 77 | d.KDE...See.the.URL.`https://www |
| 15ce0 | 2e 66 72 65 65 64 65 73 6b 74 6f 70 2e 6f 72 67 2f 77 69 6b 69 2f 53 70 65 63 69 66 69 63 61 74 | .freedesktop.org/wiki/Specificat |
| 15d00 | 69 6f 6e 73 2f 64 65 73 6b 74 6f 70 2d 62 6f 6f 6b 6d 61 72 6b 2d 73 70 65 63 27 2e 22 0a 20 20 | ions/desktop-bookmark-spec'."... |
| 15d20 | 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 6c 69 6e 6b 20 27 28 75 72 6c 2d 6c 69 6e | :type.'boolean...:link.'(url-lin |
| 15d40 | 6b 20 22 5c 0a 68 74 74 70 73 3a 2f 2f 77 77 77 2e 66 72 65 65 64 65 73 6b 74 6f 70 2e 6f 72 67 | k."\.https://www.freedesktop.org |
| 15d60 | 2f 77 69 6b 69 2f 53 70 65 63 69 66 69 63 61 74 69 6f 6e 73 2f 64 65 73 6b 74 6f 70 2d 62 6f 6f | /wiki/Specifications/desktop-boo |
| 15d80 | 6b 6d 61 72 6b 2d 73 70 65 63 22 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 | kmark-spec"))..;;;###autoload.(d |
| 15da0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 20 28 29 0a 20 20 22 46 69 6e 64 20 | efun.counsel-recentf.()..."Find. |
| 15dc0 | 61 20 66 69 6c 65 20 6f 6e 20 60 72 65 63 65 6e 74 66 2d 6c 69 73 74 27 2e 22 0a 20 20 28 69 6e | a.file.on.`recentf-list'."...(in |
| 15de0 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 72 65 63 65 6e 74 66 29 0a | teractive)...(require.'recentf). |
| 15e00 | 20 20 28 72 65 63 65 6e 74 66 2d 6d 6f 64 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 52 65 | ..(recentf-mode)...(ivy-read."Re |
| 15e20 | 63 65 6e 74 66 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 2d 63 61 6e 64 69 64 | centf:.".(counsel-recentf-candid |
| 15e40 | 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 | ates).............:action.(lambd |
| 15e60 | 61 20 28 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 | a.(f).......................(wit |
| 15e80 | 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h-ivy-window.................... |
| 15ea0 | 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .....(find-file.f)))............ |
| 15ec0 | 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 | .:require-match.t.............:c |
| 15ee0 | 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 29 29 0a 0a 28 69 76 79 2d 73 | aller.'counsel-recentf))..(ivy-s |
| 15f00 | 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 0a 20 60 28 | et-actions..'counsel-recentf..`( |
| 15f20 | 28 22 6a 22 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 | ("j".find-file-other-window."oth |
| 15f40 | 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 20 28 22 66 22 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 | er.window")....("f".find-file-ot |
| 15f60 | 68 65 72 2d 66 72 61 6d 65 20 22 6f 74 68 65 72 20 66 72 61 6d 65 22 29 0a 20 20 20 28 22 78 22 | her-frame."other.frame")....("x" |
| 15f80 | 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 20 22 6f 70 65 6e 20 | .counsel-find-file-extern."open. |
| 15fa0 | 65 78 74 65 72 6e 61 6c 6c 79 22 29 0a 20 20 20 28 22 64 22 20 2c 28 6c 61 6d 62 64 61 20 28 66 | externally")....("d".,(lambda.(f |
| 15fc0 | 69 6c 65 29 20 28 73 65 74 71 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 20 28 64 65 6c 65 74 65 20 | ile).(setq.recentf-list.(delete. |
| 15fe0 | 66 69 6c 65 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 29 29 29 0a 20 20 20 20 22 64 65 6c 65 74 65 | file.recentf-list)))....."delete |
| 16000 | 20 66 72 6f 6d 20 72 65 63 65 6e 74 66 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | .from.recentf")))..(defun.counse |
| 16020 | 6c 2d 72 65 63 65 6e 74 66 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 | l-recentf-candidates.()..."Retur |
| 16040 | 6e 20 63 61 6e 64 69 64 61 74 65 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 | n.candidates.for.`counsel-recent |
| 16060 | 66 27 2e 0a 0a 57 68 65 6e 20 60 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 2d 69 6e 63 6c 75 | f'...When.`counsel-recentf-inclu |
| 16080 | 64 65 2d 78 64 67 2d 6c 69 73 74 27 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 6c 73 6f 20 69 6e | de-xdg-list'.is.non-nil,.also.in |
| 160a0 | 63 6c 75 64 65 0a 74 68 65 20 66 69 6c 65 73 20 69 6e 20 73 61 69 64 20 6c 69 73 74 2c 20 73 6f | clude.the.files.in.said.list,.so |
| 160c0 | 72 74 69 6e 67 20 74 68 65 20 63 6f 6d 62 69 6e 65 64 20 6c 69 73 74 20 62 79 20 66 69 6c 65 20 | rting.the.combined.list.by.file. |
| 160e0 | 61 63 63 65 73 73 0a 74 69 6d 65 2e 22 0a 20 20 28 69 66 20 28 61 6e 64 20 63 6f 75 6e 73 65 6c | access.time."...(if.(and.counsel |
| 16100 | 2d 72 65 63 65 6e 74 66 2d 69 6e 63 6c 75 64 65 2d 78 64 67 2d 6c 69 73 74 0a 20 20 20 20 20 20 | -recentf-include-xdg-list....... |
| 16120 | 20 20 20 20 20 28 3e 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 32 36 29 | .....(>=.emacs-major-version.26) |
| 16140 | 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 73 0a 20 20 20 20 20 20 20 28 73 6f 72 | ).......(delete-dups........(sor |
| 16160 | 74 20 28 6e 63 6f 6e 63 20 28 6d 61 70 63 61 72 20 23 27 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d | t.(nconc.(mapcar.#'substring-no- |
| 16180 | 70 72 6f 70 65 72 74 69 65 73 20 72 65 63 65 6e 74 66 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | properties.recentf-list)........ |
| 161a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 72 65 63 65 6e 74 66 2d 67 | .............(counsel--recentf-g |
| 161c0 | 65 74 2d 78 64 67 2d 72 65 63 65 6e 74 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 | et-xdg-recent-files))........... |
| 161e0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 31 20 66 69 6c 65 32 29 0a 20 20 20 20 20 20 20 | ...(lambda.(file1.file2)........ |
| 16200 | 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 69 | ........(cond.((file-remote-p.fi |
| 16220 | 6c 65 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 0a | le1).......................nil). |
| 16240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 72 65 6d 6f | .....................((file-remo |
| 16260 | 74 65 2d 70 20 66 69 6c 65 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te-p.file2)).................... |
| 16280 | 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 64 | ..(t.......................;;.Ad |
| 162a0 | 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 36 2e 31 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ded.in.Emacs.26.1............... |
| 162c0 | 20 20 20 20 20 20 20 20 20 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 69 6c 65 2d | .........(declare-function.file- |
| 162e0 | 61 74 74 72 69 62 75 74 65 2d 61 63 63 65 73 73 2d 74 69 6d 65 20 22 66 69 6c 65 73 22 0a 20 20 | attribute-access-time."files"... |
| 16300 | 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 | ................................ |
| 16320 | 20 20 20 20 20 20 28 61 74 74 72 69 62 75 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......(attributes))............. |
| 16340 | 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d 6c 65 73 73 2d 70 20 28 66 69 6c 65 2d 61 74 74 | ..........(time-less-p.(file-att |
| 16360 | 72 69 62 75 74 65 2d 61 63 63 65 73 73 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ribute-access-time.............. |
| 16380 | 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 61 74 74 | .......................(file-att |
| 163a0 | 72 69 62 75 74 65 73 20 66 69 6c 65 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ributes.file2))................. |
| 163c0 | 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 61 74 74 72 69 62 75 | ...................(file-attribu |
| 163e0 | 74 65 2d 61 63 63 65 73 73 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te-access-time.................. |
| 16400 | 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 61 74 74 72 69 62 75 | ...................(file-attribu |
| 16420 | 74 65 73 20 66 69 6c 65 31 29 29 29 29 29 29 29 29 0a 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 | tes.file1)))))))).....(mapcar.#' |
| 16440 | 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 72 65 63 65 6e 74 66 2d | substring-no-properties.recentf- |
| 16460 | 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 2d 78 6d 6c | list)))..(defalias.'counsel--xml |
| 16480 | 2d 70 61 72 73 65 2d 72 65 67 69 6f 6e 0a 20 20 28 69 66 20 28 63 6f 6e 64 20 28 28 66 62 6f 75 | -parse-region...(if.(cond.((fbou |
| 164a0 | 6e 64 70 20 27 6c 69 62 78 6d 6c 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 | ndp.'libxml-available-p)........ |
| 164c0 | 20 20 20 20 20 20 3b 3b 20 41 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 37 2e 31 2e 0a 20 20 | ......;;.Added.in.Emacs.27.1.... |
| 164e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 62 78 6d 6c 2d 61 76 61 69 6c 61 62 6c 65 2d 70 29 29 | ...........(libxml-available-p)) |
| 16500 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 66 62 6f 75 6e 64 70 20 27 6c 69 62 78 6d 6c 2d 70 | .............((fboundp.'libxml-p |
| 16520 | 61 72 73 65 2d 78 6d 6c 2d 72 65 67 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | arse-xml-region)..............;; |
| 16540 | 20 43 68 65 63 6b 69 6e 67 20 66 6f 72 20 60 66 62 6f 75 6e 64 70 27 20 69 73 20 6e 6f 74 20 65 | .Checking.for.`fboundp'.is.not.e |
| 16560 | 6e 6f 75 67 68 20 6f 6e 20 57 69 6e 64 6f 77 73 2c 20 77 68 65 72 65 20 69 74 0a 20 20 20 20 20 | nough.on.Windows,.where.it...... |
| 16580 | 20 20 20 20 20 20 20 20 3b 3b 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 6e 6f 6e 2d 6e 69 6c 20 65 | ........;;.will.return.non-nil.e |
| 165a0 | 76 65 6e 20 69 66 20 74 68 65 20 6c 69 62 72 61 72 79 20 69 73 20 6e 6f 74 20 69 6e 73 74 61 6c | ven.if.the.library.is.not.instal |
| 165c0 | 6c 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 | led...............(with-temp-buf |
| 165e0 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 3c 78 6d 6c | fer................(insert."<xml |
| 16600 | 2f 3e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 62 78 6d 6c 2d 70 61 72 73 | />")................(libxml-pars |
| 16620 | 65 2d 78 6d 6c 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d | e-xml-region.(point-min).(point- |
| 16640 | 6d 61 78 29 29 29 29 29 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 6f 70 74 69 6f 6e 61 | max))))).......(lambda.(&optiona |
| 16660 | 6c 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 28 6c 69 62 78 6d 6c 2d 70 61 72 73 65 | l.beg.end).........(libxml-parse |
| 16680 | 2d 78 6d 6c 2d 72 65 67 69 6f 6e 20 28 6f 72 20 62 65 67 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | -xml-region.(or.beg.(point-min)) |
| 166a0 | 20 28 6f 72 20 65 6e 64 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 0a 20 20 20 20 23 27 78 6d | .(or.end.(point-max)))).....#'xm |
| 166c0 | 6c 2d 70 61 72 73 65 2d 72 65 67 69 6f 6e 29 0a 20 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 | l-parse-region)..."Compatibility |
| 166e0 | 20 73 68 69 6d 20 66 6f 72 20 60 6c 69 62 78 6d 6c 2d 70 61 72 73 65 2d 78 6d 6c 2d 72 65 67 69 | .shim.for.`libxml-parse-xml-regi |
| 16700 | 6f 6e 27 2e 0a 46 6f 72 20 63 6f 6e 76 65 6e 69 65 6e 63 65 2c 20 42 45 47 20 61 6e 64 20 45 4e | on'..For.convenience,.BEG.and.EN |
| 16720 | 44 20 64 65 66 61 75 6c 74 20 74 6f 20 60 70 6f 69 6e 74 2d 6d 69 6e 27 20 61 6e 64 0a 60 70 6f | D.default.to.`point-min'.and.`po |
| 16740 | 69 6e 74 2d 6d 61 78 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 0a 5c 28 66 6e 20 26 6f | int-max',.respectively...\(fn.&o |
| 16760 | 70 74 69 6f 6e 61 6c 20 42 45 47 20 45 4e 44 29 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | ptional.BEG.END)")..(defun.couns |
| 16780 | 65 6c 2d 2d 72 65 63 65 6e 74 66 2d 67 65 74 2d 78 64 67 2d 72 65 63 65 6e 74 2d 66 69 6c 65 73 | el--recentf-get-xdg-recent-files |
| 167a0 | 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 58 44 47 20 72 65 63 65 6e 74 | .()..."Return.list.of.XDG.recent |
| 167c0 | 20 66 69 6c 65 73 2e 0a 0a 54 68 69 73 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 69 73 20 70 61 72 | .files...This.information.is.par |
| 167e0 | 73 65 64 20 66 72 6f 6d 20 74 68 65 20 66 69 6c 65 20 5c 22 72 65 63 65 6e 74 6c 79 2d 75 73 65 | sed.from.the.file.\"recently-use |
| 16800 | 64 2e 78 62 65 6c 5c 22 2c 0a 77 68 69 63 68 20 6c 69 73 74 73 20 62 6f 74 68 20 66 69 6c 65 73 | d.xbel\",.which.lists.both.files |
| 16820 | 20 61 6e 64 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 75 6e 64 65 72 20 60 78 64 67 2d 64 61 74 | .and.directories,.under.`xdg-dat |
| 16840 | 61 2d 68 6f 6d 65 27 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 73 20 74 68 65 20 | a-home'..This.function.uses.the. |
| 16860 | 60 64 6f 6d 27 20 6c 69 62 72 61 72 79 20 66 72 6f 6d 20 45 6d 61 63 73 20 32 35 2e 31 20 6f 72 | `dom'.library.from.Emacs.25.1.or |
| 16880 | 20 6c 61 74 65 72 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 72 65 71 75 69 72 65 20 27 64 6f 6d | .later."...(unless.(require.'dom |
| 168a0 | 20 6e 69 6c 20 74 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 54 68 69 73 20 66 75 | .nil.t).....(user-error."This.fu |
| 168c0 | 6e 63 74 69 6f 6e 20 72 65 71 75 69 72 65 73 20 45 6d 61 63 73 20 32 35 2e 31 20 6f 72 20 6c 61 | nction.requires.Emacs.25.1.or.la |
| 168e0 | 74 65 72 22 29 29 0a 20 20 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 6f 6d 2d 61 | ter"))...(declare-function.dom-a |
| 16900 | 74 74 72 20 22 64 6f 6d 22 20 28 6e 6f 64 65 20 61 74 74 72 29 29 0a 20 20 28 64 65 63 6c 61 72 | ttr."dom".(node.attr))...(declar |
| 16920 | 65 2d 66 75 6e 63 74 69 6f 6e 20 64 6f 6d 2d 62 79 2d 74 61 67 20 22 64 6f 6d 22 20 28 64 6f 6d | e-function.dom-by-tag."dom".(dom |
| 16940 | 20 74 61 67 29 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6f 66 2d 72 65 63 65 6e 74 2d 66 | .tag))...(let.((file-of-recent-f |
| 16960 | 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 | iles..........(expand-file-name. |
| 16980 | 22 72 65 63 65 6e 74 6c 79 2d 75 73 65 64 2e 78 62 65 6c 22 20 28 63 6f 75 6e 73 65 6c 2d 2d 78 | "recently-used.xbel".(counsel--x |
| 169a0 | 64 67 2d 64 61 74 61 2d 68 6f 6d 65 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 | dg-data-home)))).....(unless.(fi |
| 169c0 | 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 66 69 6c 65 2d 6f 66 2d 72 65 63 65 6e 74 2d 66 69 6c | le-readable-p.file-of-recent-fil |
| 169e0 | 65 73 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4c 69 73 74 20 6f 66 20 58 | es).......(user-error."List.of.X |
| 16a00 | 44 47 20 72 65 63 65 6e 74 20 66 69 6c 65 73 20 6e 6f 74 20 66 6f 75 6e 64 3a 20 25 73 22 0a 20 | DG.recent.files.not.found:.%s".. |
| 16a20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 6f 66 2d 72 65 63 65 6e 74 2d | .................file-of-recent- |
| 16a40 | 66 69 6c 65 73 29 29 0a 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 20 28 6c 61 6d 62 64 61 20 28 | files)).....(cl-mapcan.(lambda.( |
| 16a60 | 62 6f 6f 6b 6d 61 72 6b 2d 6e 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bookmark-node).................. |
| 16a80 | 28 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 64 6f 6d 2d 61 74 74 72 20 62 6f 6f 6b 6d 61 72 6b 2d | (let*.((file.(dom-attr.bookmark- |
| 16aa0 | 6e 6f 64 65 20 27 68 72 65 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | node.'href)).................... |
| 16ac0 | 20 20 20 20 20 28 66 69 6c 65 20 28 73 74 72 69 6e 67 2d 72 65 6d 6f 76 65 2d 70 72 65 66 69 78 | .....(file.(string-remove-prefix |
| 16ae0 | 20 22 66 69 6c 65 3a 2f 2f 22 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."file://".file))............... |
| 16b00 | 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 75 72 6c 2d 75 6e 68 65 78 2d 73 74 72 69 6e | ..........(file.(url-unhex-strin |
| 16b20 | 67 20 66 69 6c 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g.file.t))...................... |
| 16b40 | 20 20 20 28 66 69 6c 65 20 28 64 65 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 66 | ...(file.(decode-coding-string.f |
| 16b60 | 69 6c 65 20 27 75 74 66 2d 38 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ile.'utf-8.t)))................. |
| 16b80 | 20 20 20 28 61 6e 64 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 0a 20 20 20 | ...(and.(file-exists-p.file).... |
| 16ba0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 66 69 6c 65 29 | .....................(list.file) |
| 16bc0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 6f 6d 20 28 77 | )))................(let.((dom.(w |
| 16be0 | 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ith-temp-buffer................. |
| 16c00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 | ............(insert-file-content |
| 16c20 | 73 20 66 69 6c 65 2d 6f 66 2d 72 65 63 65 6e 74 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 | s.file-of-recent-files)......... |
| 16c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 78 6d | ....................(counsel--xm |
| 16c60 | 6c 2d 70 61 72 73 65 2d 72 65 67 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-parse-region)))).............. |
| 16c80 | 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 28 64 6f 6d 2d 62 79 2d 74 61 67 20 64 6f 6d 20 27 62 | ....(nreverse.(dom-by-tag.dom.'b |
| 16ca0 | 6f 6f 6b 6d 61 72 6b 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 62 75 | ookmark))))))..(defun.counsel-bu |
| 16cc0 | 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 | ffer-or-recentf-candidates.()... |
| 16ce0 | 22 52 65 74 75 72 6e 20 63 61 6e 64 69 64 61 74 65 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d | "Return.candidates.for.`counsel- |
| 16d00 | 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 27 2e 22 0a 20 20 28 72 65 71 75 69 72 65 20 | buffer-or-recentf'."...(require. |
| 16d20 | 27 72 65 63 65 6e 74 66 29 0a 20 20 28 72 65 63 65 6e 74 66 2d 6d 6f 64 65 29 0a 20 20 28 6c 65 | 'recentf)...(recentf-mode)...(le |
| 16d40 | 74 20 28 28 62 75 66 66 65 72 73 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c 71 20 6e 69 6c 0a 20 | t.((buffers..........(delq.nil.. |
| 16d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 62 | ..............(mapcar.(lambda.(b |
| 16d80 | 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 77 68 65 6e | )..........................(when |
| 16da0 | 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 29 0a 20 20 20 20 20 20 20 20 20 20 | .(buffer-file-name.b)........... |
| 16dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 | .................(buffer-file-na |
| 16de0 | 6d 65 20 62 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 20 28 | me.b)))........................( |
| 16e00 | 62 75 66 66 65 72 2d 6c 69 73 74 29 29 29 29 29 0a 20 20 20 20 28 61 70 70 65 6e 64 0a 20 20 20 | buffer-list))))).....(append.... |
| 16e20 | 20 20 62 75 66 66 65 72 73 0a 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 | ..buffers......(cl-remove-if.(la |
| 16e40 | 6d 62 64 61 20 28 66 29 20 28 6d 65 6d 62 65 72 20 66 20 62 75 66 66 65 72 73 29 29 0a 20 20 20 | mbda.(f).(member.f.buffers)).... |
| 16e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 63 65 6e 74 66 | ................(counsel-recentf |
| 16e80 | 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 | -candidates)))))..;;;###autoload |
| 16ea0 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 | .(defun.counsel-buffer-or-recent |
| 16ec0 | 66 20 28 29 0a 20 20 22 46 69 6e 64 20 61 20 62 75 66 66 65 72 20 76 69 73 69 74 69 6e 67 20 61 | f.()..."Find.a.buffer.visiting.a |
| 16ee0 | 20 66 69 6c 65 20 6f 72 20 66 69 6c 65 20 6f 6e 20 60 72 65 63 65 6e 74 66 2d 6c 69 73 74 27 2e | .file.or.file.on.`recentf-list'. |
| 16f00 | 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 42 | "...(interactive)...(ivy-read."B |
| 16f20 | 75 66 66 65 72 20 46 69 6c 65 20 6f 72 20 52 65 63 65 6e 74 66 3a 20 22 20 28 63 6f 75 6e 73 65 | uffer.File.or.Recentf:.".(counse |
| 16f40 | 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 2d 63 61 6e 64 69 64 61 74 65 73 29 0a | l-buffer-or-recentf-candidates). |
| 16f60 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 73 29 0a | ............:action.(lambda.(s). |
| 16f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d | ......................(with-ivy- |
| 16fa0 | 77 69 6e 64 6f 77 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 28 | window.........................( |
| 16fc0 | 69 66 20 28 62 75 66 66 65 72 70 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.(bufferp.s).................. |
| 16fe0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 73 29 0a | ...........(switch-to-buffer.s). |
| 17000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d | ..........................(find- |
| 17020 | 66 69 6c 65 20 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d | file.s)))).............:require- |
| 17040 | 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 | match.t.............:caller.'cou |
| 17060 | 6e 73 65 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 29 29 0a 0a 28 69 76 79 2d 63 | nsel-buffer-or-recentf))..(ivy-c |
| 17080 | 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 | onfigure.'counsel-buffer-or-rece |
| 170a0 | 6e 74 66 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 | ntf...:display-transformer-fn.#' |
| 170c0 | 63 6f 75 6e 73 65 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 2d 74 72 61 6e 73 66 | counsel-buffer-or-recentf-transf |
| 170e0 | 6f 72 6d 65 72 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 | ormer)..(ivy-set-actions..'couns |
| 17100 | 65 6c 2d 62 75 66 66 65 72 2d 6f 72 2d 72 65 63 65 6e 74 66 0a 20 27 28 28 22 6a 22 20 66 69 6e | el-buffer-or-recentf..'(("j".fin |
| 17120 | 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f | d-file-other-window."other.windo |
| 17140 | 77 22 29 0a 20 20 20 28 22 66 22 20 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 66 72 61 6d | w")....("f".find-file-other-fram |
| 17160 | 65 20 22 6f 74 68 65 72 20 66 72 61 6d 65 22 29 0a 20 20 20 28 22 78 22 20 63 6f 75 6e 73 65 6c | e."other.frame")....("x".counsel |
| 17180 | 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c | -find-file-extern."open.external |
| 171a0 | 6c 79 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 62 75 66 66 65 72 2d 6f 72 | ly")))..(defun.counsel-buffer-or |
| 171c0 | 2d 72 65 63 65 6e 74 66 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 28 76 61 72 29 0a 20 20 22 50 72 | -recentf-transformer.(var)..."Pr |
| 171e0 | 6f 70 65 72 74 69 7a 65 20 56 41 52 20 69 66 20 69 74 27 73 20 61 20 62 75 66 66 65 72 20 76 69 | opertize.VAR.if.it's.a.buffer.vi |
| 17200 | 73 69 74 69 6e 67 20 61 20 66 69 6c 65 2e 22 0a 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 76 61 | siting.a.file."...(if.(member.va |
| 17220 | 72 20 28 6d 61 70 63 61 72 20 23 27 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 62 75 | r.(mapcar.#'buffer-file-name.(bu |
| 17240 | 66 66 65 72 2d 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 28 69 76 79 2d 61 70 70 65 6e 64 2d 66 | ffer-list))).......(ivy-append-f |
| 17260 | 61 63 65 20 76 61 72 20 27 69 76 79 2d 68 69 67 68 6c 69 67 68 74 2d 66 61 63 65 29 0a 20 20 20 | ace.var.'ivy-highlight-face).... |
| 17280 | 20 76 61 72 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 27 0a | .var))..;;**.`counsel-bookmark'. |
| 172a0 | 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 2d 61 76 6f 69 | (defcustom.counsel-bookmark-avoi |
| 172c0 | 64 2d 64 69 72 65 64 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 6f 70 65 6e 20 | d-dired.nil..."If.non-nil,.open. |
| 172e0 | 64 69 72 65 63 74 6f 72 79 20 62 6f 6f 6b 6d 61 72 6b 73 20 77 69 74 68 20 60 63 6f 75 6e 73 65 | directory.bookmarks.with.`counse |
| 17300 | 6c 2d 66 69 6e 64 2d 66 69 6c 65 27 2e 0a 42 79 20 64 65 66 61 75 6c 74 20 60 63 6f 75 6e 73 65 | l-find-file'..By.default.`counse |
| 17320 | 6c 2d 62 6f 6f 6b 6d 61 72 6b 27 20 6f 70 65 6e 73 20 61 20 64 69 72 65 64 20 62 75 66 66 65 72 | l-bookmark'.opens.a.dired.buffer |
| 17340 | 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c | .for.directories."...:type.'bool |
| 17360 | 65 61 6e 29 0a 0a 28 64 65 66 76 61 72 20 62 6f 6f 6b 6d 61 72 6b 2d 61 6c 69 73 74 29 0a 28 64 | ean)..(defvar.bookmark-alist).(d |
| 17380 | 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 62 6f 6f 6b 6d 61 72 6b 2d 6c 6f 63 61 74 69 6f | eclare-function.bookmark-locatio |
| 173a0 | 6e 20 22 62 6f 6f 6b 6d 61 72 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 | n."bookmark").(declare-function. |
| 173c0 | 62 6f 6f 6b 6d 61 72 6b 2d 61 6c 6c 2d 6e 61 6d 65 73 20 22 62 6f 6f 6b 6d 61 72 6b 22 29 0a 28 | bookmark-all-names."bookmark").( |
| 173e0 | 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 66 69 | declare-function.bookmark-get-fi |
| 17400 | 6c 65 6e 61 6d 65 20 22 62 6f 6f 6b 6d 61 72 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 | lename."bookmark").(declare-func |
| 17420 | 74 69 6f 6e 20 62 6f 6f 6b 6d 61 72 6b 2d 6d 61 79 62 65 2d 6c 6f 61 64 2d 64 65 66 61 75 6c 74 | tion.bookmark-maybe-load-default |
| 17440 | 2d 66 69 6c 65 20 22 62 6f 6f 6b 6d 61 72 6b 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 | -file."bookmark")..;;;###autoloa |
| 17460 | 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 20 28 29 0a 20 20 22 | d.(defun.counsel-bookmark.()..." |
| 17480 | 46 6f 72 77 61 72 64 20 74 6f 20 60 62 6f 6f 6b 6d 61 72 6b 2d 6a 75 6d 70 27 20 6f 72 20 60 62 | Forward.to.`bookmark-jump'.or.`b |
| 174a0 | 6f 6f 6b 6d 61 72 6b 2d 73 65 74 27 20 69 66 20 62 6f 6f 6b 6d 61 72 6b 20 64 6f 65 73 6e 27 74 | ookmark-set'.if.bookmark.doesn't |
| 174c0 | 20 65 78 69 73 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 | .exist."...(interactive)...(requ |
| 174e0 | 69 72 65 20 27 62 6f 6f 6b 6d 61 72 6b 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 43 72 65 61 | ire.'bookmark)...(ivy-read."Crea |
| 17500 | 74 65 20 6f 72 20 6a 75 6d 70 20 74 6f 20 62 6f 6f 6b 6d 61 72 6b 3a 20 22 0a 20 20 20 20 20 20 | te.or.jump.to.bookmark:."....... |
| 17520 | 20 20 20 20 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 61 6c 6c 2d 6e 61 6d 65 73 29 0a 20 20 20 20 20 | ......(bookmark-all-names)...... |
| 17540 | 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 62 6f 6f 6b 6d 61 72 6b 2d 68 69 73 74 6f 72 | .......:history.'bookmark-histor |
| 17560 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 | y.............:action.(lambda.(x |
| 17580 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 | ).......................(cond.(( |
| 175a0 | 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 2d 61 76 6f 69 64 2d 64 69 72 65 64 | and.counsel-bookmark-avoid-dired |
| 175c0 | 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 20 | ................................ |
| 175e0 | 20 20 20 28 6d 65 6d 62 65 72 20 78 20 28 62 6f 6f 6b 6d 61 72 6b 2d 61 6c 6c 2d 6e 61 6d 65 73 | ...(member.x.(bookmark-all-names |
| 17600 | 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 | )).............................. |
| 17620 | 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 28 62 6f 6f 6b 6d 61 72 6b | .....(file-directory-p.(bookmark |
| 17640 | 2d 6c 6f 63 61 74 69 6f 6e 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -location.x))).................. |
| 17660 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 | ............(with-ivy-window.... |
| 17680 | 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 6c 65 74 | ............................(let |
| 176a0 | 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6c | .((default-directory.(bookmark-l |
| 176c0 | 6f 63 61 74 69 6f 6e 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ocation.x))).................... |
| 176e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 | ..............(counsel-find-file |
| 17700 | 29 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 20 20 20 20 20 | ))))............................ |
| 17720 | 20 28 28 6d 65 6d 62 65 72 20 78 20 28 62 6f 6f 6b 6d 61 72 6b 2d 61 6c 6c 2d 6e 61 6d 65 73 29 | .((member.x.(bookmark-all-names) |
| 17740 | 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 28 | )..............................( |
| 17760 | 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | with-ivy-window................. |
| 17780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6a 75 6d 70 20 78 29 | ...............(bookmark-jump.x) |
| 177a0 | 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 28 | )).............................( |
| 177c0 | 74 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 28 | t..............................( |
| 177e0 | 62 6f 6f 6b 6d 61 72 6b 2d 73 65 74 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a | bookmark-set.x)))).............: |
| 17800 | 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 29 29 0a 0a 28 64 65 66 | caller.'counsel-bookmark))..(def |
| 17820 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 61 70 70 6c 79 2d 62 6f 6f 6b 6d 61 72 6b 2d 66 6e 20 28 66 | un.counsel--apply-bookmark-fn.(f |
| 17840 | 6e 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 75 6e 63 74 69 6f 6e 20 61 70 70 6c 79 69 6e 67 | n)..."Return.a.function.applying |
| 17860 | 20 46 4e 20 74 6f 20 61 20 62 6f 6f 6b 6d 61 72 6b 27 73 20 6c 6f 63 61 74 69 6f 6e 2e 22 0a 20 | .FN.to.a.bookmark's.location.".. |
| 17880 | 20 28 6c 61 6d 62 64 61 20 28 62 6f 6f 6b 6d 61 72 6b 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c | .(lambda.(bookmark).....(funcall |
| 178a0 | 20 66 6e 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6c 6f 63 61 74 69 6f 6e 20 62 6f 6f 6b 6d 61 72 6b 29 | .fn.(bookmark-location.bookmark) |
| 178c0 | 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d | )))..(ivy-set-actions..'counsel- |
| 178e0 | 62 6f 6f 6b 6d 61 72 6b 0a 20 60 28 28 22 6a 22 20 62 6f 6f 6b 6d 61 72 6b 2d 6a 75 6d 70 2d 6f | bookmark..`(("j".bookmark-jump-o |
| 17900 | 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 20 28 | ther-window."other.window")....( |
| 17920 | 22 64 22 20 62 6f 6f 6b 6d 61 72 6b 2d 64 65 6c 65 74 65 20 22 64 65 6c 65 74 65 22 29 0a 20 20 | "d".bookmark-delete."delete")... |
| 17940 | 20 28 22 65 22 20 62 6f 6f 6b 6d 61 72 6b 2d 72 65 6e 61 6d 65 20 22 65 64 69 74 22 29 0a 20 20 | .("e".bookmark-rename."edit")... |
| 17960 | 20 28 22 73 22 20 62 6f 6f 6b 6d 61 72 6b 2d 73 65 74 20 22 6f 76 65 72 77 72 69 74 65 22 29 0a | .("s".bookmark-set."overwrite"). |
| 17980 | 20 20 20 28 22 78 22 20 2c 28 63 6f 75 6e 73 65 6c 2d 2d 61 70 70 6c 79 2d 62 6f 6f 6b 6d 61 72 | ...("x".,(counsel--apply-bookmar |
| 179a0 | 6b 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 65 78 74 65 72 6e 29 | k-fn.#'counsel-find-file-extern) |
| 179c0 | 0a 20 20 20 20 20 20 20 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c 6c 79 22 29 0a 20 20 20 28 | ........."open.externally")....( |
| 179e0 | 22 72 22 20 2c 28 63 6f 75 6e 73 65 6c 2d 2d 61 70 70 6c 79 2d 62 6f 6f 6b 6d 61 72 6b 2d 66 6e | "r".,(counsel--apply-bookmark-fn |
| 17a00 | 20 23 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 73 2d 72 6f 6f 74 29 0a 20 20 | .#'counsel-find-file-as-root)... |
| 17a20 | 20 20 20 20 20 20 22 6f 70 65 6e 20 61 73 20 72 6f 6f 74 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 | ......"open.as.root")))..;;**.`c |
| 17a40 | 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 27 0a 28 64 65 | ounsel-bookmarked-directory'.(de |
| 17a60 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 | fun.counsel-bookmarked-directory |
| 17a80 | 2d 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 47 65 74 20 61 20 6c 69 73 74 20 6f 66 | --candidates.()..."Get.a.list.of |
| 17aa0 | 20 62 6f 6f 6b 6d 61 72 6b 65 64 20 64 69 72 65 63 74 6f 72 69 65 73 20 73 6f 72 74 65 64 20 62 | .bookmarked.directories.sorted.b |
| 17ac0 | 79 20 66 69 6c 65 20 70 61 74 68 2e 22 0a 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6d 61 79 62 65 2d | y.file.path."...(bookmark-maybe- |
| 17ae0 | 6c 6f 61 64 2d 64 65 66 61 75 6c 74 2d 66 69 6c 65 29 0a 20 20 28 73 6f 72 74 20 28 63 6c 2d 72 | load-default-file)...(sort.(cl-r |
| 17b00 | 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 23 27 69 76 79 2d 2d 64 69 72 | emove-if-not..........#'ivy--dir |
| 17b20 | 6e 61 6d 65 2d 70 0a 20 20 20 20 20 20 20 20 20 28 64 65 6c 71 20 6e 69 6c 20 28 6d 61 70 63 61 | name-p..........(delq.nil.(mapca |
| 17b40 | 72 20 23 27 62 6f 6f 6b 6d 61 72 6b 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 62 6f 6f 6b 6d 61 | r.#'bookmark-get-filename.bookma |
| 17b60 | 72 6b 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 23 27 73 74 72 69 6e 67 3c 29 29 0a | rk-alist))).........#'string<)). |
| 17b80 | 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 75 6e 73 65 6c 2d 62 | .;;;###autoload.(defun.counsel-b |
| 17ba0 | 6f 6f 6b 6d 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 49 76 79 20 69 6e | ookmarked-directory.()..."Ivy.in |
| 17bc0 | 74 65 72 66 61 63 65 20 66 6f 72 20 62 6f 6f 6b 6d 61 72 6b 65 64 20 64 69 72 65 63 74 6f 72 69 | terface.for.bookmarked.directori |
| 17be0 | 65 73 2e 0a 0a 57 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 69 | es...With.a.prefix.argument,.thi |
| 17c00 | 73 20 63 6f 6d 6d 61 6e 64 20 63 72 65 61 74 65 73 20 61 20 6e 65 77 20 62 6f 6f 6b 6d 61 72 6b | s.command.creates.a.new.bookmark |
| 17c20 | 20 77 68 69 63 68 20 70 6f 69 6e 74 73 20 74 6f 20 74 68 65 0a 63 75 72 72 65 6e 74 20 76 61 6c | .which.points.to.the.current.val |
| 17c40 | 75 65 20 6f 66 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 69 | ue.of.`default-directory'."...(i |
| 17c60 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 62 6f 6f 6b 6d 61 72 6b | nteractive)...(require.'bookmark |
| 17c80 | 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 42 6f 6f 6b 6d 61 72 6b 65 64 20 64 69 72 65 63 74 | )...(ivy-read."Bookmarked.direct |
| 17ca0 | 6f 72 79 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b | ory:.".............(counsel-book |
| 17cc0 | 6d 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 2d 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 | marked-directory--candidates)... |
| 17ce0 | 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d | ..........:caller.'counsel-bookm |
| 17d00 | 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 | arked-directory.............:act |
| 17d20 | 69 6f 6e 20 23 27 64 69 72 65 64 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 20 | ion.#'dired))..(ivy-set-actions. |
| 17d40 | 27 63 6f 75 6e 73 65 6c 2d 62 6f 6f 6b 6d 61 72 6b 65 64 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 | 'counsel-bookmarked-directory... |
| 17d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 22 6a 22 20 64 69 72 65 64 2d 6f 74 68 65 | ...............`(("j".dired-othe |
| 17d80 | 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 20 20 20 20 20 | r-window."other.window")........ |
| 17da0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 22 78 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 | ............("x".counsel-find-fi |
| 17dc0 | 6c 65 2d 65 78 74 65 72 6e 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c 6c 79 22 29 0a 20 20 20 | le-extern."open.externally").... |
| 17de0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 72 22 20 63 6f 75 6e 73 65 6c 2d 66 69 6e | ................("r".counsel-fin |
| 17e00 | 64 2d 66 69 6c 65 2d 61 73 2d 72 6f 6f 74 20 22 6f 70 65 6e 20 61 73 20 72 6f 6f 74 22 29 0a 20 | d-file-as-root."open.as.root").. |
| 17e20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 66 22 20 2c 28 6c 61 6d 62 64 61 20 | ..................("f".,(lambda. |
| 17e40 | 28 64 69 72 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 | (dir)........................... |
| 17e60 | 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 29 0a | .(let.((default-directory.dir)). |
| 17e80 | 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 63 61 | .............................(ca |
| 17ea0 | 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 23 27 66 69 6e 64 2d 66 69 6c 65 29 29 29 0a | ll-interactively.#'find-file))). |
| 17ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 66 69 6e 64 2d 66 69 6c 65 22 29 | ...................."find-file") |
| 17ee0 | 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 72 65 67 69 73 74 65 72 27 | ))..;;**.`counsel-file-register' |
| 17f00 | 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 75 6e 73 65 6c 2d 66 | .;;;###autoload.(defun.counsel-f |
| 17f20 | 69 6c 65 2d 72 65 67 69 73 74 65 72 20 28 29 0a 20 20 22 53 65 61 72 63 68 20 66 69 6c 65 20 69 | ile-register.()..."Search.file.i |
| 17f40 | 6e 20 72 65 67 69 73 74 65 72 2e 0a 0a 59 6f 75 20 63 61 6e 6e 6f 74 20 75 73 65 20 45 6d 61 63 | n.register...You.cannot.use.Emac |
| 17f60 | 73 27 20 6e 6f 72 6d 61 6c 20 72 65 67 69 73 74 65 72 20 63 6f 6d 6d 61 6e 64 73 20 74 6f 20 63 | s'.normal.register.commands.to.c |
| 17f80 | 72 65 61 74 65 20 66 69 6c 65 0a 72 65 67 69 73 74 65 72 73 2e 20 20 49 6e 73 74 65 61 64 20 79 | reate.file.registers...Instead.y |
| 17fa0 | 6f 75 20 6d 75 73 74 20 75 73 65 20 74 68 65 20 60 73 65 74 2d 72 65 67 69 73 74 65 72 27 20 66 | ou.must.use.the.`set-register'.f |
| 17fc0 | 75 6e 63 74 69 6f 6e 20 6c 69 6b 65 0a 73 6f 3a 20 60 28 73 65 74 2d 72 65 67 69 73 74 65 72 20 | unction.like.so:.`(set-register. |
| 17fe0 | 3f 69 20 5c 22 2f 68 6f 6d 65 2f 65 72 69 63 2f 2e 65 6d 61 63 73 2e 64 2f 69 6e 69 74 2e 65 6c | ?i.\"/home/eric/.emacs.d/init.el |
| 18000 | 5c 22 29 27 2e 20 20 4e 6f 77 20 79 6f 75 0a 63 61 6e 20 75 73 65 20 60 43 2d 78 20 72 20 6a 20 | \")'...Now.you.can.use.`C-x.r.j. |
| 18020 | 69 27 20 74 6f 20 6f 70 65 6e 20 74 68 61 74 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 | i'.to.open.that.file."...(intera |
| 18040 | 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 69 6c 65 20 52 65 67 69 73 74 65 | ctive)...(ivy-read."File.Registe |
| 18060 | 72 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 55 73 65 20 74 68 65 20 60 72 65 67 | r:.".............;;.Use.the.`reg |
| 18080 | 69 73 74 65 72 2d 61 6c 69 73 74 27 20 76 61 72 69 61 62 6c 65 20 74 6f 20 66 69 6c 74 65 72 20 | ister-alist'.variable.to.filter. |
| 180a0 | 6f 75 74 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 72 65 67 69 73 74 65 72 | out.file.............;;.register |
| 180c0 | 73 2e 20 20 45 61 63 68 20 65 6e 74 72 79 20 66 6f 72 20 61 20 66 69 6c 65 20 72 65 67 69 73 74 | s...Each.entry.for.a.file.regist |
| 180e0 | 65 72 20 77 69 6c 6c 20 68 61 76 65 20 74 68 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | er.will.have.the.............;;. |
| 18100 | 66 6f 6c 6c 6f 77 69 6e 67 20 6c 61 79 6f 75 74 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b | following.layout:.............;; |
| 18120 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 20 20 20 20 28 4e 55 4d 42 45 52 20 27 66 69 6c | .............;;.....(NUMBER.'fil |
| 18140 | 65 20 2e 20 22 73 74 72 69 6e 67 2f 70 61 74 68 2f 74 6f 2f 66 69 6c 65 22 29 0a 20 20 20 20 20 | e..."string/path/to/file")...... |
| 18160 | 20 20 20 20 20 20 20 3b 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 53 6f 20 77 65 20 67 | .......;;.............;;.So.we.g |
| 18180 | 6f 20 74 68 72 6f 75 67 68 20 65 61 63 68 20 65 6e 74 72 79 20 61 6e 64 20 73 65 65 20 69 66 20 | o.through.each.entry.and.see.if. |
| 181a0 | 74 68 65 20 60 63 61 64 72 27 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 60 65 71 | the.`cadr'.is.............;;.`eq |
| 181c0 | 27 20 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 66 69 6c 65 27 2e 20 20 49 66 20 73 6f 20 74 | '.to.the.symbol.`file'...If.so.t |
| 181e0 | 68 65 6e 20 61 64 64 20 74 68 65 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 | hen.add.the.filename............ |
| 18200 | 20 3b 3b 20 28 60 63 64 64 72 27 29 20 77 68 69 63 68 20 60 69 76 79 2d 72 65 61 64 27 20 77 69 | .;;.(`cddr').which.`ivy-read'.wi |
| 18220 | 6c 6c 20 75 73 65 20 66 6f 72 20 69 74 73 20 63 68 6f 69 63 65 73 2e 0a 20 20 20 20 20 20 20 20 | ll.use.for.its.choices.......... |
| 18240 | 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 72 65 67 69 73 74 65 72 2d 61 6c | ....(mapcar.(lambda.(register-al |
| 18260 | 69 73 74 2d 65 6e 74 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ist-entry)...................... |
| 18280 | 20 28 69 66 20 28 65 71 20 27 66 69 6c 65 20 28 63 61 64 72 20 72 65 67 69 73 74 65 72 2d 61 6c | .(if.(eq.'file.(cadr.register-al |
| 182a0 | 69 73 74 2d 65 6e 74 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 | ist-entry))..................... |
| 182c0 | 20 20 20 20 20 20 28 63 64 64 72 20 72 65 67 69 73 74 65 72 2d 61 6c 69 73 74 2d 65 6e 74 72 79 | ......(cddr.register-alist-entry |
| 182e0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 | ))).....................register |
| 18300 | 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 | -alist).............:require-mat |
| 18320 | 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 | ch.t.............:history.'couns |
| 18340 | 65 6c 2d 66 69 6c 65 2d 72 65 67 69 73 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 | el-file-register.............:ca |
| 18360 | 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 72 65 67 69 73 74 65 72 0a 20 20 20 20 | ller.'counsel-file-register..... |
| 18380 | 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 72 65 67 69 73 74 65 | ........:action.(lambda.(registe |
| 183a0 | 72 2d 66 69 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 28 77 | r-file).......................(w |
| 183c0 | 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 20 28 66 69 6e 64 2d 66 69 6c 65 20 72 65 67 69 73 74 | ith-ivy-window.(find-file.regist |
| 183e0 | 65 72 2d 66 69 6c 65 29 29 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f | er-file)))))..(ivy-configure.'co |
| 18400 | 75 6e 73 65 6c 2d 66 69 6c 65 2d 72 65 67 69 73 74 65 72 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 | unsel-file-register...:sort-fn.# |
| 18420 | 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a | 'ivy-string<)..(ivy-set-actions. |
| 18440 | 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 72 65 67 69 73 74 65 72 0a 20 27 28 28 22 6a 22 20 | .'counsel-file-register..'(("j". |
| 18460 | 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 | find-file-other-window."other.wi |
| 18480 | 6e 64 6f 77 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 27 0a | ndow")))..;;**.`counsel-locate'. |
| 184a0 | 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 20 28 63 | (defcustom.counsel-locate-cmd.(c |
| 184c0 | 6f 6e 64 20 28 28 6d 65 6d 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 28 64 61 72 77 69 6e 20 | ond.((memq.system-type.'(darwin. |
| 184e0 | 62 65 72 6b 65 6c 65 79 2d 75 6e 69 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | berkeley-unix))................. |
| 18500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 6c | .....................#'counsel-l |
| 18520 | 6f 63 61 74 65 2d 63 6d 64 2d 6e 6f 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ocate-cmd-noregex).............. |
| 18540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 | .......................((and.(eq |
| 18560 | 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 0a 20 20 20 20 20 20 | .system-type.'windows-nt)....... |
| 18580 | 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 | ................................ |
| 185a0 | 20 20 20 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 65 73 2e 65 78 65 22 29 29 0a | ....(executable-find."es.exe")). |
| 185c0 | 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 | ................................ |
| 185e0 | 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 65 73 29 0a 20 20 | .....#'counsel-locate-cmd-es)... |
| 18600 | 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 | ................................ |
| 18620 | 20 20 28 74 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 | ..(t............................ |
| 18640 | 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 64 | ..........#'counsel-locate-cmd-d |
| 18660 | 65 66 61 75 6c 74 29 29 0a 20 20 22 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 70 72 6f | efault))..."The.function.for.pro |
| 18680 | 64 75 63 69 6e 67 20 61 20 60 6c 6f 63 61 74 65 27 20 63 6f 6d 6d 61 6e 64 20 73 74 72 69 6e 67 | ducing.a.`locate'.command.string |
| 186a0 | 20 66 72 6f 6d 20 74 68 65 20 69 6e 70 75 74 2e 0a 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 | .from.the.input...The.function.t |
| 186c0 | 61 6b 65 73 20 61 20 73 74 72 69 6e 67 20 2d 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 6e 70 75 | akes.a.string.-.the.current.inpu |
| 186e0 | 74 2c 20 61 6e 64 20 72 65 74 75 72 6e 73 20 61 0a 73 74 72 69 6e 67 20 2d 20 74 68 65 20 66 75 | t,.and.returns.a.string.-.the.fu |
| 18700 | 6c 6c 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 72 75 6e 2e 22 0a 20 20 3a 74 79 70 | ll.shell.command.to.run."...:typ |
| 18720 | 65 20 27 28 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 | e.'(choice...........(const.:tag |
| 18740 | 20 22 44 65 66 61 75 6c 74 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 64 65 | ."Default".counsel-locate-cmd-de |
| 18760 | 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f | fault)...........(const.:tag."No |
| 18780 | 20 72 65 67 65 78 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 6e 6f 72 65 67 | .regex".counsel-locate-cmd-noreg |
| 187a0 | 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 6d 64 66 69 6e | ex)...........(const.:tag."mdfin |
| 187c0 | 64 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 6d 64 66 69 6e 64 29 0a 20 20 | d".counsel-locate-cmd-mdfind)... |
| 187e0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 65 76 65 72 79 74 68 69 6e 67 22 | ........(const.:tag."everything" |
| 18800 | 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 65 73 29 0a 20 20 20 20 20 20 20 20 | .counsel-locate-cmd-es)......... |
| 18820 | 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 22 29 29 29 0a 0a 28 69 | ..(function.:tag."Custom")))..(i |
| 18840 | 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 0a | vy-set-actions..'counsel-locate. |
| 18860 | 20 27 28 28 22 78 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 69 6f 6e 2d 65 78 | .'(("x".counsel-locate-action-ex |
| 18880 | 74 65 72 6e 20 22 78 64 67 2d 6f 70 65 6e 22 29 0a 20 20 20 28 22 72 22 20 63 6f 75 6e 73 65 6c | tern."xdg-open")....("r".counsel |
| 188a0 | 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 73 2d 72 6f 6f 74 20 22 6f 70 65 6e 20 61 73 20 72 6f 6f 74 | -find-file-as-root."open.as.root |
| 188c0 | 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 69 6f 6e | ")....("d".counsel-locate-action |
| 188e0 | 2d 64 69 72 65 64 20 22 64 69 72 65 64 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 | -dired."dired")))..(defvar.couns |
| 18900 | 65 6c 2d 6c 6f 63 61 74 65 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 | el-locate-history.nil..."History |
| 18920 | 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 | .for.`counsel-locate'.")..;;;### |
| 18940 | 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 | autoload.(defun.counsel-locate-a |
| 18960 | 63 74 69 6f 6e 2d 65 78 74 65 72 6e 20 28 78 29 0a 20 20 22 50 61 73 73 20 58 20 74 6f 20 60 78 | ction-extern.(x)..."Pass.X.to.`x |
| 18980 | 64 67 2d 6f 70 65 6e 27 20 6f 72 20 65 71 75 69 76 61 6c 65 6e 74 20 63 6f 6d 6d 61 6e 64 20 76 | dg-open'.or.equivalent.command.v |
| 189a0 | 69 61 20 74 68 65 20 73 68 65 6c 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 46 | ia.the.shell."...(interactive."F |
| 189c0 | 46 69 6c 65 3a 20 22 29 0a 20 20 28 69 66 20 28 61 6e 64 20 28 65 71 20 73 79 73 74 65 6d 2d 74 | File:.")...(if.(and.(eq.system-t |
| 189e0 | 79 70 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f | ype.'windows-nt)............(fbo |
| 18a00 | 75 6e 64 70 20 27 77 33 32 2d 73 68 65 6c 6c 2d 65 78 65 63 75 74 65 29 29 0a 20 20 20 20 20 20 | undp.'w32-shell-execute))....... |
| 18a20 | 28 77 33 32 2d 73 68 65 6c 6c 2d 65 78 65 63 75 74 65 20 22 6f 70 65 6e 22 20 78 29 0a 20 20 20 | (w32-shell-execute."open".x).... |
| 18a40 | 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 28 66 6f | .(call-process-shell-command.(fo |
| 18a60 | 72 6d 61 74 20 22 25 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rmat."%s.%s".................... |
| 18a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 20 73 79 | .....................(cl-case.sy |
| 18aa0 | 73 74 65 6d 2d 74 79 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | stem-type....................... |
| 18ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 61 72 77 69 6e 20 22 6f 70 65 | ....................(darwin."ope |
| 18ae0 | 6e 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 20 20 20 20 20 20 | n")............................. |
| 18b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 79 67 77 69 6e 20 22 63 79 67 73 74 61 72 74 22 | ..............(cygwin."cygstart" |
| 18b20 | 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 | )............................... |
| 18b40 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 22 78 64 67 2d 6f 70 65 6e 22 29 29 0a 20 20 20 20 | ............(t."xdg-open"))..... |
| 18b60 | 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 | ................................ |
| 18b80 | 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 78 29 29 0a 20 20 | ....(shell-quote-argument.x))... |
| 18ba0 | 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 6e 69 | ..............................ni |
| 18bc0 | 6c 20 30 29 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | l.0)))..(defalias.'counsel-find- |
| 18be0 | 66 69 6c 65 2d 65 78 74 65 72 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 | file-extern.#'counsel-locate-act |
| 18c00 | 69 6f 6e 2d 65 78 74 65 72 6e 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 | ion-extern)..(declare-function.d |
| 18c20 | 69 72 65 64 2d 6a 75 6d 70 20 22 64 69 72 65 64 2d 78 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | ired-jump."dired-x")..(defun.cou |
| 18c40 | 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 69 6f 6e 2d 64 69 72 65 64 20 28 78 29 0a 20 20 22 | nsel-locate-action-dired.(x)..." |
| 18c60 | 55 73 65 20 60 64 69 72 65 64 2d 6a 75 6d 70 27 20 6f 6e 20 58 2e 22 0a 20 20 28 64 69 72 65 64 | Use.`dired-jump'.on.X."...(dired |
| 18c80 | 2d 6a 75 6d 70 20 6e 69 6c 20 78 29 29 0a 0a 28 64 65 66 76 61 72 20 6c 6f 63 61 74 65 2d 63 6f | -jump.nil.x))..(defvar.locate-co |
| 18ca0 | 6d 6d 61 6e 64 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d | mmand)..(defun.counsel-locate-cm |
| 18cc0 | 64 2d 64 65 66 61 75 6c 74 20 28 69 6e 70 75 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 60 6c | d-default.(input)..."Return.a.`l |
| 18ce0 | 6f 63 61 74 65 27 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 62 61 73 65 64 20 6f 6e 20 72 65 | ocate'.shell.command.based.on.re |
| 18d00 | 67 65 78 70 20 49 4e 50 55 54 2e 0a 54 68 69 73 20 75 73 65 73 20 74 68 65 20 75 73 65 72 20 6f | gexp.INPUT..This.uses.the.user.o |
| 18d20 | 70 74 69 6f 6e 20 60 6c 6f 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 27 20 66 72 6f 6d 20 74 68 65 20 | ption.`locate-command'.from.the. |
| 18d40 | 60 6c 6f 63 61 74 65 27 0a 6c 69 62 72 61 72 79 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 | `locate'.library,.which.see."... |
| 18d60 | 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 6c 6f 63 61 74 65 2d | (counsel-require-program.locate- |
| 18d80 | 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 69 20 2d 2d 72 65 67 65 | command)...(format."%s.-i.--rege |
| 18da0 | 78 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 6c 6f 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 0a 20 | x.%s"...........locate-command.. |
| 18dc0 | 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 0a 20 | .........(shell-quote-argument.. |
| 18de0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 | ..........(counsel--elisp-to-pcr |
| 18e00 | 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 6e 70 75 74 29 | e.............(ivy--regex.input) |
| 18e20 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d | ))))..(defun.counsel-locate-cmd- |
| 18e40 | 6e 6f 72 65 67 65 78 20 28 69 6e 70 75 74 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 60 6c 6f 63 | noregex.(input)..."Return.a.`loc |
| 18e60 | 61 74 65 27 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 62 61 73 65 64 20 6f 6e 20 49 4e 50 55 | ate'.shell.command.based.on.INPU |
| 18e80 | 54 2e 0a 54 68 69 73 20 75 73 65 73 20 74 68 65 20 75 73 65 72 20 6f 70 74 69 6f 6e 20 60 6c 6f | T..This.uses.the.user.option.`lo |
| 18ea0 | 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 27 20 66 72 6f 6d 20 74 68 65 20 60 6c 6f 63 61 74 65 27 0a | cate-command'.from.the.`locate'. |
| 18ec0 | 6c 69 62 72 61 72 79 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d | library,.which.see."...(counsel- |
| 18ee0 | 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 6c 6f 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 29 0a | require-program.locate-command). |
| 18f00 | 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 69 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 6c | ..(format."%s.-i.%s"...........l |
| 18f20 | 6f 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 | ocate-command...........(shell-q |
| 18f40 | 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 69 6e 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | uote-argument.input)))..(defun.c |
| 18f60 | 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 6d 64 66 69 6e 64 20 28 69 6e 70 75 74 29 | ounsel-locate-cmd-mdfind.(input) |
| 18f80 | 0a 20 20 22 52 65 74 75 72 6e 20 61 20 60 6d 64 66 69 6e 64 27 20 73 68 65 6c 6c 20 63 6f 6d 6d | ..."Return.a.`mdfind'.shell.comm |
| 18fa0 | 61 6e 64 20 62 61 73 65 64 20 6f 6e 20 49 4e 50 55 54 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d | and.based.on.INPUT."...(counsel- |
| 18fc0 | 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 22 6d 64 66 69 6e 64 22 29 0a 20 20 28 66 6f 72 | require-program."mdfind")...(for |
| 18fe0 | 6d 61 74 20 22 6d 64 66 69 6e 64 20 2d 6e 61 6d 65 20 25 73 22 20 28 73 68 65 6c 6c 2d 71 75 6f | mat."mdfind.-name.%s".(shell-quo |
| 19000 | 74 65 2d 61 72 67 75 6d 65 6e 74 20 69 6e 70 75 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | te-argument.input)))..(defun.cou |
| 19020 | 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 2d 65 73 20 28 69 6e 70 75 74 29 0a 20 20 22 52 65 | nsel-locate-cmd-es.(input)..."Re |
| 19040 | 74 75 72 6e 20 61 20 60 65 73 27 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 62 61 73 65 64 20 | turn.a.`es'.shell.command.based. |
| 19060 | 6f 6e 20 49 4e 50 55 54 2e 22 0a 20 20 28 64 65 66 76 61 72 20 77 33 32 2d 61 6e 73 69 2d 63 6f | on.INPUT."...(defvar.w32-ansi-co |
| 19080 | 64 65 2d 70 61 67 65 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 | de-page)...(counsel-require-prog |
| 190a0 | 72 61 6d 20 22 65 73 2e 65 78 65 22 29 0a 20 20 28 6c 65 74 20 28 28 72 61 77 2d 73 74 72 69 6e | ram."es.exe")...(let.((raw-strin |
| 190c0 | 67 20 28 66 6f 72 6d 61 74 20 22 65 73 2e 65 78 65 20 2d 69 20 2d 70 20 2d 72 20 25 73 22 0a 20 | g.(format."es.exe.-i.-p.-r.%s".. |
| 190e0 | 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 63 6f 75 6e | ...........................(coun |
| 19100 | 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sel--elisp-to-pcre.............. |
| 19120 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 6e 70 75 | ................(ivy--regex.inpu |
| 19140 | 74 20 74 29 29 29 29 29 0a 20 20 20 20 3b 3b 20 57 33 32 20 64 6f 65 73 6e 27 74 20 75 73 65 20 | t.t))))).....;;.W32.doesn't.use. |
| 19160 | 55 6e 69 63 6f 64 65 20 62 79 20 64 65 66 61 75 6c 74 2c 20 73 6f 20 77 65 20 65 6e 63 6f 64 65 | Unicode.by.default,.so.we.encode |
| 19180 | 20 73 65 61 72 63 68 20 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 3b 3b 20 74 6f 20 6c 6f 63 61 6c 20 | .search.command.....;;.to.local. |
| 191a0 | 63 6f 64 65 70 61 67 65 20 74 6f 20 73 75 70 70 6f 72 74 20 73 65 61 72 63 68 69 6e 67 20 66 69 | codepage.to.support.searching.fi |
| 191c0 | 6c 65 20 6e 61 6d 65 73 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 20 20 20 20 3b 3b 20 6e 6f 6e 2d 41 | le.names.containing.....;;.non-A |
| 191e0 | 53 43 49 49 20 63 68 61 72 61 63 74 65 72 73 2e 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 65 | SCII.characters......(if.(and.(e |
| 19200 | 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 77 69 6e 64 6f 77 73 2d 6e 74 29 0a 20 20 20 20 20 | q.system-type.'windows-nt)...... |
| 19220 | 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 27 77 33 32 2d 61 6e 73 69 2d 63 6f 64 65 2d 70 | ........(boundp.'w32-ansi-code-p |
| 19240 | 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 28 65 6e 63 6f 64 65 2d 63 6f 64 69 6e 67 2d 73 74 72 | age)).........(encode-coding-str |
| 19260 | 69 6e 67 20 72 61 77 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ing.raw-string.................. |
| 19280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 63 70 | .............(intern.(format."cp |
| 192a0 | 25 64 22 20 77 33 32 2d 61 6e 73 69 2d 63 6f 64 65 2d 70 61 67 65 29 29 29 0a 20 20 20 20 20 20 | %d".w32-ansi-code-page)))....... |
| 192c0 | 72 61 77 2d 73 74 72 69 6e 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f | raw-string)))..(defun.counsel-lo |
| 192e0 | 63 61 74 65 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e 70 75 74 29 0a 20 20 22 43 61 6c 6c 20 61 20 | cate-function.(input)..."Call.a. |
| 19300 | 5c 22 6c 6f 63 61 74 65 5c 22 20 73 74 79 6c 65 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 77 | \"locate\".style.shell.command.w |
| 19320 | 69 74 68 20 49 4e 50 55 54 2e 22 0a 20 20 28 6f 72 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 | ith.INPUT."...(or....(ivy-more-c |
| 19340 | 68 61 72 73 29 0a 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 | hars)....(progn......(counsel--a |
| 19360 | 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e | sync-command.......(funcall.coun |
| 19380 | 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 20 69 6e 70 75 74 29 29 0a 20 20 20 20 20 27 28 22 22 | sel-locate-cmd.input))......'("" |
| 193a0 | 20 22 77 6f 72 6b 69 6e 67 2e 2e 2e 22 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f | ."working..."))))..(defcustom.co |
| 193c0 | 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 64 62 2d 70 61 74 68 20 22 7e 2f 2e 6c 6f 63 61 6c 2f 6d | unsel-locate-db-path."~/.local/m |
| 193e0 | 6c 6f 63 61 74 65 2e 64 62 22 0a 20 20 22 4c 6f 63 61 74 69 6f 6e 20 77 68 65 72 65 20 74 6f 20 | locate.db"..."Location.where.to. |
| 19400 | 70 75 74 20 74 68 65 20 6c 6f 63 61 74 65 64 62 20 69 6e 20 63 61 73 65 20 79 6f 75 72 20 68 6f | put.the.locatedb.in.case.your.ho |
| 19420 | 6d 65 20 66 6f 6c 64 65 72 20 69 73 20 65 6e 63 72 79 70 74 65 64 2e 22 0a 20 20 3a 74 79 70 65 | me.folder.is.encrypted."...:type |
| 19440 | 20 27 66 69 6c 65 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 73 74 61 | .'file)..(defun.counsel-file-sta |
| 19460 | 6c 65 2d 70 20 28 66 6e 61 6d 65 20 73 65 63 6f 6e 64 73 29 0a 20 20 22 52 65 74 75 72 6e 20 6e | le-p.(fname.seconds)..."Return.n |
| 19480 | 6f 6e 2d 6e 69 6c 20 69 66 20 46 4e 41 4d 45 20 77 61 73 20 6d 6f 64 69 66 69 65 64 20 6d 6f 72 | on-nil.if.FNAME.was.modified.mor |
| 194a0 | 65 20 74 68 61 6e 20 53 45 43 4f 4e 44 53 20 61 67 6f 2e 22 0a 20 20 28 3e 20 28 66 6c 6f 61 74 | e.than.SECONDS.ago."...(>.(float |
| 194c0 | 2d 74 69 6d 65 20 28 74 69 6d 65 2d 73 75 62 74 72 61 63 74 20 6e 69 6c 20 28 6e 74 68 20 35 20 | -time.(time-subtract.nil.(nth.5. |
| 194e0 | 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 | (file-attributes.fname))))...... |
| 19500 | 73 65 63 6f 6e 64 73 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6c 6f 63 61 74 | seconds))..(defun.counsel--locat |
| 19520 | 65 2d 75 70 64 61 74 65 64 62 20 28 29 0a 20 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 65 78 69 73 | e-updatedb.()...(when.(file-exis |
| 19540 | 74 73 2d 70 20 22 7e 2f 2e 50 72 69 76 61 74 65 22 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 62 | ts-p."~/.Private").....(let.((db |
| 19560 | 2d 66 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 6f 75 6e 73 65 6c | -fname.(expand-file-name.counsel |
| 19580 | 2d 6c 6f 63 61 74 65 2d 64 62 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 65 6e 76 | -locate-db-path))).......(setenv |
| 195a0 | 20 22 4c 4f 43 41 54 45 5f 50 41 54 48 22 20 64 62 2d 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 | ."LOCATE_PATH".db-fname).......( |
| 195c0 | 77 68 65 6e 20 28 6f 72 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 64 62 2d | when.(or.(not.(file-exists-p.db- |
| 195e0 | 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c | fname)).................(counsel |
| 19600 | 2d 66 69 6c 65 2d 73 74 61 6c 65 2d 70 20 64 62 2d 66 6e 61 6d 65 20 36 30 29 29 0a 20 20 20 20 | -file-stale-p.db-fname.60))..... |
| 19620 | 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 55 70 64 61 74 69 6e 67 20 25 73 2e 2e 2e 22 20 64 62 | ....(message."Updating.%s...".db |
| 19640 | 2d 66 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 6d 61 6e | -fname).........(counsel--comman |
| 19660 | 64 0a 20 20 20 20 20 20 20 20 20 22 75 70 64 61 74 65 64 62 22 20 22 2d 6c 22 20 22 30 22 20 22 | d.........."updatedb"."-l"."0"." |
| 19680 | 2d 6f 22 20 64 62 2d 66 6e 61 6d 65 20 22 2d 55 22 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e | -o".db-fname."-U".(expand-file-n |
| 196a0 | 61 6d 65 20 22 7e 22 29 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 | ame."~"))))))..;;;###autoload.(d |
| 196c0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 | efun.counsel-locate.(&optional.i |
| 196e0 | 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 43 61 6c 6c 20 61 20 5c 22 6c 6f 63 61 74 65 | nitial-input)..."Call.a.\"locate |
| 19700 | 5c 22 20 73 74 79 6c 65 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 0a 49 4e 49 54 49 41 4c 2d | \".style.shell.command..INITIAL- |
| 19720 | 49 4e 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 | INPUT.can.be.given.as.the.initia |
| 19740 | 6c 20 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | l.minibuffer.input."...(interact |
| 19760 | 69 76 65 29 0a 20 20 3b 3b 20 46 6f 72 20 60 6c 6f 63 61 74 65 2d 63 6f 6d 6d 61 6e 64 27 2c 20 | ive)...;;.For.`locate-command',. |
| 19780 | 77 68 69 63 68 20 69 73 20 68 6f 6e 6f 72 65 64 20 69 6e 20 73 6f 6d 65 20 6f 70 74 69 6f 6e 73 | which.is.honored.in.some.options |
| 197a0 | 20 6f 66 20 60 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 63 6d 64 27 2e 0a 20 20 28 72 65 71 | .of.`counsel-locate-cmd'....(req |
| 197c0 | 75 69 72 65 20 27 6c 6f 63 61 74 65 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 6c 6f 63 61 74 65 | uire.'locate)...(counsel--locate |
| 197e0 | 2d 75 70 64 61 74 65 64 62 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 4c 6f 63 61 74 65 3a 20 | -updatedb)...(ivy-read."Locate:. |
| 19800 | 22 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 | ".#'counsel-locate-function..... |
| 19820 | 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 | ........:initial-input.initial-i |
| 19840 | 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 | nput.............:dynamic-collec |
| 19860 | 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 | tion.t.............:history.'cou |
| 19880 | 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nsel-locate-history............. |
| 198a0 | 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 | :action.(lambda.(file).......... |
| 198c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 66 69 6c 65 0a 20 20 20 20 20 20 20 20 | .............(when.file......... |
| 198e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 | ................(with-ivy-window |
| 19900 | 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 28 66 69 6e 64 | ...........................(find |
| 19920 | 2d 66 69 6c 65 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 | -file........................... |
| 19940 | 20 28 63 6f 6e 63 61 74 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 65 66 61 75 6c 74 2d | .(concat.(file-remote-p.default- |
| 19960 | 64 69 72 65 63 74 6f 72 79 29 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | directory).file)))))............ |
| 19980 | 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 29 29 0a 0a 28 69 76 79 | .:caller.'counsel-locate))..(ivy |
| 199a0 | 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 0a 20 20 3a 75 6e | -configure.'counsel-locate...:un |
| 199c0 | 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 | wind-fn.#'counsel-delete-process |
| 199e0 | 0a 20 20 3a 65 78 69 74 2d 63 6f 64 65 73 20 27 28 31 20 22 4e 6f 74 68 69 6e 67 20 66 6f 75 6e | ...:exit-codes.'(1."Nothing.foun |
| 19a00 | 64 22 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 27 0a 28 64 65 | d"))..;;**.`counsel-tracker'.(de |
| 19a20 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e | fun.counsel-tracker-function.(in |
| 19a40 | 70 75 74 29 0a 20 20 22 43 61 6c 6c 20 74 68 65 20 5c 22 74 72 61 63 6b 65 72 5c 22 20 73 68 65 | put)..."Call.the.\"tracker\".she |
| 19a60 | 6c 6c 20 63 6f 6d 6d 61 6e 64 20 77 69 74 68 20 49 4e 50 55 54 2e 22 0a 20 20 28 6f 72 0a 20 20 | ll.command.with.INPUT."...(or... |
| 19a80 | 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 | .(ivy-more-chars)....(progn..... |
| 19aa0 | 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 28 | .(counsel--async-command.......( |
| 19ac0 | 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 22 74 72 61 63 6b 65 72 20 73 70 61 72 71 6c 20 2d 71 | format........"tracker.sparql.-q |
| 19ae0 | 20 5c 22 53 45 4c 45 43 54 20 3f 75 72 6c 20 57 48 45 52 45 20 7b 20 3f 73 20 61 20 6e 66 6f 3a | .\"SELECT.?url.WHERE.{.?s.a.nfo: |
| 19b00 | 46 69 6c 65 44 61 74 61 4f 62 6a 65 63 74 20 3b 20 6e 69 65 3a 75 72 6c 20 3f 75 72 6c 20 2e 20 | FileDataObject.;.nie:url.?url... |
| 19b20 | 46 49 4c 54 45 52 20 28 53 54 52 53 54 41 52 54 53 20 28 3f 75 72 6c 2c 20 27 66 69 6c 65 3a 2f | FILTER.(STRSTARTS.(?url,.'file:/ |
| 19b40 | 2f 24 48 4f 4d 45 2f 27 29 29 20 2e 20 46 49 4c 54 45 52 20 72 65 67 65 78 28 3f 75 72 6c 2c 20 | /$HOME/'))...FILTER.regex(?url,. |
| 19b60 | 27 25 73 27 29 20 7d 5c 22 20 7c 20 74 61 69 6c 20 2d 6e 20 2b 32 20 7c 20 68 65 61 64 20 2d 6e | '%s').}\".|.tail.-n.+2.|.head.-n |
| 19b80 | 20 2d 31 22 0a 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 | .-1"........(counsel--elisp-to-p |
| 19ba0 | 63 72 65 20 28 66 75 6e 63 61 6c 6c 20 69 76 79 2d 2d 72 65 67 65 78 2d 66 75 6e 63 74 69 6f 6e | cre.(funcall.ivy--regex-function |
| 19bc0 | 20 69 6e 70 75 74 29 29 29 29 0a 20 20 20 20 20 27 28 22 22 20 22 77 6f 72 6b 69 6e 67 2e 2e 2e | .input))))......'(""."working... |
| 19be0 | 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 2d 74 72 | "))))..(defun.counsel-tracker-tr |
| 19c00 | 61 6e 73 66 6f 72 6d 65 72 20 28 73 74 72 29 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 | ansformer.(str)...(if.(string-ma |
| 19c20 | 74 63 68 20 22 66 69 6c 65 3a 2f 2f 2f 22 20 73 74 72 29 0a 20 20 20 20 20 20 28 64 65 63 6f 64 | tch."file:///".str).......(decod |
| 19c40 | 65 2d 63 6f 64 69 6e 67 2d 73 74 72 69 6e 67 20 28 75 72 6c 2d 75 6e 68 65 78 2d 73 74 72 69 6e | e-coding-string.(url-unhex-strin |
| 19c60 | 67 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 20 39 29 29 20 27 75 74 66 2d 38 29 0a 20 20 20 | g.(substring.str.9)).'utf-8).... |
| 19c80 | 20 73 74 72 29 29 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 | .str))..;;;###autoload.(defun.co |
| 19ca0 | 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | unsel-tracker.()...(interactive) |
| 19cc0 | 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 54 72 61 63 6b 65 72 3a 20 22 20 27 63 6f 75 6e 73 65 | ...(ivy-read."Tracker:.".'counse |
| 19ce0 | 6c 2d 74 72 61 63 6b 65 72 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a | l-tracker-function.............: |
| 19d00 | 64 79 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 | dynamic-collection.t............ |
| 19d20 | 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 66 69 6e 64 2d 66 69 6c 65 20 | .:action.(lambda.(s).(find-file. |
| 19d40 | 28 63 6f 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 2d 74 72 61 6e 73 66 6f 72 6d 65 72 20 73 29 29 | (counsel-tracker-transformer.s)) |
| 19d60 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 74 | ).............:caller.'counsel-t |
| 19d80 | 72 61 63 6b 65 72 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 | racker))..(ivy-configure.'counse |
| 19da0 | 6c 2d 74 72 61 63 6b 65 72 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 | l-tracker...:display-transformer |
| 19dc0 | 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 74 72 61 63 6b 65 72 2d 74 72 61 6e 73 66 6f 72 6d 65 | -fn.#'counsel-tracker-transforme |
| 19de0 | 72 0a 20 20 3a 75 6e 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d | r...:unwind-fn.#'counsel-delete- |
| 19e00 | 70 72 6f 63 65 73 73 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 7a 66 27 0a 28 64 65 | process)..;;**.`counsel-fzf'.(de |
| 19e20 | 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 63 6d 64 20 22 66 7a 66 20 2d 66 20 5c 22 25 | fvar.counsel-fzf-cmd."fzf.-f.\"% |
| 19e40 | 73 5c 22 22 0a 20 20 22 43 6f 6d 6d 61 6e 64 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 66 7a 66 | s\""..."Command.for.`counsel-fzf |
| 19e60 | 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 66 7a 66 2d 64 69 72 20 6e | '.")..(defvar.counsel--fzf-dir.n |
| 19e80 | 69 6c 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 62 61 73 65 20 66 7a 66 20 64 69 72 65 63 74 6f | il..."Store.the.base.fzf.directo |
| 19ea0 | 72 79 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 64 69 72 2d 66 | ry.")..(defvar.counsel-fzf-dir-f |
| 19ec0 | 75 6e 63 74 69 6f 6e 20 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 64 69 72 2d 66 75 6e 63 74 69 6f | unction.'counsel-fzf-dir-functio |
| 19ee0 | 6e 2d 70 72 6f 6a 65 63 74 69 6c 65 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 | n-projectile..."Function.that.re |
| 19f00 | 74 75 72 6e 73 20 61 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 66 7a 66 20 74 6f 20 75 73 65 | turns.a.directory.for.fzf.to.use |
| 19f20 | 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 64 69 72 2d 66 75 6e 63 | .")..(defun.counsel-fzf-dir-func |
| 19f40 | 74 69 6f 6e 2d 70 72 6f 6a 65 63 74 69 6c 65 20 28 29 0a 20 20 28 69 66 20 28 61 6e 64 0a 20 20 | tion-projectile.()...(if.(and... |
| 19f60 | 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 70 72 6f 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 | .....(fboundp.'projectile-projec |
| 19f80 | 74 2d 70 29 0a 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 70 72 6f 6a 65 63 74 69 6c 65 | t-p)........(fboundp.'projectile |
| 19fa0 | 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 28 70 72 6f 6a 65 63 74 69 6c | -project-root)........(projectil |
| 19fc0 | 65 2d 70 72 6f 6a 65 63 74 2d 70 29 29 0a 20 20 20 20 20 20 28 70 72 6f 6a 65 63 74 69 6c 65 2d | e-project-p)).......(projectile- |
| 19fe0 | 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 0a 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | project-root).....default-direct |
| 1a000 | 6f 72 79 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 66 75 6e 63 74 69 | ory))..(defun.counsel-fzf-functi |
| 1a020 | 6f 6e 20 28 73 74 72 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | on.(str)...(let.((default-direct |
| 1a040 | 6f 72 79 20 63 6f 75 6e 73 65 6c 2d 2d 66 7a 66 2d 64 69 72 29 29 0a 20 20 20 20 28 73 65 74 71 | ory.counsel--fzf-dir)).....(setq |
| 1a060 | 20 69 76 79 2d 2d 6f 6c 64 2d 72 65 20 28 69 76 79 2d 2d 72 65 67 65 78 2d 66 75 7a 7a 79 20 73 | .ivy--old-re.(ivy--regex-fuzzy.s |
| 1a080 | 74 72 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 | tr)).....(counsel--async-command |
| 1a0a0 | 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 63 6d 64 20 73 74 | ......(format.counsel-fzf-cmd.st |
| 1a0c0 | 72 29 29 29 0a 20 20 6e 69 6c 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 | r)))...nil)..;;;###autoload.(def |
| 1a0e0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 | un.counsel-fzf.(&optional.initia |
| 1a100 | 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 66 7a 66 2d 70 72 | l-input.initial-directory.fzf-pr |
| 1a120 | 6f 6d 70 74 29 0a 20 20 22 4f 70 65 6e 20 61 20 66 69 6c 65 20 75 73 69 6e 67 20 74 68 65 20 66 | ompt)..."Open.a.file.using.the.f |
| 1a140 | 7a 66 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 | zf.shell.command..INITIAL-INPUT. |
| 1a160 | 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d 69 6e 69 | can.be.given.as.the.initial.mini |
| 1a180 | 62 75 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 52 45 43 54 4f 52 59 2c | buffer.input..INITIAL-DIRECTORY, |
| 1a1a0 | 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 72 6f 6f 74 | .if.non-nil,.is.used.as.the.root |
| 1a1c0 | 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 0a 46 5a 46 2d 50 52 4f 4d 50 | .directory.for.search..FZF-PROMP |
| 1a1e0 | 54 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 70 61 73 73 65 64 20 61 73 20 60 69 76 79 | T,.if.non-nil,.is.passed.as.`ivy |
| 1a200 | 2d 72 65 61 64 27 20 70 72 6f 6d 70 74 20 61 72 67 75 6d 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 | -read'.prompt.argument."...(inte |
| 1a220 | 72 61 63 74 69 76 65 0a 20 20 20 28 6c 65 74 20 28 28 66 7a 66 2d 62 61 73 65 6e 61 6d 65 20 28 | ractive....(let.((fzf-basename.( |
| 1a240 | 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 63 6d | car.(split-string.counsel-fzf-cm |
| 1a260 | 64 29 29 29 29 0a 20 20 20 20 20 28 6c 69 73 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | d))))......(list.nil............ |
| 1a280 | 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 | (when.current-prefix-arg........ |
| 1a2a0 | 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 | ......(counsel-read-directory-na |
| 1a2c0 | 6d 65 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | me.(concat...................... |
| 1a2e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 7a 66 2d 62 61 73 65 6e 61 | ......................fzf-basena |
| 1a300 | 6d 65 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 | me.............................. |
| 1a320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 69 6e 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 | ..............".in.directory:.") |
| 1a340 | 29 29 29 29 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d | )))))...(counsel-require-program |
| 1a360 | 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 63 6d 64 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 | .counsel-fzf-cmd)...(setq.counse |
| 1a380 | 6c 2d 2d 66 7a 66 2d 64 69 72 0a 20 20 20 20 20 20 20 20 28 6f 72 20 69 6e 69 74 69 61 6c 2d 64 | l--fzf-dir.........(or.initial-d |
| 1a3a0 | 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f | irectory.............(funcall.co |
| 1a3c0 | 75 6e 73 65 6c 2d 66 7a 66 2d 64 69 72 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 28 69 76 79 | unsel-fzf-dir-function)))...(ivy |
| 1a3e0 | 2d 72 65 61 64 20 28 6f 72 20 66 7a 66 2d 70 72 6f 6d 70 74 20 22 66 7a 66 3a 20 22 29 0a 20 20 | -read.(or.fzf-prompt."fzf:.")... |
| 1a400 | 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 66 75 6e 63 74 69 6f 6e | ..........#'counsel-fzf-function |
| 1a420 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 | .............:initial-input.init |
| 1a440 | 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 2d 62 75 69 6c 64 65 | ial-input.............:re-builde |
| 1a460 | 72 20 23 27 69 76 79 2d 2d 72 65 67 65 78 2d 66 75 7a 7a 79 0a 20 20 20 20 20 20 20 20 20 20 20 | r.#'ivy--regex-fuzzy............ |
| 1a480 | 20 3a 64 79 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 | .:dynamic-collection.t.......... |
| 1a4a0 | 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 61 63 74 69 6f 6e 0a | ...:action.#'counsel-fzf-action. |
| 1a4c0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 | ............:caller.'counsel-fzf |
| 1a4e0 | 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 0a | ))..(ivy-configure.'counsel-fzf. |
| 1a500 | 20 20 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 6f 63 63 75 72 0a 20 20 3a | ..:occur.#'counsel-fzf-occur...: |
| 1a520 | 75 6e 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 | unwind-fn.#'counsel-delete-proce |
| 1a540 | 73 73 0a 20 20 3a 65 78 69 74 2d 63 6f 64 65 73 20 27 28 31 20 22 4e 6f 74 68 69 6e 67 20 66 6f | ss...:exit-codes.'(1."Nothing.fo |
| 1a560 | 75 6e 64 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 61 63 74 69 6f | und"))..(defun.counsel-fzf-actio |
| 1a580 | 6e 20 28 78 29 0a 20 20 22 46 69 6e 64 20 66 69 6c 65 20 58 20 69 6e 20 63 75 72 72 65 6e 74 20 | n.(x)..."Find.file.X.in.current. |
| 1a5a0 | 66 7a 66 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 | fzf.directory."...(with-ivy-wind |
| 1a5c0 | 6f 77 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 | ow.....(let.((default-directory. |
| 1a5e0 | 63 6f 75 6e 73 65 6c 2d 2d 66 7a 66 2d 64 69 72 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 | counsel--fzf-dir)).......(find-f |
| 1a600 | 69 6c 65 20 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 7a 66 2d 6f 63 | ile.x))))..(defun.counsel-fzf-oc |
| 1a620 | 63 75 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 22 4f 63 63 75 72 20 | cur.(&optional._cands)..."Occur. |
| 1a640 | 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 66 7a 66 27 20 75 73 69 6e 67 | function.for.`counsel-fzf'.using |
| 1a660 | 20 60 63 6f 75 6e 73 65 6c 2d 63 6d 64 2d 74 6f 2d 64 69 72 65 64 27 2e 22 0a 20 20 28 63 64 20 | .`counsel-cmd-to-dired'."...(cd. |
| 1a680 | 63 6f 75 6e 73 65 6c 2d 2d 66 7a 66 2d 64 69 72 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6d 64 | counsel--fzf-dir)...(counsel-cmd |
| 1a6a0 | 2d 74 6f 2d 64 69 72 65 64 0a 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 65 78 70 61 6e 64 2d 6c 73 | -to-dired....(counsel--expand-ls |
| 1a6c0 | 0a 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 22 25 73 20 2d 2d 70 72 69 6e 74 30 20 7c | .....(format......"%s.--print0.| |
| 1a6e0 | 20 78 61 72 67 73 20 2d 30 20 6c 73 22 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 6e 73 | .xargs.-0.ls"......(format.couns |
| 1a700 | 65 6c 2d 66 7a 66 2d 63 6d 64 20 69 76 79 2d 74 65 78 74 29 29 29 29 29 0a 0a 28 69 76 79 2d 73 | el-fzf-cmd.ivy-text)))))..(ivy-s |
| 1a720 | 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 66 7a 66 0a 20 27 28 28 22 78 22 | et-actions..'counsel-fzf..'(("x" |
| 1a740 | 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 69 6f 6e 2d 65 78 74 65 72 6e 20 22 78 | .counsel-locate-action-extern."x |
| 1a760 | 64 67 2d 6f 70 65 6e 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 | dg-open")....("d".counsel-locate |
| 1a780 | 2d 61 63 74 69 6f 6e 2d 64 69 72 65 64 20 22 64 69 72 65 64 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 | -action-dired."dired")))..;;**.` |
| 1a7a0 | 63 6f 75 6e 73 65 6c 2d 64 70 6b 67 27 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 | counsel-dpkg'.;;;###autoload.(de |
| 1a7c0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 70 6b 67 20 28 29 0a 20 20 22 43 61 6c 6c 20 74 68 65 20 | fun.counsel-dpkg.()..."Call.the. |
| 1a7e0 | 5c 22 64 70 6b 67 5c 22 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 | \"dpkg\".shell.command."...(inte |
| 1a800 | 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 | ractive)...(counsel-require-prog |
| 1a820 | 72 61 6d 20 22 64 70 6b 67 22 29 0a 20 20 28 6c 65 74 20 28 28 63 61 6e 64 73 20 28 6d 61 70 63 | ram."dpkg")...(let.((cands.(mapc |
| 1a840 | 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 | ar.................(lambda.(x).. |
| 1a860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 79 20 28 73 70 6c 69 74 | .................(let.((y.(split |
| 1a880 | 2d 73 74 72 69 6e 67 20 78 20 22 20 20 2b 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | -string.x."..+"))).............. |
| 1a8a0 | 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 66 6f 72 6d 61 74 20 22 25 2d 34 30 73 20 20 20 25 73 | .......(cons.(format."%-40s...%s |
| 1a8c0 | 22 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 | "............................... |
| 1a8e0 | 20 20 20 20 28 69 76 79 2d 2d 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 | ....(ivy--truncate-string....... |
| 1a900 | 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 6e 74 | .............................(nt |
| 1a920 | 68 20 31 20 79 29 20 34 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | h.1.y).40)...................... |
| 1a940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 34 20 79 29 29 0a 20 20 20 20 20 20 20 20 | .............(nth.4.y))......... |
| 1a960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 | ..................(mapconcat.#'i |
| 1a980 | 64 65 6e 74 69 74 79 20 79 20 22 20 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dentity.y."."))))............... |
| 1a9a0 | 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(split-string................. |
| 1a9c0 | 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 22 64 70 6b 67 20 | .(shell-command-to-string."dpkg. |
| 1a9e0 | 2d 6c 20 7c 20 74 61 69 6c 20 2d 6e 2b 36 22 29 20 22 5c 6e 22 20 74 29 29 29 29 0a 20 20 20 20 | -l.|.tail.-n+6")."\n".t))))..... |
| 1aa00 | 28 69 76 79 2d 72 65 61 64 20 22 64 70 6b 67 3a 20 22 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 | (ivy-read."dpkg:.".cands........ |
| 1aa20 | 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 | .......:action.(lambda.(x)...... |
| 1aa40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 63 64 72 | ...................(message.(cdr |
| 1aa60 | 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 | .x)))...............:caller.'cou |
| 1aa80 | 6e 73 65 6c 2d 64 70 6b 67 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 70 6d 27 | nsel-dpkg)))..;;**.`counsel-rpm' |
| 1aaa0 | 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 75 6e 73 65 6c 2d 72 | .;;;###autoload.(defun.counsel-r |
| 1aac0 | 70 6d 20 28 29 0a 20 20 22 43 61 6c 6c 20 74 68 65 20 5c 22 72 70 6d 5c 22 20 73 68 65 6c 6c 20 | pm.()..."Call.the.\"rpm\".shell. |
| 1aae0 | 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f 75 | command."...(interactive)...(cou |
| 1ab00 | 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 22 72 70 6d 22 29 0a 20 20 28 6c | nsel-require-program."rpm")...(l |
| 1ab20 | 65 74 20 28 28 63 61 6e 64 73 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | et.((cands.(mapcar.............. |
| 1ab40 | 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(lambda.(x).................. |
| 1ab60 | 20 28 6c 65 74 20 28 28 79 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 78 20 22 7c 22 29 29 29 | .(let.((y.(split-string.x."|"))) |
| 1ab80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 66 6f 72 6d | .....................(cons.(form |
| 1aba0 | 61 74 20 22 25 2d 34 30 73 20 20 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | at."%-40s...%s"................. |
| 1abc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 74 72 75 6e 63 61 74 65 | ..................(ivy--truncate |
| 1abe0 | 2d 73 74 72 69 6e 67 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 | -string......................... |
| 1ac00 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 30 20 79 29 20 34 30 29 0a 20 20 20 20 20 20 20 | ...........(nth.0.y).40)........ |
| 1ac20 | 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 6e 74 68 20 | ...........................(nth. |
| 1ac40 | 31 20 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 20 20 20 | 1.y))........................... |
| 1ac60 | 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 79 20 22 20 22 29 29 29 29 0a | (mapconcat.#'identity.y.".")))). |
| 1ac80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 | ................(split-string... |
| 1aca0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f | ...............(shell-command-to |
| 1acc0 | 2d 73 74 72 69 6e 67 20 22 72 70 6d 20 2d 71 61 20 2d 2d 71 66 20 5c 22 25 7b 4e 41 4d 45 7d 7c | -string."rpm.-qa.--qf.\"%{NAME}| |
| 1ace0 | 25 7b 53 55 4d 4d 41 52 59 7d 5c 5c 6e 5c 22 22 29 20 22 5c 6e 22 20 74 29 29 29 29 0a 20 20 20 | %{SUMMARY}\\n\"")."\n".t)))).... |
| 1ad00 | 20 28 69 76 79 2d 72 65 61 64 20 22 72 70 6d 3a 20 22 20 63 61 6e 64 73 0a 20 20 20 20 20 20 20 | .(ivy-read."rpm:.".cands........ |
| 1ad20 | 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 | .......:action.(lambda.(x)...... |
| 1ad40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 63 64 72 | ...................(message.(cdr |
| 1ad60 | 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 | .x)))...............:caller.'cou |
| 1ad80 | 6e 73 65 6c 2d 72 70 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e | nsel-rpm)))..(defun.counsel--fin |
| 1ada0 | 64 2d 72 65 74 75 72 6e 2d 6c 69 73 74 20 28 61 72 67 73 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 | d-return-list.(args)...(unless.( |
| 1adc0 | 6c 69 73 74 70 20 61 72 67 73 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 0a 20 20 20 20 | listp.args).....(user-error..... |
| 1ade0 | 20 22 60 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 2d 61 72 67 73 27 20 69 73 20 61 20 | ."`counsel-file-jump-args'.is.a. |
| 1ae00 | 6c 69 73 74 20 6e 6f 77 3b 20 70 6c 65 61 73 65 20 63 75 73 74 6f 6d 69 7a 65 20 61 63 63 6f 72 | list.now;.please.customize.accor |
| 1ae20 | 64 69 6e 67 6c 79 22 29 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 61 6c 6c 0a 20 20 20 28 63 | dingly"))...(counsel--call....(c |
| 1ae40 | 6f 6e 73 20 66 69 6e 64 2d 70 72 6f 67 72 61 6d 20 61 72 67 73 29 0a 20 20 20 28 6c 61 6d 62 64 | ons.find-program.args)....(lambd |
| 1ae60 | 61 20 28 29 0a 20 20 20 20 20 28 6c 65 74 20 28 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 28 67 | a.()......(let.(files)........(g |
| 1ae80 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 28 77 68 | oto-char.(point-min))........(wh |
| 1aea0 | 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 | ile.(<.(point).(point-max))..... |
| 1aec0 | 20 20 20 20 20 28 77 68 65 6e 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 5c 5c 2e 2f 22 29 0a 20 | .....(when.(looking-at."\\./").. |
| 1aee0 | 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 65 6e 64 20 | ..........(goto-char.(match-end. |
| 1af00 | 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 62 75 66 66 65 72 2d 73 75 62 73 | 0)))..........(push.(buffer-subs |
| 1af20 | 74 72 69 6e 67 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e | tring.(point).(line-end-position |
| 1af40 | 29 29 20 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 | )).files)..........(beginning-of |
| 1af60 | 2d 6c 69 6e 65 20 32 29 29 0a 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 66 69 6c 65 73 | -line.2))........(nreverse.files |
| 1af80 | 29 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a | )))))..(defcustom.counsel-file-j |
| 1afa0 | 75 6d 70 2d 61 72 67 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 2e 20 2d 6e 61 6d 65 20 | ump-args.(split-string."..-name. |
| 1afc0 | 2e 67 69 74 20 2d 70 72 75 6e 65 20 2d 6f 20 2d 74 79 70 65 20 66 20 2d 70 72 69 6e 74 22 29 0a | .git.-prune.-o.-type.f.-print"). |
| 1afe0 | 20 20 22 41 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 74 68 65 20 60 66 69 6e 64 2d 63 6f 6d 6d 61 | .."Arguments.for.the.`find-comma |
| 1b000 | 6e 64 27 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d | nd'.when.using.`counsel-file-jum |
| 1b020 | 70 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 29 0a 0a | p'."...:type.'(repeat.string)).. |
| 1b040 | 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 27 0a 28 64 65 66 76 61 72 | ;;**.`counsel-file-jump'.(defvar |
| 1b060 | 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 | .counsel-file-jump-map...(let.(( |
| 1b080 | 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 | map.(make-sparse-keymap))).....( |
| 1b0a0 | 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 60 22 29 20 23 27 63 6f 75 6e 73 | define-key.map.(kbd."`").#'couns |
| 1b0c0 | 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 66 72 6f 6d 2d 6a 75 6d 70 29 0a 20 20 20 20 6d 61 70 29 | el-find-file-from-jump).....map) |
| 1b0e0 | 0a 20 20 22 4b 65 79 20 62 69 6e 64 69 6e 67 73 20 74 6f 20 62 65 20 75 73 65 64 20 77 68 65 6e | ..."Key.bindings.to.be.used.when |
| 1b100 | 20 69 6e 20 61 20 66 69 6c 65 2d 6a 75 6d 70 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 29 0a 0a 28 | .in.a.file-jump.minibuffer.")..( |
| 1b120 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 66 72 6f 6d 2d 6a 75 6d | defun.counsel-find-file-from-jum |
| 1b140 | 70 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d | p.()..."Switch.to.`counsel-find- |
| 1b160 | 66 69 6c 65 27 20 66 72 6f 6d 20 60 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 27 2e 22 | file'.from.`counsel-file-jump'." |
| 1b180 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 71 75 69 74 2d 61 6e 64 | ...(interactive)...(ivy-quit-and |
| 1b1a0 | 2d 72 75 6e 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 20 69 76 79 2d | -run.....(counsel-find-file.ivy- |
| 1b1c0 | 74 65 78 74 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 | text.(ivy-state-directory.ivy-la |
| 1b1e0 | 73 74 29 29 29 29 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 | st))))..;;;###autoload.(defun.co |
| 1b200 | 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 | unsel-file-jump.(&optional.initi |
| 1b220 | 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 22 4a | al-input.initial-directory)..."J |
| 1b240 | 75 6d 70 20 74 6f 20 61 20 66 69 6c 65 20 62 65 6c 6f 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 | ump.to.a.file.below.the.current. |
| 1b260 | 64 69 72 65 63 74 6f 72 79 2e 0a 4c 69 73 74 20 61 6c 6c 20 66 69 6c 65 73 20 77 69 74 68 69 6e | directory..List.all.files.within |
| 1b280 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 6f 72 20 61 6e 79 20 6f 66 | .the.current.directory.or.any.of |
| 1b2a0 | 20 69 74 73 20 73 75 62 2d 64 69 72 65 63 74 6f 72 69 65 73 2e 0a 49 4e 49 54 49 41 4c 2d 49 4e | .its.sub-directories..INITIAL-IN |
| 1b2c0 | 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 | PUT.can.be.given.as.the.initial. |
| 1b2e0 | 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 52 45 43 54 | minibuffer.input..INITIAL-DIRECT |
| 1b300 | 4f 52 59 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 | ORY,.if.non-nil,.is.used.as.the. |
| 1b320 | 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 22 0a 20 20 28 69 | root.directory.for.search."...(i |
| 1b340 | 6e 74 65 72 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 | nteractive....(list.nil......... |
| 1b360 | 20 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 | .(when.current-prefix-arg....... |
| 1b380 | 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d | .....(counsel-read-directory-nam |
| 1b3a0 | 65 20 22 46 72 6f 6d 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 29 29 29 0a 20 20 28 63 6f 75 6e | e."From.directory:."))))...(coun |
| 1b3c0 | 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 66 69 6e 64 2d 70 72 6f 67 72 61 6d | sel-require-program.find-program |
| 1b3e0 | 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6f 72 | )...(let.((default-directory.(or |
| 1b400 | 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | .initial-directory.default-direc |
| 1b420 | 74 6f 72 79 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 69 6e 64 20 66 69 6c 65 | tory))).....(ivy-read."Find.file |
| 1b440 | 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 | :."...............(counsel--find |
| 1b460 | 2d 72 65 74 75 72 6e 2d 6c 69 73 74 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 2d 61 | -return-list.counsel-file-jump-a |
| 1b480 | 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6d 61 74 63 68 65 72 20 23 27 63 6f | rgs)...............:matcher.#'co |
| 1b4a0 | 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 74 63 68 65 72 0a 20 20 20 20 20 20 20 | unsel--find-file-matcher........ |
| 1b4c0 | 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e | .......:initial-input.initial-in |
| 1b4e0 | 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 66 69 6e 64 | put...............:action.#'find |
| 1b500 | 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 | -file...............:preselect.( |
| 1b520 | 63 6f 75 6e 73 65 6c 2d 2d 70 72 65 73 65 6c 65 63 74 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 | counsel--preselect-file)........ |
| 1b540 | 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 27 63 6f 6e 66 69 72 6d 2d 61 | .......:require-match.'confirm-a |
| 1b560 | 66 74 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 | fter-completion...............:h |
| 1b580 | 69 73 74 6f 72 79 20 27 66 69 6c 65 2d 6e 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 | istory.'file-name-history....... |
| 1b5a0 | 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d | ........:keymap.counsel-file-jum |
| 1b5c0 | 70 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 | p-map...............:caller.'cou |
| 1b5e0 | 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 | nsel-file-jump)))..(ivy-set-acti |
| 1b600 | 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 6a 75 6d 70 0a 20 60 28 28 22 64 22 20 | ons..'counsel-file-jump..`(("d". |
| 1b620 | 2c 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 20 28 | ,(lambda.(x)............(dired.( |
| 1b640 | 6f 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 78 29 20 64 65 66 61 75 | or.(file-name-directory.x).defau |
| 1b660 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 22 6f 70 65 6e 20 69 6e 20 64 69 72 | lt-directory)))....."open.in.dir |
| 1b680 | 65 64 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 | ed")))..(defcustom.counsel-dired |
| 1b6a0 | 2d 6a 75 6d 70 2d 61 72 67 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 22 2e 20 2d 6e 61 6d | -jump-args.(split-string."..-nam |
| 1b6c0 | 65 20 2e 67 69 74 20 2d 70 72 75 6e 65 20 2d 6f 20 2d 74 79 70 65 20 64 20 2d 70 72 69 6e 74 22 | e..git.-prune.-o.-type.d.-print" |
| 1b6e0 | 29 0a 20 20 22 41 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 74 68 65 20 60 66 69 6e 64 2d 63 6f 6d | )..."Arguments.for.the.`find-com |
| 1b700 | 6d 61 6e 64 27 20 77 68 65 6e 20 75 73 69 6e 67 20 60 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 2d | mand'.when.using.`counsel-dired- |
| 1b720 | 6a 75 6d 70 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 | jump'."...:type.'(repeat.string) |
| 1b740 | 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 2d 6a 75 6d 70 27 0a 3b 3b 3b | )..;;**.`counsel-dired-jump'.;;; |
| 1b760 | 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 | ###autoload.(defun.counsel-dired |
| 1b780 | 2d 6a 75 6d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 | -jump.(&optional.initial-input.i |
| 1b7a0 | 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 22 4a 75 6d 70 20 74 6f 20 61 20 64 | nitial-directory)..."Jump.to.a.d |
| 1b7c0 | 69 72 65 63 74 6f 72 79 20 28 73 65 65 20 60 64 69 72 65 64 2d 6a 75 6d 70 27 29 20 62 65 6c 6f | irectory.(see.`dired-jump').belo |
| 1b7e0 | 77 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 4c 69 73 74 20 61 6c | w.the.current.directory..List.al |
| 1b800 | 6c 20 73 75 62 2d 64 69 72 65 63 74 6f 72 69 65 73 20 77 69 74 68 69 6e 20 74 68 65 20 63 75 72 | l.sub-directories.within.the.cur |
| 1b820 | 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 63 61 | rent.directory..INITIAL-INPUT.ca |
| 1b840 | 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d 69 6e 69 62 75 | n.be.given.as.the.initial.minibu |
| 1b860 | 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 52 45 43 54 4f 52 59 2c 20 69 | ffer.input..INITIAL-DIRECTORY,.i |
| 1b880 | 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 72 6f 6f 74 20 64 | f.non-nil,.is.used.as.the.root.d |
| 1b8a0 | 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | irectory.for.search."...(interac |
| 1b8c0 | 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 28 77 68 65 6e | tive....(list.nil..........(when |
| 1b8e0 | 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 28 | .current-prefix-arg............( |
| 1b900 | 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 46 72 6f | counsel-read-directory-name."Fro |
| 1b920 | 6d 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 29 29 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 | m.directory:."))))...(counsel-re |
| 1b940 | 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 66 69 6e 64 2d 70 72 6f 67 72 61 6d 29 0a 20 20 28 6c | quire-program.find-program)...(l |
| 1b960 | 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6f 72 20 69 6e 69 74 69 | et.((default-directory.(or.initi |
| 1b980 | 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 | al-directory.default-directory)) |
| 1b9a0 | 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 69 6e 64 20 64 69 72 65 63 74 6f 72 79 3a | ).....(ivy-read."Find.directory: |
| 1b9c0 | 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 0a 20 20 20 20 20 20 20 20 20 20 | ."...............(cdr........... |
| 1b9e0 | 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 72 65 74 75 72 6e 2d 6c 69 73 74 20 | .....(counsel--find-return-list. |
| 1ba00 | 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 2d 6a 75 6d 70 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 | counsel-dired-jump-args))....... |
| 1ba20 | 20 20 20 20 20 20 20 20 3a 6d 61 74 63 68 65 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 | ........:matcher.#'counsel--find |
| 1ba40 | 2d 66 69 6c 65 2d 6d 61 74 63 68 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 | -file-matcher...............:ini |
| 1ba60 | 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 | tial-input.initial-input........ |
| 1ba80 | 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 64 29 20 28 64 69 72 65 | .......:action.(lambda.(d).(dire |
| 1baa0 | 64 2d 6a 75 6d 70 20 6e 69 6c 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 29 29 | d-jump.nil.(expand-file-name.d)) |
| 1bac0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 66 69 6c 65 2d 6e | )...............:history.'file-n |
| 1bae0 | 61 6d 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 | ame-history...............:keyma |
| 1bb00 | 70 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 | p.counsel-find-file-map......... |
| 1bb20 | 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 64 69 72 65 64 2d 6a 75 6d | ......:caller.'counsel-dired-jum |
| 1bb40 | 70 29 29 29 0a 0a 3b 3b 2a 20 47 72 65 70 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 61 67 27 | p)))..;;*.Grep.;;**.`counsel-ag' |
| 1bb60 | 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 | .(defvar.counsel-ag-map...(let.( |
| 1bb80 | 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 | (map.(make-sparse-keymap)))..... |
| 1bba0 | 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6c 22 29 20 23 27 69 76 | (define-key.map.(kbd."C-l").#'iv |
| 1bbc0 | 79 2d 63 61 6c 6c 2d 61 6e 64 2d 72 65 63 65 6e 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 | y-call-and-recenter).....(define |
| 1bbe0 | 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 71 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 67 | -key.map.(kbd."M-q").#'counsel-g |
| 1bc00 | 69 74 2d 67 72 65 70 2d 71 75 65 72 79 2d 72 65 70 6c 61 63 65 29 0a 20 20 20 20 28 64 65 66 69 | it-grep-query-replace).....(defi |
| 1bc20 | 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 27 22 29 20 23 27 73 77 69 70 65 72 2d | ne-key.map.(kbd."C-'").#'swiper- |
| 1bc40 | 61 76 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 | avy).....(define-key.map.(kbd."C |
| 1bc60 | 2d 78 20 43 2d 64 22 29 20 23 27 63 6f 75 6e 73 65 6c 2d 63 64 29 0a 20 20 20 20 6d 61 70 29 29 | -x.C-d").#'counsel-cd).....map)) |
| 1bc80 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d | ..(defcustom.counsel-ag-base-com |
| 1bca0 | 6d 61 6e 64 20 28 6c 69 73 74 20 22 61 67 22 20 22 2d 2d 76 69 6d 67 72 65 70 22 20 22 25 73 22 | mand.(list."ag"."--vimgrep"."%s" |
| 1bcc0 | 29 0a 20 20 22 54 65 6d 70 6c 61 74 65 20 66 6f 72 20 64 65 66 61 75 6c 74 20 60 63 6f 75 6e 73 | )..."Template.for.default.`couns |
| 1bce0 | 65 6c 2d 61 67 27 20 63 6f 6d 6d 61 6e 64 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 | el-ag'.command..The.value.should |
| 1bd00 | 20 62 65 20 65 69 74 68 65 72 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 2c 20 73 74 | .be.either.a.list.of.strings,.st |
| 1bd20 | 61 72 74 69 6e 67 20 77 69 74 68 20 74 68 65 0a 60 61 67 27 20 65 78 65 63 75 74 61 62 6c 65 20 | arting.with.the.`ag'.executable. |
| 1bd40 | 66 69 6c 65 20 6e 61 6d 65 20 61 6e 64 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 69 74 73 20 61 72 | file.name.and.followed.by.its.ar |
| 1bd60 | 67 75 6d 65 6e 74 73 2c 20 6f 72 20 61 0a 73 69 6e 67 6c 65 20 73 74 72 69 6e 67 20 64 65 73 63 | guments,.or.a.single.string.desc |
| 1bd80 | 72 69 62 69 6e 67 20 61 20 66 75 6c 6c 20 60 61 67 27 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 | ribing.a.full.`ag'.shell.command |
| 1bda0 | 2e 0a 0a 49 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 69 73 20 73 70 65 63 69 66 69 65 64 20 61 | ...If.the.command.is.specified.a |
| 1bdc0 | 73 20 61 20 6c 69 73 74 2c 20 60 61 67 27 20 69 73 20 63 61 6c 6c 65 64 20 64 69 72 65 63 74 6c | s.a.list,.`ag'.is.called.directl |
| 1bde0 | 79 0a 75 73 69 6e 67 20 60 70 72 6f 63 65 73 73 2d 66 69 6c 65 27 3b 20 6f 74 68 65 72 77 69 73 | y.using.`process-file';.otherwis |
| 1be00 | 65 2c 20 69 74 20 69 73 20 63 61 6c 6c 65 64 20 61 73 20 61 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 | e,.it.is.called.as.a.shell.comma |
| 1be20 | 6e 64 2e 0a 43 61 6c 6c 69 6e 67 20 60 61 67 27 20 64 69 72 65 63 74 6c 79 20 61 76 6f 69 64 73 | nd..Calling.`ag'.directly.avoids |
| 1be40 | 20 76 61 72 69 6f 75 73 20 73 68 65 6c 6c 20 71 75 6f 74 69 6e 67 20 70 69 74 66 61 6c 6c 73 2c | .various.shell.quoting.pitfalls, |
| 1be60 | 20 73 6f 0a 69 74 20 69 73 20 67 65 6e 65 72 61 6c 6c 79 20 72 65 63 6f 6d 6d 65 6e 64 65 64 2e | .so.it.is.generally.recommended. |
| 1be80 | 0a 0a 49 66 20 74 68 65 20 73 74 72 69 6e 67 20 5c 22 25 73 5c 22 20 61 70 70 65 61 72 73 20 61 | ..If.the.string.\"%s\".appears.a |
| 1bea0 | 73 20 61 6e 20 65 6c 65 6d 65 6e 74 20 6f 66 20 74 68 65 20 6c 69 73 74 2c 20 6f 72 20 61 73 20 | s.an.element.of.the.list,.or.as. |
| 1bec0 | 61 0a 73 75 62 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 73 74 72 69 6e | a.substring.of.the.command.strin |
| 1bee0 | 67 2c 20 69 74 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 61 6e 79 20 6f 70 74 69 6f 6e 61 | g,.it.is.replaced.by.any.optiona |
| 1bf00 | 6c 0a 60 61 67 27 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 74 68 65 | l.`ag'.arguments.followed.by.the |
| 1bf20 | 20 73 65 61 72 63 68 20 72 65 67 65 78 70 20 73 70 65 63 69 66 69 65 64 20 64 75 72 69 6e 67 20 | .search.regexp.specified.during. |
| 1bf40 | 74 68 65 0a 60 63 6f 75 6e 73 65 6c 2d 61 67 27 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 3a 70 61 | the.`counsel-ag'.session."...:pa |
| 1bf60 | 63 6b 61 67 65 2d 76 65 72 73 69 6f 6e 20 27 28 63 6f 75 6e 73 65 6c 20 2e 20 22 30 2e 31 34 2e | ckage-version.'(counsel..."0.14. |
| 1bf80 | 30 22 29 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 72 65 70 65 61 74 20 3a 74 61 | 0")...:type.'(choice.(repeat.:ta |
| 1bfa0 | 67 20 22 43 6f 6d 6d 61 6e 64 20 6c 69 73 74 20 74 6f 20 63 61 6c 6c 20 64 69 72 65 63 74 6c 79 | g."Command.list.to.call.directly |
| 1bfc0 | 22 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 | ".string)..................(stri |
| 1bfe0 | 6e 67 20 3a 74 61 67 20 22 53 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 22 29 29 29 0a 0a 28 64 65 66 | ng.:tag."Shell.command")))..(def |
| 1c000 | 76 61 72 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 20 6e 69 6c 29 0a 0a 28 64 65 | var.counsel-ag-command.nil)..(de |
| 1c020 | 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 74 6f 6f 6c 2d 6c 6f 6f 6b 2d 61 72 6f | fvar.counsel--grep-tool-look-aro |
| 1c040 | 75 6e 64 20 74 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 72 65 67 65 78 2d 6c | und.t)..(defvar.counsel--regex-l |
| 1c060 | 6f 6f 6b 2d 61 72 6f 75 6e 64 20 6e 69 6c 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 63 6f 75 6e 73 | ook-around.nil)..(defconst.couns |
| 1c080 | 65 6c 2d 2d 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 2d 73 65 70 61 72 61 74 6f 72 20 22 20 2d 2d 20 | el--command-args-separator.".--. |
| 1c0a0 | 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 70 6c 69 74 2d 63 6f 6d 6d 61 6e | ")..(defun.counsel--split-comman |
| 1c0c0 | 64 2d 61 72 67 73 20 28 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 22 53 70 6c 69 74 20 41 52 47 55 | d-args.(arguments)..."Split.ARGU |
| 1c0e0 | 4d 45 4e 54 53 20 69 6e 74 6f 20 69 74 73 20 73 77 69 74 63 68 65 73 20 61 6e 64 20 73 65 61 72 | MENTS.into.its.switches.and.sear |
| 1c100 | 63 68 2d 74 65 72 6d 20 70 61 72 74 73 2e 0a 52 65 74 75 72 6e 20 70 61 69 72 20 6f 66 20 63 6f | ch-term.parts..Return.pair.of.co |
| 1c120 | 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 74 72 69 6e 67 73 20 28 53 57 49 54 43 48 45 53 20 2e 20 | rresponding.strings.(SWITCHES... |
| 1c140 | 53 45 41 52 43 48 2d 54 45 52 4d 29 2e 22 0a 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 | SEARCH-TERM)."...(if.(string-mat |
| 1c160 | 63 68 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 2d 73 65 70 61 72 61 74 | ch.counsel--command-args-separat |
| 1c180 | 6f 72 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 72 67 73 20 | or.arguments).......(let.((args. |
| 1c1a0 | 28 73 75 62 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 28 6d 61 74 63 68 2d 65 6e 64 20 | (substring.arguments.(match-end. |
| 1c1c0 | 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 74 65 72 6d 20 28 73 | 0))).............(search-term.(s |
| 1c1e0 | 75 62 73 74 72 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 20 30 20 28 6d 61 74 63 68 2d 62 65 67 69 | ubstring.arguments.0.(match-begi |
| 1c200 | 6e 6e 69 6e 67 20 30 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d | nning.0)))).........(if.(string- |
| 1c220 | 70 72 65 66 69 78 2d 70 20 22 2d 22 20 61 72 67 75 6d 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 | prefix-p."-".arguments)......... |
| 1c240 | 20 20 20 20 28 63 6f 6e 73 20 73 65 61 72 63 68 2d 74 65 72 6d 20 61 72 67 73 29 0a 20 20 20 20 | ....(cons.search-term.args)..... |
| 1c260 | 20 20 20 20 20 20 28 63 6f 6e 73 20 61 72 67 73 20 73 65 61 72 63 68 2d 74 65 72 6d 29 29 29 0a | ......(cons.args.search-term))). |
| 1c280 | 20 20 20 20 28 63 6f 6e 73 20 22 22 20 61 72 67 75 6d 65 6e 74 73 29 29 29 0a 0a 28 64 65 66 75 | ....(cons."".arguments)))..(defu |
| 1c2a0 | 6e 20 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 74 2d 61 67 2d 63 6f 6d 6d 61 6e 64 20 28 65 78 | n.counsel--format-ag-command.(ex |
| 1c2c0 | 74 72 61 2d 61 72 67 73 20 6e 65 65 64 6c 65 29 0a 20 20 22 43 6f 6e 73 74 72 75 63 74 20 61 20 | tra-args.needle)..."Construct.a. |
| 1c2e0 | 63 6f 6d 70 6c 65 74 65 20 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 27 20 61 73 | complete.`counsel-ag-command'.as |
| 1c300 | 20 61 20 73 74 72 69 6e 67 2e 0a 45 58 54 52 41 2d 41 52 47 53 20 69 73 20 61 20 73 74 72 69 6e | .a.string..EXTRA-ARGS.is.a.strin |
| 1c320 | 67 20 6f 66 20 74 68 65 20 61 64 64 69 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 73 2e 0a 4e | g.of.the.additional.arguments..N |
| 1c340 | 45 45 44 4c 45 20 69 73 20 74 68 65 20 73 65 61 72 63 68 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 | EEDLE.is.the.search.string."...( |
| 1c360 | 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 | counsel--format.counsel-ag-comma |
| 1c380 | 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 | nd....................(if.(listp |
| 1c3a0 | 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .counsel-ag-command)............ |
| 1c3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 20 | ............(if.(string-match.". |
| 1c3e0 | 5c 5c 28 2d 2d 5c 5c 29 20 22 20 65 78 74 72 61 2d 61 72 67 73 29 0a 20 20 20 20 20 20 20 20 20 | \\(--\\).".extra-args).......... |
| 1c400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d | ..................(counsel--form |
| 1c420 | 61 74 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 28 | at.............................( |
| 1c440 | 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 63 68 20 22 25 73 22 | split-string.(replace-match."%s" |
| 1c460 | 20 74 20 74 20 65 78 74 72 61 2d 61 72 67 73 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .t.t.extra-args.1))............. |
| 1c480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 65 64 6c 65 29 0a 20 20 20 20 20 20 20 20 | ................needle)......... |
| 1c4a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 6f 6e 63 20 28 73 70 6c 69 74 2d 73 | .................(nconc.(split-s |
| 1c4c0 | 74 72 69 6e 67 20 65 78 74 72 61 2d 61 72 67 73 29 20 6e 65 65 64 6c 65 29 29 0a 20 20 20 20 20 | tring.extra-args).needle))...... |
| 1c4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 | ................(if.(string-matc |
| 1c500 | 68 20 22 20 5c 5c 28 2d 2d 5c 5c 29 20 22 20 65 78 74 72 61 2d 61 72 67 73 29 0a 20 20 20 20 20 | h.".\\(--\\).".extra-args)...... |
| 1c520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d 61 74 | ....................(replace-mat |
| 1c540 | 63 68 20 6e 65 65 64 6c 65 20 74 20 74 20 65 78 74 72 61 2d 61 72 67 73 20 31 29 0a 20 20 20 20 | ch.needle.t.t.extra-args.1)..... |
| 1c560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 65 78 74 72 61 | ...................(concat.extra |
| 1c580 | 2d 61 72 67 73 20 22 20 22 20 6e 65 65 64 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | -args.".".needle)))))..(defun.co |
| 1c5a0 | 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 72 65 67 65 78 20 28 73 74 72 29 0a 20 20 28 63 6f 75 6e 73 | unsel--grep-regex.(str)...(couns |
| 1c5c0 | 65 6c 2d 2d 65 6c 69 73 70 2d 74 6f 2d 70 63 72 65 0a 20 20 20 28 73 65 74 71 20 69 76 79 2d 2d | el--elisp-to-pcre....(setq.ivy-- |
| 1c5e0 | 6f 6c 64 2d 72 65 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 76 79 2d 73 74 | old-re..........(funcall.(ivy-st |
| 1c600 | 61 74 65 2d 72 65 2d 62 75 69 6c 64 65 72 20 69 76 79 2d 6c 61 73 74 29 20 73 74 72 29 29 0a 20 | ate-re-builder.ivy-last).str)).. |
| 1c620 | 20 20 63 6f 75 6e 73 65 6c 2d 2d 72 65 67 65 78 2d 6c 6f 6f 6b 2d 61 72 6f 75 6e 64 29 29 0a 0a | ..counsel--regex-look-around)).. |
| 1c640 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 61 67 2d 65 78 74 72 61 2d 73 77 69 74 63 68 65 | (defun.counsel--ag-extra-switche |
| 1c660 | 73 20 28 72 65 67 65 78 29 0a 20 20 22 47 65 74 20 61 64 64 69 74 69 6f 6e 61 6c 20 73 77 69 74 | s.(regex)..."Get.additional.swit |
| 1c680 | 63 68 65 73 20 6e 65 65 64 65 64 20 66 6f 72 20 6c 6f 6f 6b 2d 61 72 6f 75 6e 64 73 2e 22 0a 20 | ches.needed.for.look-arounds.".. |
| 1c6a0 | 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 63 6f 75 6e 73 65 6c 2d 2d 72 65 67 65 78 2d 6c 6f | .(and.(stringp.counsel--regex-lo |
| 1c6c0 | 6f 6b 2d 61 72 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 3b 3b 20 75 73 69 6e 67 20 6c 6f 6f 6b 2d | ok-around)........;;.using.look- |
| 1c6e0 | 61 72 6f 75 6e 64 73 0a 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 | arounds........(string-match-p." |
| 1c700 | 5c 5c 60 5c 5c 5e 28 5c 5c 3f 5b 3d 21 5d 22 20 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 28 63 | \\`\\^(\\?[=!]".regex)........(c |
| 1c720 | 6f 6e 63 61 74 20 22 20 22 20 63 6f 75 6e 73 65 6c 2d 2d 72 65 67 65 78 2d 6c 6f 6f 6b 2d 61 72 | oncat.".".counsel--regex-look-ar |
| 1c740 | 6f 75 6e 64 20 22 20 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 66 | ound.".")))..(defun.counsel-ag-f |
| 1c760 | 75 6e 63 74 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 22 47 72 65 70 20 69 6e 20 74 68 65 20 | unction.(string)..."Grep.in.the. |
| 1c780 | 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 53 54 52 49 4e 47 2e 22 0a 20 | current.directory.for.STRING.".. |
| 1c7a0 | 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 20 28 63 6f 75 6e 73 65 6c 2d 2d | .(let*.((command-args.(counsel-- |
| 1c7c0 | 73 70 6c 69 74 2d 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 | split-command-args.string))..... |
| 1c7e0 | 20 20 20 20 20 28 73 65 61 72 63 68 2d 74 65 72 6d 20 28 63 64 72 20 63 6f 6d 6d 61 6e 64 2d 61 | .....(search-term.(cdr.command-a |
| 1c800 | 72 67 73 29 29 29 0a 20 20 20 20 28 6f 72 0a 20 20 20 20 20 28 6c 65 74 20 28 28 69 76 79 2d 74 | rgs))).....(or......(let.((ivy-t |
| 1c820 | 65 78 74 20 73 65 61 72 63 68 2d 74 65 72 6d 29 29 0a 20 20 20 20 20 20 20 28 69 76 79 2d 6d 6f | ext.search-term))........(ivy-mo |
| 1c840 | 72 65 2d 63 68 61 72 73 29 29 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 66 61 75 6c 74 2d | re-chars))......(let*.((default- |
| 1c860 | 64 69 72 65 63 74 6f 72 79 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 | directory.(ivy-state-directory.i |
| 1c880 | 76 79 2d 6c 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 20 28 63 6f | vy-last)).............(regex.(co |
| 1c8a0 | 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 72 65 67 65 78 20 73 65 61 72 63 68 2d 74 65 72 6d 29 29 0a | unsel--grep-regex.search-term)). |
| 1c8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 65 73 20 28 63 6f 6e 63 61 74 20 28 69 | ............(switches.(concat.(i |
| 1c8e0 | 66 20 28 69 76 79 2d 2d 63 61 73 65 2d 66 6f 6c 64 2d 70 20 73 74 72 69 6e 67 29 0a 20 20 20 20 | f.(ivy--case-fold-p.string)..... |
| 1c900 | 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 22 20 | ..............................". |
| 1c920 | 2d 69 20 22 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 | -i."............................ |
| 1c940 | 20 20 20 20 20 22 20 2d 73 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .....".-s.").................... |
| 1c960 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 67 2d 65 78 74 72 61 2d 73 77 | ...........(counsel--ag-extra-sw |
| 1c980 | 69 74 63 68 65 73 20 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | itches.regex)................... |
| 1c9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 29 29 29 | ............(car.command-args))) |
| 1c9c0 | 29 0a 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 | )........(counsel--async-command |
| 1c9e0 | 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 74 2d 61 67 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 | .(counsel--format-ag-command.... |
| 1ca00 | 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 73 77 69 | .............................swi |
| 1ca20 | 74 63 68 65 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 | tches........................... |
| 1ca40 | 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 69 66 20 28 6c 69 73 74 70 20 63 6f 75 6e 73 65 | ......(funcall.(if.(listp.counse |
| 1ca60 | 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 | l-ag-command).#'identity........ |
| 1ca80 | 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 | ................................ |
| 1caa0 | 20 20 20 20 23 27 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 29 0a 20 20 20 20 | ....#'shell-quote-argument)..... |
| 1cac0 | 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 | ................................ |
| 1cae0 | 20 20 20 20 20 72 65 67 65 78 29 29 29 0a 20 20 20 20 20 20 20 6e 69 6c 29 29 29 29 0a 0a 3b 3b | .....regex)))........nil))))..;; |
| 1cb00 | 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 63 6c 2d 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 | ;###autoload.(cl-defun.counsel-a |
| 1cb20 | 67 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 | g.(&optional.initial-input.initi |
| 1cb40 | 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 65 78 74 72 61 2d 61 67 2d 61 72 67 73 20 61 67 2d 70 72 | al-directory.extra-ag-args.ag-pr |
| 1cb60 | 6f 6d 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 26 6b 65 79 20 | ompt.......................&key. |
| 1cb80 | 63 61 6c 6c 65 72 29 0a 20 20 22 47 72 65 70 20 66 6f 72 20 61 20 73 74 72 69 6e 67 20 69 6e 20 | caller)..."Grep.for.a.string.in. |
| 1cba0 | 61 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 60 61 67 27 2e 0a 0a 42 79 | a.root.directory.using.`ag'...By |
| 1cbc0 | 20 64 65 66 61 75 6c 74 2c 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 | .default,.the.root.directory.is. |
| 1cbe0 | 74 68 65 20 66 69 72 73 74 20 64 69 72 65 63 74 6f 72 79 20 63 6f 6e 74 61 69 6e 69 6e 67 0a 61 | the.first.directory.containing.a |
| 1cc00 | 20 2e 67 69 74 20 73 75 62 64 69 72 65 63 74 6f 72 79 2e 0a 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 | ..git.subdirectory...INITIAL-INP |
| 1cc20 | 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d | UT.can.be.given.as.the.initial.m |
| 1cc40 | 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 52 45 43 54 4f | inibuffer.input..INITIAL-DIRECTO |
| 1cc60 | 52 59 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 74 68 65 20 72 | RY,.if.non-nil,.is.used.as.the.r |
| 1cc80 | 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 0a 45 58 54 52 41 2d | oot.directory.for.search..EXTRA- |
| 1cca0 | 41 47 2d 41 52 47 53 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 61 70 70 65 6e 64 65 64 | AG-ARGS,.if.non-nil,.is.appended |
| 1ccc0 | 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 2e 0a 41 | .to.`counsel-ag-base-command'..A |
| 1cce0 | 47 2d 50 52 4f 4d 50 54 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 70 61 73 73 65 64 20 | G-PROMPT,.if.non-nil,.is.passed. |
| 1cd00 | 61 73 20 60 69 76 79 2d 72 65 61 64 27 20 70 72 6f 6d 70 74 20 61 72 67 75 6d 65 6e 74 2e 0a 43 | as.`ivy-read'.prompt.argument..C |
| 1cd20 | 41 4c 4c 45 52 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 60 69 76 79 2d 72 65 61 64 27 2e 0a 0a | ALLER.is.passed.to.`ivy-read'... |
| 1cd40 | 57 69 74 68 20 61 20 60 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 27 20 | With.a.`\\[universal-argument]'. |
| 1cd60 | 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 70 72 6f 6d 70 74 20 66 6f 72 20 49 4e 49 54 | prefix.argument,.prompt.for.INIT |
| 1cd80 | 49 41 4c 2d 44 49 52 45 43 54 4f 52 59 2e 0a 57 69 74 68 20 61 20 60 5c 5c 5b 75 6e 69 76 65 72 | IAL-DIRECTORY..With.a.`\\[univer |
| 1cda0 | 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d | sal-argument].\\[universal-argum |
| 1cdc0 | 65 6e 74 5d 27 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 5c 0a 70 72 6f 6d 70 74 20 | ent]'.prefix.argument,.\.prompt. |
| 1cde0 | 61 64 64 69 74 69 6f 6e 61 6c 6c 79 20 66 6f 72 20 45 58 54 52 41 2d 41 47 2d 41 52 47 53 2e 22 | additionally.for.EXTRA-AG-ARGS." |
| 1ce00 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c | ...(interactive)...(setq.counsel |
| 1ce20 | 2d 61 67 2d 63 6f 6d 6d 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d | -ag-command.counsel-ag-base-comm |
| 1ce40 | 61 6e 64 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 72 65 67 65 78 2d 6c 6f 6f 6b | and)...(setq.counsel--regex-look |
| 1ce60 | 2d 61 72 6f 75 6e 64 20 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 74 6f 6f 6c 2d 6c 6f 6f 6b 2d | -around.counsel--grep-tool-look- |
| 1ce80 | 61 72 6f 75 6e 64 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 | around)...(counsel-require-progr |
| 1cea0 | 61 6d 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 6c 65 74 20 28 28 | am.counsel-ag-command)...(let.(( |
| 1cec0 | 70 72 6f 67 2d 6e 61 6d 65 20 28 63 61 72 20 28 69 66 20 28 6c 69 73 74 70 20 63 6f 75 6e 73 65 | prog-name.(car.(if.(listp.counse |
| 1cee0 | 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 | l-ag-command).counsel-ag-command |
| 1cf00 | 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 28 73 70 6c 69 | ...........................(spli |
| 1cf20 | 74 2d 73 74 72 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 29 29 29 0a | t-string.counsel-ag-command)))). |
| 1cf40 | 20 20 20 20 20 20 20 20 28 61 72 67 20 28 70 72 65 66 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c | ........(arg.(prefix-numeric-val |
| 1cf60 | 75 65 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 29 29 0a 20 20 20 20 28 77 68 | ue.current-prefix-arg))).....(wh |
| 1cf80 | 65 6e 20 28 3e 3d 20 61 72 67 20 34 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 69 6e 69 74 69 61 | en.(>=.arg.4).......(setq.initia |
| 1cfa0 | 6c 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 69 6e 69 74 | l-directory.............(or.init |
| 1cfc0 | 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | ial-directory.................(c |
| 1cfe0 | 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 28 63 6f 6e 63 | ounsel-read-directory-name.(conc |
| 1d000 | 61 74 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 | at.............................. |
| 1d020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 67 2d 6e 61 6d 65 0a 20 20 20 20 20 | .................prog-name...... |
| 1d040 | 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 | ................................ |
| 1d060 | 20 20 20 20 20 20 20 20 20 22 20 69 6e 20 64 69 72 65 63 74 6f 72 79 3a 20 22 29 29 29 29 29 0a | .........".in.directory:."))))). |
| 1d080 | 20 20 20 20 28 77 68 65 6e 20 28 3e 3d 20 61 72 67 20 31 36 29 0a 20 20 20 20 20 20 28 73 65 74 | ....(when.(>=.arg.16).......(set |
| 1d0a0 | 71 20 65 78 74 72 61 2d 61 67 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 | q.extra-ag-args.............(or. |
| 1d0c0 | 65 78 74 72 61 2d 61 67 2d 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 | extra-ag-args.................(r |
| 1d0e0 | 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 20 28 66 6f 72 6d 61 74 20 22 25 73 20 | ead-from-minibuffer.(format."%s. |
| 1d100 | 61 72 67 73 3a 20 22 20 70 72 6f 67 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 | args:.".prog-name))))).....(setq |
| 1d120 | 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f | .counsel-ag-command.(counsel--fo |
| 1d140 | 72 6d 61 74 2d 61 67 2d 63 6f 6d 6d 61 6e 64 20 28 6f 72 20 65 78 74 72 61 2d 61 67 2d 61 72 67 | rmat-ag-command.(or.extra-ag-arg |
| 1d160 | 73 20 22 22 29 20 22 25 73 22 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d | s."")."%s")).....(let.((default- |
| 1d180 | 64 69 72 65 63 74 6f 72 79 20 28 6f 72 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 0a | directory.(or.initial-directory. |
| 1d1a0 | 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 | ................................ |
| 1d1c0 | 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(counsel--git-root)............ |
| 1d1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 | ......................default-di |
| 1d200 | 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 28 6f 72 20 61 | rectory))).......(ivy-read.(or.a |
| 1d220 | 67 2d 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | g-prompt.....................(co |
| 1d240 | 6e 63 61 74 20 70 72 6f 67 2d 6e 61 6d 65 20 22 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | ncat.prog-name.":."))........... |
| 1d260 | 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 61 67 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 | ......#'counsel-ag-function..... |
| 1d280 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 | ............:initial-input.initi |
| 1d2a0 | 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 | al-input.................:dynami |
| 1d2c0 | 63 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | c-collection.t.................: |
| 1d2e0 | 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 | keymap.counsel-ag-map........... |
| 1d300 | 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 | ......:history.'counsel-git-grep |
| 1d320 | 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e | -history.................:action |
| 1d340 | 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 | .#'counsel-git-grep-action...... |
| 1d360 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 | ...........:require-match.t..... |
| 1d380 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 28 6f 72 20 63 61 6c 6c 65 72 20 27 | ............:caller.(or.caller.' |
| 1d3a0 | 63 6f 75 6e 73 65 6c 2d 61 67 29 29 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 | counsel-ag)))))..(ivy-configure. |
| 1d3c0 | 27 63 6f 75 6e 73 65 6c 2d 61 67 0a 20 20 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 61 | 'counsel-ag...:occur.#'counsel-a |
| 1d3e0 | 67 2d 6f 63 63 75 72 0a 20 20 3a 75 6e 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d | g-occur...:unwind-fn.#'counsel-- |
| 1d400 | 67 72 65 70 2d 75 6e 77 69 6e 64 0a 20 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d | grep-unwind...:display-transform |
| 1d420 | 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 74 72 61 6e 73 66 6f | er-fn.#'counsel-git-grep-transfo |
| 1d440 | 72 6d 65 72 0a 20 20 3a 67 72 65 70 2d 70 20 74 0a 20 20 3a 65 78 69 74 2d 63 6f 64 65 73 20 27 | rmer...:grep-p.t...:exit-codes.' |
| 1d460 | 28 31 20 22 4e 6f 20 6d 61 74 63 68 65 73 20 66 6f 75 6e 64 22 29 29 0a 0a 28 64 65 66 75 6e 20 | (1."No.matches.found"))..(defun. |
| 1d480 | 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 28 70 72 6f | counsel-read-directory-name.(pro |
| 1d4a0 | 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 20 64 65 66 61 75 6c 74 29 0a 20 20 22 52 65 61 64 20 61 | mpt.&optional.default)..."Read.a |
| 1d4c0 | 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 2e 0a 54 68 69 73 20 69 73 20 69 6e 74 65 6e 64 65 | .directory.name..This.is.intende |
| 1d4e0 | 64 20 61 73 20 61 20 28 70 61 72 74 69 61 6c 29 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 | d.as.a.(partial).replacement.for |
| 1d500 | 0a 60 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 27 2e 22 0a 20 20 28 6c 65 74 20 | .`read-directory-name'."...(let. |
| 1d520 | 28 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 70 72 65 64 69 63 61 74 65 20 23 | ((counsel--find-file-predicate.# |
| 1d540 | 27 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 | 'file-directory-p)).....(ivy-rea |
| 1d560 | 64 20 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 72 65 61 64 2d 66 69 | d.prompt...............#'read-fi |
| 1d580 | 6c 65 2d 6e 61 6d 65 2d 69 6e 74 65 72 6e 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | le-name-internal...............: |
| 1d5a0 | 6d 61 74 63 68 65 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 74 | matcher.#'counsel--find-file-mat |
| 1d5c0 | 63 68 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 66 20 64 65 66 61 75 6c 74 0a | cher...............:def.default. |
| 1d5e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 66 69 6c 65 2d 6e 61 6d | ..............:history.'file-nam |
| 1d600 | 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 | e-history...............:keymap. |
| 1d620 | 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 | counsel-find-file-map........... |
| 1d640 | 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 | ....:caller.'counsel-read-direct |
| 1d660 | 6f 72 79 2d 6e 61 6d 65 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 | ory-name)))..(ivy-configure.'cou |
| 1d680 | 6e 73 65 6c 2d 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 0a 20 20 3a 70 61 72 65 | nsel-read-directory-name...:pare |
| 1d6a0 | 6e 74 20 27 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 2d 69 6e 74 65 72 6e 61 6c 29 0a 0a 28 64 | nt.'read-file-name-internal)..(d |
| 1d6c0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 64 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 74 68 65 | efun.counsel-cd.()..."Change.the |
| 1d6e0 | 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 72 75 6e | .directory.for.the.currently.run |
| 1d700 | 6e 69 6e 67 20 49 76 79 20 67 72 65 70 2d 6c 69 6b 65 20 63 6f 6d 6d 61 6e 64 2e 0a 57 6f 72 6b | ning.Ivy.grep-like.command..Work |
| 1d720 | 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 69 74 2d 67 72 65 70 27 2c 20 60 63 6f 75 6e 73 | s.for.`counsel-git-grep',.`couns |
| 1d740 | 65 6c 2d 61 67 27 2c 20 65 74 63 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | el-ag',.etc."...(interactive)... |
| 1d760 | 28 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 29 0a 20 20 28 6c 65 74 2a | (counsel-delete-process)...(let* |
| 1d780 | 20 28 28 69 6e 70 75 74 20 69 76 79 2d 74 65 78 74 29 0a 20 20 20 20 20 20 20 20 20 28 65 6e 61 | .((input.ivy-text)..........(ena |
| 1d7a0 | 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 20 20 20 | ble-recursive-minibuffers.t).... |
| 1d7c0 | 20 20 20 20 20 20 28 64 65 66 2d 64 69 72 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 | ......(def-dir.(buffer-file-name |
| 1d7e0 | 20 28 69 76 79 2d 73 74 61 74 65 2d 62 75 66 66 65 72 20 69 76 79 2d 6c 61 73 74 29 29 29 0a 20 | .(ivy-state-buffer.ivy-last))).. |
| 1d800 | 20 20 20 20 20 20 20 20 28 64 65 66 2d 64 69 72 20 28 61 6e 64 20 64 65 66 2d 64 69 72 20 28 66 | ........(def-dir.(and.def-dir.(f |
| 1d820 | 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 64 65 66 2d 64 69 72 29 29 29 0a 20 20 | ile-name-directory.def-dir)))... |
| 1d840 | 20 20 20 20 20 20 20 28 6e 65 77 2d 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 72 65 61 64 2d 64 69 | .......(new-dir.(counsel-read-di |
| 1d860 | 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 63 64 3a 20 22 20 64 65 66 2d 64 69 72 29 29 29 0a 20 | rectory-name."cd:.".def-dir))).. |
| 1d880 | 20 20 20 28 69 76 79 2d 71 75 69 74 2d 61 6e 64 2d 72 75 6e 0a 20 20 20 20 20 20 28 66 75 6e 63 | ...(ivy-quit-and-run.......(func |
| 1d8a0 | 61 6c 6c 20 28 69 76 79 2d 73 74 61 74 65 2d 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 20 | all.(ivy-state-caller.ivy-last). |
| 1d8c0 | 69 6e 70 75 74 20 6e 65 77 2d 64 69 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | input.new-dir))))..(defun.counse |
| 1d8e0 | 6c 2d 2d 67 72 65 70 2d 73 6d 61 72 74 2d 63 61 73 65 2d 66 6c 61 67 20 28 29 0a 20 20 28 69 66 | l--grep-smart-case-flag.()...(if |
| 1d900 | 20 28 69 76 79 2d 2d 63 61 73 65 2d 66 6f 6c 64 2d 70 20 69 76 79 2d 74 65 78 74 29 0a 20 20 20 | .(ivy--case-fold-p.ivy-text).... |
| 1d920 | 20 20 20 22 2d 69 22 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 73 74 72 69 6e 67 70 20 63 6f | ..."-i".....(if.(and.(stringp.co |
| 1d940 | 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 | unsel-ag-base-command).......... |
| 1d960 | 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5c 5c 60 70 74 22 20 63 6f 75 6e | ....(string-match-p."\\`pt".coun |
| 1d980 | 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 22 2d | sel-ag-base-command))........."- |
| 1d9a0 | 53 22 0a 20 20 20 20 20 20 22 2d 73 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | S"......."-s")))..(defun.counsel |
| 1d9c0 | 2d 67 72 65 70 2d 6c 69 6b 65 2d 6f 63 63 75 72 20 28 63 6d 64 2d 74 65 6d 70 6c 61 74 65 29 0a | -grep-like-occur.(cmd-template). |
| 1d9e0 | 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 69 76 79 2d 6f 63 | ..(unless.(eq.major-mode.'ivy-oc |
| 1da00 | 63 75 72 2d 67 72 65 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 76 79 2d 6f 63 63 75 72 2d 67 72 | cur-grep-mode).....(ivy-occur-gr |
| 1da20 | 65 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 65 74 71 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | ep-mode).....(setq.default-direc |
| 1da40 | 74 6f 72 79 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 | tory.(ivy-state-directory.ivy-la |
| 1da60 | 73 74 29 29 29 0a 20 20 28 69 76 79 2d 73 65 74 2d 74 65 78 74 0a 20 20 20 28 69 66 20 28 73 74 | st)))...(ivy-set-text....(if.(st |
| 1da80 | 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 22 5c 5c 28 2e 2a 5c 5c 29 5c 22 22 20 28 62 75 66 66 65 | ring-match."\"\\(.*\\)\"".(buffe |
| 1daa0 | 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 | r-name))........(match-string.1. |
| 1dac0 | 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 74 | (buffer-name))......(ivy-state-t |
| 1dae0 | 65 78 74 20 69 76 79 2d 6f 63 63 75 72 2d 6c 61 73 74 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 | ext.ivy-occur-last)))...(let*.(( |
| 1db00 | 63 6d 64 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 6d 64 | cmd...........(if.(functionp.cmd |
| 1db20 | 2d 74 65 6d 70 6c 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c | -template)...............(funcal |
| 1db40 | 6c 20 63 6d 64 2d 74 65 6d 70 6c 61 74 65 20 69 76 79 2d 74 65 78 74 29 0a 20 20 20 20 20 20 20 | l.cmd-template.ivy-text)........ |
| 1db60 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 20 28 63 6f 75 6e 73 | .....(let*.((command-args.(couns |
| 1db80 | 65 6c 2d 2d 73 70 6c 69 74 2d 63 6f 6d 6d 61 6e 64 2d 61 72 67 73 20 69 76 79 2d 74 65 78 74 29 | el--split-command-args.ivy-text) |
| 1dba0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 20 28 63 6f 75 | )....................(regex.(cou |
| 1dbc0 | 6e 73 65 6c 2d 2d 67 72 65 70 2d 72 65 67 65 78 20 28 63 64 72 20 63 6f 6d 6d 61 6e 64 2d 61 72 | nsel--grep-regex.(cdr.command-ar |
| 1dbe0 | 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 74 72 61 2d | gs)))....................(extra- |
| 1dc00 | 73 77 69 74 63 68 65 73 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 67 2d 65 78 74 72 61 2d 73 77 69 74 | switches.(counsel--ag-extra-swit |
| 1dc20 | 63 68 65 73 20 72 65 67 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ches.regex)).................... |
| 1dc40 | 28 61 6c 6c 2d 61 72 67 73 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (all-args.(append............... |
| 1dc60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 63 61 72 20 63 6f 6d 6d 61 | ................(when.(car.comma |
| 1dc80 | 6e 64 2d 61 72 67 73 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 | nd-args)........................ |
| 1dca0 | 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 63 61 72 20 63 6f 6d 6d | .........(split-string.(car.comm |
| 1dcc0 | 61 6e 64 2d 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | and-args)))..................... |
| 1dce0 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 65 78 74 72 61 2d 73 77 69 74 63 68 65 73 0a 20 | ..........(when.extra-switches.. |
| 1dd00 | 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 | ...............................( |
| 1dd20 | 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 65 78 74 72 61 2d 73 77 69 74 63 68 65 73 29 29 0a 20 20 | split-string.extra-switches))... |
| 1dd40 | 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 6c 69 73 | ............................(lis |
| 1dd60 | 74 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 | t............................... |
| 1dd80 | 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 73 6d 61 72 74 2d 63 61 73 65 2d 66 6c 61 67 29 | .(counsel--grep-smart-case-flag) |
| 1dda0 | 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 20 | ................................ |
| 1ddc0 | 72 65 67 65 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 | regex))))...............(if.(str |
| 1dde0 | 69 6e 67 70 20 63 6d 64 2d 74 65 6d 70 6c 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ingp.cmd-template).............. |
| 1de00 | 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 | .....(counsel--format........... |
| 1de20 | 20 20 20 20 20 20 20 20 20 63 6d 64 2d 74 65 6d 70 6c 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 | .........cmd-template........... |
| 1de40 | 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 73 68 65 6c 6c 2d 71 75 6f 74 | .........(mapconcat.#'shell-quot |
| 1de60 | 65 2d 61 72 67 75 6d 65 6e 74 20 61 6c 6c 2d 61 72 67 73 20 22 20 22 29 29 0a 20 20 20 20 20 20 | e-argument.all-args."."))....... |
| 1de80 | 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | ..........(cl-mapcan............ |
| 1dea0 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 78 | ......(lambda.(x).(if.(string=.x |
| 1dec0 | 20 22 25 73 22 29 20 28 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 61 6c 6c 2d 61 72 67 73 29 20 | ."%s").(copy-sequence.all-args). |
| 1dee0 | 28 6c 69 73 74 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d 64 2d | (list.x)))..................cmd- |
| 1df00 | 74 65 6d 70 6c 61 74 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 73 20 28 63 | template)))))..........(cands.(c |
| 1df20 | 6f 75 6e 73 65 6c 2d 2d 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 | ounsel--split-string............ |
| 1df40 | 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 | ......(if.(stringp.cmd)......... |
| 1df60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 | .............(shell-command-to-s |
| 1df80 | 74 72 69 6e 67 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | tring.cmd)....................(c |
| 1dfa0 | 6f 75 6e 73 65 6c 2d 2d 63 61 6c 6c 20 63 6d 64 29 29 29 29 29 0a 20 20 20 20 28 73 77 69 70 65 | ounsel--call.cmd))))).....(swipe |
| 1dfc0 | 72 2d 2d 6f 63 63 75 72 2d 69 6e 73 65 72 74 2d 6c 69 6e 65 73 20 28 6d 61 70 63 61 72 20 23 27 | r--occur-insert-lines.(mapcar.#' |
| 1dfe0 | 63 6f 75 6e 73 65 6c 2d 2d 6e 6f 72 6d 61 6c 69 7a 65 2d 67 72 65 70 2d 6d 61 74 63 68 20 63 61 | counsel--normalize-grep-match.ca |
| 1e000 | 6e 64 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 6f 63 63 75 72 | nds))))..(defun.counsel-ag-occur |
| 1e020 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 | .(&optional._cands)..."Generate. |
| 1e040 | 61 20 63 75 73 74 6f 6d 20 6f 63 63 75 72 20 62 75 66 66 65 72 20 66 6f 72 20 60 63 6f 75 6e 73 | a.custom.occur.buffer.for.`couns |
| 1e060 | 65 6c 2d 61 67 27 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6c 69 6b 65 2d 6f 63 | el-ag'."...(counsel-grep-like-oc |
| 1e080 | 63 75 72 0a 20 20 20 63 6f 75 6e 73 65 6c 2d 61 67 2d 63 6f 6d 6d 61 6e 64 29 29 0a 0a 3b 3b 2a | cur....counsel-ag-command))..;;* |
| 1e0a0 | 2a 20 60 63 6f 75 6e 73 65 6c 2d 70 74 27 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 | *.`counsel-pt'.(defcustom.counse |
| 1e0c0 | 6c 2d 70 74 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 20 22 70 74 20 2d 2d 6e 6f 63 6f 6c 6f 72 20 | l-pt-base-command."pt.--nocolor. |
| 1e0e0 | 2d 2d 6e 6f 67 72 6f 75 70 20 2d 65 20 25 73 22 0a 20 20 22 41 6c 74 65 72 6e 61 74 69 76 65 20 | --nogroup.-e.%s"..."Alternative. |
| 1e100 | 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 20 75 73 69 | to.`counsel-ag-base-command'.usi |
| 1e120 | 6e 67 20 70 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 3b 3b 3b 23 23 23 | ng.pt."...:type.'string)..;;;### |
| 1e140 | 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 70 74 20 28 26 6f 70 74 | autoload.(defun.counsel-pt.(&opt |
| 1e160 | 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 47 72 65 70 20 66 6f 72 | ional.initial-input)..."Grep.for |
| 1e180 | 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f | .a.string.in.the.current.directo |
| 1e1a0 | 72 79 20 75 73 69 6e 67 20 70 74 2e 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 63 61 6e 20 62 | ry.using.pt..INITIAL-INPUT.can.b |
| 1e1c0 | 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d 69 6e 69 62 75 66 66 65 | e.given.as.the.initial.minibuffe |
| 1e1e0 | 72 20 69 6e 70 75 74 2e 0a 54 68 69 73 20 75 73 65 73 20 60 63 6f 75 6e 73 65 6c 2d 61 67 27 20 | r.input..This.uses.`counsel-ag'. |
| 1e200 | 77 69 74 68 20 60 63 6f 75 6e 73 65 6c 2d 70 74 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 20 69 | with.`counsel-pt-base-command'.i |
| 1e220 | 6e 73 74 65 61 64 20 6f 66 0a 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 | nstead.of.`counsel-ag-base-comma |
| 1e240 | 6e 64 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 | nd'."...(interactive)...(let.((c |
| 1e260 | 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 70 | ounsel-ag-base-command.counsel-p |
| 1e280 | 74 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c | t-base-command).........(counsel |
| 1e2a0 | 2d 2d 67 72 65 70 2d 74 6f 6f 6c 2d 6c 6f 6f 6b 2d 61 72 6f 75 6e 64 20 6e 69 6c 29 29 0a 20 20 | --grep-tool-look-around.nil))... |
| 1e2c0 | 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 6e 69 6c 20 | ..(counsel-ag.initial-input.nil. |
| 1e2e0 | 6e 69 6c 20 6e 69 6c 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 70 74 29 29 29 0a 0a | nil.nil.:caller.'counsel-pt))).. |
| 1e300 | 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 70 74 0a 20 20 3a 75 6e | (ivy-configure.'counsel-pt...:un |
| 1e320 | 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 75 6e 77 69 6e 64 0a 20 | wind-fn.#'counsel--grep-unwind.. |
| 1e340 | 20 3a 64 69 73 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 | .:display-transformer-fn.#'couns |
| 1e360 | 65 6c 2d 67 69 74 2d 67 72 65 70 2d 74 72 61 6e 73 66 6f 72 6d 65 72 0a 20 20 3a 67 72 65 70 2d | el-git-grep-transformer...:grep- |
| 1e380 | 70 20 74 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 61 63 6b 27 0a 28 64 65 66 63 75 73 | p.t)..;;**.`counsel-ack'.(defcus |
| 1e3a0 | 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 61 63 6b 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 28 | tom.counsel-ack-base-command...( |
| 1e3c0 | 63 6f 6e 63 61 74 0a 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 | concat....(file-name-nondirector |
| 1e3e0 | 79 0a 20 20 20 20 28 6f 72 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 61 63 6b 2d | y.....(or.(executable-find."ack- |
| 1e400 | 67 72 65 70 22 29 20 22 61 63 6b 22 29 29 0a 20 20 20 22 20 2d 2d 6e 6f 63 6f 6c 6f 72 20 2d 2d | grep")."ack"))....".--nocolor.-- |
| 1e420 | 6e 6f 67 72 6f 75 70 20 25 73 22 29 0a 20 20 22 41 6c 74 65 72 6e 61 74 69 76 65 20 74 6f 20 60 | nogroup.%s")..."Alternative.to.` |
| 1e440 | 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 20 75 73 69 6e 67 20 61 | counsel-ag-base-command'.using.a |
| 1e460 | 63 6b 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | ck."...:type.'string)..;;;###aut |
| 1e480 | 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 61 63 6b 20 28 26 6f 70 74 69 6f | oload.(defun.counsel-ack.(&optio |
| 1e4a0 | 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 47 72 65 70 20 66 6f 72 20 61 | nal.initial-input)..."Grep.for.a |
| 1e4c0 | 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 | .string.in.the.current.directory |
| 1e4e0 | 20 75 73 69 6e 67 20 61 63 6b 2e 0a 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 63 61 6e 20 62 65 | .using.ack..INITIAL-INPUT.can.be |
| 1e500 | 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 6d 69 6e 69 62 75 66 66 65 72 | .given.as.the.initial.minibuffer |
| 1e520 | 20 69 6e 70 75 74 2e 0a 54 68 69 73 20 75 73 65 73 20 60 63 6f 75 6e 73 65 6c 2d 61 67 27 20 77 | .input..This.uses.`counsel-ag'.w |
| 1e540 | 69 74 68 20 60 63 6f 75 6e 73 65 6c 2d 61 63 6b 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 20 72 | ith.`counsel-ack-base-command'.r |
| 1e560 | 65 70 6c 61 63 69 6e 67 0a 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e | eplacing.`counsel-ag-base-comman |
| 1e580 | 64 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f | d'."...(interactive)...(let.((co |
| 1e5a0 | 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 61 63 | unsel-ag-base-command.counsel-ac |
| 1e5c0 | 6b 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c | k-base-command).........(counsel |
| 1e5e0 | 2d 2d 67 72 65 70 2d 74 6f 6f 6c 2d 6c 6f 6f 6b 2d 61 72 6f 75 6e 64 20 74 29 29 0a 20 20 20 20 | --grep-tool-look-around.t))..... |
| 1e600 | 28 63 6f 75 6e 73 65 6c 2d 61 67 0a 20 20 20 20 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 6e | (counsel-ag......initial-input.n |
| 1e620 | 69 6c 20 6e 69 6c 20 6e 69 6c 0a 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c | il.nil.nil......:caller.'counsel |
| 1e640 | 2d 61 63 6b 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 67 27 0a 28 64 65 66 63 | -ack)))..;;**.`counsel-rg'.(defc |
| 1e660 | 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 | ustom.counsel-rg-base-command... |
| 1e680 | 60 28 22 72 67 22 0a 20 20 20 20 22 2d 2d 6d 61 78 2d 63 6f 6c 75 6d 6e 73 22 20 22 32 34 30 22 | `("rg"....."--max-columns"."240" |
| 1e6a0 | 0a 20 20 20 20 22 2d 2d 77 69 74 68 2d 66 69 6c 65 6e 61 6d 65 22 0a 20 20 20 20 22 2d 2d 6e 6f | ....."--with-filename"....."--no |
| 1e6c0 | 2d 68 65 61 64 69 6e 67 22 0a 20 20 20 20 22 2d 2d 6c 69 6e 65 2d 6e 75 6d 62 65 72 22 0a 20 20 | -heading"....."--line-number"... |
| 1e6e0 | 20 20 22 2d 2d 63 6f 6c 6f 72 22 20 22 6e 65 76 65 72 22 0a 20 20 20 20 22 25 73 22 0a 20 20 20 | .."--color"."never"....."%s".... |
| 1e700 | 20 2c 40 28 61 6e 64 20 28 6d 65 6d 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 28 6d 73 2d 64 | .,@(and.(memq.system-type.'(ms-d |
| 1e720 | 6f 73 20 77 69 6e 64 6f 77 73 2d 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 | os.windows-nt))............(list |
| 1e740 | 20 22 2d 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 22 20 22 2f 22 20 22 2e 22 29 29 29 0a 20 | ."--path-separator"."/"."."))).. |
| 1e760 | 20 22 4c 69 6b 65 20 60 63 6f 75 6e 73 65 6c 2d 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 27 | ."Like.`counsel-ag-base-command' |
| 1e780 | 2c 20 62 75 74 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 72 67 27 2e 0a 0a 4e 6f 74 65 3a 20 64 | ,.but.for.`counsel-rg'...Note:.d |
| 1e7a0 | 6f 6e 27 74 20 75 73 65 20 73 69 6e 67 6c 65 20 71 75 6f 74 65 73 20 66 6f 72 20 74 68 65 20 72 | on't.use.single.quotes.for.the.r |
| 1e7c0 | 65 67 65 78 70 2e 22 0a 20 20 3a 70 61 63 6b 61 67 65 2d 76 65 72 73 69 6f 6e 20 27 28 63 6f 75 | egexp."...:package-version.'(cou |
| 1e7e0 | 6e 73 65 6c 20 2e 20 22 30 2e 31 34 2e 30 22 29 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 | nsel..."0.14.0")...:type.'(choic |
| 1e800 | 65 20 28 72 65 70 65 61 74 20 3a 74 61 67 20 22 43 6f 6d 6d 61 6e 64 20 6c 69 73 74 20 74 6f 20 | e.(repeat.:tag."Command.list.to. |
| 1e820 | 63 61 6c 6c 20 64 69 72 65 63 74 6c 79 22 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 | call.directly".string).......... |
| 1e840 | 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 53 68 65 6c 6c 20 63 6f 6d 6d | ........(string.:tag."Shell.comm |
| 1e860 | 61 6e 64 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 72 67 2d 74 61 72 67 | and")))..(defun.counsel--rg-targ |
| 1e880 | 65 74 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 | ets.()..."Return.a.list.of.files |
| 1e8a0 | 20 74 6f 20 6f 70 65 72 61 74 65 20 6f 6e 2c 20 62 61 73 65 64 20 6f 6e 20 60 64 69 72 65 64 2d | .to.operate.on,.based.on.`dired- |
| 1e8c0 | 6d 6f 64 65 27 20 6d 61 72 6b 73 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a 6f 72 2d | mode'.marks."...(when.(eq.major- |
| 1e8e0 | 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c | mode.'dired-mode).....(let.((fil |
| 1e900 | 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d | es............(dired-get-marked- |
| 1e920 | 66 69 6c 65 73 20 27 6e 6f 2d 64 69 72 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 | files.'no-dir.nil.nil.t)))...... |
| 1e940 | 20 28 77 68 65 6e 20 28 6f 72 20 28 63 64 72 20 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 | .(when.(or.(cdr.files).......... |
| 1e960 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5c 5c | .......(when.(string-match-p."\\ |
| 1e980 | 2a 69 76 79 2d 6f 63 63 75 72 22 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 | *ivy-occur".(buffer-name))...... |
| 1e9a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 74 6f 67 67 6c 65 2d 6d 61 72 6b 73 | .............(dired-toggle-marks |
| 1e9c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c 65 73 20 | )...................(setq.files. |
| 1e9e0 | 28 64 69 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 20 27 6e 6f 2d 64 69 72 29 | (dired-get-marked-files.'no-dir) |
| 1ea00 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 74 6f 67 67 6c | )...................(dired-toggl |
| 1ea20 | 65 2d 6d 61 72 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 0a 20 | e-marks)...................t)).. |
| 1ea40 | 20 20 20 20 20 20 20 28 64 65 6c 71 20 74 20 66 69 6c 65 73 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 | .......(delq.t.files)))))..;;;## |
| 1ea60 | 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 67 20 28 26 6f 70 | #autoload.(defun.counsel-rg.(&op |
| 1ea80 | 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 | tional.initial-input.initial-dir |
| 1eaa0 | 65 63 74 6f 72 79 20 65 78 74 72 61 2d 72 67 2d 61 72 67 73 20 72 67 2d 70 72 6f 6d 70 74 29 0a | ectory.extra-rg-args.rg-prompt). |
| 1eac0 | 20 20 22 47 72 65 70 20 66 6f 72 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 63 75 72 72 | .."Grep.for.a.string.in.the.curr |
| 1eae0 | 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 60 72 67 27 2e 0a 49 4e 49 54 49 41 | ent.directory.using.`rg'..INITIA |
| 1eb00 | 4c 2d 49 4e 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 | L-INPUT.can.be.given.as.the.init |
| 1eb20 | 69 61 6c 20 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 0a 49 4e 49 54 49 41 4c 2d 44 49 | ial.minibuffer.input..INITIAL-DI |
| 1eb40 | 52 45 43 54 4f 52 59 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 73 20 75 73 65 64 20 61 73 20 | RECTORY,.if.non-nil,.is.used.as. |
| 1eb60 | 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 65 61 72 63 68 2e 0a 45 | the.root.directory.for.search..E |
| 1eb80 | 58 54 52 41 2d 52 47 2d 41 52 47 53 20 73 74 72 69 6e 67 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c 2c | XTRA-RG-ARGS.string,.if.non-nil, |
| 1eba0 | 20 69 73 20 61 70 70 65 6e 64 65 64 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 | .is.appended.to.`counsel-rg-base |
| 1ebc0 | 2d 63 6f 6d 6d 61 6e 64 27 2e 0a 52 47 2d 50 52 4f 4d 50 54 2c 20 69 66 20 6e 6f 6e 2d 6e 69 6c | -command'..RG-PROMPT,.if.non-nil |
| 1ebe0 | 2c 20 69 73 20 70 61 73 73 65 64 20 61 73 20 60 69 76 79 2d 72 65 61 64 27 20 70 72 6f 6d 70 74 | ,.is.passed.as.`ivy-read'.prompt |
| 1ec00 | 20 61 72 67 75 6d 65 6e 74 2e 0a 0a 45 78 61 6d 70 6c 65 20 69 6e 70 75 74 20 77 69 74 68 20 69 | .argument...Example.input.with.i |
| 1ec20 | 6e 63 6c 75 73 69 6f 6e 20 61 6e 64 20 65 78 63 6c 75 73 69 6f 6e 20 66 69 6c 65 20 70 61 74 74 | nclusion.and.exclusion.file.patt |
| 1ec40 | 65 72 6e 73 3a 0a 20 20 20 20 72 65 71 75 69 72 65 20 69 20 2d 2d 20 2d 67 2a 2e 65 6c 22 0a 20 | erns:.....require.i.--.-g*.el".. |
| 1ec60 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 6f 75 6e 73 65 6c 2d | .(interactive)...(let.((counsel- |
| 1ec80 | 61 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 | ag-base-command..........(if.(li |
| 1eca0 | 73 74 70 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 | stp.counsel-rg-base-command).... |
| 1ecc0 | 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 | ..........(append.counsel-rg-bas |
| 1ece0 | 65 2d 63 6f 6d 6d 61 6e 64 20 28 63 6f 75 6e 73 65 6c 2d 2d 72 67 2d 74 61 72 67 65 74 73 29 29 | e-command.(counsel--rg-targets)) |
| 1ed00 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 | ............(concat.counsel-rg-b |
| 1ed20 | 61 73 65 2d 63 6f 6d 6d 61 6e 64 20 22 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ase-command."."................. |
| 1ed40 | 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 | ...(mapconcat.#'shell-quote-argu |
| 1ed60 | 6d 65 6e 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 72 67 2d 74 61 72 67 65 74 73 29 20 22 20 22 29 29 | ment.(counsel--rg-targets).".")) |
| 1ed80 | 29 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 74 6f 6f 6c 2d 6c | )).........(counsel--grep-tool-l |
| 1eda0 | 6f 6f 6b 2d 61 72 6f 75 6e 64 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 67 20 28 63 | ook-around..........(let.((rg.(c |
| 1edc0 | 61 72 20 28 69 66 20 28 6c 69 73 74 70 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 2d 63 6f | ar.(if.(listp.counsel-rg-base-co |
| 1ede0 | 6d 6d 61 6e 64 29 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 0a 20 | mmand).counsel-rg-base-command.. |
| 1ee00 | 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 70 6c 69 74 2d | .........................(split- |
| 1ee20 | 73 74 72 69 6e 67 20 63 6f 75 6e 73 65 6c 2d 72 67 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 29 29 | string.counsel-rg-base-command)) |
| 1ee40 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 20 22 2d 2d 70 63 72 | ))................(switch."--pcr |
| 1ee60 | 65 32 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 30 20 28 63 61 6c | e2"))............(and.(eq.0.(cal |
| 1ee80 | 6c 2d 70 72 6f 63 65 73 73 20 72 67 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 73 77 69 74 63 68 20 | l-process.rg.nil.nil.nil.switch. |
| 1eea0 | 22 2d 2d 70 63 72 65 32 2d 76 65 72 73 69 6f 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | "--pcre2-version"))............. |
| 1eec0 | 20 20 20 20 73 77 69 74 63 68 29 29 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 61 67 20 69 | ....switch)))).....(counsel-ag.i |
| 1eee0 | 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 64 69 72 65 63 74 6f 72 79 20 65 | nitial-input.initial-directory.e |
| 1ef00 | 78 74 72 61 2d 72 67 2d 61 72 67 73 20 72 67 2d 70 72 6f 6d 70 74 0a 20 20 20 20 20 20 20 20 20 | xtra-rg-args.rg-prompt.......... |
| 1ef20 | 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 72 67 29 29 29 0a 0a 28 | .......:caller.'counsel-rg)))..( |
| 1ef40 | 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 72 67 0a 20 20 3a 6f 63 63 | ivy-configure.'counsel-rg...:occ |
| 1ef60 | 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 61 67 2d 6f 63 63 75 72 0a 20 20 3a 75 6e 77 69 6e 64 2d | ur.#'counsel-ag-occur...:unwind- |
| 1ef80 | 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 75 6e 77 69 6e 64 0a 20 20 3a 64 69 73 | fn.#'counsel--grep-unwind...:dis |
| 1efa0 | 70 6c 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 67 69 | play-transformer-fn.#'counsel-gi |
| 1efc0 | 74 2d 67 72 65 70 2d 74 72 61 6e 73 66 6f 72 6d 65 72 0a 20 20 3a 67 72 65 70 2d 70 20 74 0a 20 | t-grep-transformer...:grep-p.t.. |
| 1efe0 | 20 3a 65 78 69 74 2d 63 6f 64 65 73 20 27 28 31 20 22 4e 6f 20 6d 61 74 63 68 65 73 20 66 6f 75 | .:exit-codes.'(1."No.matches.fou |
| 1f000 | 6e 64 22 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 27 0a 28 64 65 66 76 | nd"))..;;**.`counsel-grep'.(defv |
| 1f020 | 61 72 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 | ar.counsel-grep-map...(let.((map |
| 1f040 | 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 | .(make-sparse-keymap))).....(def |
| 1f060 | 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6c 22 29 20 23 27 69 76 79 2d 63 61 | ine-key.map.(kbd."C-l").#'ivy-ca |
| 1f080 | 6c 6c 2d 61 6e 64 2d 72 65 63 65 6e 74 65 72 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | ll-and-recenter).....(define-key |
| 1f0a0 | 20 6d 61 70 20 28 6b 62 64 20 22 4d 2d 71 22 29 20 23 27 73 77 69 70 65 72 2d 71 75 65 72 79 2d | .map.(kbd."M-q").#'swiper-query- |
| 1f0c0 | 72 65 70 6c 61 63 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 | replace).....(define-key.map.(kb |
| 1f0e0 | 64 20 22 43 2d 27 22 29 20 23 27 73 77 69 70 65 72 2d 61 76 79 29 0a 20 20 20 20 6d 61 70 29 29 | d."C-'").#'swiper-avy).....map)) |
| 1f100 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 73 65 2d 63 | ..(defcustom.counsel-grep-base-c |
| 1f120 | 6f 6d 6d 61 6e 64 20 22 67 72 65 70 20 2d 45 20 2d 6e 20 2d 65 20 25 73 20 25 73 22 0a 20 20 22 | ommand."grep.-E.-n.-e.%s.%s"..." |
| 1f140 | 46 6f 72 6d 61 74 20 73 74 72 69 6e 67 20 75 73 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 67 | Format.string.used.by.`counsel-g |
| 1f160 | 72 65 70 27 20 74 6f 20 62 75 69 6c 64 20 61 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 2e 0a 49 | rep'.to.build.a.shell.command..I |
| 1f180 | 74 20 73 68 6f 75 6c 64 20 63 6f 6e 74 61 69 6e 20 74 77 6f 20 25 2d 73 65 71 75 65 6e 63 65 73 | t.should.contain.two.%-sequences |
| 1f1a0 | 20 28 73 65 65 20 66 75 6e 63 74 69 6f 6e 20 60 66 6f 72 6d 61 74 27 29 20 74 6f 20 62 65 0a 73 | .(see.function.`format').to.be.s |
| 1f1c0 | 75 62 73 74 69 74 75 74 65 64 20 62 79 20 74 68 65 20 73 65 61 72 63 68 20 72 65 67 65 78 70 20 | ubstituted.by.the.search.regexp. |
| 1f1e0 | 61 6e 64 20 66 69 6c 65 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 20 20 4e 65 69 74 68 65 72 | and.file,.respectively...Neither |
| 1f200 | 0a 25 2d 73 65 71 75 65 6e 63 65 20 73 68 6f 75 6c 64 20 62 65 20 63 6f 6e 74 61 69 6e 65 64 20 | .%-sequence.should.be.contained. |
| 1f220 | 69 6e 20 73 69 6e 67 6c 65 20 71 75 6f 74 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 | in.single.quotes."...:type.'stri |
| 1f240 | 6e 67 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 63 6f 6d 6d 61 6e | ng)..(defvar.counsel-grep-comman |
| 1f260 | 64 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 66 75 6e 63 | d.nil)..(defun.counsel-grep-func |
| 1f280 | 74 69 6f 6e 20 28 73 74 72 69 6e 67 29 0a 20 20 22 47 72 65 70 20 69 6e 20 74 68 65 20 63 75 72 | tion.(string)..."Grep.in.the.cur |
| 1f2a0 | 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 53 54 52 49 4e 47 2e 22 0a 20 20 28 6f | rent.directory.for.STRING."...(o |
| 1f2c0 | 72 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 6c 65 74 2a 20 28 | r....(ivy-more-chars)....(let*.( |
| 1f2e0 | 28 72 65 67 65 78 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 72 65 67 65 78 20 73 74 72 69 | (regex.(counsel--grep-regex.stri |
| 1f300 | 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f | ng))...........(cmd.(counsel--fo |
| 1f320 | 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 67 72 65 | rmat.................counsel-gre |
| 1f340 | 70 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 | p-command.................(funca |
| 1f360 | 6c 6c 20 28 69 66 20 28 6c 69 73 74 70 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 63 6f 6d 6d 61 | ll.(if.(listp.counsel-grep-comma |
| 1f380 | 6e 64 29 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd).#'identity.................. |
| 1f3a0 | 20 20 20 20 20 20 20 20 20 20 23 27 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 | ..........#'shell-quote-argument |
| 1f3c0 | 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 72 65 67 65 78 | )..........................regex |
| 1f3e0 | 29 29 29 29 0a 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e | ))))......(counsel--async-comman |
| 1f400 | 64 0a 20 20 20 20 20 20 28 69 66 20 28 69 76 79 2d 2d 63 61 73 65 2d 66 6f 6c 64 2d 70 20 72 65 | d.......(if.(ivy--case-fold-p.re |
| 1f420 | 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 63 6d 64 29 20 28 | gex)...........(if.(listp.cmd).( |
| 1f440 | 6e 63 6f 6e 63 20 28 6c 69 73 74 20 28 63 61 72 20 63 6d 64 29 20 22 2d 69 22 29 20 28 63 64 72 | nconc.(list.(car.cmd)."-i").(cdr |
| 1f460 | 20 63 6d 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 | .cmd)).............(string-match |
| 1f480 | 20 22 20 22 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 6d | .".".cmd).............(replace-m |
| 1f4a0 | 61 74 63 68 20 22 20 2d 69 20 22 20 6e 69 6c 20 6e 69 6c 20 63 6d 64 29 29 0a 20 20 20 20 20 20 | atch.".-i.".nil.nil.cmd))....... |
| 1f4c0 | 20 20 63 6d 64 29 29 0a 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 | ..cmd))......nil)))..(defvar.cou |
| 1f4e0 | 6e 73 65 6c 2d 2d 67 72 65 70 2d 6c 61 73 74 2d 70 6f 73 20 6e 69 6c 0a 20 20 22 53 74 6f 72 65 | nsel--grep-last-pos.nil..."Store |
| 1f500 | 20 74 68 65 20 6c 61 73 74 20 70 6f 69 6e 74 20 61 6e 64 20 6c 69 6e 65 20 74 68 61 74 20 60 63 | .the.last.point.and.line.that.`c |
| 1f520 | 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 61 63 74 69 6f 6e 27 20 73 63 72 6f 6c 6c 65 64 20 74 6f 2e | ounsel-grep-action'.scrolled.to. |
| 1f540 | 0a 54 68 69 73 20 73 70 65 65 64 73 20 75 70 20 73 63 72 6f 6c 6c 69 6e 67 3a 20 69 6e 73 74 65 | .This.speeds.up.scrolling:.inste |
| 1f560 | 61 64 20 6f 66 20 67 6f 69 6e 67 20 74 6f 20 60 70 6f 69 6e 74 2d 6d 69 6e 27 20 61 6e 64 0a 60 | ad.of.going.to.`point-min'.and.` |
| 1f580 | 66 6f 72 77 61 72 64 2d 6c 69 6e 65 27 20 77 69 74 68 20 61 20 68 75 67 65 20 61 72 67 20 28 65 | forward-line'.with.a.huge.arg.(e |
| 1f5a0 | 2e 67 2e 20 74 6f 20 73 63 72 6f 6c 6c 20 35 30 4b 20 6c 69 6e 65 73 29 2c 20 73 63 72 6f 6c 6c | .g..to.scroll.50K.lines),.scroll |
| 1f5c0 | 0a 72 65 6c 61 74 69 76 65 20 74 6f 20 74 68 65 20 6c 61 73 74 20 70 6f 73 69 74 69 6f 6e 20 73 | .relative.to.the.last.position.s |
| 1f5e0 | 74 6f 72 65 64 20 68 65 72 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 72 | tored.here.")..(defun.counsel-gr |
| 1f600 | 65 70 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 47 6f 20 74 6f 20 63 61 6e 64 69 64 61 74 65 | ep-action.(x)..."Go.to.candidate |
| 1f620 | 20 58 2e 22 0a 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 73 77 69 | .X."...(with-ivy-window.....(swi |
| 1f640 | 70 65 72 2d 2d 63 6c 65 61 6e 75 70 29 0a 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 | per--cleanup).....(let.((default |
| 1f660 | 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 | -directory............(file-name |
| 1f680 | 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 | -directory.............(ivy-stat |
| 1f6a0 | 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 79 2d 6c 61 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 | e-directory.ivy-last)))......... |
| 1f6c0 | 20 20 66 69 6c 65 2d 6e 61 6d 65 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 0a 20 20 20 20 20 20 28 | ..file-name.line-number).......( |
| 1f6e0 | 77 68 65 6e 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c | when.(cond.((string-match."\\`\\ |
| 1f700 | 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 20 78 29 0a 20 20 20 20 20 | ([0-9]+\\):\\(.*\\)\\'".x)...... |
| 1f720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c 65 2d 6e 61 6d 65 20 28 62 | ..............(setq.file-name.(b |
| 1f740 | 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 69 76 79 2d 73 74 61 74 65 2d 62 75 66 66 65 | uffer-file-name.(ivy-state-buffe |
| 1f760 | 72 20 69 76 79 2d 6c 61 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.ivy-last)))................... |
| 1f780 | 20 28 73 65 74 71 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | .(setq.line-number.(match-string |
| 1f7a0 | 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -no-properties.1.x)))........... |
| 1f7c0 | 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 5b 5e | ........((string-match."\\`\\([^ |
| 1f7e0 | 3a 5d 2b 5c 5c 29 3a 5c 5c 28 5b 30 2d 39 5d 2b 5c 5c 29 3a 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 | :]+\\):\\([0-9]+\\):\\(.*\\)\\'" |
| 1f800 | 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c | .x)....................(setq.fil |
| 1f820 | 65 2d 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 | e-name.(match-string-no-properti |
| 1f840 | 65 73 20 31 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | es.1.x))....................(set |
| 1f860 | 71 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 2d 6e 6f 2d 70 | q.line-number.(match-string-no-p |
| 1f880 | 72 6f 70 65 72 74 69 65 73 20 32 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 49 66 20 | roperties.2.x)))).........;;.If. |
| 1f8a0 | 74 68 65 20 66 69 6c 65 20 62 75 66 66 65 72 20 69 73 20 61 6c 72 65 61 64 79 20 6f 70 65 6e 2c | the.file.buffer.is.already.open, |
| 1f8c0 | 20 6a 75 73 74 20 67 65 74 20 69 74 2e 20 50 72 65 76 65 6e 74 20 64 6f 69 6e 67 0a 20 20 20 20 | .just.get.it..Prevent.doing..... |
| 1f8e0 | 20 20 20 20 3b 3b 20 60 66 69 6e 64 2d 66 69 6c 65 27 2c 20 61 73 20 74 68 61 74 20 66 69 6c 65 | ....;;.`find-file',.as.that.file |
| 1f900 | 20 63 6f 75 6c 64 20 68 61 76 65 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 6f 70 65 6e 65 64 20 | .could.have.already.been.opened. |
| 1f920 | 75 73 69 6e 67 0a 20 20 20 20 20 20 20 20 3b 3b 20 60 66 69 6e 64 2d 66 69 6c 65 2d 6c 69 74 65 | using.........;;.`find-file-lite |
| 1f940 | 72 61 6c 6c 79 27 2e 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 | rally'..........(with-current-bu |
| 1f960 | 66 66 65 72 20 28 6f 72 20 28 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 72 20 66 69 6c 65 2d 6e | ffer.(or.(get-file-buffer.file-n |
| 1f980 | 61 6d 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 20 20 20 | ame)............................ |
| 1f9a0 | 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 | ......(find-file.file-name)).... |
| 1f9c0 | 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 73 74 72 69 6e 67 | .......(setq.line-number.(string |
| 1f9e0 | 2d 74 6f 2d 6e 75 6d 62 65 72 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 | -to-number.line-number))........ |
| 1fa00 | 20 20 20 28 69 66 20 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 2d 6c 61 73 74 2d 70 | ...(if.(and.counsel--grep-last-p |
| 1fa20 | 6f 73 20 28 3d 20 28 70 6f 69 6e 74 29 20 28 63 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 67 72 65 70 | os.(=.(point).(car.counsel--grep |
| 1fa40 | 2d 6c 61 73 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 | -last-pos)))...............(forw |
| 1fa60 | 61 72 64 2d 6c 69 6e 65 20 28 2d 20 6c 69 6e 65 2d 6e 75 6d 62 65 72 20 28 63 64 72 20 63 6f 75 | ard-line.(-.line-number.(cdr.cou |
| 1fa80 | 6e 73 65 6c 2d 2d 67 72 65 70 2d 6c 61 73 74 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 | nsel--grep-last-pos))).......... |
| 1faa0 | 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 | ...(goto-char.(point-min))...... |
| 1fac0 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 31 2d 20 6c 69 6e 65 2d 6e 75 | .......(forward-line.(1-.line-nu |
| 1fae0 | 6d 62 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d | mber)))...........(setq.counsel- |
| 1fb00 | 2d 67 72 65 70 2d 6c 61 73 74 2d 70 6f 73 20 28 63 6f 6e 73 20 28 70 6f 69 6e 74 29 20 6c 69 6e | -grep-last-pos.(cons.(point).lin |
| 1fb20 | 65 2d 6e 75 6d 62 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 72 65 2d 73 | e-number))...........(when.(re-s |
| 1fb40 | 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 76 79 2d 74 65 | earch-forward.(ivy--regex.ivy-te |
| 1fb60 | 78 74 20 74 29 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 20 74 29 0a 20 20 20 | xt.t).(line-end-position).t).... |
| 1fb80 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 77 69 70 65 72 2d 67 6f 74 6f 2d 73 74 61 72 74 | .........(when.swiper-goto-start |
| 1fba0 | 2d 6f 66 2d 6d 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 | -of-match...............(goto-ch |
| 1fbc0 | 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 29 29 0a 20 20 20 20 20 20 | ar.(match-beginning.0))))....... |
| 1fbe0 | 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 70 6f 73 | ....(run-hooks.'counsel-grep-pos |
| 1fc00 | 74 2d 61 63 74 69 6f 6e 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 | t-action-hook)...........(if.(eq |
| 1fc20 | 20 69 76 79 2d 65 78 69 74 20 27 64 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | .ivy-exit.'done)...............( |
| 1fc40 | 73 77 69 70 65 72 2d 2d 65 6e 73 75 72 65 2d 76 69 73 69 62 6c 65 29 0a 20 20 20 20 20 20 20 20 | swiper--ensure-visible)......... |
| 1fc60 | 20 20 20 20 28 69 73 65 61 72 63 68 2d 72 61 6e 67 65 2d 69 6e 76 69 73 69 62 6c 65 20 28 6c 69 | ....(isearch-range-invisible.(li |
| 1fc80 | 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 | ne-beginning-position).......... |
| 1fca0 | 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 6c 69 6e | ............................(lin |
| 1fcc0 | 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 | e-end-position)).............(sw |
| 1fce0 | 69 70 65 72 2d 2d 61 64 64 2d 6f 76 65 72 6c 61 79 73 20 28 69 76 79 2d 2d 72 65 67 65 78 20 69 | iper--add-overlays.(ivy--regex.i |
| 1fd00 | 76 79 2d 74 65 78 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | vy-text))))))))..(defun.counsel- |
| 1fd20 | 67 72 65 70 2d 6f 63 63 75 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 63 61 6e 64 73 29 0a 20 20 | grep-occur.(&optional._cands)... |
| 1fd40 | 22 47 65 6e 65 72 61 74 65 20 61 20 63 75 73 74 6f 6d 20 6f 63 63 75 72 20 62 75 66 66 65 72 20 | "Generate.a.custom.occur.buffer. |
| 1fd60 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 27 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d | for.`counsel-grep'."...(counsel- |
| 1fd80 | 67 72 65 70 2d 6c 69 6b 65 2d 6f 63 63 75 72 0a 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 22 | grep-like-occur....(format....." |
| 1fda0 | 67 72 65 70 20 2d 6e 69 45 20 25 25 73 20 25 73 20 2f 64 65 76 2f 6e 75 6c 6c 22 0a 20 20 20 20 | grep.-niE.%%s.%s./dev/null"..... |
| 1fdc0 | 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 0a 20 20 20 20 20 28 66 69 6c 65 | (shell-quote-argument......(file |
| 1fde0 | 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 28 62 75 66 66 65 72 | -name-nondirectory.......(buffer |
| 1fe00 | 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 62 75 66 | -file-name........(ivy-state-buf |
| 1fe20 | 66 65 72 20 69 76 79 2d 6c 61 73 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 | fer.ivy-last)))))))..(defvar.cou |
| 1fe40 | 6e 73 65 6c 2d 67 72 65 70 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 | nsel-grep-history.nil..."History |
| 1fe60 | 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 | .for.`counsel-grep'.")..;;;###au |
| 1fe80 | 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 20 28 26 6f 70 74 | toload.(defun.counsel-grep.(&opt |
| 1fea0 | 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 47 72 65 70 20 66 6f 72 | ional.initial-input)..."Grep.for |
| 1fec0 | 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 66 69 6c 65 20 76 69 73 69 74 65 64 20 62 79 | .a.string.in.the.file.visited.by |
| 1fee0 | 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 57 68 65 6e 20 6e 6f 6e 2d 6e 69 | .the.current.buffer..When.non-ni |
| 1ff00 | 6c 2c 20 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 | l,.INITIAL-INPUT.is.the.initial. |
| 1ff20 | 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | search.pattern."...(interactive) |
| 1ff40 | 0a 20 20 28 75 6e 6c 65 73 73 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 | ...(unless.buffer-file-name..... |
| 1ff60 | 28 75 73 65 72 2d 65 72 72 6f 72 20 22 43 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 69 73 20 6e | (user-error."Current.buffer.is.n |
| 1ff80 | 6f 74 20 76 69 73 69 74 69 6e 67 20 61 20 66 69 6c 65 22 29 29 0a 20 20 28 63 6f 75 6e 73 65 6c | ot.visiting.a.file"))...(counsel |
| 1ffa0 | 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 | -require-program.counsel-grep-ba |
| 1ffc0 | 73 65 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 | se-command)...(setq.counsel-grep |
| 1ffe0 | 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 6f 72 6d 61 | -command.........(counsel--forma |
| 20000 | 74 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 73 65 2d 63 6f 6d 6d 61 6e 64 20 22 25 73 22 | t.counsel-grep-base-command."%s" |
| 20020 | 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 66 75 6e 63 61 | ..........................(funca |
| 20040 | 6c 6c 20 28 69 66 20 28 6c 69 73 74 70 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 73 65 2d | ll.(if.(listp.counsel-grep-base- |
| 20060 | 63 6f 6d 6d 61 6e 64 29 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | command).#'identity............. |
| 20080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 73 68 65 6c 6c 2d | ........................#'shell- |
| 200a0 | 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | quote-argument)................. |
| 200c0 | 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 6d 65 2d 6e 6f 6e | ..................(file-name-non |
| 200e0 | 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | directory....................... |
| 20100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 | .............buffer-file-name))) |
| 20120 | 29 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 | )...(let.((default-directory.(fi |
| 20140 | 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 | le-name-directory.buffer-file-na |
| 20160 | 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 69 6e 69 74 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 | me)).........(init-point.(point) |
| 20180 | 29 0a 20 20 20 20 20 20 20 20 72 65 73 29 0a 20 20 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 | ).........res).....(unwind-prote |
| 201a0 | 63 74 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 72 65 73 20 28 69 76 79 2d 72 65 61 64 20 | ct..........(setq.res.(ivy-read. |
| 201c0 | 22 67 72 65 70 3a 20 22 20 23 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 66 75 6e 63 74 69 6f 6e | "grep:.".#'counsel-grep-function |
| 201e0 | 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 3a 69 | ..............................:i |
| 20200 | 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 0a 20 20 20 20 20 | nitial-input.initial-input...... |
| 20220 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 | ........................:dynamic |
| 20240 | 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -collection.t................... |
| 20260 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 | ...........:require-match.t..... |
| 20280 | 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 3a 70 72 65 73 65 6c | .........................:presel |
| 202a0 | 65 63 74 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 | ect............................. |
| 202c0 | 20 28 77 68 65 6e 20 28 3c 20 28 2d 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 | .(when.(<.(-.(line-end-position) |
| 202e0 | 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 20 33 30 30 29 | .(line-beginning-position)).300) |
| 20300 | 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 20 | ................................ |
| 20320 | 28 66 6f 72 6d 61 74 20 22 25 64 3a 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (format."%d:%s"................. |
| 20340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 6e 75 6d | .......................(line-num |
| 20360 | 62 65 72 2d 61 74 2d 70 6f 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ber-at-pos)..................... |
| 20380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 | ...................(regexp-quote |
| 203a0 | 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 20 | ................................ |
| 203c0 | 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 | .........(buffer-substring-no-pr |
| 203e0 | 6f 70 65 72 74 69 65 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 | operties........................ |
| 20400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e | ..................(line-beginnin |
| 20420 | 67 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | g-position)..................... |
| 20440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 | .....................(line-end-p |
| 20460 | 6f 73 69 74 69 6f 6e 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | osition))))).................... |
| 20480 | 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6d | ..........:keymap.counsel-grep-m |
| 204a0 | 61 70 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 | ap.............................. |
| 204c0 | 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 68 69 73 74 6f 72 79 0a 20 | :history.'counsel-grep-history.. |
| 204e0 | 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 3a 72 65 2d | ............................:re- |
| 20500 | 62 75 69 6c 64 65 72 20 23 27 69 76 79 2d 2d 72 65 67 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 | builder.#'ivy--regex............ |
| 20520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e | ..................:action.#'coun |
| 20540 | 73 65 6c 2d 67 72 65 70 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sel-grep-action................. |
| 20560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 67 72 | .............:caller.'counsel-gr |
| 20580 | 65 70 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 72 65 73 0a 20 20 20 20 20 20 20 20 28 | ep)).......(unless.res.........( |
| 205a0 | 67 6f 74 6f 2d 63 68 61 72 20 69 6e 69 74 2d 70 6f 69 6e 74 29 29 29 29 29 0a 0a 28 69 76 79 2d | goto-char.init-point)))))..(ivy- |
| 205c0 | 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 0a 20 20 3a 75 70 64 61 74 | configure.'counsel-grep...:updat |
| 205e0 | 65 2d 66 6e 20 27 61 75 74 6f 0a 20 20 3a 75 6e 77 69 6e 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 | e-fn.'auto...:unwind-fn.#'counse |
| 20600 | 6c 2d 2d 67 72 65 70 2d 75 6e 77 69 6e 64 0a 20 20 3a 69 6e 64 65 78 2d 66 6e 20 23 27 69 76 79 | l--grep-unwind...:index-fn.#'ivy |
| 20620 | 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d 73 77 69 70 65 72 2d 61 73 79 6e 63 0a 20 20 | -recompute-index-swiper-async... |
| 20640 | 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 63 63 75 72 0a 20 20 3a 6d | :occur.#'counsel-grep-occur...:m |
| 20660 | 6f 72 65 2d 63 68 61 72 73 20 32 0a 20 20 3a 67 72 65 70 2d 70 20 74 0a 20 20 3a 65 78 69 74 2d | ore-chars.2...:grep-p.t...:exit- |
| 20680 | 63 6f 64 65 73 20 27 28 31 20 22 22 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 | codes.'(1.""))..;;;###autoload.( |
| 206a0 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 63 6b 77 61 72 64 20 28 26 6f 70 | defun.counsel-grep-backward.(&op |
| 206c0 | 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 47 72 65 70 20 66 6f | tional.initial-input)..."Grep.fo |
| 206e0 | 72 20 61 20 73 74 72 69 6e 67 20 69 6e 20 74 68 65 20 66 69 6c 65 20 76 69 73 69 74 65 64 20 62 | r.a.string.in.the.file.visited.b |
| 20700 | 79 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 67 6f 69 6e 67 0a 62 61 63 6b 77 | y.the.current.buffer.going.backw |
| 20720 | 61 72 64 20 73 69 6d 69 6c 61 72 20 74 6f 20 60 73 77 69 70 65 72 2d 62 61 63 6b 77 61 72 64 27 | ard.similar.to.`swiper-backward' |
| 20740 | 2e 20 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 | ..When.non-nil,.INITIAL-INPUT.is |
| 20760 | 0a 74 68 65 20 69 6e 69 74 69 61 6c 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 22 0a 20 20 | .the.initial.search.pattern."... |
| 20780 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 76 79 2d 69 6e 64 65 78 | (interactive)...(let.((ivy-index |
| 207a0 | 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 27 28 28 63 6f 75 | -functions-alist..........'((cou |
| 207c0 | 6e 73 65 6c 2d 67 72 65 70 20 2e 20 69 76 79 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d | nsel-grep...ivy-recompute-index- |
| 207e0 | 73 77 69 70 65 72 2d 61 73 79 6e 63 2d 62 61 63 6b 77 61 72 64 29 29 29 29 0a 20 20 20 20 28 63 | swiper-async-backward)))).....(c |
| 20800 | 6f 75 6e 73 65 6c 2d 67 72 65 70 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 29 29 0a 0a 3b 3b | ounsel-grep.initial-input)))..;; |
| 20820 | 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 72 2d 73 77 69 70 65 72 27 0a 28 64 65 66 | **.`counsel-grep-or-swiper'.(def |
| 20840 | 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 73 77 69 70 65 72 2d 6c 69 6d 69 74 | custom.counsel-grep-swiper-limit |
| 20860 | 20 33 30 30 30 30 30 0a 20 20 22 42 75 66 66 65 72 20 73 69 7a 65 20 74 68 72 65 73 68 6f 6c 64 | .300000..."Buffer.size.threshold |
| 20880 | 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 72 2d 73 77 69 70 65 72 27 2e 0a 57 | .for.`counsel-grep-or-swiper'..W |
| 208a0 | 68 65 6e 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 68 61 72 61 63 74 65 72 73 20 69 6e 20 | hen.the.number.of.characters.in. |
| 208c0 | 61 20 62 75 66 66 65 72 20 65 78 63 65 65 64 73 20 74 68 69 73 20 74 68 72 65 73 68 6f 6c 64 2c | a.buffer.exceeds.this.threshold, |
| 208e0 | 0a 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 27 20 77 69 6c 6c 20 62 65 20 75 73 65 64 20 69 6e 73 | .`counsel-grep'.will.be.used.ins |
| 20900 | 74 65 61 64 20 6f 66 20 60 73 77 69 70 65 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 | tead.of.`swiper'."...:type.'inte |
| 20920 | 67 65 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 75 73 | ger)..(defcustom.counsel-grep-us |
| 20940 | 65 2d 73 77 69 70 65 72 2d 70 20 23 27 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 75 73 65 2d 73 77 | e-swiper-p.#'counsel-grep-use-sw |
| 20960 | 69 70 65 72 2d 70 2d 64 65 66 61 75 6c 74 0a 20 20 22 57 68 65 6e 20 74 68 69 73 20 66 75 6e 63 | iper-p-default..."When.this.func |
| 20980 | 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 63 61 6c 6c 20 60 73 77 69 70 | tion.returns.non-nil,.call.`swip |
| 209a0 | 65 72 27 2c 20 65 6c 73 65 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 27 2e 22 0a 20 20 3a 74 79 | er',.else.`counsel-grep'."...:ty |
| 209c0 | 70 65 20 27 28 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 | pe.'(choice...........(const.:ta |
| 209e0 | 67 20 22 52 65 6c 79 20 6f 6e 20 60 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 73 77 69 70 65 72 2d | g."Rely.on.`counsel-grep-swiper- |
| 20a00 | 6c 69 6d 69 74 27 2e 22 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 | limit'."............counsel-grep |
| 20a20 | 2d 75 73 65 2d 73 77 69 70 65 72 2d 70 2d 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 | -use-swiper-p-default).......... |
| 20a40 | 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 41 6c 77 61 79 73 20 75 73 65 20 60 63 6f 75 6e 73 65 | .(const.:tag."Always.use.`counse |
| 20a60 | 6c 2d 67 72 65 70 27 2e 22 20 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | l-grep'.".ignore)...........(fun |
| 20a80 | 63 74 69 6f 6e 20 3a 74 61 67 20 22 43 75 73 74 6f 6d 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | ction.:tag."Custom")))..(defun.c |
| 20aa0 | 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 75 73 65 2d 73 77 69 70 65 72 2d 70 2d 64 65 66 61 75 6c 74 | ounsel-grep-use-swiper-p-default |
| 20ac0 | 20 28 29 0a 20 20 28 3c 3d 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 0a 20 20 20 20 20 20 28 2f | .()...(<=.(buffer-size).......(/ |
| 20ae0 | 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 73 77 69 70 65 72 2d 6c 69 6d 69 74 0a 20 20 20 20 20 | .counsel-grep-swiper-limit...... |
| 20b00 | 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6f 72 67 2d 6d 6f 64 65 | ....(if.(eq.major-mode.'org-mode |
| 20b20 | 29 20 34 20 31 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | ).4.1))))..;;;###autoload.(defun |
| 20b40 | 20 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 72 2d 73 77 69 70 65 72 20 28 26 6f 70 74 69 6f 6e | .counsel-grep-or-swiper.(&option |
| 20b60 | 61 6c 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 43 61 6c 6c 20 60 73 77 69 70 65 | al.initial-input)..."Call.`swipe |
| 20b80 | 72 27 20 66 6f 72 20 73 6d 61 6c 6c 20 62 75 66 66 65 72 73 20 61 6e 64 20 60 63 6f 75 6e 73 65 | r'.for.small.buffers.and.`counse |
| 20ba0 | 6c 2d 67 72 65 70 27 20 66 6f 72 20 6c 61 72 67 65 20 6f 6e 65 73 2e 0a 57 68 65 6e 20 6e 6f 6e | l-grep'.for.large.ones..When.non |
| 20bc0 | 2d 6e 69 6c 2c 20 49 4e 49 54 49 41 4c 2d 49 4e 50 55 54 20 69 73 20 74 68 65 20 69 6e 69 74 69 | -nil,.INITIAL-INPUT.is.the.initi |
| 20be0 | 61 6c 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | al.search.pattern."...(interacti |
| 20c00 | 76 65 29 0a 20 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e | ve)...(if.(or.(not.buffer-file-n |
| 20c20 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6e 61 72 72 6f 77 65 64 2d | ame)...........(buffer-narrowed- |
| 20c40 | 70 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 | p)...........(ignore-errors..... |
| 20c60 | 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 62 75 66 66 65 72 2d 66 69 | ........(file-remote-p.buffer-fi |
| 20c80 | 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6a 6b 61 2d 63 6f 6d 70 72 2d 67 | le-name))...........(jka-compr-g |
| 20ca0 | 65 74 2d 63 6f 6d 70 72 65 73 73 69 6f 6e 2d 69 6e 66 6f 20 62 75 66 66 65 72 2d 66 69 6c 65 2d | et-compression-info.buffer-file- |
| 20cc0 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 63 6f 75 6e 73 65 6c | name)...........(funcall.counsel |
| 20ce0 | 2d 67 72 65 70 2d 75 73 65 2d 73 77 69 70 65 72 2d 70 29 29 0a 20 20 20 20 20 20 28 73 77 69 70 | -grep-use-swiper-p)).......(swip |
| 20d00 | 65 72 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 77 68 65 6e 20 28 66 69 6c | er.initial-input).....(when.(fil |
| 20d20 | 65 2d 77 72 69 74 61 62 6c 65 2d 70 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 | e-writable-p.buffer-file-name).. |
| 20d40 | 20 20 20 20 20 28 73 61 76 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c | .....(save-buffer)).....(counsel |
| 20d60 | 2d 67 72 65 70 20 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f | -grep.initial-input)))..;;**.`co |
| 20d80 | 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 72 2d 73 77 69 70 65 72 2d 62 61 63 6b 77 61 72 64 27 0a 3b | unsel-grep-or-swiper-backward'.; |
| 20da0 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 72 65 | ;;###autoload.(defun.counsel-gre |
| 20dc0 | 70 2d 6f 72 2d 73 77 69 70 65 72 2d 62 61 63 6b 77 61 72 64 20 28 26 6f 70 74 69 6f 6e 61 6c 20 | p-or-swiper-backward.(&optional. |
| 20de0 | 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 29 0a 20 20 22 43 61 6c 6c 20 60 73 77 69 70 65 72 2d 62 | initial-input)..."Call.`swiper-b |
| 20e00 | 61 63 6b 77 61 72 64 27 20 66 6f 72 20 73 6d 61 6c 6c 20 62 75 66 66 65 72 73 20 61 6e 64 20 60 | ackward'.for.small.buffers.and.` |
| 20e20 | 63 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 62 61 63 6b 77 61 72 64 27 20 66 6f 72 0a 6c 61 72 67 65 | counsel-grep-backward'.for.large |
| 20e40 | 20 6f 6e 65 73 2e 20 20 57 68 65 6e 20 6e 6f 6e 2d 6e 69 6c 2c 20 49 4e 49 54 49 41 4c 2d 49 4e | .ones...When.non-nil,.INITIAL-IN |
| 20e60 | 50 55 54 20 69 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 73 65 61 72 63 68 20 70 61 74 74 65 72 | PUT.is.the.initial.search.patter |
| 20e80 | 6e 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 76 79 | n."...(interactive)...(let.((ivy |
| 20ea0 | 2d 69 6e 64 65 78 2d 66 75 6e 63 74 69 6f 6e 73 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | -index-functions-alist.......... |
| 20ec0 | 27 28 28 73 77 69 70 65 72 20 2e 20 69 76 79 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d | '((swiper...ivy-recompute-index- |
| 20ee0 | 73 77 69 70 65 72 2d 62 61 63 6b 77 61 72 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 | swiper-backward)............(cou |
| 20f00 | 6e 73 65 6c 2d 67 72 65 70 20 2e 20 69 76 79 2d 72 65 63 6f 6d 70 75 74 65 2d 69 6e 64 65 78 2d | nsel-grep...ivy-recompute-index- |
| 20f20 | 73 77 69 70 65 72 2d 61 73 79 6e 63 2d 62 61 63 6b 77 61 72 64 29 29 29 29 0a 20 20 20 20 28 63 | swiper-async-backward)))).....(c |
| 20f40 | 6f 75 6e 73 65 6c 2d 67 72 65 70 2d 6f 72 2d 73 77 69 70 65 72 20 69 6e 69 74 69 61 6c 2d 69 6e | ounsel-grep-or-swiper.initial-in |
| 20f60 | 70 75 74 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 27 0a 28 64 | put)))..;;**.`counsel-recoll'.(d |
| 20f80 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 73 74 | efun.counsel-recoll-function.(st |
| 20fa0 | 72 29 0a 20 20 22 52 75 6e 20 72 65 63 6f 6c 6c 20 66 6f 72 20 53 54 52 2e 22 0a 20 20 28 6f 72 | r)..."Run.recoll.for.STR."...(or |
| 20fc0 | 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 70 72 6f 67 6e 0a 20 | ....(ivy-more-chars)....(progn.. |
| 20fe0 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 61 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 | ....(counsel--async-command..... |
| 21000 | 20 20 28 66 6f 72 6d 61 74 20 22 72 65 63 6f 6c 6c 20 2d 74 20 2d 62 20 25 73 22 0a 20 20 20 20 | ..(format."recoll.-t.-b.%s"..... |
| 21020 | 20 20 20 20 20 20 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 | ..........(shell-quote-argument. |
| 21040 | 73 74 72 29 29 29 0a 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 63 6f 6d 6d | str)))......nil)))..;;.This.comm |
| 21060 | 61 6e 64 20 75 73 65 73 20 74 68 65 20 72 65 63 6f 6c 6c 71 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e | and.uses.the.recollq.command.lin |
| 21080 | 65 20 74 6f 6f 6c 20 74 68 61 74 20 63 6f 6d 65 73 20 74 6f 67 65 74 68 65 72 0a 3b 3b 20 77 69 | e.tool.that.comes.together.;;.wi |
| 210a0 | 74 68 20 74 68 65 20 72 65 63 6f 6c 6c 20 28 74 68 65 20 64 6f 63 75 6d 65 6e 74 20 69 6e 64 65 | th.the.recoll.(the.document.inde |
| 210c0 | 78 69 6e 67 20 64 61 74 61 62 61 73 65 29 20 73 6f 75 72 63 65 3a 0a 3b 3b 20 20 20 20 20 68 74 | xing.database).source:.;;.....ht |
| 210e0 | 74 70 73 3a 2f 2f 77 77 77 2e 6c 65 73 62 6f 6e 73 63 6f 6d 70 74 65 73 2e 63 6f 6d 2f 72 65 63 | tps://www.lesbonscomptes.com/rec |
| 21100 | 6f 6c 6c 2f 64 6f 77 6e 6c 6f 61 64 2e 68 74 6d 6c 0a 3b 3b 20 59 6f 75 20 6e 65 65 64 20 74 6f | oll/download.html.;;.You.need.to |
| 21120 | 20 62 75 69 6c 64 20 69 74 20 79 6f 75 72 73 65 6c 66 20 28 74 6f 67 65 74 68 65 72 20 77 69 74 | .build.it.yourself.(together.wit |
| 21140 | 68 20 72 65 63 6f 6c 6c 29 3a 0a 3b 3b 20 20 20 20 20 63 64 20 2e 2f 71 75 65 72 79 20 26 26 20 | h.recoll):.;;.....cd../query.&&. |
| 21160 | 6d 61 6b 65 20 26 26 20 73 75 64 6f 20 63 70 20 72 65 63 6f 6c 6c 71 20 2f 75 73 72 2f 6c 6f 63 | make.&&.sudo.cp.recollq./usr/loc |
| 21180 | 61 6c 2f 62 69 6e 0a 3b 3b 20 59 6f 75 20 63 61 6e 20 74 72 79 20 74 68 65 20 47 55 49 20 76 65 | al/bin.;;.You.can.try.the.GUI.ve |
| 211a0 | 72 73 69 6f 6e 20 6f 66 20 72 65 63 6f 6c 6c 20 77 69 74 68 3a 0a 3b 3b 20 20 20 20 20 73 75 64 | rsion.of.recoll.with:.;;.....sud |
| 211c0 | 6f 20 61 70 74 2d 67 65 74 20 69 6e 73 74 61 6c 6c 20 72 65 63 6f 6c 6c 0a 3b 3b 20 55 6e 66 6f | o.apt-get.install.recoll.;;.Unfo |
| 211e0 | 72 74 75 6e 61 74 65 6c 79 2c 20 74 68 61 74 20 64 6f 65 73 20 6e 6f 74 20 69 6e 73 74 61 6c 6c | rtunately,.that.does.not.install |
| 21200 | 20 72 65 63 6f 6c 6c 71 2e 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 | .recollq..;;;###autoload.(defun. |
| 21220 | 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 69 74 69 61 | counsel-recoll.(&optional.initia |
| 21240 | 6c 2d 69 6e 70 75 74 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 20 61 20 73 74 72 69 6e 67 20 | l-input)..."Search.for.a.string. |
| 21260 | 69 6e 20 74 68 65 20 72 65 63 6f 6c 6c 20 64 61 74 61 62 61 73 65 2e 0a 59 6f 75 27 6c 6c 20 62 | in.the.recoll.database..You'll.b |
| 21280 | 65 20 67 69 76 65 6e 20 61 20 6c 69 73 74 20 6f 66 20 66 69 6c 65 73 20 74 68 61 74 20 6d 61 74 | e.given.a.list.of.files.that.mat |
| 212a0 | 63 68 2e 0a 53 65 6c 65 63 74 69 6e 67 20 61 20 66 69 6c 65 20 77 69 6c 6c 20 6c 61 75 6e 63 68 | ch..Selecting.a.file.will.launch |
| 212c0 | 20 60 73 77 69 70 65 72 27 20 66 6f 72 20 74 68 61 74 20 66 69 6c 65 2e 0a 49 4e 49 54 49 41 4c | .`swiper'.for.that.file..INITIAL |
| 212e0 | 2d 49 4e 50 55 54 20 63 61 6e 20 62 65 20 67 69 76 65 6e 20 61 73 20 74 68 65 20 69 6e 69 74 69 | -INPUT.can.be.given.as.the.initi |
| 21300 | 61 6c 20 6d 69 6e 69 62 75 66 66 65 72 20 69 6e 70 75 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 | al.minibuffer.input."...(interac |
| 21320 | 74 69 76 65 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 72 65 71 75 69 72 65 2d 70 72 6f 67 72 61 6d | tive)...(counsel-require-program |
| 21340 | 20 22 72 65 63 6f 6c 6c 22 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 72 65 63 6f 6c 6c 3a 20 | ."recoll")...(ivy-read."recoll:. |
| 21360 | 22 20 27 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 | ".'counsel-recoll-function...... |
| 21380 | 20 20 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 69 74 69 61 6c 2d 69 6e | .......:initial-input.initial-in |
| 213a0 | 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 2d 63 6f 6c 6c 65 63 74 | put.............:dynamic-collect |
| 213c0 | 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e | ion.t.............:history.'coun |
| 213e0 | 73 65 6c 2d 67 69 74 2d 67 72 65 70 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 | sel-git-grep-history............ |
| 21400 | 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .:action.(lambda.(x)............ |
| 21420 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 | ...........(when.(string-match." |
| 21440 | 66 69 6c 65 3a 2f 2f 5c 5c 28 2e 2a 5c 5c 29 5c 5c 27 22 20 78 29 0a 20 20 20 20 20 20 20 20 20 | file://\\(.*\\)\\'".x).......... |
| 21460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 2d 6e 61 6d 65 20 | ...............(let.((file-name. |
| 21480 | 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (match-string.1.x)))............ |
| 214a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 2d 6e | ...............(find-file.file-n |
| 214c0 | 61 6d 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 20 20 28 | ame)...........................( |
| 214e0 | 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 70 64 66 24 22 20 78 29 0a 20 | unless.(string-match."pdf$".x).. |
| 21500 | 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 77 69 70 | ...........................(swip |
| 21520 | 65 72 20 69 76 79 2d 74 65 78 74 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 | er.ivy-text))))).............:ca |
| 21540 | 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 29 29 0a 0a 28 69 76 79 2d 63 6f 6e | ller.'counsel-recoll))..(ivy-con |
| 21560 | 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 72 65 63 6f 6c 6c 0a 20 20 3a 75 6e 77 69 6e 64 | figure.'counsel-recoll...:unwind |
| 21580 | 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 29 0a 0a 3b | -fn.#'counsel-delete-process)..; |
| 215a0 | 3b 2a 20 4f 72 67 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 27 0a 28 64 | ;*.Org.;;**.`counsel-org-tag'.(d |
| 215c0 | 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 20 6e 69 6c 0a 20 20 22 53 74 | efvar.counsel-org-tags.nil..."St |
| 215e0 | 6f 72 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 6c 69 73 74 20 6f 66 20 74 61 67 73 2e 22 29 0a | ore.the.current.list.of.tags."). |
| 21600 | 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 0a 28 64 65 | .(defvar.org-outline-regexp).(de |
| 21620 | 66 76 61 72 20 6f 72 67 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 29 0a 28 64 65 66 76 61 72 20 6f 72 | fvar.org-indent-mode).(defvar.or |
| 21640 | 67 2d 69 6e 64 65 6e 74 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 2d 70 65 72 2d 6c 65 76 65 6c 29 0a | g-indent-indentation-per-level). |
| 21660 | 28 64 65 66 76 61 72 20 6f 72 67 2d 74 61 67 73 2d 63 6f 6c 75 6d 6e 29 0a 28 64 65 63 6c 61 72 | (defvar.org-tags-column).(declar |
| 21680 | 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d 74 61 67 73 2d 73 74 72 69 6e 67 20 22 | e-function.org-get-tags-string." |
| 216a0 | 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d | org").(declare-function.org-get- |
| 216c0 | 74 61 67 73 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 | tags."org").(declare-function.or |
| 216e0 | 67 2d 6d 61 6b 65 2d 74 61 67 2d 73 74 72 69 6e 67 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 | g-make-tag-string."org").(declar |
| 21700 | 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 22 6f | e-function.org-move-to-column."o |
| 21720 | 72 67 2d 63 6f 6d 70 61 74 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 | rg-compat")..(defun.counsel--org |
| 21740 | 2d 6d 61 6b 65 2d 74 61 67 2d 73 74 72 69 6e 67 20 28 29 0a 20 20 28 69 66 20 28 66 62 6f 75 6e | -make-tag-string.()...(if.(fboun |
| 21760 | 64 70 20 23 27 6f 72 67 2d 6d 61 6b 65 2d 74 61 67 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 | dp.#'org-make-tag-string)....... |
| 21780 | 3b 3b 20 3e 3d 20 4f 72 67 20 39 2e 32 0a 20 20 20 20 20 20 28 6f 72 67 2d 6d 61 6b 65 2d 74 61 | ;;.>=.Org.9.2.......(org-make-ta |
| 217a0 | 67 2d 73 74 72 69 6e 67 20 28 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d 67 65 74 2d 74 61 67 73 29 | g-string.(counsel--org-get-tags) |
| 217c0 | 29 0a 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 28 6f | ).....(with-no-warnings.......(o |
| 217e0 | 72 67 2d 67 65 74 2d 74 61 67 73 2d 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | rg-get-tags-string))))..(defun.c |
| 21800 | 6f 75 6e 73 65 6c 2d 6f 72 67 2d 63 68 61 6e 67 65 2d 74 61 67 73 20 28 74 61 67 73 29 0a 20 20 | ounsel-org-change-tags.(tags)... |
| 21820 | 22 43 68 61 6e 67 65 20 74 61 67 73 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 72 67 20 68 65 61 64 | "Change.tags.of.current.org.head |
| 21840 | 6c 69 6e 65 20 74 6f 20 54 41 47 53 2e 22 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 20 | line.to.TAGS."...(let.((current. |
| 21860 | 28 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d 6d 61 6b 65 2d 74 61 67 2d 73 74 72 69 6e 67 29 29 0a | (counsel--org-make-tag-string)). |
| 21880 | 20 20 20 20 20 20 20 20 28 63 6f 6c 20 28 63 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 | ........(col.(current-column)).. |
| 218a0 | 20 20 20 20 20 20 20 6c 65 76 65 6c 29 0a 20 20 20 20 3b 3b 20 49 6e 73 65 72 74 20 6e 65 77 20 | .......level).....;;.Insert.new. |
| 218c0 | 74 61 67 73 20 61 74 20 74 68 65 20 63 6f 72 72 65 63 74 20 63 6f 6c 75 6d 6e 0a 20 20 20 20 28 | tags.at.the.correct.column.....( |
| 218e0 | 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 31 29 0a 20 20 20 20 28 73 65 74 71 20 6c | beginning-of-line.1).....(setq.l |
| 21900 | 65 76 65 6c 20 28 6f 72 20 28 61 6e 64 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 6f 72 67 2d 6f 75 | evel.(or.(and.(looking-at.org-ou |
| 21920 | 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tline-regexp)................... |
| 21940 | 20 20 20 20 20 20 20 28 2d 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 20 28 70 6f 69 6e 74 29 20 | .......(-.(match-end.0).(point). |
| 21960 | 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 31 29 29 0a 20 20 20 20 | 1)).....................1))..... |
| 21980 | 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 75 61 6c 20 63 75 72 72 65 6e 74 | (cond.......((and.(equal.current |
| 219a0 | 20 22 22 29 20 28 65 71 75 61 6c 20 74 61 67 73 20 22 22 29 29 29 0a 20 20 20 20 20 20 28 28 72 | ."").(equal.tags.""))).......((r |
| 219c0 | 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 | e-search-forward.........(concat |
| 219e0 | 20 22 5c 5c 28 5b 20 5c 74 5d 2a 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 63 75 72 72 65 | ."\\([.\t]*".(regexp-quote.curre |
| 21a00 | 6e 74 29 20 22 5c 5c 29 5b 20 5c 74 5d 2a 24 22 29 0a 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d | nt)."\\)[.\t]*$").........(line- |
| 21a20 | 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 20 74 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 | end-position).t)........(if.(equ |
| 21a40 | 61 6c 20 74 61 67 73 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 | al.tags."")............(delete-r |
| 21a60 | 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 | egion.............(match-beginni |
| 21a80 | 6e 67 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 2d 65 6e 64 20 30 29 29 | ng.0).............(match-end.0)) |
| 21aa0 | 0a 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d 61 74 63 68 2d 62 65 67 69 | ..........(goto-char.(match-begi |
| 21ac0 | 6e 6e 69 6e 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 30 20 28 63 | nning.0))..........(let*.((c0.(c |
| 21ae0 | 75 72 72 65 6e 74 2d 63 6f 6c 75 6d 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | urrent-column))................. |
| 21b00 | 3b 3b 20 63 6f 6d 70 75 74 65 20 6f 66 66 73 65 74 20 66 6f 72 20 74 68 65 20 63 61 73 65 20 6f | ;;.compute.offset.for.the.case.o |
| 21b20 | 66 20 6f 72 67 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 20 61 63 74 69 76 65 0a 20 20 20 20 20 20 20 | f.org-indent-mode.active........ |
| 21b40 | 20 20 20 20 20 20 20 20 20 28 64 69 20 28 69 66 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 | .........(di.(if.(bound-and-true |
| 21b60 | 2d 70 20 6f 72 67 2d 69 6e 64 65 6e 74 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -p.org-indent-mode)............. |
| 21b80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 2a 20 28 31 2d 20 6f 72 67 2d 69 6e 64 65 6e 74 2d 69 6e | ............(*.(1-.org-indent-in |
| 21ba0 | 64 65 6e 74 61 74 69 6f 6e 2d 70 65 72 2d 6c 65 76 65 6c 29 20 28 31 2d 20 6c 65 76 65 6c 29 29 | dentation-per-level).(1-.level)) |
| 21bc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 29 29 0a 20 20 20 20 20 | .......................0))...... |
| 21be0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 30 20 28 69 66 20 28 65 71 75 61 6c 20 28 63 68 61 72 2d | ...........(p0.(if.(equal.(char- |
| 21c00 | 62 65 66 6f 72 65 29 20 3f 2a 29 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 20 28 70 6f 69 6e 74 29 | before).?*).(1+.(point)).(point) |
| 21c20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 63 20 28 2b 20 6f 72 67 2d 74 61 | )).................(tc.(+.org-ta |
| 21c40 | 67 73 2d 63 6f 6c 75 6d 6e 20 28 69 66 20 28 3e 20 6f 72 67 2d 74 61 67 73 2d 63 6f 6c 75 6d 6e | gs-column.(if.(>.org-tags-column |
| 21c60 | 20 30 29 20 28 2d 20 64 69 29 20 64 69 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .0).(-.di).di)))................ |
| 21c80 | 20 28 63 31 20 28 6d 61 78 20 28 31 2b 20 63 30 29 20 28 69 66 20 28 3e 20 74 63 20 30 29 20 74 | .(c1.(max.(1+.c0).(if.(>.tc.0).t |
| 21ca0 | 63 20 28 2d 20 28 2d 20 74 63 29 20 28 73 74 72 69 6e 67 2d 77 69 64 74 68 20 74 61 67 73 29 29 | c.(-.(-.tc).(string-width.tags)) |
| 21cc0 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 70 6c 20 28 63 6f 6e 63 61 74 | ))).................(rpl.(concat |
| 21ce0 | 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 6d 61 78 20 30 20 28 2d 20 63 31 20 63 30 29 29 20 | .(make-string.(max.0.(-.c1.c0)). |
| 21d00 | 3f 5c 20 29 20 74 61 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 | ?\.).tags)))............(replace |
| 21d20 | 2d 6d 61 74 63 68 20 72 70 6c 20 74 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 | -match.rpl.t.t)............(and. |
| 21d40 | 63 30 20 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 28 74 61 62 69 66 79 20 70 30 20 28 | c0.indent-tabs-mode.(tabify.p0.( |
| 21d60 | 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 74 61 67 73 29 29 29 0a 20 20 20 20 | point)))............tags)))..... |
| 21d80 | 20 20 28 74 20 28 65 72 72 6f 72 20 22 54 61 67 73 20 61 6c 69 67 6e 6d 65 6e 74 20 66 61 69 6c | ..(t.(error."Tags.alignment.fail |
| 21da0 | 65 64 22 29 29 29 0a 20 20 20 20 28 6f 72 67 2d 6d 6f 76 65 2d 74 6f 2d 63 6f 6c 75 6d 6e 20 63 | ed"))).....(org-move-to-column.c |
| 21dc0 | 6f 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 2d 73 65 74 2d 74 | ol)))..(defun.counsel-org--set-t |
| 21de0 | 61 67 73 20 28 29 0a 20 20 22 53 65 74 20 74 61 67 73 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 72 | ags.()..."Set.tags.of.current.or |
| 21e00 | 67 20 68 65 61 64 6c 69 6e 65 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 27 | g.headline.to.`counsel-org-tags' |
| 21e20 | 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 63 68 61 6e 67 65 2d 74 61 67 73 0a 20 20 | ."...(counsel-org-change-tags... |
| 21e40 | 20 28 69 66 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 0a 20 20 20 20 20 20 20 28 66 6f | .(if.counsel-org-tags........(fo |
| 21e60 | 72 6d 61 74 20 22 3a 25 73 3a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 | rmat.":%s:"................(mapc |
| 21e80 | 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 | oncat.#'identity.counsel-org-tag |
| 21ea0 | 73 20 22 3a 22 29 29 0a 20 20 20 20 20 22 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d | s.":"))......"")))..(defvar.org- |
| 21ec0 | 61 67 65 6e 64 61 2d 62 75 6c 6b 2d 6d 61 72 6b 65 64 2d 65 6e 74 72 69 65 73 29 0a 0a 28 64 65 | agenda-bulk-marked-entries)..(de |
| 21ee0 | 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d 61 74 2d 62 6f 6c 20 22 6f | clare-function.org-get-at-bol."o |
| 21f00 | 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 67 65 6e 64 | rg").(declare-function.org-agend |
| 21f20 | 61 2d 65 72 72 6f 72 20 22 6f 72 67 2d 61 67 65 6e 64 61 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f | a-error."org-agenda")..(defun.co |
| 21f40 | 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 41 64 64 20 | unsel-org-tag-action.(x)..."Add. |
| 21f60 | 74 61 67 20 58 20 74 6f 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 27 2e 0a 49 66 20 | tag.X.to.`counsel-org-tags'..If. |
| 21f80 | 58 20 69 73 20 61 6c 72 65 61 64 79 20 70 61 72 74 20 6f 66 20 74 68 65 20 6c 69 73 74 2c 20 72 | X.is.already.part.of.the.list,.r |
| 21fa0 | 65 6d 6f 76 65 20 69 74 20 69 6e 73 74 65 61 64 2e 20 20 51 75 69 74 20 74 68 65 20 73 65 6c 65 | emove.it.instead...Quit.the.sele |
| 21fc0 | 63 74 69 6f 6e 20 69 66 0a 58 20 69 73 20 73 65 6c 65 63 74 65 64 20 62 79 20 65 69 74 68 65 72 | ction.if.X.is.selected.by.either |
| 21fe0 | 20 60 69 76 79 2d 64 6f 6e 65 27 2c 20 60 69 76 79 2d 61 6c 74 2d 64 6f 6e 65 27 20 6f 72 20 60 | .`ivy-done',.`ivy-alt-done'.or.` |
| 22000 | 69 76 79 2d 69 6d 6d 65 64 69 61 74 65 2d 64 6f 6e 65 27 2c 0a 6f 74 68 65 72 77 69 73 65 20 63 | ivy-immediate-done',.otherwise.c |
| 22020 | 6f 6e 74 69 6e 75 65 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 74 61 67 73 2e 22 0a 20 20 28 | ontinue.prompting.for.tags."...( |
| 22040 | 69 66 20 28 6d 65 6d 62 65 72 20 78 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 29 0a 20 | if.(member.x.counsel-org-tags).. |
| 22060 | 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 | .....(progn.........(setq.counse |
| 22080 | 6c 2d 6f 72 67 2d 74 61 67 73 20 28 64 65 6c 65 74 65 20 78 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 | l-org-tags.(delete.x.counsel-org |
| 220a0 | 2d 74 61 67 73 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 78 20 22 22 | -tags))).....(unless.(equal.x."" |
| 220c0 | 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 20 28 | ).......(setq.counsel-org-tags.( |
| 220e0 | 61 70 70 65 6e 64 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 20 28 6c 69 73 74 20 78 29 | append.counsel-org-tags.(list.x) |
| 22100 | 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 78 20 69 76 79 2d 2d | )).......(unless.(member.x.ivy-- |
| 22120 | 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 76 | all-candidates).........(setq.iv |
| 22140 | 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 20 28 61 70 70 65 6e 64 20 69 76 79 2d 2d 61 | y--all-candidates.(append.ivy--a |
| 22160 | 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 20 28 6c 69 73 74 20 78 29 29 29 29 29 29 0a 20 20 28 6c | ll-candidates.(list.x))))))...(l |
| 22180 | 65 74 20 28 28 70 72 6f 6d 70 74 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 70 72 6f | et.((prompt.(counsel-org-tag-pro |
| 221a0 | 6d 70 74 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 6f 6d | mpt))).....(setf.(ivy-state-prom |
| 221c0 | 70 74 20 69 76 79 2d 6c 61 73 74 29 20 70 72 6f 6d 70 74 29 0a 20 20 20 20 28 73 65 74 71 20 69 | pt.ivy-last).prompt).....(setq.i |
| 221e0 | 76 79 2d 2d 70 72 6f 6d 70 74 20 28 63 6f 6e 63 61 74 20 22 25 2d 34 64 20 22 20 70 72 6f 6d 70 | vy--prompt.(concat."%-4d.".promp |
| 22200 | 74 29 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 | t)))...(cond.((memq.this-command |
| 22220 | 20 27 28 69 76 79 2d 64 6f 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'(ivy-done..................... |
| 22240 | 20 20 20 20 20 20 20 20 20 20 69 76 79 2d 61 6c 74 2d 64 6f 6e 65 0a 20 20 20 20 20 20 20 20 20 | ..........ivy-alt-done.......... |
| 22260 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 76 79 2d 69 6d 6d 65 64 69 61 | .....................ivy-immedia |
| 22280 | 74 65 2d 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 | te-done))..........(if.(eq.major |
| 222a0 | 2d 6d 6f 64 65 20 27 6f 72 67 2d 61 67 65 6e 64 61 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 | -mode.'org-agenda-mode)......... |
| 222c0 | 20 20 20 20 20 28 69 66 20 28 6e 75 6c 6c 20 6f 72 67 2d 61 67 65 6e 64 61 2d 62 75 6c 6b 2d 6d | .....(if.(null.org-agenda-bulk-m |
| 222e0 | 61 72 6b 65 64 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | arked-entries).................. |
| 22300 | 28 6c 65 74 20 28 28 68 64 6d 61 72 6b 65 72 20 28 6f 72 20 28 6f 72 67 2d 67 65 74 2d 61 74 2d | (let.((hdmarker.(or.(org-get-at- |
| 22320 | 62 6f 6c 20 27 6f 72 67 2d 68 64 2d 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | bol.'org-hd-marker)............. |
| 22340 | 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 6f 72 67 2d 61 67 | .........................(org-ag |
| 22360 | 65 6e 64 61 2d 65 72 72 6f 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | enda-error)))).................. |
| 22380 | 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6d 61 72 6b 65 72 2d 62 | ..(with-current-buffer.(marker-b |
| 223a0 | 75 66 66 65 72 20 68 64 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | uffer.hdmarker)................. |
| 223c0 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 68 64 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 | .....(goto-char.hdmarker)....... |
| 223e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 2d 73 65 74 | ...............(counsel-org--set |
| 22400 | 2d 74 61 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 | -tags)))................(let.((a |
| 22420 | 64 64 2d 74 61 67 73 20 28 63 6f 70 79 2d 73 65 71 75 65 6e 63 65 20 63 6f 75 6e 73 65 6c 2d 6f | dd-tags.(copy-sequence.counsel-o |
| 22440 | 72 67 2d 74 61 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c | rg-tags)))..................(dol |
| 22460 | 69 73 74 20 28 6d 20 6f 72 67 2d 61 67 65 6e 64 61 2d 62 75 6c 6b 2d 6d 61 72 6b 65 64 2d 65 6e | ist.(m.org-agenda-bulk-marked-en |
| 22480 | 74 72 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d | tries)....................(with- |
| 224a0 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6d 61 72 6b 65 72 2d 62 75 66 66 65 72 20 6d 29 | current-buffer.(marker-buffer.m) |
| 224c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 | ......................(save-excu |
| 224e0 | 72 73 69 6f 6e 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 67 6f | rsion........................(go |
| 22500 | 74 6f 2d 63 68 61 72 20 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | to-char.m)...................... |
| 22520 | 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 0a 20 20 20 20 20 20 20 | ..(setq.counsel-org-tags........ |
| 22540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 64 75 | ......................(delete-du |
| 22560 | 70 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 | ps.............................. |
| 22580 | 20 28 61 70 70 65 6e 64 20 28 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d 67 65 74 2d 74 61 67 73 29 | .(append.(counsel--org-get-tags) |
| 225a0 | 20 61 64 64 2d 74 61 67 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .add-tags))).................... |
| 225c0 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 2d 73 65 74 2d 74 61 67 73 29 29 29 29 29 29 | ....(counsel-org--set-tags)))))) |
| 225e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 2d 73 65 74 2d 74 61 | ............(counsel-org--set-ta |
| 22600 | 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 78 | gs)............(unless.(member.x |
| 22620 | 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .counsel-org-tags).............. |
| 22640 | 28 6d 65 73 73 61 67 65 20 22 54 61 67 20 25 53 20 68 61 73 20 62 65 65 6e 20 72 65 6d 6f 76 65 | (message."Tag.%S.has.been.remove |
| 22660 | 64 2e 22 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 65 71 20 74 68 69 73 2d 63 6f 6d 6d | d.".x)))).........((eq.this-comm |
| 22680 | 61 6e 64 20 27 69 76 79 2d 63 61 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 | and.'ivy-call)..........(with-se |
| 226a0 | 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 61 63 74 69 76 65 2d 6d 69 6e 69 62 75 66 66 65 72 | lected-window.(active-minibuffer |
| 226c0 | 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 6d 69 6e 69 | -window)............(delete-mini |
| 226e0 | 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | buffer-contents)))))..(defun.cou |
| 22700 | 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 70 72 6f 6d 70 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e | nsel-org-tag-prompt.()..."Return |
| 22720 | 20 70 72 6f 6d 70 74 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 27 2e 22 0a | .prompt.for.`counsel-org-tag'.". |
| 22740 | 20 20 28 66 6f 72 6d 61 74 20 22 54 61 67 73 20 28 25 73 29 3a 20 22 0a 20 20 20 20 20 20 20 20 | ..(format."Tags.(%s):."......... |
| 22760 | 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 63 6f 75 6e 73 65 6c 2d | ..(mapconcat.#'identity.counsel- |
| 22780 | 6f 72 67 2d 74 61 67 73 20 22 2c 20 22 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 73 65 | org-tags.",.")))..(defvar.org-se |
| 227a0 | 74 74 69 6e 67 2d 74 61 67 73 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 6c 61 73 74 2d 74 61 67 | tting-tags).(defvar.org-last-tag |
| 227c0 | 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d | s-completion-table).(defvar.org- |
| 227e0 | 74 61 67 2d 70 65 72 73 69 73 74 65 6e 74 2d 61 6c 69 73 74 29 0a 28 64 65 66 76 61 72 20 6f 72 | tag-persistent-alist).(defvar.or |
| 22800 | 67 2d 74 61 67 2d 61 6c 69 73 74 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 63 6f 6d 70 6c 65 74 | g-tag-alist).(defvar.org-complet |
| 22820 | 65 2d 74 61 67 73 2d 61 6c 77 61 79 73 2d 6f 66 66 65 72 2d 61 6c 6c 2d 61 67 65 6e 64 61 2d 74 | e-tags-always-offer-all-agenda-t |
| 22840 | 61 67 73 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 74 2d 68 | ags)..(declare-function.org-at-h |
| 22860 | 65 61 64 69 6e 67 2d 70 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f | eading-p."org").(declare-functio |
| 22880 | 6e 20 6f 72 67 2d 62 61 63 6b 2d 74 6f 2d 68 65 61 64 69 6e 67 20 22 6f 72 67 22 29 0a 28 64 65 | n.org-back-to-heading."org").(de |
| 228a0 | 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d 62 75 66 66 65 72 2d 74 61 | clare-function.org-get-buffer-ta |
| 228c0 | 67 73 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d | gs."org").(declare-function.org- |
| 228e0 | 67 6c 6f 62 61 6c 2d 74 61 67 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 20 22 6f 72 | global-tags-completion-table."or |
| 22900 | 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 67 65 6e 64 61 | g").(declare-function.org-agenda |
| 22920 | 2d 66 69 6c 65 73 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 | -files."org").(declare-function. |
| 22940 | 6f 72 67 2d 61 67 65 6e 64 61 2d 73 65 74 2d 74 61 67 73 20 22 6f 72 67 2d 61 67 65 6e 64 61 22 | org-agenda-set-tags."org-agenda" |
| 22960 | 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 74 61 67 73 2d 63 6f 6d | ).(declare-function.org-tags-com |
| 22980 | 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 22 6f 72 67 22 29 0a 0a 3b 3b 3b 23 23 23 61 | pletion-function."org")..;;;###a |
| 229a0 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d 67 65 74 2d | utoload.(defun.counsel--org-get- |
| 229c0 | 74 61 67 73 20 28 29 0a 20 20 28 64 65 6c 65 74 65 20 22 22 20 28 63 6f 6e 64 69 74 69 6f 6e 2d | tags.()...(delete."".(condition- |
| 229e0 | 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 67 | case.nil..................(org-g |
| 22a00 | 65 74 2d 74 61 67 73 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | et-tags.nil.t)................(e |
| 22a20 | 72 72 6f 72 20 28 6f 72 67 2d 67 65 74 2d 74 61 67 73 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 | rror.(org-get-tags)))))..;;;###a |
| 22a40 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 20 28 | utoload.(defun.counsel-org-tag.( |
| 22a60 | 29 0a 20 20 22 41 64 64 20 6f 72 20 72 65 6d 6f 76 65 20 74 61 67 73 20 69 6e 20 60 6f 72 67 2d | )..."Add.or.remove.tags.in.`org- |
| 22a80 | 6d 6f 64 65 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 61 76 65 2d | mode'."...(interactive)...(save- |
| 22aa0 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 | excursion.....(if.(eq.major-mode |
| 22ac0 | 20 27 6f 72 67 2d 61 67 65 6e 64 61 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 6f | .'org-agenda-mode).........(if.o |
| 22ae0 | 72 67 2d 61 67 65 6e 64 61 2d 62 75 6c 6b 2d 6d 61 72 6b 65 64 2d 65 6e 74 72 69 65 73 0a 20 20 | rg-agenda-bulk-marked-entries... |
| 22b00 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 | ..........(setq.counsel-org-tags |
| 22b20 | 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 64 6d 61 72 6b 65 72 20 | .nil)...........(let.((hdmarker. |
| 22b40 | 28 6f 72 20 28 6f 72 67 2d 67 65 74 2d 61 74 2d 62 6f 6c 20 27 6f 72 67 2d 68 64 2d 6d 61 72 6b | (or.(org-get-at-bol.'org-hd-mark |
| 22b60 | 65 72 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 | er)............................. |
| 22b80 | 20 20 28 6f 72 67 2d 61 67 65 6e 64 61 2d 65 72 72 6f 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 | ..(org-agenda-error))))......... |
| 22ba0 | 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6d 61 72 6b 65 72 | ....(with-current-buffer.(marker |
| 22bc0 | 2d 62 75 66 66 65 72 20 68 64 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -buffer.hdmarker)............... |
| 22be0 | 28 67 6f 74 6f 2d 63 68 61 72 20 68 64 6d 61 72 6b 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (goto-char.hdmarker)............ |
| 22c00 | 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 20 28 63 6f 75 6e 73 | ...(setq.counsel-org-tags.(couns |
| 22c20 | 65 6c 2d 2d 6f 72 67 2d 67 65 74 2d 74 61 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c | el--org-get-tags))))).......(unl |
| 22c40 | 65 73 73 20 28 6f 72 67 2d 61 74 2d 68 65 61 64 69 6e 67 2d 70 29 0a 20 20 20 20 20 20 20 20 28 | ess.(org-at-heading-p).........( |
| 22c60 | 6f 72 67 2d 62 61 63 6b 2d 74 6f 2d 68 65 61 64 69 6e 67 20 74 29 29 0a 20 20 20 20 20 20 28 73 | org-back-to-heading.t)).......(s |
| 22c80 | 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 73 20 28 63 6f 75 6e 73 65 6c 2d 2d 6f | etq.counsel-org-tags.(counsel--o |
| 22ca0 | 72 67 2d 67 65 74 2d 74 61 67 73 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 72 67 2d 6c 61 | rg-get-tags))).....(let.((org-la |
| 22cc0 | 73 74 2d 74 61 67 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 | st-tags-completion-table........ |
| 22ce0 | 20 20 20 20 28 61 70 70 65 6e 64 20 28 61 6e 64 20 28 6f 72 20 6f 72 67 2d 63 6f 6d 70 6c 65 74 | ....(append.(and.(or.org-complet |
| 22d00 | 65 2d 74 61 67 73 2d 61 6c 77 61 79 73 2d 6f 66 66 65 72 2d 61 6c 6c 2d 61 67 65 6e 64 61 2d 74 | e-tags-always-offer-all-agenda-t |
| 22d20 | 61 67 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 | ags............................. |
| 22d40 | 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 6f 72 67 2d 61 67 65 6e 64 61 2d 6d 6f 64 65 29 | (eq.major-mode.'org-agenda-mode) |
| 22d60 | 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 28 6f 72 67 2d 67 | ).........................(org-g |
| 22d80 | 6c 6f 62 61 6c 2d 74 61 67 73 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 0a 20 20 20 20 | lobal-tags-completion-table..... |
| 22da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 61 67 65 6e 64 61 | .....................(org-agenda |
| 22dc0 | 2d 66 69 6c 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e | -files)))....................(un |
| 22de0 | 6c 65 73 73 20 28 62 6f 75 6e 64 70 20 27 6f 72 67 2d 63 75 72 72 65 6e 74 2d 74 61 67 2d 61 6c | less.(boundp.'org-current-tag-al |
| 22e00 | 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 74 61 | ist)......................org-ta |
| 22e20 | 67 2d 70 65 72 73 69 73 74 65 6e 74 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | g-persistent-alist)............. |
| 22e40 | 20 20 20 20 20 20 20 28 6f 72 20 28 69 66 20 28 62 6f 75 6e 64 70 20 27 6f 72 67 2d 63 75 72 72 | .......(or.(if.(boundp.'org-curr |
| 22e60 | 65 6e 74 2d 74 61 67 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ent-tag-alist).................. |
| 22e80 | 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 63 75 72 72 65 6e 74 2d 74 61 67 2d 61 6c 69 73 74 0a | ..........org-current-tag-alist. |
| 22ea0 | 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 6f 72 67 2d 74 61 67 | .........................org-tag |
| 22ec0 | 2d 61 6c 69 73 74 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 | -alist)........................( |
| 22ee0 | 6f 72 67 2d 67 65 74 2d 62 75 66 66 65 72 2d 74 61 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 28 | org-get-buffer-tags))))).......( |
| 22f00 | 69 76 79 2d 72 65 61 64 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 70 72 6f 6d 70 74 | ivy-read.(counsel-org-tag-prompt |
| 22f20 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 20 5f | ).................(lambda.(str._ |
| 22f40 | 70 72 65 64 20 5f 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | pred._action)................... |
| 22f60 | 28 64 65 6c 65 74 65 2d 64 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (delete-dups.................... |
| 22f80 | 28 61 6c 6c 2d 63 6f 6d 70 6c 65 74 69 6f 6e 73 20 73 74 72 20 23 27 6f 72 67 2d 74 61 67 73 2d | (all-completions.str.#'org-tags- |
| 22fa0 | 63 6f 6d 70 6c 65 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 | completion-function))).......... |
| 22fc0 | 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 6f 72 67 2d 74 61 67 73 2d 68 69 73 74 6f 72 | .......:history.'org-tags-histor |
| 22fe0 | 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e | y.................:action.#'coun |
| 23000 | 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | sel-org-tag-action.............. |
| 23020 | 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 29 29 29 29 0a | ...:caller.'counsel-org-tag)))). |
| 23040 | 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 76 65 72 73 69 6f 6e 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | .(defvar.org-version)..;;;###aut |
| 23060 | 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 74 61 67 2d 61 67 65 | oload.(defun.counsel-org-tag-age |
| 23080 | 6e 64 61 20 28 29 0a 20 20 22 53 65 74 20 74 61 67 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 | nda.()..."Set.tags.for.the.curre |
| 230a0 | 6e 74 20 61 67 65 6e 64 61 20 69 74 65 6d 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | nt.agenda.item."...(interactive) |
| 230c0 | 0a 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 28 | ...(cl-letf.(((symbol-function.( |
| 230e0 | 69 66 20 28 76 65 72 73 69 6f 6e 3c 20 6f 72 67 2d 76 65 72 73 69 6f 6e 20 22 39 2e 32 22 29 0a | if.(version<.org-version."9.2"). |
| 23100 | 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 | ................................ |
| 23120 | 20 20 27 6f 72 67 2d 73 65 74 2d 74 61 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..'org-set-tags................. |
| 23140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 6f 72 67 2d 73 65 74 2d 74 61 67 73 2d 63 6f | ................'org-set-tags-co |
| 23160 | 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 6f | mmand))..............#'counsel-o |
| 23180 | 72 67 2d 74 61 67 29 29 0a 20 20 20 20 28 6f 72 67 2d 61 67 65 6e 64 61 2d 73 65 74 2d 74 61 67 | rg-tag)).....(org-agenda-set-tag |
| 231a0 | 73 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 | s)))..(defcustom.counsel-org-hea |
| 231c0 | 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 61 67 73 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e | dline-display-tags.nil..."If.non |
| 231e0 | 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 74 61 67 73 20 69 6e 20 6d 61 74 63 68 65 64 20 60 6f | -nil,.display.tags.in.matched.`o |
| 23200 | 72 67 2d 6d 6f 64 65 27 20 68 65 61 64 6c 69 6e 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f | rg-mode'.headlines."...:type.'bo |
| 23220 | 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 | olean)..(defcustom.counsel-org-h |
| 23240 | 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 6f 64 6f 20 6e 69 6c 0a 20 20 22 49 66 20 6e | eadline-display-todo.nil..."If.n |
| 23260 | 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 74 6f 64 6f 20 6b 65 79 77 6f 72 64 73 20 69 6e | on-nil,.display.todo.keywords.in |
| 23280 | 20 6d 61 74 63 68 65 64 20 60 6f 72 67 2d 6d 6f 64 65 27 20 68 65 61 64 6c 69 6e 65 73 2e 22 0a | .matched.`org-mode'.headlines.". |
| 232a0 | 20 20 3a 74 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 | ..:type.'boolean)..(defcustom.co |
| 232c0 | 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 70 72 69 6f 72 | unsel-org-headline-display-prior |
| 232e0 | 69 74 79 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 70 | ity.nil..."If.non-nil,.display.p |
| 23300 | 72 69 6f 72 69 74 69 65 73 20 69 6e 20 6d 61 74 63 68 65 64 20 60 6f 72 67 2d 6d 6f 64 65 27 20 | riorities.in.matched.`org-mode'. |
| 23320 | 68 65 61 64 6c 69 6e 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 | headlines."...:type.'boolean)..( |
| 23340 | 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 | defcustom.counsel-org-headline-d |
| 23360 | 69 73 70 6c 61 79 2d 63 6f 6d 6d 65 6e 74 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c | isplay-comment.nil..."If.non-nil |
| 23380 | 2c 20 64 69 73 70 6c 61 79 20 43 4f 4d 4d 45 4e 54 20 73 74 72 69 6e 67 20 69 6e 20 6d 61 74 63 | ,.display.COMMENT.string.in.matc |
| 233a0 | 68 65 64 20 60 6f 72 67 2d 6d 6f 64 65 27 20 68 65 61 64 6c 69 6e 65 73 2e 22 0a 20 20 3a 74 79 | hed.`org-mode'.headlines."...:ty |
| 233c0 | 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 75 6e 73 65 6c | pe.'boolean)..(defcustom.counsel |
| 233e0 | 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 61 74 69 73 74 69 63 73 | -org-headline-display-statistics |
| 23400 | 20 6e 69 6c 0a 20 20 22 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 73 74 61 74 | .nil..."If.non-nil,.display.stat |
| 23420 | 69 73 74 69 63 73 20 63 6f 6f 6b 69 65 20 69 6e 20 6d 61 74 63 68 65 64 20 60 6f 72 67 2d 6d 6f | istics.cookie.in.matched.`org-mo |
| 23440 | 64 65 27 20 68 65 61 64 6c 69 6e 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | de'.headlines."...:type.'boolean |
| 23460 | 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d 68 65 61 | )..(declare-function.org-get-hea |
| 23480 | 64 69 6e 67 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 | ding."org").(declare-function.or |
| 234a0 | 67 2d 67 6f 74 6f 2d 6d 61 72 6b 65 72 2d 6f 72 2d 62 6d 6b 20 22 6f 72 67 22 29 0a 28 64 65 63 | g-goto-marker-or-bmk."org").(dec |
| 234c0 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 75 74 6c 69 6e 65 2d 6e 65 78 74 2d 68 65 61 64 69 | lare-function.outline-next-headi |
| 234e0 | 6e 67 20 22 6f 75 74 6c 69 6e 65 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 | ng."outline")..;;;###autoload.(d |
| 23500 | 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 20 23 27 63 6f 75 6e | efalias.'counsel-org-goto.#'coun |
| 23520 | 73 65 6c 2d 6f 75 74 6c 69 6e 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c | sel-outline)..(defcustom.counsel |
| 23540 | 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 2d 6f 75 74 6c 69 6e 65 2d 70 61 74 68 2d 70 72 65 66 69 | -org-goto-all-outline-path-prefi |
| 23560 | 78 20 6e 69 6c 0a 20 20 22 50 72 65 66 69 78 20 66 6f 72 20 6f 75 74 6c 69 6e 65 20 63 61 6e 64 | x.nil..."Prefix.for.outline.cand |
| 23580 | 69 64 61 74 65 73 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 27 | idates.in.`counsel-org-goto-all' |
| 235a0 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 | ."...:type.'(choice...........(c |
| 235c0 | 6f 6e 73 74 20 3a 74 61 67 20 22 4e 6f 6e 65 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | onst.:tag."None".nil)........... |
| 235e0 | 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 46 69 6c 65 20 6e 61 6d 65 22 20 66 69 6c 65 2d 6e 61 6d | (const.:tag."File.name".file-nam |
| 23600 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 46 69 6c 65 20 6e | e)...........(const.:tag."File.n |
| 23620 | 61 6d 65 20 28 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 70 61 72 74 29 22 20 66 69 6c 65 2d 6e 61 | ame.(nondirectory.part)".file-na |
| 23640 | 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 | me-nondirectory)...........(cons |
| 23660 | 74 20 3a 74 61 67 20 22 42 75 66 66 65 72 20 6e 61 6d 65 22 20 62 75 66 66 65 72 2d 6e 61 6d 65 | t.:tag."Buffer.name".buffer-name |
| 23680 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c | )))..(defun.counsel-org-goto-all |
| 236a0 | 2d 2d 6f 75 74 6c 69 6e 65 2d 70 61 74 68 2d 70 72 65 66 69 78 20 28 29 0a 20 20 28 63 6c 2d 63 | --outline-path-prefix.()...(cl-c |
| 236c0 | 61 73 65 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 2d 6f 75 74 6c 69 6e 65 | ase.counsel-org-goto-all-outline |
| 236e0 | 2d 70 61 74 68 2d 70 72 65 66 69 78 0a 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 20 62 75 66 66 | -path-prefix.....(file-name.buff |
| 23700 | 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e | er-file-name).....(file-name-non |
| 23720 | 64 69 72 65 63 74 6f 72 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 | directory.(file-name-nondirector |
| 23740 | 79 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 28 62 75 66 66 65 72 | y.buffer-file-name)).....(buffer |
| 23760 | 2d 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | -name.(buffer-name))))..(defvar. |
| 23780 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 73 65 74 74 69 6e 67 73 0a 20 20 27 28 28 65 6d | counsel-outline-settings...'((em |
| 237a0 | 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 0a 20 20 20 20 20 3a 6f 75 74 6c 69 6e 65 2d 72 65 67 65 | acs-lisp-mode......:outline-rege |
| 237c0 | 78 70 20 22 3b 3b 5b 3b 2a 5d 2b 5b 5c 73 5c 74 5d 2b 22 0a 20 20 20 20 20 3a 6f 75 74 6c 69 6e | xp.";;[;*]+[\s\t]+"......:outlin |
| 237e0 | 65 2d 6c 65 76 65 6c 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 2d 65 6d | e-level.counsel-outline-level-em |
| 23800 | 61 63 73 2d 6c 69 73 70 29 0a 20 20 20 20 28 6f 72 67 2d 6d 6f 64 65 0a 20 20 20 20 20 3a 6f 75 | acs-lisp).....(org-mode......:ou |
| 23820 | 74 6c 69 6e 65 2d 74 69 74 6c 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c | tline-title.counsel-outline-titl |
| 23840 | 65 2d 6f 72 67 0a 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 | e-org......:action.counsel-org-g |
| 23860 | 6f 74 6f 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 63 6f 75 6e 73 65 6c | oto-action......:history.counsel |
| 23880 | 2d 6f 72 67 2d 67 6f 74 6f 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 63 | -org-goto-history......:caller.c |
| 238a0 | 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 29 0a 20 20 20 20 3b 3b 20 6d 61 72 6b 64 6f 77 6e | ounsel-org-goto).....;;.markdown |
| 238c0 | 2d 6d 6f 64 65 20 70 61 63 6b 61 67 65 0a 20 20 20 20 28 6d 61 72 6b 64 6f 77 6e 2d 6d 6f 64 65 | -mode.package.....(markdown-mode |
| 238e0 | 0a 20 20 20 20 20 3a 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 | ......:outline-title.counsel-out |
| 23900 | 6c 69 6e 65 2d 74 69 74 6c 65 2d 6d 61 72 6b 64 6f 77 6e 29 0a 20 20 20 20 3b 3b 20 42 75 69 6c | line-title-markdown).....;;.Buil |
| 23920 | 74 2d 69 6e 20 6d 6f 64 65 20 6f 72 20 41 55 43 54 65 58 20 70 61 63 6b 61 67 65 0a 20 20 20 20 | t-in.mode.or.AUCTeX.package..... |
| 23940 | 28 6c 61 74 65 78 2d 6d 6f 64 65 0a 20 20 20 20 20 3a 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 20 | (latex-mode......:outline-title. |
| 23960 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 6c 61 74 65 78 29 29 0a 20 20 | counsel-outline-title-latex))... |
| 23980 | 22 41 6c 69 73 74 20 6d 61 70 70 69 6e 67 20 6d 61 6a 6f 72 20 6d 6f 64 65 73 20 74 6f 20 74 68 | "Alist.mapping.major.modes.to.th |
| 239a0 | 65 69 72 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 20 73 65 74 74 69 6e 67 73 2e 0a | eir.`counsel-outline'.settings.. |
| 239c0 | 0a 45 61 63 68 20 65 6e 74 72 79 20 69 73 20 61 20 70 61 69 72 20 28 4d 41 4a 4f 52 2d 4d 4f 44 | .Each.entry.is.a.pair.(MAJOR-MOD |
| 239e0 | 45 20 2e 20 50 4c 49 53 54 29 2e 20 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 0a 63 | E...PLIST)...`counsel-outline'.c |
| 23a00 | 68 65 63 6b 73 20 77 68 65 74 68 65 72 20 61 6e 20 65 6e 74 72 79 20 65 78 69 73 74 73 20 66 6f | hecks.whether.an.entry.exists.fo |
| 23a20 | 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 0a 4d 41 4a 4f 52 2d 4d 4f 44 | r.the.current.buffer's.MAJOR-MOD |
| 23a40 | 45 20 61 6e 64 2c 20 69 66 20 73 6f 2c 20 6c 6f 61 64 73 20 74 68 65 20 73 65 74 74 69 6e 67 73 | E.and,.if.so,.loads.the.settings |
| 23a60 | 20 73 70 65 63 69 66 69 65 64 20 62 79 20 50 4c 49 53 54 0a 69 6e 73 74 65 61 64 20 6f 66 20 74 | .specified.by.PLIST.instead.of.t |
| 23a80 | 68 65 20 64 65 66 61 75 6c 74 20 73 65 74 74 69 6e 67 73 2e 20 20 54 68 65 20 66 6f 6c 6c 6f 77 | he.default.settings...The.follow |
| 23aa0 | 69 6e 67 20 73 65 74 74 69 6e 67 73 20 61 72 65 0a 72 65 63 6f 67 6e 69 7a 65 64 3a 0a 0a 2d 20 | ing.settings.are.recognized:..-. |
| 23ac0 | 60 3a 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 20 69 73 20 61 20 72 65 67 65 78 70 20 74 6f | `:outline-regexp'.is.a.regexp.to |
| 23ae0 | 20 6d 61 74 63 68 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 61 6e 0a 20 20 6f 75 74 | .match.the.beginning.of.an...out |
| 23b00 | 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 20 20 49 74 20 69 73 20 6f 6e 6c 79 20 63 68 65 63 6b 65 | line.heading...It.is.only.checke |
| 23b20 | 64 20 61 74 20 74 68 65 20 73 74 61 72 74 20 6f 66 20 61 20 6c 69 6e 65 20 61 6e 64 0a 20 20 73 | d.at.the.start.of.a.line.and...s |
| 23b40 | 6f 20 6e 65 65 64 20 6e 6f 74 20 73 74 61 72 74 20 77 69 74 68 20 5c 22 5e 5c 22 2e 0a 20 20 44 | o.need.not.start.with.\"^\"....D |
| 23b60 | 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 | efaults.to.the.value.of.the.vari |
| 23b80 | 61 62 6c 65 20 60 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 2e 0a 0a 2d 20 60 3a 6f 75 74 6c | able.`outline-regexp'...-.`:outl |
| 23ba0 | 69 6e 65 2d 6c 65 76 65 6c 27 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6e 6f 20 61 | ine-level'.is.a.function.of.no.a |
| 23bc0 | 72 67 75 6d 65 6e 74 73 20 77 68 69 63 68 20 63 6f 6d 70 75 74 65 73 0a 20 20 74 68 65 20 6c 65 | rguments.which.computes...the.le |
| 23be0 | 76 65 6c 20 6f 66 20 61 6e 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 20 20 49 74 20 69 | vel.of.an.outline.heading...It.i |
| 23c00 | 73 20 63 61 6c 6c 65 64 20 77 69 74 68 20 70 6f 69 6e 74 20 61 74 0a 20 20 74 68 65 20 62 65 67 | s.called.with.point.at...the.beg |
| 23c20 | 69 6e 6e 69 6e 67 20 6f 66 20 60 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 20 61 6e 64 20 77 | inning.of.`outline-regexp'.and.w |
| 23c40 | 69 74 68 20 74 68 65 20 6d 61 74 63 68 20 64 61 74 61 0a 20 20 63 6f 72 72 65 73 70 6f 6e 64 69 | ith.the.match.data...correspondi |
| 23c60 | 6e 67 20 74 6f 20 60 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 2e 0a 20 20 44 65 66 61 75 6c | ng.to.`outline-regexp'....Defaul |
| 23c80 | 74 73 20 74 6f 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 76 61 72 69 61 62 6c 65 20 | ts.to.the.value.of.the.variable. |
| 23ca0 | 60 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 27 2e 0a 0a 2d 20 60 3a 6f 75 74 6c 69 6e 65 2d 74 69 | `outline-level'...-.`:outline-ti |
| 23cc0 | 74 6c 65 27 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6e 6f 20 61 72 67 75 6d 65 6e | tle'.is.a.function.of.no.argumen |
| 23ce0 | 74 73 20 77 68 69 63 68 20 72 65 74 75 72 6e 73 0a 20 20 74 68 65 20 74 69 74 6c 65 20 6f 66 20 | ts.which.returns...the.title.of. |
| 23d00 | 61 6e 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 20 20 49 74 20 69 73 20 63 61 6c 6c 65 | an.outline.heading...It.is.calle |
| 23d20 | 64 20 77 69 74 68 20 70 6f 69 6e 74 20 61 74 0a 20 20 74 68 65 20 65 6e 64 20 6f 66 20 60 6f 75 | d.with.point.at...the.end.of.`ou |
| 23d40 | 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 20 61 6e 64 20 77 69 74 68 20 74 68 65 20 6d 61 74 63 68 | tline-regexp'.and.with.the.match |
| 23d60 | 20 64 61 74 61 0a 20 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 60 6f 75 74 6c 69 6e | .data...corresponding.to.`outlin |
| 23d80 | 65 2d 72 65 67 65 78 70 27 2e 0a 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 66 75 6e | e-regexp'....Defaults.to.the.fun |
| 23da0 | 63 74 69 6f 6e 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 27 2e 0a 0a | ction.`counsel-outline-title'... |
| 23dc0 | 2d 20 60 3a 61 63 74 69 6f 6e 27 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 66 20 6f 6e 65 | -.`:action'.is.a.function.of.one |
| 23de0 | 20 61 72 67 75 6d 65 6e 74 2c 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 6f 75 74 6c 69 6e 65 0a | .argument,.the.selected.outline. |
| 23e00 | 20 20 68 65 61 64 69 6e 67 20 74 6f 20 6a 75 6d 70 20 74 6f 2e 20 20 54 68 69 73 20 73 65 74 74 | ..heading.to.jump.to...This.sett |
| 23e20 | 69 6e 67 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 64 69 72 65 63 74 6c 79 20 74 6f 20 69 74 73 0a | ing.corresponds.directly.to.its. |
| 23e40 | 20 20 65 70 6f 6e 79 6d 6f 75 73 20 60 69 76 79 2d 72 65 61 64 27 20 6b 65 79 77 6f 72 64 2c 20 | ..eponymous.`ivy-read'.keyword,. |
| 23e60 | 61 73 20 75 73 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 2c 20 73 6f | as.used.by.`counsel-outline',.so |
| 23e80 | 0a 20 20 74 68 65 20 74 79 70 65 20 6f 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 27 73 20 61 72 | ...the.type.of.the.function's.ar |
| 23ea0 | 67 75 6d 65 6e 74 20 64 65 70 65 6e 64 73 20 6f 6e 20 74 68 65 20 76 61 6c 75 65 0a 20 20 72 65 | gument.depends.on.the.value...re |
| 23ec0 | 74 75 72 6e 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 61 6e 64 69 | turned.by.`counsel-outline-candi |
| 23ee0 | 64 61 74 65 73 27 2e 0a 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 74 68 65 20 66 75 6e 63 74 69 | dates'....Defaults.to.the.functi |
| 23f00 | 6f 6e 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 61 63 74 69 6f 6e 27 2e 0a 0a 2d 20 | on.`counsel-outline-action'...-. |
| 23f20 | 60 3a 68 69 73 74 6f 72 79 27 20 69 73 20 61 20 68 69 73 74 6f 72 79 20 6c 69 73 74 2c 20 75 73 | `:history'.is.a.history.list,.us |
| 23f40 | 75 61 6c 6c 79 20 61 20 73 79 6d 62 6f 6c 20 72 65 70 72 65 73 65 6e 74 69 6e 67 20 61 0a 20 20 | ually.a.symbol.representing.a... |
| 23f60 | 68 69 73 74 6f 72 79 20 6c 69 73 74 20 76 61 72 69 61 62 6c 65 2e 20 20 49 74 20 63 6f 72 72 65 | history.list.variable...It.corre |
| 23f80 | 73 70 6f 6e 64 73 20 64 69 72 65 63 74 6c 79 20 74 6f 20 69 74 73 0a 20 20 65 70 6f 6e 79 6d 6f | sponds.directly.to.its...eponymo |
| 23fa0 | 75 73 20 60 69 76 79 2d 72 65 61 64 27 20 6b 65 79 77 6f 72 64 2c 20 61 73 20 75 73 65 64 20 62 | us.`ivy-read'.keyword,.as.used.b |
| 23fc0 | 79 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 2e 0a 20 20 44 65 66 61 75 6c 74 73 20 | y.`counsel-outline'....Defaults. |
| 23fe0 | 74 6f 20 74 68 65 20 73 79 6d 62 6f 6c 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 68 | to.the.symbol.`counsel-outline-h |
| 24000 | 69 73 74 6f 72 79 27 2e 0a 0a 2d 20 60 3a 63 61 6c 6c 65 72 27 20 69 73 20 61 20 73 79 6d 62 6f | istory'...-.`:caller'.is.a.symbo |
| 24020 | 6c 20 74 6f 20 75 6e 69 71 75 65 6c 79 20 69 64 65 6e 74 69 66 79 20 74 68 65 20 63 61 6c 6c 65 | l.to.uniquely.identify.the.calle |
| 24040 | 72 20 74 6f 0a 20 20 60 69 76 79 2d 72 65 61 64 27 2e 20 20 49 74 20 63 6f 72 72 65 73 70 6f 6e | r.to...`ivy-read'...It.correspon |
| 24060 | 64 73 20 64 69 72 65 63 74 6c 79 20 74 6f 20 69 74 73 20 65 70 6f 6e 79 6d 6f 75 73 0a 20 20 60 | ds.directly.to.its.eponymous...` |
| 24080 | 69 76 79 2d 72 65 61 64 27 20 6b 65 79 77 6f 72 64 2c 20 61 73 20 75 73 65 64 20 62 79 20 60 63 | ivy-read'.keyword,.as.used.by.`c |
| 240a0 | 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 2e 0a 20 20 44 65 66 61 75 6c 74 73 20 74 6f 20 74 | ounsel-outline'....Defaults.to.t |
| 240c0 | 68 65 20 73 79 6d 62 6f 6c 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 2e 0a 0a 2d 20 | he.symbol.`counsel-outline'...-. |
| 240e0 | 60 3a 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 27 20 6f 76 65 72 72 69 64 65 73 20 74 68 65 20 76 | `:display-style'.overrides.the.v |
| 24100 | 61 72 69 61 62 6c 65 0a 20 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c | ariable...`counsel-outline-displ |
| 24120 | 61 79 2d 73 74 79 6c 65 27 2e 0a 0a 2d 20 60 3a 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 27 20 | ay-style'...-.`:path-separator'. |
| 24140 | 6f 76 65 72 72 69 64 65 73 20 74 68 65 20 76 61 72 69 61 62 6c 65 0a 20 20 60 63 6f 75 6e 73 65 | overrides.the.variable...`counse |
| 24160 | 6c 2d 6f 75 74 6c 69 6e 65 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 27 2e 0a 0a 2d 20 60 3a | l-outline-path-separator'...-.`: |
| 24180 | 66 61 63 65 2d 73 74 79 6c 65 27 20 6f 76 65 72 72 69 64 65 73 20 74 68 65 20 76 61 72 69 61 62 | face-style'.overrides.the.variab |
| 241a0 | 6c 65 0a 20 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 66 61 63 65 2d 73 74 79 6c 65 | le...`counsel-outline-face-style |
| 241c0 | 27 2e 0a 0a 2d 20 60 3a 63 75 73 74 6f 6d 2d 66 61 63 65 73 27 20 6f 76 65 72 72 69 64 65 73 20 | '...-.`:custom-faces'.overrides. |
| 241e0 | 74 68 65 20 76 61 72 69 61 62 6c 65 0a 20 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d | the.variable...`counsel-outline- |
| 24200 | 63 75 73 74 6f 6d 2d 66 61 63 65 73 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 | custom-faces'.")..;;;###autoload |
| 24220 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 20 28 29 0a | .(defun.counsel-org-goto-all.(). |
| 24240 | 20 20 22 47 6f 20 74 6f 20 61 20 64 69 66 66 65 72 65 6e 74 20 6c 6f 63 61 74 69 6f 6e 20 69 6e | .."Go.to.a.different.location.in |
| 24260 | 20 61 6e 79 20 6f 72 67 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | .any.org.file."...(interactive). |
| 24280 | 20 20 28 6c 65 74 20 28 65 6e 74 72 69 65 73 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 62 20 | ..(let.(entries).....(dolist.(b. |
| 242a0 | 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 | (buffer-list)).......(with-curre |
| 242c0 | 6e 74 2d 62 75 66 66 65 72 20 62 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 65 72 69 76 | nt-buffer.b.........(when.(deriv |
| 242e0 | 65 64 2d 6d 6f 64 65 2d 70 20 27 6f 72 67 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 | ed-mode-p.'org-mode)...........( |
| 24300 | 73 65 74 71 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 63 | setq.entries.................(nc |
| 24320 | 6f 6e 63 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | onc.entries..................... |
| 24340 | 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 | ...(counsel-outline-candidates.. |
| 24360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 61 73 73 | .......................(cdr.(ass |
| 24380 | 71 20 27 6f 72 67 2d 6d 6f 64 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 73 65 74 74 | q.'org-mode.counsel-outline-sett |
| 243a0 | 69 6e 67 73 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 28 | ings)).........................( |
| 243c0 | 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 2d 2d 6f 75 74 6c 69 6e 65 2d 70 61 | counsel-org-goto-all--outline-pa |
| 243e0 | 74 68 2d 70 72 65 66 69 78 29 29 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 | th-prefix))))))).....(ivy-read." |
| 24400 | 47 6f 74 6f 3a 20 22 20 65 6e 74 72 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 | Goto:.".entries...............:h |
| 24420 | 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 68 69 73 74 6f 72 79 | istory.'counsel-org-goto-history |
| 24440 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c | ...............:action.#'counsel |
| 24460 | 2d 6f 72 67 2d 67 6f 74 6f 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | -org-goto-action...............: |
| 24480 | 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 6c 6c 29 29 29 0a | caller.'counsel-org-goto-all))). |
| 244a0 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 67 6f 74 6f 2d 61 63 74 69 6f 6e 20 | .(defun.counsel-org-goto-action. |
| 244c0 | 28 78 29 0a 20 20 22 47 6f 20 74 6f 20 68 65 61 64 6c 69 6e 65 20 69 6e 20 63 61 6e 64 69 64 61 | (x)..."Go.to.headline.in.candida |
| 244e0 | 74 65 20 58 2e 22 0a 20 20 28 6f 72 67 2d 67 6f 74 6f 2d 6d 61 72 6b 65 72 2d 6f 72 2d 62 6d 6b | te.X."...(org-goto-marker-or-bmk |
| 24500 | 20 28 63 64 72 20 78 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d | .(cdr.x)))..(defun.counsel--org- |
| 24520 | 67 65 74 2d 68 65 61 64 69 6e 67 2d 61 72 67 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 | get-heading-args.()..."Return.li |
| 24540 | 73 74 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 60 6f 72 67 2d 67 65 74 2d 68 65 61 | st.of.arguments.for.`org-get-hea |
| 24560 | 64 69 6e 67 27 2e 0a 54 72 79 20 74 6f 20 72 65 74 75 72 6e 20 74 68 65 20 72 69 67 68 74 20 6e | ding'..Try.to.return.the.right.n |
| 24580 | 75 6d 62 65 72 20 6f 66 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 | umber.of.arguments.for.the.curre |
| 245a0 | 6e 74 20 4f 72 67 0a 76 65 72 73 69 6f 6e 2e 20 20 41 72 67 75 6d 65 6e 74 20 76 61 6c 75 65 73 | nt.Org.version...Argument.values |
| 245c0 | 20 61 72 65 20 62 61 73 65 64 20 6f 6e 20 74 68 65 0a 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 | .are.based.on.the.`counsel-org-h |
| 245e0 | 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 2a 27 20 75 73 65 72 20 6f 70 74 69 6f 6e 73 2e | eadline-display-*'.user.options. |
| 24600 | 22 0a 20 20 28 6e 62 75 74 6c 61 73 74 20 28 6d 61 70 63 61 72 20 23 27 6e 6f 74 20 28 6c 69 73 | "...(nbutlast.(mapcar.#'not.(lis |
| 24620 | 74 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 | t.counsel-org-headline-display-t |
| 24640 | 61 67 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 | ags............................. |
| 24660 | 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 | ....counsel-org-headline-display |
| 24680 | 2d 74 6f 64 6f 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 | -todo........................... |
| 246a0 | 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c | ......counsel-org-headline-displ |
| 246c0 | 61 79 2d 70 72 69 6f 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ay-priority..................... |
| 246e0 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 | ............counsel-org-headline |
| 24700 | 2d 64 69 73 70 6c 61 79 2d 63 6f 6d 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b | -display-comment)).............; |
| 24720 | 3b 20 41 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 36 2e 31 2e 0a 20 20 20 20 20 20 20 20 20 | ;.Added.in.Emacs.26.1........... |
| 24740 | 20 20 20 28 69 66 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 66 75 6e 63 2d 61 72 69 74 79 29 | ...(if.(if.(fboundp.'func-arity) |
| 24760 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 63 64 72 20 28 66 75 | .....................(<.(cdr.(fu |
| 24780 | 6e 63 2d 61 72 69 74 79 20 23 27 6f 72 67 2d 67 65 74 2d 68 65 61 64 69 6e 67 29 29 20 33 29 0a | nc-arity.#'org-get-heading)).3). |
| 247a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 72 73 69 6f 6e 3c 20 6f 72 67 2d | ..................(version<.org- |
| 247c0 | 76 65 72 73 69 6f 6e 20 22 39 2e 31 2e 31 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | version."9.1.1"))............... |
| 247e0 | 20 20 32 20 30 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 66 69 6c 65 | ..2.0)))..;;**.`counsel-org-file |
| 24800 | 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 61 74 74 61 63 68 2d 64 | '.(declare-function.org-attach-d |
| 24820 | 69 72 20 22 6f 72 67 2d 61 74 74 61 63 68 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 | ir."org-attach").(declare-functi |
| 24840 | 6f 6e 20 6f 72 67 2d 61 74 74 61 63 68 2d 66 69 6c 65 2d 6c 69 73 74 20 22 6f 72 67 2d 61 74 74 | on.org-attach-file-list."org-att |
| 24860 | 61 63 68 22 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 61 74 74 61 63 68 2d 64 69 72 65 63 74 6f | ach").(defvar.org-attach-directo |
| 24880 | 72 79 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 66 69 6c 65 73 20 28 29 | ry)..(defun.counsel-org-files.() |
| 248a0 | 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 66 69 6c 65 73 20 75 6e 64 | ..."Return.list.of.all.files.und |
| 248c0 | 65 72 20 63 75 72 72 65 6e 74 20 4f 72 67 20 61 74 74 61 63 68 6d 65 6e 74 20 64 69 72 65 63 74 | er.current.Org.attachment.direct |
| 248e0 | 6f 72 69 65 73 2e 0a 46 69 6c 65 6e 61 6d 65 73 20 72 65 74 75 72 6e 65 64 20 61 72 65 20 72 65 | ories..Filenames.returned.are.re |
| 24900 | 6c 61 74 69 76 65 20 74 6f 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 20 20 | lative.to.`default-directory'... |
| 24920 | 46 6f 72 20 65 61 63 68 0a 61 74 74 61 63 68 6d 65 6e 74 20 64 69 72 65 63 74 6f 72 79 20 61 73 | For.each.attachment.directory.as |
| 24940 | 73 6f 63 69 61 74 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 | sociated.with.the.current.buffer |
| 24960 | 2c 20 61 6c 6c 0a 63 6f 6e 74 61 69 6e 65 64 20 66 69 6c 65 73 20 61 72 65 20 6c 69 73 74 65 64 | ,.all.contained.files.are.listed |
| 24980 | 2c 20 73 6f 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 20 63 6f 75 6c 64 20 63 6f 6e 63 | ,.so.the.return.value.could.conc |
| 249a0 | 65 69 76 61 62 6c 79 0a 69 6e 63 6c 75 64 65 20 61 74 74 61 63 68 6d 65 6e 74 73 20 6f 66 20 6f | eivably.include.attachments.of.o |
| 249c0 | 74 68 65 72 20 4f 72 67 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 72 65 71 75 69 72 65 20 27 6f | ther.Org.buffers."...(require.'o |
| 249e0 | 72 67 2d 61 74 74 61 63 68 29 0a 20 20 28 6c 65 74 20 28 64 69 72 73 29 0a 20 20 20 20 28 73 61 | rg-attach)...(let.(dirs).....(sa |
| 24a00 | 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 | ve-excursion.......(goto-char.(p |
| 24a20 | 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 | oint-min)).......(while.(re-sear |
| 24a40 | 63 68 2d 66 6f 72 77 61 72 64 20 22 3a 5c 5c 28 3f 3a 41 54 54 41 43 48 5f 44 49 52 5c 5c 7c 49 | ch-forward.":\\(?:ATTACH_DIR\\|I |
| 24a60 | 44 5c 5c 29 3a 5b 5c 74 20 5d 2b 2e 2a 24 22 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 28 | D\\):[\t.]+.*$".nil.t).........( |
| 24a80 | 6c 65 74 20 28 28 64 69 72 20 28 6f 72 67 2d 61 74 74 61 63 68 2d 64 69 72 29 29 29 0a 20 20 20 | let.((dir.(org-attach-dir))).... |
| 24aa0 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | .......(when.dir.............(pu |
| 24ac0 | 73 68 20 64 69 72 20 64 69 72 73 29 29 29 29 29 0a 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 0a | sh.dir.dirs))))).....(cl-mapcan. |
| 24ae0 | 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 0a 20 20 20 20 20 20 20 28 6d 61 70 63 61 | .....(lambda.(dir)........(mapca |
| 24b00 | 72 20 28 6c 61 6d 62 64 61 20 28 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.(lambda.(file)................ |
| 24b20 | 20 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 65 2d 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 | ..(file-relative-name.(expand-fi |
| 24b40 | 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | le-name.file.dir)))............. |
| 24b60 | 20 20 20 28 6f 72 67 2d 61 74 74 61 63 68 2d 66 69 6c 65 2d 6c 69 73 74 20 64 69 72 29 29 29 0a | ...(org-attach-file-list.dir))). |
| 24b80 | 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 64 69 72 73 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 | .....(nreverse.dirs))))..;;;###a |
| 24ba0 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 66 69 6c 65 20 | utoload.(defun.counsel-org-file. |
| 24bc0 | 28 29 0a 20 20 22 42 72 6f 77 73 65 20 61 6c 6c 20 61 74 74 61 63 68 6d 65 6e 74 73 20 66 6f 72 | ()..."Browse.all.attachments.for |
| 24be0 | 20 63 75 72 72 65 6e 74 20 4f 72 67 20 66 69 6c 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .current.Org.file."...(interacti |
| 24c00 | 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 66 69 6c 65 3a 20 22 20 28 63 6f 75 6e 73 65 | ve)...(ivy-read."file:.".(counse |
| 24c20 | 6c 2d 6f 72 67 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e | l-org-files).............:action |
| 24c40 | 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 74 65 2d 61 63 74 69 6f 6e 2d 64 69 72 65 64 0a 20 | .#'counsel-locate-action-dired.. |
| 24c60 | 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d | ...........:caller.'counsel-org- |
| 24c80 | 66 69 6c 65 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 65 6e 74 69 74 79 | file))..;;**.`counsel-org-entity |
| 24ca0 | 27 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 65 6e 74 69 74 69 65 73 29 0a 28 64 65 66 76 61 72 20 | '.(defvar.org-entities).(defvar. |
| 24cc0 | 6f 72 67 2d 65 6e 74 69 74 69 65 73 2d 75 73 65 72 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f | org-entities-user)..;;;###autolo |
| 24ce0 | 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 65 6e 74 69 74 79 20 28 29 0a | ad.(defun.counsel-org-entity.(). |
| 24d00 | 20 20 22 43 6f 6d 70 6c 65 74 65 20 4f 72 67 20 65 6e 74 69 74 69 65 73 20 75 73 69 6e 67 20 49 | .."Complete.Org.entities.using.I |
| 24d20 | 76 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 | vy."...(interactive)...(require. |
| 24d40 | 27 6f 72 67 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 45 6e 74 69 74 79 3a 20 22 20 28 63 6c | 'org)...(ivy-read."Entity:.".(cl |
| 24d60 | 2d 6c 6f 6f 70 20 66 6f 72 20 65 6c 65 6d 65 6e 74 20 69 6e 20 28 61 70 70 65 6e 64 20 6f 72 67 | -loop.for.element.in.(append.org |
| 24d80 | 2d 65 6e 74 69 74 69 65 73 20 6f 72 67 2d 65 6e 74 69 74 69 65 73 2d 75 73 65 72 29 0a 20 20 20 | -entities.org-entities-user).... |
| 24da0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 73 | .......................unless.(s |
| 24dc0 | 74 72 69 6e 67 70 20 65 6c 65 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tringp.element)................. |
| 24de0 | 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 | ..........collect.(cons......... |
| 24e00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | ...........................(form |
| 24e20 | 61 74 20 22 25 32 30 73 20 7c 20 25 32 30 73 20 7c 20 25 32 30 73 20 7c 20 25 73 22 0a 20 20 20 | at."%20s.|.%20s.|.%20s.|.%s".... |
| 24e40 | 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 | ................................ |
| 24e60 | 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 72 73 74 20 65 6c 65 6d 65 6e 74 29 20 20 20 20 3b 20 | ........(cl-first.element)....;. |
| 24e80 | 6e 61 6d 65 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 | name............................ |
| 24ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 73 65 63 6f 6e 64 20 65 6c 65 6d 65 | ................(cl-second.eleme |
| 24ec0 | 6e 74 29 20 20 20 3b 20 6c 61 74 65 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nt)...;.latex................... |
| 24ee0 | 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 63 6c 2d 66 6f 75 | .........................(cl-fou |
| 24f00 | 72 74 68 20 65 6c 65 6d 65 6e 74 29 20 20 20 3b 20 68 74 6d 6c 0a 20 20 20 20 20 20 20 20 20 20 | rth.element)...;.html........... |
| 24f20 | 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 | ................................ |
| 24f40 | 20 28 63 6c 2d 73 65 76 65 6e 74 68 20 65 6c 65 6d 65 6e 74 29 29 20 3b 20 75 74 66 2d 38 0a 20 | .(cl-seventh.element)).;.utf-8.. |
| 24f60 | 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 | ................................ |
| 24f80 | 20 20 65 6c 65 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 | ..element)).............:require |
| 24fa0 | 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 27 28 31 | -match.t.............:action.'(1 |
| 24fc0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 75 22 20 28 6c 61 6d | .......................("u".(lam |
| 24fe0 | 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda.(candidate)................. |
| 25000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 73 65 76 65 6e 74 68 | .............(insert.(cl-seventh |
| 25020 | 20 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 29 20 22 75 74 66 2d 38 22 29 0a 20 20 20 | .(cdr.candidate))))."utf-8").... |
| 25040 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 6f 22 20 28 6c 61 6d 62 64 61 20 | ...................("o".(lambda. |
| 25060 | 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | (candidate)..................... |
| 25080 | 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 5c 22 20 28 63 6c 2d 66 69 72 73 74 20 | .........(insert."\\".(cl-first. |
| 250a0 | 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 29 20 22 6f 72 67 2d 65 6e 74 69 74 79 22 29 | (cdr.candidate))))."org-entity") |
| 250c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 6c 22 20 28 6c 61 6d | .......................("l".(lam |
| 250e0 | 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bda.(candidate)................. |
| 25100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 73 65 63 6f 6e 64 20 | .............(insert.(cl-second. |
| 25120 | 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 29 20 22 6c 61 74 65 78 22 29 0a 20 20 20 20 | (cdr.candidate))))."latex")..... |
| 25140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 68 22 20 28 6c 61 6d 62 64 61 20 28 | ..................("h".(lambda.( |
| 25160 | 63 61 6e 64 69 64 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | candidate)...................... |
| 25180 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 66 6f 75 72 74 68 20 28 63 64 72 20 | ........(insert.(cl-fourth.(cdr. |
| 251a0 | 63 61 6e 64 69 64 61 74 65 29 29 29 29 20 22 68 74 6d 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 | candidate))))."html")........... |
| 251c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 22 61 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 | ............("a".(lambda.(candid |
| 251e0 | 61 74 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 20 20 20 | ate)............................ |
| 25200 | 20 20 28 69 6e 73 65 72 74 20 28 63 6c 2d 66 69 66 74 68 20 28 63 64 72 20 63 61 6e 64 69 64 61 | ..(insert.(cl-fifth.(cdr.candida |
| 25220 | 74 65 29 29 29 29 20 22 61 73 63 69 69 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | te))))."ascii")................. |
| 25240 | 20 20 20 20 20 20 28 22 4c 22 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 69 64 61 74 65 29 0a 20 | ......("L".(lambda.(candidate).. |
| 25260 | 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 69 6e 73 | ............................(ins |
| 25280 | 65 72 74 20 28 63 6c 2d 73 69 78 74 68 20 28 63 64 72 20 63 61 6e 64 69 64 61 74 65 29 29 29 20 | ert.(cl-sixth.(cdr.candidate))). |
| 252a0 | 22 4c 61 74 69 6e 2d 31 22 29 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 | "Latin-1")))))..;;**.`counsel-or |
| 252c0 | 67 2d 63 61 70 74 75 72 65 27 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 63 61 70 74 75 72 65 2d 74 | g-capture'.(defvar.org-capture-t |
| 252e0 | 65 6d 70 6c 61 74 65 73 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 63 61 70 74 75 72 65 2d 74 65 | emplates).(defvar.org-capture-te |
| 25300 | 6d 70 6c 61 74 65 73 2d 63 6f 6e 74 65 78 74 73 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | mplates-contexts).(declare-funct |
| 25320 | 69 6f 6e 20 6f 72 67 2d 63 6f 6e 74 65 78 74 75 61 6c 69 7a 65 2d 6b 65 79 73 20 22 6f 72 67 22 | ion.org-contextualize-keys."org" |
| 25340 | 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 63 61 70 74 75 72 65 2d | ).(declare-function.org-capture- |
| 25360 | 67 6f 74 6f 2d 6c 61 73 74 2d 73 74 6f 72 65 64 20 22 6f 72 67 2d 63 61 70 74 75 72 65 22 29 0a | goto-last-stored."org-capture"). |
| 25380 | 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 63 61 70 74 75 72 65 2d 67 6f | (declare-function.org-capture-go |
| 253a0 | 74 6f 2d 74 61 72 67 65 74 20 22 6f 72 67 2d 63 61 70 74 75 72 65 22 29 0a 28 64 65 63 6c 61 72 | to-target."org-capture").(declar |
| 253c0 | 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 63 61 70 74 75 72 65 2d 75 70 67 72 61 64 65 2d 74 | e-function.org-capture-upgrade-t |
| 253e0 | 65 6d 70 6c 61 74 65 73 20 22 6f 72 67 2d 63 61 70 74 75 72 65 22 29 0a 0a 3b 3b 3b 23 23 23 61 | emplates."org-capture")..;;;###a |
| 25400 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 63 61 70 74 75 | utoload.(defun.counsel-org-captu |
| 25420 | 72 65 20 28 29 0a 20 20 22 43 61 70 74 75 72 65 20 73 6f 6d 65 74 68 69 6e 67 2e 22 0a 20 20 28 | re.()..."Capture.something."...( |
| 25440 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 6f 72 67 2d 63 61 70 | interactive)...(require.'org-cap |
| 25460 | 74 75 72 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 43 61 70 74 75 72 65 20 74 65 6d 70 6c | ture)...(ivy-read."Capture.templ |
| 25480 | 61 74 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 57 65 20 62 75 69 6c 64 20 74 | ate:.".............;;.We.build.t |
| 254a0 | 68 65 20 6c 69 73 74 20 6f 66 20 63 61 70 74 75 72 65 20 74 65 6d 70 6c 61 74 65 73 20 61 73 20 | he.list.of.capture.templates.as. |
| 254c0 | 69 6e 20 60 6f 72 67 2d 63 61 70 74 75 72 65 2d 73 65 6c 65 63 74 2d 74 65 6d 70 6c 61 74 65 27 | in.`org-capture-select-template' |
| 254e0 | 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 70 72 65 66 69 78 65 73 29 0a 20 20 | :.............(let.(prefixes)... |
| 25500 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 0a 20 20 20 20 20 20 20 20 20 | ............(cl-mapcan.......... |
| 25520 | 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(lambda.(x)............... |
| 25540 | 20 20 20 28 6c 65 74 20 28 28 78 2d 6b 65 79 73 20 28 63 61 72 20 78 29 29 29 0a 20 20 20 20 20 | ...(let.((x-keys.(car.x)))...... |
| 25560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 6d 6f 76 65 20 70 72 65 66 69 78 65 64 | ..............;;.Remove.prefixed |
| 25580 | 20 6b 65 79 73 20 75 6e 74 69 6c 20 77 65 20 67 65 74 20 6f 6e 65 20 74 68 61 74 20 6d 61 74 63 | .keys.until.we.get.one.that.matc |
| 255a0 | 68 65 73 20 74 68 65 20 63 75 72 72 65 6e 74 20 69 74 65 6d 2e 0a 20 20 20 20 20 20 20 20 20 20 | hes.the.current.item............ |
| 255c0 | 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 70 72 65 66 69 78 65 73 0a 20 20 | .........(while.(and.prefixes... |
| 255e0 | 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 6c 65 | .............................(le |
| 25600 | 74 20 28 28 70 31 2d 6b 65 79 73 20 28 63 61 61 72 20 70 72 65 66 69 78 65 73 29 29 29 0a 20 20 | t.((p1-keys.(caar.prefixes)))... |
| 25620 | 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 | ...............................( |
| 25640 | 6f 72 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 | or.............................. |
| 25660 | 20 20 20 20 20 28 3c 3d 20 28 6c 65 6e 67 74 68 20 78 2d 6b 65 79 73 29 20 28 6c 65 6e 67 74 68 | .....(<=.(length.x-keys).(length |
| 25680 | 20 70 31 2d 6b 65 79 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .p1-keys))...................... |
| 256a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 | .............(not.(string-prefix |
| 256c0 | 2d 70 20 70 31 2d 6b 65 79 73 20 78 2d 6b 65 79 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -p.p1-keys.x-keys))))).......... |
| 256e0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 20 70 72 65 66 69 78 65 73 29 29 0a 20 20 20 20 | ............(pop.prefixes))..... |
| 25700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3e 20 28 6c 65 6e 67 74 68 20 78 29 | ...............(if.(>.(length.x) |
| 25720 | 20 32 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 6c 65 74 20 | .2)........................(let. |
| 25740 | 28 28 64 65 73 63 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 61 64 72 20 28 72 65 76 65 72 73 | ((desc.(mapconcat.#'cadr.(revers |
| 25760 | 65 20 28 63 6f 6e 73 20 78 20 70 72 65 66 69 78 65 73 29 29 20 22 20 7c 20 22 29 29 29 0a 20 20 | e.(cons.x.prefixes)).".|.")))... |
| 25780 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 66 6f | .......................(list.(fo |
| 257a0 | 72 6d 61 74 20 22 25 2d 35 73 20 25 73 22 20 78 2d 6b 65 79 73 20 64 65 73 63 29 29 29 0a 20 20 | rmat."%-5s.%s".x-keys.desc)))... |
| 257c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 78 20 70 72 65 66 69 | ...................(push.x.prefi |
| 257e0 | 78 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 29 | xes)......................nil))) |
| 25800 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6f 72 67 2d 63 6f 6e 74 65 78 74 | ................(or.(org-context |
| 25820 | 75 61 6c 69 7a 65 2d 6b 65 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ualize-keys..................... |
| 25840 | 28 6f 72 67 2d 63 61 70 74 75 72 65 2d 75 70 67 72 61 64 65 2d 74 65 6d 70 6c 61 74 65 73 20 6f | (org-capture-upgrade-templates.o |
| 25860 | 72 67 2d 63 61 70 74 75 72 65 2d 74 65 6d 70 6c 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 | rg-capture-templates)........... |
| 25880 | 20 20 20 20 20 20 20 20 20 20 6f 72 67 2d 63 61 70 74 75 72 65 2d 74 65 6d 70 6c 61 74 65 73 2d | ..........org-capture-templates- |
| 258a0 | 63 6f 6e 74 65 78 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 | contexts)....................'(( |
| 258c0 | 22 74 22 20 22 54 61 73 6b 22 20 65 6e 74 72 79 20 28 66 69 6c 65 2b 68 65 61 64 6c 69 6e 65 20 | "t"."Task".entry.(file+headline. |
| 258e0 | 22 22 20 22 54 61 73 6b 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ""."Tasks")..................... |
| 25900 | 20 20 22 2a 20 54 4f 44 4f 20 25 3f 5c 6e 20 20 25 75 5c 6e 20 20 25 61 22 29 29 29 29 29 0a 20 | .."*.TODO.%?\n..%u\n..%a"))))).. |
| 25920 | 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 | ...........:require-match.t..... |
| 25940 | 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 | ........:action.(lambda.(x)..... |
| 25960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 61 70 74 75 72 65 20 6e | ..................(org-capture.n |
| 25980 | 69 6c 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 78 29 29 29 29 0a 20 20 20 20 | il.(car.(split-string.x))))..... |
| 259a0 | 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 63 61 70 | ........:caller.'counsel-org-cap |
| 259c0 | 74 75 72 65 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d | ture))..(ivy-configure.'counsel- |
| 259e0 | 6f 72 67 2d 63 61 70 74 75 72 65 0a 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 22 5e 22 | org-capture...:initial-input."^" |
| 25a00 | 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 | )..(ivy-set-actions..'counsel-or |
| 25a20 | 67 2d 63 61 70 74 75 72 65 0a 20 60 28 28 22 74 22 20 2c 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 | g-capture..`(("t".,(lambda.(x).. |
| 25a40 | 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 61 70 74 75 72 65 2d 67 6f 74 6f 2d 74 61 72 67 | ..........(org-capture-goto-targ |
| 25a60 | 65 74 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 78 29 29 29 29 0a 20 20 20 20 | et.(car.(split-string.x))))..... |
| 25a80 | 20 20 20 20 22 67 6f 20 74 6f 20 74 61 72 67 65 74 22 29 0a 20 20 20 28 22 6c 22 20 2c 28 6c 61 | ...."go.to.target")....("l".,(la |
| 25aa0 | 6d 62 64 61 20 28 5f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 61 70 74 75 72 | mbda.(_x)............(org-captur |
| 25ac0 | 65 2d 67 6f 74 6f 2d 6c 61 73 74 2d 73 74 6f 72 65 64 29 29 0a 20 20 20 20 20 20 20 20 22 67 6f | e-goto-last-stored))........."go |
| 25ae0 | 20 74 6f 20 6c 61 73 74 20 73 74 6f 72 65 64 22 29 0a 20 20 20 28 22 70 22 20 2c 28 6c 61 6d 62 | .to.last.stored")....("p".,(lamb |
| 25b00 | 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 63 61 70 74 75 72 65 20 30 | da.(x)............(org-capture.0 |
| 25b20 | 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 78 29 29 29 29 0a 20 20 20 20 20 20 | .(car.(split-string.x))))....... |
| 25b40 | 20 20 22 69 6e 73 65 72 74 20 74 65 6d 70 6c 61 74 65 20 61 74 20 70 6f 69 6e 74 22 29 0a 20 20 | .."insert.template.at.point")... |
| 25b60 | 20 28 22 63 22 20 2c 28 6c 61 6d 62 64 61 20 28 5f 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | .("c".,(lambda.(_x)............( |
| 25b80 | 63 75 73 74 6f 6d 69 7a 65 2d 76 61 72 69 61 62 6c 65 20 27 6f 72 67 2d 63 61 70 74 75 72 65 2d | customize-variable.'org-capture- |
| 25ba0 | 74 65 6d 70 6c 61 74 65 73 29 29 0a 20 20 20 20 20 20 20 20 22 63 75 73 74 6f 6d 69 7a 65 20 6f | templates))........."customize.o |
| 25bc0 | 72 67 2d 63 61 70 74 75 72 65 2d 74 65 6d 70 6c 61 74 65 73 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 | rg-capture-templates")))..;;**.` |
| 25be0 | 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 27 0a 28 64 | counsel-org-agenda-headlines'.(d |
| 25c00 | 65 66 76 61 72 20 6f 72 67 2d 6f 64 64 2d 6c 65 76 65 6c 73 2d 6f 6e 6c 79 29 0a 28 64 65 63 6c | efvar.org-odd-levels-only).(decl |
| 25c20 | 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 73 65 74 2d 73 74 61 72 74 75 70 2d 76 69 73 | are-function.org-set-startup-vis |
| 25c40 | 69 62 69 6c 69 74 79 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e | ibility."org").(declare-function |
| 25c60 | 20 6f 72 67 2d 73 68 6f 77 2d 65 6e 74 72 79 20 22 6f 72 67 22 29 0a 28 64 65 63 6c 61 72 65 2d | .org-show-entry."org").(declare- |
| 25c80 | 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 6d 61 70 2d 65 6e 74 72 69 65 73 20 22 6f 72 67 22 29 0a | function.org-map-entries."org"). |
| 25ca0 | 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 68 65 61 64 69 6e 67 2d 63 6f | (declare-function.org-heading-co |
| 25cc0 | 6d 70 6f 6e 65 6e 74 73 20 22 6f 72 67 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | mponents."org")..(defun.counsel- |
| 25ce0 | 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 2d 61 63 74 69 6f 6e 2d 67 6f 74 6f | org-agenda-headlines-action-goto |
| 25d00 | 20 28 68 65 61 64 6c 69 6e 65 29 0a 20 20 22 47 6f 20 74 6f 20 74 68 65 20 60 6f 72 67 2d 6d 6f | .(headline)..."Go.to.the.`org-mo |
| 25d20 | 64 65 27 20 61 67 65 6e 64 61 20 48 45 41 44 4c 49 4e 45 2e 22 0a 20 20 28 66 69 6e 64 2d 66 69 | de'.agenda.HEADLINE."...(find-fi |
| 25d40 | 6c 65 20 28 6e 74 68 20 31 20 68 65 61 64 6c 69 6e 65 29 29 0a 20 20 28 6f 72 67 2d 73 65 74 2d | le.(nth.1.headline))...(org-set- |
| 25d60 | 73 74 61 72 74 75 70 2d 76 69 73 69 62 69 6c 69 74 79 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 | startup-visibility)...(goto-char |
| 25d80 | 20 28 6e 74 68 20 32 20 68 65 61 64 6c 69 6e 65 29 29 0a 20 20 28 6f 72 67 2d 73 68 6f 77 2d 65 | .(nth.2.headline))...(org-show-e |
| 25da0 | 6e 74 72 79 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 | ntry))..(ivy-set-actions..'couns |
| 25dc0 | 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 0a 20 27 28 28 22 67 22 20 | el-org-agenda-headlines..'(("g". |
| 25de0 | 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 2d 61 63 74 | counsel-org-agenda-headlines-act |
| 25e00 | 69 6f 6e 2d 67 6f 74 6f 20 22 67 6f 74 6f 20 68 65 61 64 6c 69 6e 65 22 29 29 29 0a 0a 28 64 65 | ion-goto."goto.headline")))..(de |
| 25e20 | 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 | fvar.counsel-org-agenda-headline |
| 25e40 | 73 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f | s-history.nil..."History.for.`co |
| 25e60 | 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 27 2e 22 29 0a 0a | unsel-org-agenda-headlines'.").. |
| 25e80 | 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c | (defcustom.counsel-outline-displ |
| 25ea0 | 61 79 2d 73 74 79 6c 65 20 27 70 61 74 68 0a 20 20 22 54 68 65 20 73 74 79 6c 65 20 75 73 65 64 | ay-style.'path..."The.style.used |
| 25ec0 | 20 77 68 65 6e 20 64 69 73 70 6c 61 79 69 6e 67 20 6d 61 74 63 68 65 64 20 6f 75 74 6c 69 6e 65 | .when.displaying.matched.outline |
| 25ee0 | 20 68 65 61 64 69 6e 67 73 2e 0a 0a 49 66 20 60 68 65 61 64 6c 69 6e 65 27 2c 20 74 68 65 20 74 | .headings...If.`headline',.the.t |
| 25f00 | 69 74 6c 65 20 69 73 20 64 69 73 70 6c 61 79 65 64 20 77 69 74 68 20 6c 65 61 64 69 6e 67 20 73 | itle.is.displayed.with.leading.s |
| 25f20 | 74 61 72 73 0a 69 6e 64 69 63 61 74 69 6e 67 20 74 68 65 20 6f 75 74 6c 69 6e 65 20 6c 65 76 65 | tars.indicating.the.outline.leve |
| 25f40 | 6c 2e 0a 0a 49 66 20 60 70 61 74 68 27 2c 20 74 68 65 20 70 61 74 68 20 68 69 65 72 61 72 63 68 | l...If.`path',.the.path.hierarch |
| 25f60 | 79 20 69 73 20 64 69 73 70 6c 61 79 65 64 2e 20 20 46 6f 72 20 65 61 63 68 20 65 6e 74 72 79 20 | y.is.displayed...For.each.entry. |
| 25f80 | 74 68 65 0a 74 69 74 6c 65 20 69 73 20 73 68 6f 77 6e 2e 20 20 45 6e 74 72 69 65 73 20 61 72 65 | the.title.is.shown...Entries.are |
| 25fa0 | 20 73 65 70 61 72 61 74 65 64 20 77 69 74 68 0a 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 | .separated.with.`counsel-outline |
| 25fc0 | 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 27 2e 0a 0a 49 66 20 60 74 69 74 6c 65 27 20 6f 72 | -path-separator'...If.`title'.or |
| 25fe0 | 20 61 6e 79 20 6f 74 68 65 72 20 76 61 6c 75 65 2c 20 6f 6e 6c 79 20 74 68 65 20 74 69 74 6c 65 | .any.other.value,.only.the.title |
| 26000 | 20 6f 66 20 74 68 65 20 68 65 61 64 69 6e 67 20 69 73 0a 64 69 73 70 6c 61 79 65 64 2e 0a 0a 46 | .of.the.heading.is.displayed...F |
| 26020 | 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 74 61 67 73 20 61 6e 64 20 54 4f 44 4f 20 6b 65 79 77 | or.displaying.tags.and.TODO.keyw |
| 26040 | 6f 72 64 73 20 69 6e 20 60 6f 72 67 2d 6d 6f 64 65 27 20 62 75 66 66 65 72 73 2c 20 73 65 65 0a | ords.in.`org-mode'.buffers,.see. |
| 26060 | 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 61 | `counsel-org-headline-display-ta |
| 26080 | 67 73 27 20 61 6e 64 0a 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 | gs'.and.`counsel-org-headline-di |
| 260a0 | 73 70 6c 61 79 2d 74 6f 64 6f 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 22 0a 20 20 3a 74 | splay-todo',.respectively."...:t |
| 260c0 | 79 70 65 20 27 28 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 | ype.'(choice...........(const.:t |
| 260e0 | 61 67 20 22 54 69 74 6c 65 20 6f 6e 6c 79 22 20 74 69 74 6c 65 29 0a 20 20 20 20 20 20 20 20 20 | ag."Title.only".title).......... |
| 26100 | 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 48 65 61 64 6c 69 6e 65 22 20 68 65 61 64 6c 69 6e 65 | .(const.:tag."Headline".headline |
| 26120 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 50 61 74 68 22 20 70 | )...........(const.:tag."Path".p |
| 26140 | 61 74 68 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 | ath)))..(defcustom.counsel-outli |
| 26160 | 6e 65 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 22 2f 22 0a 20 20 22 53 74 72 69 6e 67 20 | ne-path-separator."/"..."String. |
| 26180 | 73 65 70 61 72 61 74 69 6e 67 20 70 61 74 68 20 65 6e 74 72 69 65 73 20 69 6e 20 6d 61 74 63 68 | separating.path.entries.in.match |
| 261a0 | 65 64 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 73 2e 0a 54 68 69 73 20 76 61 72 69 61 62 | ed.outline.headings..This.variab |
| 261c0 | 6c 65 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 20 75 6e 6c 65 73 73 0a 60 63 6f 75 6e 73 65 6c | le.has.no.effect.unless.`counsel |
| 261e0 | 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 27 20 69 73 20 73 65 74 20 74 | -outline-display-style'.is.set.t |
| 26200 | 6f 20 60 70 61 74 68 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 | o.`path'."...:type.'string)..(de |
| 26220 | 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 67 65 74 2d 6f 75 74 6c 69 6e 65 2d 70 | clare-function.org-get-outline-p |
| 26240 | 61 74 68 20 22 6f 72 67 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 | ath."org")..(defun.counsel-org-a |
| 26260 | 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 2d 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 | genda-headlines--candidates.().. |
| 26280 | 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 | ."Return.a.list.of.completion.ca |
| 262a0 | 6e 64 69 64 61 74 65 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 | ndidates.for.`counsel-org-agenda |
| 262c0 | 2d 68 65 61 64 6c 69 6e 65 73 27 2e 22 0a 20 20 28 6f 72 67 2d 6d 61 70 2d 65 6e 74 72 69 65 73 | -headlines'."...(org-map-entries |
| 262e0 | 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 70 | ....(lambda.()......(let*.((comp |
| 26300 | 6f 6e 65 6e 74 73 20 28 6f 72 67 2d 68 65 61 64 69 6e 67 2d 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 | onents.(org-heading-components)) |
| 26320 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 76 65 6c 20 28 61 6e 64 20 28 65 71 20 63 6f 75 | .............(level.(and.(eq.cou |
| 26340 | 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 20 27 68 65 61 64 | nsel-outline-display-style.'head |
| 26360 | 6c 69 6e 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 28 6d | line).........................(m |
| 26380 | 61 6b 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ake-string...................... |
| 263a0 | 20 20 20 20 28 69 66 20 6f 72 67 2d 6f 64 64 2d 6c 65 76 65 6c 73 2d 6f 6e 6c 79 0a 20 20 20 20 | ....(if.org-odd-levels-only..... |
| 263c0 | 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 6e 74 68 20 31 20 | .........................(nth.1. |
| 263e0 | 63 6f 6d 70 6f 6e 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | components)..................... |
| 26400 | 20 20 20 20 20 20 20 28 6e 74 68 20 30 20 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 0a 20 20 20 20 20 | .......(nth.0.components))...... |
| 26420 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3f 2a 29 29 29 0a 20 20 20 20 20 20 | ....................?*)))....... |
| 26440 | 20 20 20 20 20 20 28 74 6f 64 6f 20 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 | ......(todo.(and.counsel-org-hea |
| 26460 | 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 6f 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | dline-display-todo.............. |
| 26480 | 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 32 20 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 29 0a 20 | ..........(nth.2.components))).. |
| 264a0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 61 6e 64 20 28 65 71 20 63 6f 75 6e 73 65 | ...........(path.(and.(eq.counse |
| 264c0 | 6c 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 20 27 70 61 74 68 29 0a 20 | l-outline-display-style.'path).. |
| 264e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 67 65 74 2d 6f | ......................(org-get-o |
| 26500 | 75 74 6c 69 6e 65 2d 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6f | utline-path))).............(prio |
| 26520 | 72 69 74 79 20 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 | rity.(and.counsel-org-headline-d |
| 26540 | 69 73 70 6c 61 79 2d 70 72 69 6f 72 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | isplay-priority................. |
| 26560 | 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 33 20 63 6f 6d 70 6f 6e 65 6e 74 73 29 29 29 0a | ...........(nth.3.components))). |
| 26580 | 20 20 20 20 20 20 20 20 20 20 20 20 28 74 65 78 74 20 28 6e 74 68 20 34 20 63 6f 6d 70 6f 6e 65 | ............(text.(nth.4.compone |
| 265a0 | 6e 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 67 73 20 28 61 6e 64 20 63 6f 75 | nts)).............(tags.(and.cou |
| 265c0 | 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 61 67 73 0a 20 | nsel-org-headline-display-tags.. |
| 265e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 35 20 63 6f 6d | ......................(nth.5.com |
| 26600 | 70 6f 6e 65 6e 74 73 29 29 29 29 0a 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 | ponents))))........(list........ |
| 26620 | 20 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 23 27 69 64 65 6e 74 69 74 79 0a | .(mapconcat..........#'identity. |
| 26640 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 23 27 6e 75 6c 6c 0a 20 20 | .........(cl-remove-if.#'null... |
| 26660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 | .....................(list...... |
| 26680 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 65 76 65 6c 0a 20 20 20 20 20 20 20 | ...................level........ |
| 266a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 64 6f 0a 20 20 20 20 20 20 20 20 20 20 | .................todo........... |
| 266c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 70 72 69 6f 72 69 74 79 20 28 66 6f 72 | ..............(and.priority.(for |
| 266e0 | 6d 61 74 20 22 5b 23 25 63 5d 22 20 70 72 69 6f 72 69 74 79 29 29 0a 20 20 20 20 20 20 20 20 20 | mat."[#%c]".priority)).......... |
| 26700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e | ...............(mapconcat.#'iden |
| 26720 | 74 69 74 79 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 | tity............................ |
| 26740 | 20 20 20 20 20 20 20 20 28 61 70 70 65 6e 64 20 70 61 74 68 20 28 6c 69 73 74 20 74 65 78 74 29 | ........(append.path.(list.text) |
| 26760 | 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 | )............................... |
| 26780 | 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 70 61 74 68 2d 73 65 70 61 72 61 | .....counsel-outline-path-separa |
| 267a0 | 74 6f 72 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 74 61 67 | tor).........................tag |
| 267c0 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 62 75 66 66 65 72 | s))..........".").........buffer |
| 267e0 | 2d 66 69 6c 65 2d 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 | -file-name.........(point))))... |
| 26800 | 20 6e 69 6c 0a 20 20 20 27 61 67 65 6e 64 61 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 | .nil....'agenda))..;;;###autoloa |
| 26820 | 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 | d.(defun.counsel-org-agenda-head |
| 26840 | 6c 69 6e 65 73 20 28 29 0a 20 20 22 43 68 6f 6f 73 65 20 66 72 6f 6d 20 68 65 61 64 65 72 73 20 | lines.()..."Choose.from.headers. |
| 26860 | 6f 66 20 60 6f 72 67 2d 6d 6f 64 65 27 20 66 69 6c 65 73 20 69 6e 20 74 68 65 20 61 67 65 6e 64 | of.`org-mode'.files.in.the.agend |
| 26880 | 61 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 | a."...(interactive)...(require.' |
| 268a0 | 6f 72 67 29 0a 20 20 28 6c 65 74 20 28 28 6d 69 6e 69 62 75 66 66 65 72 2d 61 6c 6c 6f 77 2d 74 | org)...(let.((minibuffer-allow-t |
| 268c0 | 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 74 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 | ext-properties.t)).....(ivy-read |
| 268e0 | 20 22 4f 72 67 20 68 65 61 64 6c 69 6e 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ."Org.headline:."............... |
| 26900 | 28 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 2d 2d 63 | (counsel-org-agenda-headlines--c |
| 26920 | 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e | andidates)...............:action |
| 26940 | 20 23 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 2d | .#'counsel-org-agenda-headlines- |
| 26960 | 61 63 74 69 6f 6e 2d 67 6f 74 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f | action-goto...............:histo |
| 26980 | 72 79 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 | ry.'counsel-org-agenda-headlines |
| 269a0 | 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 | -history...............:caller.' |
| 269c0 | 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 61 67 65 6e 64 61 2d 68 65 61 64 6c 69 6e 65 73 29 29 29 0a | counsel-org-agenda-headlines))). |
| 269e0 | 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 6c 69 6e 6b 27 0a 28 64 65 63 6c 61 72 | .;;**.`counsel-org-link'.(declar |
| 26a00 | 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 6e 6b 20 22 6f 6c 22 29 | e-function.org-insert-link."ol") |
| 26a20 | 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 69 64 2d 67 65 74 2d 63 72 | .(declare-function.org-id-get-cr |
| 26a40 | 65 61 74 65 20 22 6f 72 67 2d 69 64 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f | eate."org-id")..(defun.counsel-o |
| 26a60 | 72 67 2d 6c 69 6e 6b 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 6c | rg-link-action.(x)..."Insert.a.l |
| 26a80 | 69 6e 6b 20 74 6f 20 58 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 64 20 28 73 61 76 65 2d 65 78 63 | ink.to.X."...(let.((id.(save-exc |
| 26aa0 | 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | ursion...............(goto-char. |
| 26ac0 | 28 63 64 72 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 69 64 2d 67 | (cdr.x))...............(org-id-g |
| 26ae0 | 65 74 2d 63 72 65 61 74 65 29 29 29 29 0a 20 20 20 20 28 6f 72 67 2d 69 6e 73 65 72 74 2d 6c 69 | et-create)))).....(org-insert-li |
| 26b00 | 6e 6b 20 6e 69 6c 20 28 63 6f 6e 63 61 74 20 22 69 64 3a 22 20 69 64 29 20 28 63 61 72 20 78 29 | nk.nil.(concat."id:".id).(car.x) |
| 26b20 | 29 29 29 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 75 6e 73 | )))..;;;###autoload.(defun.couns |
| 26b40 | 65 6c 2d 6f 72 67 2d 6c 69 6e 6b 20 28 29 0a 20 20 22 49 6e 73 65 72 74 20 61 20 6c 69 6e 6b 20 | el-org-link.()..."Insert.a.link. |
| 26b60 | 74 6f 20 61 6e 20 68 65 61 64 6c 69 6e 65 20 77 69 74 68 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 | to.an.headline.with.completion." |
| 26b80 | 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 4c 69 | ...(interactive)...(ivy-read."Li |
| 26ba0 | 6e 6b 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 61 6e 64 69 64 61 74 65 | nk:.".(counsel-outline-candidate |
| 26bc0 | 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3a 6f 75 74 6c 69 | s.......................'(:outli |
| 26be0 | 6e 65 2d 74 69 74 6c 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 6f | ne-title.counsel-outline-title-o |
| 26c00 | 72 67 20 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e | rg.)).............:action.#'coun |
| 26c20 | 73 65 6c 2d 6f 72 67 2d 6c 69 6e 6b 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | sel-org-link-action............. |
| 26c40 | 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 6c 69 6e 6b 2d 68 69 73 74 6f | :history.'counsel-org-link-histo |
| 26c60 | 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d | ry.............:caller.'counsel- |
| 26c80 | 6f 72 67 2d 6c 69 6e 6b 29 29 0a 0a 3b 3b 20 4d 69 73 63 2e 20 45 6d 61 63 73 0a 3b 3b 2a 2a 20 | org-link))..;;.Misc..Emacs.;;**. |
| 26ca0 | 60 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 27 0a 28 64 65 66 66 61 63 65 20 63 6f 75 | `counsel-mark-ring'.(defface.cou |
| 26cc0 | 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 68 69 67 68 6c 69 67 68 74 0a 20 20 27 28 28 74 | nsel--mark-ring-highlight...'((t |
| 26ce0 | 20 3a 69 6e 68 65 72 69 74 20 68 69 67 68 6c 69 67 68 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f | .:inherit.highlight))..."Face.fo |
| 26d00 | 72 20 63 75 72 72 65 6e 74 20 60 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 27 20 6c 69 | r.current.`counsel-mark-ring'.li |
| 26d20 | 6e 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 76 | ne."...:group.'ivy-faces)..(defv |
| 26d40 | 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 6f 76 65 72 6c 61 79 20 6e 69 | ar.counsel--mark-ring-overlay.ni |
| 26d60 | 6c 0a 20 20 22 49 6e 74 65 72 6e 61 6c 20 6f 76 65 72 6c 61 79 20 74 6f 20 68 69 67 68 6c 69 67 | l..."Internal.overlay.to.highlig |
| 26d80 | 68 74 20 6c 69 6e 65 20 62 79 20 63 61 6e 64 69 64 61 74 65 20 6f 66 20 60 63 6f 75 6e 73 65 6c | ht.line.by.candidate.of.`counsel |
| 26da0 | 2d 6d 61 72 6b 2d 72 69 6e 67 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d | -mark-ring'.")..(defun.counsel-- |
| 26dc0 | 6d 61 72 6b 2d 72 69 6e 67 2d 61 64 64 2d 68 69 67 68 6c 69 67 68 74 20 28 29 0a 20 20 22 41 64 | mark-ring-add-highlight.()..."Ad |
| 26de0 | 64 20 68 69 67 68 6c 69 67 68 74 20 74 6f 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 22 0a 20 20 | d.highlight.to.current.line."... |
| 26e00 | 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 6f 76 65 72 6c 61 79 | (setq.counsel--mark-ring-overlay |
| 26e20 | 0a 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 28 6c 69 6e 65 2d 62 65 67 | .........(make-overlay.(line-beg |
| 26e40 | 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 31 2b 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 | inning-position).(1+.(line-end-p |
| 26e60 | 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 | osition))))...(with-ivy-window.. |
| 26e80 | 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 | ...(overlay-put.counsel--mark-ri |
| 26ea0 | 6e 67 2d 6f 76 65 72 6c 61 79 20 27 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ng-overlay.'face................ |
| 26ec0 | 20 20 27 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 68 69 67 68 6c 69 67 68 74 29 | ..'counsel--mark-ring-highlight) |
| 26ee0 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 64 65 | ))..(defun.counsel--mark-ring-de |
| 26f00 | 6c 65 74 65 2d 68 69 67 68 6c 69 67 68 74 20 28 29 0a 20 20 22 49 66 20 60 63 6f 75 6e 73 65 6c | lete-highlight.()..."If.`counsel |
| 26f20 | 2d 6d 61 72 6b 2d 72 69 6e 67 27 20 68 61 76 65 20 68 69 67 68 6c 69 67 68 74 2c 20 64 65 6c 65 | -mark-ring'.have.highlight,.dele |
| 26f40 | 74 65 20 68 69 67 68 6c 69 67 68 74 2e 22 0a 20 20 28 69 66 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 | te.highlight."...(if.counsel--ma |
| 26f60 | 72 6b 2d 72 69 6e 67 2d 6f 76 65 72 6c 61 79 20 28 64 65 6c 65 74 65 2d 6f 76 65 72 6c 61 79 20 | rk-ring-overlay.(delete-overlay. |
| 26f80 | 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 6f 76 65 72 6c 61 79 29 29 29 0a 0a 28 | counsel--mark-ring-overlay)))..( |
| 26fa0 | 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 63 61 6c 6c 69 6e | defvar.counsel--mark-ring-callin |
| 26fc0 | 67 2d 70 6f 69 6e 74 20 30 0a 20 20 22 49 6e 74 65 72 6e 61 6c 20 76 61 72 69 61 62 6c 65 20 74 | g-point.0..."Internal.variable.t |
| 26fe0 | 6f 20 72 65 6d 65 6d 62 65 72 20 63 61 6c 6c 69 6e 67 20 70 6f 73 69 74 69 6f 6e 2e 22 29 0a 0a | o.remember.calling.position.").. |
| 27000 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 75 6e 77 69 6e 64 | (defun.counsel--mark-ring-unwind |
| 27020 | 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 62 61 63 6b 20 74 6f 20 63 61 6c 6c 69 6e 67 20 70 6f | .()..."Return.back.to.calling.po |
| 27040 | 73 69 74 69 6f 6e 20 6f 66 20 60 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 27 2e 22 0a | sition.of.`counsel-mark-ring'.". |
| 27060 | 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d | ..(goto-char.counsel--mark-ring- |
| 27080 | 63 61 6c 6c 69 6e 67 2d 70 6f 69 6e 74 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d | calling-point)...(counsel--mark- |
| 270a0 | 72 69 6e 67 2d 64 65 6c 65 74 65 2d 68 69 67 68 6c 69 67 68 74 29 29 0a 0a 28 64 65 66 75 6e 20 | ring-delete-highlight))..(defun. |
| 270c0 | 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 75 70 64 61 74 65 2d 66 6e 20 28 29 0a | counsel--mark-ring-update-fn.(). |
| 270e0 | 20 20 22 53 68 6f 77 20 70 72 65 76 69 65 77 20 62 79 20 63 61 6e 64 69 64 61 74 65 2e 22 0a 20 | .."Show.preview.by.candidate.".. |
| 27100 | 20 28 6c 65 74 20 28 28 70 6f 73 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 | .(let.((pos.(get-text-property.0 |
| 27120 | 20 27 70 6f 69 6e 74 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 2d 6c | .'point.(ivy-state-current.ivy-l |
| 27140 | 61 73 74 29 29 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d | ast)))).....(counsel--mark-ring- |
| 27160 | 64 65 6c 65 74 65 2d 68 69 67 68 6c 69 67 68 74 29 0a 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d | delete-highlight).....(with-ivy- |
| 27180 | 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 | window.......(goto-char.pos).... |
| 271a0 | 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 61 64 64 2d 68 69 67 68 6c | ...(counsel--mark-ring-add-highl |
| 271c0 | 69 67 68 74 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 | ight))))..;;;###autoload.(defun. |
| 271e0 | 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 20 28 29 0a 20 20 22 42 72 6f 77 73 65 20 60 | counsel-mark-ring.()..."Browse.` |
| 27200 | 6d 61 72 6b 2d 72 69 6e 67 27 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 0a 4f 62 65 79 73 20 | mark-ring'.interactively..Obeys. |
| 27220 | 60 77 69 64 65 6e 2d 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 27 2c 20 77 68 69 63 68 20 73 65 65 | `widen-automatically',.which.see |
| 27240 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6f 75 | ."...(interactive)...(let*.((cou |
| 27260 | 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 63 61 6c 6c 69 6e 67 2d 70 6f 69 6e 74 20 28 70 | nsel--mark-ring-calling-point.(p |
| 27280 | 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 72 6b 73 20 28 63 6f 70 79 2d 73 65 71 | oint))..........(marks.(copy-seq |
| 272a0 | 75 65 6e 63 65 20 6d 61 72 6b 2d 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 72 6b | uence.mark-ring))..........(mark |
| 272c0 | 73 20 28 64 65 6c 65 74 65 2d 64 75 70 73 20 6d 61 72 6b 73 29 29 0a 20 20 20 20 20 20 20 20 20 | s.(delete-dups.marks)).......... |
| 272e0 | 28 6d 61 72 6b 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6d 61 72 6b 2d 6d 61 72 6b 65 72 20 | (marks...........;;.mark-marker. |
| 27300 | 69 73 20 65 6d 70 74 79 3f 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 28 | is.empty?...........(if.(equal.( |
| 27320 | 6d 61 72 6b 2d 6d 61 72 6b 65 72 29 20 28 6d 61 6b 65 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 | mark-marker).(make-marker))..... |
| 27340 | 20 20 20 20 20 20 20 20 20 20 6d 61 72 6b 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | ..........marks.............(con |
| 27360 | 73 20 28 63 6f 70 79 2d 6d 61 72 6b 65 72 20 28 6d 61 72 6b 2d 6d 61 72 6b 65 72 29 29 20 6d 61 | s.(copy-marker.(mark-marker)).ma |
| 27380 | 72 6b 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 6f 75 | rks)))..........(candidates.(cou |
| 273a0 | 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 73 20 6d 61 72 6b 73 29 | nsel-mark--get-candidates.marks) |
| 273c0 | 29 29 0a 20 20 20 20 28 69 66 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 28 63 | )).....(if.candidates.........(c |
| 273e0 | 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 69 76 79 2d 72 65 61 64 20 22 4d 61 72 6b 3a 20 22 20 63 | ounsel-mark--ivy-read."Mark:.".c |
| 27400 | 61 6e 64 69 64 61 74 65 73 20 27 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 29 0a 20 20 | andidates.'counsel-mark-ring)... |
| 27420 | 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4d 61 72 6b 20 72 69 6e 67 20 69 73 20 65 6d 70 74 79 | ....(message."Mark.ring.is.empty |
| 27440 | 22 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d | "))))..(defun.counsel-mark--get- |
| 27460 | 63 61 6e 64 69 64 61 74 65 73 20 28 6d 61 72 6b 73 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 61 20 | candidates.(marks)..."Convert.a. |
| 27480 | 6c 69 73 74 20 6f 66 20 4d 41 52 4b 53 20 69 6e 74 6f 20 6d 61 72 6b 20 63 61 6e 64 69 64 61 74 | list.of.MARKS.into.mark.candidat |
| 274a0 | 65 73 2e 0a 63 61 6e 64 69 64 61 74 65 73 20 61 72 65 20 73 69 6d 70 6c 79 20 73 74 72 69 6e 67 | es..candidates.are.simply.string |
| 274c0 | 73 20 66 6f 72 6d 61 74 74 65 64 20 74 6f 20 68 61 76 65 20 74 68 65 20 6c 69 6e 65 20 6e 75 6d | s.formatted.to.have.the.line.num |
| 274e0 | 62 65 72 20 6f 66 20 74 68 65 0a 61 73 73 6f 63 69 61 74 65 64 20 6d 61 72 6b 20 70 72 65 70 65 | ber.of.the.associated.mark.prepe |
| 27500 | 6e 64 65 64 20 74 6f 20 74 68 65 6d 20 61 6e 64 20 68 61 76 69 6e 67 20 61 6e 20 65 78 74 72 61 | nded.to.them.and.having.an.extra |
| 27520 | 20 74 65 78 74 20 70 72 6f 70 65 72 74 79 20 6f 66 0a 70 6f 69 6e 74 20 74 6f 20 69 6e 64 69 63 | .text.property.of.point.to.indic |
| 27540 | 61 72 74 65 20 77 68 65 72 65 20 74 68 65 20 63 61 6e 64 69 64 61 74 65 20 6d 61 72 6b 20 69 73 | arte.where.the.candidate.mark.is |
| 27560 | 2e 22 0a 20 20 28 77 68 65 6e 20 6d 61 72 6b 73 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 | ."...(when.marks.....(save-excur |
| 27580 | 73 69 6f 6e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 72 65 73 74 72 69 63 74 69 6f 6e 0a 20 20 20 | sion.......(save-restriction.... |
| 275a0 | 20 20 20 20 20 3b 3b 20 57 69 64 65 6e 2c 20 62 6f 74 68 20 74 6f 20 73 61 76 65 20 60 6c 69 6e | .....;;.Widen,.both.to.save.`lin |
| 275c0 | 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 27 20 74 68 65 20 74 72 6f 75 62 6c 65 0a 20 20 20 | e-number-at-pos'.the.trouble.... |
| 275e0 | 20 20 20 20 20 3b 3b 20 61 6e 64 20 66 6f 72 20 60 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e | .....;;.and.for.`buffer-substrin |
| 27600 | 67 27 20 74 6f 20 77 6f 72 6b 2e 0a 20 20 20 20 20 20 20 20 28 77 69 64 65 6e 29 0a 20 20 20 20 | g'.to.work..........(widen)..... |
| 27620 | 20 20 20 20 28 6c 65 74 2a 20 28 28 77 69 64 74 68 20 28 6c 65 6e 67 74 68 20 28 6e 75 6d 62 65 | ....(let*.((width.(length.(numbe |
| 27640 | 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 20 | r-to-string.(line-number-at-pos. |
| 27660 | 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | (point-max)))))................( |
| 27680 | 66 6d 74 20 28 66 6f 72 6d 61 74 20 22 25 25 25 64 64 20 25 25 73 22 20 77 69 64 74 68 29 29 29 | fmt.(format."%%%dd.%%s".width))) |
| 276a0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 6d 61 72 6b | ...........(mapcar.(lambda.(mark |
| 276c0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | ).....................(goto-char |
| 276e0 | 20 28 6d 61 72 6b 65 72 2d 70 6f 73 69 74 69 6f 6e 20 6d 61 72 6b 29 29 0a 20 20 20 20 20 20 20 | .(marker-position.mark))........ |
| 27700 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6c 69 6e 75 6d 20 28 6c 69 6e 65 2d | .............(let.((linum.(line- |
| 27720 | 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | number-at-pos))................. |
| 27740 | 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 | ..........(line..(buffer-substri |
| 27760 | 6e 67 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 | ng.............................. |
| 27780 | 20 20 20 20 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 | .....(line-beginning-position).( |
| 277a0 | 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | line-end-position))))........... |
| 277c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 | ............(propertize.(format. |
| 277e0 | 66 6d 74 20 6c 69 6e 75 6d 20 6c 69 6e 65 29 20 27 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 29 | fmt.linum.line).'point.(point))) |
| 27800 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 72 6b 73 29 29 29 29 29 29 0a | )...................marks)))))). |
| 27820 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 69 76 79 2d 72 65 61 64 20 28 | .(defun.counsel-mark--ivy-read.( |
| 27840 | 70 72 6f 6d 70 74 20 63 61 6e 64 69 64 61 74 65 73 20 63 61 6c 6c 65 72 29 0a 20 20 22 63 61 6c | prompt.candidates.caller)..."cal |
| 27860 | 6c 20 60 69 76 79 2d 72 65 61 64 27 20 77 69 74 68 20 73 61 6e 65 20 64 65 66 61 75 6c 74 73 20 | l.`ivy-read'.with.sane.defaults. |
| 27880 | 66 6f 72 20 74 72 61 76 65 72 73 69 6e 67 20 6d 61 72 6b 73 2e 0a 43 41 4e 44 49 44 41 54 45 53 | for.traversing.marks..CANDIDATES |
| 278a0 | 20 73 68 6f 75 6c 64 20 62 65 20 61 6e 20 61 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 60 63 61 | .should.be.an.alist.with.the.`ca |
| 278c0 | 72 27 20 6f 66 20 74 68 65 20 6c 69 73 74 20 62 65 69 6e 67 0a 74 68 65 20 73 74 72 69 6e 67 20 | r'.of.the.list.being.the.string. |
| 278e0 | 64 69 73 70 6c 61 79 65 64 20 62 79 20 69 76 79 20 61 6e 64 20 74 68 65 20 60 63 64 72 27 20 62 | displayed.by.ivy.and.the.`cdr'.b |
| 27900 | 65 69 6e 67 20 74 68 65 20 70 6f 69 6e 74 20 74 68 61 74 0a 6d 61 72 6b 20 73 68 6f 75 6c 64 20 | eing.the.point.that.mark.should. |
| 27920 | 74 61 6b 65 20 79 6f 75 20 74 6f 2e 0a 0a 4e 4f 54 45 20 54 68 69 73 20 68 61 73 20 62 65 65 6e | take.you.to...NOTE.This.has.been |
| 27940 | 20 61 62 73 74 72 61 63 74 65 64 20 6f 75 74 20 69 6e 74 6f 20 69 74 27 73 20 6f 77 6e 20 6d 65 | .abstracted.out.into.it's.own.me |
| 27960 | 74 68 6f 64 20 73 6f 20 69 74 20 63 61 6e 0a 62 65 20 75 73 65 64 20 62 79 20 62 6f 74 68 20 60 | thod.so.it.can.be.used.by.both.` |
| 27980 | 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 72 69 6e 67 27 20 61 6e 64 20 60 63 6f 75 6e 73 65 6c 2d | counsel-mark-ring'.and.`counsel- |
| 279a0 | 65 76 69 6c 2d 6d 61 72 6b 73 27 22 0a 20 20 28 69 76 79 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 | evil-marks'"...(ivy-read.prompt. |
| 279c0 | 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d | candidates.............:require- |
| 279e0 | 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 75 70 64 61 74 65 2d 66 6e 20 23 | match.t.............:update-fn.# |
| 27a00 | 27 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 75 70 64 61 74 65 2d 66 6e 0a 20 20 | 'counsel--mark-ring-update-fn... |
| 27a20 | 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 63 61 6e 64 29 | ..........:action.(lambda.(cand) |
| 27a40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f | .......................(let.((po |
| 27a60 | 73 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 70 6f 69 6e 74 20 63 61 | s.(get-text-property.0.'point.ca |
| 27a80 | 6e 64 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 20 20 28 77 | nd))).........................(w |
| 27aa0 | 68 65 6e 20 70 6f 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 | hen.pos......................... |
| 27ac0 | 20 20 28 75 6e 6c 65 73 73 20 28 3c 3d 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 70 6f 73 20 28 70 | ..(unless.(<=.(point-min).pos.(p |
| 27ae0 | 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oint-max))...................... |
| 27b00 | 20 20 20 20 20 20 20 28 69 66 20 77 69 64 65 6e 2d 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 0a 20 | .......(if.widen-automatically.. |
| 27b20 | 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 | ...............................( |
| 27b40 | 77 69 64 65 6e 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 | widen).......................... |
| 27b60 | 20 20 20 20 20 28 65 72 72 6f 72 20 22 5c 0a 50 6f 73 69 74 69 6f 6e 20 6f 66 20 73 65 6c 65 63 | .....(error."\.Position.of.selec |
| 27b80 | 74 65 64 20 6d 61 72 6b 20 6f 75 74 73 69 64 65 20 61 63 63 65 73 73 69 62 6c 65 20 70 61 72 74 | ted.mark.outside.accessible.part |
| 27ba0 | 20 6f 66 20 62 75 66 66 65 72 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .of.buffer"))).................. |
| 27bc0 | 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 29 29 0a 20 20 20 20 | .........(goto-char.pos))))..... |
| 27be0 | 20 20 20 20 20 20 20 20 3a 75 6e 77 69 6e 64 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d | ........:unwind.#'counsel--mark- |
| 27c00 | 72 69 6e 67 2d 75 6e 77 69 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 | ring-unwind.............:caller. |
| 27c20 | 63 61 6c 6c 65 72 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 | caller))..(ivy-configure.'counse |
| 27c40 | 6c 2d 6d 61 72 6b 2d 72 69 6e 67 0a 20 20 3a 75 70 64 61 74 65 2d 66 6e 20 23 27 63 6f 75 6e 73 | l-mark-ring...:update-fn.#'couns |
| 27c60 | 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 75 70 64 61 74 65 2d 66 6e 0a 20 20 3a 75 6e 77 69 6e | el--mark-ring-update-fn...:unwin |
| 27c80 | 64 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 75 6e 77 69 6e 64 | d-fn.#'counsel--mark-ring-unwind |
| 27ca0 | 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 0a 0a 3b 3b 2a 2a | ...:sort-fn.#'ivy-string<)..;;** |
| 27cc0 | 20 60 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b 73 27 0a 28 64 65 66 76 61 72 20 63 6f | .`counsel-evil-marks'.(defvar.co |
| 27ce0 | 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b 73 2d 65 78 63 6c 75 64 65 2d 72 65 67 69 73 74 65 | unsel-evil-marks-exclude-registe |
| 27d00 | 72 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 65 76 69 6c 20 72 65 67 69 73 74 65 72 73 | rs.nil..."List.of.evil.registers |
| 27d20 | 20 74 6f 20 6e 6f 74 20 64 69 73 70 6c 61 79 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 65 76 69 6c | .to.not.display.in.`counsel-evil |
| 27d40 | 2d 6d 61 72 6b 73 27 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 45 61 63 68 20 6d 65 6d 62 65 72 20 | -marks'.by.default..Each.member. |
| 27d60 | 6f 66 20 74 68 65 20 6c 69 73 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 63 68 61 72 61 63 74 65 | of.the.list.should.be.a.characte |
| 27d80 | 72 20 28 73 74 6f 72 65 64 20 61 73 20 61 6e 20 69 6e 74 65 67 65 72 29 2e 22 29 0a 0a 28 64 65 | r.(stored.as.an.integer).")..(de |
| 27da0 | 66 76 61 72 20 65 76 69 6c 2d 6d 61 72 6b 65 72 73 2d 61 6c 69 73 74 29 0a 28 64 65 63 6c 61 72 | fvar.evil-markers-alist).(declar |
| 27dc0 | 65 2d 66 75 6e 63 74 69 6f 6e 20 65 76 69 6c 2d 67 6c 6f 62 61 6c 2d 6d 61 72 6b 65 72 2d 70 20 | e-function.evil-global-marker-p. |
| 27de0 | 22 65 78 74 3a 65 76 69 6c 2d 63 6f 6d 6d 6f 6e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | "ext:evil-common")..(defun.couns |
| 27e00 | 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d 65 76 69 6c 2d 63 61 6e 64 69 64 61 74 65 73 20 28 61 6c | el-mark--get-evil-candidates.(al |
| 27e20 | 6c 2d 6d 61 72 6b 65 72 73 2d 70 29 0a 20 20 22 43 6f 6e 76 65 72 74 20 61 6c 6c 20 65 76 69 6c | l-markers-p)..."Convert.all.evil |
| 27e40 | 20 4d 41 52 4b 53 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 74 6f 20 | .MARKS.in.the.current.buffer.to. |
| 27e60 | 6d 61 72 6b 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 57 6f 72 6b 73 20 6c 69 6b 65 20 60 63 6f 75 | mark.candidates..Works.like.`cou |
| 27e80 | 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 73 27 20 62 75 74 20 61 | nsel-mark--get-candidates'.but.a |
| 27ea0 | 6c 73 6f 20 70 72 65 70 65 6e 64 73 20 74 68 65 0a 72 65 67 69 73 74 65 72 20 74 69 65 64 20 74 | lso.prepends.the.register.tied.t |
| 27ec0 | 6f 20 61 20 6d 61 72 6b 20 69 6e 20 74 68 65 20 6d 65 73 73 61 67 65 20 73 74 72 69 6e 67 2e 22 | o.a.mark.in.the.message.string." |
| 27ee0 | 0a 20 20 3b 3b 20 65 76 69 6c 20 64 6f 65 73 6e 27 74 20 70 72 6f 76 69 64 65 20 61 20 73 74 61 | ...;;.evil.doesn't.provide.a.sta |
| 27f00 | 6e 64 61 6c 6f 6e 65 20 6d 65 74 68 6f 64 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 6c 69 73 | ndalone.method.to.access.the.lis |
| 27f20 | 74 20 6f 66 0a 20 20 3b 3b 20 6d 61 72 6b 73 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 | t.of...;;.marks.in.the.current.b |
| 27f40 | 75 66 66 65 72 2c 20 61 73 20 69 74 20 64 6f 65 73 20 77 69 74 68 20 72 65 67 69 73 74 65 72 73 | uffer,.as.it.does.with.registers |
| 27f60 | 2e 0a 20 20 28 6c 65 74 2a 20 28 28 61 6c 6c 2d 6d 61 72 6b 65 72 73 0a 20 20 20 20 20 20 20 20 | ....(let*.((all-markers......... |
| 27f80 | 20 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d | ..(append............(cl-remove- |
| 27fa0 | 69 66 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | if.(lambda.(m).................. |
| 27fc0 | 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 65 76 69 6c 2d 67 6c 6f 62 61 6c 2d 6d 61 72 6b 65 | ..........(or.(evil-global-marke |
| 27fe0 | 72 2d 70 20 28 63 61 72 20 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r-p.(car.m)).................... |
| 28000 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 61 72 6b 65 72 70 20 28 63 64 72 20 6d | ............(not.(markerp.(cdr.m |
| 28020 | 29 29 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 20 20 20 65 | )))))..........................e |
| 28040 | 76 69 6c 2d 6d 61 72 6b 65 72 73 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 | vil-markers-alist)............(c |
| 28060 | 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 6d 29 0a 20 20 20 20 20 20 20 20 | l-remove-if.(lambda.(m)......... |
| 28080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 28 65 76 69 | ...................(or.(not.(evi |
| 280a0 | 6c 2d 67 6c 6f 62 61 6c 2d 6d 61 72 6b 65 72 2d 70 20 28 63 61 72 20 6d 29 29 29 0a 20 20 20 20 | l-global-marker-p.(car.m)))..... |
| 280c0 | 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 6e 6f 74 20 | ...........................(not. |
| 280e0 | 28 6d 61 72 6b 65 72 70 20 28 63 64 72 20 6d 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (markerp.(cdr.m)))))............ |
| 28100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 27 65 76 | ..............(default-value.'ev |
| 28120 | 69 6c 2d 6d 61 72 6b 65 72 73 2d 61 6c 69 73 74 29 29 29 29 0a 0a 20 20 20 20 20 20 20 20 20 28 | il-markers-alist))))...........( |
| 28140 | 61 6c 6c 2d 6d 61 72 6b 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 77 69 74 68 20 70 72 | all-markers...........;;.with.pr |
| 28160 | 65 66 69 78 2c 20 69 67 6e 6f 72 65 20 72 65 67 69 73 74 65 72 20 65 78 63 6c 75 73 69 6f 6e 20 | efix,.ignore.register.exclusion. |
| 28180 | 6c 69 73 74 2e 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 61 6c 6c 2d 6d 61 72 6b 65 72 73 2d | list............(if.all-markers- |
| 281a0 | 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 2d 6d 61 72 6b 65 72 73 0a 20 20 20 20 | p...............all-markers..... |
| 281c0 | 20 20 20 20 20 20 20 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 0a 20 20 20 20 20 20 | ........(cl-remove-if-not....... |
| 281e0 | 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 | .......(lambda.(x).(not.(member. |
| 28200 | 28 63 61 72 20 78 29 20 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b 73 2d 65 78 63 6c 75 | (car.x).counsel-evil-marks-exclu |
| 28220 | 64 65 2d 72 65 67 69 73 74 65 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c | de-registers)))..............all |
| 28240 | 2d 6d 61 72 6b 65 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 73 65 70 61 72 61 74 65 | -markers)))..........;;.separate |
| 28260 | 20 74 68 65 20 6d 61 72 6b 65 72 73 20 66 72 6f 6d 20 74 68 65 20 65 76 69 6c 20 72 65 67 69 73 | .the.markers.from.the.evil.regis |
| 28280 | 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 3b 3b 20 66 6f 72 20 63 61 6c 6c 20 74 6f 20 60 63 6f | ters..........;;.for.call.to.`co |
| 282a0 | 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 73 27 0a 20 20 20 20 | unsel-mark--get-candidates'..... |
| 282c0 | 20 20 20 20 20 28 72 65 67 69 73 74 65 72 73 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 61 6c | .....(registers.(mapcar.#'car.al |
| 282e0 | 6c 2d 6d 61 72 6b 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 72 6b 65 72 73 20 28 6d | l-markers))..........(markers.(m |
| 28300 | 61 70 63 61 72 20 23 27 63 64 72 20 61 6c 6c 2d 6d 61 72 6b 65 72 73 29 29 0a 20 20 20 20 20 20 | apcar.#'cdr.all-markers))....... |
| 28320 | 20 20 20 28 63 61 6e 64 69 64 61 74 65 73 20 28 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 | ...(candidates.(counsel-mark--ge |
| 28340 | 74 2d 63 61 6e 64 69 64 61 74 65 73 20 6d 61 72 6b 65 72 73 29 29 29 0a 20 20 20 20 28 77 68 65 | t-candidates.markers))).....(whe |
| 28360 | 6e 20 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 28 6c 65 74 20 28 72 65 67 69 73 74 65 | n.candidates.......(let.(registe |
| 28380 | 72 20 63 61 6e 64 69 64 61 74 65 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 | r.candidate.result).........(whi |
| 283a0 | 6c 65 20 28 61 6e 64 20 28 73 65 74 71 20 72 65 67 69 73 74 65 72 20 28 70 6f 70 20 72 65 67 69 | le.(and.(setq.register.(pop.regi |
| 283c0 | 73 74 65 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | sters)).....................(set |
| 283e0 | 71 20 63 61 6e 64 69 64 61 74 65 20 28 70 6f 70 20 63 61 6e 64 69 64 61 74 65 73 29 29 29 0a 20 | q.candidate.(pop.candidates))).. |
| 28400 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 6f 69 6e 74 20 28 67 65 74 2d 74 65 78 74 2d | .........(let.((point.(get-text- |
| 28420 | 70 72 6f 70 65 72 74 79 20 30 20 27 70 6f 69 6e 74 20 63 61 6e 64 69 64 61 74 65 29 29 0a 20 20 | property.0.'point.candidate))... |
| 28440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 76 69 6c 2d 63 61 6e 64 69 64 61 74 65 0a 20 20 | ..............(evil-candidate... |
| 28460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5b 25 73 5d 3a 20 25 73 | ...............(format."[%s]:.%s |
| 28480 | 22 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 70 72 6f 70 | "..........................(prop |
| 284a0 | 65 72 74 69 7a 65 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 72 65 67 69 73 74 65 72 29 | ertize.(char-to-string.register) |
| 284c0 | 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 20 | ................................ |
| 284e0 | 20 20 20 20 20 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 | ......'face.'counsel-evil-regist |
| 28500 | 65 72 2d 66 61 63 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 | er-face)........................ |
| 28520 | 20 20 63 61 6e 64 69 64 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | ..candidate))).............(push |
| 28540 | 20 28 70 72 6f 70 65 72 74 69 7a 65 20 65 76 69 6c 2d 63 61 6e 64 69 64 61 74 65 20 27 70 6f 69 | .(propertize.evil-candidate.'poi |
| 28560 | 6e 74 20 70 6f 69 6e 74 29 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 20 20 20 20 20 72 65 73 75 | nt.point).result))).........resu |
| 28580 | 6c 74 29 29 29 29 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 | lt))))..;;;###autoload.(defun.co |
| 285a0 | 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 | unsel-evil-marks.(&optional.arg) |
| 285c0 | 0a 20 20 22 49 76 79 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 65 76 69 6c 2d 73 68 | ..."Ivy.replacement.for.`evil-sh |
| 285e0 | 6f 77 2d 6d 61 72 6b 73 27 2e 0a 42 79 20 64 65 66 61 75 6c 74 2c 20 74 68 69 73 20 66 75 6e 63 | ow-marks'..By.default,.this.func |
| 28600 | 74 69 6f 6e 20 72 65 73 70 65 63 74 73 20 60 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b | tion.respects.`counsel-evil-mark |
| 28620 | 73 2d 65 78 63 6c 75 64 65 2d 72 65 67 69 73 74 65 72 73 27 2e 0a 57 68 65 6e 20 41 52 47 20 69 | s-exclude-registers'..When.ARG.i |
| 28640 | 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 69 73 70 6c 61 79 20 61 6c 6c 20 61 63 74 69 76 65 20 65 76 | s.non-nil,.display.all.active.ev |
| 28660 | 69 6c 20 72 65 67 69 73 74 65 72 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 | il.registers."...(interactive."P |
| 28680 | 22 29 0a 20 20 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 76 69 6c 2d 6d 61 72 6b | ")...(if.(and.(boundp.'evil-mark |
| 286a0 | 65 72 73 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 | ers-alist)............(fboundp.' |
| 286c0 | 65 76 69 6c 2d 67 6c 6f 62 61 6c 2d 6d 61 72 6b 65 72 2d 70 29 29 0a 20 20 20 20 20 20 28 6c 65 | evil-global-marker-p)).......(le |
| 286e0 | 74 2a 20 28 28 63 6f 75 6e 73 65 6c 2d 2d 6d 61 72 6b 2d 72 69 6e 67 2d 63 61 6c 6c 69 6e 67 2d | t*.((counsel--mark-ring-calling- |
| 28700 | 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6e | point.(point))..............(can |
| 28720 | 64 69 64 61 74 65 73 20 28 63 6f 75 6e 73 65 6c 2d 6d 61 72 6b 2d 2d 67 65 74 2d 65 76 69 6c 2d | didates.(counsel-mark--get-evil- |
| 28740 | 63 61 6e 64 69 64 61 74 65 73 20 61 72 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 63 61 | candidates.arg))).........(if.ca |
| 28760 | 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6d 61 | ndidates.............(counsel-ma |
| 28780 | 72 6b 2d 2d 69 76 79 2d 72 65 61 64 20 22 45 76 69 6c 20 6d 61 72 6b 3a 20 22 20 63 61 6e 64 69 | rk--ivy-read."Evil.mark:.".candi |
| 287a0 | 64 61 74 65 73 20 27 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 6d 61 72 6b 73 29 0a 20 20 20 20 20 | dates.'counsel-evil-marks)...... |
| 287c0 | 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 65 76 69 6c 20 6d 61 72 6b 73 20 61 72 65 | .....(message."No.evil.marks.are |
| 287e0 | 20 61 63 74 69 76 65 22 29 29 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 52 65 71 | .active"))).....(user-error."Req |
| 28800 | 75 69 72 65 64 20 66 65 61 74 75 72 65 20 60 65 76 69 6c 27 20 6e 6f 74 20 69 6e 73 74 61 6c 6c | uired.feature.`evil'.not.install |
| 28820 | 65 64 20 6f 72 20 6c 6f 61 64 65 64 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d | ed.or.loaded")))..;;**.`counsel- |
| 28840 | 70 61 63 6b 61 67 65 27 0a 28 64 65 66 76 61 72 20 70 61 63 6b 61 67 65 2d 2d 69 6e 69 74 69 61 | package'.(defvar.package--initia |
| 28860 | 6c 69 7a 65 64 29 0a 28 64 65 66 76 61 72 20 70 61 63 6b 61 67 65 2d 61 6c 69 73 74 29 0a 28 64 | lized).(defvar.package-alist).(d |
| 28880 | 65 66 76 61 72 20 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 2d 63 6f 6e 74 65 6e 74 73 29 0a | efvar.package-archive-contents). |
| 288a0 | 28 64 65 66 76 61 72 20 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 73 29 0a 28 64 65 66 76 61 | (defvar.package-archives).(defva |
| 288c0 | 72 20 70 61 63 6b 61 67 65 2d 75 73 65 72 2d 64 69 72 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e | r.package-user-dir).(declare-fun |
| 288e0 | 63 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 69 6e 73 74 61 6c 6c 65 64 2d 70 20 22 70 61 63 6b 61 | ction.package-installed-p."packa |
| 28900 | 67 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 70 61 63 6b 61 67 65 2d 64 | ge").(declare-function.package-d |
| 28920 | 65 6c 65 74 65 20 22 70 61 63 6b 61 67 65 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 | elete."package").(declare-functi |
| 28940 | 6f 6e 20 70 61 63 6b 61 67 65 2d 64 65 73 63 2d 65 78 74 72 61 73 20 22 70 61 63 6b 61 67 65 22 | on.package-desc-extras."package" |
| 28960 | 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 2d 68 69 73 74 6f | )..(defvar.counsel-package-histo |
| 28980 | 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 70 | ry.nil..."History.for.`counsel-p |
| 289a0 | 61 63 6b 61 67 65 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 70 61 63 6b | ackage'.")..(defun.counsel--pack |
| 289c0 | 61 67 65 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 63 6f 6d 70 | age-candidates.()..."Return.comp |
| 289e0 | 6c 65 74 69 6f 6e 20 61 6c 69 73 74 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 | letion.alist.for.`counsel-packag |
| 28a00 | 65 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 70 61 63 6b 61 67 65 2d 2d 69 6e 69 74 69 61 6c 69 | e'."...(unless.package--initiali |
| 28a20 | 7a 65 64 0a 20 20 20 20 28 70 61 63 6b 61 67 65 2d 69 6e 69 74 69 61 6c 69 7a 65 20 74 29 29 0a | zed.....(package-initialize.t)). |
| 28a40 | 20 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 2d 63 | ..(if.(or.(not.package-archive-c |
| 28a60 | 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 66 69 6e 64 2d 69 66 20 28 | ontents)...........(cl-find-if.( |
| 28a80 | 6c 61 6d 62 64 61 20 28 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 29 0a 20 20 20 20 20 20 20 | lambda.(package-archive)........ |
| 28aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 6e 61 6d 65 0a 20 20 | .................(let.((fname... |
| 28ac0 | 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 66 6f | .............................(fo |
| 28ae0 | 72 6d 61 74 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 | rmat............................ |
| 28b00 | 20 20 20 20 20 22 25 73 2f 61 72 63 68 69 76 65 73 2f 25 73 2f 61 72 63 68 69 76 65 2d 63 6f 6e | ....."%s/archives/%s/archive-con |
| 28b20 | 74 65 6e 74 73 22 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 | tents".......................... |
| 28b40 | 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 75 73 65 72 2d 64 69 72 20 28 63 61 72 20 70 61 63 | .......package-user-dir.(car.pac |
| 28b60 | 6b 61 67 65 2d 61 72 63 68 69 76 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kage-archive))))................ |
| 28b80 | 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 | ...........(or.(not.(file-exists |
| 28ba0 | 2d 70 20 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.fname))...................... |
| 28bc0 | 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 66 69 6c 65 2d 73 74 61 6c 65 2d 70 20 66 | .........(counsel-file-stale-p.f |
| 28be0 | 6e 61 6d 65 20 28 2a 20 34 20 36 30 20 36 30 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | name.(*.4.60.60)))))............ |
| 28c00 | 20 20 20 20 20 20 20 20 20 20 20 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 73 29 29 0a 20 20 | ...........package-archives))... |
| 28c20 | 20 20 20 20 28 70 61 63 6b 61 67 65 2d 72 65 66 72 65 73 68 2d 63 6f 6e 74 65 6e 74 73 29 29 0a | ....(package-refresh-contents)). |
| 28c40 | 20 20 28 73 6f 72 74 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 65 6e 74 72 79 29 0a | ..(sort.(mapcar.(lambda.(entry). |
| 28c60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 6c 65 74 20 28 28 70 | ..................(cons.(let.((p |
| 28c80 | 6b 67 20 28 63 61 72 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | kg.(car.entry)))................ |
| 28ca0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 69 66 20 28 70 61 63 6b 61 67 65 2d | ...........(concat.(if.(package- |
| 28cc0 | 69 6e 73 74 61 6c 6c 65 64 2d 70 20 70 6b 67 29 20 22 2d 22 20 22 2b 22 29 0a 20 20 20 20 20 20 | installed-p.pkg)."-"."+")....... |
| 28ce0 | 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 79 6d | ............................(sym |
| 28d00 | 62 6f 6c 2d 6e 61 6d 65 20 70 6b 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | bol-name.pkg)))................. |
| 28d20 | 20 20 20 20 20 20 20 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........entry))................. |
| 28d40 | 70 61 63 6b 61 67 65 2d 61 72 63 68 69 76 65 2d 63 6f 6e 74 65 6e 74 73 29 0a 20 20 20 20 20 20 | package-archive-contents)....... |
| 28d60 | 20 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 70 61 63 6b 61 67 65 2d 73 6f 72 74 29 29 0a 0a 3b 3b 3b | ..#'counsel--package-sort))..;;; |
| 28d80 | 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 | ###autoload.(defun.counsel-packa |
| 28da0 | 67 65 20 28 29 0a 20 20 22 49 6e 73 74 61 6c 6c 20 6f 72 20 64 65 6c 65 74 65 20 70 61 63 6b 61 | ge.()..."Install.or.delete.packa |
| 28dc0 | 67 65 73 2e 0a 0a 50 61 63 6b 61 67 65 73 20 6e 6f 74 20 63 75 72 72 65 6e 74 6c 79 20 69 6e 73 | ges...Packages.not.currently.ins |
| 28de0 | 74 61 6c 6c 65 64 20 61 72 65 20 70 72 65 66 69 78 65 64 20 77 69 74 68 20 5c 22 2b 5c 22 2c 20 | talled.are.prefixed.with.\"+\",. |
| 28e00 | 61 6e 64 0a 73 65 6c 65 63 74 69 6e 67 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 77 69 6c 6c 20 | and.selecting.one.of.these.will. |
| 28e20 | 74 72 79 20 74 6f 20 69 6e 73 74 61 6c 6c 20 69 74 2e 0a 50 61 63 6b 61 67 65 73 20 63 75 72 72 | try.to.install.it..Packages.curr |
| 28e40 | 65 6e 74 6c 79 20 69 6e 73 74 61 6c 6c 65 64 20 61 72 65 20 70 72 65 66 69 78 65 64 20 77 69 74 | ently.installed.are.prefixed.wit |
| 28e60 | 68 20 5c 22 2d 5c 22 2c 20 61 6e 64 0a 73 65 6c 65 63 74 69 6e 67 20 6f 6e 65 20 6f 66 20 74 68 | h.\"-\",.and.selecting.one.of.th |
| 28e80 | 65 73 65 20 77 69 6c 6c 20 74 72 79 20 74 6f 20 64 65 6c 65 74 65 20 69 74 2e 0a 0a 41 64 64 69 | ese.will.try.to.delete.it...Addi |
| 28ea0 | 74 69 6f 6e 61 6c 20 61 63 74 69 6f 6e 73 3a 5c 5c 3c 69 76 79 2d 6d 69 6e 69 62 75 66 66 65 72 | tional.actions:\\<ivy-minibuffer |
| 28ec0 | 2d 6d 61 70 3e 0a 0a 20 20 5c 5c 5b 69 76 79 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 64 6f 6e 65 | -map>....\\[ivy-dispatching-done |
| 28ee0 | 5d 20 64 3a 20 44 65 73 63 72 69 62 65 20 70 61 63 6b 61 67 65 0a 20 20 5c 5c 5b 69 76 79 2d 64 | ].d:.Describe.package...\\[ivy-d |
| 28f00 | 69 73 70 61 74 63 68 69 6e 67 2d 64 6f 6e 65 5d 20 68 3a 20 56 69 73 69 74 20 70 61 63 6b 61 67 | ispatching-done].h:.Visit.packag |
| 28f20 | 65 27 73 20 68 6f 6d 65 70 61 67 65 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 | e's.homepage"...(interactive)... |
| 28f40 | 28 72 65 71 75 69 72 65 20 27 70 61 63 6b 61 67 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 | (require.'package)...(ivy-read." |
| 28f60 | 50 61 63 6b 61 67 65 73 20 28 69 6e 73 74 61 6c 6c 20 2b 70 6b 67 20 6f 72 20 64 65 6c 65 74 65 | Packages.(install.+pkg.or.delete |
| 28f80 | 20 2d 70 6b 67 29 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d | .-pkg):.".............(counsel-- |
| 28fa0 | 70 61 63 6b 61 67 65 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | package-candidates)............. |
| 28fc0 | 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 2d 61 63 74 69 6f 6e | :action.#'counsel-package-action |
| 28fe0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 | .............:require-match.t... |
| 29000 | 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 70 61 63 6b | ..........:history.'counsel-pack |
| 29020 | 61 67 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 | age-history.............:caller. |
| 29040 | 27 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 | 'counsel-package))..(ivy-configu |
| 29060 | 72 65 20 27 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 0a 20 20 3a 69 6e 69 74 69 61 6c 2d 69 | re.'counsel-package...:initial-i |
| 29080 | 6e 70 75 74 20 22 5e 2b 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 | nput."^+")..(defun.counsel-packa |
| 290a0 | 67 65 2d 61 63 74 69 6f 6e 20 28 70 61 63 6b 61 67 65 29 0a 20 20 22 44 65 6c 65 74 65 20 6f 72 | ge-action.(package)..."Delete.or |
| 290c0 | 20 69 6e 73 74 61 6c 6c 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 73 65 74 71 20 70 61 63 6b 61 | .install.PACKAGE."...(setq.packa |
| 290e0 | 67 65 20 28 63 61 64 72 20 70 61 63 6b 61 67 65 29 29 0a 20 20 28 69 66 20 28 70 61 63 6b 61 67 | ge.(cadr.package))...(if.(packag |
| 29100 | 65 2d 69 6e 73 74 61 6c 6c 65 64 2d 70 20 70 61 63 6b 61 67 65 29 0a 20 20 20 20 20 20 28 70 61 | e-installed-p.package).......(pa |
| 29120 | 63 6b 61 67 65 2d 64 65 6c 65 74 65 20 28 63 61 64 72 20 28 61 73 73 71 20 70 61 63 6b 61 67 65 | ckage-delete.(cadr.(assq.package |
| 29140 | 20 70 61 63 6b 61 67 65 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 28 70 61 63 6b 61 67 65 2d 69 | .package-alist))).....(package-i |
| 29160 | 6e 73 74 61 6c 6c 20 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | nstall.package)))..(defun.counse |
| 29180 | 6c 2d 70 61 63 6b 61 67 65 2d 61 63 74 69 6f 6e 2d 64 65 73 63 72 69 62 65 20 28 70 61 63 6b 61 | l-package-action-describe.(packa |
| 291a0 | 67 65 29 0a 20 20 22 43 61 6c 6c 20 60 64 65 73 63 72 69 62 65 2d 70 61 63 6b 61 67 65 27 20 6f | ge)..."Call.`describe-package'.o |
| 291c0 | 6e 20 50 41 43 4b 41 47 45 2e 22 0a 20 20 28 64 65 73 63 72 69 62 65 2d 70 61 63 6b 61 67 65 20 | n.PACKAGE."...(describe-package. |
| 291e0 | 28 63 61 64 72 20 70 61 63 6b 61 67 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | (cadr.package)))..(defun.counsel |
| 29200 | 2d 70 61 63 6b 61 67 65 2d 61 63 74 69 6f 6e 2d 68 6f 6d 65 70 61 67 65 20 28 70 61 63 6b 61 67 | -package-action-homepage.(packag |
| 29220 | 65 29 0a 20 20 22 4f 70 65 6e 20 68 6f 6d 65 70 61 67 65 20 66 6f 72 20 50 41 43 4b 41 47 45 20 | e)..."Open.homepage.for.PACKAGE. |
| 29240 | 69 6e 20 61 20 57 57 57 20 62 72 6f 77 73 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 75 72 6c 20 | in.a.WWW.browser."...(let.((url. |
| 29260 | 28 63 64 72 20 28 61 73 73 71 20 3a 75 72 6c 20 28 70 61 63 6b 61 67 65 2d 64 65 73 63 2d 65 78 | (cdr.(assq.:url.(package-desc-ex |
| 29280 | 74 72 61 73 20 28 6e 74 68 20 32 20 70 61 63 6b 61 67 65 29 29 29 29 29 29 0a 20 20 20 20 28 69 | tras.(nth.2.package)))))).....(i |
| 292a0 | 66 20 75 72 6c 0a 20 20 20 20 20 20 20 20 28 62 72 6f 77 73 65 2d 75 72 6c 20 75 72 6c 29 0a 20 | f.url.........(browse-url.url).. |
| 292c0 | 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 4e 6f 20 68 6f 6d 65 70 61 67 65 20 73 70 65 63 69 | .....(message."No.homepage.speci |
| 292e0 | 66 69 65 64 20 66 6f 72 20 70 61 63 6b 61 67 65 20 60 25 73 27 22 20 28 6e 74 68 20 31 20 70 61 | fied.for.package.`%s'".(nth.1.pa |
| 29300 | 63 6b 61 67 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 70 61 63 6b | ckage)))))..(defun.counsel--pack |
| 29320 | 61 67 65 2d 73 6f 72 74 20 28 61 20 62 29 0a 20 20 22 53 6f 72 74 20 66 75 6e 63 74 69 6f 6e 20 | age-sort.(a.b)..."Sort.function. |
| 29340 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 27 20 63 61 6e 64 69 64 61 74 65 73 | for.`counsel-package'.candidates |
| 29360 | 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 61 20 28 63 61 72 20 61 29 29 0a 20 20 20 20 20 20 20 20 | ."...(let*.((a.(car.a))......... |
| 29380 | 20 28 62 20 28 63 61 72 20 62 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 2d 69 6e 73 74 20 28 3d | .(b.(car.b))..........(a-inst.(= |
| 293a0 | 20 28 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 61 29 20 3f 2b 29 29 0a 20 20 20 20 20 20 20 | .(string-to-char.a).?+))........ |
| 293c0 | 20 20 28 62 2d 69 6e 73 74 20 28 3d 20 28 73 74 72 69 6e 67 2d 74 6f 2d 63 68 61 72 20 62 29 20 | ..(b-inst.(=.(string-to-char.b). |
| 293e0 | 3f 2b 29 29 29 0a 20 20 20 20 28 6f 72 20 28 61 6e 64 20 61 2d 69 6e 73 74 20 28 6e 6f 74 20 62 | ?+))).....(or.(and.a-inst.(not.b |
| 29400 | 2d 69 6e 73 74 29 29 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 61 2d 69 6e 73 74 20 | -inst)).........(and.(eq.a-inst. |
| 29420 | 62 2d 69 6e 73 74 29 20 28 73 74 72 69 6e 67 2d 6c 65 73 73 70 20 61 20 62 29 29 29 29 29 0a 0a | b-inst).(string-lessp.a.b))))).. |
| 29440 | 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 | (ivy-set-actions..'counsel-packa |
| 29460 | 67 65 0a 20 27 28 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 2d 61 63 74 69 6f | ge..'(("d".counsel-package-actio |
| 29480 | 6e 2d 64 65 73 63 72 69 62 65 20 22 64 65 73 63 72 69 62 65 20 70 61 63 6b 61 67 65 22 29 0a 20 | n-describe."describe.package").. |
| 294a0 | 20 20 28 22 68 22 20 63 6f 75 6e 73 65 6c 2d 70 61 63 6b 61 67 65 2d 61 63 74 69 6f 6e 2d 68 6f | ..("h".counsel-package-action-ho |
| 294c0 | 6d 65 70 61 67 65 20 22 6f 70 65 6e 20 70 61 63 6b 61 67 65 20 68 6f 6d 65 70 61 67 65 22 29 29 | mepage."open.package.homepage")) |
| 294e0 | 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 74 6d 6d 27 0a 28 64 65 63 6c 61 72 65 2d 66 | )..;;**.`counsel-tmm'.(declare-f |
| 29500 | 75 6e 63 74 69 6f 6e 20 74 6d 6d 2d 67 65 74 2d 6b 65 79 6d 61 70 20 22 74 6d 6d 22 20 28 65 6c | unction.tmm-get-keymap."tmm".(el |
| 29520 | 74 20 26 6f 70 74 69 6f 6e 61 6c 20 69 6e 2d 78 2d 6d 65 6e 75 29 29 0a 28 64 65 63 6c 61 72 65 | t.&optional.in-x-menu)).(declare |
| 29540 | 2d 66 75 6e 63 74 69 6f 6e 20 74 6d 6d 2d 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 20 | -function.tmm--completion-table. |
| 29560 | 22 74 6d 6d 22 20 28 69 74 65 6d 73 29 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 | "tmm".(items))..(defalias.'couns |
| 29580 | 65 6c 2d 2d 6d 65 6e 75 2d 6b 65 79 6d 61 70 0a 20 20 3b 3b 20 41 64 64 65 64 20 69 6e 20 45 6d | el--menu-keymap...;;.Added.in.Em |
| 295a0 | 61 63 73 20 32 38 2e 31 2e 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 6d 65 6e 75 2d 62 | acs.28.1....(if.(fboundp.'menu-b |
| 295c0 | 61 72 2d 6b 65 79 6d 61 70 29 0a 20 20 20 20 20 20 23 27 6d 65 6e 75 2d 62 61 72 2d 6b 65 79 6d | ar-keymap).......#'menu-bar-keym |
| 295e0 | 61 70 0a 20 20 20 20 28 61 75 74 6f 6c 6f 61 64 20 27 74 6d 6d 2d 67 65 74 2d 6b 65 79 62 69 6e | ap.....(autoload.'tmm-get-keybin |
| 29600 | 64 20 22 74 6d 6d 22 29 0a 20 20 20 20 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 74 | d."tmm").....(declare-function.t |
| 29620 | 6d 6d 2d 67 65 74 2d 6b 65 79 62 69 6e 64 20 22 74 6d 6d 22 20 28 6b 65 79 73 65 71 29 29 0a 20 | mm-get-keybind."tmm".(keyseq)).. |
| 29640 | 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 74 6d 6d 2d 67 65 74 2d 6b 65 79 62 69 6e 64 20 5b | ...(lambda.().(tmm-get-keybind.[ |
| 29660 | 6d 65 6e 75 2d 62 61 72 5d 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 73 68 | menu-bar])))..."Compatibility.sh |
| 29680 | 69 6d 20 66 6f 72 20 60 6d 65 6e 75 2d 62 61 72 2d 6b 65 79 6d 61 70 27 2e 22 29 0a 0a 28 64 65 | im.for.`menu-bar-keymap'.")..(de |
| 296a0 | 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 74 6d 6d 2d 70 72 6f 6d 70 74 20 28 6d 65 6e 75 29 0a 20 20 | fun.counsel-tmm-prompt.(menu)... |
| 296c0 | 22 53 65 6c 65 63 74 20 61 6e 64 20 63 61 6c 6c 20 61 6e 20 69 74 65 6d 20 66 72 6f 6d 20 74 68 | "Select.and.call.an.item.from.th |
| 296e0 | 65 20 4d 45 4e 55 20 6b 65 79 6d 61 70 2e 22 0a 20 20 28 64 65 66 76 61 72 20 74 6d 6d 2d 6b 6d | e.MENU.keymap."...(defvar.tmm-km |
| 29700 | 2d 6c 69 73 74 29 0a 20 20 28 6c 65 74 20 28 6f 75 74 0a 20 20 20 20 20 20 20 20 63 68 6f 69 63 | -list)...(let.(out.........choic |
| 29720 | 65 0a 20 20 20 20 20 20 20 20 63 68 6f 73 65 6e 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 28 73 65 | e.........chosen-string).....(se |
| 29740 | 74 71 20 74 6d 6d 2d 6b 6d 2d 6c 69 73 74 20 6e 69 6c 29 0a 20 20 20 20 28 6d 61 70 2d 6b 65 79 | tq.tmm-km-list.nil).....(map-key |
| 29760 | 6d 61 70 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 20 28 74 6d 6d 2d 67 65 74 2d 6b 65 79 6d 61 | map.(lambda.(k.v).(tmm-get-keyma |
| 29780 | 70 20 28 63 6f 6e 73 20 6b 20 76 29 29 29 20 6d 65 6e 75 29 0a 20 20 20 20 28 73 65 74 71 20 74 | p.(cons.k.v))).menu).....(setq.t |
| 297a0 | 6d 6d 2d 6b 6d 2d 6c 69 73 74 20 28 6e 72 65 76 65 72 73 65 20 74 6d 6d 2d 6b 6d 2d 6c 69 73 74 | mm-km-list.(nreverse.tmm-km-list |
| 297c0 | 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f 75 74 20 28 69 76 79 2d 72 65 61 64 20 22 4d 65 6e 75 | )).....(setq.out.(ivy-read."Menu |
| 297e0 | 20 62 61 72 3a 20 22 20 28 74 6d 6d 2d 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 20 74 | .bar:.".(tmm--completion-table.t |
| 29800 | 6d 6d 2d 6b 6d 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | mm-km-list)..................... |
| 29820 | 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 29 29 0a 20 20 20 20 28 73 65 74 71 | ....:require-match.t)).....(setq |
| 29840 | 20 63 68 6f 69 63 65 20 28 63 64 72 20 28 61 73 73 6f 63 20 6f 75 74 20 74 6d 6d 2d 6b 6d 2d 6c | .choice.(cdr.(assoc.out.tmm-km-l |
| 29860 | 69 73 74 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 68 6f 73 65 6e 2d 73 74 72 69 6e 67 20 28 | ist))).....(setq.chosen-string.( |
| 29880 | 63 61 72 20 63 68 6f 69 63 65 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 68 6f 69 63 65 20 28 63 | car.choice)).....(setq.choice.(c |
| 298a0 | 64 72 20 63 68 6f 69 63 65 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 6b 65 79 6d 61 70 70 20 | dr.choice)).....(cond.((keymapp. |
| 298c0 | 63 68 6f 69 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 74 6d 6d 2d | choice)............(counsel-tmm- |
| 298e0 | 70 72 6f 6d 70 74 20 63 68 6f 69 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 | prompt.choice))...........((and. |
| 29900 | 63 68 6f 69 63 65 20 63 68 6f 73 65 6e 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 | choice.chosen-string)........... |
| 29920 | 20 28 73 65 74 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 2d 65 76 65 6e 74 20 63 68 6f 73 65 6e | .(setq.last-command-event.chosen |
| 29940 | 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 | -string)............(call-intera |
| 29960 | 63 74 69 76 65 6c 79 20 63 68 6f 69 63 65 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c | ctively.choice)))))..;;;###autol |
| 29980 | 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 74 6d 6d 20 28 29 0a 20 20 22 54 65 78 | oad.(defun.counsel-tmm.()..."Tex |
| 299a0 | 74 2d 6d 6f 64 65 20 65 6d 75 6c 61 74 69 6f 6e 20 6f 66 20 6c 6f 6f 6b 69 6e 67 20 61 6e 64 20 | t-mode.emulation.of.looking.and. |
| 299c0 | 63 68 6f 6f 73 69 6e 67 20 66 72 6f 6d 20 61 20 6d 65 6e 75 20 62 61 72 2e 22 0a 20 20 28 69 6e | choosing.from.a.menu.bar."...(in |
| 299e0 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 74 6d 6d 29 0a 20 20 28 64 | teractive)...(require.'tmm)...(d |
| 29a00 | 65 66 76 61 72 20 74 6d 6d 2d 74 61 62 6c 65 2d 75 6e 64 65 66 29 0a 20 20 28 72 75 6e 2d 68 6f | efvar.tmm-table-undef)...(run-ho |
| 29a20 | 6f 6b 73 20 27 6d 65 6e 75 2d 62 61 72 2d 75 70 64 61 74 65 2d 68 6f 6f 6b 29 0a 20 20 28 73 65 | oks.'menu-bar-update-hook)...(se |
| 29a40 | 74 71 20 74 6d 6d 2d 74 61 62 6c 65 2d 75 6e 64 65 66 20 6e 69 6c 29 0a 20 20 28 63 6f 75 6e 73 | tq.tmm-table-undef.nil)...(couns |
| 29a60 | 65 6c 2d 74 6d 6d 2d 70 72 6f 6d 70 74 20 28 63 6f 75 6e 73 65 6c 2d 2d 6d 65 6e 75 2d 6b 65 79 | el-tmm-prompt.(counsel--menu-key |
| 29a80 | 6d 61 70 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 0a | map)))..;;**.`counsel-yank-pop'. |
| 29aa0 | 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e | (defcustom.counsel-yank-pop-trun |
| 29ac0 | 63 61 74 65 2d 72 61 64 69 75 73 20 32 0a 20 20 22 4e 75 6d 62 65 72 20 6f 66 20 63 6f 6e 74 65 | cate-radius.2..."Number.of.conte |
| 29ae0 | 78 74 20 6c 69 6e 65 73 20 61 72 6f 75 6e 64 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f | xt.lines.around.`counsel-yank-po |
| 29b00 | 70 27 20 63 61 6e 64 69 64 61 74 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 | p'.candidates."...:type.'integer |
| 29b20 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e | )..(defun.counsel--yank-pop-trun |
| 29b40 | 63 61 74 65 20 28 73 74 72 29 0a 20 20 22 54 72 75 6e 63 61 74 65 20 53 54 52 20 66 6f 72 20 75 | cate.(str)..."Truncate.STR.for.u |
| 29b60 | 73 65 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 2e 22 0a 20 20 28 63 6f | se.in.`counsel-yank-pop'."...(co |
| 29b80 | 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c | ndition-case.nil.......(let*.((l |
| 29ba0 | 69 6e 65 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 73 74 72 20 22 5c 6e 22 20 74 29 29 0a | ines.(split-string.str."\n".t)). |
| 29bc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 20 28 6c 65 6e 67 74 68 20 6c 69 6e 65 73 29 29 0a | .............(n.(length.lines)). |
| 29be0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 20 28 69 76 79 2d 72 65 2d 74 6f 2d 73 74 72 20 | .............(re.(ivy-re-to-str. |
| 29c00 | 69 76 79 2d 2d 6f 6c 64 2d 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 72 73 | ivy--old-re))..............(firs |
| 29c20 | 74 2d 6d 61 74 63 68 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 2d 69 66 0a 20 20 20 20 20 20 20 20 | t-match.(cl-position-if......... |
| 29c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 29 20 28 | ...................(lambda.(s).( |
| 29c60 | 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | string-match.re.s))............. |
| 29c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6c 69 6e 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 | ...............lines)).......... |
| 29ca0 | 20 20 20 20 28 62 65 67 20 28 6d 61 78 20 30 20 28 2d 20 66 69 72 73 74 2d 6d 61 74 63 68 0a 20 | ....(beg.(max.0.(-.first-match.. |
| 29cc0 | 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 63 6f 75 6e 73 | ...........................couns |
| 29ce0 | 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e 63 61 74 65 2d 72 61 64 69 75 73 29 29 29 0a 20 | el-yank-pop-truncate-radius))).. |
| 29d00 | 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 6d 69 6e 20 6e 20 28 2b 20 66 69 72 73 74 | ............(end.(min.n.(+.first |
| 29d20 | 2d 6d 61 74 63 68 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 | -match.......................... |
| 29d40 | 20 20 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e 63 61 74 65 2d 72 61 64 | ...counsel-yank-pop-truncate-rad |
| 29d60 | 69 75 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 | ius............................. |
| 29d80 | 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 71 20 28 63 6c 2d 73 75 62 73 65 | 1)))..............(seq.(cl-subse |
| 29da0 | 71 20 6c 69 6e 65 73 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 | q.lines.beg.end))).........(if.( |
| 29dc0 | 6e 75 6c 6c 20 66 69 72 73 74 2d 6d 61 74 63 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | null.first-match).............(e |
| 29de0 | 72 72 6f 72 20 22 43 6f 75 6c 64 20 6e 6f 74 20 6d 61 74 63 68 20 25 73 22 20 73 74 72 29 0a 20 | rror."Could.not.match.%s".str).. |
| 29e00 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 3e 20 62 65 67 20 30 29 0a 20 20 20 20 20 20 20 | .........(when.(>.beg.0)........ |
| 29e20 | 20 20 20 20 20 28 73 65 74 63 61 72 20 73 65 71 20 28 63 6f 6e 63 61 74 20 22 5b 2e 2e 2e 5d 20 | .....(setcar.seq.(concat."[...]. |
| 29e40 | 22 20 28 63 61 72 20 73 65 71 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 | ".(car.seq))))...........(when.( |
| 29e60 | 3c 20 65 6e 64 20 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 61 72 20 28 6c 61 | <.end.n).............(setcar.(la |
| 29e80 | 73 74 20 73 65 71 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | st.seq).....................(con |
| 29ea0 | 63 61 74 20 28 63 61 72 20 28 6c 61 73 74 20 73 65 71 29 29 20 22 20 5b 2e 2e 2e 5d 22 29 29 29 | cat.(car.(last.seq)).".[...]"))) |
| 29ec0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 | ...........(mapconcat.#'identity |
| 29ee0 | 20 73 65 71 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 28 65 72 72 6f 72 20 73 74 72 29 29 29 0a 0a | .seq."\n"))).....(error.str))).. |
| 29f00 | 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 73 65 70 61 | (defcustom.counsel-yank-pop-sepa |
| 29f20 | 72 61 74 6f 72 20 22 5c 6e 22 0a 20 20 22 53 65 70 61 72 61 74 6f 72 20 66 6f 72 20 74 68 65 20 | rator."\n"..."Separator.for.the. |
| 29f40 | 6b 69 6c 6c 20 72 69 6e 67 20 73 74 72 69 6e 67 73 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 79 61 | kill.ring.strings.in.`counsel-ya |
| 29f60 | 6e 6b 2d 70 6f 70 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 0a 20 20 20 20 20 | nk-pop'."...:type.'(choice...... |
| 29f80 | 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 50 6c 61 69 6e 22 20 22 5c 6e 22 29 0a 20 | .....(const.:tag."Plain"."\n").. |
| 29fa0 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 44 61 73 68 65 73 22 20 22 5c | .........(const.:tag."Dashes"."\ |
| 29fc0 | 6e 2d 2d 2d 2d 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 69 6e 67 29 29 0a 0a 28 64 | n----\n")...........string))..(d |
| 29fe0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 66 6f 72 6d 61 74 2d 66 75 | efun.counsel--yank-pop-format-fu |
| 2a000 | 6e 63 74 69 6f 6e 20 28 63 61 6e 64 2d 70 61 69 72 73 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d | nction.(cand-pairs)..."Transform |
| 2a020 | 20 43 41 4e 44 2d 50 41 49 52 53 20 69 6e 74 6f 20 61 20 73 74 72 69 6e 67 20 66 6f 72 20 60 63 | .CAND-PAIRS.into.a.string.for.`c |
| 2a040 | 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 2e 22 0a 20 20 28 69 76 79 2d 2d 66 6f 72 6d 61 | ounsel-yank-pop'."...(ivy--forma |
| 2a060 | 74 2d 66 75 6e 63 74 69 6f 6e 2d 67 65 6e 65 72 69 63 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 73 | t-function-generic....(lambda.(s |
| 2a080 | 74 72 29 0a 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 28 6c 61 6d 62 64 | tr)......(mapconcat.......(lambd |
| 2a0a0 | 61 20 28 73 29 0a 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 61 64 64 2d 66 61 63 65 20 73 20 27 | a.(s).........(ivy--add-face.s.' |
| 2a0c0 | 69 76 79 2d 63 75 72 72 65 6e 74 2d 6d 61 74 63 68 29 29 0a 20 20 20 20 20 20 28 73 70 6c 69 74 | ivy-current-match)).......(split |
| 2a0e0 | 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f | -string........(counsel--yank-po |
| 2a100 | 70 2d 74 72 75 6e 63 61 74 65 20 73 74 72 29 20 22 5c 6e 22 20 74 29 0a 20 20 20 20 20 20 22 5c | p-truncate.str)."\n".t)......."\ |
| 2a120 | 6e 22 29 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 29 0a 20 20 20 20 20 28 63 6f 75 6e | n"))....(lambda.(str)......(coun |
| 2a140 | 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 74 72 75 6e 63 61 74 65 20 73 74 72 29 29 0a 20 20 20 | sel--yank-pop-truncate.str)).... |
| 2a160 | 63 61 6e 64 2d 70 61 69 72 73 0a 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 63 6f 75 6e 73 65 | cand-pairs....(propertize.counse |
| 2a180 | 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 73 65 70 61 72 61 74 6f 72 20 27 66 61 63 65 20 27 69 76 79 2d | l-yank-pop-separator.'face.'ivy- |
| 2a1a0 | 73 65 70 61 72 61 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 79 61 | separator)))..(defun.counsel--ya |
| 2a1c0 | 6e 6b 2d 70 6f 70 2d 70 6f 73 69 74 69 6f 6e 20 28 73 29 0a 20 20 22 52 65 74 75 72 6e 20 70 6f | nk-pop-position.(s)..."Return.po |
| 2a1e0 | 73 69 74 69 6f 6e 20 6f 66 20 53 20 69 6e 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 20 72 65 6c 61 74 | sition.of.S.in.`kill-ring'.relat |
| 2a200 | 69 76 65 20 74 6f 20 6c 61 73 74 20 79 61 6e 6b 2e 22 0a 20 20 28 6f 72 20 28 63 6c 2d 70 6f 73 | ive.to.last.yank."...(or.(cl-pos |
| 2a220 | 69 74 69 6f 6e 20 73 20 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 20 3a | ition.s.kill-ring-yank-pointer.: |
| 2a240 | 74 65 73 74 20 23 27 65 71 75 61 6c 2d 69 6e 63 6c 75 64 69 6e 67 2d 70 72 6f 70 65 72 74 69 65 | test.#'equal-including-propertie |
| 2a260 | 73 29 0a 20 20 20 20 20 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 73 20 6b 69 6c 6c 2d 72 69 6e | s).......(cl-position.s.kill-rin |
| 2a280 | 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 | g-yank-pointer.:test.#'equal)... |
| 2a2a0 | 20 20 20 20 28 2b 20 28 6f 72 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 73 20 6b 69 6c 6c 2d 72 | ....(+.(or.(cl-position.s.kill-r |
| 2a2c0 | 69 6e 67 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 2d 69 6e 63 6c 75 64 69 6e 67 2d 70 72 6f 70 | ing.:test.#'equal-including-prop |
| 2a2e0 | 65 72 74 69 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 70 6f 73 69 74 69 6f | erties)..............(cl-positio |
| 2a300 | 6e 20 73 20 6b 69 6c 6c 2d 72 69 6e 67 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 | n.s.kill-ring.:test.#'equal))... |
| 2a320 | 20 20 20 20 20 20 20 28 2d 20 28 6c 65 6e 67 74 68 20 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 6e 6b | .......(-.(length.kill-ring-yank |
| 2a340 | 2d 70 6f 69 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 6b 69 | -pointer).............(length.ki |
| 2a360 | 6c 6c 2d 72 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 74 72 | ll-ring)))))..(defun.counsel-str |
| 2a380 | 69 6e 67 2d 6e 6f 6e 2d 62 6c 61 6e 6b 2d 70 20 28 73 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 6f | ing-non-blank-p.(s)..."Return.no |
| 2a3a0 | 6e 2d 6e 69 6c 20 69 66 20 53 20 69 6e 63 6c 75 64 65 73 20 6e 6f 6e 2d 62 6c 61 6e 6b 20 63 68 | n-nil.if.S.includes.non-blank.ch |
| 2a3c0 | 61 72 61 63 74 65 72 73 2e 0a 4e 65 77 6c 69 6e 65 73 20 61 6e 64 20 63 61 72 72 69 61 67 65 20 | aracters..Newlines.and.carriage. |
| 2a3e0 | 72 65 74 75 72 6e 73 20 61 72 65 20 63 6f 6e 73 69 64 65 72 65 64 20 62 6c 61 6e 6b 2e 22 0a 20 | returns.are.considered.blank.".. |
| 2a400 | 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 22 5c 5c 60 5b 5c 6e 5c 72 5b | .(not.(string-match-p."\\`[\n\r[ |
| 2a420 | 3a 62 6c 61 6e 6b 3a 5d 5d 2a 5c 5c 27 22 20 73 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | :blank:]]*\\'".s)))..(defcustom. |
| 2a440 | 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 66 69 6c 74 65 72 20 23 27 63 6f 75 6e 73 65 | counsel-yank-pop-filter.#'counse |
| 2a460 | 6c 2d 73 74 72 69 6e 67 2d 6e 6f 6e 2d 62 6c 61 6e 6b 2d 70 0a 20 20 22 55 6e 61 72 79 20 66 69 | l-string-non-blank-p..."Unary.fi |
| 2a480 | 6c 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 61 70 70 6c 69 65 64 20 74 6f 20 60 63 6f 75 6e 73 65 | lter.function.applied.to.`counse |
| 2a4a0 | 6c 2d 79 61 6e 6b 2d 70 6f 70 27 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 41 6c 6c 20 65 6c 65 6d | l-yank-pop'.candidates..All.elem |
| 2a4c0 | 65 6e 74 73 20 6f 66 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 20 66 6f 72 20 77 68 69 63 68 20 74 68 | ents.of.`kill-ring'.for.which.th |
| 2a4e0 | 69 73 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 75 72 6e 73 20 6e 69 6c 0a 77 69 6c 6c 20 62 65 20 | is.function.returns.nil.will.be. |
| 2a500 | 64 65 73 74 72 75 63 74 69 76 65 6c 79 20 72 65 6d 6f 76 65 64 20 66 72 6f 6d 20 60 6b 69 6c 6c | destructively.removed.from.`kill |
| 2a520 | 2d 72 69 6e 67 27 20 62 65 66 6f 72 65 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 41 6c 6c 20 62 6c | -ring'.before.completion..All.bl |
| 2a540 | 61 6e 6b 20 73 74 72 69 6e 67 73 20 61 72 65 20 64 65 6c 65 74 65 64 20 66 72 6f 6d 20 60 6b 69 | ank.strings.are.deleted.from.`ki |
| 2a560 | 6c 6c 2d 72 69 6e 67 27 20 62 79 20 64 65 66 61 75 6c 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 | ll-ring'.by.default."...:type.'( |
| 2a580 | 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 6d 20 63 | radio...........(function-item.c |
| 2a5a0 | 6f 75 6e 73 65 6c 2d 73 74 72 69 6e 67 2d 6e 6f 6e 2d 62 6c 61 6e 6b 2d 70 29 0a 20 20 20 20 20 | ounsel-string-non-blank-p)...... |
| 2a5c0 | 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 69 74 65 6d 20 69 64 65 6e 74 69 74 79 29 0a 20 20 | .....(function-item.identity)... |
| 2a5e0 | 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 4f 74 68 65 72 22 29 29 | ........(function.:tag."Other")) |
| 2a600 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 6b 69 6c 6c | )..(defun.counsel--yank-pop-kill |
| 2a620 | 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 66 69 6c 74 65 72 65 64 20 60 6b 69 6c 6c 2d 72 69 | s.()..."Return.filtered.`kill-ri |
| 2a640 | 6e 67 27 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 20 63 6f 6d 70 6c | ng'.for.`counsel-yank-pop'.compl |
| 2a660 | 65 74 69 6f 6e 2e 0a 42 6f 74 68 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 20 61 6e 64 20 60 6b 69 6c | etion..Both.`kill-ring'.and.`kil |
| 2a680 | 6c 2d 72 69 6e 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 27 20 6d 61 79 20 62 65 0a 64 65 73 74 | l-ring-yank-pointer'.may.be.dest |
| 2a6a0 | 72 75 63 74 69 76 65 6c 79 20 6d 6f 64 69 66 69 65 64 20 74 6f 20 65 6c 69 6d 69 6e 61 74 65 20 | ructively.modified.to.eliminate. |
| 2a6c0 | 64 75 70 6c 69 63 61 74 65 73 20 75 6e 64 65 72 0a 60 65 71 75 61 6c 2d 69 6e 63 6c 75 64 69 6e | duplicates.under.`equal-includin |
| 2a6e0 | 67 2d 70 72 6f 70 65 72 74 69 65 73 27 2c 20 73 61 74 69 73 66 79 20 60 63 6f 75 6e 73 65 6c 2d | g-properties',.satisfy.`counsel- |
| 2a700 | 79 61 6e 6b 2d 70 6f 70 2d 66 69 6c 74 65 72 27 2c 0a 61 6e 64 20 69 6e 63 6f 72 70 6f 72 61 74 | yank-pop-filter',.and.incorporat |
| 2a720 | 65 20 60 69 6e 74 65 72 70 72 6f 67 72 61 6d 2d 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 27 2e | e.`interprogram-paste-function'. |
| 2a740 | 22 0a 20 20 3b 3b 20 50 72 6f 74 65 63 74 20 61 67 61 69 6e 73 74 20 60 6b 69 6c 6c 2d 72 69 6e | "...;;.Protect.against.`kill-rin |
| 2a760 | 67 27 20 61 6e 64 20 72 65 73 75 6c 74 20 6f 66 0a 20 20 3b 3b 20 60 69 6e 74 65 72 70 72 6f 67 | g'.and.result.of...;;.`interprog |
| 2a780 | 72 61 6d 2d 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 27 20 62 6f 74 68 20 62 65 69 6e 67 20 6e | ram-paste-function'.both.being.n |
| 2a7a0 | 69 6c 0a 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 63 75 72 72 65 6e 74 2d 6b 69 6c | il...(ignore-errors.(current-kil |
| 2a7c0 | 6c 20 30 29 29 0a 20 20 3b 3b 20 4b 65 65 70 20 74 68 69 6e 67 73 20 63 6f 6e 73 69 73 74 65 6e | l.0))...;;.Keep.things.consisten |
| 2a7e0 | 74 20 77 69 74 68 20 74 68 65 20 72 65 73 74 20 6f 66 20 45 6d 61 63 73 0a 20 20 28 64 6f 6c 69 | t.with.the.rest.of.Emacs...(doli |
| 2a800 | 73 74 20 28 73 79 6d 20 27 28 6b 69 6c 6c 2d 72 69 6e 67 20 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 | st.(sym.'(kill-ring.kill-ring-ya |
| 2a820 | 6e 6b 2d 70 6f 69 6e 74 65 72 29 29 0a 20 20 20 20 28 73 65 74 20 73 79 6d 20 28 63 6c 2d 64 65 | nk-pointer)).....(set.sym.(cl-de |
| 2a840 | 6c 65 74 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | lete-duplicates...............(c |
| 2a860 | 6c 2d 64 65 6c 65 74 65 2d 69 66 2d 6e 6f 74 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 | l-delete-if-not.counsel-yank-pop |
| 2a880 | 2d 66 69 6c 74 65 72 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 29 29 0a 20 20 20 20 | -filter.(symbol-value.sym))..... |
| 2a8a0 | 20 20 20 20 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 2d 69 6e 63 6c 75 64 69 6e | ..........:test.#'equal-includin |
| 2a8c0 | 67 2d 70 72 6f 70 65 72 74 69 65 73 20 3a 66 72 6f 6d 2d 65 6e 64 20 74 29 29 29 0a 20 20 6b 69 | g-properties.:from-end.t)))...ki |
| 2a8e0 | 6c 6c 2d 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 79 61 6e | ll-ring)..(defcustom.counsel-yan |
| 2a900 | 6b 2d 70 6f 70 2d 61 66 74 65 72 2d 70 6f 69 6e 74 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 | k-pop-after-point.nil..."Whether |
| 2a920 | 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 20 79 61 6e 6b 73 20 61 66 74 65 72 20 | .`counsel-yank-pop'.yanks.after. |
| 2a940 | 70 6f 69 6e 74 2e 0a 4e 69 6c 20 6d 65 61 6e 73 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 | point..Nil.means.`counsel-yank-p |
| 2a960 | 6f 70 27 20 70 75 74 73 20 70 6f 69 6e 74 20 61 74 20 74 68 65 20 65 6e 64 20 6f 66 20 74 68 65 | op'.puts.point.at.the.end.of.the |
| 2a980 | 20 79 61 6e 6b 65 64 0a 74 65 78 74 20 61 6e 64 20 6d 61 72 6b 20 61 74 20 69 74 73 20 62 65 67 | .yanked.text.and.mark.at.its.beg |
| 2a9a0 | 69 6e 6e 69 6e 67 2c 20 61 73 20 70 65 72 20 74 68 65 20 64 65 66 61 75 6c 74 20 5c 5c 5b 79 61 | inning,.as.per.the.default.\\[ya |
| 2a9c0 | 6e 6b 5d 2e 0a 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b | nk]..Non-nil.means.`counsel-yank |
| 2a9e0 | 2d 70 6f 70 27 20 73 77 61 70 73 20 74 68 65 20 72 65 73 75 6c 74 69 6e 67 20 70 6f 69 6e 74 20 | -pop'.swaps.the.resulting.point. |
| 2aa00 | 61 6e 64 0a 6d 61 72 6b 2c 20 61 73 20 70 65 72 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 | and.mark,.as.per.\\[universal-ar |
| 2aa20 | 67 75 6d 65 6e 74 5d 20 5c 5c 5b 79 61 6e 6b 5d 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c | gument].\\[yank]."...:type.'bool |
| 2aa40 | 65 61 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 63 | ean)..(defun.counsel-yank-pop-ac |
| 2aa60 | 74 69 6f 6e 20 28 73 29 0a 20 20 22 4c 69 6b 65 20 60 79 61 6e 6b 2d 70 6f 70 27 2c 20 62 75 74 | tion.(s)..."Like.`yank-pop',.but |
| 2aa80 | 20 69 6e 73 65 72 74 20 74 68 65 20 6b 69 6c 6c 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 | .insert.the.kill.corresponding.t |
| 2aaa0 | 6f 20 53 2e 0a 53 69 67 6e 61 6c 20 61 20 60 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 27 | o.S..Signal.a.`buffer-read-only' |
| 2aac0 | 20 65 72 72 6f 72 20 69 66 20 63 61 6c 6c 65 64 20 66 72 6f 6d 20 61 20 72 65 61 64 2d 6f 6e 6c | .error.if.called.from.a.read-onl |
| 2aae0 | 79 0a 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 | y.buffer.position."...(when.(and |
| 2ab00 | 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 76 74 65 72 6d 2d 6d 6f 64 65 29 0a 20 20 20 | .(eq.major-mode.'vterm-mode).... |
| 2ab20 | 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 76 74 65 72 6d 2d 69 6e 73 65 72 74 | ..........(fboundp.'vterm-insert |
| 2ab40 | 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | )).....(let.((inhibit-read-only. |
| 2ab60 | 74 29 29 0a 20 20 20 20 20 20 28 76 74 65 72 6d 2d 69 6e 73 65 72 74 20 73 29 29 29 0a 20 20 28 | t)).......(vterm-insert.s)))...( |
| 2ab80 | 62 61 72 66 2d 69 66 2d 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 28 73 65 74 | barf-if-buffer-read-only)...(set |
| 2aba0 | 71 20 79 61 6e 6b 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 | q.yank-window-start.(window-star |
| 2abc0 | 74 29 29 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 | t))...(unless.(eq.last-command.' |
| 2abe0 | 79 61 6e 6b 29 0a 20 20 20 20 3b 3b 20 41 76 6f 69 64 20 75 6e 65 78 70 65 63 74 65 64 20 64 65 | yank).....;;.Avoid.unexpected.de |
| 2ac00 | 6c 65 74 69 6f 6e 73 20 77 69 74 68 20 60 79 61 6e 6b 2d 68 61 6e 64 6c 65 72 27 20 70 72 6f 70 | letions.with.`yank-handler'.prop |
| 2ac20 | 65 72 74 69 65 73 2e 0a 20 20 20 20 28 73 65 74 71 20 79 61 6e 6b 2d 75 6e 64 6f 2d 66 75 6e 63 | erties......(setq.yank-undo-func |
| 2ac40 | 74 69 6f 6e 20 6e 69 6c 29 29 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c | tion.nil))...(condition-case.nil |
| 2ac60 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 3b 3b 20 44 65 63 65 69 76 65 20 60 79 61 6e 6b 2d 70 6f | .......(let.(;;.Deceive.`yank-po |
| 2ac80 | 70 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 79 | p'..............(last-command.'y |
| 2aca0 | 61 6e 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 41 76 6f 69 64 20 75 6e 65 78 70 65 | ank).............;;.Avoid.unexpe |
| 2acc0 | 63 74 65 64 20 61 64 64 69 74 69 6f 6e 73 20 74 6f 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 2e 0a 20 | cted.additions.to.`kill-ring'... |
| 2ace0 | 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 72 6f 67 72 61 6d 2d 70 61 73 74 65 2d 66 75 | ...........interprogram-paste-fu |
| 2ad00 | 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 79 61 6e 6b 2d 70 6f 70 20 28 63 6f 75 6e 73 | nction).........(yank-pop.(couns |
| 2ad20 | 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 70 6f 73 69 74 69 6f 6e 20 73 29 29 29 0a 20 20 20 20 28 | el--yank-pop-position.s))).....( |
| 2ad40 | 65 72 72 6f 72 0a 20 20 20 20 20 3b 3b 20 53 75 70 70 6f 72 74 20 73 74 72 69 6e 67 73 20 6e 6f | error......;;.Support.strings.no |
| 2ad60 | 74 20 70 72 65 73 65 6e 74 20 69 6e 20 74 68 65 20 6b 69 6c 6c 20 72 69 6e 67 2e 0a 20 20 20 20 | t.present.in.the.kill.ring...... |
| 2ad80 | 20 28 69 6e 73 65 72 74 20 73 29 29 29 0a 20 20 28 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 28 | .(insert.s)))...(when.(funcall.( |
| 2ada0 | 69 66 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 66 74 65 72 2d 70 6f 69 6e 74 20 | if.counsel-yank-pop-after-point. |
| 2adc0 | 23 27 3e 20 23 27 3c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 | #'>.#'<)..................(point |
| 2ade0 | 29 20 28 6d 61 72 6b 20 74 29 29 0a 20 20 20 20 28 65 78 63 68 61 6e 67 65 2d 70 6f 69 6e 74 2d | ).(mark.t)).....(exchange-point- |
| 2ae00 | 61 6e 64 2d 6d 61 72 6b 20 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 79 61 | and-mark.t)))..(defun.counsel-ya |
| 2ae20 | 6e 6b 2d 70 6f 70 2d 61 63 74 69 6f 6e 2d 72 65 6d 6f 76 65 20 28 73 29 0a 20 20 22 52 65 6d 6f | nk-pop-action-remove.(s)..."Remo |
| 2ae40 | 76 65 20 61 6c 6c 20 6f 63 63 75 72 72 65 6e 63 65 73 20 6f 66 20 53 20 66 72 6f 6d 20 74 68 65 | ve.all.occurrences.of.S.from.the |
| 2ae60 | 20 6b 69 6c 6c 20 72 69 6e 67 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 73 79 6d 20 27 28 6b 69 | .kill.ring."...(dolist.(sym.'(ki |
| 2ae80 | 6c 6c 2d 72 69 6e 67 20 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 29 29 | ll-ring.kill-ring-yank-pointer)) |
| 2aea0 | 0a 20 20 20 20 28 73 65 74 20 73 79 6d 20 28 63 6c 2d 64 65 6c 65 74 65 20 73 20 28 73 79 6d 62 | .....(set.sym.(cl-delete.s.(symb |
| 2aec0 | 6f 6c 2d 76 61 6c 75 65 20 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ol-value.sym)................... |
| 2aee0 | 20 20 20 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 2d 69 6e 63 6c 75 64 69 6e 67 2d 70 72 | ......:test.#'equal-including-pr |
| 2af00 | 6f 70 65 72 74 69 65 73 29 29 29 0a 20 20 3b 3b 20 55 70 64 61 74 65 20 63 6f 6c 6c 65 63 74 69 | operties)))...;;.Update.collecti |
| 2af20 | 6f 6e 20 61 6e 64 20 70 72 65 73 65 6c 65 63 74 20 66 6f 72 20 6e 65 78 74 20 60 69 76 79 2d 63 | on.and.preselect.for.next.`ivy-c |
| 2af40 | 61 6c 6c 27 0a 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 63 6f 6c 6c 65 63 74 69 | all'...(setf.(ivy-state-collecti |
| 2af60 | 6f 6e 20 69 76 79 2d 6c 61 73 74 29 20 6b 69 6c 6c 2d 72 69 6e 67 29 0a 20 20 28 73 65 74 66 20 | on.ivy-last).kill-ring)...(setf. |
| 2af80 | 28 69 76 79 2d 73 74 61 74 65 2d 70 72 65 73 65 6c 65 63 74 20 69 76 79 2d 6c 61 73 74 29 0a 20 | (ivy-state-preselect.ivy-last).. |
| 2afa0 | 20 20 20 20 20 20 20 28 6e 74 68 20 28 6d 69 6e 20 69 76 79 2d 2d 69 6e 64 65 78 20 28 31 2d 20 | .......(nth.(min.ivy--index.(1-. |
| 2afc0 | 28 6c 65 6e 67 74 68 20 6b 69 6c 6c 2d 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | (length.kill-ring)))............ |
| 2afe0 | 20 20 6b 69 6c 6c 2d 72 69 6e 67 29 29 0a 20 20 28 69 76 79 2d 2d 72 65 73 65 74 2d 73 74 61 74 | ..kill-ring))...(ivy--reset-stat |
| 2b000 | 65 20 69 76 79 2d 6c 61 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 79 61 6e | e.ivy-last))..(defun.counsel-yan |
| 2b020 | 6b 2d 70 6f 70 2d 61 63 74 69 6f 6e 2d 72 6f 74 61 74 65 20 28 73 29 0a 20 20 22 52 6f 74 61 74 | k-pop-action-rotate.(s)..."Rotat |
| 2b040 | 65 20 74 68 65 20 79 61 6e 6b 69 6e 67 20 70 6f 69 6e 74 20 74 6f 20 53 20 69 6e 20 74 68 65 20 | e.the.yanking.point.to.S.in.the. |
| 2b060 | 6b 69 6c 6c 20 72 69 6e 67 2e 0a 53 65 65 20 60 63 75 72 72 65 6e 74 2d 6b 69 6c 6c 27 20 66 6f | kill.ring..See.`current-kill'.fo |
| 2b080 | 72 20 68 6f 77 20 74 68 69 73 20 69 6e 74 65 72 61 63 74 73 20 77 69 74 68 20 74 68 65 20 77 69 | r.how.this.interacts.with.the.wi |
| 2b0a0 | 6e 64 6f 77 20 73 79 73 74 65 6d 0a 73 65 6c 65 63 74 69 6f 6e 2e 22 0a 20 20 28 6c 65 74 20 28 | ndow.system.selection."...(let.( |
| 2b0c0 | 28 69 20 28 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 70 6f 73 69 74 69 6f 6e 20 73 | (i.(counsel--yank-pop-position.s |
| 2b0e0 | 29 29 29 0a 20 20 20 20 3b 3b 20 41 76 6f 69 64 20 75 6e 65 78 70 65 63 74 65 64 20 61 64 64 69 | ))).....;;.Avoid.unexpected.addi |
| 2b100 | 74 69 6f 6e 73 20 74 6f 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 0a 20 20 20 20 28 6c 65 74 20 28 69 | tions.to.`kill-ring'.....(let.(i |
| 2b120 | 6e 74 65 72 70 72 6f 67 72 61 6d 2d 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 | nterprogram-paste-function)..... |
| 2b140 | 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 70 72 65 73 65 6c 65 63 74 20 69 76 79 | ..(setf.(ivy-state-preselect.ivy |
| 2b160 | 2d 6c 61 73 74 29 20 28 63 75 72 72 65 6e 74 2d 6b 69 6c 6c 20 69 29 29 29 0a 20 20 20 20 3b 3b | -last).(current-kill.i))).....;; |
| 2b180 | 20 4d 61 6e 75 61 6c 6c 79 20 63 68 61 6e 67 65 20 77 69 6e 64 6f 77 20 73 79 73 74 65 6d 20 73 | .Manually.change.window.system.s |
| 2b1a0 | 65 6c 65 63 74 69 6f 6e 20 62 65 63 61 75 73 65 20 60 63 75 72 72 65 6e 74 2d 6b 69 6c 6c 27 20 | election.because.`current-kill'. |
| 2b1c0 | 77 6f 6e 27 74 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 7a 65 72 6f 70 20 69 29 0a 20 | won't.....(when.(and.(zerop.i).. |
| 2b1e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 79 61 6e 6b 2d 70 6f 70 2d 63 68 61 6e 67 65 2d 73 65 | ..............yank-pop-change-se |
| 2b200 | 6c 65 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 74 65 72 70 72 6f 67 | lection................interprog |
| 2b220 | 72 61 6d 2d 63 75 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c | ram-cut-function).......(funcall |
| 2b240 | 20 69 6e 74 65 72 70 72 6f 67 72 61 6d 2d 63 75 74 2d 66 75 6e 63 74 69 6f 6e 20 28 63 61 72 20 | .interprogram-cut-function.(car. |
| 2b260 | 6b 69 6c 6c 2d 72 69 6e 67 2d 79 61 6e 6b 2d 70 6f 69 6e 74 65 72 29 29 29 29 0a 20 20 28 69 76 | kill-ring-yank-pointer))))...(iv |
| 2b280 | 79 2d 2d 72 65 73 65 74 2d 73 74 61 74 65 20 69 76 79 2d 6c 61 73 74 29 29 0a 0a 28 64 65 66 63 | y--reset-state.ivy-last))..(defc |
| 2b2a0 | 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 70 72 65 73 65 6c 65 63 74 | ustom.counsel-yank-pop-preselect |
| 2b2c0 | 2d 6c 61 73 74 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 60 63 6f 75 6e 73 65 6c 2d 79 61 | -last.nil..."Whether.`counsel-ya |
| 2b2e0 | 6e 6b 2d 70 6f 70 27 20 70 72 65 73 65 6c 65 63 74 73 20 74 68 65 20 6c 61 73 74 20 6b 69 6c 6c | nk-pop'.preselects.the.last.kill |
| 2b300 | 20 62 79 20 64 65 66 61 75 6c 74 2e 0a 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 60 63 6f 75 6e 73 | .by.default...The.command.`couns |
| 2b320 | 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 20 61 6c 77 61 79 73 20 70 72 65 73 65 6c 65 63 74 73 20 74 | el-yank-pop'.always.preselects.t |
| 2b340 | 68 65 20 73 61 6d 65 20 6b 69 6c 6c 0a 74 68 61 74 20 60 79 61 6e 6b 2d 70 6f 70 27 20 77 6f 75 | he.same.kill.that.`yank-pop'.wou |
| 2b360 | 6c 64 20 68 61 76 65 20 69 6e 73 65 72 74 65 64 2c 20 67 69 76 65 6e 20 74 68 65 20 73 61 6d 65 | ld.have.inserted,.given.the.same |
| 2b380 | 20 70 72 65 66 69 78 0a 61 72 67 75 6d 65 6e 74 2e 0a 0a 57 68 65 6e 20 60 63 6f 75 6e 73 65 6c | .prefix.argument...When.`counsel |
| 2b3a0 | 2d 79 61 6e 6b 2d 70 6f 70 2d 70 72 65 73 65 6c 65 63 74 2d 6c 61 73 74 27 20 69 73 20 6e 69 6c | -yank-pop-preselect-last'.is.nil |
| 2b3c0 | 20 28 74 68 65 20 64 65 66 61 75 6c 74 29 2c 20 74 68 65 0a 70 72 65 66 69 78 20 61 72 67 75 6d | .(the.default),.the.prefix.argum |
| 2b3e0 | 65 6e 74 20 6f 66 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 27 20 64 65 66 61 75 6c | ent.of.`counsel-yank-pop'.defaul |
| 2b400 | 74 73 20 74 6f 20 31 20 28 61 73 20 70 65 72 0a 60 79 61 6e 6b 2d 70 6f 70 27 29 2c 20 77 68 69 | ts.to.1.(as.per.`yank-pop'),.whi |
| 2b420 | 63 68 20 63 61 75 73 65 73 20 74 68 65 20 6e 65 78 74 2d 74 6f 2d 6c 61 73 74 20 6b 69 6c 6c 20 | ch.causes.the.next-to-last.kill. |
| 2b440 | 74 6f 20 62 65 0a 70 72 65 73 65 6c 65 63 74 65 64 2e 20 20 4f 74 68 65 72 77 69 73 65 2c 20 74 | to.be.preselected...Otherwise,.t |
| 2b460 | 68 65 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 30 | he.prefix.argument.defaults.to.0 |
| 2b480 | 2c 20 77 68 69 63 68 0a 72 65 73 75 6c 74 73 20 69 6e 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 | ,.which.results.in.the.most.rece |
| 2b4a0 | 6e 74 20 6b 69 6c 6c 20 62 65 69 6e 67 20 70 72 65 73 65 6c 65 63 74 65 64 2e 22 0a 20 20 3a 74 | nt.kill.being.preselected."...:t |
| 2b4c0 | 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 3b 3b 20 4d 6f 76 65 64 20 74 6f 20 73 75 62 72 2e | ype.'boolean)..;;.Moved.to.subr. |
| 2b4e0 | 65 6c 20 69 6e 20 45 6d 61 63 73 20 32 37 2e 31 2e 0a 28 61 75 74 6f 6c 6f 61 64 20 27 78 6f 72 | el.in.Emacs.27.1..(autoload.'xor |
| 2b500 | 20 22 61 72 72 61 79 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | ."array")..;;;###autoload.(defun |
| 2b520 | 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 | .counsel-yank-pop.(&optional.arg |
| 2b540 | 29 0a 20 20 22 49 76 79 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 79 61 6e 6b 2d 70 | )..."Ivy.replacement.for.`yank-p |
| 2b560 | 6f 70 27 2e 0a 57 69 74 68 20 61 20 70 6c 61 69 6e 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e | op'..With.a.plain.prefix.argumen |
| 2b580 | 74 20 28 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 29 2c 0a 74 65 6d 70 | t.(\\[universal-argument]),.temp |
| 2b5a0 | 6f 72 61 72 69 6c 79 20 74 6f 67 67 6c 65 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 60 63 6f 75 | orarily.toggle.the.value.of.`cou |
| 2b5c0 | 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 66 74 65 72 2d 70 6f 69 6e 74 27 2e 0a 41 6e 79 20 | nsel-yank-pop-after-point'..Any. |
| 2b5e0 | 6f 74 68 65 72 20 76 61 6c 75 65 20 6f 66 20 41 52 47 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 | other.value.of.ARG.has.the.same. |
| 2b600 | 6d 65 61 6e 69 6e 67 20 61 73 20 69 6e 20 60 79 61 6e 6b 2d 70 6f 70 27 2c 20 62 75 74 0a 60 63 | meaning.as.in.`yank-pop',.but.`c |
| 2b620 | 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 70 72 65 73 65 6c 65 63 74 2d 6c 61 73 74 27 20 | ounsel-yank-pop-preselect-last'. |
| 2b640 | 64 65 74 65 72 6d 69 6e 65 73 20 69 74 73 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 2e 0a 53 65 | determines.its.default.value..Se |
| 2b660 | 65 20 61 6c 73 6f 20 60 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 66 69 6c 74 65 72 27 | e.also.`counsel-yank-pop-filter' |
| 2b680 | 20 66 6f 72 20 68 6f 77 20 74 6f 20 66 69 6c 74 65 72 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 0a | .for.how.to.filter.candidates... |
| 2b6a0 | 4e 6f 74 65 3a 20 44 75 70 6c 69 63 61 74 65 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 60 6b 69 6c | Note:.Duplicate.elements.of.`kil |
| 2b6c0 | 6c 2d 72 69 6e 67 27 20 61 72 65 20 61 6c 77 61 79 73 20 64 65 6c 65 74 65 64 2e 22 0a 20 20 3b | l-ring'.are.always.deleted."...; |
| 2b6e0 | 3b 20 44 6f 20 6e 6f 74 20 73 70 65 63 69 66 79 20 60 2a 27 20 74 6f 20 61 6c 6c 6f 77 20 62 72 | ;.Do.not.specify.`*'.to.allow.br |
| 2b700 | 6f 77 73 69 6e 67 20 60 6b 69 6c 6c 2d 72 69 6e 67 27 20 69 6e 20 72 65 61 64 2d 6f 6e 6c 79 20 | owsing.`kill-ring'.in.read-only. |
| 2b720 | 62 75 66 66 65 72 73 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c | buffers...(interactive."P")...(l |
| 2b740 | 65 74 20 28 28 6b 69 6c 6c 73 20 28 6f 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f | et.((kills.(or.(counsel--yank-po |
| 2b760 | 70 2d 6b 69 6c 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 | p-kills)....................(err |
| 2b780 | 6f 72 20 22 4b 69 6c 6c 20 72 69 6e 67 20 69 73 20 65 6d 70 74 79 20 6f 72 20 62 6c 61 6e 6b 22 | or."Kill.ring.is.empty.or.blank" |
| 2b7a0 | 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 65 73 65 6c 65 63 74 20 28 6c 65 74 20 28 69 6e 74 | ))).........(preselect.(let.(int |
| 2b7c0 | 65 72 70 72 6f 67 72 61 6d 2d 70 61 73 74 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 | erprogram-paste-function)....... |
| 2b7e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 72 72 65 6e 74 2d 6b 69 6c 6c 20 28 63 6f | ...............(current-kill.(co |
| 2b800 | 6e 64 20 28 28 6e 6c 69 73 74 70 20 61 72 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nd.((nlistp.arg)................ |
| 2b820 | 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 70 72 65 66 | ...........................(pref |
| 2b840 | 69 78 2d 6e 75 6d 65 72 69 63 2d 76 61 6c 75 65 20 61 72 67 29 29 0a 20 20 20 20 20 20 20 20 20 | ix-numeric-value.arg)).......... |
| 2b860 | 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 | ................................ |
| 2b880 | 28 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 70 72 65 73 65 6c 65 63 74 2d 6c 61 73 74 | (counsel-yank-pop-preselect-last |
| 2b8a0 | 20 30 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 | .0)............................. |
| 2b8c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .............(t.1))............. |
| 2b8e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 29 29 29 0a 20 20 20 20 | .......................t)))..... |
| 2b900 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 66 74 65 72 2d 70 6f 69 6e | ....(counsel-yank-pop-after-poin |
| 2b920 | 74 0a 20 20 20 20 20 20 20 20 20 28 78 6f 72 20 28 63 6f 6e 73 70 20 61 72 67 29 20 63 6f 75 6e | t..........(xor.(consp.arg).coun |
| 2b940 | 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 66 74 65 72 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 | sel-yank-pop-after-point)))..... |
| 2b960 | 28 75 6e 6c 65 73 73 20 28 65 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 79 61 6e 6b 29 0a | (unless.(eq.last-command.'yank). |
| 2b980 | 20 20 20 20 20 20 28 70 75 73 68 2d 6d 61 72 6b 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 | ......(push-mark)).....(ivy-read |
| 2b9a0 | 20 22 6b 69 6c 6c 2d 72 69 6e 67 3a 20 22 20 6b 69 6c 6c 73 0a 20 20 20 20 20 20 20 20 20 20 20 | ."kill-ring:.".kills............ |
| 2b9c0 | 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ...:require-match.t............. |
| 2b9e0 | 20 20 3a 70 72 65 73 65 6c 65 63 74 20 70 72 65 73 65 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 | ..:preselect.preselect.......... |
| 2ba00 | 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d | .....:action.#'counsel-yank-pop- |
| 2ba20 | 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f | action...............:caller.'co |
| 2ba40 | 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 29 29 29 0a 0a 28 70 75 74 20 23 27 63 6f 75 6e 73 65 | unsel-yank-pop)))..(put.#'counse |
| 2ba60 | 6c 2d 79 61 6e 6b 2d 70 6f 70 20 27 64 65 6c 65 74 65 2d 73 65 6c 65 63 74 69 6f 6e 20 27 79 61 | l-yank-pop.'delete-selection.'ya |
| 2ba80 | 6e 6b 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 79 61 6e | nk)..(ivy-configure.'counsel-yan |
| 2baa0 | 6b 2d 70 6f 70 0a 20 20 3a 68 65 69 67 68 74 20 35 0a 20 20 3a 66 6f 72 6d 61 74 2d 66 6e 20 23 | k-pop...:height.5...:format-fn.# |
| 2bac0 | 27 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b 2d 70 6f 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 | 'counsel--yank-pop-format-functi |
| 2bae0 | 6f 6e 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d | on)..(ivy-set-actions..'counsel- |
| 2bb00 | 79 61 6e 6b 2d 70 6f 70 0a 20 27 28 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f | yank-pop..'(("d".counsel-yank-po |
| 2bb20 | 70 2d 61 63 74 69 6f 6e 2d 72 65 6d 6f 76 65 20 22 64 65 6c 65 74 65 22 29 0a 20 20 20 28 22 72 | p-action-remove."delete")....("r |
| 2bb40 | 22 20 63 6f 75 6e 73 65 6c 2d 79 61 6e 6b 2d 70 6f 70 2d 61 63 74 69 6f 6e 2d 72 6f 74 61 74 65 | ".counsel-yank-pop-action-rotate |
| 2bb60 | 20 22 72 6f 74 61 74 65 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 65 67 69 | ."rotate")))..;;**.`counsel-regi |
| 2bb80 | 73 74 65 72 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 2d 61 | ster'.(defvar.counsel-register-a |
| 2bba0 | 63 74 69 6f 6e 73 0a 20 20 27 28 28 22 5c 5c 60 62 75 66 66 65 72 22 20 2e 20 6a 75 6d 70 2d 74 | ctions...'(("\\`buffer"...jump-t |
| 2bbc0 | 6f 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 5c 5c 60 74 65 78 74 22 20 2e 20 69 6e 73 | o-register).....("\\`text"...ins |
| 2bbe0 | 65 72 74 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 5c 5c 60 72 65 63 74 61 6e 67 6c 65 | ert-register).....("\\`rectangle |
| 2bc00 | 22 20 2e 20 69 6e 73 65 72 74 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 5c 5c 60 77 69 | "...insert-register).....("\\`wi |
| 2bc20 | 6e 64 6f 77 22 20 2e 20 6a 75 6d 70 2d 74 6f 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 | ndow"...jump-to-register).....(" |
| 2bc40 | 5c 5c 60 66 72 61 6d 65 22 20 2e 20 6a 75 6d 70 2d 74 6f 2d 72 65 67 69 73 74 65 72 29 0a 20 20 | \\`frame"...jump-to-register)... |
| 2bc60 | 20 20 28 22 5c 5c 60 5b 2d 2b 5d 3f 5b 30 2d 39 5d 2b 5c 5c 28 3f 3a 5c 5c 2e 5b 30 2d 39 5d 5c | ..("\\`[-+]?[0-9]+\\(?:\\.[0-9]\ |
| 2bc80 | 5c 29 3f 5c 5c 27 22 20 2e 20 69 6e 73 65 72 74 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 | \)?\\'"...insert-register).....( |
| 2bca0 | 22 5c 5c 60 5c 5c 28 3f 3a 74 68 65 20 5c 5c 29 3f 66 69 6c 65 20 22 20 2e 20 6a 75 6d 70 2d 74 | "\\`\\(?:the.\\)?file."...jump-t |
| 2bcc0 | 6f 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 5c 5c 60 6b 65 79 62 6f 61 72 64 22 20 2e | o-register).....("\\`keyboard".. |
| 2bce0 | 20 6a 75 6d 70 2d 74 6f 2d 72 65 67 69 73 74 65 72 29 0a 20 20 20 20 28 22 5c 5c 60 66 69 6c 65 | .jump-to-register).....("\\`file |
| 2bd00 | 2d 71 75 65 72 79 22 20 2e 20 6a 75 6d 70 2d 74 6f 2d 72 65 67 69 73 74 65 72 29 29 0a 20 20 22 | -query"...jump-to-register))..." |
| 2bd20 | 41 6c 69 73 74 20 6f 66 20 28 52 45 47 45 58 50 20 2e 20 46 55 4e 43 54 49 4f 4e 29 20 70 61 69 | Alist.of.(REGEXP...FUNCTION).pai |
| 2bd40 | 72 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 27 2e 0a 53 65 6c 65 63 | rs.for.`counsel-register'..Selec |
| 2bd60 | 74 69 6e 67 20 61 20 72 65 67 69 73 74 65 72 20 77 68 6f 73 65 20 64 65 73 63 72 69 70 74 69 6f | ting.a.register.whose.descriptio |
| 2bd80 | 6e 20 6d 61 74 63 68 65 73 20 52 45 47 45 58 50 20 73 70 65 63 69 66 69 65 73 0a 46 55 4e 43 54 | n.matches.REGEXP.specifies.FUNCT |
| 2bda0 | 49 4f 4e 20 61 73 20 74 68 65 20 61 63 74 69 6f 6e 20 74 6f 20 74 61 6b 65 20 6f 6e 20 74 68 65 | ION.as.the.action.to.take.on.the |
| 2bdc0 | 20 72 65 67 69 73 74 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 72 65 | .register.")..(defvar.counsel-re |
| 2bde0 | 67 69 73 74 65 72 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f | gister-history.nil..."History.fo |
| 2be00 | 72 20 60 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 | r.`counsel-register'.")..(defun. |
| 2be20 | 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 2d 61 63 74 69 6f 6e 20 28 72 65 67 69 73 74 65 | counsel-register-action.(registe |
| 2be40 | 72 29 0a 20 20 22 44 65 66 61 75 6c 74 20 61 63 74 69 6f 6e 20 66 6f 72 20 60 63 6f 75 6e 73 65 | r)..."Default.action.for.`counse |
| 2be60 | 6c 2d 72 65 67 69 73 74 65 72 27 2e 0a 0a 43 61 6c 6c 20 61 20 66 75 6e 63 74 69 6f 6e 20 6f 6e | l-register'...Call.a.function.on |
| 2be80 | 20 52 45 47 49 53 54 45 52 2e 20 20 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 64 65 74 65 | .REGISTER...The.function.is.dete |
| 2bea0 | 72 6d 69 6e 65 64 20 62 79 0a 6d 61 74 63 68 69 6e 67 20 74 68 65 20 72 65 67 69 73 74 65 72 27 | rmined.by.matching.the.register' |
| 2bec0 | 73 20 76 61 6c 75 65 20 64 65 73 63 72 69 70 74 69 6f 6e 20 61 67 61 69 6e 73 74 20 61 20 72 65 | s.value.description.against.a.re |
| 2bee0 | 67 65 78 70 20 69 6e 0a 60 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 2d 61 63 74 69 6f 6e | gexp.in.`counsel-register-action |
| 2bf00 | 73 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 76 61 6c 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f | s'."...(let*.((val.(get-text-pro |
| 2bf20 | 70 65 72 74 79 20 30 20 27 72 65 67 69 73 74 65 72 20 72 65 67 69 73 74 65 72 29 29 0a 20 20 20 | perty.0.'register.register)).... |
| 2bf40 | 20 20 20 20 20 20 28 64 65 73 63 20 28 72 65 67 69 73 74 65 72 2d 64 65 73 63 72 69 62 65 2d 6f | ......(desc.(register-describe-o |
| 2bf60 | 6e 65 6c 69 6e 65 20 76 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 63 74 69 6f 6e 20 28 63 | neline.val))..........(action.(c |
| 2bf80 | 64 72 20 28 63 6c 2d 61 73 73 6f 63 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 72 65 29 20 28 73 74 | dr.(cl-assoc-if.(lambda.(re).(st |
| 2bfa0 | 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 72 65 20 64 65 73 63 29 29 0a 20 20 20 20 20 20 20 20 20 | ring-match-p.re.desc)).......... |
| 2bfc0 | 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 63 6f 75 6e 73 65 | ..........................counse |
| 2bfe0 | 6c 2d 72 65 67 69 73 74 65 72 2d 61 63 74 69 6f 6e 73 29 29 29 29 0a 20 20 20 20 28 69 66 20 61 | l-register-actions)))).....(if.a |
| 2c000 | 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 61 63 74 69 6f 6e 20 76 61 | ction.........(funcall.action.va |
| 2c020 | 6c 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 61 63 74 69 6f 6e 20 77 61 73 20 66 | l).......(error."No.action.was.f |
| 2c040 | 6f 75 6e 64 20 66 6f 72 20 72 65 67 69 73 74 65 72 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 | ound.for.register.%s"........... |
| 2c060 | 20 20 20 28 73 69 6e 67 6c 65 2d 6b 65 79 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 76 61 6c 29 29 | ...(single-key-description.val)) |
| 2c080 | 29 29 29 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 75 6e 73 | )))..;;;###autoload.(defun.couns |
| 2c0a0 | 65 6c 2d 72 65 67 69 73 74 65 72 20 28 29 0a 20 20 22 49 6e 74 65 72 61 63 74 69 76 65 6c 79 20 | el-register.()..."Interactively. |
| 2c0c0 | 63 68 6f 6f 73 65 20 61 20 72 65 67 69 73 74 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | choose.a.register."...(interacti |
| 2c0e0 | 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 52 65 67 69 73 74 65 72 3a 20 22 0a 20 20 20 | ve)...(ivy-read."Register:.".... |
| 2c100 | 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6d 61 70 63 61 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .........(cl-mapcan............. |
| 2c120 | 20 28 6c 61 6d 62 64 61 20 28 72 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | .(lambda.(reg)................(l |
| 2c140 | 65 74 20 28 28 73 20 28 66 75 6e 63 61 6c 6c 20 72 65 67 69 73 74 65 72 2d 70 72 65 76 69 65 77 | et.((s.(funcall.register-preview |
| 2c160 | 2d 66 75 6e 63 74 69 6f 6e 20 72 65 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -function.reg)))................ |
| 2c180 | 20 20 28 73 65 74 71 20 73 20 28 73 75 62 73 74 72 69 6e 67 20 73 20 30 20 28 73 74 72 69 6e 67 | ..(setq.s.(substring.s.0.(string |
| 2c1a0 | 2d 6d 61 74 63 68 2d 70 20 22 5b 20 5c 74 5c 6e 5c 72 5d 2b 5c 5c 27 22 20 73 29 29 29 0a 20 20 | -match-p."[.\t\n\r]+\\'".s)))... |
| 2c1c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 73 74 72 69 6e 67 3d 20 | ...............(unless.(string=. |
| 2c1e0 | 73 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 2d 74 65 | s."")....................(put-te |
| 2c200 | 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 31 20 27 72 65 67 69 73 74 65 72 20 28 63 61 72 20 72 | xt-property.0.1.'register.(car.r |
| 2c220 | 65 67 29 20 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 | eg).s)....................(list. |
| 2c240 | 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 67 69 73 74 65 72 2d 61 6c 69 73 | s))))..............register-alis |
| 2c260 | 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a | t).............:require-match.t. |
| 2c280 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 72 65 | ............:history.'counsel-re |
| 2c2a0 | 67 69 73 74 65 72 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 | gister-history.............:acti |
| 2c2c0 | 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 65 72 2d 61 63 74 69 6f 6e 0a 20 20 20 | on.#'counsel-register-action.... |
| 2c2e0 | 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 72 65 67 69 73 74 | .........:caller.'counsel-regist |
| 2c300 | 65 72 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 72 65 | er))..(ivy-configure.'counsel-re |
| 2c320 | 67 69 73 74 65 72 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 29 | gister...:sort-fn.#'ivy-string<) |
| 2c340 | 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 27 0a | ..;;**.`counsel-evil-registers'. |
| 2c360 | 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 2d 66 | (defface.counsel-evil-register-f |
| 2c380 | 61 63 65 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c | ace...'((t.:inherit.counsel-outl |
| 2c3a0 | 69 6e 65 2d 31 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 68 69 67 68 6c 69 67 68 74 69 6e 67 | ine-1))..."Face.for.highlighting |
| 2c3c0 | 20 60 65 76 69 6c 27 20 72 65 67 69 73 74 65 72 73 20 69 6e 20 69 76 79 2e 22 0a 20 20 3a 67 72 | .`evil'.registers.in.ivy."...:gr |
| 2c3e0 | 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a | oup.'ivy-faces)..;;;###autoload. |
| 2c400 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 20 28 29 | (defun.counsel-evil-registers.() |
| 2c420 | 0a 20 20 22 49 76 79 20 72 65 70 6c 61 63 65 6d 65 6e 74 20 66 6f 72 20 60 65 76 69 6c 2d 73 68 | ..."Ivy.replacement.for.`evil-sh |
| 2c440 | 6f 77 2d 72 65 67 69 73 74 65 72 73 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | ow-registers'."...(interactive). |
| 2c460 | 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 65 76 69 6c 2d 72 65 67 69 73 74 65 72 2d 6c 69 | ..(if.(fboundp.'evil-register-li |
| 2c480 | 73 74 29 0a 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 65 76 69 6c 2d 72 65 67 69 73 74 | st).......(ivy-read."evil-regist |
| 2c4a0 | 65 72 73 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 | ers:.".................(cl-loop. |
| 2c4c0 | 66 6f 72 20 28 6b 65 79 20 2e 20 76 61 6c 29 20 69 6e 20 28 65 76 69 6c 2d 72 65 67 69 73 74 65 | for.(key...val).in.(evil-registe |
| 2c4e0 | 72 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 | r-list)....................colle |
| 2c500 | 63 74 20 28 66 6f 72 6d 61 74 20 22 5b 25 73 5d 3a 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 | ct.(format."[%s]:.%s"........... |
| 2c520 | 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 70 72 6f 70 65 72 | .........................(proper |
| 2c540 | 74 69 7a 65 20 28 63 68 61 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6b 65 79 29 0a 20 20 20 20 20 20 | tize.(char-to-string.key)....... |
| 2c560 | 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 | ................................ |
| 2c580 | 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 | .........'face.'counsel-evil-reg |
| 2c5a0 | 69 73 74 65 72 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ister-face)..................... |
| 2c5c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 73 74 72 69 6e 67 70 20 76 61 6c 29 | ...............(if.(stringp.val) |
| 2c5e0 | 20 76 61 6c 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 | .val.""))).................:requ |
| 2c600 | 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 | ire-match.t.................:act |
| 2c620 | 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 2d 61 63 74 | ion.#'counsel-evil-registers-act |
| 2c640 | 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 | ion.................:caller.'cou |
| 2c660 | 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 29 0a 20 20 20 20 28 75 73 65 72 2d 65 | nsel-evil-registers).....(user-e |
| 2c680 | 72 72 6f 72 20 22 52 65 71 75 69 72 65 64 20 66 65 61 74 75 72 65 20 60 65 76 69 6c 27 20 6e 6f | rror."Required.feature.`evil'.no |
| 2c6a0 | 74 20 69 6e 73 74 61 6c 6c 65 64 22 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 | t.installed")))..(ivy-configure. |
| 2c6c0 | 27 63 6f 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 0a 20 20 3a 68 65 69 67 68 | 'counsel-evil-registers...:heigh |
| 2c6e0 | 74 20 35 0a 20 20 3a 66 6f 72 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 79 61 6e 6b | t.5...:format-fn.#'counsel--yank |
| 2c700 | 2d 70 6f 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 75 6e 20 63 6f | -pop-format-function)..(defun.co |
| 2c720 | 75 6e 73 65 6c 2d 65 76 69 6c 2d 72 65 67 69 73 74 65 72 73 2d 61 63 74 69 6f 6e 20 28 73 29 0a | unsel-evil-registers-action.(s). |
| 2c740 | 20 20 22 50 61 73 74 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20 53 2c 20 74 72 69 6d 6d 69 6e 67 | .."Paste.contents.of.S,.trimming |
| 2c760 | 20 74 68 65 20 72 65 67 69 73 74 65 72 20 70 61 72 74 2e 0a 0a 53 20 77 69 6c 6c 20 62 65 20 6f | .the.register.part...S.will.be.o |
| 2c780 | 66 20 74 68 65 20 66 6f 72 6d 20 5c 22 5b 72 65 67 69 73 74 65 72 5d 3a 20 63 6f 6e 74 65 6e 74 | f.the.form.\"[register]:.content |
| 2c7a0 | 5c 22 2e 22 0a 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 28 69 6e 73 | \"."...(with-ivy-window.....(ins |
| 2c7c0 | 65 72 74 0a 20 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 | ert......(replace-regexp-in-stri |
| 2c7e0 | 6e 67 20 22 5c 5c 60 5c 5c 5b 2e 2a 3f 5c 5c 5d 3a 20 22 20 22 22 20 73 29 29 29 29 0a 0a 3b 3b | ng."\\`\\[.*?\\]:."."".s))))..;; |
| 2c800 | 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 27 0a 28 64 65 66 76 61 72 20 69 6d 65 6e 75 | **.`counsel-imenu'.(defvar.imenu |
| 2c820 | 2d 61 75 74 6f 2d 72 65 73 63 61 6e 29 0a 28 64 65 66 76 61 72 20 69 6d 65 6e 75 2d 61 75 74 6f | -auto-rescan).(defvar.imenu-auto |
| 2c840 | 2d 72 65 73 63 61 6e 2d 6d 61 78 6f 75 74 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f | -rescan-maxout).(declare-functio |
| 2c860 | 6e 20 69 6d 65 6e 75 2d 2d 73 75 62 61 6c 69 73 74 2d 70 20 22 69 6d 65 6e 75 22 29 0a 28 64 65 | n.imenu--subalist-p."imenu").(de |
| 2c880 | 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 6d 65 6e 75 2d 2d 6d 61 6b 65 2d 69 6e 64 65 78 | clare-function.imenu--make-index |
| 2c8a0 | 2d 61 6c 69 73 74 20 22 69 6d 65 6e 75 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | -alist."imenu")..(defun.counsel- |
| 2c8c0 | 2d 69 6d 65 6e 75 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 28 72 65 71 75 69 72 65 20 | -imenu-candidates.()...(require. |
| 2c8e0 | 27 69 6d 65 6e 75 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6d 65 6e 75 2d 61 75 74 6f 2d 72 65 73 | 'imenu)...(let*.((imenu-auto-res |
| 2c900 | 63 61 6e 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 69 6d 65 6e 75 2d 61 75 74 6f 2d 72 65 73 63 | can.t)..........(imenu-auto-resc |
| 2c920 | 61 6e 2d 6d 61 78 6f 75 74 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 | an-maxout.(if.current-prefix-arg |
| 2c940 | 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 20 | ................................ |
| 2c960 | 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 73 69 7a 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ........(buffer-size)........... |
| 2c980 | 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 69 6d 65 6e 75 | ...........................imenu |
| 2c9a0 | 2d 61 75 74 6f 2d 72 65 73 63 61 6e 2d 6d 61 78 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 | -auto-rescan-maxout))..........( |
| 2c9c0 | 69 74 65 6d 73 20 28 69 6d 65 6e 75 2d 2d 6d 61 6b 65 2d 69 6e 64 65 78 2d 61 6c 69 73 74 20 74 | items.(imenu--make-index-alist.t |
| 2c9e0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 74 65 6d 73 20 28 64 65 6c 65 74 65 20 28 61 73 73 6f | ))..........(items.(delete.(asso |
| 2ca00 | 63 20 22 2a 52 65 73 63 61 6e 2a 22 20 69 74 65 6d 73 29 20 69 74 65 6d 73 29 29 0a 20 20 20 20 | c."*Rescan*".items).items))..... |
| 2ca20 | 20 20 20 20 20 28 69 74 65 6d 73 20 28 63 6f 6e 64 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 | .....(items.(cond.((eq.major-mod |
| 2ca40 | 65 20 27 65 6d 61 63 73 2d 6c 69 73 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e.'emacs-lisp-mode)............. |
| 2ca60 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 63 61 74 65 67 6f | ...........(counsel-imenu-catego |
| 2ca80 | 72 69 7a 65 2d 66 75 6e 63 74 69 6f 6e 73 20 69 74 65 6d 73 29 29 0a 20 20 20 20 20 20 20 20 20 | rize-functions.items)).......... |
| 2caa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 | .............((and.(derived-mode |
| 2cac0 | 2d 70 20 27 70 79 74 68 6f 6e 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -p.'python-mode)................ |
| 2cae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 70 79 74 68 6f 6e 2d 69 6d | .............(fboundp.'python-im |
| 2cb00 | 65 6e 75 2d 63 72 65 61 74 65 2d 66 6c 61 74 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 | enu-create-flat-index))......... |
| 2cb20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 79 74 68 6f 6e 2d 69 6d 65 6e 75 2d 63 72 65 | ...............(python-imenu-cre |
| 2cb40 | 61 74 65 2d 66 6c 61 74 2d 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ate-flat-index))................ |
| 2cb60 | 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .......(t....................... |
| 2cb80 | 20 69 74 65 6d 73 29 29 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 67 65 | .items)))).....(counsel-imenu-ge |
| 2cba0 | 74 2d 63 61 6e 64 69 64 61 74 65 73 2d 66 72 6f 6d 20 69 74 65 6d 73 29 29 29 0a 0a 28 64 65 66 | t-candidates-from.items)))..(def |
| 2cbc0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 73 2d | un.counsel-imenu-get-candidates- |
| 2cbe0 | 66 72 6f 6d 20 28 61 6c 69 73 74 20 26 6f 70 74 69 6f 6e 61 6c 20 70 72 65 66 69 78 29 0a 20 20 | from.(alist.&optional.prefix)... |
| 2cc00 | 22 43 72 65 61 74 65 20 61 20 6c 69 73 74 20 6f 66 20 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 | "Create.a.list.of.(key...value). |
| 2cc20 | 66 72 6f 6d 20 41 4c 49 53 54 2e 0a 50 52 45 46 49 58 20 69 73 20 75 73 65 64 20 74 6f 20 63 72 | from.ALIST..PREFIX.is.used.to.cr |
| 2cc40 | 65 61 74 65 20 74 68 65 20 6b 65 79 2e 22 0a 20 20 28 63 6c 2d 6d 61 70 63 61 6e 0a 20 20 20 28 | eate.the.key."...(cl-mapcan....( |
| 2cc60 | 6c 61 6d 62 64 61 20 28 65 6c 6d 29 0a 20 20 20 20 20 28 69 66 20 28 69 6d 65 6e 75 2d 2d 73 75 | lambda.(elm)......(if.(imenu--su |
| 2cc80 | 62 61 6c 69 73 74 2d 70 20 65 6c 6d 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d | balist-p.elm)..........(counsel- |
| 2cca0 | 69 6d 65 6e 75 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 73 2d 66 72 6f 6d 0a 20 20 20 20 20 20 | imenu-get-candidates-from....... |
| 2ccc0 | 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 65 20 2e 20 76 29 20 69 6e 20 28 63 64 72 | ....(cl-loop.for.(e...v).in.(cdr |
| 2cce0 | 20 65 6c 6d 29 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | .elm).collect................(co |
| 2cd00 | 6e 73 20 65 20 28 69 66 20 28 69 6e 74 65 67 65 72 70 20 76 29 20 28 63 6f 70 79 2d 6d 61 72 6b | ns.e.(if.(integerp.v).(copy-mark |
| 2cd20 | 65 72 20 76 29 20 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 70 61 73 73 20 74 68 65 | er.v).v)))...........;;.pass.the |
| 2cd40 | 20 70 72 65 66 69 78 20 74 6f 20 6e 65 78 74 20 72 65 63 75 72 73 69 76 65 20 63 61 6c 6c 0a 20 | .prefix.to.next.recursive.call.. |
| 2cd60 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 70 72 65 66 69 78 20 28 69 66 20 70 72 65 66 | .........(concat.prefix.(if.pref |
| 2cd80 | 69 78 20 22 2e 22 29 20 28 63 61 72 20 65 6c 6d 29 29 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 | ix.".").(car.elm)))........(let. |
| 2cda0 | 28 28 6b 65 79 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ((key.(concat................... |
| 2cdc0 | 20 28 77 68 65 6e 20 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(when.prefix................... |
| 2cde0 | 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(concat...................... |
| 2ce00 | 20 28 70 72 6f 70 65 72 74 69 7a 65 20 70 72 65 66 69 78 20 27 66 61 63 65 20 27 69 76 79 2d 67 | .(propertize.prefix.'face.'ivy-g |
| 2ce20 | 72 65 70 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | rep-info)....................... |
| 2ce40 | 22 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 65 | ":."))....................(car.e |
| 2ce60 | 6c 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 6b 65 79 0a | lm))))..........(list.(cons.key. |
| 2ce80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 6b 65 79 20 28 | .....................(cons.key.( |
| 2cea0 | 69 66 20 28 6f 76 65 72 6c 61 79 70 20 28 63 64 72 20 65 6c 6d 29 29 0a 20 20 20 20 20 20 20 20 | if.(overlayp.(cdr.elm))......... |
| 2cec0 | 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 6f 76 65 72 | ...........................(over |
| 2cee0 | 6c 61 79 2d 73 74 61 72 74 20 28 63 64 72 20 65 6c 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 | lay-start.(cdr.elm))............ |
| 2cf00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 65 6c 6d 29 29 | ......................(cdr.elm)) |
| 2cf20 | 29 29 29 29 29 29 0a 20 20 20 61 6c 69 73 74 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 | ))))))....alist))..(defvar.couns |
| 2cf40 | 65 6c 2d 69 6d 65 6e 75 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d | el-imenu-map...(let.((map.(make- |
| 2cf60 | 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | sparse-keymap))).....(define-key |
| 2cf80 | 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6c 22 29 20 23 27 69 76 79 2d 63 61 6c 6c 2d 61 6e 64 2d | .map.(kbd."C-l").#'ivy-call-and- |
| 2cfa0 | 72 65 63 65 6e 74 65 72 29 0a 20 20 20 20 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | recenter).....map))..(defun.coun |
| 2cfc0 | 73 65 6c 2d 69 6d 65 6e 75 2d 63 61 74 65 67 6f 72 69 7a 65 2d 66 75 6e 63 74 69 6f 6e 73 20 28 | sel-imenu-categorize-functions.( |
| 2cfe0 | 69 74 65 6d 73 29 0a 20 20 22 43 61 74 65 67 6f 72 69 7a 65 20 61 6c 6c 20 74 68 65 20 66 75 6e | items)..."Categorize.all.the.fun |
| 2d000 | 63 74 69 6f 6e 73 20 6f 66 20 69 6d 65 6e 75 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6e 73 20 28 | ctions.of.imenu."...(let.((fns.( |
| 2d020 | 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 23 27 6c 69 73 74 70 20 69 74 65 6d 73 20 3a 6b 65 79 20 | cl-remove-if.#'listp.items.:key. |
| 2d040 | 23 27 63 64 72 29 29 29 0a 20 20 20 20 28 69 66 20 66 6e 73 0a 20 20 20 20 20 20 20 20 28 6e 63 | #'cdr))).....(if.fns.........(nc |
| 2d060 | 6f 6e 63 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 23 27 6e 6c 69 73 74 70 20 69 74 65 6d 73 | onc.(cl-remove-if.#'nlistp.items |
| 2d080 | 20 3a 6b 65 79 20 23 27 63 64 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 28 22 | .:key.#'cdr)................`((" |
| 2d0a0 | 46 75 6e 63 74 69 6f 6e 73 22 20 2c 40 66 6e 73 29 29 29 0a 20 20 20 20 20 20 69 74 65 6d 73 29 | Functions".,@fns))).......items) |
| 2d0c0 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 61 63 74 69 6f 6e 20 | ))..(defun.counsel-imenu-action. |
| 2d0e0 | 28 78 29 0a 20 20 28 69 6d 65 6e 75 20 28 63 64 72 20 78 29 29 29 0a 0a 28 64 65 66 76 61 72 20 | (x)...(imenu.(cdr.x)))..(defvar. |
| 2d100 | 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 | counsel-imenu-history.nil..."His |
| 2d120 | 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 27 2e 22 29 0a 0a 3b 3b 3b | tory.for.`counsel-imenu'.")..;;; |
| 2d140 | 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 | ###autoload.(defun.counsel-imenu |
| 2d160 | 20 28 29 0a 20 20 22 4a 75 6d 70 20 74 6f 20 61 20 62 75 66 66 65 72 20 70 6f 73 69 74 69 6f 6e | .()..."Jump.to.a.buffer.position |
| 2d180 | 20 69 6e 64 65 78 65 64 20 62 79 20 69 6d 65 6e 75 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | .indexed.by.imenu."...(interacti |
| 2d1a0 | 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 69 6d 65 6e 75 20 69 74 65 6d 73 3a 20 22 20 | ve)...(ivy-read."imenu.items:.". |
| 2d1c0 | 28 63 6f 75 6e 73 65 6c 2d 2d 69 6d 65 6e 75 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 | (counsel--imenu-candidates)..... |
| 2d1e0 | 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 | ........:preselect.(thing-at-poi |
| 2d200 | 6e 74 20 27 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 | nt.'symbol).............:require |
| 2d220 | 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 | -match.t.............:action.#'c |
| 2d240 | 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ounsel-imenu-action............. |
| 2d260 | 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 6d 61 70 0a 20 20 20 20 20 20 | :keymap.counsel-imenu-map....... |
| 2d280 | 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 2d 68 69 | ......:history.'counsel-imenu-hi |
| 2d2a0 | 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 | story.............:caller.'couns |
| 2d2c0 | 65 6c 2d 69 6d 65 6e 75 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 | el-imenu))..;;**.`counsel-list-p |
| 2d2e0 | 72 6f 63 65 73 73 65 73 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 | rocesses'.(defun.counsel-list-pr |
| 2d300 | 6f 63 65 73 73 65 73 2d 61 63 74 69 6f 6e 2d 64 65 6c 65 74 65 20 28 78 29 0a 20 20 22 44 65 6c | ocesses-action-delete.(x)..."Del |
| 2d320 | 65 74 65 20 70 72 6f 63 65 73 73 20 58 2e 22 0a 20 20 28 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 | ete.process.X."...(delete-proces |
| 2d340 | 73 20 78 29 0a 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 63 6f 6c 6c 65 63 74 69 | s.x)...(setf.(ivy-state-collecti |
| 2d360 | 6f 6e 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 76 79 2d 2d | on.ivy-last).........(setq.ivy-- |
| 2d380 | 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | all-candidates...............(de |
| 2d3a0 | 6c 65 74 65 20 78 20 69 76 79 2d 2d 61 6c 6c 2d 63 61 6e 64 69 64 61 74 65 73 29 29 29 29 0a 0a | lete.x.ivy--all-candidates)))).. |
| 2d3c0 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 73 2d 61 63 | (defun.counsel-list-processes-ac |
| 2d3e0 | 74 69 6f 6e 2d 73 77 69 74 63 68 20 28 78 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 62 75 66 | tion-switch.(x)..."Switch.to.buf |
| 2d400 | 66 65 72 20 6f 66 20 70 72 6f 63 65 73 73 20 58 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f | fer.of.process.X."...(let*.((pro |
| 2d420 | 63 20 28 67 65 74 2d 70 72 6f 63 65 73 73 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 | c.(get-process.x))..........(buf |
| 2d440 | 20 28 61 6e 64 20 70 72 6f 63 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 | .(and.proc.(process-buffer.proc) |
| 2d460 | 29 29 29 0a 20 20 20 20 28 69 66 20 62 75 66 0a 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d | ))).....(if.buf.........(switch- |
| 2d480 | 74 6f 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 50 | to-buffer.buf).......(message."P |
| 2d4a0 | 72 6f 63 65 73 73 20 25 73 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 61 20 62 75 66 66 65 72 22 | rocess.%s.doesn't.have.a.buffer" |
| 2d4c0 | 20 78 29 29 29 29 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 | .x))))..;;;###autoload.(defun.co |
| 2d4e0 | 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 73 20 28 29 0a 20 20 22 4f 66 66 65 72 | unsel-list-processes.()..."Offer |
| 2d500 | 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 6f 72 20 60 70 72 6f 63 65 73 73 2d 6c 69 73 74 27 2e 0a | .completion.for.`process-list'.. |
| 2d520 | 54 68 65 20 64 65 66 61 75 6c 74 20 61 63 74 69 6f 6e 20 64 65 6c 65 74 65 73 20 74 68 65 20 73 | The.default.action.deletes.the.s |
| 2d540 | 65 6c 65 63 74 65 64 20 70 72 6f 63 65 73 73 2e 0a 41 6e 20 65 78 74 72 61 20 61 63 74 69 6f 6e | elected.process..An.extra.action |
| 2d560 | 20 61 6c 6c 6f 77 73 20 74 6f 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 | .allows.to.switch.to.the.process |
| 2d580 | 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 69 74 | .buffer."...(interactive)...(wit |
| 2d5a0 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 28 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 | h-temp-buffer.....(list-processe |
| 2d5c0 | 73 2d 2d 72 65 66 72 65 73 68 29 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 50 72 6f 63 65 73 | s--refresh))...(ivy-read."Proces |
| 2d5e0 | 73 3a 20 22 20 28 6d 61 70 63 61 72 20 23 27 70 72 6f 63 65 73 73 2d 6e 61 6d 65 20 28 70 72 6f | s:.".(mapcar.#'process-name.(pro |
| 2d600 | 63 65 73 73 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 | cess-list)).............:require |
| 2d620 | 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 0a 20 20 20 | -match.t.............:action.... |
| 2d640 | 20 20 20 20 20 20 20 20 20 27 28 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 6f 22 20 | .........'(1...............("o". |
| 2d660 | 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 73 2d 61 63 74 69 6f 6e 2d 64 65 | counsel-list-processes-action-de |
| 2d680 | 6c 65 74 65 20 22 6b 69 6c 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 73 22 20 | lete."kill")...............("s". |
| 2d6a0 | 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 73 2d 61 63 74 69 6f 6e 2d 73 77 | counsel-list-processes-action-sw |
| 2d6c0 | 69 74 63 68 20 22 73 77 69 74 63 68 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c | itch."switch")).............:cal |
| 2d6e0 | 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6c 69 73 74 2d 70 72 6f 63 65 73 73 65 73 29 29 0a 0a 3b | ler.'counsel-list-processes))..; |
| 2d700 | 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 61 63 65 2d 6c 69 6e 6b 27 0a 28 64 65 66 75 6e 20 63 6f | ;**.`counsel-ace-link'.(defun.co |
| 2d720 | 75 6e 73 65 6c 2d 61 63 65 2d 6c 69 6e 6b 20 28 29 0a 20 20 22 55 73 65 20 49 76 79 20 63 6f 6d | unsel-ace-link.()..."Use.Ivy.com |
| 2d740 | 70 6c 65 74 69 6f 6e 20 66 6f 72 20 60 61 63 65 2d 6c 69 6e 6b 27 2e 22 0a 20 20 28 69 6e 74 65 | pletion.for.`ace-link'."...(inte |
| 2d760 | 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 63 6f 6c 6c 65 63 74 69 6f 6e 20 61 63 74 69 | ractive)...(let.(collection.acti |
| 2d780 | 6f 6e 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 49 | on).....(cond.((eq.major-mode.'I |
| 2d7a0 | 6e 66 6f 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6c 6c 65 | nfo-mode)............(setq.colle |
| 2d7c0 | 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 69 6e 66 6f 2d 63 6f 6c 6c 65 63 74 29 0a 20 | ction.'ace-link--info-collect).. |
| 2d7e0 | 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b | ..........(setq.action.'ace-link |
| 2d800 | 2d 2d 69 6e 66 6f 2d 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6d | --info-action))...........((eq.m |
| 2d820 | 61 6a 6f 72 2d 6d 6f 64 65 20 27 68 65 6c 70 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ajor-mode.'help-mode)........... |
| 2d840 | 20 28 73 65 74 71 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 68 65 6c | .(setq.collection.'ace-link--hel |
| 2d860 | 70 2d 63 6f 6c 6c 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 63 74 69 | p-collect)............(setq.acti |
| 2d880 | 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 68 65 6c 70 2d 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 | on.'ace-link--help-action))..... |
| 2d8a0 | 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 77 6f 6d 61 6e 2d 6d 6f 64 | ......((eq.major-mode.'woman-mod |
| 2d8c0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 27 | e)............(setq.collection.' |
| 2d8e0 | 61 63 65 2d 6c 69 6e 6b 2d 2d 77 6f 6d 61 6e 2d 63 6f 6c 6c 65 63 74 29 0a 20 20 20 20 20 20 20 | ace-link--woman-collect)........ |
| 2d900 | 20 20 20 20 28 73 65 74 71 20 61 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 77 6f 6d 61 | ....(setq.action.'ace-link--woma |
| 2d920 | 6e 2d 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a 6f 72 2d | n-action))...........((eq.major- |
| 2d940 | 6d 6f 64 65 20 27 65 77 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 | mode.'eww-mode)............(setq |
| 2d960 | 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 65 77 77 2d 63 6f 6c 6c 65 | .collection.'ace-link--eww-colle |
| 2d980 | 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 63 74 69 6f 6e 20 27 61 63 65 | ct)............(setq.action.'ace |
| 2d9a0 | 2d 6c 69 6e 6b 2d 2d 65 77 77 2d 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 | -link--eww-action))...........(( |
| 2d9c0 | 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 6f 64 65 29 | eq.major-mode.'compilation-mode) |
| 2d9e0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 27 61 63 | ............(setq.collection.'ac |
| 2da00 | 65 2d 6c 69 6e 6b 2d 2d 65 77 77 2d 63 6f 6c 6c 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 | e-link--eww-collect)............ |
| 2da20 | 28 73 65 74 71 20 61 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 63 6f 6d 70 69 6c 61 74 | (setq.action.'ace-link--compilat |
| 2da40 | 69 6f 6e 2d 61 63 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 6d 61 6a 6f | ion-action))...........((eq.majo |
| 2da60 | 72 2d 6d 6f 64 65 20 27 6f 72 67 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 | r-mode.'org-mode)............(se |
| 2da80 | 74 71 20 63 6f 6c 6c 65 63 74 69 6f 6e 20 27 61 63 65 2d 6c 69 6e 6b 2d 2d 6f 72 67 2d 63 6f 6c | tq.collection.'ace-link--org-col |
| 2daa0 | 6c 65 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 61 63 74 69 6f 6e 20 27 61 | lect)............(setq.action.'a |
| 2dac0 | 63 65 2d 6c 69 6e 6b 2d 2d 6f 72 67 2d 61 63 74 69 6f 6e 29 29 29 0a 20 20 20 20 28 69 66 20 28 | ce-link--org-action))).....(if.( |
| 2dae0 | 6e 75 6c 6c 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 | null.collection).........(error. |
| 2db00 | 22 25 53 20 69 73 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 22 20 6d 61 6a 6f 72 2d 6d 6f 64 65 | "%S.is.not.supported".major-mode |
| 2db20 | 29 0a 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 41 63 65 2d 4c 69 6e 6b 3a 20 22 20 28 | ).......(ivy-read."Ace-Link:.".( |
| 2db40 | 66 75 6e 63 61 6c 6c 20 63 6f 6c 6c 65 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | funcall.collection)............. |
| 2db60 | 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 66 75 6e 63 61 6c 6c | ....:action.(lambda.(x).(funcall |
| 2db80 | 20 61 63 74 69 6f 6e 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .action.(cdr.x)))............... |
| 2dba0 | 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:require-match.t.............. |
| 2dbc0 | 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 61 63 65 2d 6c 69 6e 6b 29 29 29 29 | ...:caller.'counsel-ace-link)))) |
| 2dbe0 | 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f | ..;;**.`counsel-minibuffer-histo |
| 2dc00 | 72 79 27 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 75 6e 73 65 | ry'.;;;###autoload.(defun.counse |
| 2dc20 | 6c 2d 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 42 72 6f 77 73 | l-minibuffer-history.()..."Brows |
| 2dc40 | 65 20 6d 69 6e 69 62 75 66 66 65 72 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 | e.minibuffer.history."...(intera |
| 2dc60 | 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 61 62 6c 65 2d 72 65 63 75 72 73 69 76 65 | ctive)...(let.((enable-recursive |
| 2dc80 | 2d 6d 69 6e 69 62 75 66 66 65 72 73 20 74 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 | -minibuffers.t)).....(ivy-read." |
| 2dca0 | 48 69 73 74 6f 72 79 3a 20 22 20 28 69 76 79 2d 68 69 73 74 6f 72 79 2d 63 6f 6e 74 65 6e 74 73 | History:.".(ivy-history-contents |
| 2dcc0 | 20 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 2d 76 61 72 69 61 62 6c 65 29 0a 20 20 | .minibuffer-history-variable)... |
| 2dce0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 69 76 79 2d 72 65 76 65 72 73 65 2d | ............:keymap.ivy-reverse- |
| 2dd00 | 69 2d 73 65 61 72 63 68 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 | i-search-map...............:acti |
| 2dd20 | 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on.(lambda.(x).................. |
| 2dd40 | 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6e 74 65 6e | .......(delete-minibuffer-conten |
| 2dd60 | 74 73 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 28 69 6e 73 | ts).........................(ins |
| 2dd80 | 65 72 74 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 28 63 61 | ert.(substring-no-properties.(ca |
| 2dda0 | 72 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 | r.x))))...............:caller.'c |
| 2ddc0 | 6f 75 6e 73 65 6c 2d 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 29 29 29 0a 0a 3b 3b | ounsel-minibuffer-history)))..;; |
| 2dde0 | 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 65 73 68 2d 68 69 73 74 6f 72 79 27 0a 28 64 65 66 76 61 72 | **.`counsel-esh-history'.(defvar |
| 2de00 | 20 63 6f 6d 69 6e 74 2d 69 6e 70 75 74 2d 72 69 6e 67 2d 69 6e 64 65 78 29 0a 28 64 65 66 76 61 | .comint-input-ring-index).(defva |
| 2de20 | 72 20 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 29 0a 28 64 65 66 76 61 72 20 | r.eshell-history-index).(defvar. |
| 2de40 | 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 2d 70 6f 73 69 74 69 6f | slime-repl-input-history-positio |
| 2de60 | 6e 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 65 73 68 2d 2d 69 6e 64 65 78 2d 6c | n)..(defvar.counsel-esh--index-l |
| 2de80 | 61 73 74 20 6e 69 6c 0a 20 20 22 49 6e 64 65 78 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 | ast.nil..."Index.corresponding.t |
| 2dea0 | 6f 20 6c 61 73 74 20 73 65 6c 65 63 74 69 6f 6e 20 77 69 74 68 20 60 63 6f 75 6e 73 65 6c 2d 65 | o.last.selection.with.`counsel-e |
| 2dec0 | 73 68 2d 68 69 73 74 6f 72 79 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d | sh-history'.")..(defvar.counsel- |
| 2dee0 | 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 2d 69 6e 64 65 78 2d 6c 61 73 74 20 6e 69 6c 0a 20 20 | shell-history--index-last.nil... |
| 2df00 | 22 49 6e 64 65 78 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 74 6f 20 6c 61 73 74 20 73 65 6c | "Index.corresponding.to.last.sel |
| 2df20 | 65 63 74 69 6f 6e 20 77 69 74 68 20 60 63 6f 75 6e 73 65 6c 2d 73 68 65 6c 6c 2d 68 69 73 74 6f | ection.with.`counsel-shell-histo |
| 2df40 | 72 79 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 65 2d 68 | ry'.")..(defun.counsel--browse-h |
| 2df60 | 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 20 28 70 61 69 72 29 0a 20 20 28 6c 65 74 20 28 28 73 6e | istory-action.(pair)...(let.((sn |
| 2df80 | 64 20 28 63 64 72 20 70 61 69 72 29 29 29 0a 20 20 20 20 28 63 6c 2d 63 61 73 65 20 28 69 76 79 | d.(cdr.pair))).....(cl-case.(ivy |
| 2dfa0 | 2d 73 74 61 74 65 2d 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 20 20 28 63 | -state-caller.ivy-last).......(c |
| 2dfc0 | 6f 75 6e 73 65 6c 2d 65 73 68 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 | ounsel-esh-history........(setq. |
| 2dfe0 | 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 20 73 6e 64 0a 20 20 20 20 20 20 20 | eshell-history-index.snd........ |
| 2e000 | 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 65 73 68 2d 2d 69 6e 64 65 78 2d 6c 61 73 74 20 73 6e | ......counsel-esh--index-last.sn |
| 2e020 | 64 29 29 0a 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 | d)).......(counsel-shell-history |
| 2e040 | 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 69 6e 74 2d 69 6e 70 75 74 2d 72 69 6e 67 2d | ........(setq.comint-input-ring- |
| 2e060 | 69 6e 64 65 78 20 73 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 73 | index.snd..............counsel-s |
| 2e080 | 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 2d 69 6e 64 65 78 2d 6c 61 73 74 20 73 6e 64 29 29 0a 20 | hell-history--index-last.snd)).. |
| 2e0a0 | 20 20 20 20 20 3b 3b 20 4c 65 61 76 65 20 74 68 69 73 20 61 73 20 61 20 6e 6f 2d 6f 70 2e 20 49 | .....;;.Leave.this.as.a.no-op..I |
| 2e0c0 | 66 20 73 6f 6d 65 6f 6e 65 20 64 65 63 69 64 65 73 20 74 6f 20 70 61 74 63 68 0a 20 20 20 20 20 | f.someone.decides.to.patch...... |
| 2e0e0 | 20 3b 3b 20 60 73 6c 69 6d 65 2d 72 65 70 6c 2d 70 72 65 76 69 6f 75 73 2d 69 6e 70 75 74 27 20 | .;;.`slime-repl-previous-input'. |
| 2e100 | 6f 72 20 6f 6e 65 20 6f 66 20 69 74 73 20 75 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e 73 2c | or.one.of.its.utility.functions, |
| 2e120 | 0a 20 20 20 20 20 20 3b 3b 20 6f 72 20 74 6f 20 61 64 64 20 68 69 73 74 6f 72 79 2d 72 65 70 6c | .......;;.or.to.add.history-repl |
| 2e140 | 61 79 20 74 6f 20 53 6c 69 6d 65 2c 20 74 68 65 6e 20 74 68 69 73 20 73 65 63 74 69 6f 6e 20 63 | ay.to.Slime,.then.this.section.c |
| 2e160 | 61 6e 20 62 65 0a 20 20 20 20 20 20 3b 3b 20 75 70 64 61 74 65 64 20 74 6f 20 61 64 64 20 74 68 | an.be.......;;.updated.to.add.th |
| 2e180 | 65 20 72 65 6c 65 76 61 6e 74 20 73 75 70 70 6f 72 74 20 66 6f 72 20 74 68 6f 73 65 20 63 6f 6d | e.relevant.support.for.those.com |
| 2e1a0 | 6d 61 6e 64 73 2e 0a 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 73 6c 69 6d 65 2d 72 65 70 6c | mands........(counsel-slime-repl |
| 2e1c0 | 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 20 20 28 69 76 79 2d 63 | -history........nil)).....(ivy-c |
| 2e1e0 | 6f 6d 70 6c 65 74 69 6f 6e 2d 69 6e 2d 72 65 67 69 6f 6e 2d 61 63 74 69 6f 6e 20 28 63 61 72 20 | ompletion-in-region-action.(car. |
| 2e200 | 70 61 69 72 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f | pair))))..(cl-defun.counsel--bro |
| 2e220 | 77 73 65 2d 68 69 73 74 6f 72 79 20 28 72 69 6e 67 20 26 6b 65 79 20 63 61 6c 6c 65 72 29 0a 20 | wse-history.(ring.&key.caller).. |
| 2e240 | 20 22 55 73 65 20 49 76 79 20 74 6f 20 6e 61 76 69 67 61 74 65 20 74 68 72 6f 75 67 68 20 52 49 | ."Use.Ivy.to.navigate.through.RI |
| 2e260 | 4e 47 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 6f 63 20 28 67 65 74 2d 62 75 66 66 65 72 2d | NG."...(let*.((proc.(get-buffer- |
| 2e280 | 70 72 6f 63 65 73 73 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 | process.(current-buffer)))...... |
| 2e2a0 | 20 20 20 20 28 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 20 | ....(end.(point))..........(beg. |
| 2e2c0 | 28 69 66 20 70 72 6f 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 | (if.proc...................(min. |
| 2e2e0 | 28 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 70 72 6f 63 29 20 65 6e 64 29 0a 20 20 20 20 20 20 20 | (process-mark.proc).end)........ |
| 2e300 | 20 20 20 20 20 20 20 20 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 6e 70 75 74 20 28 | .........end))..........(input.( |
| 2e320 | 77 68 65 6e 20 28 3c 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | when.(<.beg.end)................ |
| 2e340 | 20 20 20 28 63 6f 6e 63 61 74 20 22 5e 22 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 | ...(concat."^".(buffer-substring |
| 2e360 | 20 62 65 67 20 65 6e 64 29 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 69 76 79 2d 63 6f 6d 70 | .beg.end))))).....(setq.ivy-comp |
| 2e380 | 6c 65 74 69 6f 6e 2d 62 65 67 20 62 65 67 29 0a 20 20 20 20 28 73 65 74 71 20 69 76 79 2d 63 6f | letion-beg.beg).....(setq.ivy-co |
| 2e3a0 | 6d 70 6c 65 74 69 6f 6e 2d 65 6e 64 20 65 6e 64 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 | mpletion-end.end).....(ivy-read. |
| 2e3c0 | 22 48 69 73 74 6f 72 79 3a 20 22 20 28 69 76 79 2d 68 69 73 74 6f 72 79 2d 63 6f 6e 74 65 6e 74 | "History:.".(ivy-history-content |
| 2e3e0 | 73 20 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 20 69 76 | s.ring)...............:keymap.iv |
| 2e400 | 79 2d 72 65 76 65 72 73 65 2d 69 2d 73 65 61 72 63 68 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 | y-reverse-i-search-map.......... |
| 2e420 | 20 20 20 20 20 3a 69 6e 69 74 69 61 6c 2d 69 6e 70 75 74 20 69 6e 70 75 74 0a 20 20 20 20 20 20 | .....:initial-input.input....... |
| 2e440 | 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 | ........:action.#'counsel--brows |
| 2e460 | 65 2d 68 69 73 74 6f 72 79 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | e-history-action...............: |
| 2e480 | 63 61 6c 6c 65 72 20 63 61 6c 6c 65 72 29 29 29 0a 0a 28 64 65 66 76 61 72 20 65 73 68 65 6c 6c | caller.caller)))..(defvar.eshell |
| 2e4a0 | 2d 68 69 73 74 6f 72 79 2d 72 69 6e 67 29 0a 28 64 65 66 76 61 72 20 65 73 68 65 6c 6c 2d 6d 61 | -history-ring).(defvar.eshell-ma |
| 2e4c0 | 74 63 68 69 6e 67 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a | tching-input-from-input-string). |
| 2e4e0 | 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 75 6e 73 65 6c 2d 65 | .;;;###autoload.(defun.counsel-e |
| 2e500 | 73 68 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 42 72 6f 77 73 65 20 45 73 68 65 6c 6c 20 68 | sh-history.()..."Browse.Eshell.h |
| 2e520 | 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 | istory."...(interactive)...(requ |
| 2e540 | 69 72 65 20 27 65 6d 2d 68 69 73 74 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 65 | ire.'em-hist)...(counsel--browse |
| 2e560 | 2d 68 69 73 74 6f 72 79 20 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 72 69 6e 67 0a 20 20 20 | -history.eshell-history-ring.... |
| 2e580 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 | ........................:caller. |
| 2e5a0 | 23 27 63 6f 75 6e 73 65 6c 2d 65 73 68 2d 68 69 73 74 6f 72 79 29 29 0a 0a 28 61 64 76 69 63 65 | #'counsel-esh-history))..(advice |
| 2e5c0 | 2d 61 64 64 20 27 65 73 68 65 6c 6c 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 | -add.'eshell-previous-matching-i |
| 2e5e0 | 6e 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 65 66 6f 72 65 20 23 27 63 6f 75 6e 73 | nput.............:before.#'couns |
| 2e600 | 65 6c 2d 2d 73 65 74 2d 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 29 0a 28 64 | el--set-eshell-history-index).(d |
| 2e620 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 74 2d 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 | efun.counsel--set-eshell-history |
| 2e640 | 2d 69 6e 64 65 78 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 52 65 61 73 73 69 67 6e 20 60 65 73 | -index.(&rest._)..."Reassign.`es |
| 2e660 | 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 27 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 | hell-history-index'."...(when.(a |
| 2e680 | 6e 64 20 28 6d 65 6d 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 28 69 76 79 2d 61 6c 74 2d | nd.(memq.last-command.'(ivy-alt- |
| 2e6a0 | 64 6f 6e 65 20 69 76 79 2d 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 | done.ivy-done))..............(eq |
| 2e6c0 | 75 61 6c 20 28 69 76 79 2d 73 74 61 74 65 2d 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 20 | ual.(ivy-state-caller.ivy-last). |
| 2e6e0 | 27 63 6f 75 6e 73 65 6c 2d 65 73 68 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 28 73 65 74 71 | 'counsel-esh-history)).....(setq |
| 2e700 | 20 65 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 20 63 6f 75 6e 73 65 6c 2d 65 73 | .eshell-history-index.counsel-es |
| 2e720 | 68 2d 2d 69 6e 64 65 78 2d 6c 61 73 74 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 6d 69 6e 74 | h--index-last)))..(defvar.comint |
| 2e740 | 2d 69 6e 70 75 74 2d 72 69 6e 67 29 0a 28 64 65 66 76 61 72 20 63 6f 6d 69 6e 74 2d 6d 61 74 63 | -input-ring).(defvar.comint-matc |
| 2e760 | 68 69 6e 67 2d 69 6e 70 75 74 2d 66 72 6f 6d 2d 69 6e 70 75 74 2d 73 74 72 69 6e 67 29 0a 0a 3b | hing-input-from-input-string)..; |
| 2e780 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 68 65 | ;;###autoload.(defun.counsel-she |
| 2e7a0 | 6c 6c 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 42 72 6f 77 73 65 20 73 68 65 6c 6c 20 68 69 | ll-history.()..."Browse.shell.hi |
| 2e7c0 | 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 | story."...(interactive)...(requi |
| 2e7e0 | 72 65 20 27 63 6f 6d 69 6e 74 29 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 65 2d 68 | re.'comint)...(counsel--browse-h |
| 2e800 | 69 73 74 6f 72 79 20 63 6f 6d 69 6e 74 2d 69 6e 70 75 74 2d 72 69 6e 67 0a 20 20 20 20 20 20 20 | istory.comint-input-ring........ |
| 2e820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 23 27 63 6f | ....................:caller.#'co |
| 2e840 | 75 6e 73 65 6c 2d 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 29 29 0a 0a 28 61 64 76 69 63 65 2d 61 | unsel-shell-history))..(advice-a |
| 2e860 | 64 64 20 27 63 6f 6d 69 6e 74 2d 70 72 65 76 69 6f 75 73 2d 6d 61 74 63 68 69 6e 67 2d 69 6e 70 | dd.'comint-previous-matching-inp |
| 2e880 | 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 62 65 66 6f 72 65 20 23 27 63 6f 75 6e 73 65 6c | ut.............:before.#'counsel |
| 2e8a0 | 2d 2d 73 65 74 2d 63 6f 6d 69 6e 74 2d 68 69 73 74 6f 72 79 2d 69 6e 64 65 78 29 0a 28 64 65 66 | --set-comint-history-index).(def |
| 2e8c0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 74 2d 63 6f 6d 69 6e 74 2d 68 69 73 74 6f 72 79 2d 69 | un.counsel--set-comint-history-i |
| 2e8e0 | 6e 64 65 78 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 52 65 61 73 73 69 67 6e 20 60 63 6f 6d 69 | ndex.(&rest._)..."Reassign.`comi |
| 2e900 | 6e 74 2d 69 6e 70 75 74 2d 72 69 6e 67 2d 69 6e 64 65 78 27 2e 22 0a 20 20 28 77 68 65 6e 20 28 | nt-input-ring-index'."...(when.( |
| 2e920 | 61 6e 64 20 28 6d 65 6d 71 20 6c 61 73 74 2d 63 6f 6d 6d 61 6e 64 20 27 28 69 76 79 2d 61 6c 74 | and.(memq.last-command.'(ivy-alt |
| 2e940 | 2d 64 6f 6e 65 20 69 76 79 2d 64 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 | -done.ivy-done))..............(e |
| 2e960 | 71 75 61 6c 20 28 69 76 79 2d 73 74 61 74 65 2d 63 61 6c 6c 65 72 20 69 76 79 2d 6c 61 73 74 29 | qual.(ivy-state-caller.ivy-last) |
| 2e980 | 20 27 63 6f 75 6e 73 65 6c 2d 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 28 73 | .'counsel-shell-history)).....(s |
| 2e9a0 | 65 74 71 20 63 6f 6d 69 6e 74 2d 69 6e 70 75 74 2d 72 69 6e 67 2d 69 6e 64 65 78 20 63 6f 75 6e | etq.comint-input-ring-index.coun |
| 2e9c0 | 73 65 6c 2d 73 68 65 6c 6c 2d 68 69 73 74 6f 72 79 2d 2d 69 6e 64 65 78 2d 6c 61 73 74 29 29 29 | sel-shell-history--index-last))) |
| 2e9e0 | 0a 0a 28 64 65 66 76 61 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f | ..(defvar.slime-repl-input-histo |
| 2ea00 | 72 79 29 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 75 6e 73 | ry)..;;;###autoload.(defun.couns |
| 2ea20 | 65 6c 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 42 72 6f 77 | el-slime-repl-history.()..."Brow |
| 2ea40 | 73 65 20 53 6c 69 6d 65 20 52 45 50 4c 20 68 69 73 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 | se.Slime.REPL.history."...(inter |
| 2ea60 | 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 6c 69 6d 65 2d 72 65 70 6c 29 0a | active)...(require.'slime-repl). |
| 2ea80 | 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 65 2d 68 69 73 74 6f 72 79 20 73 6c 69 6d 65 | ..(counsel--browse-history.slime |
| 2eaa0 | 2d 72 65 70 6c 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -repl-input-history............. |
| 2eac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 23 27 63 6f 75 6e 73 65 6c | ...............:caller.#'counsel |
| 2eae0 | 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 29 29 0a 0a 3b 3b 20 54 4f 44 4f 3a 20 | -slime-repl-history))..;;.TODO:. |
| 2eb00 | 61 64 64 20 61 64 76 69 63 65 20 66 6f 72 20 73 6c 69 6d 65 2d 72 65 70 6c 2d 69 6e 70 75 74 2d | add.advice.for.slime-repl-input- |
| 2eb20 | 70 72 65 76 69 6f 75 73 2f 6e 65 78 74 20 74 6f 20 70 72 6f 70 65 72 6c 79 0a 3b 3b 20 72 65 61 | previous/next.to.properly.;;.rea |
| 2eb40 | 73 73 69 67 6e 20 74 68 65 20 72 69 6e 67 20 69 6e 64 65 78 20 61 6e 64 20 6d 61 74 63 68 20 73 | ssign.the.ring.index.and.match.s |
| 2eb60 | 74 72 69 6e 67 2e 20 20 54 68 69 73 20 72 65 71 75 69 72 65 73 20 61 20 63 61 73 65 20 66 6f 72 | tring...This.requires.a.case.for |
| 2eb80 | 0a 3b 3b 20 60 63 6f 75 6e 73 65 6c 2d 73 6c 69 6d 65 2d 72 65 70 6c 2d 68 69 73 74 6f 72 79 27 | .;;.`counsel-slime-repl-history' |
| 2eba0 | 20 77 69 74 68 69 6e 0a 3b 3b 20 60 63 6f 75 6e 73 65 6c 2d 2d 62 72 6f 77 73 65 2d 68 69 73 74 | .within.;;.`counsel--browse-hist |
| 2ebc0 | 6f 72 79 2d 61 63 74 69 6f 6e 27 2e 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 68 79 64 72 | ory-action'...;;**.`counsel-hydr |
| 2ebe0 | 61 2d 68 65 61 64 73 27 0a 28 64 65 66 76 61 72 20 68 79 64 72 61 2d 63 75 72 72 2d 62 6f 64 79 | a-heads'.(defvar.hydra-curr-body |
| 2ec00 | 2d 66 6e 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 68 79 64 72 61 2d 6b 65 79 | -fn).(declare-function.hydra-key |
| 2ec20 | 62 6f 61 72 64 2d 71 75 69 74 20 22 65 78 74 3a 68 79 64 72 61 22 29 0a 0a 3b 3b 3b 23 23 23 61 | board-quit."ext:hydra")..;;;###a |
| 2ec40 | 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 68 79 64 72 61 2d 68 65 61 | utoload.(defun.counsel-hydra-hea |
| 2ec60 | 64 73 20 28 29 0a 20 20 22 43 61 6c 6c 20 61 20 68 65 61 64 20 6f 66 20 74 68 65 20 63 75 72 72 | ds.()..."Call.a.head.of.the.curr |
| 2ec80 | 65 6e 74 2f 6c 61 73 74 20 68 79 64 72 61 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 | ent/last.hydra."...(interactive) |
| 2eca0 | 0a 20 20 28 6c 65 74 2a 20 28 28 62 61 73 65 20 28 73 75 62 73 74 72 69 6e 67 0a 20 20 20 20 20 | ...(let*.((base.(substring...... |
| 2ecc0 | 20 20 20 20 20 20 20 20 20 20 20 28 70 72 69 6e 31 2d 74 6f 2d 73 74 72 69 6e 67 20 68 79 64 72 | ...........(prin1-to-string.hydr |
| 2ece0 | 61 2d 63 75 72 72 2d 62 6f 64 79 2d 66 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | a-curr-body-fn)................. |
| 2ed00 | 30 20 2d 34 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 73 20 28 73 79 6d 62 6f 6c 2d 76 | 0.-4))..........(heads.(symbol-v |
| 2ed20 | 61 6c 75 65 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 62 61 73 65 20 22 68 65 61 64 73 | alue.(intern.(concat.base."heads |
| 2ed40 | 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 65 79 6d 61 70 20 28 73 79 6d 62 6f 6c 2d 76 | "))))..........(keymap.(symbol-v |
| 2ed60 | 61 6c 75 65 20 28 69 6e 74 65 72 6e 20 28 63 6f 6e 63 61 74 20 62 61 73 65 20 22 6b 65 79 6d 61 | alue.(intern.(concat.base."keyma |
| 2ed80 | 70 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 61 64 2d 6e 61 6d 65 73 0a 20 20 20 20 | p"))))..........(head-names..... |
| 2eda0 | 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 | ......(mapcar.(lambda.(x)....... |
| 2edc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ..............(cons............. |
| 2ede0 | 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 74 68 20 32 20 78 29 0a 20 20 20 20 20 20 20 20 20 | .........(if.(nth.2.x).......... |
| 2ee00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5b 25 73 5d 20 25 53 | ................(format."[%s].%S |
| 2ee20 | 20 28 25 73 29 22 20 28 6e 74 68 20 30 20 78 29 20 28 6e 74 68 20 31 20 78 29 20 28 6e 74 68 20 | .(%s)".(nth.0.x).(nth.1.x).(nth. |
| 2ee40 | 32 20 78 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 66 6f | 2.x))........................(fo |
| 2ee60 | 72 6d 61 74 20 22 5b 25 73 5d 20 25 53 22 20 28 6e 74 68 20 30 20 78 29 20 28 6e 74 68 20 31 20 | rmat."[%s].%S".(nth.0.x).(nth.1. |
| 2ee80 | 78 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 28 6c 6f 6f 6b 75 | x)))......................(looku |
| 2eea0 | 70 2d 6b 65 79 20 6b 65 79 6d 61 70 20 28 6b 62 64 20 28 6e 74 68 20 30 20 78 29 29 29 29 29 0a | p-key.keymap.(kbd.(nth.0.x))))). |
| 2eec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 65 61 64 73 29 29 29 0a 20 20 20 20 28 | ..................heads))).....( |
| 2eee0 | 69 76 79 2d 72 65 61 64 20 22 68 65 61 64 3a 20 22 20 68 65 61 64 2d 6e 61 6d 65 73 0a 20 20 20 | ivy-read."head:.".head-names.... |
| 2ef00 | 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 | ...........:action.(lambda.(x).( |
| 2ef20 | 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 28 63 64 72 20 78 29 29 29 29 0a 20 20 | call-interactively.(cdr.x))))... |
| 2ef40 | 20 20 28 68 79 64 72 61 2d 6b 65 79 62 6f 61 72 64 2d 71 75 69 74 29 29 29 0a 3b 3b 2a 2a 20 60 | ..(hydra-keyboard-quit))).;;**.` |
| 2ef60 | 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 | counsel-semantic'.(declare-funct |
| 2ef80 | 69 6f 6e 20 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 73 74 61 72 74 20 22 73 65 6d 61 6e 74 69 63 | ion.semantic-tag-start."semantic |
| 2efa0 | 2f 74 61 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6d 61 6e 74 69 | /tag").(declare-function.semanti |
| 2efc0 | 63 2d 74 61 67 2d 63 6c 61 73 73 20 22 73 65 6d 61 6e 74 69 63 2f 74 61 67 22 29 0a 28 64 65 63 | c-tag-class."semantic/tag").(dec |
| 2efe0 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 6e 61 6d 65 20 | lare-function.semantic-tag-name. |
| 2f000 | 22 73 65 6d 61 6e 74 69 63 2f 74 61 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f | "semantic/tag").(declare-functio |
| 2f020 | 6e 20 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 70 75 74 2d 61 74 74 72 69 62 75 74 65 20 22 73 65 | n.semantic-tag-put-attribute."se |
| 2f040 | 6d 61 6e 74 69 63 2f 74 61 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 | mantic/tag").(declare-function.s |
| 2f060 | 65 6d 61 6e 74 69 63 2d 74 61 67 2d 67 65 74 2d 61 74 74 72 69 62 75 74 65 20 22 73 65 6d 61 6e | emantic-tag-get-attribute."seman |
| 2f080 | 74 69 63 2f 74 61 67 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6d 61 | tic/tag").(declare-function.sema |
| 2f0a0 | 6e 74 69 63 2d 66 65 74 63 68 2d 74 61 67 73 20 22 73 65 6d 61 6e 74 69 63 22 29 0a 28 64 65 63 | ntic-fetch-tags."semantic").(dec |
| 2f0c0 | 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6d 61 6e 74 69 63 2d 66 6f 72 6d 61 74 2d 74 61 | lare-function.semantic-format-ta |
| 2f0e0 | 67 2d 73 75 6d 6d 61 72 69 7a 65 20 22 73 65 6d 61 6e 74 69 63 2f 66 6f 72 6d 61 74 22 29 0a 28 | g-summarize."semantic/format").( |
| 2f100 | 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6d 61 6e 74 69 63 2d 61 63 74 69 76 65 | declare-function.semantic-active |
| 2f120 | 2d 70 20 22 73 65 6d 61 6e 74 69 63 2f 66 77 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | -p."semantic/fw")..(defun.counse |
| 2f140 | 6c 2d 73 65 6d 61 6e 74 69 63 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 47 6f 74 20 74 6f 20 | l-semantic-action.(x)..."Got.to. |
| 2f160 | 73 65 6d 61 6e 74 69 63 20 54 41 47 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 73 65 6d | semantic.TAG."...(goto-char.(sem |
| 2f180 | 61 6e 74 69 63 2d 74 61 67 2d 73 74 61 72 74 20 28 63 64 72 20 78 29 29 29 29 0a 0a 28 64 65 66 | antic-tag-start.(cdr.x))))..(def |
| 2f1a0 | 76 61 72 20 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 68 69 73 74 6f 72 79 20 6e 69 6c | var.counsel-semantic-history.nil |
| 2f1c0 | 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 | ..."History.for.`counsel-semanti |
| 2f1e0 | 63 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 66 | c'.")..(defun.counsel-semantic-f |
| 2f200 | 6f 72 6d 61 74 2d 74 61 67 20 28 74 61 67 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 70 72 65 74 | ormat-tag.(tag)..."Return.a.pret |
| 2f220 | 74 79 20 73 74 72 69 6e 67 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 20 6f 66 20 54 41 47 2e | ty.string.representation.of.TAG. |
| 2f240 | 22 0a 20 20 28 6c 65 74 20 28 28 64 65 70 74 68 20 28 6f 72 20 28 73 65 6d 61 6e 74 69 63 2d 74 | "...(let.((depth.(or.(semantic-t |
| 2f260 | 61 67 2d 67 65 74 2d 61 74 74 72 69 62 75 74 65 20 74 61 67 20 3a 64 65 70 74 68 29 20 30 29 29 | ag-get-attribute.tag.:depth).0)) |
| 2f280 | 0a 20 20 20 20 20 20 20 20 28 70 61 72 65 6e 74 20 28 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 67 | .........(parent.(semantic-tag-g |
| 2f2a0 | 65 74 2d 61 74 74 72 69 62 75 74 65 20 74 61 67 20 3a 70 61 72 65 6e 74 29 29 29 0a 20 20 20 20 | et-attribute.tag.:parent)))..... |
| 2f2c0 | 28 63 6f 6e 63 61 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2a 20 64 65 70 74 68 20 32 29 | (concat.(make-string.(*.depth.2) |
| 2f2e0 | 20 3f 5c 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 61 72 65 6e 74 0a 20 20 20 | .?\.).............(if.parent.... |
| 2f300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 28 22 20 70 61 72 65 6e 74 20 | .............(concat."(".parent. |
| 2f320 | 22 29 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 20 20 20 20 20 | ").")..............."")......... |
| 2f340 | 20 20 20 20 28 73 65 6d 61 6e 74 69 63 2d 66 6f 72 6d 61 74 2d 74 61 67 2d 73 75 6d 6d 61 72 69 | ....(semantic-format-tag-summari |
| 2f360 | 7a 65 20 74 61 67 20 6e 69 6c 20 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | ze.tag.nil.t))))..(defun.counsel |
| 2f380 | 2d 66 6c 61 74 74 65 6e 2d 66 6f 72 65 73 74 20 28 66 75 6e 63 20 74 72 65 65 70 20 66 6f 72 65 | -flatten-forest.(func.treep.fore |
| 2f3a0 | 73 74 29 0a 20 20 22 55 73 65 20 46 55 4e 43 20 61 6e 64 20 54 52 45 45 50 20 74 6f 20 66 6c 61 | st)..."Use.FUNC.and.TREEP.to.fla |
| 2f3c0 | 74 74 65 6e 20 46 4f 52 45 53 54 2e 0a 46 55 4e 43 20 69 73 20 61 70 70 6c 69 65 64 20 74 6f 20 | tten.FOREST..FUNC.is.applied.to. |
| 2f3e0 | 65 61 63 68 20 6e 6f 64 65 2e 0a 54 52 45 45 50 20 69 73 20 75 73 65 64 20 74 6f 20 65 78 70 61 | each.node..TREEP.is.used.to.expa |
| 2f400 | 6e 64 20 69 6e 74 65 72 6e 61 6c 20 6e 6f 64 65 73 2e 22 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 | nd.internal.nodes."...(cl-labels |
| 2f420 | 20 28 28 72 65 64 75 63 65 72 20 28 66 6f 72 65 73 74 20 6f 75 74 20 64 65 70 74 68 29 0a 20 20 | .((reducer.(forest.out.depth)... |
| 2f440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 74 72 65 65 20 66 6f 72 65 | ..............(dolist.(tree.fore |
| 2f460 | 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 68 69 | st)...................(let.((thi |
| 2f480 | 73 20 28 63 6f 6e 73 20 28 66 75 6e 63 61 6c 6c 20 66 75 6e 63 20 74 72 65 65 20 64 65 70 74 68 | s.(cons.(funcall.func.tree.depth |
| 2f4a0 | 29 20 6f 75 74 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 | ).out))......................... |
| 2f4c0 | 28 6c 65 61 66 73 20 28 66 75 6e 63 61 6c 6c 20 74 72 65 65 70 20 74 72 65 65 29 29 29 0a 20 20 | (leafs.(funcall.treep.tree)))... |
| 2f4e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6f 75 74 0a 20 20 20 20 | ..................(setq.out..... |
| 2f500 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6c 65 61 66 73 0a | ......................(if.leafs. |
| 2f520 | 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 72 | ..............................(r |
| 2f540 | 65 64 75 63 65 72 20 6c 65 61 66 73 20 74 68 69 73 20 28 31 2b 20 64 65 70 74 68 29 29 0a 20 20 | educer.leafs.this.(1+.depth))... |
| 2f560 | 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 74 68 69 73 29 29 | ..........................this)) |
| 2f580 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 29 29 0a 20 20 20 20 28 6e 72 | )).................out)).....(nr |
| 2f5a0 | 65 76 65 72 73 65 20 28 72 65 64 75 63 65 72 20 66 6f 72 65 73 74 20 6e 69 6c 20 30 29 29 29 29 | everse.(reducer.forest.nil.0)))) |
| 2f5c0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 74 61 67 73 20 28 | ..(defun.counsel-semantic-tags.( |
| 2f5e0 | 29 0a 20 20 22 46 65 74 63 68 20 73 65 6d 61 6e 74 69 63 20 74 61 67 73 2e 22 0a 20 20 28 63 6f | )..."Fetch.semantic.tags."...(co |
| 2f600 | 75 6e 73 65 6c 2d 66 6c 61 74 74 65 6e 2d 66 6f 72 65 73 74 0a 20 20 20 28 6c 61 6d 62 64 61 20 | unsel-flatten-forest....(lambda. |
| 2f620 | 28 74 72 65 65 20 64 65 70 74 68 29 0a 20 20 20 20 20 28 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d | (tree.depth)......(semantic-tag- |
| 2f640 | 70 75 74 2d 61 74 74 72 69 62 75 74 65 20 74 72 65 65 20 3a 64 65 70 74 68 20 64 65 70 74 68 29 | put-attribute.tree.:depth.depth) |
| 2f660 | 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 74 61 67 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 65 | )....(lambda.(tag)......(when.(e |
| 2f680 | 71 20 28 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 63 6c 61 73 73 20 74 61 67 29 20 27 74 79 70 65 | q.(semantic-tag-class.tag).'type |
| 2f6a0 | 29 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 73 65 6d 61 6e 74 69 63 2d 74 | )........(let.((name.(semantic-t |
| 2f6c0 | 61 67 2d 6e 61 6d 65 20 74 61 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 0a | ag-name.tag)))..........(mapcar. |
| 2f6e0 | 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 20 28 73 65 6d 61 6e 74 69 63 2d | ..........(lambda.(x).(semantic- |
| 2f700 | 74 61 67 2d 70 75 74 2d 61 74 74 72 69 62 75 74 65 20 78 20 3a 70 61 72 65 6e 74 20 6e 61 6d 65 | tag-put-attribute.x.:parent.name |
| 2f720 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6d 61 6e 74 69 63 2d 74 61 67 2d 67 65 74 2d 61 | ))...........(semantic-tag-get-a |
| 2f740 | 74 74 72 69 62 75 74 65 20 74 61 67 20 3a 6d 65 6d 62 65 72 73 29 29 29 29 29 0a 20 20 20 28 73 | ttribute.tag.:members)))))....(s |
| 2f760 | 65 6d 61 6e 74 69 63 2d 66 65 74 63 68 2d 74 61 67 73 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | emantic-fetch-tags)))..;;;###aut |
| 2f780 | 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 20 28 29 | oload.(defun.counsel-semantic.() |
| 2f7a0 | 0a 20 20 22 4a 75 6d 70 20 74 6f 20 61 20 73 65 6d 61 6e 74 69 63 20 74 61 67 20 69 6e 20 74 68 | ..."Jump.to.a.semantic.tag.in.th |
| 2f7c0 | 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 | e.current.buffer."...(interactiv |
| 2f7e0 | 65 29 0a 20 20 28 6c 65 74 20 28 28 74 61 67 73 20 28 6d 61 70 63 61 72 0a 20 20 20 20 20 20 20 | e)...(let.((tags.(mapcar........ |
| 2f800 | 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ........(lambda.(x)............. |
| 2f820 | 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f | .....(cons...................(co |
| 2f840 | 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 66 6f 72 6d 61 74 2d 74 61 67 20 78 29 0a 20 20 20 | unsel-semantic-format-tag.x).... |
| 2f860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...............x)).............. |
| 2f880 | 20 20 28 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 74 61 67 73 29 29 29 29 0a 20 20 20 | ..(counsel-semantic-tags)))).... |
| 2f8a0 | 20 28 69 76 79 2d 72 65 61 64 20 22 74 61 67 3a 20 22 20 74 61 67 73 0a 20 20 20 20 20 20 20 20 | .(ivy-read."tag:.".tags......... |
| 2f8c0 | 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 | ......:action.#'counsel-semantic |
| 2f8e0 | 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 | -action...............:history.' |
| 2f900 | 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 | counsel-semantic-history........ |
| 2f920 | 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 | .......:caller.'counsel-semantic |
| 2f940 | 29 29 29 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 75 6e 73 | )))..;;;###autoload.(defun.couns |
| 2f960 | 65 6c 2d 73 65 6d 61 6e 74 69 63 2d 6f 72 2d 69 6d 65 6e 75 20 28 29 0a 20 20 28 69 6e 74 65 72 | el-semantic-or-imenu.()...(inter |
| 2f980 | 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 73 65 6d 61 6e 74 69 63 2f 66 77 29 | active)...(require.'semantic/fw) |
| 2f9a0 | 0a 20 20 28 69 66 20 28 73 65 6d 61 6e 74 69 63 2d 61 63 74 69 76 65 2d 70 29 0a 20 20 20 20 20 | ...(if.(semantic-active-p)...... |
| 2f9c0 | 20 28 63 6f 75 6e 73 65 6c 2d 73 65 6d 61 6e 74 69 63 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c | .(counsel-semantic).....(counsel |
| 2f9e0 | 2d 69 6d 65 6e 75 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 | -imenu)))..;;**.`counsel-outline |
| 2fa00 | 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6f 72 67 2d 74 72 69 6d 20 22 6f 72 | '.(declare-function.org-trim."or |
| 2fa20 | 67 2d 6d 61 63 73 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 | g-macs")..(defcustom.counsel-out |
| 2fa40 | 6c 69 6e 65 2d 66 61 63 65 2d 73 74 79 6c 65 20 6e 69 6c 0a 20 20 22 44 65 74 65 72 6d 69 6e 65 | line-face-style.nil..."Determine |
| 2fa60 | 73 20 68 6f 77 20 74 6f 20 73 74 79 6c 65 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 73 20 | s.how.to.style.outline.headings. |
| 2fa80 | 64 75 72 69 6e 67 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 0a 0a 49 66 20 60 6f 72 67 27 2c 20 74 68 | during.completion...If.`org',.th |
| 2faa0 | 65 20 66 61 63 65 73 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 31 27 20 74 68 72 6f | e.faces.`counsel-outline-1'.thro |
| 2fac0 | 75 67 68 0a 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 38 27 20 61 72 65 20 61 70 70 6c | ugh.`counsel-outline-8'.are.appl |
| 2fae0 | 69 65 64 20 69 6e 20 61 20 73 69 6d 69 6c 61 72 20 77 61 79 20 74 6f 20 4f 72 67 2e 0a 4e 6f 74 | ied.in.a.similar.way.to.Org..Not |
| 2fb00 | 65 20 74 68 61 74 20 6e 6f 20 63 79 63 6c 69 6e 67 20 69 73 20 70 65 72 66 6f 72 6d 65 64 2c 20 | e.that.no.cycling.is.performed,. |
| 2fb20 | 73 6f 20 68 65 61 64 69 6e 67 73 20 6f 6e 20 6c 65 76 65 6c 73 20 39 20 61 6e 64 0a 68 69 67 68 | so.headings.on.levels.9.and.high |
| 2fb40 | 65 72 20 61 72 65 20 6e 6f 74 20 73 74 79 6c 65 64 2e 0a 0a 49 66 20 60 76 65 72 62 61 74 69 6d | er.are.not.styled...If.`verbatim |
| 2fb60 | 27 2c 20 74 68 65 20 66 61 63 65 73 20 75 73 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 20 | ',.the.faces.used.in.the.buffer. |
| 2fb80 | 61 72 65 20 61 70 70 6c 69 65 64 2e 20 20 46 6f 72 0a 73 69 6d 70 6c 65 20 68 65 61 64 6c 69 6e | are.applied...For.simple.headlin |
| 2fba0 | 65 73 20 69 6e 20 60 6f 72 67 2d 6d 6f 64 65 27 20 62 75 66 66 65 72 73 2c 20 74 68 69 73 20 69 | es.in.`org-mode'.buffers,.this.i |
| 2fbc0 | 73 20 75 73 75 61 6c 6c 79 20 74 68 65 20 73 61 6d 65 0a 61 73 20 74 68 65 20 60 6f 72 67 27 20 | s.usually.the.same.as.the.`org'. |
| 2fbe0 | 73 65 74 74 69 6e 67 2c 20 65 78 63 65 70 74 20 74 68 61 74 20 69 74 20 64 65 70 65 6e 64 73 20 | setting,.except.that.it.depends. |
| 2fc00 | 6f 6e 20 68 6f 77 20 6d 75 63 68 20 6f 66 20 74 68 65 0a 62 75 66 66 65 72 20 68 61 73 20 62 65 | on.how.much.of.the.buffer.has.be |
| 2fc20 | 65 6e 20 63 6f 6d 70 6c 65 74 65 6c 79 20 66 6f 6e 74 69 66 69 65 64 2e 20 20 49 66 20 79 6f 75 | en.completely.fontified...If.you |
| 2fc40 | 72 20 62 75 66 66 65 72 20 65 78 63 65 65 64 73 20 61 0a 63 65 72 74 61 69 6e 20 73 69 7a 65 2c | r.buffer.exceeds.a.certain.size, |
| 2fc60 | 20 68 65 61 64 6c 69 6e 65 73 20 61 72 65 20 73 74 79 6c 65 64 20 6c 61 7a 69 6c 79 20 64 65 70 | .headlines.are.styled.lazily.dep |
| 2fc80 | 65 6e 64 69 6e 67 20 6f 6e 20 77 68 69 63 68 0a 70 61 72 74 73 20 6f 66 20 74 68 65 20 74 72 65 | ending.on.which.parts.of.the.tre |
| 2fca0 | 65 20 61 72 65 20 76 69 73 69 62 6c 65 2e 20 20 48 65 61 64 6c 69 6e 65 73 20 77 68 69 63 68 20 | e.are.visible...Headlines.which. |
| 2fcc0 | 61 72 65 20 6e 6f 74 20 79 65 74 0a 73 74 79 6c 65 64 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 | are.not.yet.styled.in.the.buffer |
| 2fce0 | 20 77 69 6c 6c 20 61 70 70 65 61 72 20 75 6e 73 74 79 6c 65 64 20 69 6e 20 74 68 65 20 6d 69 6e | .will.appear.unstyled.in.the.min |
| 2fd00 | 69 62 75 66 66 65 72 20 61 73 0a 77 65 6c 6c 2e 20 20 49 66 20 79 6f 75 72 20 68 65 61 64 6c 69 | ibuffer.as.well...If.your.headli |
| 2fd20 | 6e 65 73 20 63 6f 6e 74 61 69 6e 20 70 61 72 74 73 20 77 68 69 63 68 20 61 72 65 20 66 6f 6e 74 | nes.contain.parts.which.are.font |
| 2fd40 | 69 66 69 65 64 0a 64 69 66 66 65 72 65 6e 74 6c 79 20 74 68 61 6e 20 74 68 65 20 68 65 61 64 6c | ified.differently.than.the.headl |
| 2fd60 | 69 6e 65 20 69 74 73 65 6c 66 20 28 65 2e 67 2e 20 54 4f 44 4f 20 6b 65 79 77 6f 72 64 73 2c 20 | ine.itself.(e.g..TODO.keywords,. |
| 2fd80 | 74 61 67 73 2c 0a 6c 69 6e 6b 73 29 20 61 6e 64 20 79 6f 75 20 77 61 6e 74 20 74 68 65 73 65 20 | tags,.links).and.you.want.these. |
| 2fda0 | 70 61 72 74 73 20 74 6f 20 62 65 20 73 74 79 6c 65 64 20 70 72 6f 70 65 72 6c 79 2c 20 76 65 72 | parts.to.be.styled.properly,.ver |
| 2fdc0 | 62 61 74 69 6d 0a 69 73 20 74 68 65 20 77 61 79 20 74 6f 20 67 6f 3b 20 6f 74 68 65 72 77 69 73 | batim.is.the.way.to.go;.otherwis |
| 2fde0 | 65 20 79 6f 75 20 61 72 65 20 70 72 6f 62 61 62 6c 79 20 62 65 74 74 65 72 20 6f 66 66 20 75 73 | e.you.are.probably.better.off.us |
| 2fe00 | 69 6e 67 20 74 68 65 0a 60 6f 72 67 27 20 73 65 74 74 69 6e 67 20 69 6e 73 74 65 61 64 2e 0a 0a | ing.the.`org'.setting.instead... |
| 2fe20 | 49 66 20 60 63 75 73 74 6f 6d 27 2c 20 74 68 65 20 66 61 63 65 73 20 64 65 66 69 6e 65 64 20 69 | If.`custom',.the.faces.defined.i |
| 2fe40 | 6e 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 75 73 74 6f 6d 2d 66 61 63 65 73 27 | n.`counsel-outline-custom-faces' |
| 2fe60 | 0a 61 72 65 20 61 70 70 6c 69 65 64 2e 20 20 4e 6f 74 65 20 74 68 61 74 20 6e 6f 20 63 79 63 6c | .are.applied...Note.that.no.cycl |
| 2fe80 | 69 6e 67 20 69 73 20 70 65 72 66 6f 72 6d 65 64 2c 20 73 6f 20 69 66 20 74 68 65 72 65 20 69 73 | ing.is.performed,.so.if.there.is |
| 2fea0 | 0a 6e 6f 20 66 61 63 65 20 64 65 66 69 6e 65 64 20 66 6f 72 20 61 20 63 65 72 74 61 69 6e 20 6c | .no.face.defined.for.a.certain.l |
| 2fec0 | 65 76 65 6c 2c 20 68 65 61 64 6c 69 6e 65 73 20 6f 6e 20 74 68 61 74 20 6c 65 76 65 6c 20 77 69 | evel,.headlines.on.that.level.wi |
| 2fee0 | 6c 6c 0a 6e 6f 74 20 62 65 20 73 74 79 6c 65 64 2e 0a 0a 49 66 20 60 6e 69 6c 27 2c 20 61 6c 6c | ll.not.be.styled...If.`nil',.all |
| 2ff00 | 20 68 65 61 64 6c 69 6e 65 73 20 61 72 65 20 68 69 67 68 6c 69 67 68 74 65 64 20 75 73 69 6e 67 | .headlines.are.highlighted.using |
| 2ff20 | 0a 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 65 66 61 75 6c 74 27 2e 0a 0a 46 6f 72 | .`counsel-outline-default'...For |
| 2ff40 | 20 64 69 73 70 6c 61 79 69 6e 67 20 74 61 67 73 20 61 6e 64 20 54 4f 44 4f 20 6b 65 79 77 6f 72 | .displaying.tags.and.TODO.keywor |
| 2ff60 | 64 73 20 69 6e 20 60 6f 72 67 2d 6d 6f 64 65 27 20 62 75 66 66 65 72 73 2c 20 73 65 65 0a 60 63 | ds.in.`org-mode'.buffers,.see.`c |
| 2ff80 | 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 74 61 67 73 | ounsel-org-headline-display-tags |
| 2ffa0 | 27 20 61 6e 64 0a 60 63 6f 75 6e 73 65 6c 2d 6f 72 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 | '.and.`counsel-org-headline-disp |
| 2ffc0 | 6c 61 79 2d 74 6f 64 6f 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 22 0a 20 20 3a 74 79 70 | lay-todo',.respectively."...:typ |
| 2ffe0 | 65 20 27 28 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 | e.'(choice...........(const.:tag |
| 30000 | 20 22 53 61 6d 65 20 61 73 20 6f 72 67 2d 6d 6f 64 65 22 20 6f 72 67 29 0a 20 20 20 20 20 20 20 | ."Same.as.org-mode".org)........ |
| 30020 | 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 56 65 72 62 61 74 69 6d 22 20 76 65 72 62 61 74 | ...(const.:tag."Verbatim".verbat |
| 30040 | 69 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 43 75 73 74 6f | im)...........(const.:tag."Custo |
| 30060 | 6d 22 20 63 75 73 74 6f 6d 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 | m".custom)...........(const.:tag |
| 30080 | 20 22 4e 6f 20 73 74 79 6c 65 22 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 | ."No.style".nil)))..(defcustom.c |
| 300a0 | 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 75 73 74 6f 6d 2d 66 61 63 65 73 20 6e 69 6c 0a | ounsel-outline-custom-faces.nil. |
| 300c0 | 20 20 22 4c 69 73 74 20 6f 66 20 66 61 63 65 73 20 66 6f 72 20 63 75 73 74 6f 6d 20 64 69 73 70 | .."List.of.faces.for.custom.disp |
| 300e0 | 6c 61 79 20 6f 66 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 73 2e 0a 0a 48 65 61 64 6c 69 | lay.of.outline.headings...Headli |
| 30100 | 6e 65 73 20 6f 6e 20 6c 65 76 65 6c 20 4e 20 61 72 65 20 66 6f 6e 74 69 66 69 65 64 20 77 69 74 | nes.on.level.N.are.fontified.wit |
| 30120 | 68 20 74 68 65 20 4e 74 68 20 65 6e 74 72 79 20 6f 66 20 74 68 69 73 0a 6c 69 73 74 2c 20 73 74 | h.the.Nth.entry.of.this.list,.st |
| 30140 | 61 72 74 69 6e 67 20 77 69 74 68 20 4e 20 3d 20 31 2e 20 20 48 65 61 64 6c 69 6e 65 20 6c 65 76 | arting.with.N.=.1...Headline.lev |
| 30160 | 65 6c 73 20 77 69 74 68 20 6e 6f 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 0a 65 6e 74 72 79 20 | els.with.no.corresponding.entry. |
| 30180 | 69 6e 20 74 68 69 73 20 6c 69 73 74 20 77 69 6c 6c 20 6e 6f 74 20 62 65 20 73 74 79 6c 65 64 2e | in.this.list.will.not.be.styled. |
| 301a0 | 0a 0a 54 68 69 73 20 76 61 72 69 61 62 6c 65 20 68 61 73 20 6e 6f 20 65 66 66 65 63 74 20 75 6e | ..This.variable.has.no.effect.un |
| 301c0 | 6c 65 73 73 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 66 61 63 65 2d 73 74 79 6c 65 | less.`counsel-outline-face-style |
| 301e0 | 27 0a 69 73 20 73 65 74 20 74 6f 20 60 63 75 73 74 6f 6d 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 | '.is.set.to.`custom'."...:type.' |
| 30200 | 28 72 65 70 65 61 74 20 66 61 63 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f | (repeat.face))..(defun.counsel-o |
| 30220 | 75 74 6c 69 6e 65 2d 74 69 74 6c 65 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 69 74 6c 65 20 | utline-title.()..."Return.title. |
| 30240 | 6f 66 20 63 75 72 72 65 6e 74 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 0a 49 6e 74 65 | of.current.outline.heading..Inte |
| 30260 | 6e 64 65 64 20 61 73 20 61 20 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 60 3a 6f 75 74 6c 69 6e | nded.as.a.value.for.the.`:outlin |
| 30280 | 65 2d 74 69 74 6c 65 27 20 73 65 74 74 69 6e 67 20 69 6e 0a 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 | e-title'.setting.in.`counsel-out |
| 302a0 | 6c 69 6e 65 2d 73 65 74 74 69 6e 67 73 27 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 28 62 | line-settings',.which.see."...(b |
| 302c0 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 70 6f 69 6e 74 29 20 28 6c 69 6e 65 2d 65 6e | uffer-substring.(point).(line-en |
| 302e0 | 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 75 | d-position)))..(defun.counsel-ou |
| 30300 | 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 6f 72 67 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 69 74 | tline-title-org.()..."Return.tit |
| 30320 | 6c 65 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 0a 4c | le.of.current.outline.heading..L |
| 30340 | 69 6b 65 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 27 20 28 77 68 69 | ike.`counsel-outline-title'.(whi |
| 30360 | 63 68 20 73 65 65 29 2c 20 62 75 74 20 66 6f 72 20 60 6f 72 67 2d 6d 6f 64 65 27 0a 62 75 66 66 | ch.see),.but.for.`org-mode'.buff |
| 30380 | 65 72 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 69 73 74 69 63 73 2d 72 65 20 22 5c 5c | ers."...(let.((statistics-re."\\ |
| 303a0 | 5b 5b 30 2d 39 5d 2a 5c 5c 28 3f 3a 25 5c 5c 7c 2f 5b 30 2d 39 5d 2a 5c 5c 29 5d 22 29 0a 20 20 | [[0-9]*\\(?:%\\|/[0-9]*\\)]")... |
| 303c0 | 20 20 20 20 20 20 28 68 65 61 64 69 6e 67 20 28 61 70 70 6c 79 20 23 27 6f 72 67 2d 67 65 74 2d | ......(heading.(apply.#'org-get- |
| 303e0 | 68 65 61 64 69 6e 67 20 28 63 6f 75 6e 73 65 6c 2d 2d 6f 72 67 2d 67 65 74 2d 68 65 61 64 69 6e | heading.(counsel--org-get-headin |
| 30400 | 67 2d 61 72 67 73 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 63 6f 75 6e 73 65 6c 2d 6f 72 | g-args)))).....(cond.(counsel-or |
| 30420 | 67 2d 68 65 61 64 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 61 74 69 73 74 69 63 73 0a 20 20 | g-headline-display-statistics... |
| 30440 | 20 20 20 20 20 20 20 20 20 68 65 61 64 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 68 65 61 | .........heading)...........(hea |
| 30460 | 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 67 2d 74 72 69 6d 20 28 72 65 70 6c 61 | ding............(org-trim.(repla |
| 30480 | 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 73 74 61 74 69 73 74 69 63 73 2d 72 | ce-regexp-in-string.statistics-r |
| 304a0 | 65 20 22 20 22 20 68 65 61 64 69 6e 67 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | e.".".heading))))))..(defun.coun |
| 304c0 | 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 6d 61 72 6b 64 6f 77 6e 20 28 29 0a 20 20 | sel-outline-title-markdown.()... |
| 304e0 | 22 52 65 74 75 72 6e 20 74 69 74 6c 65 20 6f 66 20 63 75 72 72 65 6e 74 20 6f 75 74 6c 69 6e 65 | "Return.title.of.current.outline |
| 30500 | 20 68 65 61 64 69 6e 67 2e 0a 4c 69 6b 65 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d | .heading..Like.`counsel-outline- |
| 30520 | 74 69 74 6c 65 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 62 75 74 20 66 6f 72 0a 60 6d 61 72 | title'.(which.see),.but.for.`mar |
| 30540 | 6b 64 6f 77 6e 2d 6d 6f 64 65 27 20 28 66 72 6f 6d 20 74 68 65 20 65 70 6f 6e 79 6d 6f 75 73 20 | kdown-mode'.(from.the.eponymous. |
| 30560 | 70 61 63 6b 61 67 65 29 20 62 75 66 66 65 72 73 2e 22 0a 20 20 3b 3b 20 60 6f 75 74 6c 69 6e 65 | package).buffers."...;;.`outline |
| 30580 | 2d 72 65 67 65 78 70 27 20 69 73 20 73 65 74 20 62 79 20 60 6d 61 72 6b 64 6f 77 6e 2d 6d 6f 64 | -regexp'.is.set.by.`markdown-mod |
| 305a0 | 65 27 20 74 6f 20 6d 61 74 63 68 20 62 6f 74 68 20 73 65 74 65 78 74 0a 20 20 3b 3b 20 28 75 6e | e'.to.match.both.setext...;;.(un |
| 305c0 | 64 65 72 6c 69 6e 65 29 20 61 6e 64 20 61 74 78 20 28 68 61 73 68 29 20 68 65 61 64 69 6e 67 73 | derline).and.atx.(hash).headings |
| 305e0 | 20 28 73 65 65 0a 20 20 3b 3b 20 60 6d 61 72 6b 64 6f 77 6e 2d 72 65 67 65 78 2d 68 65 61 64 65 | .(see...;;.`markdown-regex-heade |
| 30600 | 72 27 29 2e 0a 20 20 28 6f 72 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 20 20 20 20 20 | r')....(or.(match-string.1)..... |
| 30620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 73 65 74 65 78 74 20 68 65 61 64 69 6e 67 20 74 69 | .............;.setext.heading.ti |
| 30640 | 74 6c 65 0a 20 20 20 20 20 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 35 29 29 29 20 20 20 20 | tle.......(match-string.5))).... |
| 30660 | 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 61 74 78 20 68 65 61 64 69 6e 67 20 74 69 74 6c 65 0a | ............;.atx.heading.title. |
| 30680 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 6c 61 | .(defun.counsel-outline-title-la |
| 306a0 | 74 65 78 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 69 74 6c 65 20 6f 66 20 63 75 72 72 65 6e | tex.()..."Return.title.of.curren |
| 306c0 | 74 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 0a 4c 69 6b 65 20 60 63 6f 75 6e 73 65 6c | t.outline.heading..Like.`counsel |
| 306e0 | 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 27 20 28 77 68 69 63 68 20 73 65 65 29 2c 20 62 75 74 | -outline-title'.(which.see),.but |
| 30700 | 20 66 6f 72 20 60 6c 61 74 65 78 2d 6d 6f 64 65 27 0a 62 75 66 66 65 72 73 2e 22 0a 20 20 3b 3b | .for.`latex-mode'.buffers."...;; |
| 30720 | 20 60 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 20 69 73 20 73 65 74 20 62 79 20 60 6c 61 74 | .`outline-regexp'.is.set.by.`lat |
| 30740 | 65 78 2d 6d 6f 64 65 27 20 28 73 65 65 20 76 61 72 69 61 62 6c 65 0a 20 20 3b 3b 20 60 6c 61 74 | ex-mode'.(see.variable...;;.`lat |
| 30760 | 65 78 2d 73 65 63 74 69 6f 6e 2d 61 6c 69 73 74 27 20 66 6f 72 20 74 68 65 20 62 75 69 6c 74 2d | ex-section-alist'.for.the.built- |
| 30780 | 69 6e 20 6d 6f 64 65 20 6f 72 20 66 75 6e 63 74 69 6f 6e 0a 20 20 3b 3b 20 60 4c 61 54 65 58 2d | in.mode.or.function...;;.`LaTeX- |
| 307a0 | 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 27 20 66 6f 72 20 74 68 65 20 41 55 43 54 65 58 20 70 | outline-regexp'.for.the.AUCTeX.p |
| 307c0 | 61 63 6b 61 67 65 29 20 74 6f 20 6d 61 74 63 68 20 73 65 63 74 69 6f 6e 0a 20 20 3b 3b 20 6d 61 | ackage).to.match.section...;;.ma |
| 307e0 | 63 72 6f 73 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 77 65 20 67 65 74 20 74 68 65 20 73 | cros,.in.which.case.we.get.the.s |
| 30800 | 65 63 74 69 6f 6e 20 6e 61 6d 65 2c 20 61 73 20 77 65 6c 6c 20 61 73 0a 20 20 3b 3b 20 60 5c 61 | ection.name,.as.well.as...;;.`\a |
| 30820 | 70 70 65 6e 64 69 78 27 2c 20 60 5c 64 6f 63 75 6d 65 6e 74 63 6c 61 73 73 27 2c 20 60 5c 62 65 | ppendix',.`\documentclass',.`\be |
| 30840 | 67 69 6e 7b 64 6f 63 75 6d 65 6e 74 7d 27 2c 20 61 6e 64 0a 20 20 3b 3b 20 60 5c 65 6e 64 7b 64 | gin{document}',.and...;;.`\end{d |
| 30860 | 6f 63 75 6d 65 6e 74 7d 27 2c 20 69 6e 20 77 68 69 63 68 20 63 61 73 65 20 77 65 20 73 69 6d 70 | ocument}',.in.which.case.we.simp |
| 30880 | 6c 79 20 72 65 74 75 72 6e 20 74 68 61 74 2e 0a 20 20 28 69 66 20 28 61 6e 64 20 28 61 73 73 6f | ly.return.that....(if.(and.(asso |
| 308a0 | 63 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c.(match-string.1).............. |
| 308c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4d 61 63 72 6f 20 6e 61 6d 65 0a 20 20 20 20 | ...............;.Macro.name..... |
| 308e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 | ..............(or.(bound-and-tru |
| 30900 | 65 2d 70 20 4c 61 54 65 58 2d 73 65 63 74 69 6f 6e 2d 6c 69 73 74 29 20 20 20 20 3b 20 41 55 43 | e-p.LaTeX-section-list)....;.AUC |
| 30920 | 54 65 58 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 | TeX.......................(bound |
| 30940 | 2d 61 6e 64 2d 74 72 75 65 2d 70 20 6c 61 74 65 78 2d 73 65 63 74 69 6f 6e 2d 61 6c 69 73 74 29 | -and-true-p.latex-section-alist) |
| 30960 | 29 29 20 3b 20 42 75 69 6c 74 2d 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | )).;.Built-in............(progn. |
| 30980 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 50 6f 69 6e 74 20 69 73 20 61 74 20 65 6e 64 20 | .............;;.Point.is.at.end. |
| 309a0 | 6f 66 20 6d 61 63 72 6f 20 6e 61 6d 65 2c 20 73 6b 69 70 20 73 74 61 72 73 20 61 6e 64 20 6f 70 | of.macro.name,.skip.stars.and.op |
| 309c0 | 74 69 6f 6e 61 6c 20 61 72 67 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6b 69 70 2d 63 | tional.args..............(skip-c |
| 309e0 | 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | hars-forward."*")..............( |
| 30a00 | 77 68 69 6c 65 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 2d 70 20 22 5c 5c 5b 22 29 0a 20 20 20 20 20 | while.(looking-at-p."\\[")...... |
| 30a20 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 | ..........(forward-list))....... |
| 30a40 | 20 20 20 20 20 20 20 3b 3b 20 46 69 72 73 74 20 6d 61 6e 64 61 74 6f 72 79 20 61 72 67 20 73 68 | .......;;.First.mandatory.arg.sh |
| 30a60 | 6f 75 6c 64 20 62 65 20 73 65 63 74 69 6f 6e 20 74 69 74 6c 65 0a 20 20 20 20 20 20 20 20 20 20 | ould.be.section.title........... |
| 30a80 | 20 20 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 2d 70 20 22 7b 22 29 29 29 0a 20 20 20 20 20 20 28 62 | ...(looking-at-p."{"))).......(b |
| 30aa0 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 20 28 31 2d | uffer-substring.(1+.(point)).(1- |
| 30ac0 | 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 6c 69 73 74 29 20 28 70 6f 69 6e 74 29 29 29 | .(progn.(forward-list).(point))) |
| 30ae0 | 29 0a 20 20 20 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 28 6c 69 6e 65 2d 62 65 | ).....(buffer-substring.(line-be |
| 30b00 | 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 64 | ginning-position).(point))))..(d |
| 30b20 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 2d 65 6d 61 63 73 | efun.counsel-outline-level-emacs |
| 30b40 | 2d 6c 69 73 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 65 76 65 6c 20 6f 66 20 63 75 72 72 | -lisp.()..."Return.level.of.curr |
| 30b60 | 65 6e 74 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 2e 0a 4c 69 6b 65 20 60 6c 69 73 70 2d | ent.outline.heading..Like.`lisp- |
| 30b80 | 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 27 2c 20 62 75 74 20 61 64 61 70 74 65 64 20 66 6f 72 20 | outline-level',.but.adapted.for. |
| 30ba0 | 74 68 65 20 60 3a 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 27 0a 73 65 74 74 69 6e 67 20 69 6e 20 | the.`:outline-level'.setting.in. |
| 30bc0 | 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 73 65 74 74 69 6e 67 73 27 2c 20 77 68 69 63 | `counsel-outline-settings',.whic |
| 30be0 | 68 20 73 65 65 2e 22 0a 20 20 28 69 66 20 28 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 3b 3b 5c 5c 28 | h.see."...(if.(looking-at.";;\\( |
| 30c00 | 5b 3b 2a 5d 2b 5c 5c 29 22 29 0a 20 20 20 20 20 20 28 2d 20 28 6d 61 74 63 68 2d 65 6e 64 20 31 | [;*]+\\)").......(-.(match-end.1 |
| 30c20 | 29 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 29 0a 20 20 20 20 28 66 75 6e 63 | ).(match-beginning.1)).....(func |
| 30c40 | 61 6c 6c 20 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f | all.outline-level)))..(defvar.co |
| 30c60 | 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 70 72 65 73 65 6c 65 63 74 20 30 0a 20 20 22 49 6e | unsel-outline--preselect.0..."In |
| 30c80 | 64 65 78 20 6f 66 20 74 68 65 20 70 72 65 73 65 6c 65 63 74 65 64 20 63 61 6e 64 69 64 61 74 65 | dex.of.the.preselected.candidate |
| 30ca0 | 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 27 2e 22 29 0a 0a 28 64 65 66 75 6e | .in.`counsel-outline'.")..(defun |
| 30cc0 | 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 61 6e 64 69 64 61 74 65 73 20 28 26 6f 70 | .counsel-outline-candidates.(&op |
| 30ce0 | 74 69 6f 6e 61 6c 20 73 65 74 74 69 6e 67 73 20 70 72 65 66 69 78 29 0a 20 20 22 52 65 74 75 72 | tional.settings.prefix)..."Retur |
| 30d00 | 6e 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 6f 75 74 6c 69 6e 65 20 68 65 61 64 69 6e 67 20 63 6f | n.an.alist.of.outline.heading.co |
| 30d20 | 6d 70 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 73 2e 0a 45 61 63 68 20 65 6c 65 6d 65 6e | mpletion.candidates..Each.elemen |
| 30d40 | 74 20 69 73 20 61 20 70 61 69 72 20 28 48 45 41 44 49 4e 47 20 2e 20 4d 41 52 4b 45 52 29 2c 20 | t.is.a.pair.(HEADING...MARKER),. |
| 30d60 | 77 68 65 72 65 20 74 68 65 20 73 74 72 69 6e 67 0a 48 45 41 44 49 4e 47 20 69 73 20 6c 6f 63 61 | where.the.string.HEADING.is.loca |
| 30d80 | 74 65 64 20 61 74 20 74 68 65 20 70 6f 73 69 74 69 6f 6e 20 6f 66 20 4d 41 52 4b 45 52 2e 20 20 | ted.at.the.position.of.MARKER... |
| 30da0 | 53 45 54 54 49 4e 47 53 20 69 73 20 61 0a 70 6c 69 73 74 20 65 6e 74 72 79 20 66 72 6f 6d 20 60 | SETTINGS.is.a.plist.entry.from.` |
| 30dc0 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 73 65 74 74 69 6e 67 73 27 2c 20 77 68 69 63 68 | counsel-outline-settings',.which |
| 30de0 | 20 73 65 65 2e 0a 50 52 45 46 49 58 20 69 73 20 61 20 73 74 72 69 6e 67 20 70 72 65 70 65 6e 64 | .see..PREFIX.is.a.string.prepend |
| 30e00 | 65 64 20 74 6f 20 61 6c 6c 20 63 61 6e 64 69 64 61 74 65 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 | ed.to.all.candidates."...(let*.( |
| 30e20 | 28 62 6f 6c 2d 72 65 67 65 78 20 28 63 6f 6e 63 61 74 20 22 5e 5c 5c 28 3f 3a 22 0a 20 20 20 20 | (bol-regex.(concat."^\\(?:"..... |
| 30e40 | 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 6f 72 20 28 70 6c 69 | ........................(or.(pli |
| 30e60 | 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 | st-get.settings.:outline-regexp) |
| 30e80 | 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 20 | ................................ |
| 30ea0 | 20 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .outline-regexp)................ |
| 30ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 22 5c 5c 29 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f | ............."\\)"))..........(o |
| 30ee0 | 75 74 6c 69 6e 65 2d 74 69 74 6c 65 2d 66 6e 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 | utline-title-fn.(or.(plist-get.s |
| 30f00 | 65 74 74 69 6e 67 73 20 3a 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 29 0a 20 20 20 20 20 20 20 20 | ettings.:outline-title)......... |
| 30f20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c | .......................#'counsel |
| 30f40 | 2d 6f 75 74 6c 69 6e 65 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 75 74 6c 69 | -outline-title))..........(outli |
| 30f60 | 6e 65 2d 6c 65 76 65 6c 2d 66 6e 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 65 74 74 69 | ne-level-fn.(or.(plist-get.setti |
| 30f80 | 6e 67 73 20 3a 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ngs.:outline-level)............. |
| 30fa0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 75 74 6c 69 6e 65 2d 6c 65 76 65 6c | ...................outline-level |
| 30fc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 20 28 6f 72 20 28 | ))..........(display-style.(or.( |
| 30fe0 | 70 6c 69 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 64 69 73 70 6c 61 79 2d 73 74 79 6c | plist-get.settings.:display-styl |
| 31000 | 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 20 20 20 20 63 | e).............................c |
| 31020 | 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 29 29 0a 20 | ounsel-outline-display-style)).. |
| 31040 | 20 20 20 20 20 20 20 20 28 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 20 28 6f 72 20 28 70 6c 69 | ........(path-separator.(or.(pli |
| 31060 | 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 29 | st-get.settings.:path-separator) |
| 31080 | 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 63 6f | ..............................co |
| 310a0 | 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 29 29 0a 20 | unsel-outline-path-separator)).. |
| 310c0 | 20 20 20 20 20 20 20 20 28 66 61 63 65 2d 73 74 79 6c 65 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 | ........(face-style.(or.(plist-g |
| 310e0 | 65 74 20 73 65 74 74 69 6e 67 73 20 3a 66 61 63 65 2d 73 74 79 6c 65 29 0a 20 20 20 20 20 20 20 | et.settings.:face-style)........ |
| 31100 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e | ..................counsel-outlin |
| 31120 | 65 2d 66 61 63 65 2d 73 74 79 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 75 73 74 6f 6d 2d | e-face-style))..........(custom- |
| 31140 | 66 61 63 65 73 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 63 | faces.(or.(plist-get.settings.:c |
| 31160 | 75 73 74 6f 6d 2d 66 61 63 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ustom-faces).................... |
| 31180 | 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 75 73 74 6f 6d 2d 66 | ........counsel-outline-custom-f |
| 311a0 | 61 63 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 61 63 6b 2d 6c 65 76 65 6c 20 30 29 0a | aces))..........(stack-level.0). |
| 311c0 | 20 20 20 20 20 20 20 20 20 28 6f 72 69 67 2d 70 6f 69 6e 74 20 28 70 6f 69 6e 74 29 29 0a 20 20 | .........(orig-point.(point))... |
| 311e0 | 20 20 20 20 20 20 20 28 73 74 61 63 6b 20 28 61 6e 64 20 70 72 65 66 69 78 20 28 6c 69 73 74 20 | .......(stack.(and.prefix.(list. |
| 31200 | 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 61 64 64 2d 66 61 63 65 0a 20 20 20 20 20 | (counsel-outline--add-face...... |
| 31220 | 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 70 72 | ..............................pr |
| 31240 | 65 66 69 78 20 30 20 66 61 63 65 2d 73 74 79 6c 65 20 63 75 73 74 6f 6d 2d 66 61 63 65 73 29 29 | efix.0.face-style.custom-faces)) |
| 31260 | 29 29 0a 20 20 20 20 20 20 20 20 20 63 61 6e 64 73 20 6e 61 6d 65 20 6c 65 76 65 6c 20 6d 61 72 | ))..........cands.name.level.mar |
| 31280 | 6b 65 72 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 28 | ker).....(save-excursion.......( |
| 312a0 | 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 70 72 65 73 65 6c 65 63 74 20 | setq.counsel-outline--preselect. |
| 312c0 | 30 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | 0).......(goto-char.(point-min)) |
| 312e0 | 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 | .......(while.(re-search-forward |
| 31300 | 20 62 6f 6c 2d 72 65 67 65 78 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d | .bol-regex.nil.t).........(save- |
| 31320 | 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 | excursion...........(setq.name.( |
| 31340 | 6f 72 20 28 73 61 76 65 2d 6d 61 74 63 68 2d 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 | or.(save-match-data............. |
| 31360 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 6c 69 6e 65 2d | ...............(funcall.outline- |
| 31380 | 74 69 74 6c 65 2d 66 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 | title-fn))...................... |
| 313a0 | 20 20 20 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6d | ....""))...........(goto-char.(m |
| 313c0 | 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 | atch-beginning.0))...........(se |
| 313e0 | 74 71 20 6d 61 72 6b 65 72 20 28 70 6f 69 6e 74 2d 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 | tq.marker.(point-marker))....... |
| 31400 | 20 20 20 20 28 73 65 74 71 20 6c 65 76 65 6c 20 28 66 75 6e 63 61 6c 6c 20 6f 75 74 6c 69 6e 65 | ....(setq.level.(funcall.outline |
| 31420 | 2d 6c 65 76 65 6c 2d 66 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 | -level-fn))...........(cond.((eq |
| 31440 | 20 64 69 73 70 6c 61 79 2d 73 74 79 6c 65 20 27 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 | .display-style.'path)........... |
| 31460 | 20 20 20 20 20 20 20 3b 3b 20 55 70 64 61 74 65 20 73 74 61 63 6b 2e 20 20 54 68 65 20 65 6d 70 | .......;;.Update.stack...The.emp |
| 31480 | 74 79 20 65 6e 74 72 79 20 67 75 61 72 64 73 20 61 67 61 69 6e 73 74 20 69 6e 63 6f 72 72 65 63 | ty.entry.guards.against.incorrec |
| 314a0 | 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 65 61 64 6c 69 6e 65 20 68 | t..................;;.headline.h |
| 314c0 | 69 65 72 61 72 63 68 69 65 73 2c 20 65 2e 67 2e 20 61 20 6c 65 76 65 6c 20 33 20 68 65 61 64 6c | ierarchies,.e.g..a.level.3.headl |
| 314e0 | 69 6e 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 69 6d 6d 65 64 69 61 74 | ine..................;;.immediat |
| 31500 | 65 6c 79 20 66 6f 6c 6c 6f 77 69 6e 67 20 61 20 6c 65 76 65 6c 20 31 20 65 6e 74 72 79 2e 0a 20 | ely.following.a.level.1.entry... |
| 31520 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 3d 20 6c 65 76 65 6c | ................(while.(<=.level |
| 31540 | 20 73 74 61 63 6b 2d 6c 65 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .stack-level)................... |
| 31560 | 20 28 70 6f 70 20 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .(pop.stack).................... |
| 31580 | 28 63 6c 2d 64 65 63 66 20 73 74 61 63 6b 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 | (cl-decf.stack-level)).......... |
| 315a0 | 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3e 20 6c 65 76 65 6c 20 73 74 61 63 6b 2d 6c 65 | ........(while.(>.level.stack-le |
| 315c0 | 76 65 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 22 22 | vel)....................(push."" |
| 315e0 | 20 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 | .stack)....................(cl-i |
| 31600 | 6e 63 66 20 73 74 61 63 6b 2d 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ncf.stack-level))............... |
| 31620 | 20 20 20 28 73 65 74 66 20 28 63 61 72 20 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ...(setf.(car.stack)............ |
| 31640 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 61 64 | ............(counsel-outline--ad |
| 31660 | 64 2d 66 61 63 65 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 6e | d-face.........................n |
| 31680 | 61 6d 65 20 6c 65 76 65 6c 20 66 61 63 65 2d 73 74 79 6c 65 20 63 75 73 74 6f 6d 2d 66 61 63 65 | ame.level.face-style.custom-face |
| 316a0 | 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 | s))..................(setq.name. |
| 316c0 | 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 20 20 20 20 20 20 20 20 | (mapconcat.#'identity........... |
| 316e0 | 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 72 65 | .............................(re |
| 31700 | 76 65 72 73 65 20 73 74 61 63 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | verse.stack).................... |
| 31720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 61 74 68 2d 73 65 70 61 72 61 74 | ....................path-separat |
| 31740 | 6f 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 | or))).................(t........ |
| 31760 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 64 69 73 70 6c 61 79 2d 73 74 79 6c | ..........(when.(eq.display-styl |
| 31780 | 65 20 27 68 65 61 64 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e.'headline).................... |
| 317a0 | 28 73 65 74 71 20 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 | (setq.name.(concat.(make-string. |
| 317c0 | 6c 65 76 65 6c 20 3f 2a 29 20 22 20 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | level.?*).".".name)))........... |
| 317e0 | 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 | .......(setq.name.(counsel-outli |
| 31800 | 6e 65 2d 2d 61 64 64 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ne--add-face.................... |
| 31820 | 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 6c 65 76 65 6c 20 66 61 63 65 2d 73 74 79 6c 65 20 | ..........name.level.face-style. |
| 31840 | 63 75 73 74 6f 6d 2d 66 61 63 65 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 | custom-faces))))...........(push |
| 31860 | 20 28 63 6f 6e 73 20 6e 61 6d 65 20 6d 61 72 6b 65 72 29 20 63 61 6e 64 73 29 29 0a 20 20 20 20 | .(cons.name.marker).cands))..... |
| 31880 | 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 28 73 74 72 69 6e 67 3d 20 6e 61 6d 65 20 22 22 | ....(unless.(or.(string=.name."" |
| 318a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 6f 72 69 67 2d 70 6f | ).....................(<.orig-po |
| 318c0 | 69 6e 74 20 6d 61 72 6b 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 | int.marker))...........(cl-incf. |
| 318e0 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 70 72 65 73 65 6c 65 63 74 29 29 29 29 0a 20 | counsel-outline--preselect)))).. |
| 31900 | 20 20 20 28 6e 72 65 76 65 72 73 65 20 63 61 6e 64 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | ...(nreverse.cands)))..(defun.co |
| 31920 | 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 61 64 64 2d 66 61 63 65 20 28 6e 61 6d 65 20 6c 65 | unsel-outline--add-face.(name.le |
| 31940 | 76 65 6c 20 26 6f 70 74 69 6f 6e 61 6c 20 66 61 63 65 2d 73 74 79 6c 65 20 63 75 73 74 6f 6d 2d | vel.&optional.face-style.custom- |
| 31960 | 66 61 63 65 73 29 0a 20 20 22 53 65 74 20 74 68 65 20 60 66 61 63 65 27 20 70 72 6f 70 65 72 74 | faces)..."Set.the.`face'.propert |
| 31980 | 79 20 6f 6e 20 68 65 61 64 6c 69 6e 65 20 4e 41 4d 45 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 | y.on.headline.NAME.according.to. |
| 319a0 | 4c 45 56 45 4c 2e 0a 46 41 43 45 2d 53 54 59 4c 45 20 61 6e 64 20 43 55 53 54 4f 4d 2d 46 41 43 | LEVEL..FACE-STYLE.and.CUSTOM-FAC |
| 319c0 | 45 53 20 6f 76 65 72 72 69 64 65 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 66 61 63 | ES.override.`counsel-outline-fac |
| 319e0 | 65 2d 73 74 79 6c 65 27 0a 61 6e 64 20 60 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 75 | e-style'.and.`counsel-outline-cu |
| 31a00 | 73 74 6f 6d 2d 66 61 63 65 73 27 2c 20 72 65 73 70 65 63 74 69 76 65 6c 79 2c 20 77 68 69 63 68 | stom-faces',.respectively,.which |
| 31a20 | 20 64 65 74 65 72 6d 69 6e 65 0a 74 68 65 20 66 61 63 65 20 74 6f 20 61 70 70 6c 79 2e 22 0a 20 | .determine.the.face.to.apply.".. |
| 31a40 | 20 28 6c 65 74 20 28 28 66 61 63 65 20 28 63 6c 2d 63 61 73 65 20 28 6f 72 20 66 61 63 65 2d 73 | .(let.((face.(cl-case.(or.face-s |
| 31a60 | 74 79 6c 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 66 61 63 65 2d 73 74 79 6c 65 29 | tyle.counsel-outline-face-style) |
| 31a80 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 65 72 62 61 74 69 6d 29 0a 20 20 20 20 | .................(verbatim)..... |
| 31aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 75 73 74 6f 6d 20 28 6e 74 68 20 28 31 2d 20 6c 65 76 | ............(custom.(nth.(1-.lev |
| 31ac0 | 65 6c 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 | el)............................. |
| 31ae0 | 20 28 6f 72 20 63 75 73 74 6f 6d 2d 66 61 63 65 73 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e | .(or.custom-faces.counsel-outlin |
| 31b00 | 65 2d 63 75 73 74 6f 6d 2d 66 61 63 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-custom-faces)))............... |
| 31b20 | 20 20 28 6f 72 67 20 28 66 6f 72 6d 61 74 20 22 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d | ..(org.(format."counsel-outline- |
| 31b40 | 25 64 22 20 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 27 | %d".level)).................(t.' |
| 31b60 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 65 66 61 75 6c 74 29 29 29 29 0a 20 20 20 20 | counsel-outline-default))))..... |
| 31b80 | 28 77 68 65 6e 20 66 61 63 65 0a 20 20 20 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 | (when.face.......(put-text-prope |
| 31ba0 | 72 74 79 20 30 20 28 6c 65 6e 67 74 68 20 6e 61 6d 65 29 20 27 66 61 63 65 20 66 61 63 65 20 6e | rty.0.(length.name).'face.face.n |
| 31bc0 | 61 6d 65 29 29 29 0a 20 20 6e 61 6d 65 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f | ame)))...name)..(defun.counsel-o |
| 31be0 | 75 74 6c 69 6e 65 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 47 6f 20 74 6f 20 6f 75 74 6c 69 | utline-action.(x)..."Go.to.outli |
| 31c00 | 6e 65 20 58 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 63 64 72 20 78 29 29 29 0a 0a 3b | ne.X."...(goto-char.(cdr.x)))..; |
| 31c20 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 | ;;###autoload.(defun.counsel-out |
| 31c40 | 6c 69 6e 65 20 28 29 0a 20 20 22 4a 75 6d 70 20 74 6f 20 61 6e 20 6f 75 74 6c 69 6e 65 20 68 65 | line.()..."Jump.to.an.outline.he |
| 31c60 | 61 64 69 6e 67 20 77 69 74 68 20 63 6f 6d 70 6c 65 74 69 6f 6e 2e 22 0a 20 20 28 69 6e 74 65 72 | ading.with.completion."...(inter |
| 31c80 | 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 73 65 74 74 69 6e 67 73 20 28 63 64 72 20 28 | active)...(let.((settings.(cdr.( |
| 31ca0 | 61 73 73 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d | assq.major-mode.counsel-outline- |
| 31cc0 | 73 65 74 74 69 6e 67 73 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 4f 75 74 6c | settings)))).....(ivy-read."Outl |
| 31ce0 | 69 6e 65 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 63 61 6e 64 69 64 61 74 | ine:.".(counsel-outline-candidat |
| 31d00 | 65 73 20 73 65 74 74 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 | es.settings)...............:acti |
| 31d20 | 6f 6e 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 61 63 74 69 | on.(or.(plist-get.settings.:acti |
| 31d40 | 6f 6e 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 23 27 | on)...........................#' |
| 31d60 | 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 | counsel-outline-action)......... |
| 31d80 | 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 73 65 | ......:history.(or.(plist-get.se |
| 31da0 | 74 74 69 6e 67 73 20 3a 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ttings.:history)................ |
| 31dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 68 69 73 | ............'counsel-outline-his |
| 31de0 | 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 28 | tory)...............:preselect.( |
| 31e00 | 6d 61 78 20 28 31 2d 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 2d 70 72 65 73 65 6c 65 | max.(1-.counsel-outline--presele |
| 31e20 | 63 74 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 28 6f 72 | ct).0)...............:caller.(or |
| 31e40 | 20 28 70 6c 69 73 74 2d 67 65 74 20 73 65 74 74 69 6e 67 73 20 3a 63 61 6c 6c 65 72 29 0a 20 20 | .(plist-get.settings.:caller)... |
| 31e60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 63 6f 75 6e 73 65 6c | ........................'counsel |
| 31e80 | 2d 6f 75 74 6c 69 6e 65 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 69 62 75 66 | -outline))))..;;**.`counsel-ibuf |
| 31ea0 | 66 65 72 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 2d 62 75 | fer'.(defvar.counsel-ibuffer--bu |
| 31ec0 | 66 66 65 72 2d 6e 61 6d 65 20 6e 69 6c 0a 20 20 22 4e 61 6d 65 20 6f 66 20 74 68 65 20 62 75 66 | ffer-name.nil..."Name.of.the.buf |
| 31ee0 | 66 65 72 20 74 6f 20 75 73 65 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 27 | fer.to.use.for.`counsel-ibuffer' |
| 31f00 | 2e 22 29 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 75 6e 73 | .")..;;;###autoload.(defun.couns |
| 31f20 | 65 6c 2d 69 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 61 6d 65 29 0a 20 20 22 55 | el-ibuffer.(&optional.name)..."U |
| 31f40 | 73 65 20 69 62 75 66 66 65 72 20 74 6f 20 73 77 69 74 63 68 20 74 6f 20 61 6e 6f 74 68 65 72 20 | se.ibuffer.to.switch.to.another. |
| 31f60 | 62 75 66 66 65 72 2e 0a 4e 41 4d 45 20 73 70 65 63 69 66 69 65 73 20 74 68 65 20 6e 61 6d 65 20 | buffer..NAME.specifies.the.name. |
| 31f80 | 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 28 64 65 66 61 75 6c 74 73 20 74 6f 20 5c 22 2a 49 62 | of.the.buffer.(defaults.to.\"*Ib |
| 31fa0 | 75 66 66 65 72 2a 5c 22 29 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 73 | uffer*\")."...(interactive)...(s |
| 31fc0 | 65 74 71 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 | etq.counsel-ibuffer--buffer-name |
| 31fe0 | 20 28 6f 72 20 6e 61 6d 65 20 22 2a 49 62 75 66 66 65 72 2a 22 29 29 0a 20 20 28 69 76 79 2d 72 | .(or.name."*Ibuffer*"))...(ivy-r |
| 32000 | 65 61 64 20 22 53 77 69 74 63 68 20 74 6f 20 62 75 66 66 65 72 3a 20 22 20 28 63 6f 75 6e 73 65 | ead."Switch.to.buffer:.".(counse |
| 32020 | 6c 2d 2d 69 62 75 66 66 65 72 2d 67 65 74 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 | l--ibuffer-get-buffers)......... |
| 32040 | 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 68 69 | ....:history.'counsel-ibuffer-hi |
| 32060 | 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e | story.............:action.#'coun |
| 32080 | 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 | sel-ibuffer-visit-buffer........ |
| 320a0 | 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 29 29 0a | .....:caller.'counsel-ibuffer)). |
| 320c0 | 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 62 75 66 66 65 72 2d 75 70 64 61 74 | .(declare-function.ibuffer-updat |
| 320e0 | 65 20 22 69 62 75 66 66 65 72 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 | e."ibuffer").(declare-function.i |
| 32100 | 62 75 66 66 65 72 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 22 69 62 75 66 66 65 72 22 29 | buffer-current-buffer."ibuffer") |
| 32120 | 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 62 75 66 66 65 72 2d 66 6f 72 77 61 | .(declare-function.ibuffer-forwa |
| 32140 | 72 64 2d 6c 69 6e 65 20 22 69 62 75 66 66 65 72 22 29 0a 28 64 65 66 76 61 72 20 69 62 75 66 66 | rd-line."ibuffer").(defvar.ibuff |
| 32160 | 65 72 2d 6d 6f 76 65 6d 65 6e 74 2d 63 79 63 6c 65 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | er-movement-cycle)..(defun.couns |
| 32180 | 65 6c 2d 2d 69 62 75 66 66 65 72 2d 67 65 74 2d 62 75 66 66 65 72 73 20 28 29 0a 20 20 22 52 65 | el--ibuffer-get-buffers.()..."Re |
| 321a0 | 74 75 72 6e 20 61 6e 20 61 6c 69 73 74 20 77 69 74 68 20 62 75 66 66 65 72 20 63 6f 6d 70 6c 65 | turn.an.alist.with.buffer.comple |
| 321c0 | 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 73 20 66 72 6f 6d 20 49 62 75 66 66 65 72 2e 0a 54 68 | tion.candidates.from.Ibuffer..Th |
| 321e0 | 65 20 6b 65 79 73 20 61 72 65 20 62 75 66 66 65 72 2d 72 65 6c 61 74 65 64 20 6c 69 6e 65 73 20 | e.keys.are.buffer-related.lines. |
| 32200 | 66 72 6f 6d 20 49 62 75 66 66 65 72 20 61 73 20 73 74 72 69 6e 67 73 2c 20 61 6e 64 0a 74 68 65 | from.Ibuffer.as.strings,.and.the |
| 32220 | 20 76 61 6c 75 65 73 20 61 72 65 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 62 75 | .values.are.the.corresponding.bu |
| 32240 | 66 66 65 72 20 6f 62 6a 65 63 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 62 75 66 20 28 | ffer.objects."...(let.((oldbuf.( |
| 32260 | 67 65 74 2d 62 75 66 66 65 72 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 2d 62 75 66 66 | get-buffer.counsel-ibuffer--buff |
| 32280 | 65 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 6f 6c 64 62 75 66 0a 20 20 | er-name))).....(unless.oldbuf... |
| 322a0 | 20 20 20 20 3b 3b 20 41 76 6f 69 64 20 6d 65 73 73 69 6e 67 20 77 69 74 68 20 74 68 65 20 75 73 | ....;;.Avoid.messing.with.the.us |
| 322c0 | 65 72 27 73 20 70 72 65 63 69 6f 75 73 20 77 69 6e 64 6f 77 2f 66 72 61 6d 65 20 63 6f 6e 66 69 | er's.precious.window/frame.confi |
| 322e0 | 67 75 72 61 74 69 6f 6e 2e 0a 20 20 20 20 20 20 28 73 61 76 65 2d 77 69 6e 64 6f 77 2d 65 78 63 | guration........(save-window-exc |
| 32300 | 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 73 70 6c 61 79 2d 62 75 | ursion.........(let.((display-bu |
| 32320 | 66 66 65 72 2d 6f 76 65 72 72 69 64 69 6e 67 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | ffer-overriding-action.......... |
| 32340 | 20 20 20 20 20 20 27 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 73 61 6d 65 2d 77 69 6e 64 | ......'(display-buffer-same-wind |
| 32360 | 6f 77 20 28 69 6e 68 69 62 69 74 2d 73 61 6d 65 2d 77 69 6e 64 6f 77 20 2e 20 6e 69 6c 29 29 29 | ow.(inhibit-same-window...nil))) |
| 32380 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 62 75 66 66 65 72 20 6e 69 6c 20 63 6f 75 6e 73 65 6c | )...........(ibuffer.nil.counsel |
| 323a0 | 2d 69 62 75 66 66 65 72 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 29 0a | -ibuffer--buffer-name.nil.t)))). |
| 323c0 | 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 63 6f 75 6e 73 65 6c | ....(with-current-buffer.counsel |
| 323e0 | 2d 69 62 75 66 66 65 72 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 20 20 20 28 77 68 65 | -ibuffer--buffer-name.......(whe |
| 32400 | 6e 20 6f 6c 64 62 75 66 0a 20 20 20 20 20 20 20 20 3b 3b 20 46 6f 72 63 69 62 6c 79 20 75 70 64 | n.oldbuf.........;;.Forcibly.upd |
| 32420 | 61 74 65 20 70 6f 73 73 69 62 6c 79 20 73 74 61 6c 65 20 65 78 69 73 74 69 6e 67 20 62 75 66 66 | ate.possibly.stale.existing.buff |
| 32440 | 65 72 2e 0a 20 20 20 20 20 20 20 20 28 69 62 75 66 66 65 72 2d 75 70 64 61 74 65 20 6e 69 6c 20 | er..........(ibuffer-update.nil. |
| 32460 | 74 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 | t)).......(goto-char.(point-min) |
| 32480 | 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 62 75 66 66 65 72 2d 6d 6f 76 65 6d 65 6e 74 2d | ).......(let.((ibuffer-movement- |
| 324a0 | 63 79 63 6c 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 29 0a | cycle.nil).............entries). |
| 324c0 | 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 | ........(while.(not.(eobp))..... |
| 324e0 | 20 20 20 20 20 20 28 69 62 75 66 66 65 72 2d 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 20 74 29 | ......(ibuffer-forward-line.1.t) |
| 32500 | 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 69 62 75 66 66 65 72 2d 63 | ...........(let.((buf.(ibuffer-c |
| 32520 | 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | urrent-buffer))).............;;. |
| 32540 | 57 65 20 61 72 65 20 6f 6e 6c 79 20 69 6e 74 65 72 65 73 74 65 64 20 69 6e 20 62 75 66 66 65 72 | We.are.only.interested.in.buffer |
| 32560 | 73 20 77 65 20 63 61 6e 20 61 63 74 75 61 6c 6c 79 20 76 69 73 69 74 2e 0a 20 20 20 20 20 20 20 | s.we.can.actually.visit......... |
| 32580 | 20 20 20 20 20 3b 3b 20 54 68 69 73 20 66 69 6c 74 65 72 73 20 6f 75 74 20 68 65 61 64 69 6e 67 | .....;;.This.filters.out.heading |
| 325a0 | 73 20 61 6e 64 20 6f 74 68 65 72 20 75 6e 75 73 61 62 6c 65 20 65 6e 74 72 69 65 73 2e 0a 20 20 | s.and.other.unusable.entries.... |
| 325c0 | 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 | ..........(when.(buffer-live-p.b |
| 325e0 | 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 28 62 | uf)...............(push.(cons.(b |
| 32600 | 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 | uffer-substring-no-properties... |
| 32620 | 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 6c 69 6e 65 2d 62 | .........................(line-b |
| 32640 | 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | eginning-position).............. |
| 32660 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e | ..............(line-end-position |
| 32680 | 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 62 75 66 | ))...........................buf |
| 326a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 69 65 73 29 29 29 | ).....................entries))) |
| 326c0 | 29 0a 20 20 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 65 6e 74 72 69 65 73 29 29 29 29 29 | ).........(nreverse.entries))))) |
| 326e0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 62 | ..(defun.counsel-ibuffer-visit-b |
| 32700 | 75 66 66 65 72 20 28 78 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 62 75 66 66 65 72 20 6f 66 | uffer.(x)..."Switch.to.buffer.of |
| 32720 | 20 63 61 6e 64 69 64 61 74 65 20 58 2e 22 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 | .candidate.X."...(switch-to-buff |
| 32740 | 65 72 20 28 6f 72 20 28 63 64 72 2d 73 61 66 65 20 78 29 20 78 29 29 29 0a 0a 28 64 65 66 75 6e | er.(or.(cdr-safe.x).x)))..(defun |
| 32760 | 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 62 75 66 66 65 72 2d 6f 74 | .counsel-ibuffer-visit-buffer-ot |
| 32780 | 68 65 72 2d 77 69 6e 64 6f 77 20 28 78 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 62 75 66 66 | her-window.(x)..."Switch.to.buff |
| 327a0 | 65 72 20 6f 66 20 63 61 6e 64 69 64 61 74 65 20 58 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 69 6e | er.of.candidate.X.in.another.win |
| 327c0 | 64 6f 77 2e 22 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d | dow."...(switch-to-buffer-other- |
| 327e0 | 77 69 6e 64 6f 77 20 28 6f 72 20 28 63 64 72 2d 73 61 66 65 20 78 29 20 78 29 29 29 0a 0a 28 64 | window.(or.(cdr-safe.x).x)))..(d |
| 32800 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 69 62 75 66 66 | efun.counsel-ibuffer-visit-ibuff |
| 32820 | 65 72 20 28 5f 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 49 62 75 66 66 65 72 20 62 75 66 66 | er.(_)..."Switch.to.Ibuffer.buff |
| 32840 | 65 72 2e 22 0a 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 63 6f 75 6e 73 65 6c | er."...(switch-to-buffer.counsel |
| 32860 | 2d 69 62 75 66 66 65 72 2d 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 0a 28 69 76 79 2d 73 65 | -ibuffer--buffer-name))..(ivy-se |
| 32880 | 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 0a 20 27 28 28 | t-actions..'counsel-ibuffer..'(( |
| 328a0 | 22 6a 22 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 62 75 66 66 65 72 | "j".counsel-ibuffer-visit-buffer |
| 328c0 | 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 0a 20 20 | -other-window."other.window")... |
| 328e0 | 20 28 22 76 22 20 63 6f 75 6e 73 65 6c 2d 69 62 75 66 66 65 72 2d 76 69 73 69 74 2d 69 62 75 66 | .("v".counsel-ibuffer-visit-ibuf |
| 32900 | 66 65 72 20 22 73 77 69 74 63 68 20 74 6f 20 49 62 75 66 66 65 72 22 29 29 29 0a 0a 3b 3b 2a 2a | fer."switch.to.Ibuffer")))..;;** |
| 32920 | 20 60 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 74 6f 2d 73 68 65 6c 6c 2d 62 75 66 66 65 72 | .`counsel-switch-to-shell-buffer |
| 32940 | 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 62 75 66 66 65 72 73 2d 77 69 74 68 2d 6d | '.(defun.counsel--buffers-with-m |
| 32960 | 6f 64 65 20 28 6d 6f 64 65 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 61 6d 65 73 20 6f 66 20 62 75 | ode.(mode)..."Return.names.of.bu |
| 32980 | 66 66 65 72 73 20 77 69 74 68 20 4d 4f 44 45 20 61 73 20 74 68 65 69 72 20 60 6d 61 6a 6f 72 2d | ffers.with.MODE.as.their.`major- |
| 329a0 | 6d 6f 64 65 27 2e 22 0a 20 20 28 6c 65 74 20 28 62 75 66 73 29 0a 20 20 20 20 28 64 6f 6c 69 73 | mode'."...(let.(bufs).....(dolis |
| 329c0 | 74 20 28 62 75 66 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 | t.(buf.(buffer-list)).......(whe |
| 329e0 | 6e 20 28 65 71 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 6d 61 6a 6f 72 | n.(eq.(buffer-local-value.'major |
| 32a00 | 2d 6d 6f 64 65 20 62 75 66 29 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | -mode.buf).mode).........(push.( |
| 32a20 | 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 29 20 62 75 66 73 29 29 29 0a 20 20 20 20 28 6e 72 | buffer-name.buf).bufs))).....(nr |
| 32a40 | 65 76 65 72 73 65 20 62 75 66 73 29 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f | everse.bufs)))..(declare-functio |
| 32a60 | 6e 20 73 68 65 6c 6c 2d 6d 6f 64 65 20 22 73 68 65 6c 6c 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | n.shell-mode."shell")..;;;###aut |
| 32a80 | 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 74 6f 2d 73 | oload.(defun.counsel-switch-to-s |
| 32aa0 | 68 65 6c 6c 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 61 20 73 68 | hell-buffer.()..."Switch.to.a.sh |
| 32ac0 | 65 6c 6c 20 62 75 66 66 65 72 2c 20 6f 72 20 63 72 65 61 74 65 20 6f 6e 65 2e 22 0a 20 20 28 69 | ell.buffer,.or.create.one."...(i |
| 32ae0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 68 65 6c 6c 20 62 | nteractive)...(ivy-read."Shell.b |
| 32b00 | 75 66 66 65 72 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 2d 62 75 66 66 65 72 73 2d 77 69 74 68 2d | uffer:.".(counsel--buffers-with- |
| 32b20 | 6d 6f 64 65 20 23 27 73 68 65 6c 6c 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a | mode.#'shell-mode).............: |
| 32b40 | 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 74 6f 2d 73 68 65 6c | action.#'counsel--switch-to-shel |
| 32b60 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 73 | l.............:caller.'counsel-s |
| 32b80 | 77 69 74 63 68 2d 74 6f 2d 73 68 65 6c 6c 2d 62 75 66 66 65 72 29 29 0a 0a 28 64 65 66 75 6e 20 | witch-to-shell-buffer))..(defun. |
| 32ba0 | 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 74 6f 2d 73 68 65 6c 6c 20 28 6e 61 6d 65 29 0a | counsel--switch-to-shell.(name). |
| 32bc0 | 20 20 22 44 69 73 70 6c 61 79 20 73 68 65 6c 6c 20 62 75 66 66 65 72 20 77 69 74 68 20 4e 41 4d | .."Display.shell.buffer.with.NAM |
| 32be0 | 45 20 61 6e 64 20 73 65 6c 65 63 74 20 69 74 73 20 77 69 6e 64 6f 77 2e 0a 52 65 75 73 65 20 61 | E.and.select.its.window..Reuse.a |
| 32c00 | 6e 79 20 65 78 69 73 74 69 6e 67 20 77 69 6e 64 6f 77 20 61 6c 72 65 61 64 79 20 64 69 73 70 6c | ny.existing.window.already.displ |
| 32c20 | 61 79 69 6e 67 20 74 68 65 20 6e 61 6d 65 64 20 62 75 66 66 65 72 2e 0a 49 66 20 74 68 65 72 65 | aying.the.named.buffer..If.there |
| 32c40 | 20 69 73 20 6e 6f 20 73 75 63 68 20 62 75 66 66 65 72 2c 20 73 74 61 72 74 20 61 20 6e 65 77 20 | .is.no.such.buffer,.start.a.new. |
| 32c60 | 60 73 68 65 6c 6c 27 20 77 69 74 68 20 4e 41 4d 45 2e 22 0a 20 20 28 69 66 20 28 67 65 74 2d 62 | `shell'.with.NAME."...(if.(get-b |
| 32c80 | 75 66 66 65 72 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 | uffer.name).......(pop-to-buffer |
| 32ca0 | 20 6e 61 6d 65 20 27 28 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 72 65 75 73 65 2d 77 69 | .name.'((display-buffer-reuse-wi |
| 32cc0 | 6e 64 6f 77 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 | ndow............................ |
| 32ce0 | 20 20 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 73 61 6d 65 2d 77 69 6e 64 6f 77 29 0a 20 20 | ..display-buffer-same-window)... |
| 32d00 | 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 69 6e 68 69 62 | ..........................(inhib |
| 32d20 | 69 74 2d 73 61 6d 65 2d 77 69 6e 64 6f 77 20 2e 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 | it-same-window...nil)........... |
| 32d40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 75 73 61 62 6c 65 2d 66 72 61 6d | ..................(reusable-fram |
| 32d60 | 65 73 20 2e 20 76 69 73 69 62 6c 65 29 29 29 0a 20 20 20 20 28 73 68 65 6c 6c 20 6e 61 6d 65 29 | es...visible))).....(shell.name) |
| 32d80 | 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 27 0a | ))..;;**.`counsel-unicode-char'. |
| 32da0 | 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 2d 68 69 73 | (defvar.counsel-unicode-char-his |
| 32dc0 | 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c | tory.nil..."History.for.`counsel |
| 32de0 | 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | -unicode-char'.")..(defun.counse |
| 32e00 | 6c 2d 2d 75 6e 69 63 6f 64 65 2d 6e 61 6d 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 66 6f | l--unicode-names.()..."Return.fo |
| 32e20 | 72 6d 61 74 74 65 64 20 61 6e 64 20 73 6f 72 74 65 64 20 6c 69 73 74 20 6f 66 20 60 75 63 73 2d | rmatted.and.sorted.list.of.`ucs- |
| 32e40 | 6e 61 6d 65 73 27 2e 0a 54 68 65 20 72 65 73 75 6c 74 20 6f 66 20 60 75 63 73 2d 6e 61 6d 65 73 | names'..The.result.of.`ucs-names |
| 32e60 | 27 20 69 73 20 6d 6f 73 74 6c 79 2c 20 62 75 74 20 6e 6f 74 20 63 6f 6d 70 6c 65 74 65 6c 79 2c | '.is.mostly,.but.not.completely, |
| 32e80 | 20 73 6f 72 74 65 64 2c 0a 73 6f 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 65 6e 73 75 72 65 | .sorted,.so.this.function.ensure |
| 32ea0 | 73 20 6c 65 78 69 63 6f 67 72 61 70 68 69 63 20 6f 72 64 65 72 2e 22 0a 20 20 28 6c 65 74 2a 20 | s.lexicographic.order."...(let*. |
| 32ec0 | 28 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 28 74 61 62 6c 65 20 28 75 63 73 2d 6e 61 6d 65 | (cands..........(table.(ucs-name |
| 32ee0 | 73 29 29 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 45 69 74 68 65 72 20 68 61 73 68 20 6d 61 70 | s))............;.Either.hash.map |
| 32f00 | 20 6f 72 20 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 28 66 6d 74 20 28 6c 61 6d 62 64 61 20 | .or.alist..........(fmt.(lambda. |
| 32f20 | 28 6e 61 6d 65 20 63 6f 64 65 29 20 20 20 20 20 20 20 3b 20 43 6f 6d 6d 6f 6e 20 66 6f 72 6d 61 | (name.code).......;.Common.forma |
| 32f40 | 74 20 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 | t.function.................(let. |
| 32f60 | 28 28 63 61 6e 64 20 28 66 6f 72 6d 61 74 20 22 25 30 36 58 20 25 2d 35 38 73 20 25 63 22 20 63 | ((cand.(format."%06X.%-58s.%c".c |
| 32f80 | 6f 64 65 20 6e 61 6d 65 20 63 6f 64 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ode.name.code)))................ |
| 32fa0 | 20 20 20 28 70 75 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 31 20 27 63 6f 64 65 20 | ...(put-text-property.0.1.'code. |
| 32fc0 | 63 6f 64 65 20 63 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 | code.cand)...................(pu |
| 32fe0 | 73 68 20 63 61 6e 64 20 63 61 6e 64 73 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 | sh.cand.cands))))).....(if.(not. |
| 33000 | 28 68 61 73 68 2d 74 61 62 6c 65 2d 70 20 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 3b 3b | (hash-table-p.table)).........;; |
| 33020 | 20 53 75 70 70 6f 72 74 20 60 75 63 73 2d 6e 61 6d 65 73 27 20 72 65 74 75 72 6e 69 6e 67 20 61 | .Support.`ucs-names'.returning.a |
| 33040 | 6e 20 61 6c 69 73 74 20 69 6e 20 45 6d 61 63 73 20 3c 20 32 36 2e 0a 20 20 20 20 20 20 20 20 3b | n.alist.in.Emacs.<.26..........; |
| 33060 | 3b 20 54 68 65 20 72 65 73 75 6c 74 20 6f 66 20 60 75 63 73 2d 6e 61 6d 65 73 27 20 63 6f 6d 65 | ;.The.result.of.`ucs-names'.come |
| 33080 | 73 20 70 72 65 2d 72 65 76 65 72 73 65 64 20 73 6f 20 6e 6f 20 6e 65 65 64 20 74 6f 20 72 65 70 | s.pre-reversed.so.no.need.to.rep |
| 330a0 | 65 61 74 2e 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 65 6e 74 72 79 20 74 61 62 6c | eat..........(dolist.(entry.tabl |
| 330c0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6d 74 20 28 63 61 72 20 65 | e)...........(funcall.fmt.(car.e |
| 330e0 | 6e 74 72 79 29 20 28 63 64 72 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 20 20 28 6d 61 70 68 61 | ntry).(cdr.entry))).......(mapha |
| 33100 | 73 68 20 66 6d 74 20 74 61 62 6c 65 29 0a 20 20 20 20 20 20 3b 3b 20 52 65 76 65 72 73 65 20 74 | sh.fmt.table).......;;.Reverse.t |
| 33120 | 6f 20 73 70 65 65 64 20 75 70 20 73 6f 72 74 69 6e 67 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 | o.speed.up.sorting.......(setq.c |
| 33140 | 61 6e 64 73 20 28 6e 72 65 76 65 72 73 65 20 63 61 6e 64 73 29 29 29 0a 20 20 20 20 28 73 6f 72 | ands.(nreverse.cands))).....(sor |
| 33160 | 74 20 63 61 6e 64 73 20 23 27 73 74 72 69 6e 67 2d 6c 65 73 73 70 29 29 29 0a 0a 28 64 65 66 76 | t.cands.#'string-lessp)))..(defv |
| 33180 | 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 75 6e 69 63 6f 64 65 2d 74 61 62 6c 65 0a 20 20 28 6c 61 7a | ar.counsel--unicode-table...(laz |
| 331a0 | 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 20 63 6f 75 6e 73 65 6c 2d 2d 75 6e 69 63 | y-completion-table.counsel--unic |
| 331c0 | 6f 64 65 2d 74 61 62 6c 65 20 63 6f 75 6e 73 65 6c 2d 2d 75 6e 69 63 6f 64 65 2d 6e 61 6d 65 73 | ode-table.counsel--unicode-names |
| 331e0 | 29 0a 20 20 22 4c 61 7a 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 74 61 62 6c 65 20 66 6f 72 20 60 | )..."Lazy.completion.table.for.` |
| 33200 | 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 27 2e 0a 43 61 6e 64 69 64 61 74 65 | counsel-unicode-char'..Candidate |
| 33220 | 73 20 63 6f 6d 70 72 69 73 65 20 60 63 6f 75 6e 73 65 6c 2d 2d 75 6e 69 63 6f 64 65 2d 6e 61 6d | s.comprise.`counsel--unicode-nam |
| 33240 | 65 73 27 2c 20 77 68 69 63 68 20 73 65 65 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 | es',.which.see.")..;;;###autoloa |
| 33260 | 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 20 28 26 | d.(defun.counsel-unicode-char.(& |
| 33280 | 6f 70 74 69 6f 6e 61 6c 20 63 6f 75 6e 74 29 0a 20 20 22 49 6e 73 65 72 74 20 43 4f 55 4e 54 20 | optional.count)..."Insert.COUNT. |
| 332a0 | 63 6f 70 69 65 73 20 6f 66 20 61 20 55 6e 69 63 6f 64 65 20 63 68 61 72 61 63 74 65 72 20 61 74 | copies.of.a.Unicode.character.at |
| 332c0 | 20 70 6f 69 6e 74 2e 0a 43 4f 55 4e 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 22 0a 20 20 | .point..COUNT.defaults.to.1."... |
| 332e0 | 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 73 65 74 71 20 69 76 79 2d 63 6f | (interactive."p")...(setq.ivy-co |
| 33300 | 6d 70 6c 65 74 69 6f 6e 2d 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 28 73 65 74 71 20 69 76 | mpletion-beg.(point))...(setq.iv |
| 33320 | 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 0a 20 20 28 69 76 79 | y-completion-end.(point))...(ivy |
| 33340 | 2d 72 65 61 64 20 22 55 6e 69 63 6f 64 65 20 6e 61 6d 65 3a 20 22 20 63 6f 75 6e 73 65 6c 2d 2d | -read."Unicode.name:.".counsel-- |
| 33360 | 75 6e 69 63 6f 64 65 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f | unicode-table.............:histo |
| 33380 | 72 79 20 27 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 2d 68 69 73 74 6f 72 79 | ry.'counsel-unicode-char-history |
| 333a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 6e 61 | .............:action.(lambda.(na |
| 333c0 | 6d 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 28 77 69 74 68 2d | me).......................(with- |
| 333e0 | 69 76 79 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ivy-window...................... |
| 33400 | 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 69 76 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e | ...(delete-region.ivy-completion |
| 33420 | 2d 62 65 67 20 69 76 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 65 6e 64 29 0a 20 20 20 20 20 20 20 | -beg.ivy-completion-end)........ |
| 33440 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 69 76 79 2d 63 6f 6d 70 6c | .................(setq.ivy-compl |
| 33460 | 65 74 69 6f 6e 2d 62 65 67 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | etion-beg.(point)).............. |
| 33480 | 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 63 68 61 72 20 28 67 65 74 2d 74 65 78 | ...........(insert-char.(get-tex |
| 334a0 | 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 63 6f 64 65 20 6e 61 6d 65 29 20 63 6f 75 6e 74 29 0a | t-property.0.'code.name).count). |
| 334c0 | 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 65 74 71 20 69 76 | ........................(setq.iv |
| 334e0 | 79 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 65 6e 64 20 28 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 | y-completion-end.(point))))..... |
| 33500 | 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 | ........:caller.'counsel-unicode |
| 33520 | 2d 63 68 61 72 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c | -char))..(ivy-configure.'counsel |
| 33540 | 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 2d 73 | -unicode-char...:sort-fn.#'ivy-s |
| 33560 | 74 72 69 6e 67 3c 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d | tring<)..(defun.counsel-unicode- |
| 33580 | 63 6f 70 79 20 28 6e 61 6d 65 29 0a 20 20 22 49 76 79 20 61 63 74 69 6f 6e 20 74 6f 20 63 6f 70 | copy.(name)..."Ivy.action.to.cop |
| 335a0 | 79 20 74 68 65 20 75 6e 69 63 6f 64 65 20 66 72 6f 6d 20 4e 41 4d 45 20 74 6f 20 74 68 65 20 6b | y.the.unicode.from.NAME.to.the.k |
| 335c0 | 69 6c 6c 20 72 69 6e 67 2e 22 0a 20 20 28 6b 69 6c 6c 2d 6e 65 77 20 28 63 68 61 72 2d 74 6f 2d | ill.ring."...(kill-new.(char-to- |
| 335e0 | 73 74 72 69 6e 67 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 63 6f 64 | string.(get-text-property.0.'cod |
| 33600 | 65 20 6e 61 6d 65 29 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 | e.name))))..(ivy-set-actions..'c |
| 33620 | 6f 75 6e 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 68 61 72 0a 20 27 28 28 22 77 22 20 63 6f 75 6e | ounsel-unicode-char..'(("w".coun |
| 33640 | 73 65 6c 2d 75 6e 69 63 6f 64 65 2d 63 6f 70 79 20 22 63 6f 70 79 22 29 29 29 0a 0a 3b 3b 2a 2a | sel-unicode-copy."copy")))..;;** |
| 33660 | 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | .`counsel-colors'.(defun.counsel |
| 33680 | 2d 63 6f 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 69 6e 73 65 72 74 2d 68 65 78 20 28 63 6f 6c 6f 72 | -colors-action-insert-hex.(color |
| 336a0 | 29 0a 20 20 22 49 6e 73 65 72 74 20 74 68 65 20 68 65 78 61 64 65 63 69 6d 61 6c 20 52 47 42 20 | )..."Insert.the.hexadecimal.RGB. |
| 336c0 | 76 61 6c 75 65 20 6f 66 20 43 4f 4c 4f 52 2e 22 0a 20 20 28 69 6e 73 65 72 74 20 28 67 65 74 2d | value.of.COLOR."...(insert.(get- |
| 336e0 | 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 68 65 78 20 63 6f 6c 6f 72 29 29 29 0a 0a 28 | text-property.0.'hex.color)))..( |
| 33700 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 6b 69 6c 6c | defun.counsel-colors-action-kill |
| 33720 | 2d 68 65 78 20 28 63 6f 6c 6f 72 29 0a 20 20 22 4b 69 6c 6c 20 74 68 65 20 68 65 78 61 64 65 63 | -hex.(color)..."Kill.the.hexadec |
| 33740 | 69 6d 61 6c 20 52 47 42 20 76 61 6c 75 65 20 6f 66 20 43 4f 4c 4f 52 2e 22 0a 20 20 28 6b 69 6c | imal.RGB.value.of.COLOR."...(kil |
| 33760 | 6c 2d 6e 65 77 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 68 65 78 20 | l-new.(get-text-property.0.'hex. |
| 33780 | 63 6f 6c 6f 72 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 | color)))..;;**.`counsel-colors-e |
| 337a0 | 6d 61 63 73 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 | macs'.(defvar.counsel-colors-ema |
| 337c0 | 63 73 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f | cs-history.()..."History.for.`co |
| 337e0 | 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 | unsel-colors-emacs'.")..(defun.c |
| 33800 | 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 2d 6e 61 6d 65 2d 74 6f 2d 68 65 78 20 28 6e 61 6d 65 | ounsel-colors--name-to-hex.(name |
| 33820 | 29 0a 20 20 22 52 65 74 75 72 6e 20 68 65 78 61 64 65 63 69 6d 61 6c 20 52 47 42 20 76 61 6c 75 | )..."Return.hexadecimal.RGB.valu |
| 33840 | 65 20 6f 66 20 63 6f 6c 6f 72 20 77 69 74 68 20 4e 41 4d 45 2e 0a 0a 52 65 74 75 72 6e 20 6e 69 | e.of.color.with.NAME...Return.ni |
| 33860 | 6c 20 69 66 20 4e 41 4d 45 20 64 6f 65 73 20 6e 6f 74 20 64 65 73 69 67 6e 61 74 65 20 61 20 76 | l.if.NAME.does.not.designate.a.v |
| 33880 | 61 6c 69 64 20 63 6f 6c 6f 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 72 67 62 20 28 63 6f 6c 6f 72 | alid.color."...(let.((rgb.(color |
| 338a0 | 2d 6e 61 6d 65 2d 74 6f 2d 72 67 62 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 72 | -name-to-rgb.name))).....(when.r |
| 338c0 | 67 62 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 63 6f 6c 6f 72 2d 72 67 62 2d 74 6f 2d 68 | gb.......(apply.#'color-rgb-to-h |
| 338e0 | 65 78 20 72 67 62 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 73 68 72 2d 63 6f 6c 6f 72 2d 76 69 | ex.rgb))))..(defvar.shr-color-vi |
| 33900 | 73 69 62 6c 65 2d 6c 75 6d 69 6e 61 6e 63 65 2d 6d 69 6e 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 | sible-luminance-min).(declare-fu |
| 33920 | 6e 63 74 69 6f 6e 20 73 68 72 2d 63 6f 6c 6f 72 2d 76 69 73 69 62 6c 65 20 22 73 68 72 2d 63 6f | nction.shr-color-visible."shr-co |
| 33940 | 6c 6f 72 22 29 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 66 6f | lor").(defvar.counsel--colors-fo |
| 33960 | 72 6d 61 74 20 22 25 2d 32 30 73 20 25 73 20 25 73 25 73 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f | rmat."%-20s.%s.%s%s")..(defun.co |
| 33980 | 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 | unsel--colors-emacs-format-funct |
| 339a0 | 69 6f 6e 20 28 63 6f 6c 6f 72 73 29 0a 20 20 22 46 6f 72 6d 61 74 20 66 75 6e 63 74 69 6f 6e 20 | ion.(colors)..."Format.function. |
| 339c0 | 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 27 2e 22 0a 20 20 28 | for.`counsel-colors-emacs'."...( |
| 339e0 | 72 65 71 75 69 72 65 20 27 73 68 72 2d 63 6f 6c 6f 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 6c | require.'shr-color)...(let*.((bl |
| 33a00 | 61 6e 6b 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 30 20 3f 5c 73 29 29 0a 20 20 20 20 20 20 | ank.(make-string.10.?\s))....... |
| 33a20 | 20 20 20 28 66 6f 72 6d 61 74 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 | ...(formatter...........(lambda. |
| 33a40 | 28 63 6f 6c 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 67 20 28 6c | (color).............(let.((fg.(l |
| 33a60 | 69 73 74 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 63 6f 6c 6f 72 29 29 29 0a 20 20 20 20 20 20 20 | ist.:foreground.color)))........ |
| 33a80 | 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 66 | .......(format.counsel--colors-f |
| 33aa0 | 6f 72 6d 61 74 20 63 6f 6c 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ormat.color..................... |
| 33ac0 | 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 | ..(propertize.(get-text-property |
| 33ae0 | 20 30 20 27 68 65 78 20 63 6f 6c 6f 72 29 20 27 66 61 63 65 20 66 67 29 0a 20 20 20 20 20 20 20 | .0.'hex.color).'face.fg)........ |
| 33b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 62 6c 61 6e 6b | ...............(propertize.blank |
| 33b20 | 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 63 6f 6c 6f 72 29 29 | .'face.(list.:background.color)) |
| 33b40 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 | .......................(properti |
| 33b60 | 7a 65 20 28 6d 61 70 63 6f 6e 63 61 74 20 28 6c 61 6d 62 64 61 20 28 64 75 70 29 0a 20 20 20 20 | ze.(mapconcat.(lambda.(dup)..... |
| 33b80 | 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 | ................................ |
| 33ba0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 20 22 20 64 75 70 29 29 0a 20 20 20 | ...........(concat.".".dup)).... |
| 33bc0 | 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 | ................................ |
| 33be0 | 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 | ..........(get-text-property.0.' |
| 33c00 | 64 75 70 73 20 63 6f 6c 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dups.color)..................... |
| 33c20 | 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 22 2c 22 29 0a 20 20 | .........................",")... |
| 33c40 | 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 | ................................ |
| 33c60 | 27 66 61 63 65 20 66 67 29 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 2d 66 6f 72 6d 61 74 2d | 'face.fg)))))).....(ivy--format- |
| 33c80 | 66 75 6e 63 74 69 6f 6e 2d 67 65 6e 65 72 69 63 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 | function-generic......(lambda.(c |
| 33ca0 | 6f 6c 6f 72 29 0a 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 68 65 78 20 28 67 65 74 2d 74 65 | olor)........(let*.((hex.(get-te |
| 33cc0 | 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 68 65 78 20 63 6f 6c 6f 72 29 29 0a 20 20 20 20 20 | xt-property.0.'hex.color))...... |
| 33ce0 | 20 20 20 20 20 20 20 20 20 28 73 68 72 2d 63 6f 6c 6f 72 2d 76 69 73 69 62 6c 65 2d 6c 75 6d 69 | .........(shr-color-visible-lumi |
| 33d00 | 6e 61 6e 63 65 2d 6d 69 6e 20 31 30 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 67 | nance-min.100)...............(fg |
| 33d20 | 20 28 63 61 64 72 20 28 73 68 72 2d 63 6f 6c 6f 72 2d 76 69 73 69 62 6c 65 20 68 65 78 20 22 62 | .(cadr.(shr-color-visible.hex."b |
| 33d40 | 6c 61 63 6b 22 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 | lack".t))))..........(propertize |
| 33d60 | 20 28 66 75 6e 63 61 6c 6c 20 66 6f 72 6d 61 74 74 65 72 20 63 6f 6c 6f 72 29 0a 20 20 20 20 20 | .(funcall.formatter.color)...... |
| 33d80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 66 6f 72 | ................'face.(list.:for |
| 33da0 | 65 67 72 6f 75 6e 64 20 66 67 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 68 65 78 29 29 29 29 0a 20 | eground.fg.:background.hex)))).. |
| 33dc0 | 20 20 20 20 66 6f 72 6d 61 74 74 65 72 20 63 6f 6c 6f 72 73 20 22 5c 6e 22 29 29 29 0a 0a 28 64 | ....formatter.colors."\n")))..(d |
| 33de0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 77 65 62 2d 66 6f 72 6d 61 74 2d | efun.counsel--colors-web-format- |
| 33e00 | 66 75 6e 63 74 69 6f 6e 20 28 63 6f 6c 6f 72 73 29 0a 20 20 22 46 6f 72 6d 61 74 20 66 75 6e 63 | function.(colors)..."Format.func |
| 33e20 | 74 69 6f 6e 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 27 2e 22 0a | tion.for.`counsel-colors-web'.". |
| 33e40 | 20 20 28 72 65 71 75 69 72 65 20 27 73 68 72 2d 63 6f 6c 6f 72 29 0a 20 20 28 6c 65 74 2a 20 28 | ..(require.'shr-color)...(let*.( |
| 33e60 | 28 62 6c 61 6e 6b 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 31 30 20 3f 5c 73 29 29 0a 20 20 20 | (blank.(make-string.10.?\s)).... |
| 33e80 | 20 20 20 20 20 20 28 66 6f 72 6d 61 74 74 65 72 20 28 6c 61 6d 62 64 61 20 28 63 6f 6c 6f 72 29 | ......(formatter.(lambda.(color) |
| 33ea0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 65 | .......................(let.((he |
| 33ec0 | 78 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 68 65 78 20 63 6f 6c 6f | x.(get-text-property.0.'hex.colo |
| 33ee0 | 72 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 20 20 28 66 6f | r))).........................(fo |
| 33f00 | 72 6d 61 74 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 66 6f 72 6d 61 74 20 63 6f 6c 6f | rmat.counsel--colors-format.colo |
| 33f20 | 72 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 | r............................... |
| 33f40 | 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 68 65 78 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 66 | ..(propertize.hex.'face.(list.:f |
| 33f60 | 6f 72 65 67 72 6f 75 6e 64 20 68 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oreground.hex))................. |
| 33f80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 62 6c 61 6e | ................(propertize.blan |
| 33fa0 | 6b 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 68 65 78 29 29 29 | k.'face.(list.:background.hex))) |
| 33fc0 | 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 67 | )))).....(ivy--format-function-g |
| 33fe0 | 65 6e 65 72 69 63 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 63 6f 6c 6f 72 29 0a 20 20 20 20 | eneric......(lambda.(color)..... |
| 34000 | 20 20 20 28 6c 65 74 2a 20 28 28 68 65 78 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | ...(let*.((hex.(get-text-propert |
| 34020 | 79 20 30 20 27 68 65 78 20 63 6f 6c 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | y.0.'hex.color))...............( |
| 34040 | 73 68 72 2d 63 6f 6c 6f 72 2d 76 69 73 69 62 6c 65 2d 6c 75 6d 69 6e 61 6e 63 65 2d 6d 69 6e 20 | shr-color-visible-luminance-min. |
| 34060 | 31 30 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 67 20 28 63 61 64 72 20 28 73 68 | 100)...............(fg.(cadr.(sh |
| 34080 | 72 2d 63 6f 6c 6f 72 2d 76 69 73 69 62 6c 65 20 68 65 78 20 22 62 6c 61 63 6b 22 20 74 29 29 29 | r-color-visible.hex."black".t))) |
| 340a0 | 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 75 6e 63 61 6c 6c 20 | )..........(propertize.(funcall. |
| 340c0 | 66 6f 72 6d 61 74 74 65 72 20 63 6f 6c 6f 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | formatter.color)................ |
| 340e0 | 20 20 20 20 20 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 66 67 | ......'face.(list.:foreground.fg |
| 34100 | 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 68 65 78 29 29 29 29 0a 20 20 20 20 20 66 6f 72 6d 61 74 | .:background.hex))))......format |
| 34120 | 74 65 72 20 63 6f 6c 6f 72 73 20 22 5c 6e 22 29 29 29 0a 0a 3b 3b 20 4e 6f 20 6c 6f 6e 67 65 72 | ter.colors."\n")))..;;.No.longer |
| 34140 | 20 70 72 65 6c 6f 61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 38 2e 0a 28 61 75 74 6f 6c 6f 61 | .preloaded.in.Emacs.28..(autoloa |
| 34160 | 64 20 27 6c 69 73 74 2d 63 6f 6c 6f 72 73 2d 64 75 70 6c 69 63 61 74 65 73 20 22 66 61 63 65 6d | d.'list-colors-duplicates."facem |
| 34180 | 65 6e 75 22 29 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 75 | enu")..;;;###autoload.(defun.cou |
| 341a0 | 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 20 28 29 0a 20 20 22 53 68 6f 77 20 61 20 6c | nsel-colors-emacs.()..."Show.a.l |
| 341c0 | 69 73 74 20 6f 66 20 61 6c 6c 20 73 75 70 70 6f 72 74 65 64 20 63 6f 6c 6f 72 73 20 66 6f 72 20 | ist.of.all.supported.colors.for. |
| 341e0 | 61 20 70 61 72 74 69 63 75 6c 61 72 20 66 72 61 6d 65 2e 0a 0a 59 6f 75 20 63 61 6e 20 69 6e 73 | a.particular.frame...You.can.ins |
| 34200 | 65 72 74 20 6f 72 20 6b 69 6c 6c 20 74 68 65 20 6e 61 6d 65 20 6f 72 20 68 65 78 61 64 65 63 69 | ert.or.kill.the.name.or.hexadeci |
| 34220 | 6d 61 6c 20 52 47 42 20 76 61 6c 75 65 20 6f 66 20 74 68 65 0a 73 65 6c 65 63 74 65 64 20 63 6f | mal.RGB.value.of.the.selected.co |
| 34240 | 6c 6f 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 | lor."...(interactive)...(let*.(( |
| 34260 | 63 6f 6c 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 20 6e 69 6c 0a 20 20 20 | colors...........(delete.nil.... |
| 34280 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 | ...............(mapcar.(lambda.( |
| 342a0 | 63 65 6c 6c 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 | cell)........................... |
| 342c0 | 20 20 28 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 | ..(let*.((name.(car.cell))...... |
| 342e0 | 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 64 | ..............................(d |
| 34300 | 75 70 73 20 28 63 64 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ups.(cdr.cell))................. |
| 34320 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 78 20 28 63 6f 75 6e 73 65 6c | ...................(hex.(counsel |
| 34340 | 2d 63 6f 6c 6f 72 73 2d 2d 6e 61 6d 65 2d 74 6f 2d 68 65 78 20 6e 61 6d 65 29 29 29 0a 20 20 20 | -colors--name-to-hex.name))).... |
| 34360 | 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 77 68 65 6e | ...........................(when |
| 34380 | 20 68 65 78 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 | .hex............................ |
| 343a0 | 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 6e 61 6d 65 20 27 68 65 78 20 68 65 78 20 27 | .....(propertize.name.'hex.hex.' |
| 343c0 | 64 75 70 73 20 64 75 70 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | dups.dups))))................... |
| 343e0 | 20 20 20 20 20 20 20 20 28 6c 69 73 74 2d 63 6f 6c 6f 72 73 2d 64 75 70 6c 69 63 61 74 65 73 29 | ........(list-colors-duplicates) |
| 34400 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 66 6f | )))..........(counsel--colors-fo |
| 34420 | 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 25 2d 25 64 73 20 25 | rmat...........(format."%%-%ds.% |
| 34440 | 25 73 20 25 25 73 25 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 | %s.%%s%%s"...................(ap |
| 34460 | 70 6c 79 20 23 27 6d 61 78 20 30 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 6e 67 2d 77 69 64 | ply.#'max.0.(mapcar.#'string-wid |
| 34480 | 74 68 20 63 6f 6c 6f 72 73 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 45 6d | th.colors))))).....(ivy-read."Em |
| 344a0 | 61 63 73 20 63 6f 6c 6f 72 3a 20 22 20 63 6f 6c 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 | acs.color:.".colors............. |
| 344c0 | 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..:require-match.t.............. |
| 344e0 | 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 2d | .:history.'counsel-colors-emacs- |
| 34500 | 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 | history...............:action.#' |
| 34520 | 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f | insert...............:caller.'co |
| 34540 | 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 29 29 29 0a 28 69 76 79 2d 63 6f 6e 66 69 | unsel-colors-emacs))).(ivy-confi |
| 34560 | 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 0a 20 20 3a 66 6f | gure.'counsel-colors-emacs...:fo |
| 34580 | 72 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 2d | rmat-fn.#'counsel--colors-emacs- |
| 345a0 | 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f | format-function)..(ivy-set-actio |
| 345c0 | 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 65 6d 61 63 73 0a 20 27 28 28 22 68 | ns..'counsel-colors-emacs..'(("h |
| 345e0 | 22 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 69 6e 73 65 72 74 2d 68 | ".counsel-colors-action-insert-h |
| 34600 | 65 78 20 22 69 6e 73 65 72 74 20 68 65 78 61 64 65 63 69 6d 61 6c 20 76 61 6c 75 65 22 29 0a 20 | ex."insert.hexadecimal.value").. |
| 34620 | 20 20 28 22 48 22 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 6b 69 6c | ..("H".counsel-colors-action-kil |
| 34640 | 6c 2d 68 65 78 20 22 6b 69 6c 6c 20 68 65 78 61 64 65 63 69 6d 61 6c 20 76 61 6c 75 65 22 29 29 | l-hex."kill.hexadecimal.value")) |
| 34660 | 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 27 0a 28 64 65 | )..;;**.`counsel-colors-web'.(de |
| 34680 | 66 76 61 72 20 73 68 72 2d 63 6f 6c 6f 72 2d 68 74 6d 6c 2d 63 6f 6c 6f 72 73 2d 61 6c 69 73 74 | fvar.shr-color-html-colors-alist |
| 346a0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 2d 77 65 62 2d 61 6c | )..(defun.counsel-colors--web-al |
| 346c0 | 69 73 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 43 53 53 20 63 6f 6c | ist.()..."Return.list.of.CSS.col |
| 346e0 | 6f 72 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 27 2e 22 0a 20 | ors.for.`counsel-colors-web'.".. |
| 34700 | 20 28 72 65 71 75 69 72 65 20 27 73 68 72 2d 63 6f 6c 6f 72 29 0a 20 20 28 6c 65 74 2a 20 28 28 | .(require.'shr-color)...(let*.(( |
| 34720 | 61 6c 69 73 74 20 28 63 6f 70 79 2d 61 6c 69 73 74 20 73 68 72 2d 63 6f 6c 6f 72 2d 68 74 6d 6c | alist.(copy-alist.shr-color-html |
| 34740 | 2d 63 6f 6c 6f 72 73 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 70 20 20 28 61 | -colors-alist))..........(mp..(a |
| 34760 | 73 73 6f 63 20 22 4d 65 64 69 75 6d 50 75 72 70 6c 65 22 20 20 61 6c 69 73 74 29 29 0a 20 20 20 | ssoc."MediumPurple"..alist)).... |
| 34780 | 20 20 20 20 20 20 28 70 76 72 20 28 61 73 73 6f 63 20 22 50 61 6c 65 56 69 6f 6c 65 74 52 65 64 | ......(pvr.(assoc."PaleVioletRed |
| 347a0 | 22 20 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 70 20 20 28 61 73 73 6f 63 20 22 | ".alist))..........(rp..(assoc." |
| 347c0 | 52 65 62 65 63 63 61 50 75 72 70 6c 65 22 20 61 6c 69 73 74 29 29 29 0a 20 20 20 20 3b 3b 20 42 | RebeccaPurple".alist))).....;;.B |
| 347e0 | 61 63 6b 70 6f 72 74 20 47 4e 55 20 45 6d 61 63 73 20 62 75 67 23 33 30 33 37 37 0a 20 20 20 20 | ackport.GNU.Emacs.bug#30377..... |
| 34800 | 28 77 68 65 6e 20 6d 70 20 28 73 65 74 63 64 72 20 6d 70 20 22 23 39 33 37 30 64 62 22 29 29 0a | (when.mp.(setcdr.mp."#9370db")). |
| 34820 | 20 20 20 20 28 77 68 65 6e 20 70 76 72 20 28 73 65 74 63 64 72 20 70 76 72 20 22 23 64 62 37 30 | ....(when.pvr.(setcdr.pvr."#db70 |
| 34840 | 39 33 22 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 72 70 20 28 70 75 73 68 20 28 63 6f 6e 73 | 93")).....(unless.rp.(push.(cons |
| 34860 | 20 22 72 65 62 65 63 63 61 70 75 72 70 6c 65 22 20 22 23 36 36 33 33 39 39 22 29 20 61 6c 69 73 | ."rebeccapurple"."#663399").alis |
| 34880 | 74 29 29 0a 20 20 20 20 28 73 6f 72 74 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 63 | t)).....(sort.(mapcar.(lambda.(c |
| 348a0 | 65 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 | ell).....................(proper |
| 348c0 | 74 69 7a 65 20 28 64 6f 77 6e 63 61 73 65 20 28 63 61 72 20 63 65 6c 6c 29 29 0a 20 20 20 20 20 | tize.(downcase.(car.cell))...... |
| 348e0 | 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 27 68 65 78 20 | ...........................'hex. |
| 34900 | 28 64 6f 77 6e 63 61 73 65 20 28 63 64 72 20 63 65 6c 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 | (downcase.(cdr.cell))))......... |
| 34920 | 20 20 20 20 20 20 20 20 20 20 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 23 27 73 74 72 | ..........alist)...........#'str |
| 34940 | 69 6e 67 2d 6c 65 73 73 70 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f | ing-lessp)))..(defvar.counsel-co |
| 34960 | 6c 6f 72 73 2d 77 65 62 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 66 | lors-web-history.()..."History.f |
| 34980 | 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 27 2e 22 29 0a 0a 3b 3b 3b 23 | or.`counsel-colors-web'.")..;;;# |
| 349a0 | 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 | ##autoload.(defun.counsel-colors |
| 349c0 | 2d 77 65 62 20 28 29 0a 20 20 22 53 68 6f 77 20 61 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 57 33 | -web.()..."Show.a.list.of.all.W3 |
| 349e0 | 43 20 77 65 62 20 63 6f 6c 6f 72 73 20 66 6f 72 20 75 73 65 20 69 6e 20 43 53 53 2e 0a 0a 59 6f | C.web.colors.for.use.in.CSS...Yo |
| 34a00 | 75 20 63 61 6e 20 69 6e 73 65 72 74 20 6f 72 20 6b 69 6c 6c 20 74 68 65 20 6e 61 6d 65 20 6f 72 | u.can.insert.or.kill.the.name.or |
| 34a20 | 20 68 65 78 61 64 65 63 69 6d 61 6c 20 52 47 42 20 76 61 6c 75 65 20 6f 66 20 74 68 65 0a 73 65 | .hexadecimal.RGB.value.of.the.se |
| 34a40 | 6c 65 63 74 65 64 20 63 6f 6c 6f 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | lected.color."...(interactive).. |
| 34a60 | 20 28 6c 65 74 2a 20 28 28 63 6f 6c 6f 72 73 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d | .(let*.((colors.(counsel-colors- |
| 34a80 | 2d 77 65 62 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d | -web-alist))..........(counsel-- |
| 34aa0 | 63 6f 6c 6f 72 73 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 | colors-format...........(format. |
| 34ac0 | 22 25 25 2d 25 64 73 20 25 25 73 20 25 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "%%-%ds.%%s.%%s"................ |
| 34ae0 | 20 20 20 28 61 70 70 6c 79 20 23 27 6d 61 78 20 30 20 28 6d 61 70 63 61 72 20 23 27 73 74 72 69 | ...(apply.#'max.0.(mapcar.#'stri |
| 34b00 | 6e 67 2d 77 69 64 74 68 20 63 6f 6c 6f 72 73 29 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 | ng-width.colors))))).....(ivy-re |
| 34b20 | 61 64 20 22 57 65 62 20 63 6f 6c 6f 72 3a 20 22 20 63 6f 6c 6f 72 73 0a 20 20 20 20 20 20 20 20 | ad."Web.color:.".colors......... |
| 34b40 | 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 | ......:require-match.t.......... |
| 34b60 | 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 | .....:history.'counsel-colors-we |
| 34b80 | 62 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 | b-history...............:action. |
| 34ba0 | 23 27 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 | #'insert...............:caller.' |
| 34bc0 | 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 | counsel-colors-web)))..(ivy-conf |
| 34be0 | 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 0a 20 20 3a 73 6f 72 | igure.'counsel-colors-web...:sor |
| 34c00 | 74 2d 66 6e 20 23 27 69 76 79 2d 73 74 72 69 6e 67 3c 0a 20 20 3a 66 6f 72 6d 61 74 2d 66 6e 20 | t-fn.#'ivy-string<...:format-fn. |
| 34c20 | 23 27 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6c 6f 72 73 2d 77 65 62 2d 66 6f 72 6d 61 74 2d 66 75 6e | #'counsel--colors-web-format-fun |
| 34c40 | 63 74 69 6f 6e 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 | ction)..(ivy-set-actions..'couns |
| 34c60 | 65 6c 2d 63 6f 6c 6f 72 73 2d 77 65 62 0a 20 27 28 28 22 68 22 20 63 6f 75 6e 73 65 6c 2d 63 6f | el-colors-web..'(("h".counsel-co |
| 34c80 | 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 69 6e 73 65 72 74 2d 68 65 78 20 22 69 6e 73 65 72 74 20 68 | lors-action-insert-hex."insert.h |
| 34ca0 | 65 78 61 64 65 63 69 6d 61 6c 20 76 61 6c 75 65 22 29 0a 20 20 20 28 22 48 22 20 63 6f 75 6e 73 | exadecimal.value")....("H".couns |
| 34cc0 | 65 6c 2d 63 6f 6c 6f 72 73 2d 61 63 74 69 6f 6e 2d 6b 69 6c 6c 2d 68 65 78 20 22 6b 69 6c 6c 20 | el-colors-action-kill-hex."kill. |
| 34ce0 | 68 65 78 61 64 65 63 69 6d 61 6c 20 76 61 6c 75 65 22 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 | hexadecimal.value")))..;;**.`cou |
| 34d00 | 6e 73 65 6c 2d 66 6f 6e 74 73 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 66 6f 6e 74 | nsel-fonts'.(defvar.counsel-font |
| 34d20 | 73 2d 68 69 73 74 6f 72 79 20 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 | s-history.()..."History.for.`cou |
| 34d40 | 6e 73 65 6c 2d 66 6f 6e 74 73 27 2e 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 | nsel-fonts'.")..;;;###autoload.( |
| 34d60 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 6f 6e 74 73 20 28 29 0a 20 20 22 53 68 6f 77 20 61 | defun.counsel-fonts.()..."Show.a |
| 34d80 | 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 73 75 70 70 6f 72 74 65 64 20 66 6f 6e 74 20 66 61 6d 69 | .list.of.all.supported.font.fami |
| 34da0 | 6c 69 65 73 20 66 6f 72 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 66 72 61 6d 65 2e 0a 0a 59 6f | lies.for.a.particular.frame...Yo |
| 34dc0 | 75 20 63 61 6e 20 69 6e 73 65 72 74 20 6f 72 20 6b 69 6c 6c 20 74 68 65 20 6e 61 6d 65 20 6f 66 | u.can.insert.or.kill.the.name.of |
| 34de0 | 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 66 6f 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | .the.selected.font."...(interact |
| 34e00 | 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 66 6f 6e 74 0a 20 20 20 20 20 | ive)...(let.((current-font...... |
| 34e20 | 20 20 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 66 6f 6e 74 2d 67 65 74 20 28 66 61 63 65 | ....(symbol-name.(font-get.(face |
| 34e40 | 2d 61 74 74 72 69 62 75 74 65 20 27 64 65 66 61 75 6c 74 20 3a 66 6f 6e 74 29 20 3a 66 61 6d 69 | -attribute.'default.:font).:fami |
| 34e60 | 6c 79 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 46 6f 6e 74 3a 20 22 20 28 64 | ly)))).....(ivy-read."Font:.".(d |
| 34e80 | 65 6c 65 74 65 2d 64 75 70 73 20 28 66 6f 6e 74 2d 66 61 6d 69 6c 79 2d 6c 69 73 74 29 29 0a 20 | elete-dups.(font-family-list)).. |
| 34ea0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 74 20 63 75 72 72 65 6e 74 2d | .............:preselect.current- |
| 34ec0 | 66 6f 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 | font...............:require-matc |
| 34ee0 | 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e | h.t...............:history.'coun |
| 34f00 | 73 65 6c 2d 66 6f 6e 74 73 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | sel-fonts-history............... |
| 34f20 | 3a 61 63 74 69 6f 6e 20 23 27 69 6e 73 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :action.#'insert...............: |
| 34f40 | 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 66 6f 6e 74 73 29 29 29 0a 0a 28 69 76 79 2d 63 | caller.'counsel-fonts)))..(ivy-c |
| 34f60 | 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 66 6f 6e 74 73 0a 20 20 3a 64 69 73 70 6c | onfigure.'counsel-fonts...:displ |
| 34f80 | 61 79 2d 74 72 61 6e 73 66 6f 72 6d 65 72 2d 66 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 66 6f 6e | ay-transformer-fn.#'counsel--fon |
| 34fa0 | 74 2d 77 69 74 68 2d 73 61 6d 70 6c 65 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d | t-with-sample)..(defun.counsel-- |
| 34fc0 | 66 6f 6e 74 2d 77 69 74 68 2d 73 61 6d 70 6c 65 20 28 66 6f 6e 74 2d 6e 61 6d 65 29 0a 20 20 22 | font-with-sample.(font-name)..." |
| 34fe0 | 46 6f 72 6d 61 74 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 66 6f 6e | Format.function.for.`counsel-fon |
| 35000 | 74 73 27 2e 22 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 2d 37 35 73 25 73 22 20 66 6f 6e 74 2d 6e | ts'."...(format."%-75s%s".font-n |
| 35020 | 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 61 62 63 64 65 | ame...........(propertize."abcde |
| 35040 | 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 41 42 43 44 45 46 47 48 49 4a 4b | fghijklmnopqrstuvwxyzABCDEFGHIJK |
| 35060 | 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | LMNOPQRSTUVWXYZ"................ |
| 35080 | 20 20 20 20 20 20 20 27 66 61 63 65 20 28 6c 69 73 74 20 3a 66 61 6d 69 6c 79 20 66 6f 6e 74 2d | .......'face.(list.:family.font- |
| 350a0 | 6e 61 6d 65 29 29 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 27 0a | name))))..;;**.`counsel-kmacro'. |
| 350c0 | 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 6d 61 70 0a 20 20 28 6c 65 | (defvar.counsel-kmacro-map...(le |
| 350e0 | 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 | t.((map.(make-sparse-keymap))).. |
| 35100 | 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6b 22 29 20 23 | ...(define-key.map.(kbd."C-k").# |
| 35120 | 27 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 6b 69 6c 6c 29 0a 20 20 20 20 6d 61 70 29 29 0a | 'counsel-kmacro-kill).....map)). |
| 35140 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 6b 69 6c 6c 20 28 29 0a 20 | .(defun.counsel-kmacro-kill.().. |
| 35160 | 20 22 4b 69 6c 6c 20 74 68 65 20 6c 69 6e 65 2c 20 6f 72 20 64 65 6c 65 74 65 20 74 68 65 20 6b | ."Kill.the.line,.or.delete.the.k |
| 35180 | 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a | eyboard.macro."...(interactive). |
| 351a0 | 20 20 28 69 66 20 28 6e 6f 74 20 28 65 6f 6c 70 29 29 0a 20 20 20 20 20 20 28 69 76 79 2d 6b 69 | ..(if.(not.(eolp)).......(ivy-ki |
| 351c0 | 6c 6c 2d 6c 69 6e 65 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 | ll-line).....(counsel-kmacro-act |
| 351e0 | 69 6f 6e 2d 64 65 6c 65 74 65 2d 6b 6d 61 63 72 6f 0a 20 20 20 20 20 28 61 73 73 6f 63 0a 20 20 | ion-delete-kmacro......(assoc... |
| 35200 | 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 2d 6c 61 73 74 29 | ....(ivy-state-current.ivy-last) |
| 35220 | 0a 20 20 20 20 20 20 28 69 76 79 2d 73 74 61 74 65 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 69 76 79 | .......(ivy-state-collection.ivy |
| 35240 | 2d 6c 61 73 74 29 29 29 0a 20 20 20 20 28 69 76 79 2d 2d 6b 69 6c 6c 2d 63 75 72 72 65 6e 74 2d | -last))).....(ivy--kill-current- |
| 35260 | 63 61 6e 64 69 64 61 74 65 29 29 29 0a 0a 28 64 65 66 76 61 72 20 6b 6d 61 63 72 6f 2d 72 69 6e | candidate)))..(defvar.kmacro-rin |
| 35280 | 67 29 0a 28 64 65 66 76 61 72 20 6b 6d 61 63 72 6f 2d 69 6e 69 74 69 61 6c 2d 63 6f 75 6e 74 65 | g).(defvar.kmacro-initial-counte |
| 352a0 | 72 2d 76 61 6c 75 65 29 0a 28 64 65 66 76 61 72 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 29 | r-value).(defvar.kmacro-counter) |
| 352c0 | 0a 28 64 65 66 76 61 72 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 76 61 6c 75 65 2d 73 74 | .(defvar.kmacro-counter-value-st |
| 352e0 | 61 72 74 29 0a 28 64 65 66 76 61 72 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 66 6f 72 6d | art).(defvar.kmacro-counter-form |
| 35300 | 61 74 2d 73 74 61 72 74 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | at-start)..;;;###autoload.(defun |
| 35320 | 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 20 28 29 0a 20 20 22 49 6e 74 65 72 61 63 74 69 76 | .counsel-kmacro.()..."Interactiv |
| 35340 | 65 6c 79 20 63 68 6f 6f 73 65 20 61 6e 64 20 72 75 6e 20 61 20 6b 65 79 62 6f 61 72 64 20 6d 61 | ely.choose.and.run.a.keyboard.ma |
| 35360 | 63 72 6f 2e 0a 0a 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 72 75 6e 20 | cro...With.prefix.argument,.run. |
| 35380 | 6d 61 63 72 6f 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d 65 73 2e 0a 0a 4d 61 63 72 6f 73 20 61 | macro.that.many.times...Macros.a |
| 353a0 | 72 65 20 72 75 6e 20 75 73 69 6e 67 20 74 68 65 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f | re.run.using.the.current.value.o |
| 353c0 | 66 20 60 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 76 61 6c 75 65 27 0a 61 6e 64 20 74 68 65 | f.`kmacro-counter-value'.and.the |
| 353e0 | 69 72 20 72 65 73 70 65 63 74 69 76 65 20 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 2e 20 44 69 | ir.respective.counter.format..Di |
| 35400 | 73 70 6c 61 79 65 64 20 6e 65 78 74 20 74 6f 20 65 61 63 68 20 6d 61 63 72 6f 20 69 73 0a 74 68 | splayed.next.to.each.macro.is.th |
| 35420 | 65 20 63 6f 75 6e 74 65 72 27 73 20 66 6f 72 6d 61 74 20 61 6e 64 20 69 6e 69 74 69 61 6c 20 76 | e.counter's.format.and.initial.v |
| 35440 | 61 6c 75 65 2e 0a 0a 4f 6e 65 20 63 61 6e 20 75 73 65 20 61 63 74 69 6f 6e 73 20 74 6f 20 63 6f | alue...One.can.use.actions.to.co |
| 35460 | 70 79 20 74 68 65 20 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 20 6f 72 20 69 6e 69 74 69 61 6c | py.the.counter.format.or.initial |
| 35480 | 20 63 6f 75 6e 74 65 72 0a 76 61 6c 75 65 20 6f 66 20 61 20 6d 61 63 72 6f 2c 20 75 73 69 6e 67 | .counter.value.of.a.macro,.using |
| 354a0 | 20 74 68 65 6d 20 66 6f 72 20 61 20 6e 65 77 20 6d 61 63 72 6f 2e 22 0a 20 20 28 69 6e 74 65 72 | .them.for.a.new.macro."...(inter |
| 354c0 | 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 6f 72 20 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f | active)...(if.(or.last-kbd-macro |
| 354e0 | 20 6b 6d 61 63 72 6f 2d 72 69 6e 67 29 0a 20 20 20 20 20 20 28 69 76 79 2d 72 65 61 64 0a 20 20 | .kmacro-ring).......(ivy-read... |
| 35500 | 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 45 78 65 63 75 74 65 20 6d 61 63 72 6f 20 28 63 6f 75 | .....(concat."Execute.macro.(cou |
| 35520 | 6e 74 65 72 20 61 74 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 | nter.at."................(number |
| 35540 | 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6f 72 20 6b 6d 61 63 72 6f 2d 69 6e 69 74 69 61 6c 2d 63 6f | -to-string.(or.kmacro-initial-co |
| 35560 | 75 6e 74 65 72 2d 76 61 6c 75 65 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 29 29 0a 20 20 20 | unter-value.kmacro-counter)).... |
| 35580 | 20 20 20 20 20 20 20 20 20 20 20 20 22 29 3a 20 22 29 0a 20 20 20 20 20 20 20 28 63 6f 75 6e 73 | ............"):.")........(couns |
| 355a0 | 65 6c 2d 2d 6b 6d 61 63 72 6f 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 20 20 20 3a 6b | el--kmacro-candidates)........:k |
| 355c0 | 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 6d 61 70 0a 20 20 20 20 20 20 20 | eymap.counsel-kmacro-map........ |
| 355e0 | 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 | :require-match.t........:action. |
| 35600 | 23 27 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 72 75 6e 0a 20 20 20 20 | #'counsel-kmacro-action-run..... |
| 35620 | 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 29 0a 20 20 20 20 | ...:caller.'counsel-kmacro)..... |
| 35640 | 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 73 20 | (user-error."No.keyboard.macros. |
| 35660 | 64 65 66 69 6e 65 64 22 29 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 | defined")))..(ivy-configure.'cou |
| 35680 | 6e 73 65 6c 2d 6b 6d 61 63 72 6f 0a 20 20 3a 66 6f 72 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e 73 | nsel-kmacro...:format-fn.#'couns |
| 356a0 | 65 6c 2d 2d 6b 6d 61 63 72 6f 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 | el--kmacro-format-function)..(de |
| 356c0 | 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 73 65 70 61 72 61 74 6f 72 | fcustom.counsel-kmacro-separator |
| 356e0 | 20 22 5c 6e 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 5c 6e 22 0a | ."\n------------------------\n". |
| 35700 | 20 20 22 53 65 70 61 72 61 74 6f 72 20 64 69 73 70 6c 61 79 65 64 20 62 65 74 77 65 65 6e 20 6b | .."Separator.displayed.between.k |
| 35720 | 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 73 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 | eyboard.macros.in.`counsel-kmacr |
| 35740 | 6f 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 75 6e 20 63 6f | o'."...:type.'string)..(defun.co |
| 35760 | 75 6e 73 65 6c 2d 2d 6b 6d 61 63 72 6f 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 20 28 66 | unsel--kmacro-format-function.(f |
| 35780 | 6f 72 6d 61 74 74 65 64 2d 6b 6d 61 63 72 6f 29 0a 20 20 22 54 72 61 6e 73 66 6f 72 6d 20 46 4f | ormatted-kmacro)..."Transform.FO |
| 357a0 | 52 4d 41 54 54 45 44 2d 4b 4d 41 43 52 4f 20 69 6e 74 6f 20 61 20 73 74 72 69 6e 67 20 66 6f 72 | RMATTED-KMACRO.into.a.string.for |
| 357c0 | 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 27 2e 22 0a 20 20 28 69 76 79 2d 2d 66 6f 72 6d | .`counsel-kmacro'."...(ivy--form |
| 357e0 | 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 67 65 6e 65 72 69 63 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 | at-function-generic....(lambda.( |
| 35800 | 73 74 72 29 20 28 69 76 79 2d 2d 61 64 64 2d 66 61 63 65 20 73 74 72 20 27 69 76 79 2d 63 75 72 | str).(ivy--add-face.str.'ivy-cur |
| 35820 | 72 65 6e 74 2d 6d 61 74 63 68 29 29 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 29 20 73 74 | rent-match))....(lambda.(str).st |
| 35840 | 72 29 0a 20 20 20 66 6f 72 6d 61 74 74 65 64 2d 6b 6d 61 63 72 6f 0a 20 20 20 28 70 72 6f 70 65 | r)....formatted-kmacro....(prope |
| 35860 | 72 74 69 7a 65 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 73 65 70 61 72 61 74 6f 72 20 27 | rtize.counsel-kmacro-separator.' |
| 35880 | 66 61 63 65 20 27 69 76 79 2d 73 65 70 61 72 61 74 6f 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 | face.'ivy-separator)))..(defun.c |
| 358a0 | 6f 75 6e 73 65 6c 2d 2d 6b 6d 61 63 72 6f 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 | ounsel--kmacro-candidates.()..." |
| 358c0 | 43 72 65 61 74 65 20 74 68 65 20 6c 69 73 74 20 6f 66 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 | Create.the.list.of.keyboard.macr |
| 358e0 | 6f 73 20 75 73 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 27 2e 0a 54 68 69 | os.used.by.`counsel-kmacro'..Thi |
| 35900 | 73 20 69 73 20 61 20 63 6f 6d 62 69 6e 61 74 69 6f 6e 20 6f 66 20 60 6b 6d 61 63 72 6f 2d 72 69 | s.is.a.combination.of.`kmacro-ri |
| 35920 | 6e 67 27 20 61 6e 64 2c 20 74 6f 67 65 74 68 65 72 20 69 6e 20 61 20 6c 69 73 74 2c 0a 60 6c 61 | ng'.and,.together.in.a.list,.`la |
| 35940 | 73 74 2d 6b 62 64 2d 6d 61 63 72 6f 27 2c 20 60 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 66 | st-kbd-macro',.`kmacro-counter-f |
| 35960 | 6f 72 6d 61 74 2d 73 74 61 72 74 27 2c 20 61 6e 64 0a 60 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 | ormat-start',.and.`kmacro-counte |
| 35980 | 72 2d 76 61 6c 75 65 2d 73 74 61 72 74 27 2e 22 0a 20 20 28 6d 61 70 63 61 72 0a 20 20 20 28 6c | r-value-start'."...(mapcar....(l |
| 359a0 | 61 6d 62 64 61 20 28 6b 6d 61 63 72 6f 29 0a 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 20 20 | ambda.(kmacro)......(cons....... |
| 359c0 | 28 63 6f 6e 63 61 74 20 22 28 22 20 28 6e 74 68 20 32 20 6b 6d 61 63 72 6f 29 20 22 2c 22 20 28 | (concat."(".(nth.2.kmacro).",".( |
| 359e0 | 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6e 74 68 20 31 20 6b 6d 61 63 72 6f 29 29 | number-to-string.(nth.1.kmacro)) |
| 35a00 | 20 22 29 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d | ."):."...............(condition- |
| 35a20 | 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d | case.nil...................(form |
| 35a40 | 61 74 2d 6b 62 64 2d 6d 61 63 72 6f 20 28 69 66 20 28 6c 69 73 74 70 20 6b 6d 61 63 72 6f 29 20 | at-kbd-macro.(if.(listp.kmacro). |
| 35a60 | 28 63 61 72 20 6b 6d 61 63 72 6f 29 20 6b 6d 61 63 72 6f 29 20 31 29 0a 20 20 20 20 20 20 20 20 | (car.kmacro).kmacro).1)......... |
| 35a80 | 20 20 20 20 20 20 20 20 3b 3b 20 52 65 63 6f 76 65 72 20 66 72 6f 6d 20 65 72 72 6f 72 20 66 72 | ........;;.Recover.from.error.fr |
| 35aa0 | 6f 6d 20 60 65 64 6d 61 63 72 6f 2d 66 69 78 2d 6d 65 6e 75 2d 63 6f 6d 6d 61 6e 64 73 27 2e 0a | om.`edmacro-fix-menu-commands'.. |
| 35ac0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 57 61 72 6e 69 6e 67 3a | ................(error."Warning: |
| 35ae0 | 20 43 61 6e 6e 6f 74 20 64 69 73 70 6c 61 79 20 6d 61 63 72 6f 73 20 63 6f 6e 74 61 69 6e 69 6e | .Cannot.display.macros.containin |
| 35b00 | 67 20 6d 6f 75 73 65 20 63 6c 69 63 6b 73 22 29 29 29 0a 20 20 20 20 20 20 6b 6d 61 63 72 6f 29 | g.mouse.clicks"))).......kmacro) |
| 35b20 | 29 0a 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 6c 61 73 74 2d 6b | )....(cons.....(if.(listp.last-k |
| 35b40 | 62 64 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f | bd-macro).........last-kbd-macro |
| 35b60 | 0a 20 20 20 20 20 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 | .......(list........last-kbd-mac |
| 35b80 | 72 6f 0a 20 20 20 20 20 20 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 76 61 6c 75 65 2d 73 | ro........kmacro-counter-value-s |
| 35ba0 | 74 61 72 74 0a 20 20 20 20 20 20 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 66 6f 72 6d 61 | tart........kmacro-counter-forma |
| 35bc0 | 74 2d 73 74 61 72 74 29 29 0a 20 20 20 20 6b 6d 61 63 72 6f 2d 72 69 6e 67 29 29 29 0a 0a 28 64 | t-start)).....kmacro-ring)))..(d |
| 35be0 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 72 75 6e 20 28 | efun.counsel-kmacro-action-run.( |
| 35c00 | 78 29 0a 20 20 22 52 75 6e 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 2e 22 0a 20 20 28 6c 65 | x)..."Run.keyboard.macro."...(le |
| 35c20 | 74 2a 20 28 28 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 20 28 63 64 72 20 78 29 29 0a 20 20 20 20 | t*.((actual-kmacro.(cdr.x))..... |
| 35c40 | 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 6b 65 79 73 20 28 6e 74 68 20 30 20 61 63 74 75 61 6c 2d | .....(kmacro-keys.(nth.0.actual- |
| 35c60 | 6b 6d 61 63 72 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 | kmacro))..........(kmacro-counte |
| 35c80 | 72 2d 66 6f 72 6d 61 74 2d 73 74 61 72 74 20 28 6e 74 68 20 32 20 61 63 74 75 61 6c 2d 6b 6d 61 | r-format-start.(nth.2.actual-kma |
| 35ca0 | 63 72 6f 29 29 29 0a 20 20 20 20 3b 3b 20 57 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 | cro))).....;;.With.prefix.argume |
| 35cc0 | 6e 74 2c 20 63 61 6c 6c 20 74 68 65 20 6d 61 63 72 6f 20 74 68 61 74 20 6d 61 6e 79 20 74 69 6d | nt,.call.the.macro.that.many.tim |
| 35ce0 | 65 73 2e 0a 20 20 20 20 28 6b 6d 61 63 72 6f 2d 63 61 6c 6c 2d 6d 61 63 72 6f 20 28 6f 72 20 63 | es......(kmacro-call-macro.(or.c |
| 35d00 | 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 31 29 20 74 20 6e 69 6c 20 6b 6d 61 63 72 | urrent-prefix-arg.1).t.nil.kmacr |
| 35d20 | 6f 2d 6b 65 79 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f | o-keys)))..(defun.counsel-kmacro |
| 35d40 | 2d 61 63 74 69 6f 6e 2d 64 65 6c 65 74 65 2d 6b 6d 61 63 72 6f 20 28 78 29 0a 20 20 22 44 65 6c | -action-delete-kmacro.(x)..."Del |
| 35d60 | 65 74 65 20 61 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 20 66 72 6f 6d 20 77 69 74 68 69 6e | ete.a.keyboard.macro.from.within |
| 35d80 | 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 27 2e 0a 0a 45 69 74 68 65 72 20 64 65 6c 65 74 | .`counsel-kmacro'...Either.delet |
| 35da0 | 65 20 61 20 6d 61 63 72 6f 20 66 72 6f 6d 20 60 6b 6d 61 63 72 6f 2d 72 69 6e 67 27 2c 20 6f 72 | e.a.macro.from.`kmacro-ring',.or |
| 35dc0 | 20 73 65 74 20 60 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f 27 0a 74 6f 20 74 68 65 20 70 6f 70 | .set.`last-kbd-macro'.to.the.pop |
| 35de0 | 70 65 64 20 68 65 61 64 20 6f 66 20 74 68 65 20 72 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 28 | ped.head.of.the.ring."...(let.(( |
| 35e00 | 61 63 74 75 61 6c 2d 6d 61 63 72 6f 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 28 69 66 20 28 | actual-macro.(cdr.x))).....(if.( |
| 35e20 | 65 71 20 28 6e 74 68 20 30 20 61 63 74 75 61 6c 2d 6d 61 63 72 6f 29 20 6c 61 73 74 2d 6b 62 64 | eq.(nth.0.actual-macro).last-kbd |
| 35e40 | 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6c 61 73 74 2d 6b 62 64 2d 6d | -macro).........(setq.last-kbd-m |
| 35e60 | 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 6b 6d 61 63 72 | acro...............(if.(eq.kmacr |
| 35e80 | 6f 2d 72 69 6e 67 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 | o-ring.nil)...................ni |
| 35ea0 | 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 65 76 2d 6d 61 | l.................(let.((prev-ma |
| 35ec0 | 63 72 6f 20 28 70 6f 70 20 6b 6d 61 63 72 6f 2d 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 | cro.(pop.kmacro-ring)))......... |
| 35ee0 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 70 72 65 76 2d 6d 61 63 72 6f 29 | ..........(if.(listp.prev-macro) |
| 35f00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 30 20 70 72 | .......................(nth.0.pr |
| 35f20 | 65 76 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 | ev-macro).....................pr |
| 35f40 | 65 76 2d 6d 61 63 72 6f 29 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6b 6d 61 63 72 6f 2d | ev-macro)))).......(setq.kmacro- |
| 35f60 | 72 69 6e 67 20 28 64 65 6c 71 20 61 63 74 75 61 6c 2d 6d 61 63 72 6f 20 6b 6d 61 63 72 6f 2d 72 | ring.(delq.actual-macro.kmacro-r |
| 35f80 | 69 6e 67 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d | ing)))))..(defun.counsel-kmacro- |
| 35fa0 | 61 63 74 69 6f 6e 2d 63 6f 70 79 2d 69 6e 69 74 69 61 6c 2d 63 6f 75 6e 74 65 72 2d 76 61 6c 75 | action-copy-initial-counter-valu |
| 35fc0 | 65 20 28 78 29 0a 20 20 22 50 61 73 73 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6b 65 79 62 6f 61 | e.(x)..."Pass.an.existing.keyboa |
| 35fe0 | 72 64 20 6d 61 63 72 6f 27 73 20 6f 72 69 67 69 6e 61 6c 20 76 61 6c 75 65 20 74 6f 20 60 6b 6d | rd.macro's.original.value.to.`km |
| 36000 | 61 63 72 6f 2d 73 65 74 2d 63 6f 75 6e 74 65 72 27 2e 0a 54 68 69 73 20 76 61 6c 75 65 20 77 69 | acro-set-counter'..This.value.wi |
| 36020 | 6c 6c 20 62 65 20 75 73 65 64 20 62 79 20 74 68 65 20 6e 65 78 74 20 65 78 65 63 75 74 65 64 20 | ll.be.used.by.the.next.executed. |
| 36040 | 6d 61 63 72 6f 2c 20 6f 72 20 61 73 20 61 6e 0a 69 6e 69 74 69 61 6c 20 76 61 6c 75 65 20 62 79 | macro,.or.as.an.initial.value.by |
| 36060 | 20 74 68 65 20 6e 65 78 74 20 6d 61 63 72 6f 20 64 65 66 69 6e 65 64 2e 0a 0a 4e 6f 74 65 20 74 | .the.next.macro.defined...Note.t |
| 36080 | 68 61 74 20 63 61 6c 6c 69 6e 67 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6d 61 63 72 6f 20 74 68 | hat.calling.an.existing.macro.th |
| 360a0 | 61 74 20 69 74 73 65 6c 66 20 75 73 65 73 20 61 20 63 6f 75 6e 74 65 72 0a 65 66 66 65 63 74 69 | at.itself.uses.a.counter.effecti |
| 360c0 | 76 65 6c 79 20 72 65 73 65 74 73 20 74 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 75 6e 74 65 72 20 | vely.resets.the.initial.counter. |
| 360e0 | 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 64 65 66 69 6e 65 64 20 6d 61 63 72 6f | value.for.the.next.defined.macro |
| 36100 | 0a 74 6f 20 30 2e 22 0a 20 20 3b 3b 20 4e 4f 54 45 3a 0a 20 20 3b 3b 20 43 61 6c 6c 69 6e 67 20 | .to.0."...;;.NOTE:...;;.Calling. |
| 36120 | 60 6b 6d 61 63 72 6f 2d 73 74 61 72 74 2d 6d 61 63 72 6f 27 20 77 69 74 68 6f 75 74 20 61 6e 20 | `kmacro-start-macro'.without.an. |
| 36140 | 61 72 67 75 6d 65 6e 74 20 73 65 74 73 20 60 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 27 0a 20 | argument.sets.`kmacro-counter'.. |
| 36160 | 20 3b 3b 20 74 6f 20 30 20 69 66 20 60 6b 6d 61 63 72 6f 2d 69 6e 69 74 69 61 6c 2d 63 6f 75 6e | .;;.to.0.if.`kmacro-initial-coun |
| 36180 | 74 65 72 27 69 73 20 6e 69 6c 2c 20 61 6e 64 20 73 65 74 73 20 60 6b 6d 61 63 72 6f 2d 69 6e 69 | ter'is.nil,.and.sets.`kmacro-ini |
| 361a0 | 74 69 61 6c 2d 63 6f 75 6e 74 65 72 27 0a 20 20 3b 3b 20 74 6f 20 6e 69 6c 20 72 65 67 61 72 64 | tial-counter'...;;.to.nil.regard |
| 361c0 | 6c 65 73 73 2e 0a 20 20 3b 3b 20 55 73 69 6e 67 20 60 6b 6d 61 63 72 6f 2d 69 6e 73 65 72 74 2d | less....;;.Using.`kmacro-insert- |
| 361e0 | 63 6f 75 6e 74 65 72 27 20 73 65 74 73 20 60 6b 6d 61 63 72 6f 2d 69 6e 69 74 69 61 6c 2d 63 6f | counter'.sets.`kmacro-initial-co |
| 36200 | 75 6e 74 65 72 27 20 74 6f 20 6e 69 6c 2e 0a 20 20 28 6c 65 74 2a 20 28 28 61 63 74 75 61 6c 2d | unter'.to.nil....(let*.((actual- |
| 36220 | 6b 6d 61 63 72 6f 20 28 63 64 72 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 75 6d 62 65 72 | kmacro.(cdr.x))..........(number |
| 36240 | 20 28 6e 74 68 20 31 20 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 29 0a 20 20 20 20 28 6b 6d | .(nth.1.actual-kmacro))).....(km |
| 36260 | 61 63 72 6f 2d 73 65 74 2d 63 6f 75 6e 74 65 72 20 6e 75 6d 62 65 72 29 29 29 0a 0a 28 64 65 66 | acro-set-counter.number)))..(def |
| 36280 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 63 6f 70 79 2d 63 6f | un.counsel-kmacro-action-copy-co |
| 362a0 | 75 6e 74 65 72 2d 66 6f 72 6d 61 74 2d 66 6f 72 2d 6e 65 77 2d 6d 61 63 72 6f 20 28 78 29 0a 20 | unter-format-for-new-macro.(x).. |
| 362c0 | 20 22 53 65 74 20 74 68 65 20 64 65 66 61 75 6c 74 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f | ."Set.the.default.keyboard.macro |
| 362e0 | 20 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 2e 0a 54 68 69 73 20 73 65 74 73 20 60 6b 6d 61 63 | .counter.format..This.sets.`kmac |
| 36300 | 72 6f 2d 64 65 66 61 75 6c 74 2d 63 6f 75 6e 74 65 72 2d 66 6f 72 6d 61 74 27 20 74 6f 20 74 68 | ro-default-counter-format'.to.th |
| 36320 | 65 20 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 0a 6f 66 20 61 6e 20 65 78 69 73 74 69 6e 67 20 | e.counter.format.of.an.existing. |
| 36340 | 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 2e 0a 0a 54 68 69 73 20 77 69 6c 6c 20 61 70 70 6c 79 | keyboard.macro...This.will.apply |
| 36360 | 20 74 6f 20 74 68 65 20 6e 65 78 74 20 6d 61 63 72 6f 20 61 20 75 73 65 72 20 64 65 66 69 6e 65 | .to.the.next.macro.a.user.define |
| 36380 | 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 20 28 63 64 72 | s."...(let*.((actual-kmacro.(cdr |
| 363a0 | 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 28 6e 74 68 20 32 20 61 63 74 | .x))..........(format.(nth.2.act |
| 363c0 | 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 29 0a 20 20 20 20 28 6b 6d 61 63 72 6f 2d 73 65 74 2d 66 6f | ual-kmacro))).....(kmacro-set-fo |
| 363e0 | 72 6d 61 74 20 66 6f 72 6d 61 74 29 29 29 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f | rmat.format)))..(declare-functio |
| 36400 | 6e 20 6b 6d 61 63 72 6f 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 70 72 65 76 69 6f 75 73 20 22 6b 6d | n.kmacro-cycle-ring-previous."km |
| 36420 | 61 63 72 6f 22 20 28 26 6f 70 74 69 6f 6e 61 6c 20 61 72 67 29 29 0a 28 64 65 63 6c 61 72 65 2d | acro".(&optional.arg)).(declare- |
| 36440 | 66 75 6e 63 74 69 6f 6e 20 6b 6d 61 63 72 6f 2d 73 65 74 2d 66 6f 72 6d 61 74 20 22 6b 6d 61 63 | function.kmacro-set-format."kmac |
| 36460 | 72 6f 22 20 28 66 6f 72 6d 61 74 29 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 | ro".(format)).(declare-function. |
| 36480 | 6b 6d 61 63 72 6f 2d 73 65 74 2d 63 6f 75 6e 74 65 72 20 22 6b 6d 61 63 72 6f 22 20 28 61 72 67 | kmacro-set-counter."kmacro".(arg |
| 364a0 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e | ))..(defun.counsel-kmacro-action |
| 364c0 | 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 74 6f 2d 6d 61 63 72 6f 20 28 78 29 0a 20 20 22 43 79 63 6c | -cycle-ring-to-macro.(x)..."Cycl |
| 364e0 | 65 20 60 6b 6d 61 63 72 6f 2d 72 69 6e 67 27 20 75 6e 74 69 6c 20 60 6c 61 73 74 2d 6b 62 64 2d | e.`kmacro-ring'.until.`last-kbd- |
| 36500 | 6d 61 63 72 6f 27 20 69 73 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 6d 61 63 72 6f 2e 0a 54 68 | macro'.is.the.selected.macro..Th |
| 36520 | 69 73 20 69 73 20 63 6f 6e 76 65 6e 69 65 6e 74 20 77 68 65 6e 20 75 73 69 6e 67 20 5c 5c 5b 6b | is.is.convenient.when.using.\\[k |
| 36540 | 6d 61 63 72 6f 2d 65 6e 64 2d 6f 72 2d 63 61 6c 6c 2d 6d 61 63 72 6f 5d 20 74 6f 20 63 61 6c 6c | macro-end-or-call-macro].to.call |
| 36560 | 20 6d 61 63 72 6f 73 2e 0a 4e 6f 74 65 20 74 68 61 74 20 63 79 63 6c 69 6e 67 20 74 68 65 20 72 | .macros..Note.that.cycling.the.r |
| 36580 | 69 6e 67 20 63 68 61 6e 67 65 73 20 74 68 65 20 73 74 61 72 74 69 6e 67 20 76 61 6c 75 65 20 6f | ing.changes.the.starting.value.o |
| 365a0 | 66 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 61 63 72 6f 0a 74 6f 20 63 68 61 6e 67 65 73 20 74 | f.the.current.macro.to.changes.t |
| 365c0 | 68 65 20 63 75 72 72 65 6e 74 20 6d 61 63 72 6f 20 63 6f 75 6e 74 65 72 2e 22 0a 20 20 28 6c 65 | he.current.macro.counter."...(le |
| 365e0 | 74 20 28 28 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 | t.((actual-kmacro.(cdr.x)))..... |
| 36600 | 28 75 6e 6c 65 73 73 20 28 65 71 75 61 6c 20 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f 0a 20 20 | (unless.(equal.last-kbd-macro... |
| 36620 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6c 69 73 74 70 20 6c 61 73 74 | .................(if.(listp.last |
| 36640 | 2d 6b 62 64 2d 6d 61 63 72 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -kbd-macro)..................... |
| 36660 | 20 20 20 6c 61 73 74 2d 6b 62 64 2d 6d 61 63 72 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...last-kbd-macro............... |
| 36680 | 20 20 20 20 20 20 20 28 63 61 72 20 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 29 0a 20 20 20 | .......(car.actual-kmacro))).... |
| 366a0 | 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 61 63 74 75 61 6c 2d 6b 6d 61 | ...(while.(not.(equal.actual-kma |
| 366c0 | 63 72 6f 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 63 61 | cro..........................(ca |
| 366e0 | 72 20 6b 6d 61 63 72 6f 2d 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 6b 6d 61 63 72 6f | r.kmacro-ring))).........(kmacro |
| 36700 | 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 70 72 65 76 69 6f 75 73 29 29 0a 20 20 20 20 20 20 3b 3b 20 | -cycle-ring-previous)).......;;. |
| 36720 | 4f 6e 63 65 20 73 65 6c 65 63 74 65 64 20 6d 61 63 72 6f 20 69 73 20 61 74 20 74 68 65 20 68 65 | Once.selected.macro.is.at.the.he |
| 36740 | 61 64 20 6f 66 20 74 68 65 20 72 69 6e 67 2c 0a 20 20 20 20 20 20 3b 3b 20 63 79 63 6c 65 20 6f | ad.of.the.ring,.......;;.cycle.o |
| 36760 | 6e 65 20 6c 61 73 74 20 74 69 6d 65 2e 0a 20 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 63 79 63 6c | ne.last.time........(kmacro-cycl |
| 36780 | 65 2d 72 69 6e 67 2d 70 72 65 76 69 6f 75 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | e-ring-previous))))..(defun.coun |
| 367a0 | 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 73 65 74 2d 73 61 76 65 64 2d 73 74 61 72 | sel-kmacro-action-set-saved-star |
| 367c0 | 74 69 6e 67 2d 63 6f 75 6e 74 65 72 20 28 78 29 0a 20 20 22 53 65 74 20 74 68 65 20 73 74 61 72 | ting-counter.(x)..."Set.the.star |
| 367e0 | 74 69 6e 67 20 63 6f 75 6e 74 65 72 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 63 68 6f 73 65 6e | ting.counter.value.of.the.chosen |
| 36800 | 20 6d 61 63 72 6f 2e 0a 0a 42 79 20 64 65 66 61 75 6c 74 2c 20 73 65 74 73 20 74 6f 20 63 75 72 | .macro...By.default,.sets.to.cur |
| 36820 | 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 63 6f 75 6e 74 65 72 2e 20 49 74 20 68 61 | rent.value.of.the.counter..It.ha |
| 36840 | 73 20 6e 6f 0a 65 66 66 65 63 74 20 77 68 65 6e 20 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 63 | s.no.effect.when.selecting.the.c |
| 36860 | 75 72 72 65 6e 74 20 6d 61 63 72 6f 2e 0a 0a 4e 6f 72 6d 61 6c 6c 79 2c 20 77 68 65 6e 20 63 79 | urrent.macro...Normally,.when.cy |
| 36880 | 63 6c 69 6e 67 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f 20 72 69 6e 67 20 77 69 74 68 20 5c | cling.keyboard.macro.ring.with.\ |
| 368a0 | 5c 5b 6b 6d 61 63 72 6f 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 70 72 65 76 69 6f 75 73 5d 0a 6f 72 | \[kmacro-cycle-ring-previous].or |
| 368c0 | 20 5c 5c 5b 6b 6d 61 63 72 6f 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 6e 65 78 74 5d 2c 20 74 68 65 | .\\[kmacro-cycle-ring-next],.the |
| 368e0 | 20 63 75 72 72 65 6e 74 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6d 61 63 72 6f 20 63 6f 75 6e | .current.value.of.the.macro.coun |
| 36900 | 74 65 72 20 69 73 0a 69 6e 63 6c 75 64 65 64 20 77 69 74 68 20 74 68 65 20 63 75 72 72 65 6e 74 | ter.is.included.with.the.current |
| 36920 | 20 6d 61 63 72 6f 20 64 65 66 69 6e 69 74 69 6f 6e 2e 20 54 68 65 6e 2c 20 77 68 65 6e 20 63 79 | .macro.definition..Then,.when.cy |
| 36940 | 63 6c 69 6e 67 0a 62 61 63 6b 2c 20 74 68 61 74 20 63 6f 75 6e 74 65 72 20 76 61 6c 75 65 20 69 | cling.back,.that.counter.value.i |
| 36960 | 73 20 72 65 73 74 6f 72 65 64 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 6d 65 | s.restored...This.function.is.me |
| 36980 | 61 6e 74 20 74 6f 0a 61 63 68 69 65 76 65 20 73 6f 6d 65 74 68 69 6e 67 20 73 69 6d 69 6c 61 72 | ant.to.achieve.something.similar |
| 369a0 | 20 77 68 65 6e 20 63 79 63 6c 69 6e 67 20 6d 61 63 72 6f 73 20 69 6e 20 74 68 65 20 63 6f 6e 74 | .when.cycling.macros.in.the.cont |
| 369c0 | 65 78 74 20 6f 66 0a 75 73 69 6e 67 20 60 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 27 2c 20 77 | ext.of.using.`counsel-kmacro',.w |
| 369e0 | 68 69 63 68 20 64 6f 65 73 20 6e 6f 74 20 75 73 65 20 64 69 66 66 65 72 65 6e 74 20 63 6f 75 6e | hich.does.not.use.different.coun |
| 36a00 | 74 65 72 0a 76 61 6c 75 65 73 20 77 68 65 6e 20 72 75 6e 6e 69 6e 67 20 64 69 66 66 65 72 65 6e | ter.values.when.running.differen |
| 36a20 | 74 20 6d 61 63 72 6f 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 61 63 74 75 61 6c 2d 6b 6d 61 63 72 | t.macros."...(let.((actual-kmacr |
| 36a40 | 6f 20 28 63 64 72 20 78 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 6b 6d 61 63 | o.(cdr.x)).........(default-kmac |
| 36a60 | 72 6f 2d 63 6f 75 6e 74 65 72 2d 73 74 72 69 6e 67 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 | ro-counter-string.(number-to-str |
| 36a80 | 69 6e 67 20 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 | ing.kmacro-counter))).....(setq. |
| 36aa0 | 6b 6d 61 63 72 6f 2d 72 69 6e 67 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 74 68 69 | kmacro-ring.(mapcar.(lambda.(thi |
| 36ac0 | 73 2d 6d 61 63 72 6f 2d 69 6e 2d 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | s-macro-in-ring)................ |
| 36ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 75 61 6c 20 74 68 69 73 | .................(if.(equal.this |
| 36b00 | 2d 6d 61 63 72 6f 2d 69 6e 2d 72 69 6e 67 20 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 0a 20 20 | -macro-in-ring.actual-kmacro)... |
| 36b20 | 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 | ................................ |
| 36b40 | 20 20 28 6c 69 73 74 20 28 63 61 72 20 74 68 69 73 2d 6d 61 63 72 6f 2d 69 6e 2d 72 69 6e 67 29 | ..(list.(car.this-macro-in-ring) |
| 36b60 | 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 20 | ................................ |
| 36b80 | 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 | ...........(read-from-minibuffer |
| 36ba0 | 20 28 63 6f 6e 63 61 74 20 22 53 65 74 20 69 6e 69 74 69 61 6c 20 63 6f 75 6e 74 65 72 20 66 6f | .(concat."Set.initial.counter.fo |
| 36bc0 | 72 20 6d 61 63 72 6f 20 28 64 65 66 61 75 6c 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r.macro.(default:."............. |
| 36be0 | 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 | ................................ |
| 36c00 | 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 64 65 66 61 | ............................defa |
| 36c20 | 75 6c 74 2d 6b 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 | ult-kmacro-counter-string....... |
| 36c40 | 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 | ................................ |
| 36c60 | 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 | ................................ |
| 36c80 | 20 20 22 29 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 20 | .."):.")........................ |
| 36ca0 | 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 | ................................ |
| 36cc0 | 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 | .........nil.nil.t.nil.......... |
| 36ce0 | 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 | ................................ |
| 36d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 6b | .......................default-k |
| 36d20 | 6d 61 63 72 6f 2d 63 6f 75 6e 74 65 72 2d 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 | macro-counter-string)........... |
| 36d40 | 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 | ................................ |
| 36d60 | 28 63 6c 2d 63 61 64 64 72 20 74 68 69 73 2d 6d 61 63 72 6f 2d 69 6e 2d 72 69 6e 67 29 29 0a 20 | (cl-caddr.this-macro-in-ring)).. |
| 36d80 | 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 | ................................ |
| 36da0 | 20 74 68 69 73 2d 6d 61 63 72 6f 2d 69 6e 2d 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 | .this-macro-in-ring))........... |
| 36dc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6d 61 63 72 6f 2d 72 69 6e 67 29 | ....................kmacro-ring) |
| 36de0 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f | )))..(defun.counsel-kmacro-actio |
| 36e00 | 6e 2d 65 78 65 63 75 74 65 2d 61 66 74 65 72 2d 70 72 6f 6d 70 74 20 28 78 29 0a 20 20 22 45 78 | n-execute-after-prompt.(x)..."Ex |
| 36e20 | 65 63 75 74 65 20 61 6e 20 65 78 69 73 74 69 6e 67 20 6b 65 79 62 6f 61 72 64 20 6d 61 63 72 6f | ecute.an.existing.keyboard.macro |
| 36e40 | 2c 20 70 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 61 20 73 74 61 72 74 69 6e 67 20 63 6f 75 6e 74 | ,.prompting.for.a.starting.count |
| 36e60 | 65 72 20 76 61 6c 75 65 2c 20 61 0a 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 2c 20 61 6e 64 20 | er.value,.a.counter.format,.and. |
| 36e80 | 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 74 69 6d 65 73 20 74 6f 20 65 78 65 63 75 74 65 20 74 | the.number.of.times.to.execute.t |
| 36ea0 | 68 65 20 6d 61 63 72 6f 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 77 69 74 68 20 61 20 70 72 65 66 | he.macro...If.called.with.a.pref |
| 36ec0 | 69 78 2c 20 77 69 6c 6c 20 73 75 67 67 65 73 74 20 74 68 61 74 20 76 61 6c 75 65 20 66 6f 72 20 | ix,.will.suggest.that.value.for. |
| 36ee0 | 62 6f 74 68 20 74 68 65 0a 63 6f 75 6e 74 65 72 20 76 61 6c 75 65 20 61 6e 64 20 69 74 65 72 61 | both.the.counter.value.and.itera |
| 36f00 | 74 69 6f 6e 20 61 6d 6f 75 6e 74 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 66 61 75 6c 74 2d | tion.amount."...(let*.((default- |
| 36f20 | 73 74 72 69 6e 67 20 28 69 66 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 | string.(if.current-prefix-arg... |
| 36f40 | 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 6e 75 6d 62 | ...........................(numb |
| 36f60 | 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 29 | er-to-string.current-prefix-arg) |
| 36f80 | 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 6e 69 6c 29 | ............................nil) |
| 36fa0 | 29 0a 20 20 20 20 20 20 20 20 20 28 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 20 28 63 64 72 20 78 | )..........(actual-kmacro.(cdr.x |
| 36fc0 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 6b 65 79 73 20 28 6e 74 68 20 30 20 | ))..........(kmacro-keys.(nth.0. |
| 36fe0 | 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 6d 61 63 72 6f | actual-kmacro))..........(kmacro |
| 37000 | 2d 73 74 61 72 74 69 6e 67 2d 63 6f 75 6e 74 65 72 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 | -starting-counter.(number-to-str |
| 37020 | 69 6e 67 20 28 6e 74 68 20 31 20 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 29 0a 20 20 20 20 | ing.(nth.1.actual-kmacro)))..... |
| 37040 | 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 73 74 61 72 74 69 6e 67 2d 66 6f 72 6d 61 74 20 28 6e 74 | .....(kmacro-starting-format.(nt |
| 37060 | 68 20 32 20 61 63 74 75 61 6c 2d 6b 6d 61 63 72 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 75 | h.2.actual-kmacro))..........(nu |
| 37080 | 6d 62 65 72 2d 6f 66 2d 69 74 65 72 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 | mber-of-iterations...........(re |
| 370a0 | 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 | ad-from-minibuffer............(c |
| 370c0 | 6f 6e 63 61 74 20 22 45 6e 74 65 72 20 6e 75 6d 62 65 72 20 6f 66 20 69 74 65 72 61 74 69 6f 6e | oncat."Enter.number.of.iteration |
| 370e0 | 73 20 66 6f 72 20 6d 61 63 72 6f 20 28 64 65 66 61 75 6c 74 3a 20 22 0a 20 20 20 20 20 20 20 20 | s.for.macro.(default:."......... |
| 37100 | 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 64 65 66 61 75 6c 74 2d 73 74 72 69 6e 67 20 28 6e | ...........(or.default-string.(n |
| 37120 | 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | umber-to-string.2))............. |
| 37140 | 20 20 20 20 20 20 20 22 29 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c | ......."):.")............nil.nil |
| 37160 | 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 64 65 66 61 75 6c 74 2d 73 74 | .t.nil............(or.default-st |
| 37180 | 72 69 6e 67 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 32 29 29 29 29 0a 20 20 20 | ring.(number-to-string.2)))).... |
| 371a0 | 20 20 20 20 20 20 28 6b 6d 61 63 72 6f 2d 69 6e 69 74 69 61 6c 2d 63 6f 75 6e 74 65 72 2d 76 61 | ......(kmacro-initial-counter-va |
| 371c0 | 6c 75 65 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 | lue...........(read-from-minibuf |
| 371e0 | 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 45 6e 74 65 72 20 61 20 | fer............(concat."Enter.a. |
| 37200 | 73 74 61 72 74 69 6e 67 20 63 6f 75 6e 74 65 72 20 66 6f 72 20 6d 61 63 72 6f 20 28 64 65 66 61 | starting.counter.for.macro.(defa |
| 37220 | 75 6c 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 64 65 | ult:."....................(or.de |
| 37240 | 66 61 75 6c 74 2d 73 74 72 69 6e 67 20 6b 6d 61 63 72 6f 2d 73 74 61 72 74 69 6e 67 2d 63 6f 75 | fault-string.kmacro-starting-cou |
| 37260 | 6e 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 29 3a 20 22 29 0a | nter)...................."):."). |
| 37280 | 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 | ...........nil.nil.t.nil........ |
| 372a0 | 20 20 20 20 28 6f 72 20 64 65 66 61 75 6c 74 2d 73 74 72 69 6e 67 20 6b 6d 61 63 72 6f 2d 73 74 | ....(or.default-string.kmacro-st |
| 372c0 | 61 72 74 69 6e 67 2d 63 6f 75 6e 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 6d 61 63 | arting-counter)))..........(kmac |
| 372e0 | 72 6f 2d 63 6f 75 6e 74 65 72 2d 66 6f 72 6d 61 74 2d 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 | ro-counter-format-start......... |
| 37300 | 20 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 | ..(symbol-name.(read-from-minibu |
| 37320 | 66 66 65 72 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 28 63 6f | ffer.........................(co |
| 37340 | 6e 63 61 74 20 22 45 6e 74 65 72 20 66 6f 72 6d 61 74 20 66 6f 72 20 6d 61 63 72 6f 20 63 6f 75 | ncat."Enter.format.for.macro.cou |
| 37360 | 6e 74 65 72 20 28 64 65 66 61 75 6c 74 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nter.(default:."................ |
| 37380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6d 61 63 72 6f 2d 73 74 61 72 74 69 6e 67 | .................kmacro-starting |
| 373a0 | 2d 66 6f 72 6d 61 74 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 | -format......................... |
| 373c0 | 20 20 20 20 20 20 20 20 22 29 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........"):.").................. |
| 373e0 | 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 74 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 | .......nil.nil.t.nil............ |
| 37400 | 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 6d 61 63 72 6f 2d 73 74 61 72 74 69 6e 67 2d 66 6f 72 | .............kmacro-starting-for |
| 37420 | 6d 61 74 29 29 29 29 0a 20 20 20 20 28 6b 6d 61 63 72 6f 2d 63 61 6c 6c 2d 6d 61 63 72 6f 20 6e | mat)))).....(kmacro-call-macro.n |
| 37440 | 75 6d 62 65 72 2d 6f 66 2d 69 74 65 72 61 74 69 6f 6e 73 20 74 20 6e 69 6c 20 6b 6d 61 63 72 6f | umber-of-iterations.t.nil.kmacro |
| 37460 | 2d 6b 65 79 73 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 | -keys)))..(ivy-set-actions..'cou |
| 37480 | 6e 73 65 6c 2d 6b 6d 61 63 72 6f 0a 20 27 28 28 22 63 22 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 | nsel-kmacro..'(("c".counsel-kmac |
| 374a0 | 72 6f 2d 61 63 74 69 6f 6e 2d 63 79 63 6c 65 2d 72 69 6e 67 2d 74 6f 2d 6d 61 63 72 6f 20 22 63 | ro-action-cycle-ring-to-macro."c |
| 374c0 | 79 63 6c 65 20 74 6f 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f | ycle.to")....("d".counsel-kmacro |
| 374e0 | 2d 61 63 74 69 6f 6e 2d 64 65 6c 65 74 65 2d 6b 6d 61 63 72 6f 20 22 64 65 6c 65 74 65 22 29 0a | -action-delete-kmacro."delete"). |
| 37500 | 20 20 20 28 22 65 22 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 65 78 | ...("e".counsel-kmacro-action-ex |
| 37520 | 65 63 75 74 65 2d 61 66 74 65 72 2d 70 72 6f 6d 70 74 20 22 65 78 65 63 75 74 65 20 61 66 74 65 | ecute-after-prompt."execute.afte |
| 37540 | 72 20 70 72 6f 6d 70 74 22 29 0a 20 20 20 28 22 66 22 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 | r.prompt")....("f".counsel-kmacr |
| 37560 | 6f 2d 61 63 74 69 6f 6e 2d 63 6f 70 79 2d 63 6f 75 6e 74 65 72 2d 66 6f 72 6d 61 74 2d 66 6f 72 | o-action-copy-counter-format-for |
| 37580 | 2d 6e 65 77 2d 6d 61 63 72 6f 20 22 63 6f 70 79 20 63 6f 75 6e 74 65 72 20 66 6f 72 6d 61 74 20 | -new-macro."copy.counter.format. |
| 375a0 | 66 6f 72 20 6e 65 77 20 6d 61 63 72 6f 22 29 0a 20 20 20 28 22 73 22 20 63 6f 75 6e 73 65 6c 2d | for.new.macro")....("s".counsel- |
| 375c0 | 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e 2d 73 65 74 2d 73 61 76 65 64 2d 73 74 61 72 74 69 6e 67 | kmacro-action-set-saved-starting |
| 375e0 | 2d 63 6f 75 6e 74 65 72 20 22 73 65 74 20 74 68 69 73 20 63 6f 75 6e 74 65 72 20 76 61 6c 75 65 | -counter."set.this.counter.value |
| 37600 | 22 29 0a 20 20 20 28 22 76 22 20 63 6f 75 6e 73 65 6c 2d 6b 6d 61 63 72 6f 2d 61 63 74 69 6f 6e | ")....("v".counsel-kmacro-action |
| 37620 | 2d 63 6f 70 79 2d 69 6e 69 74 69 61 6c 2d 63 6f 75 6e 74 65 72 2d 76 61 6c 75 65 20 22 63 6f 70 | -copy-initial-counter-value."cop |
| 37640 | 79 20 69 6e 69 74 69 61 6c 20 63 6f 75 6e 74 65 72 20 76 61 6c 75 65 22 29 29 29 0a 0a 3b 3b 2a | y.initial.counter.value")))..;;* |
| 37660 | 2a 20 60 63 6f 75 6e 73 65 6c 2d 67 65 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 | *.`counsel-geiser-doc-look-up-ma |
| 37680 | 6e 75 61 6c 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 67 65 69 73 65 72 2d 64 | nual'.(declare-function.geiser-d |
| 376a0 | 6f 63 2d 6d 61 6e 75 61 6c 2d 66 6f 72 2d 73 79 6d 62 6f 6c 20 22 65 78 74 3a 67 65 69 73 65 72 | oc-manual-for-symbol."ext:geiser |
| 376c0 | 2d 64 6f 63 22 29 0a 28 64 65 66 76 61 72 20 67 65 69 73 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e | -doc").(defvar.geiser-completion |
| 376e0 | 2d 73 79 6d 62 6f 6c 2d 6c 69 73 74 2d 66 75 6e 63 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e | -symbol-list-func)..(defvar.coun |
| 37700 | 73 65 6c 2d 67 65 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 2d 68 69 | sel-geiser-doc-look-up-manual-hi |
| 37720 | 73 74 6f 72 79 20 28 29 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c | story.()..."History.for.`counsel |
| 37740 | 2d 67 65 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 27 2e 22 29 0a 0a | -geiser-doc-look-up-manual'.").. |
| 37760 | 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 67 65 | ;;;###autoload.(defun.counsel-ge |
| 37780 | 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 20 28 29 0a 20 20 22 53 65 | iser-doc-look-up-manual.()..."Se |
| 377a0 | 61 72 63 68 20 53 63 68 65 6d 65 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 28 69 | arch.Scheme.documentation."...(i |
| 377c0 | 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 53 79 6d 62 6f 6c 3a | nteractive)...(ivy-read."Symbol: |
| 377e0 | 20 22 20 67 65 69 73 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 73 79 6d 62 6f 6c 2d 6c 69 73 74 | .".geiser-completion-symbol-list |
| 37800 | 2d 66 75 6e 63 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 | -func.............:require-match |
| 37820 | 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c | .t.............:history.'counsel |
| 37840 | 2d 67 65 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 2d 68 69 73 74 6f | -geiser-doc-look-up-manual-histo |
| 37860 | 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 20 28 | ry.............:action.(lambda.( |
| 37880 | 63 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 | cand).......................(gei |
| 378a0 | 73 65 72 2d 64 6f 63 2d 6d 61 6e 75 61 6c 2d 66 6f 72 2d 73 79 6d 62 6f 6c 20 28 69 6e 74 65 72 | ser-doc-manual-for-symbol.(inter |
| 378c0 | 6e 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 | n.cand))).............:caller.'c |
| 378e0 | 6f 75 6e 73 65 6c 2d 67 65 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c | ounsel-geiser-doc-look-up-manual |
| 37900 | 29 29 0a 0a 3b 3b 2a 20 4d 69 73 63 2e 20 4f 53 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 72 | ))..;;*.Misc..OS.;;**.`counsel-r |
| 37920 | 68 79 74 68 6d 62 6f 78 27 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 62 75 73 | hythmbox'.(declare-function.dbus |
| 37940 | 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 20 22 64 62 75 73 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 | -call-method."dbus").(declare-fu |
| 37960 | 6e 63 74 69 6f 6e 20 64 62 75 73 2d 67 65 74 2d 70 72 6f 70 65 72 74 79 20 22 64 62 75 73 22 29 | nction.dbus-get-property."dbus") |
| 37980 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 72 75 6e 20 28 26 72 65 73 74 20 70 72 6f | ..(defun.counsel--run.(&rest.pro |
| 379a0 | 67 72 61 6d 2d 61 6e 64 2d 61 72 67 73 29 0a 20 20 28 6c 65 74 20 28 28 6e 61 6d 65 20 28 6d 61 | gram-and-args)...(let.((name.(ma |
| 379c0 | 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 70 72 6f 67 72 61 6d 2d 61 6e 64 2d 61 | pconcat.#'identity.program-and-a |
| 379e0 | 72 67 73 20 22 20 22 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 70 72 | rgs."."))).....(apply.#'start-pr |
| 37a00 | 6f 63 65 73 73 20 6e 61 6d 65 20 6e 69 6c 20 70 72 6f 67 72 61 6d 2d 61 6e 64 2d 61 72 67 73 29 | ocess.name.nil.program-and-args) |
| 37a20 | 0a 20 20 20 20 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 6c 20 | .....name))..(defun.counsel--sl. |
| 37a40 | 28 63 6d 64 29 0a 20 20 22 53 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 6c 69 73 74 2e 22 | (cmd)..."Shell.command.to.list." |
| 37a60 | 0a 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d | ...(split-string.(shell-command- |
| 37a80 | 74 6f 2d 73 74 72 69 6e 67 20 63 6d 64 29 20 22 5c 6e 22 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 | to-string.cmd)."\n".t))..(defun. |
| 37aa0 | 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 70 6c 61 79 2d 73 6f 6e 67 20 28 73 6f 6e | counsel-rhythmbox-play-song.(son |
| 37ac0 | 67 29 0a 20 20 22 4c 65 74 20 52 68 79 74 68 6d 62 6f 78 20 70 6c 61 79 20 53 4f 4e 47 2e 22 0a | g)..."Let.Rhythmbox.play.SONG.". |
| 37ae0 | 20 20 28 6c 65 74 20 28 28 66 69 72 73 74 20 28 73 74 72 69 6e 67 3d 20 28 73 68 65 6c 6c 2d 63 | ..(let.((first.(string=.(shell-c |
| 37b00 | 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 20 22 70 69 64 6f 66 20 72 68 79 74 68 6d 62 6f | ommand-to-string."pidof.rhythmbo |
| 37b20 | 78 22 29 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 72 76 69 63 65 20 22 6f 72 67 2e 67 | x")."")).........(service."org.g |
| 37b40 | 6e 6f 6d 65 2e 52 68 79 74 68 6d 62 6f 78 33 22 29 0a 20 20 20 20 20 20 20 20 28 70 61 74 68 20 | nome.Rhythmbox3").........(path. |
| 37b60 | 22 2f 6f 72 67 2f 6d 70 72 69 73 2f 4d 65 64 69 61 50 6c 61 79 65 72 32 22 29 0a 20 20 20 20 20 | "/org/mpris/MediaPlayer2")...... |
| 37b80 | 20 20 20 28 69 6e 74 65 72 66 61 63 65 20 22 6f 72 67 2e 6d 70 72 69 73 2e 4d 65 64 69 61 50 6c | ...(interface."org.mpris.MediaPl |
| 37ba0 | 61 79 65 72 32 2e 50 6c 61 79 65 72 22 29 29 0a 20 20 20 20 28 77 68 65 6e 20 66 69 72 73 74 0a | ayer2.Player")).....(when.first. |
| 37bc0 | 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 72 75 6e 20 22 6e 6f 68 75 70 22 20 22 72 68 79 | ......(counsel--run."nohup"."rhy |
| 37be0 | 74 68 6d 62 6f 78 22 29 0a 20 20 20 20 20 20 28 73 69 74 2d 66 6f 72 20 31 2e 35 29 29 0a 20 20 | thmbox").......(sit-for.1.5))... |
| 37c00 | 20 20 28 64 62 75 73 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 20 3a 73 65 73 73 69 6f 6e 20 73 65 72 | ..(dbus-call-method.:session.ser |
| 37c20 | 76 69 63 65 20 70 61 74 68 20 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | vice.path.interface............. |
| 37c40 | 20 20 20 20 20 20 20 20 20 20 22 4f 70 65 6e 55 72 69 22 20 28 63 64 72 20 73 6f 6e 67 29 29 0a | .........."OpenUri".(cdr.song)). |
| 37c60 | 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 61 6e 64 20 66 69 72 73 74 0a 20 20 20 20 20 20 20 | ....(let.((id.(and.first........ |
| 37c80 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 77 6d 63 74 72 | ............(cdr.(counsel--wmctr |
| 37ca0 | 6c 2d 70 61 72 73 65 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 | l-parse......................... |
| 37cc0 | 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 2d 74 6f 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 | .(shell-command-to-string....... |
| 37ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 77 6d 63 74 72 6c 20 2d 6c 20 2d | ...................."wmctrl.-l.- |
| 37d00 | 70 20 7c 20 67 72 65 70 20 24 28 70 69 64 6f 66 20 72 68 79 74 68 6d 62 6f 78 29 22 29 29 29 29 | p.|.grep.$(pidof.rhythmbox)")))) |
| 37d20 | 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 69 64 0a 20 20 20 20 20 20 20 20 28 73 69 74 2d 66 | )).......(when.id.........(sit-f |
| 37d40 | 6f 72 20 30 2e 32 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 72 75 6e 20 22 77 | or.0.2).........(counsel--run."w |
| 37d60 | 6d 63 74 72 6c 22 20 22 2d 69 63 22 20 69 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | mctrl"."-ic".id)))))..(defun.cou |
| 37d80 | 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 65 6e 71 75 65 75 65 2d 73 6f 6e 67 20 28 73 6f 6e | nsel-rhythmbox-enqueue-song.(son |
| 37da0 | 67 29 0a 20 20 22 4c 65 74 20 52 68 79 74 68 6d 62 6f 78 20 65 6e 71 75 65 75 65 20 53 4f 4e 47 | g)..."Let.Rhythmbox.enqueue.SONG |
| 37dc0 | 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 65 72 76 69 63 65 20 22 6f 72 67 2e 67 6e 6f 6d 65 2e 52 | ."...(let.((service."org.gnome.R |
| 37de0 | 68 79 74 68 6d 62 6f 78 33 22 29 0a 20 20 20 20 20 20 20 20 28 70 61 74 68 20 22 2f 6f 72 67 2f | hythmbox3").........(path."/org/ |
| 37e00 | 67 6e 6f 6d 65 2f 52 68 79 74 68 6d 62 6f 78 33 2f 50 6c 61 79 51 75 65 75 65 22 29 0a 20 20 20 | gnome/Rhythmbox3/PlayQueue").... |
| 37e20 | 20 20 20 20 20 28 69 6e 74 65 72 66 61 63 65 20 22 6f 72 67 2e 67 6e 6f 6d 65 2e 52 68 79 74 68 | .....(interface."org.gnome.Rhyth |
| 37e40 | 6d 62 6f 78 33 2e 50 6c 61 79 51 75 65 75 65 22 29 29 0a 20 20 20 20 28 64 62 75 73 2d 63 61 6c | mbox3.PlayQueue")).....(dbus-cal |
| 37e60 | 6c 2d 6d 65 74 68 6f 64 20 3a 73 65 73 73 69 6f 6e 20 73 65 72 76 69 63 65 20 70 61 74 68 20 69 | l-method.:session.service.path.i |
| 37e80 | 6e 74 65 72 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | nterface......................." |
| 37ea0 | 41 64 64 54 6f 51 75 65 75 65 22 20 28 63 64 72 20 73 6f 6e 67 29 29 29 29 0a 0a 28 64 65 66 75 | AddToQueue".(cdr.song))))..(defu |
| 37ec0 | 6e 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 70 6c 61 79 70 61 75 73 65 2d 63 75 | n.counsel-rhythmbox-playpause-cu |
| 37ee0 | 72 72 65 6e 74 2d 73 6f 6e 67 20 28 29 0a 20 20 22 50 6c 61 79 2f 70 61 75 73 65 20 74 68 65 20 | rrent-song.()..."Play/pause.the. |
| 37f00 | 63 75 72 72 65 6e 74 20 73 6f 6e 67 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | current.song."...(interactive).. |
| 37f20 | 20 28 6c 65 74 20 28 28 73 65 72 76 69 63 65 20 22 6f 72 67 2e 67 6e 6f 6d 65 2e 52 68 79 74 68 | .(let.((service."org.gnome.Rhyth |
| 37f40 | 6d 62 6f 78 33 22 29 0a 20 20 20 20 20 20 20 20 28 70 61 74 68 20 22 2f 6f 72 67 2f 6d 70 72 69 | mbox3").........(path."/org/mpri |
| 37f60 | 73 2f 4d 65 64 69 61 50 6c 61 79 65 72 32 22 29 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 66 | s/MediaPlayer2").........(interf |
| 37f80 | 61 63 65 20 22 6f 72 67 2e 6d 70 72 69 73 2e 4d 65 64 69 61 50 6c 61 79 65 72 32 2e 50 6c 61 79 | ace."org.mpris.MediaPlayer2.Play |
| 37fa0 | 65 72 22 29 29 0a 20 20 20 20 28 64 62 75 73 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 20 3a 73 65 73 | er")).....(dbus-call-method.:ses |
| 37fc0 | 73 69 6f 6e 20 73 65 72 76 69 63 65 20 70 61 74 68 20 69 6e 74 65 72 66 61 63 65 0a 20 20 20 20 | sion.service.path.interface..... |
| 37fe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 50 6c 61 79 50 61 75 73 65 22 29 29 29 | .................."PlayPause"))) |
| 38000 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 74 6f 67 67 6c | ..(defun.counsel-rhythmbox-toggl |
| 38020 | 65 2d 73 68 75 66 66 6c 65 20 28 5f 73 6f 6e 67 29 0a 20 20 22 54 6f 67 67 6c 65 20 52 68 79 74 | e-shuffle.(_song)..."Toggle.Rhyt |
| 38040 | 68 6d 62 6f 78 20 73 68 75 66 66 6c 65 20 73 65 74 74 69 6e 67 2e 22 0a 20 20 28 6c 65 74 2a 20 | hmbox.shuffle.setting."...(let*. |
| 38060 | 28 28 6f 6c 64 2d 6f 72 64 65 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 6d 61 6e 64 20 22 64 | ((old-order.(counsel--command."d |
| 38080 | 63 6f 6e 66 22 20 22 72 65 61 64 22 20 22 2f 6f 72 67 2f 67 6e 6f 6d 65 2f 72 68 79 74 68 6d 62 | conf"."read"."/org/gnome/rhythmb |
| 380a0 | 6f 78 2f 70 6c 61 79 65 72 2f 70 6c 61 79 2d 6f 72 64 65 72 22 29 29 0a 20 20 20 20 20 20 20 20 | ox/player/play-order"))......... |
| 380c0 | 20 28 6e 65 77 2d 6f 72 64 65 72 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 6f 6c 64 2d 6f 72 64 | .(new-order.(if.(string=.old-ord |
| 380e0 | 65 72 20 22 27 73 68 75 66 66 6c 65 27 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | er."'shuffle'")................. |
| 38100 | 20 20 20 20 20 20 20 20 22 27 6c 69 6e 65 61 72 27 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........"'linear'".............. |
| 38120 | 20 20 20 20 20 20 20 20 20 22 27 73 68 75 66 66 6c 65 27 22 29 29 29 0a 20 20 20 20 28 63 6f 75 | ........."'shuffle'"))).....(cou |
| 38140 | 6e 73 65 6c 2d 2d 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 22 64 63 6f 6e 66 22 0a 20 20 20 20 20 | nsel--command......"dconf"...... |
| 38160 | 22 77 72 69 74 65 22 0a 20 20 20 20 20 22 2f 6f 72 67 2f 67 6e 6f 6d 65 2f 72 68 79 74 68 6d 62 | "write"......"/org/gnome/rhythmb |
| 38180 | 6f 78 2f 70 6c 61 79 65 72 2f 70 6c 61 79 2d 6f 72 64 65 72 22 0a 20 20 20 20 20 6e 65 77 2d 6f | ox/player/play-order"......new-o |
| 381a0 | 72 64 65 72 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 28 69 66 20 28 73 74 72 69 6e 67 3d 20 | rder).....(message.(if.(string=. |
| 381c0 | 6e 65 77 2d 6f 72 64 65 72 20 22 27 73 68 75 66 66 6c 65 27 22 29 0a 20 20 20 20 20 20 20 20 20 | new-order."'shuffle'").......... |
| 381e0 | 20 20 20 20 20 20 20 20 22 73 68 75 66 66 6c 65 20 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 | ........"shuffle.on"............ |
| 38200 | 20 20 20 20 22 73 68 75 66 66 6c 65 20 6f 66 66 22 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 | ...."shuffle.off"))))..(defvar.c |
| 38220 | 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 | ounsel-rhythmbox-history.nil..." |
| 38240 | 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 27 2e | History.for.`counsel-rhythmbox'. |
| 38260 | 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 73 6f | ")..(defvar.counsel-rhythmbox-so |
| 38280 | 6e 67 73 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 | ngs.nil)..(defun.counsel-rhythmb |
| 382a0 | 6f 78 2d 63 75 72 72 65 6e 74 2d 73 6f 6e 67 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 | ox-current-song.()..."Return.the |
| 382c0 | 20 63 75 72 72 65 6e 74 6c 79 20 70 6c 61 79 69 6e 67 20 73 6f 6e 67 20 74 69 74 6c 65 2e 22 0a | .currently.playing.song.title.". |
| 382e0 | 20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 65 6e 74 | ..(ignore-errors.....(let*.((ent |
| 38300 | 72 79 20 28 64 62 75 73 2d 67 65 74 2d 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 | ry.(dbus-get-property........... |
| 38320 | 20 20 20 20 20 20 20 20 20 3a 73 65 73 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........:session............... |
| 38340 | 20 20 20 20 20 22 6f 72 67 2e 6d 70 72 69 73 2e 4d 65 64 69 61 50 6c 61 79 65 72 32 2e 72 68 79 | ....."org.mpris.MediaPlayer2.rhy |
| 38360 | 74 68 6d 62 6f 78 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2f 6f 72 67 | thmbox"...................."/org |
| 38380 | 2f 6d 70 72 69 73 2f 4d 65 64 69 61 50 6c 61 79 65 72 32 22 0a 20 20 20 20 20 20 20 20 20 20 20 | /mpris/MediaPlayer2"............ |
| 383a0 | 20 20 20 20 20 20 20 20 22 6f 72 67 2e 6d 70 72 69 73 2e 4d 65 64 69 61 50 6c 61 79 65 72 32 2e | ........"org.mpris.MediaPlayer2. |
| 383c0 | 50 6c 61 79 65 72 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 65 74 61 | Player"...................."Meta |
| 383e0 | 64 61 74 61 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 72 74 69 73 74 20 28 63 61 61 72 | data"))............(artist.(caar |
| 38400 | 20 28 63 61 64 72 20 28 61 73 73 6f 63 20 22 78 65 73 61 6d 3a 61 72 74 69 73 74 22 20 65 6e 74 | .(cadr.(assoc."xesam:artist".ent |
| 38420 | 72 79 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 62 75 6d 20 28 63 6c 2d 63 61 61 | ry))))............(album.(cl-caa |
| 38440 | 64 72 20 28 61 73 73 6f 63 20 22 78 65 73 61 6d 3a 61 6c 62 75 6d 22 20 65 6e 74 72 79 29 29 29 | dr.(assoc."xesam:album".entry))) |
| 38460 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 63 6c 2d 63 61 61 64 72 20 28 61 73 | ............(title.(cl-caadr.(as |
| 38480 | 73 6f 63 20 22 78 65 73 61 6d 3a 74 69 74 6c 65 22 20 65 6e 74 72 79 29 29 29 29 0a 20 20 20 20 | soc."xesam:title".entry))))..... |
| 384a0 | 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 2d 20 25 73 20 2d 20 25 73 22 20 61 72 74 69 73 74 20 | ..(format."%s.-.%s.-.%s".artist. |
| 384c0 | 61 6c 62 75 6d 20 74 69 74 6c 65 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a | album.title))))..;;;###autoload. |
| 384e0 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 20 28 26 6f 70 74 69 6f | (defun.counsel-rhythmbox.(&optio |
| 38500 | 6e 61 6c 20 61 72 67 29 0a 20 20 22 43 68 6f 6f 73 65 20 61 20 73 6f 6e 67 20 66 72 6f 6d 20 74 | nal.arg)..."Choose.a.song.from.t |
| 38520 | 68 65 20 52 68 79 74 68 6d 62 6f 78 20 6c 69 62 72 61 72 79 20 74 6f 20 70 6c 61 79 20 6f 72 20 | he.Rhythmbox.library.to.play.or. |
| 38540 | 65 6e 71 75 65 75 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 | enqueue."...(interactive."P")... |
| 38560 | 28 72 65 71 75 69 72 65 20 27 64 62 75 73 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 61 72 67 20 | (require.'dbus)...(when.(or.arg. |
| 38580 | 28 6e 75 6c 6c 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 73 6f 6e 67 73 29 29 0a | (null.counsel-rhythmbox-songs)). |
| 385a0 | 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 72 76 69 63 65 20 22 6f 72 67 2e 67 6e 6f 6d 65 2e 52 | ....(let*.((service."org.gnome.R |
| 385c0 | 68 79 74 68 6d 62 6f 78 33 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 61 74 68 20 22 2f 6f | hythmbox3")............(path."/o |
| 385e0 | 72 67 2f 67 6e 6f 6d 65 2f 55 50 6e 50 2f 4d 65 64 69 61 53 65 72 76 65 72 32 2f 4c 69 62 72 61 | rg/gnome/UPnP/MediaServer2/Libra |
| 38600 | 72 79 2f 61 6c 6c 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 66 61 63 65 20 22 | ry/all")............(interface." |
| 38620 | 6f 72 67 2e 67 6e 6f 6d 65 2e 55 50 6e 50 2e 4d 65 64 69 61 43 6f 6e 74 61 69 6e 65 72 32 22 29 | org.gnome.UPnP.MediaContainer2") |
| 38640 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 62 2d 73 6f 6e 67 73 20 28 64 62 75 73 2d 67 65 74 2d | ............(nb-songs.(dbus-get- |
| 38660 | 70 72 6f 70 65 72 74 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | property.......................: |
| 38680 | 73 65 73 73 69 6f 6e 20 73 65 72 76 69 63 65 20 70 61 74 68 20 69 6e 74 65 72 66 61 63 65 20 22 | session.service.path.interface." |
| 386a0 | 43 68 69 6c 64 43 6f 75 6e 74 22 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6e 62 | ChildCount"))).......(if.(not.nb |
| 386c0 | 2d 73 6f 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 6e | -songs)...........(error."Couldn |
| 386e0 | 27 74 20 63 6f 6e 6e 65 63 74 20 74 6f 20 52 68 79 74 68 6d 62 6f 78 22 29 0a 20 20 20 20 20 20 | 't.connect.to.Rhythmbox")....... |
| 38700 | 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 73 6f 6e 67 73 0a | ..(setq.counsel-rhythmbox-songs. |
| 38720 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 78 | ..............(mapcar.(lambda.(x |
| 38740 | 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 28 63 6f 6e 73 0a | ).........................(cons. |
| 38760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 | .........................(format |
| 38780 | 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 22 25 73 20 2d | ..........................."%s.- |
| 387a0 | 20 25 73 20 2d 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .%s.-.%s"....................... |
| 387c0 | 20 20 20 20 28 63 6c 2d 63 61 61 64 72 20 28 61 73 73 6f 63 20 22 41 72 74 69 73 74 22 20 78 29 | ....(cl-caadr.(assoc."Artist".x) |
| 387e0 | 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 28 63 6c 2d | )...........................(cl- |
| 38800 | 63 61 61 64 72 20 28 61 73 73 6f 63 20 22 41 6c 62 75 6d 22 20 78 29 29 0a 20 20 20 20 20 20 20 | caadr.(assoc."Album".x))........ |
| 38820 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 61 64 72 20 28 61 73 | ...................(cl-caadr.(as |
| 38840 | 73 6f 63 20 22 44 69 73 70 6c 61 79 4e 61 6d 65 22 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 | soc."DisplayName".x))).......... |
| 38860 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 61 61 64 72 20 28 61 73 73 6f | ................(cl-caaadr.(asso |
| 38880 | 63 20 22 55 52 4c 73 22 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | c."URLs".x)))).................. |
| 388a0 | 20 20 20 20 20 28 64 62 75 73 2d 63 61 6c 6c 2d 6d 65 74 68 6f 64 0a 20 20 20 20 20 20 20 20 20 | .....(dbus-call-method.......... |
| 388c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 73 73 69 6f 6e 20 73 65 72 76 69 63 65 20 70 | ..............:session.service.p |
| 388e0 | 61 74 68 20 69 6e 74 65 72 66 61 63 65 20 22 4c 69 73 74 43 68 69 6c 64 72 65 6e 22 0a 20 20 20 | ath.interface."ListChildren".... |
| 38900 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 20 6e 62 2d 73 6f 6e 67 73 20 27 | ....................0.nb-songs.' |
| 38920 | 28 22 2a 22 29 29 29 29 29 29 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 52 68 79 74 68 6d 62 | ("*")))))))...(ivy-read."Rhythmb |
| 38940 | 6f 78 3a 20 22 20 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 73 6f 6e 67 73 0a 20 20 | ox:.".counsel-rhythmbox-songs... |
| 38960 | 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 | ..........:require-match.t...... |
| 38980 | 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 | .......:history.'counsel-rhythmb |
| 389a0 | 6f 78 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 73 65 6c 65 63 | ox-history.............:preselec |
| 389c0 | 74 20 28 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 63 75 72 72 65 6e 74 2d 73 6f 6e | t.(counsel-rhythmbox-current-son |
| 389e0 | 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 | g).............:action.......... |
| 38a00 | 20 20 20 27 28 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 70 22 20 63 6f 75 6e 73 65 | ...'(1...............("p".counse |
| 38a20 | 6c 2d 72 68 79 74 68 6d 62 6f 78 2d 70 6c 61 79 2d 73 6f 6e 67 20 22 50 6c 61 79 20 73 6f 6e 67 | l-rhythmbox-play-song."Play.song |
| 38a40 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 65 22 20 63 6f 75 6e 73 65 6c 2d 72 68 | ")...............("e".counsel-rh |
| 38a60 | 79 74 68 6d 62 6f 78 2d 65 6e 71 75 65 75 65 2d 73 6f 6e 67 20 22 45 6e 71 75 65 75 65 20 73 6f | ythmbox-enqueue-song."Enqueue.so |
| 38a80 | 6e 67 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 73 22 20 63 6f 75 6e 73 65 6c 2d | ng")...............("s".counsel- |
| 38aa0 | 72 68 79 74 68 6d 62 6f 78 2d 74 6f 67 67 6c 65 2d 73 68 75 66 66 6c 65 20 22 53 68 75 66 66 6c | rhythmbox-toggle-shuffle."Shuffl |
| 38ac0 | 65 20 6f 6e 2f 6f 66 66 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 | e.on/off")).............:caller. |
| 38ae0 | 27 63 6f 75 6e 73 65 6c 2d 72 68 79 74 68 6d 62 6f 78 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e | 'counsel-rhythmbox))..;;**.`coun |
| 38b00 | 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 27 0a 0a 3b 3b 20 41 64 64 65 64 20 69 6e 20 45 6d 61 63 | sel-linux-app'..;;.Added.in.Emac |
| 38b20 | 73 20 32 36 2e 31 2e 0a 28 72 65 71 75 69 72 65 20 27 78 64 67 20 6e 69 6c 20 74 29 0a 0a 28 64 | s.26.1..(require.'xdg.nil.t)..(d |
| 38b40 | 65 66 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 2d 78 64 67 2d 64 61 74 61 2d 68 6f 6d 65 0a | efalias.'counsel--xdg-data-home. |
| 38b60 | 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 78 64 67 2d 64 61 74 61 2d 68 6f 6d 65 29 0a 20 | ..(if.(fboundp.'xdg-data-home).. |
| 38b80 | 20 20 20 20 20 23 27 78 64 67 2d 64 61 74 61 2d 68 6f 6d 65 0a 20 20 20 20 28 6c 61 6d 62 64 61 | .....#'xdg-data-home.....(lambda |
| 38ba0 | 20 28 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 65 63 74 6f 72 79 20 28 67 65 74 65 | .().......(let.((directory.(gete |
| 38bc0 | 6e 76 20 22 58 44 47 5f 44 41 54 41 5f 48 4f 4d 45 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 | nv."XDG_DATA_HOME"))).........(i |
| 38be0 | 66 20 28 6f 72 20 28 6e 75 6c 6c 20 64 69 72 65 63 74 6f 72 79 29 20 28 73 74 72 69 6e 67 3d 20 | f.(or.(null.directory).(string=. |
| 38c00 | 64 69 72 65 63 74 6f 72 79 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 7e 2f 2e 6c | directory.""))............."~/.l |
| 38c20 | 6f 63 61 6c 2f 73 68 61 72 65 22 0a 20 20 20 20 20 20 20 20 20 20 64 69 72 65 63 74 6f 72 79 29 | ocal/share"...........directory) |
| 38c40 | 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 6f 72 20 60 78 | )))..."Compatibility.shim.for.`x |
| 38c60 | 64 67 2d 64 61 74 61 2d 68 6f 6d 65 27 2e 22 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 63 6f 75 | dg-data-home'.")..(defalias.'cou |
| 38c80 | 6e 73 65 6c 2d 2d 78 64 67 2d 64 61 74 61 2d 64 69 72 73 0a 20 20 28 69 66 20 28 66 62 6f 75 6e | nsel--xdg-data-dirs...(if.(fboun |
| 38ca0 | 64 70 20 27 78 64 67 2d 64 61 74 61 2d 64 69 72 73 29 0a 20 20 20 20 20 20 23 27 78 64 67 2d 64 | dp.'xdg-data-dirs).......#'xdg-d |
| 38cc0 | 61 74 61 2d 64 69 72 73 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 28 6c | ata-dirs.....(lambda.().......(l |
| 38ce0 | 65 74 20 28 28 70 61 74 68 20 28 67 65 74 65 6e 76 20 22 58 44 47 5f 44 41 54 41 5f 44 49 52 53 | et.((path.(getenv."XDG_DATA_DIRS |
| 38d00 | 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 20 70 61 74 68 29 | "))).........(if.(or.(null.path) |
| 38d20 | 20 28 73 74 72 69 6e 67 3d 20 70 61 74 68 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | .(string=.path.""))............. |
| 38d40 | 27 28 22 2f 75 73 72 2f 6c 6f 63 61 6c 2f 73 68 61 72 65 22 20 22 2f 75 73 72 2f 73 68 61 72 65 | '("/usr/local/share"."/usr/share |
| 38d60 | 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 72 73 65 2d 63 6f 6c 6f 6e 2d 70 61 74 68 20 70 | ")...........(parse-colon-path.p |
| 38d80 | 61 74 68 29 29 29 29 29 0a 20 20 22 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 20 73 68 69 6d 20 66 | ath)))))..."Compatibility.shim.f |
| 38da0 | 6f 72 20 60 78 64 67 2d 64 61 74 61 2d 64 69 72 73 27 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f | or.`xdg-data-dirs'.")..(defcusto |
| 38dc0 | 6d 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 64 69 72 65 63 74 6f 72 69 65 73 | m.counsel-linux-apps-directories |
| 38de0 | 0a 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 64 69 72 29 20 28 65 78 70 61 6e 64 | ...(mapcar.(lambda.(dir).(expand |
| 38e00 | 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 61 70 70 6c 69 63 61 74 69 6f 6e 73 22 20 64 69 72 29 29 0a | -file-name."applications".dir)). |
| 38e20 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 28 63 6f 75 6e 73 65 6c 2d 2d 78 64 67 2d 64 61 | ..........(cons.(counsel--xdg-da |
| 38e40 | 74 61 2d 68 6f 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 | ta-home).................(counse |
| 38e60 | 6c 2d 2d 78 64 67 2d 64 61 74 61 2d 64 69 72 73 29 29 29 0a 20 20 22 44 69 72 65 63 74 6f 72 69 | l--xdg-data-dirs)))..."Directori |
| 38e80 | 65 73 20 69 6e 20 77 68 69 63 68 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 20 61 70 70 6c 69 63 | es.in.which.to.search.for.applic |
| 38ea0 | 61 74 69 6f 6e 73 20 28 2e 64 65 73 6b 74 6f 70 20 66 69 6c 65 73 29 2e 22 0a 20 20 3a 74 79 70 | ations.(.desktop.files)."...:typ |
| 38ec0 | 65 20 27 28 72 65 70 65 61 74 20 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 64 65 66 63 75 73 74 | e.'(repeat.directory))..(defcust |
| 38ee0 | 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 | om.counsel-linux-app-format-func |
| 38f00 | 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d | tion.#'counsel-linux-app-format- |
| 38f20 | 66 75 6e 63 74 69 6f 6e 2d 64 65 66 61 75 6c 74 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 | function-default..."Function.to. |
| 38f40 | 66 6f 72 6d 61 74 20 4c 69 6e 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 73 20 74 | format.Linux.application.names.t |
| 38f60 | 68 65 20 60 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 27 20 6d 65 6e 75 2e 0a 54 68 65 | he.`counsel-linux-app'.menu..The |
| 38f80 | 20 66 6f 72 6d 61 74 20 66 75 6e 63 74 69 6f 6e 20 77 69 6c 6c 20 62 65 20 70 61 73 73 65 64 20 | .format.function.will.be.passed. |
| 38fa0 | 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 27 73 20 6e 61 6d 65 2c 20 63 6f 6d 6d 65 6e 74 2c | the.application's.name,.comment, |
| 38fc0 | 20 61 6e 64 20 63 6f 6d 6d 61 6e 64 0a 61 73 20 61 72 67 75 6d 65 6e 74 73 2e 22 0a 20 20 3a 74 | .and.command.as.arguments."...:t |
| 38fe0 | 79 70 65 20 27 28 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 | ype.'(choice...........(const.:t |
| 39000 | 61 67 20 22 43 6f 6d 6d 61 6e 64 20 3a 20 4e 61 6d 65 20 2d 20 43 6f 6d 6d 65 6e 74 22 20 63 6f | ag."Command.:.Name.-.Comment".co |
| 39020 | 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d | unsel-linux-app-format-function- |
| 39040 | 64 65 66 61 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 | default)...........(const.:tag." |
| 39060 | 4e 61 6d 65 20 2d 20 43 6f 6d 6d 65 6e 74 20 28 43 6f 6d 6d 61 6e 64 29 22 20 63 6f 75 6e 73 65 | Name.-.Comment.(Command)".counse |
| 39080 | 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 | l-linux-app-format-function-name |
| 390a0 | 2d 66 69 72 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e | -first)...........(const.:tag."N |
| 390c0 | 61 6d 65 20 2d 20 43 6f 6d 6d 65 6e 74 22 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 | ame.-.Comment".counsel-linux-app |
| 390e0 | 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6f 6e 6c 79 29 0a 20 20 20 20 | -format-function-name-only)..... |
| 39100 | 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4e 61 6d 65 20 2d 20 43 6f 6d 6d 65 6e | ......(const.:tag."Name.-.Commen |
| 39120 | 74 20 28 50 72 65 74 74 79 29 22 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f | t.(Pretty)".counsel-linux-app-fo |
| 39140 | 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 72 65 74 74 79 29 0a 20 20 20 20 20 | rmat-function-name-pretty)...... |
| 39160 | 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 43 6f 6d 6d 61 6e 64 22 20 63 6f 75 6e 73 | .....(const.:tag."Command".couns |
| 39180 | 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d | el-linux-app-format-function-com |
| 391a0 | 6d 61 6e 64 2d 6f 6e 6c 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a | mand-only)...........(function.: |
| 391c0 | 74 61 67 20 22 43 75 73 74 6f 6d 22 29 29 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 | tag."Custom")))..(defface.counse |
| 391e0 | 6c 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d 6e 61 6d 65 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 | l-application-name...'((t.:inher |
| 39200 | 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d 66 61 63 65 29 29 0a 20 20 22 46 | it.font-lock-builtin-face))..."F |
| 39220 | 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 65 78 65 63 75 74 61 62 6c 65 20 6e 61 | ace.for.displaying.executable.na |
| 39240 | 6d 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 | mes."...:group.'ivy-faces)..(def |
| 39260 | 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 31 0a 20 20 27 28 28 74 20 3a 69 | face.counsel-outline-1...'((t.:i |
| 39280 | 6e 68 65 72 69 74 20 6f 72 67 2d 6c 65 76 65 6c 2d 31 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 | nherit.org-level-1))..."Face.for |
| 392a0 | 20 64 69 73 70 6c 61 79 69 6e 67 20 6c 65 76 65 6c 20 31 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 | .displaying.level.1.headings.".. |
| 392c0 | 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f | .:group.'ivy-faces)..(defface.co |
| 392e0 | 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 32 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 | unsel-outline-2...'((t.:inherit. |
| 39300 | 6f 72 67 2d 6c 65 76 65 6c 2d 32 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 | org-level-2))..."Face.for.displa |
| 39320 | 79 69 6e 67 20 6c 65 76 65 6c 20 32 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 | ying.level.2.headings."...:group |
| 39340 | 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f | .'ivy-faces)..(defface.counsel-o |
| 39360 | 75 74 6c 69 6e 65 2d 33 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6f 72 67 2d 6c 65 76 | utline-3...'((t.:inherit.org-lev |
| 39380 | 65 6c 2d 33 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 6c 65 | el-3))..."Face.for.displaying.le |
| 393a0 | 76 65 6c 20 33 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 | vel.3.headings."...:group.'ivy-f |
| 393c0 | 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d | aces)..(defface.counsel-outline- |
| 393e0 | 34 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6f 72 67 2d 6c 65 76 65 6c 2d 34 29 29 0a | 4...'((t.:inherit.org-level-4)). |
| 39400 | 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 6c 65 76 65 6c 20 34 20 68 | .."Face.for.displaying.level.4.h |
| 39420 | 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a | eadings."...:group.'ivy-faces).. |
| 39440 | 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 35 0a 20 20 27 28 28 | (defface.counsel-outline-5...'(( |
| 39460 | 74 20 3a 69 6e 68 65 72 69 74 20 6f 72 67 2d 6c 65 76 65 6c 2d 35 29 29 0a 20 20 22 46 61 63 65 | t.:inherit.org-level-5))..."Face |
| 39480 | 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 6c 65 76 65 6c 20 35 20 68 65 61 64 69 6e 67 73 | .for.displaying.level.5.headings |
| 394a0 | 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 | ."...:group.'ivy-faces)..(deffac |
| 394c0 | 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 36 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 | e.counsel-outline-6...'((t.:inhe |
| 394e0 | 72 69 74 20 6f 72 67 2d 6c 65 76 65 6c 2d 36 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 | rit.org-level-6))..."Face.for.di |
| 39500 | 73 70 6c 61 79 69 6e 67 20 6c 65 76 65 6c 20 36 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 | splaying.level.6.headings."...:g |
| 39520 | 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 | roup.'ivy-faces)..(defface.couns |
| 39540 | 65 6c 2d 6f 75 74 6c 69 6e 65 2d 37 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6f 72 67 | el-outline-7...'((t.:inherit.org |
| 39560 | 2d 6c 65 76 65 6c 2d 37 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e | -level-7))..."Face.for.displayin |
| 39580 | 67 20 6c 65 76 65 6c 20 37 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 | g.level.7.headings."...:group.'i |
| 395a0 | 76 79 2d 66 61 63 65 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c | vy-faces)..(defface.counsel-outl |
| 395c0 | 69 6e 65 2d 38 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6f 72 67 2d 6c 65 76 65 6c 2d | ine-8...'((t.:inherit.org-level- |
| 395e0 | 38 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 6c 65 76 65 6c | 8))..."Face.for.displaying.level |
| 39600 | 20 38 20 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 | .8.headings."...:group.'ivy-face |
| 39620 | 73 29 0a 0a 28 64 65 66 66 61 63 65 20 63 6f 75 6e 73 65 6c 2d 6f 75 74 6c 69 6e 65 2d 64 65 66 | s)..(defface.counsel-outline-def |
| 39640 | 61 75 6c 74 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 6d 69 6e 69 62 75 66 66 65 72 2d | ault...'((t.:inherit.minibuffer- |
| 39660 | 70 72 6f 6d 70 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 64 69 73 70 6c 61 79 69 6e 67 20 | prompt))..."Face.for.displaying. |
| 39680 | 68 65 61 64 69 6e 67 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 69 76 79 2d 66 61 63 65 73 29 0a | headings."...:group.'ivy-faces). |
| 396a0 | 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 66 61 75 6c | .(defvar.counsel-linux-apps-faul |
| 396c0 | 74 79 20 6e 69 6c 0a 20 20 22 4c 69 73 74 20 6f 66 20 66 61 75 6c 74 79 20 64 65 73 6b 74 6f 70 | ty.nil..."List.of.faulty.desktop |
| 396e0 | 20 66 69 6c 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 | .files.")..(defvar.counsel--linu |
| 39700 | 78 2d 61 70 70 73 2d 63 61 63 68 65 20 6e 69 6c 0a 20 20 22 43 61 63 68 65 20 6f 66 20 64 65 73 | x-apps-cache.nil..."Cache.of.des |
| 39720 | 6b 74 6f 70 20 66 69 6c 65 73 20 64 61 74 61 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e | ktop.files.data.")..(defvar.coun |
| 39740 | 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 64 2d 66 69 6c 65 73 20 6e 69 6c | sel--linux-apps-cached-files.nil |
| 39760 | 0a 20 20 22 4c 69 73 74 20 6f 66 20 63 61 63 68 65 64 20 64 65 73 6b 74 6f 70 20 66 69 6c 65 73 | ..."List.of.cached.desktop.files |
| 39780 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 | .")..(defvar.counsel--linux-apps |
| 397a0 | 2d 63 61 63 68 65 2d 74 69 6d 65 73 74 61 6d 70 20 6e 69 6c 0a 20 20 22 54 69 6d 65 20 77 68 65 | -cache-timestamp.nil..."Time.whe |
| 397c0 | 6e 20 77 65 20 6c 61 73 74 20 75 70 64 61 74 65 64 20 74 68 65 20 63 61 63 68 65 64 20 61 70 70 | n.we.last.updated.the.cached.app |
| 397e0 | 6c 69 63 61 74 69 6f 6e 20 6c 69 73 74 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 | lication.list.")..(defvar.counse |
| 39800 | 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 | l--linux-apps-cache-format-funct |
| 39820 | 69 6f 6e 20 6e 69 6c 0a 20 20 22 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 | ion.nil..."The.function.used.to. |
| 39840 | 66 6f 72 6d 61 74 20 74 68 65 20 63 61 63 68 65 64 20 4c 69 6e 75 78 20 61 70 70 6c 69 63 61 74 | format.the.cached.Linux.applicat |
| 39860 | 69 6f 6e 20 6d 65 6e 75 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 | ion.menu.")..(defun.counsel-linu |
| 39880 | 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 64 65 66 61 75 6c 74 20 28 6e | x-app-format-function-default.(n |
| 398a0 | 61 6d 65 20 63 6f 6d 6d 65 6e 74 20 65 78 65 63 29 0a 20 20 22 44 65 66 61 75 6c 74 20 4c 69 6e | ame.comment.exec)..."Default.Lin |
| 398c0 | 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 20 66 6f 72 6d 61 74 74 65 72 2e 0a 4e | ux.application.name.formatter..N |
| 398e0 | 41 4d 45 20 69 73 20 74 68 65 20 6e 61 6d 65 20 6f 66 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 | AME.is.the.name.of.the.applicati |
| 39900 | 6f 6e 2c 20 43 4f 4d 4d 45 4e 54 20 69 74 73 20 63 6f 6d 6d 65 6e 74 20 61 6e 64 20 45 58 45 43 | on,.COMMENT.its.comment.and.EXEC |
| 39920 | 0a 74 68 65 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 6c 61 75 6e 63 68 20 69 74 2e 22 0a 20 20 28 66 | .the.command.to.launch.it."...(f |
| 39940 | 6f 72 6d 61 74 20 22 25 20 2d 34 35 73 3a 20 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 28 | ormat."%.-45s:.%s%s"...........( |
| 39960 | 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 2d 74 72 75 6e | propertize............(ivy--trun |
| 39980 | 63 61 74 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 70 6c 61 63 65 | cate-string.............(replace |
| 399a0 | 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 65 6e 76 20 2b 5b 5e 20 5d 2b 20 2b 22 | -regexp-in-string."env.+[^.]+.+" |
| 399c0 | 20 22 22 20 65 78 65 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 34 35 29 0a 20 20 20 20 20 20 | ."".exec).............45)....... |
| 399e0 | 20 20 20 20 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d | .....'face.'counsel-application- |
| 39a00 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 | name)...........name...........( |
| 39a20 | 69 66 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 | if.comment...............(concat |
| 39a40 | 20 22 20 2d 20 22 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 29 | .".-.".comment)............."")) |
| 39a60 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d | )..(defun.counsel-linux-app-form |
| 39a80 | 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 66 69 72 73 74 20 28 6e 61 6d 65 20 63 6f 6d | at-function-name-first.(name.com |
| 39aa0 | 6d 65 6e 74 20 65 78 65 63 29 0a 20 20 22 46 6f 72 6d 61 74 20 4c 69 6e 75 78 20 61 70 70 6c 69 | ment.exec)..."Format.Linux.appli |
| 39ac0 | 63 61 74 69 6f 6e 20 6e 61 6d 65 73 20 77 69 74 68 20 74 68 65 20 4e 41 4d 45 20 28 61 6e 64 20 | cation.names.with.the.NAME.(and. |
| 39ae0 | 43 4f 4d 4d 45 4e 54 29 20 66 69 72 73 74 2e 0a 45 58 45 43 20 69 73 20 74 68 65 20 63 6f 6d 6d | COMMENT).first..EXEC.is.the.comm |
| 39b00 | 61 6e 64 20 74 6f 20 6c 61 75 6e 63 68 20 74 68 65 20 61 70 70 6c 69 63 61 74 69 6f 6e 2e 22 0a | and.to.launch.the.application.". |
| 39b20 | 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 20 28 25 73 29 22 0a 20 20 20 20 20 20 20 20 20 20 | ..(format."%s%s.(%s)"........... |
| 39b40 | 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 | name...........(if.comment...... |
| 39b60 | 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 20 2d 20 22 20 63 6f 6d 6d 65 6e 74 29 0a | .........(concat.".-.".comment). |
| 39b80 | 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 | ............"")...........(prope |
| 39ba0 | 72 74 69 7a 65 20 65 78 65 63 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 61 70 70 6c 69 63 | rtize.exec.'face.'counsel-applic |
| 39bc0 | 61 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 | ation-name)))..(defun.counsel-li |
| 39be0 | 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 6f 6e 6c | nux-app-format-function-name-onl |
| 39c00 | 79 20 28 6e 61 6d 65 20 63 6f 6d 6d 65 6e 74 20 5f 65 78 65 63 29 0a 20 20 22 46 6f 72 6d 61 74 | y.(name.comment._exec)..."Format |
| 39c20 | 20 4c 69 6e 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 73 20 77 69 74 68 20 74 68 | .Linux.application.names.with.th |
| 39c40 | 65 20 4e 41 4d 45 20 28 61 6e 64 20 43 4f 4d 4d 45 4e 54 29 20 6f 6e 6c 79 2e 22 0a 20 20 28 66 | e.NAME.(and.COMMENT).only."...(f |
| 39c60 | 6f 72 6d 61 74 20 22 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 0a 20 20 20 20 | ormat."%s%s"...........name..... |
| 39c80 | 20 20 20 20 20 20 28 69 66 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(if.comment............... |
| 39ca0 | 28 63 6f 6e 63 61 74 20 22 20 2d 20 22 20 63 6f 6d 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 | (concat.".-.".comment).......... |
| 39cc0 | 20 20 20 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 | ..."")))..(defun.counsel-linux-a |
| 39ce0 | 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 63 6f 6d 6d 61 6e 64 2d 6f 6e 6c 79 20 | pp-format-function-command-only. |
| 39d00 | 28 5f 6e 61 6d 65 20 5f 63 6f 6d 6d 65 6e 74 20 65 78 65 63 29 0a 20 20 22 44 69 73 70 6c 61 79 | (_name._comment.exec)..."Display |
| 39d20 | 20 6f 6e 6c 79 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 45 58 45 43 20 77 68 65 6e 20 66 6f 72 6d | .only.the.command.EXEC.when.form |
| 39d40 | 61 74 74 69 6e 67 20 4c 69 6e 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 73 2e 22 | atting.Linux.application.names." |
| 39d60 | 0a 20 20 65 78 65 63 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 | ...exec)..(defun.counsel-linux-a |
| 39d80 | 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 6e 61 6d 65 2d 70 72 65 74 74 79 20 28 | pp-format-function-name-pretty.( |
| 39da0 | 6e 61 6d 65 20 63 6f 6d 6d 65 6e 74 20 5f 65 78 65 63 29 0a 20 20 22 46 6f 72 6d 61 74 20 4c 69 | name.comment._exec)..."Format.Li |
| 39dc0 | 6e 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 20 6e 61 6d 65 73 20 77 69 74 68 20 74 68 65 20 4e | nux.application.names.with.the.N |
| 39de0 | 41 4d 45 20 28 61 6e 64 20 43 4f 4d 4d 45 4e 54 29 20 6f 6e 6c 79 2c 20 62 75 74 20 70 72 65 74 | AME.(and.COMMENT).only,.but.pret |
| 39e00 | 74 79 2e 22 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 20 2d 34 35 73 25 73 22 0a 20 20 20 20 20 20 | ty."...(format."%.-45s%s"....... |
| 39e20 | 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d | ....(propertize............(ivy- |
| 39e40 | 2d 74 72 75 6e 63 61 74 65 2d 73 74 72 69 6e 67 20 6e 61 6d 65 20 34 35 29 0a 20 20 20 20 20 20 | -truncate-string.name.45)....... |
| 39e60 | 20 20 20 20 20 27 66 61 63 65 20 27 63 6f 75 6e 73 65 6c 2d 61 70 70 6c 69 63 61 74 69 6f 6e 2d | .....'face.'counsel-application- |
| 39e80 | 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 63 6f 6d 6d 65 6e 74 0a 20 20 20 20 | name)...........(if.comment..... |
| 39ea0 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 3a 20 22 20 63 6f 6d 6d 65 6e 74 29 0a | ..........(concat.":.".comment). |
| 39ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 22 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | ............"")))..(defun.counse |
| 39ee0 | 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 6c 69 73 74 2d 64 65 73 6b 74 6f 70 2d 66 69 6c 65 73 20 | l-linux-apps-list-desktop-files. |
| 39f00 | 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 6e 20 61 6c 69 73 74 20 6f 66 20 61 6c 6c 20 4c 69 6e | ()..."Return.an.alist.of.all.Lin |
| 39f20 | 75 78 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 2e 0a 45 61 63 68 20 6c 69 73 74 20 65 6e 74 72 79 | ux.applications..Each.list.entry |
| 39f40 | 20 69 73 20 61 20 70 61 69 72 20 6f 66 20 28 64 65 73 6b 74 6f 70 2d 6e 61 6d 65 20 2e 20 64 65 | .is.a.pair.of.(desktop-name...de |
| 39f60 | 73 6b 74 6f 70 2d 66 69 6c 65 29 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 61 6c 77 61 79 | sktop-file)..This.function.alway |
| 39f80 | 73 20 72 65 74 75 72 6e 73 20 69 74 73 20 65 6c 65 6d 65 6e 74 73 20 69 6e 20 61 20 73 74 61 62 | s.returns.its.elements.in.a.stab |
| 39fa0 | 6c 65 20 6f 72 64 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 28 68 61 73 68 20 28 6d 61 6b 65 2d 68 | le.order."...(let.((hash.(make-h |
| 39fc0 | 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 | ash-table.:test.#'equal))....... |
| 39fe0 | 20 20 72 65 73 75 6c 74 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 64 69 72 20 63 6f 75 6e 73 | ..result).....(dolist.(dir.couns |
| 3a000 | 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 64 69 72 65 63 74 6f 72 69 65 73 29 0a 20 20 20 20 20 | el-linux-apps-directories)...... |
| 3a020 | 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 64 69 72 29 0a 20 20 20 20 20 | .(when.(file-exists-p.dir)...... |
| 3a040 | 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 | ...(let.((dir.(file-name-as-dire |
| 3a060 | 63 74 6f 72 79 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 75 6e 63 74 69 | ctory.dir)))...........;;.Functi |
| 3a080 | 6f 6e 20 60 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 2d 72 65 63 75 72 73 69 76 65 6c 79 27 | on.`directory-files-recursively' |
| 3a0a0 | 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 32 35 2e 31 2e 0a 20 20 20 20 20 20 20 20 20 20 | .added.in.Emacs.25.1............ |
| 3a0c0 | 28 64 6f 6c 69 73 74 20 28 66 69 6c 65 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 2d 72 | (dolist.(file.(directory-files-r |
| 3a0e0 | 65 63 75 72 73 69 76 65 6c 79 20 64 69 72 20 22 5c 5c 2e 64 65 73 6b 74 6f 70 5c 5c 27 22 29 29 | ecursively.dir."\\.desktop\\'")) |
| 3a100 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 69 64 20 28 73 75 62 73 74 2d 63 68 | .............(let.((id.(subst-ch |
| 3a120 | 61 72 2d 69 6e 2d 73 74 72 69 6e 67 20 3f 2f 20 3f 2d 20 28 66 69 6c 65 2d 72 65 6c 61 74 69 76 | ar-in-string.?/.?-.(file-relativ |
| 3a140 | 65 2d 6e 61 6d 65 20 66 69 6c 65 20 64 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-name.file.dir))))............. |
| 3a160 | 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 67 65 74 68 61 73 68 20 69 64 20 68 61 | ..(when.(and.(not.(gethash.id.ha |
| 3a180 | 73 68 29 29 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 2d 70 20 66 69 6c 65 29 29 0a 20 20 20 | sh)).(file-readable-p.file)).... |
| 3a1a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 69 64 20 66 69 6c 65 | .............(push.(cons.id.file |
| 3a1c0 | 29 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 | ).result).................(putha |
| 3a1e0 | 73 68 20 69 64 20 66 69 6c 65 20 68 61 73 68 29 29 29 29 29 29 29 0a 20 20 20 20 72 65 73 75 6c | sh.id.file.hash))))))).....resul |
| 3a200 | 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 2d 70 | t))..(defun.counsel-linux-app--p |
| 3a220 | 61 72 73 65 2d 66 69 6c 65 20 28 66 69 6c 65 29 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 | arse-file.(file)...(with-temp-bu |
| 3a240 | 66 66 65 72 0a 20 20 20 20 28 69 6e 73 65 72 74 2d 66 69 6c 65 2d 63 6f 6e 74 65 6e 74 73 20 66 | ffer.....(insert-file-contents.f |
| 3a260 | 69 6c 65 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 | ile).....(goto-char.(point-min)) |
| 3a280 | 0a 20 20 20 20 28 6c 65 74 20 28 28 73 74 61 72 74 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 | .....(let.((start.(re-search-for |
| 3a2a0 | 77 61 72 64 20 22 5e 5c 5c 5b 44 65 73 6b 74 6f 70 20 45 6e 74 72 79 5c 5c 5d 20 2a 24 22 20 6e | ward."^\\[Desktop.Entry\\].*$".n |
| 3a2c0 | 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 72 65 2d 73 65 61 72 63 68 | il.t))...........(end.(re-search |
| 3a2e0 | 2d 66 6f 72 77 61 72 64 20 22 5e 5c 5c 5b 22 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 | -forward."^\\[".nil.t))......... |
| 3a300 | 20 20 28 76 69 73 69 62 6c 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 6e 61 6d 65 20 63 6f 6d | ..(visible.t)...........name.com |
| 3a320 | 6d 65 6e 74 20 65 78 65 63 29 0a 20 20 20 20 20 20 28 63 61 74 63 68 20 27 62 72 65 61 6b 0a 20 | ment.exec).......(catch.'break.. |
| 3a340 | 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 73 74 61 72 74 0a 20 20 20 20 20 20 20 20 20 20 28 | .......(unless.start...........( |
| 3a360 | 70 75 73 68 20 66 69 6c 65 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 66 61 75 | push.file.counsel-linux-apps-fau |
| 3a380 | 6c 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 57 61 72 6e 69 6e 67 | lty)...........(message."Warning |
| 3a3a0 | 3a 20 46 69 6c 65 20 25 73 20 68 61 73 20 6e 6f 20 5b 44 65 73 6b 74 6f 70 20 45 6e 74 72 79 5d | :.File.%s.has.no.[Desktop.Entry] |
| 3a3c0 | 20 67 72 6f 75 70 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 | .group".file)...........(throw.' |
| 3a3e0 | 62 72 65 61 6b 20 6e 69 6c 29 29 0a 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 | break.nil))..........(goto-char. |
| 3a400 | 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d | start).........(when.(re-search- |
| 3a420 | 66 6f 72 77 61 72 64 20 22 5e 5c 5c 28 48 69 64 64 65 6e 5c 5c 7c 4e 6f 44 69 73 70 6c 61 79 5c | forward."^\\(Hidden\\|NoDisplay\ |
| 3a440 | 5c 29 20 2a 3d 20 2a 5c 5c 28 31 5c 5c 7c 74 72 75 65 5c 5c 29 20 2a 24 22 20 65 6e 64 20 74 29 | \).*=.*\\(1\\|true\\).*$".end.t) |
| 3a460 | 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 76 69 73 69 62 6c 65 20 6e 69 6c 29 29 0a 20 | ...........(setq.visible.nil)).. |
| 3a480 | 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 | .......(setq.name.(match-string. |
| 3a4a0 | 31 29 29 0a 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 | 1))..........(goto-char.start).. |
| 3a4c0 | 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 | .......(unless.(re-search-forwar |
| 3a4e0 | 64 20 22 5e 54 79 70 65 20 2a 3d 20 2a 41 70 70 6c 69 63 61 74 69 6f 6e 20 2a 24 22 20 65 6e 64 | d."^Type.*=.*Application.*$".end |
| 3a500 | 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 6e 69 6c 29 | .t)...........(throw.'break.nil) |
| 3a520 | 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 6d 61 74 63 68 2d 73 74 72 69 | ).........(setq.name.(match-stri |
| 3a540 | 6e 67 20 31 29 29 0a 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 | ng.1))..........(goto-char.start |
| 3a560 | 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 | ).........(unless.(re-search-for |
| 3a580 | 77 61 72 64 20 22 5e 4e 61 6d 65 20 2a 3d 20 2a 5c 5c 28 2e 2b 5c 5c 29 24 22 20 65 6e 64 20 74 | ward."^Name.*=.*\\(.+\\)$".end.t |
| 3a5a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 69 6c 65 20 63 6f 75 6e 73 65 6c 2d 6c | )...........(push.file.counsel-l |
| 3a5c0 | 69 6e 75 78 2d 61 70 70 73 2d 66 61 75 6c 74 79 29 0a 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 | inux-apps-faulty)...........(mes |
| 3a5e0 | 73 61 67 65 20 22 57 61 72 6e 69 6e 67 3a 20 46 69 6c 65 20 25 73 20 68 61 73 20 6e 6f 20 4e 61 | sage."Warning:.File.%s.has.no.Na |
| 3a600 | 6d 65 22 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 | me".file)...........(throw.'brea |
| 3a620 | 6b 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 6e 61 6d 65 20 28 6d 61 74 63 | k.nil)).........(setq.name.(matc |
| 3a640 | 68 2d 73 74 72 69 6e 67 20 31 29 29 0a 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 | h-string.1))..........(goto-char |
| 3a660 | 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 | .start).........(when.(re-search |
| 3a680 | 2d 66 6f 72 77 61 72 64 20 22 5e 43 6f 6d 6d 65 6e 74 20 2a 3d 20 2a 5c 5c 28 2e 2b 5c 5c 29 24 | -forward."^Comment.*=.*\\(.+\\)$ |
| 3a6a0 | 22 20 65 6e 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 6d 6d 65 6e 74 | ".end.t)...........(setq.comment |
| 3a6c0 | 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 29 0a 0a 20 20 20 20 20 20 20 20 28 67 6f | .(match-string.1)))..........(go |
| 3a6e0 | 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | to-char.start).........(unless.( |
| 3a700 | 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 45 78 65 63 20 2a 3d 20 2a 5c 5c 28 | re-search-forward."^Exec.*=.*\\( |
| 3a720 | 2e 2b 5c 5c 29 24 22 20 65 6e 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 44 6f 6e 27 | .+\\)$".end.t)...........;;.Don' |
| 3a740 | 74 20 77 61 72 6e 20 62 65 63 61 75 73 65 20 74 68 69 73 20 63 61 6e 20 74 65 63 68 6e 69 63 61 | t.warn.because.this.can.technica |
| 3a760 | 6c 6c 79 20 62 65 20 61 20 76 61 6c 69 64 20 64 65 73 6b 74 6f 70 20 66 69 6c 65 2e 0a 20 20 20 | lly.be.a.valid.desktop.file..... |
| 3a780 | 20 20 20 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 6e 69 6c 29 29 0a 20 20 20 20 20 | .......(throw.'break.nil))...... |
| 3a7a0 | 20 20 20 28 73 65 74 71 20 65 78 65 63 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 31 29 29 0a | ...(setq.exec.(match-string.1)). |
| 3a7c0 | 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 73 74 61 72 74 29 0a 20 20 20 20 20 | .........(goto-char.start)...... |
| 3a7e0 | 20 20 20 28 77 68 65 6e 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5e 54 72 | ...(when.(re-search-forward."^Tr |
| 3a800 | 79 45 78 65 63 20 2a 3d 20 2a 5c 5c 28 2e 2b 5c 5c 29 24 22 20 65 6e 64 20 74 29 0a 20 20 20 20 | yExec.*=.*\\(.+\\)$".end.t)..... |
| 3a820 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 72 79 2d 65 78 65 63 20 28 6d 61 74 63 68 2d 73 74 72 | ......(let.((try-exec.(match-str |
| 3a840 | 69 6e 67 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6c 6f | ing.1))).............(unless.(lo |
| 3a860 | 63 61 74 65 2d 66 69 6c 65 20 74 72 79 2d 65 78 65 63 20 65 78 65 63 2d 70 61 74 68 20 6e 69 6c | cate-file.try-exec.exec-path.nil |
| 3a880 | 20 23 27 66 69 6c 65 2d 65 78 65 63 75 74 61 62 6c 65 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 | .#'file-executable-p)........... |
| 3a8a0 | 20 20 20 20 28 74 68 72 6f 77 20 27 62 72 65 61 6b 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 | ....(throw.'break.nil))))....... |
| 3a8c0 | 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 | ..(propertize..........(funcall. |
| 3a8e0 | 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f | counsel-linux-app-format-functio |
| 3a900 | 6e 20 6e 61 6d 65 20 63 6f 6d 6d 65 6e 74 20 65 78 65 63 29 0a 20 20 20 20 20 20 20 20 20 27 76 | n.name.comment.exec)..........'v |
| 3a920 | 69 73 69 62 6c 65 20 76 69 73 69 62 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e | isible.visible)))))..(defun.coun |
| 3a940 | 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 70 61 72 73 65 20 28 64 65 73 6b 74 6f 70 2d 65 6e | sel-linux-apps-parse.(desktop-en |
| 3a960 | 74 72 69 65 73 2d 61 6c 69 73 74 29 0a 20 20 22 50 61 72 73 65 20 74 68 65 20 67 69 76 65 6e 20 | tries-alist)..."Parse.the.given. |
| 3a980 | 61 6c 69 73 74 20 6f 66 20 4c 69 6e 75 78 20 64 65 73 6b 74 6f 70 20 65 6e 74 72 69 65 73 2e 0a | alist.of.Linux.desktop.entries.. |
| 3a9a0 | 45 61 63 68 20 65 6e 74 72 79 20 69 6e 20 44 45 53 4b 54 4f 50 2d 45 4e 54 52 49 45 53 2d 41 4c | Each.entry.in.DESKTOP-ENTRIES-AL |
| 3a9c0 | 49 53 54 20 69 73 20 61 20 70 61 69 72 20 6f 66 20 28 28 69 64 20 2e 20 66 69 6c 65 2d 6e 61 6d | IST.is.a.pair.of.((id...file-nam |
| 3a9e0 | 65 29 29 2e 0a 41 6e 79 20 64 65 73 6b 74 6f 70 20 65 6e 74 72 69 65 73 20 74 68 61 74 20 66 61 | e))..Any.desktop.entries.that.fa |
| 3aa00 | 69 6c 20 74 6f 20 70 61 72 73 65 20 61 72 65 20 72 65 63 6f 72 64 65 64 20 69 6e 0a 60 63 6f 75 | il.to.parse.are.recorded.in.`cou |
| 3aa20 | 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 66 61 75 6c 74 79 27 2e 22 0a 20 20 28 6c 65 74 | nsel-linux-apps-faulty'."...(let |
| 3aa40 | 20 28 72 65 73 75 6c 74 29 0a 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 | .(result).....(setq.counsel-linu |
| 3aa60 | 78 2d 61 70 70 73 2d 66 61 75 6c 74 79 20 6e 69 6c 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 | x-apps-faulty.nil).....(dolist.( |
| 3aa80 | 65 6e 74 72 79 20 64 65 73 6b 74 6f 70 2d 65 6e 74 72 69 65 73 2d 61 6c 69 73 74 20 72 65 73 75 | entry.desktop-entries-alist.resu |
| 3aaa0 | 6c 74 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 69 64 20 28 63 61 72 20 65 6e 74 72 79 29 | lt).......(let*.((id.(car.entry) |
| 3aac0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 63 64 72 20 65 6e 74 72 79 29 | )..............(file.(cdr.entry) |
| 3aae0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 | )..............(r.(counsel-linux |
| 3ab00 | 2d 61 70 70 2d 2d 70 61 72 73 65 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 | -app--parse-file.file)))........ |
| 3ab20 | 20 28 77 68 65 6e 20 72 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 72 | .(when.r...........(push.(cons.r |
| 3ab40 | 20 69 64 29 20 72 65 73 75 6c 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | .id).result))))))..(defun.counse |
| 3ab60 | 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 6c 69 73 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 6c | l-linux-apps-list.()..."Return.l |
| 3ab80 | 69 73 74 20 6f 66 20 61 6c 6c 20 4c 69 6e 75 78 20 64 65 73 6b 74 6f 70 20 61 70 70 6c 69 63 61 | ist.of.all.Linux.desktop.applica |
| 3aba0 | 74 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6e 65 77 2d 64 65 73 6b 74 6f 70 2d 61 6c | tions."...(let*.((new-desktop-al |
| 3abc0 | 69 73 74 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 6c 69 73 74 2d 64 65 73 | ist.(counsel-linux-apps-list-des |
| 3abe0 | 6b 74 6f 70 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 66 69 6c 65 73 | ktop-files))..........(new-files |
| 3ac00 | 20 28 6d 61 70 63 61 72 20 23 27 63 64 72 20 6e 65 77 2d 64 65 73 6b 74 6f 70 2d 61 6c 69 73 74 | .(mapcar.#'cdr.new-desktop-alist |
| 3ac20 | 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 | ))).....(unless.(and............ |
| 3ac40 | 20 20 28 65 71 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d 66 | ..(eq.counsel-linux-app-format-f |
| 3ac60 | 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c | unction..................counsel |
| 3ac80 | 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 | --linux-apps-cache-format-functi |
| 3aca0 | 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 6e 65 77 2d 66 69 6c 65 | on)..............(equal.new-file |
| 3acc0 | 73 20 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 64 2d 66 69 6c | s.counsel--linux-apps-cached-fil |
| 3ace0 | 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 63 6c 2d 66 69 6e 64 2d | es)..............(null.(cl-find- |
| 3ad00 | 69 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | if.....................(lambda.( |
| 3ad20 | 66 69 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 28 74 69 6d | file).......................(tim |
| 3ad40 | 65 2d 6c 65 73 73 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | e-less-p........................ |
| 3ad60 | 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 2d 74 69 6d 65 73 74 | counsel--linux-apps-cache-timest |
| 3ad80 | 61 6d 70 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 6e 74 68 20 | amp........................(nth. |
| 3ada0 | 35 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 | 5.(file-attributes.file))))..... |
| 3adc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 65 77 2d 66 69 6c 65 73 29 29 29 0a 20 20 20 | ................new-files))).... |
| 3ade0 | 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 | ...(setq.counsel--linux-apps-cac |
| 3ae00 | 68 65 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 70 61 72 73 65 20 6e 65 77 | he.(counsel-linux-apps-parse.new |
| 3ae20 | 2d 64 65 73 6b 74 6f 70 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 | -desktop-alist)).......(setq.cou |
| 3ae40 | 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 2d 66 6f 72 6d 61 74 2d 66 75 | nsel--linux-apps-cache-format-fu |
| 3ae60 | 6e 63 74 69 6f 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 66 6f 72 6d 61 74 2d | nction.counsel-linux-app-format- |
| 3ae80 | 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 6c | function).......(setq.counsel--l |
| 3aea0 | 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 2d 74 69 6d 65 73 74 61 6d 70 20 28 63 75 72 72 65 | inux-apps-cache-timestamp.(curre |
| 3aec0 | 6e 74 2d 74 69 6d 65 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 2d 6c | nt-time)).......(setq.counsel--l |
| 3aee0 | 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 64 2d 66 69 6c 65 73 20 6e 65 77 2d 66 69 6c 65 73 | inux-apps-cached-files.new-files |
| 3af00 | 29 29 29 0a 20 20 63 6f 75 6e 73 65 6c 2d 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 63 61 63 68 65 29 | )))...counsel--linux-apps-cache) |
| 3af20 | 0a 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 61 63 74 69 | ...(defun.counsel-linux-app-acti |
| 3af40 | 6f 6e 2d 64 65 66 61 75 6c 74 20 28 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 0a 20 20 | on-default.(desktop-shortcut)... |
| 3af60 | 22 4c 61 75 6e 63 68 20 44 45 53 4b 54 4f 50 2d 53 48 4f 52 54 43 55 54 2e 22 0a 20 20 28 63 61 | "Launch.DESKTOP-SHORTCUT."...(ca |
| 3af80 | 6c 6c 2d 70 72 6f 63 65 73 73 20 22 67 74 6b 2d 6c 61 75 6e 63 68 22 20 6e 69 6c 20 30 20 6e 69 | ll-process."gtk-launch".nil.0.ni |
| 3afa0 | 6c 20 28 63 64 72 20 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 29 29 0a 0a 28 64 65 66 | l.(cdr.desktop-shortcut)))..(def |
| 3afc0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 61 63 74 69 6f 6e 2d 66 69 6c 65 | un.counsel-linux-app-action-file |
| 3afe0 | 20 28 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 0a 20 20 22 4c 61 75 6e 63 68 20 44 45 | .(desktop-shortcut)..."Launch.DE |
| 3b000 | 53 4b 54 4f 50 2d 53 48 4f 52 54 43 55 54 20 77 69 74 68 20 61 20 73 65 6c 65 63 74 65 64 20 66 | SKTOP-SHORTCUT.with.a.selected.f |
| 3b020 | 69 6c 65 2e 22 0a 20 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 67 74 6b 2d 6c 61 75 6e 63 | ile."...(call-process."gtk-launc |
| 3b040 | 68 22 20 6e 69 6c 20 30 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 | h".nil.0.nil.................(cd |
| 3b060 | 72 20 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r.desktop-shortcut)............. |
| 3b080 | 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 46 69 6c 65 3a 20 22 29 29 29 0a | ....(read-file-name."File:."))). |
| 3b0a0 | 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 61 63 74 69 6f 6e | .(defun.counsel-linux-app-action |
| 3b0c0 | 2d 6f 70 65 6e 2d 64 65 73 6b 74 6f 70 20 28 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 | -open-desktop.(desktop-shortcut) |
| 3b0e0 | 0a 20 20 22 4f 70 65 6e 20 44 45 53 4b 54 4f 50 2d 53 48 4f 52 54 43 55 54 2e 22 0a 20 20 28 6c | ..."Open.DESKTOP-SHORTCUT."...(l |
| 3b100 | 65 74 2a 20 28 28 61 70 70 20 28 63 64 72 20 64 65 73 6b 74 6f 70 2d 73 68 6f 72 74 63 75 74 29 | et*.((app.(cdr.desktop-shortcut) |
| 3b120 | 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 63 64 72 20 28 61 73 73 6f 63 20 61 70 70 | )..........(file.(cdr.(assoc.app |
| 3b140 | 20 28 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 6c 69 73 74 2d 64 65 73 6b 74 6f | .(counsel-linux-apps-list-deskto |
| 3b160 | 70 2d 66 69 6c 65 73 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 66 69 6c 65 0a 20 20 20 20 20 20 | p-files))))).....(if.file....... |
| 3b180 | 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 | ..(find-file.file).......(error. |
| 3b1a0 | 22 43 6f 75 6c 64 20 6e 6f 74 20 66 69 6e 64 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 66 69 6c 65 | "Could.not.find.location.of.file |
| 3b1c0 | 20 25 73 22 20 61 70 70 29 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 | .%s".app))))..(ivy-set-actions.. |
| 3b1e0 | 27 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 0a 20 27 28 28 22 66 22 20 63 6f 75 6e 73 | 'counsel-linux-app..'(("f".couns |
| 3b200 | 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 61 63 74 69 6f 6e 2d 66 69 6c 65 20 22 72 75 6e 20 6f 6e | el-linux-app-action-file."run.on |
| 3b220 | 20 61 20 66 69 6c 65 22 29 0a 20 20 20 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d | .a.file")....("d".counsel-linux- |
| 3b240 | 61 70 70 2d 61 63 74 69 6f 6e 2d 6f 70 65 6e 2d 64 65 73 6b 74 6f 70 20 22 6f 70 65 6e 20 64 65 | app-action-open-desktop."open.de |
| 3b260 | 73 6b 74 6f 70 20 66 69 6c 65 22 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 | sktop.file")))..;;;###autoload.( |
| 3b280 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 20 28 26 6f 70 74 69 6f 6e | defun.counsel-linux-app.(&option |
| 3b2a0 | 61 6c 20 61 72 67 29 0a 20 20 22 4c 61 75 6e 63 68 20 61 20 4c 69 6e 75 78 20 64 65 73 6b 74 6f | al.arg)..."Launch.a.Linux.deskto |
| 3b2c0 | 70 20 61 70 70 6c 69 63 61 74 69 6f 6e 2c 20 73 69 6d 69 6c 61 72 20 74 6f 20 41 6c 74 2d 3c 46 | p.application,.similar.to.Alt-<F |
| 3b2e0 | 32 3e 2e 0a 57 68 65 6e 20 41 52 47 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 69 67 6e 6f 72 65 20 | 2>..When.ARG.is.non-nil,.ignore. |
| 3b300 | 4e 6f 44 69 73 70 6c 61 79 20 70 72 6f 70 65 72 74 79 20 69 6e 20 2a 2e 64 65 73 6b 74 6f 70 20 | NoDisplay.property.in.*.desktop. |
| 3b320 | 66 69 6c 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 69 | files."...(interactive."P")...(i |
| 3b340 | 76 79 2d 72 65 61 64 20 22 52 75 6e 20 61 70 70 6c 69 63 61 74 69 6f 6e 3a 20 22 20 28 63 6f 75 | vy-read."Run.application:.".(cou |
| 3b360 | 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 73 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 | nsel-linux-apps-list)........... |
| 3b380 | 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 75 6e 6c 65 73 73 20 61 72 67 20 28 6c 61 6d 62 64 61 | ..:predicate.(unless.arg.(lambda |
| 3b3a0 | 20 28 78 29 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 76 69 73 69 62 | .(x).(get-text-property.0.'visib |
| 3b3c0 | 6c 65 20 28 63 61 72 20 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f | le.(car.x)))).............:actio |
| 3b3e0 | 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 6c 69 6e 75 78 2d 61 70 70 2d 61 63 74 69 6f 6e 2d 64 65 66 | n.#'counsel-linux-app-action-def |
| 3b400 | 61 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 | ault.............:caller.'counse |
| 3b420 | 6c 2d 6c 69 6e 75 78 2d 61 70 70 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 77 6d 63 | l-linux-app))..;;**.`counsel-wmc |
| 3b440 | 74 72 6c 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 2d 61 63 74 69 6f | trl'.(defun.counsel-wmctrl-actio |
| 3b460 | 6e 20 28 78 29 0a 20 20 22 53 65 6c 65 63 74 20 74 68 65 20 64 65 73 6b 74 6f 70 20 77 69 6e 64 | n.(x)..."Select.the.desktop.wind |
| 3b480 | 6f 77 20 74 68 61 74 20 63 6f 72 72 65 73 70 6f 6e 64 73 20 74 6f 20 58 2e 22 0a 20 20 28 63 6f | ow.that.corresponds.to.X."...(co |
| 3b4a0 | 75 6e 73 65 6c 2d 2d 72 75 6e 20 22 77 6d 63 74 72 6c 22 20 22 2d 69 22 20 22 2d 61 22 20 28 63 | unsel--run."wmctrl"."-i"."-a".(c |
| 3b4c0 | 64 72 20 78 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 2d | dr.x)))..(defvar.counsel-wmctrl- |
| 3b4e0 | 69 67 6e 6f 72 65 20 27 28 22 58 64 6e 64 43 6f 6c 6c 65 63 74 69 6f 6e 57 69 6e 64 6f 77 49 6d | ignore.'("XdndCollectionWindowIm |
| 3b500 | 70 22 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 | p".............................. |
| 3b520 | 20 20 20 22 75 6e 69 74 79 2d 6c 61 75 6e 63 68 65 72 22 20 22 75 6e 69 74 79 2d 70 61 6e 65 6c | ..."unity-launcher"."unity-panel |
| 3b540 | 22 20 22 75 6e 69 74 79 2d 64 61 73 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | "."unity-dash".................. |
| 3b560 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 48 75 64 22 20 22 44 65 73 6b 74 6f 70 22 29 0a | ..............."Hud"."Desktop"). |
| 3b580 | 20 20 22 4c 69 73 74 20 6f 66 20 77 69 6e 64 6f 77 20 74 69 74 6c 65 73 20 74 6f 20 69 67 6e 6f | .."List.of.window.titles.to.igno |
| 3b5a0 | 72 65 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 27 2e 22 29 0a 0a 28 64 65 66 | re.for.`counsel-wmctrl'.")..(def |
| 3b5c0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 77 6d 63 74 72 6c 2d 70 61 72 73 65 20 28 73 29 0a 20 20 28 | un.counsel--wmctrl-parse.(s)...( |
| 3b5e0 | 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 28 5b 30 2d 39 61 2d | when.(string-match."\\`\\([0-9a- |
| 3b600 | 66 78 5d 2b 5c 5c 29 20 2b 5c 5c 28 5b 2d 30 2d 39 5d 2b 5c 5c 29 20 2b 5c 5c 28 3f 3a 5b 30 2d | fx]+\\).+\\([-0-9]+\\).+\\(?:[0- |
| 3b620 | 39 5d 2b 5c 5c 29 20 2b 5c 5c 28 5b 5e 20 5d 2b 5c 5c 29 20 5c 5c 28 2e 2b 5c 5c 29 24 22 20 73 | 9]+\\).+\\([^.]+\\).\\(.+\\)$".s |
| 3b640 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 74 69 74 6c 65 20 28 6d 61 74 63 68 2d 73 74 72 69 6e 67 | ).....(let.((title.(match-string |
| 3b660 | 20 34 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 64 20 28 6d 61 74 63 68 2d 73 74 72 69 | .4.s))...........(id.(match-stri |
| 3b680 | 6e 67 20 31 20 73 29 29 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 | ng.1.s))).......(unless.(member. |
| 3b6a0 | 74 69 74 6c 65 20 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 2d 69 67 6e 6f 72 65 29 0a 20 20 20 | title.counsel-wmctrl-ignore).... |
| 3b6c0 | 20 20 20 20 20 28 63 6f 6e 73 20 74 69 74 6c 65 20 69 64 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 | .....(cons.title.id)))))..;;;### |
| 3b6e0 | 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 20 28 | autoload.(defun.counsel-wmctrl.( |
| 3b700 | 29 0a 20 20 22 53 65 6c 65 63 74 20 61 20 64 65 73 6b 74 6f 70 20 77 69 6e 64 6f 77 20 75 73 69 | )..."Select.a.desktop.window.usi |
| 3b720 | 6e 67 20 77 6d 63 74 72 6c 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c | ng.wmctrl."...(interactive)...(l |
| 3b740 | 65 74 2a 20 28 28 63 61 6e 64 73 31 20 28 63 6f 75 6e 73 65 6c 2d 2d 73 6c 20 22 77 6d 63 74 72 | et*.((cands1.(counsel--sl."wmctr |
| 3b760 | 6c 20 2d 6c 20 2d 70 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 73 32 20 28 64 65 6c | l.-l.-p"))..........(cands2.(del |
| 3b780 | 71 20 6e 69 6c 20 28 6d 61 70 63 61 72 20 23 27 63 6f 75 6e 73 65 6c 2d 2d 77 6d 63 74 72 6c 2d | q.nil.(mapcar.#'counsel--wmctrl- |
| 3b7a0 | 70 61 72 73 65 20 63 61 6e 64 73 31 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 72 65 61 64 20 22 | parse.cands1)))).....(ivy-read." |
| 3b7c0 | 77 69 6e 64 6f 77 3a 20 22 20 63 61 6e 64 73 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | window:.".cands2...............: |
| 3b7e0 | 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 77 6d 63 74 72 6c 2d 61 63 74 69 6f 6e 0a 20 | action.#'counsel-wmctrl-action.. |
| 3b800 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 77 6d | .............:caller.'counsel-wm |
| 3b820 | 63 74 72 6c 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 | ctrl)))..(defvar.counsel--switch |
| 3b840 | 2d 62 75 66 66 65 72 2d 74 65 6d 70 6f 72 61 72 79 2d 62 75 66 66 65 72 73 20 6e 69 6c 0a 20 20 | -buffer-temporary-buffers.nil... |
| 3b860 | 22 49 6e 74 65 72 6e 61 6c 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 2d 73 | "Internal.")..(defvar.counsel--s |
| 3b880 | 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 65 76 69 6f 75 73 2d 62 75 66 66 65 72 73 20 6e 69 | witch-buffer-previous-buffers.ni |
| 3b8a0 | 6c 0a 20 20 22 49 6e 74 65 72 6e 61 6c 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | l..."Internal.")..(defun.counsel |
| 3b8c0 | 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 75 6e 77 69 6e 64 20 28 29 0a 20 20 22 43 6c 65 | --switch-buffer-unwind.()..."Cle |
| 3b8e0 | 61 72 20 74 65 6d 70 6f 72 61 72 79 20 66 69 6c 65 20 62 75 66 66 65 72 73 20 61 6e 64 20 72 65 | ar.temporary.file.buffers.and.re |
| 3b900 | 73 74 6f 72 65 20 60 62 75 66 66 65 72 2d 6c 69 73 74 27 2e 0a 54 68 65 20 62 75 66 66 65 72 73 | store.`buffer-list'..The.buffers |
| 3b920 | 20 61 72 65 20 74 68 6f 73 65 20 6f 70 65 6e 65 64 20 64 75 72 69 6e 67 20 61 20 73 65 73 73 69 | .are.those.opened.during.a.sessi |
| 3b940 | 6f 6e 20 6f 66 20 60 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 27 2e 22 0a | on.of.`counsel-switch-buffer'.". |
| 3b960 | 20 20 28 6d 61 70 63 20 23 27 6b 69 6c 6c 2d 62 75 66 66 65 72 20 63 6f 75 6e 73 65 6c 2d 2d 73 | ..(mapc.#'kill-buffer.counsel--s |
| 3b980 | 77 69 74 63 68 2d 62 75 66 66 65 72 2d 74 65 6d 70 6f 72 61 72 79 2d 62 75 66 66 65 72 73 29 0a | witch-buffer-temporary-buffers). |
| 3b9a0 | 20 20 28 6d 61 70 63 20 23 27 62 75 72 79 2d 62 75 66 66 65 72 20 28 63 6c 2d 72 65 6d 6f 76 65 | ..(mapc.#'bury-buffer.(cl-remove |
| 3b9c0 | 2d 69 66 2d 6e 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | -if-not........................# |
| 3b9e0 | 27 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | 'buffer-live-p.................. |
| 3ba00 | 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 65 | ......counsel--switch-buffer-pre |
| 3ba20 | 76 69 6f 75 73 2d 62 75 66 66 65 72 73 29 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d | vious-buffers))...(setq.counsel- |
| 3ba40 | 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 74 65 6d 70 6f 72 61 72 79 2d 62 75 66 66 65 72 73 | -switch-buffer-temporary-buffers |
| 3ba60 | 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 62 75 66 | .nil.........counsel--switch-buf |
| 3ba80 | 66 65 72 2d 70 72 65 76 69 6f 75 73 2d 62 75 66 66 65 72 73 20 6e 69 6c 29 29 0a 0a 28 64 65 66 | fer-previous-buffers.nil))..(def |
| 3baa0 | 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 65 | custom.counsel-switch-buffer-pre |
| 3bac0 | 76 69 65 77 2d 76 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 20 74 0a 20 20 22 57 68 65 6e 20 6e | view-virtual-buffers.t..."When.n |
| 3bae0 | 6f 6e 2d 6e 69 6c 2c 20 60 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 27 20 | on-nil,.`counsel-switch-buffer'. |
| 3bb00 | 77 69 6c 6c 20 70 72 65 76 69 65 77 20 76 69 72 74 75 61 6c 20 62 75 66 66 65 72 73 2e 22 0a 20 | will.preview.virtual.buffers.".. |
| 3bb20 | 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 75 6e 73 65 6c | .:type.'boolean)..(defun.counsel |
| 3bb40 | 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 75 70 64 61 74 65 2d 66 6e 20 28 29 0a 20 20 28 | --switch-buffer-update-fn.()...( |
| 3bb60 | 75 6e 6c 65 73 73 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 | unless.counsel--switch-buffer-pr |
| 3bb80 | 65 76 69 6f 75 73 2d 62 75 66 66 65 72 73 0a 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c | evious-buffers.....(setq.counsel |
| 3bba0 | 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 65 76 69 6f 75 73 2d 62 75 66 66 65 72 73 | --switch-buffer-previous-buffers |
| 3bbc0 | 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 76 69 72 74 75 | .(buffer-list)))...(let*.((virtu |
| 3bbe0 | 61 6c 20 28 61 73 73 6f 63 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 | al.(assoc.(ivy-state-current.ivy |
| 3bc00 | 2d 6c 61 73 74 29 20 69 76 79 2d 2d 76 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 29 29 29 0a 20 | -last).ivy--virtual-buffers))).. |
| 3bc20 | 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 | ...(when.(member.(ivy-state-curr |
| 3bc40 | 65 6e 74 20 69 76 79 2d 6c 61 73 74 29 20 69 76 79 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 | ent.ivy-last).ivy-marked-candida |
| 3bc60 | 74 65 73 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 | tes).......(setf.(ivy-state-curr |
| 3bc80 | 65 6e 74 20 69 76 79 2d 6c 61 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 | ent.ivy-last).............(subst |
| 3bca0 | 72 69 6e 67 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 2d 6c 61 73 74 | ring.(ivy-state-current.ivy-last |
| 3bcc0 | 29 20 28 6c 65 6e 67 74 68 20 69 76 79 2d 6d 61 72 6b 2d 70 72 65 66 69 78 29 29 29 29 0a 20 20 | ).(length.ivy-mark-prefix))))... |
| 3bce0 | 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 28 28 67 65 74 2d 62 75 66 66 65 72 20 28 69 76 79 2d | ..(cond.......((get-buffer.(ivy- |
| 3bd00 | 73 74 61 74 65 2d 63 75 72 72 65 6e 74 20 69 76 79 2d 6c 61 73 74 29 29 0a 20 20 20 20 20 20 20 | state-current.ivy-last))........ |
| 3bd20 | 28 6c 65 74 20 28 28 69 76 79 2d 6d 61 72 6b 65 64 2d 63 61 6e 64 69 64 61 74 65 73 20 6e 69 6c | (let.((ivy-marked-candidates.nil |
| 3bd40 | 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 76 79 2d 63 61 6c 6c 29 29 29 0a 20 20 20 20 20 20 28 | ))..........(ivy-call))).......( |
| 3bd60 | 28 61 6e 64 20 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 70 72 65 76 69 | (and.counsel-switch-buffer-previ |
| 3bd80 | 65 77 2d 76 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 20 76 69 72 74 75 61 6c 20 28 66 69 6c 65 | ew-virtual-buffers.virtual.(file |
| 3bda0 | 2d 65 78 69 73 74 73 2d 70 20 28 63 64 72 20 76 69 72 74 75 61 6c 29 29 29 0a 20 20 20 20 20 20 | -exists-p.(cdr.virtual)))....... |
| 3bdc0 | 20 28 6c 65 74 20 28 28 62 75 66 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 | .(let.((buf.(ignore-errors...... |
| 3bde0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6d 61 79 20 6e 6f 74 20 6f 70 65 6e 20 64 | ...............;;.may.not.open.d |
| 3be00 | 75 65 20 74 6f 20 60 6c 61 72 67 65 2d 66 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 74 68 72 65 73 68 | ue.to.`large-file-warning-thresh |
| 3be20 | 6f 6c 64 27 20 65 74 63 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | old'.etc......................(f |
| 3be40 | 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 28 63 64 72 20 76 69 72 74 75 61 6c 29 29 | ind-file-noselect.(cdr.virtual)) |
| 3be60 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 | )))..........(if.buf............ |
| 3be80 | 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 62 75 | ..(progn................(push.bu |
| 3bea0 | 66 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 74 65 6d 70 6f 72 61 | f.counsel--switch-buffer-tempora |
| 3bec0 | 72 79 2d 62 75 66 66 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d | ry-buffers)................(ivy- |
| 3bee0 | 63 61 6c 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 63 6c 65 61 6e 20 75 70 20 74 68 | call))............;;.clean.up.th |
| 3bf00 | 65 20 6d 69 6e 69 62 75 66 66 65 72 20 73 6f 20 74 68 61 74 20 74 68 65 72 65 27 73 20 6e 6f 20 | e.minibuffer.so.that.there's.no. |
| 3bf20 | 64 65 6c 61 79 20 62 65 66 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 49 | delay.before............;;.the.I |
| 3bf40 | 76 79 20 63 61 6e 64 69 64 61 74 65 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 6f 6e 63 65 | vy.candidates.are.displayed.once |
| 3bf60 | 20 61 67 61 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 22 29 29 29 | .again............(message.""))) |
| 3bf80 | 29 0a 20 20 20 20 20 20 28 74 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 69 76 79 2d 77 69 6e 64 | ).......(t........(with-ivy-wind |
| 3bfa0 | 6f 77 0a 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 69 | ow..........(switch-to-buffer.(i |
| 3bfc0 | 76 79 2d 73 74 61 74 65 2d 62 75 66 66 65 72 20 69 76 79 2d 6c 61 73 74 29 29 29 29 29 29 29 0a | vy-state-buffer.ivy-last))))))). |
| 3bfe0 | 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 75 6e 73 65 6c 2d 73 | .;;;###autoload.(defun.counsel-s |
| 3c000 | 77 69 74 63 68 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 61 6e 6f | witch-buffer.()..."Switch.to.ano |
| 3c020 | 74 68 65 72 20 62 75 66 66 65 72 2e 0a 44 69 73 70 6c 61 79 20 61 20 70 72 65 76 69 65 77 20 6f | ther.buffer..Display.a.preview.o |
| 3c040 | 66 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 69 76 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 | f.the.selected.ivy.completion.ca |
| 3c060 | 6e 64 69 64 61 74 65 20 62 75 66 66 65 72 0a 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 69 | ndidate.buffer.in.the.current.wi |
| 3c080 | 6e 64 6f 77 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 | ndow."...(interactive)...(let.(( |
| 3c0a0 | 69 76 79 2d 75 70 64 61 74 65 2d 66 6e 73 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 27 28 | ivy-update-fns-alist..........'( |
| 3c0c0 | 28 69 76 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 20 2e 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 | (ivy-switch-buffer...counsel--sw |
| 3c0e0 | 69 74 63 68 2d 62 75 66 66 65 72 2d 75 70 64 61 74 65 2d 66 6e 29 29 29 0a 20 20 20 20 20 20 20 | itch-buffer-update-fn)))........ |
| 3c100 | 20 28 69 76 79 2d 75 6e 77 69 6e 64 2d 66 6e 73 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 | .(ivy-unwind-fns-alist.......... |
| 3c120 | 27 28 28 69 76 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 20 2e 20 63 6f 75 6e 73 65 6c 2d 2d | '((ivy-switch-buffer...counsel-- |
| 3c140 | 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 75 6e 77 69 6e 64 29 29 29 29 0a 20 20 20 20 28 69 76 | switch-buffer-unwind)))).....(iv |
| 3c160 | 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f | y-switch-buffer)))..;;;###autolo |
| 3c180 | 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d | ad.(defun.counsel-switch-buffer- |
| 3c1a0 | 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 28 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 61 6e 6f | other-window.()..."Switch.to.ano |
| 3c1c0 | 74 68 65 72 20 62 75 66 66 65 72 20 69 6e 20 61 6e 6f 74 68 65 72 20 77 69 6e 64 6f 77 2e 0a 44 | ther.buffer.in.another.window..D |
| 3c1e0 | 69 73 70 6c 61 79 20 61 20 70 72 65 76 69 65 77 20 6f 66 20 74 68 65 20 73 65 6c 65 63 74 65 64 | isplay.a.preview.of.the.selected |
| 3c200 | 20 69 76 79 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 63 61 6e 64 69 64 61 74 65 20 62 75 66 66 65 72 | .ivy.completion.candidate.buffer |
| 3c220 | 0a 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 69 6e 74 65 | .in.the.current.window."...(inte |
| 3c240 | 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 69 76 79 2d 75 70 64 61 74 65 2d 66 6e 73 | ractive)...(let.((ivy-update-fns |
| 3c260 | 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 27 28 28 69 76 79 2d 73 77 69 74 63 68 2d 62 75 | -alist..........'((ivy-switch-bu |
| 3c280 | 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 2e 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 | ffer-other-window...counsel--swi |
| 3c2a0 | 74 63 68 2d 62 75 66 66 65 72 2d 75 70 64 61 74 65 2d 66 6e 29 29 29 0a 20 20 20 20 20 20 20 20 | tch-buffer-update-fn)))......... |
| 3c2c0 | 28 69 76 79 2d 75 6e 77 69 6e 64 2d 66 6e 73 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 27 | (ivy-unwind-fns-alist..........' |
| 3c2e0 | 28 28 69 76 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 | ((ivy-switch-buffer-other-window |
| 3c300 | 20 2e 20 63 6f 75 6e 73 65 6c 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 75 6e 77 69 6e 64 | ...counsel--switch-buffer-unwind |
| 3c320 | 29 29 29 29 0a 20 20 20 20 28 69 76 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 6f 74 68 65 | )))).....(ivy-switch-buffer-othe |
| 3c340 | 72 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6f 70 65 6e | r-window)))..(defun.counsel-open |
| 3c360 | 2d 62 75 66 66 65 72 2d 66 69 6c 65 2d 65 78 74 65 72 6e 61 6c 6c 79 20 28 62 75 66 66 65 72 29 | -buffer-file-externally.(buffer) |
| 3c380 | 0a 20 20 22 4f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 61 73 73 6f 63 69 61 74 65 64 20 77 69 74 | ..."Open.the.file.associated.wit |
| 3c3a0 | 68 20 42 55 46 46 45 52 20 77 69 74 68 20 61 6e 20 65 78 74 65 72 6e 61 6c 20 70 72 6f 67 72 61 | h.BUFFER.with.an.external.progra |
| 3c3c0 | 6d 2e 22 0a 20 20 28 77 68 65 6e 20 28 7a 65 72 6f 70 20 28 6c 65 6e 67 74 68 20 62 75 66 66 65 | m."...(when.(zerop.(length.buffe |
| 3c3e0 | 72 29 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 43 61 6e 27 74 20 6f 70 65 6e 20 | r)).....(user-error."Can't.open. |
| 3c400 | 74 68 61 74 22 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 76 69 72 74 75 61 6c 20 28 61 73 73 6f 63 | that"))...(let*.((virtual.(assoc |
| 3c420 | 20 62 75 66 66 65 72 20 69 76 79 2d 2d 76 69 72 74 75 61 6c 2d 62 75 66 66 65 72 73 29 29 0a 20 | .buffer.ivy--virtual-buffers)).. |
| 3c440 | 20 20 20 20 20 20 20 20 28 66 69 6c 65 6e 61 6d 65 20 28 69 66 20 76 69 72 74 75 61 6c 0a 20 20 | ........(filename.(if.virtual... |
| 3c460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 76 69 72 74 75 61 | .....................(cdr.virtua |
| 3c480 | 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d | l)......................(buffer- |
| 3c4a0 | 66 69 6c 65 2d 6e 61 6d 65 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 29 29 | file-name.(get-buffer.buffer)))) |
| 3c4c0 | 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 28 75 73 | ).....(unless.filename.......(us |
| 3c4e0 | 65 72 2d 65 72 72 6f 72 20 22 43 61 6e 27 74 20 6f 70 65 6e 20 60 25 73 27 20 65 78 74 65 72 6e | er-error."Can't.open.`%s'.extern |
| 3c500 | 61 6c 6c 79 22 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 6c 6f 63 61 | ally".buffer)).....(counsel-loca |
| 3c520 | 74 65 2d 61 63 74 69 6f 6e 2d 65 78 74 65 72 6e 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 | te-action-extern.(expand-file-na |
| 3c540 | 6d 65 20 66 69 6c 65 6e 61 6d 65 29 29 29 29 0a 0a 28 69 76 79 2d 61 64 64 2d 61 63 74 69 6f 6e | me.filename))))..(ivy-add-action |
| 3c560 | 73 0a 20 27 69 76 79 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 0a 20 27 28 28 22 78 22 20 63 6f | s..'ivy-switch-buffer..'(("x".co |
| 3c580 | 75 6e 73 65 6c 2d 6f 70 65 6e 2d 62 75 66 66 65 72 2d 66 69 6c 65 2d 65 78 74 65 72 6e 61 6c 6c | unsel-open-buffer-file-externall |
| 3c5a0 | 79 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c 6c 79 22 29 29 29 0a 0a 28 69 76 79 2d 73 65 74 | y."open.externally")))..(ivy-set |
| 3c5c0 | 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 | -actions..'counsel-switch-buffer |
| 3c5e0 | 0a 20 27 28 28 22 78 22 20 63 6f 75 6e 73 65 6c 2d 6f 70 65 6e 2d 62 75 66 66 65 72 2d 66 69 6c | ..'(("x".counsel-open-buffer-fil |
| 3c600 | 65 2d 65 78 74 65 72 6e 61 6c 6c 79 20 22 6f 70 65 6e 20 65 78 74 65 72 6e 61 6c 6c 79 22 29 0a | e-externally."open.externally"). |
| 3c620 | 20 20 20 28 22 6a 22 20 69 76 79 2d 2d 73 77 69 74 63 68 2d 62 75 66 66 65 72 2d 6f 74 68 65 72 | ...("j".ivy--switch-buffer-other |
| 3c640 | 2d 77 69 6e 64 6f 77 2d 61 63 74 69 6f 6e 20 22 6f 74 68 65 72 20 77 69 6e 64 6f 77 22 29 29 29 | -window-action."other.window"))) |
| 3c660 | 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 0a 28 64 65 66 76 61 72 | ..;;**.`counsel-compile'.(defvar |
| 3c680 | 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 | .counsel-compile-history.nil..." |
| 3c6a0 | 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 2e 0a 0a | History.for.`counsel-compile'... |
| 3c6c0 | 54 68 69 73 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 73 74 72 69 6e 67 73 20 77 69 74 68 20 61 | This.is.a.list.of.strings.with.a |
| 3c6e0 | 64 64 69 74 69 6f 6e 61 6c 20 70 72 6f 70 65 72 74 69 65 73 20 77 68 69 63 68 20 61 6c 6c 6f 77 | dditional.properties.which.allow |
| 3c700 | 0a 74 68 65 20 68 69 73 74 6f 72 79 20 74 6f 20 62 65 20 66 69 6c 74 65 72 65 64 20 64 65 70 65 | .the.history.to.be.filtered.depe |
| 3c720 | 6e 64 69 6e 67 20 6f 6e 20 74 68 65 20 63 6f 6e 74 65 78 74 20 6f 66 20 74 68 65 20 63 61 6c 6c | nding.on.the.context.of.the.call |
| 3c740 | 2e 0a 54 68 65 20 70 72 6f 70 65 72 74 69 65 73 20 69 6e 63 6c 75 64 65 3a 0a 0a 60 73 72 63 64 | ..The.properties.include:..`srcd |
| 3c760 | 69 72 27 0a 20 20 20 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 | ir'.....the.root.directory.of.th |
| 3c780 | 65 20 73 6f 75 72 63 65 20 63 6f 64 65 0a 60 62 6c 64 64 69 72 27 0a 20 20 20 20 74 68 65 20 72 | e.source.code.`blddir'.....the.r |
| 3c7a0 | 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 20 62 75 69 6c 64 20 28 69 6e 20 6f | oot.directory.of.the.build.(in.o |
| 3c7c0 | 72 20 6f 75 74 73 69 64 65 20 74 68 65 20 60 73 72 63 64 69 72 27 29 0a 60 62 6c 64 65 6e 76 27 | r.outside.the.`srcdir').`bldenv' |
| 3c7e0 | 0a 20 20 20 20 74 68 65 20 62 75 69 6c 64 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 61 73 20 70 61 | .....the.build.environment.as.pa |
| 3c800 | 73 73 65 64 20 74 6f 20 60 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 | ssed.to.`compilation-environment |
| 3c820 | 27 0a 60 72 65 63 75 72 73 69 76 65 27 0a 20 20 20 20 74 68 65 20 63 6f 6d 70 6c 65 74 69 6f 6e | '.`recursive'.....the.completion |
| 3c840 | 20 73 68 6f 75 6c 64 20 62 65 20 72 75 6e 20 61 67 61 69 6e 20 69 6e 20 60 62 6c 64 64 69 72 27 | .should.be.run.again.in.`blddir' |
| 3c860 | 20 6f 66 20 74 68 69 73 20 72 65 73 75 6c 74 0a 60 63 6d 64 27 0a 20 20 20 20 69 66 20 73 65 74 | .of.this.result.`cmd'.....if.set |
| 3c880 | 2c 20 70 61 73 73 20 6f 6e 6c 79 20 74 68 65 20 73 75 62 73 74 72 69 6e 67 20 77 69 74 68 20 74 | ,.pass.only.the.substring.with.t |
| 3c8a0 | 68 69 73 20 70 72 6f 70 65 72 74 79 20 74 6f 20 60 63 6f 6d 70 69 6c 65 27 0a 0a 54 68 69 73 20 | his.property.to.`compile'..This. |
| 3c8c0 | 76 61 72 69 61 62 6c 65 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 61 64 64 69 74 69 6f | variable.is.suitable.for.additio |
| 3c8e0 | 6e 20 74 6f 0a 60 73 61 76 65 68 69 73 74 2d 61 64 64 69 74 69 6f 6e 61 6c 2d 76 61 72 69 61 62 | n.to.`savehist-additional-variab |
| 3c900 | 6c 65 73 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 | les'.")..(defvar.counsel-compile |
| 3c920 | 2d 72 6f 6f 74 2d 66 75 6e 63 74 69 6f 6e 73 0a 20 20 27 28 63 6f 75 6e 73 65 6c 2d 2d 70 72 6f | -root-functions...'(counsel--pro |
| 3c940 | 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 0a 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 70 72 6f 6a 65 63 | jectile-root.....counsel--projec |
| 3c960 | 74 2d 63 75 72 72 65 6e 74 0a 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6e 66 69 67 75 72 65 | t-current.....counsel--configure |
| 3c980 | 2d 72 6f 6f 74 0a 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 72 6f 6f 74 0a 20 20 20 20 | -root.....counsel--git-root..... |
| 3c9a0 | 63 6f 75 6e 73 65 6c 2d 2d 64 69 72 2d 6c 6f 63 61 6c 73 2d 72 6f 6f 74 29 0a 20 20 22 53 70 65 | counsel--dir-locals-root)..."Spe |
| 3c9c0 | 63 69 61 6c 20 68 6f 6f 6b 20 74 6f 20 66 69 6e 64 20 74 68 65 20 70 72 6f 6a 65 63 74 20 72 6f | cial.hook.to.find.the.project.ro |
| 3c9e0 | 6f 74 20 66 6f 72 20 63 6f 6d 70 69 6c 65 20 63 6f 6d 6d 61 6e 64 73 2e 0a 45 61 63 68 20 66 75 | ot.for.compile.commands..Each.fu |
| 3ca00 | 6e 63 74 69 6f 6e 20 6f 6e 20 74 68 69 73 20 68 6f 6f 6b 20 69 73 20 63 61 6c 6c 65 64 20 69 6e | nction.on.this.hook.is.called.in |
| 3ca20 | 20 74 75 72 6e 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 0a 61 6e 64 20 73 68 6f 75 | .turn.with.no.arguments.and.shou |
| 3ca40 | 6c 64 20 72 65 74 75 72 6e 20 65 69 74 68 65 72 20 61 20 64 69 72 65 63 74 6f 72 79 2c 20 6f 72 | ld.return.either.a.directory,.or |
| 3ca60 | 20 6e 69 6c 20 69 66 20 6e 6f 20 72 6f 6f 74 20 77 61 73 0a 66 6f 75 6e 64 2e 22 29 0a 0a 28 64 | .nil.if.no.root.was.found.")..(d |
| 3ca80 | 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 20 28 29 0a 20 20 | efun.counsel--compile-root.()... |
| 3caa0 | 22 52 65 74 75 72 6e 20 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 20 | "Return.root.of.current.project. |
| 3cac0 | 6f 72 20 73 69 67 6e 61 6c 20 61 6e 20 65 72 72 6f 72 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 54 | or.signal.an.error.on.failure..T |
| 3cae0 | 68 65 20 72 6f 6f 74 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 60 63 6f 75 6e 73 65 | he.root.is.determined.by.`counse |
| 3cb00 | 6c 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 2d 66 75 6e 63 74 69 6f 6e 73 27 2e 22 0a 20 20 28 6f | l-compile-root-functions'."...(o |
| 3cb20 | 72 20 28 72 75 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 2d 75 6e 74 69 6c 2d 73 75 63 63 | r.(run-hook-with-args-until-succ |
| 3cb40 | 65 73 73 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 2d 66 75 6e 63 74 69 | ess.'counsel-compile-root-functi |
| 3cb60 | 6f 6e 73 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 43 6f 75 6c 64 6e 27 74 20 66 69 6e 64 | ons).......(error."Couldn't.find |
| 3cb80 | 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 | .project.root")))..(defun.counse |
| 3cba0 | 6c 2d 2d 70 72 6f 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 | l--projectile-root.()..."Return. |
| 3cbc0 | 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 69 6c 65 20 70 72 6f 6a 65 | root.of.current.projectile.proje |
| 3cbe0 | 63 74 20 6f 72 20 6e 69 6c 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 55 73 65 20 60 70 72 6f 6a 65 | ct.or.nil.on.failure..Use.`proje |
| 3cc00 | 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 27 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 | ctile-project-root'.to.determine |
| 3cc20 | 20 74 68 65 20 72 6f 6f 74 2e 22 0a 20 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 70 72 6f | .the.root."...(and.(fboundp.'pro |
| 3cc40 | 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 28 70 72 | jectile-project-root)........(pr |
| 3cc60 | 6f 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 29 29 0a 0a 28 64 65 66 75 6e | ojectile-project-root)))..(defun |
| 3cc80 | 20 63 6f 75 6e 73 65 6c 2d 2d 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 20 28 29 0a 20 20 22 | .counsel--project-current.()..." |
| 3cca0 | 52 65 74 75 72 6e 20 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 20 6f | Return.root.of.current.project.o |
| 3ccc0 | 72 20 6e 69 6c 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 55 73 65 20 60 70 72 6f 6a 65 63 74 2d 63 | r.nil.on.failure..Use.`project-c |
| 3cce0 | 75 72 72 65 6e 74 27 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 72 6f 6f 74 2e 22 0a | urrent'.to.determine.the.root.". |
| 3cd00 | 20 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 | ..(and.(fboundp.'project-current |
| 3cd20 | 29 0a 20 20 20 20 20 20 20 28 63 64 72 20 28 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 29 29 | )........(cdr.(project-current)) |
| 3cd40 | 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6e 66 69 67 75 72 65 2d 72 6f | ))..(defun.counsel--configure-ro |
| 3cd60 | 6f 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 | ot.()..."Return.root.of.current. |
| 3cd80 | 70 72 6f 6a 65 63 74 20 6f 72 20 6e 69 6c 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 55 73 65 20 74 | project.or.nil.on.failure..Use.t |
| 3cda0 | 68 65 20 70 72 65 73 65 6e 63 65 20 6f 66 20 61 20 5c 22 63 6f 6e 66 69 67 75 72 65 5c 22 20 66 | he.presence.of.a.\"configure\".f |
| 3cdc0 | 69 6c 65 20 74 6f 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 72 6f 6f 74 2e 22 0a 20 20 28 63 | ile.to.determine.the.root."...(c |
| 3cde0 | 6f 75 6e 73 65 6c 2d 2d 64 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 22 63 6f 6e 66 69 67 75 | ounsel--dominating-file."configu |
| 3ce00 | 72 65 22 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 69 74 2d 72 6f 6f 74 20 | re"))..(defun.counsel--git-root. |
| 3ce20 | 28 29 0a 20 20 22 52 65 74 75 72 6e 20 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 70 72 6f | ()..."Return.root.of.current.pro |
| 3ce40 | 6a 65 63 74 20 6f 72 20 6e 69 6c 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 55 73 65 20 74 68 65 20 | ject.or.nil.on.failure..Use.the. |
| 3ce60 | 70 72 65 73 65 6e 63 65 20 6f 66 20 61 20 5c 22 2e 67 69 74 5c 22 20 66 69 6c 65 20 74 6f 20 64 | presence.of.a.\".git\".file.to.d |
| 3ce80 | 65 74 65 72 6d 69 6e 65 20 74 68 65 20 72 6f 6f 74 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d | etermine.the.root."...(counsel-- |
| 3cea0 | 64 6f 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 22 2e 67 69 74 22 29 29 0a 0a 28 64 65 66 75 6e | dominating-file.".git"))..(defun |
| 3cec0 | 20 63 6f 75 6e 73 65 6c 2d 2d 64 69 72 2d 6c 6f 63 61 6c 73 2d 72 6f 6f 74 20 28 29 0a 20 20 22 | .counsel--dir-locals-root.()..." |
| 3cee0 | 52 65 74 75 72 6e 20 72 6f 6f 74 20 6f 66 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 20 6f | Return.root.of.current.project.o |
| 3cf00 | 72 20 6e 69 6c 20 6f 6e 20 66 61 69 6c 75 72 65 2e 0a 55 73 65 20 74 68 65 20 70 72 65 73 65 6e | r.nil.on.failure..Use.the.presen |
| 3cf20 | 63 65 20 6f 66 20 61 20 60 64 69 72 2d 6c 6f 63 61 6c 73 2d 66 69 6c 65 27 20 74 6f 20 64 65 74 | ce.of.a.`dir-locals-file'.to.det |
| 3cf40 | 65 72 6d 69 6e 65 20 74 68 65 20 72 6f 6f 74 2e 22 0a 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 64 6f | ermine.the.root."...(counsel--do |
| 3cf60 | 6d 69 6e 61 74 69 6e 67 2d 66 69 6c 65 20 64 69 72 2d 6c 6f 63 61 6c 73 2d 66 69 6c 65 29 29 0a | minating-file.dir-locals-file)). |
| 3cf80 | 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6c 6f 63 61 6c 2d 62 | .(defvar.counsel-compile-local-b |
| 3cfa0 | 75 69 6c 64 73 0a 20 20 27 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 66 69 | uilds...'(counsel-compile-get-fi |
| 3cfc0 | 6c 74 65 72 65 64 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 | ltered-history.....counsel-compi |
| 3cfe0 | 6c 65 2d 67 65 74 2d 62 75 69 6c 64 2d 64 69 72 65 63 74 6f 72 69 65 73 0a 20 20 20 20 63 6f 75 | le-get-build-directories.....cou |
| 3d000 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b 65 2d 69 6e 76 6f 63 61 74 69 6f 6e | nsel-compile-get-make-invocation |
| 3d020 | 0a 20 20 20 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b 65 2d 68 65 | .....counsel-compile-get-make-he |
| 3d040 | 6c 70 2d 69 6e 76 6f 63 61 74 69 6f 6e 73 29 0a 20 20 22 41 64 64 69 74 69 6f 6e 61 6c 20 63 6f | lp-invocations)..."Additional.co |
| 3d060 | 6d 70 69 6c 65 20 69 6e 76 6f 63 61 74 69 6f 6e 73 20 74 6f 20 66 65 65 64 20 69 6e 74 6f 20 60 | mpile.invocations.to.feed.into.` |
| 3d080 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 2e 0a 0a 54 68 69 73 20 63 61 6e 20 65 69 74 68 | counsel-compile'...This.can.eith |
| 3d0a0 | 65 72 20 62 65 20 61 20 6c 69 73 74 20 6f 66 20 63 6f 6d 70 69 6c 65 20 69 6e 76 6f 63 61 74 69 | er.be.a.list.of.compile.invocati |
| 3d0c0 | 6f 6e 20 73 74 72 69 6e 67 73 20 6f 72 0a 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 77 69 6c | on.strings.or.functions.that.wil |
| 3d0e0 | 6c 20 70 72 6f 76 69 64 65 20 73 75 63 68 20 61 20 6c 69 73 74 2e 20 20 59 6f 75 20 73 68 6f 75 | l.provide.such.a.list...You.shou |
| 3d100 | 6c 64 20 63 75 73 74 6f 6d 69 7a 65 0a 74 68 69 73 20 69 66 20 79 6f 75 20 77 61 6e 74 20 74 6f | ld.customize.this.if.you.want.to |
| 3d120 | 20 70 72 6f 76 69 64 65 20 73 70 65 63 69 66 69 63 20 6e 6f 6e 2d 73 74 61 6e 64 61 72 64 20 62 | .provide.specific.non-standard.b |
| 3d140 | 75 69 6c 64 20 74 79 70 65 73 20 74 6f 0a 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 2e | uild.types.to.`counsel-compile'. |
| 3d160 | 20 20 54 68 65 20 64 65 66 61 75 6c 74 20 68 65 6c 70 65 72 73 20 61 72 65 20 73 65 74 20 75 70 | ..The.default.helpers.are.set.up |
| 3d180 | 20 74 6f 20 68 61 6e 64 6c 65 0a 63 6f 6d 6d 6f 6e 20 62 75 69 6c 64 20 65 6e 76 69 72 6f 6e 6d | .to.handle.common.build.environm |
| 3d1a0 | 65 6e 74 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 | ents.")..(defcustom.counsel-comp |
| 3d1c0 | 69 6c 65 2d 6d 61 6b 65 2d 61 72 67 73 20 22 2d 6b 22 0a 20 20 22 41 64 64 69 74 69 6f 6e 61 6c | ile-make-args."-k"..."Additional |
| 3d1e0 | 20 61 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 6d 61 6b 65 2e 0a 59 6f 75 20 6d 61 79 2c 20 66 6f | .arguments.for.make..You.may,.fo |
| 3d200 | 72 20 65 78 61 6d 70 6c 65 2c 20 77 61 6e 74 20 74 6f 20 61 64 64 20 5c 22 2d 6a 4e 5c 22 20 66 | r.example,.want.to.add.\"-jN\".f |
| 3d220 | 6f 72 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 72 65 73 0a 4e 20 69 6e 20 79 6f 75 72 | or.the.number.of.cores.N.in.your |
| 3d240 | 20 73 79 73 74 65 6d 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 | .system."...:type.'string)..(def |
| 3d260 | 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 20 6e 69 6c 0a 20 | custom.counsel-compile-env.nil.. |
| 3d280 | 20 22 4c 69 73 74 20 6f 66 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 20 | ."List.of.environment.variables. |
| 3d2a0 | 66 6f 72 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 74 6f 20 69 6e 68 65 72 69 74 2e 0a 45 61 63 68 | for.compilation.to.inherit..Each |
| 3d2c0 | 20 65 6c 65 6d 65 6e 74 20 73 68 6f 75 6c 64 20 62 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 | .element.should.be.a.string.of.t |
| 3d2e0 | 68 65 20 66 6f 72 6d 20 45 4e 56 56 41 52 4e 41 4d 45 3d 56 41 4c 55 45 2e 20 20 54 68 69 73 0a | he.form.ENVVARNAME=VALUE...This. |
| 3d300 | 6c 69 73 74 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 60 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 | list.is.passed.to.`compilation-e |
| 3d320 | 6e 76 69 72 6f 6e 6d 65 6e 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 | nvironment'."...:type.'(repeat.( |
| 3d340 | 73 74 72 69 6e 67 20 3a 74 61 67 20 22 45 4e 56 56 41 52 4e 41 4d 45 3d 56 41 4c 55 45 22 29 29 | string.:tag."ENVVARNAME=VALUE")) |
| 3d360 | 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 68 | )..(defvar.counsel-compile-env-h |
| 3d380 | 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 20 66 6f 72 20 60 63 6f 75 6e 73 | istory.nil..."History.for.`couns |
| 3d3a0 | 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 27 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e | el-compile-env'.")..(defvar.coun |
| 3d3c0 | 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 70 61 74 74 65 72 6e 0a 20 20 22 5b 5f 5b 3a 64 | sel-compile-env-pattern..."[_[:d |
| 3d3e0 | 69 67 69 74 3a 5d 5b 3a 75 70 70 65 72 3a 5d 5d 2b 3d 5b 2f 5b 3a 61 6c 6e 75 6d 3a 5d 5d 2a 22 | igit:][:upper:]]+=[/[:alnum:]]*" |
| 3d400 | 0a 20 20 22 50 61 74 74 65 72 6e 20 74 6f 20 6d 61 74 63 68 20 76 61 6c 69 64 20 65 6e 76 69 72 | ..."Pattern.to.match.valid.envir |
| 3d420 | 6f 6e 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 | onment.variables.")..(defcustom. |
| 3d440 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 6b 65 2d 70 61 74 74 65 72 6e 20 22 5c 5c | counsel-compile-make-pattern."\\ |
| 3d460 | 60 5c 5c 28 3f 3a 47 4e 55 6d 5c 5c 7c 5b 4d 6d 5d 5c 5c 29 61 6b 65 66 69 6c 65 5c 5c 27 22 0a | `\\(?:GNUm\\|[Mm]\\)akefile\\'". |
| 3d480 | 20 20 22 52 65 67 65 78 70 20 66 6f 72 20 6d 61 74 63 68 69 6e 67 20 74 68 65 20 6e 61 6d 65 73 | .."Regexp.for.matching.the.names |
| 3d4a0 | 20 6f 66 20 4d 61 6b 65 66 69 6c 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 72 65 67 65 78 70 29 | .of.Makefiles."...:type.'regexp) |
| 3d4c0 | 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 62 75 69 | ..(defcustom.counsel-compile-bui |
| 3d4e0 | 6c 64 2d 64 69 72 65 63 74 6f 72 69 65 73 0a 20 20 27 28 22 62 75 69 6c 64 22 20 22 62 75 69 6c | ld-directories...'("build"."buil |
| 3d500 | 64 73 22 20 22 62 6c 64 22 20 22 2e 62 75 69 6c 64 22 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 70 | ds"."bld".".build")..."List.of.p |
| 3d520 | 6f 74 65 6e 74 69 61 6c 20 62 75 69 6c 64 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 | otential.build.subdirectory.name |
| 3d540 | 73 20 74 6f 20 63 68 65 63 6b 20 66 6f 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 | s.to.check.for."...:type.'(repea |
| 3d560 | 74 20 64 69 72 65 63 74 6f 72 79 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 | t.directory))..(defvar.counsel-c |
| 3d580 | 6f 6d 70 69 6c 65 2d 70 68 6f 6e 79 2d 70 61 74 74 65 72 6e 20 22 5e 5c 5c 2e 50 48 4f 4e 59 3a | ompile-phony-pattern."^\\.PHONY: |
| 3d5a0 | 5b 5c 74 20 5d 2b 5c 5c 28 2e 2b 5c 5c 29 24 22 0a 20 20 22 52 65 67 65 78 70 20 66 6f 72 20 65 | [\t.]+\\(.+\\)$"..."Regexp.for.e |
| 3d5c0 | 78 74 72 61 63 74 69 6e 67 20 70 68 6f 6e 79 20 74 61 72 67 65 74 73 20 66 72 6f 6d 20 4d 61 6b | xtracting.phony.targets.from.Mak |
| 3d5e0 | 65 66 69 6c 65 73 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 | efiles.")..(defvar.counsel-compi |
| 3d600 | 6c 65 2d 68 65 6c 70 2d 70 61 74 74 65 72 6e 0a 20 20 22 5c 5c 28 3f 3a 5e 5c 5c 28 5c 5c 2a 5c | le-help-pattern..."\\(?:^\\(\\*\ |
| 3d620 | 5c 29 3f 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2b 5c 5c 28 5b 5e 5b 3a 73 70 61 63 65 3a 5d 5d 2b 5c | \)?[[:space:]]+\\([^[:space:]]+\ |
| 3d640 | 5c 29 5b 5b 3a 73 70 61 63 65 3a 5d 5d 2b 2d 5c 5c 29 22 0a 20 20 22 52 65 67 65 78 70 20 66 6f | \)[[:space:]]+-\\)"..."Regexp.fo |
| 3d660 | 72 20 65 78 74 72 61 63 74 69 6e 67 20 68 65 6c 70 20 74 61 72 67 65 74 73 20 66 72 6f 6d 20 61 | r.extracting.help.targets.from.a |
| 3d680 | 20 6d 61 6b 65 20 68 65 6c 70 20 63 61 6c 6c 2e 22 29 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 6c | .make.help.call.")..;;.This.is.l |
| 3d6a0 | 6f 6f 73 65 6c 79 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 42 61 73 68 20 4d 61 6b 65 20 63 6f | oosely.based.on.the.Bash.Make.co |
| 3d6c0 | 6d 70 6c 65 74 69 6f 6e 20 63 6f 64 65 20 77 68 69 63 68 0a 3b 3b 20 72 65 6c 69 65 73 20 6f 6e | mpletion.code.which.;;.relies.on |
| 3d6e0 | 20 47 4e 55 4d 61 6b 65 20 68 61 76 69 6e 67 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 72 65 | .GNUMake.having.the.following.re |
| 3d700 | 74 75 72 6e 20 63 6f 64 65 73 3a 0a 3b 3b 20 20 20 30 20 3d 20 6e 6f 2d 72 65 62 75 69 6c 64 2c | turn.codes:.;;...0.=.no-rebuild, |
| 3d720 | 20 2d 71 20 26 20 31 20 6e 65 65 64 73 20 72 65 62 75 69 6c 64 2c 20 32 20 65 72 72 6f 72 0a 28 | .-q.&.1.needs.rebuild,.2.error.( |
| 3d740 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 6f 62 65 2d 6d 61 6b | defun.counsel-compile--probe-mak |
| 3d760 | 65 2d 74 61 72 67 65 74 73 20 28 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 6c 69 73 74 | e-targets.(dir)..."Return.a.list |
| 3d780 | 20 6f 66 20 4d 61 6b 65 20 74 61 72 67 65 74 73 20 66 6f 72 20 44 49 52 2e 0a 0a 52 65 74 75 72 | .of.Make.targets.for.DIR...Retur |
| 3d7a0 | 6e 20 61 20 73 69 6e 67 6c 65 20 62 6c 61 6e 6b 20 74 61 72 67 65 74 20 28 73 6f 20 77 65 20 69 | n.a.single.blank.target.(so.we.i |
| 3d7c0 | 6e 76 6f 6b 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 74 61 72 67 65 74 29 0a 69 66 20 4d 61 6b | nvoke.the.default.target).if.Mak |
| 3d7e0 | 65 20 65 78 69 74 73 20 77 69 74 68 20 61 6e 20 65 72 72 6f 72 2e 20 20 54 68 69 73 20 6d 69 67 | e.exits.with.an.error...This.mig |
| 3d800 | 68 74 20 68 61 70 70 65 6e 20 62 65 63 61 75 73 65 20 73 6f 6d 65 20 73 6f 72 74 0a 6f 66 20 63 | ht.happen.because.some.sort.of.c |
| 3d820 | 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 6e 65 65 64 73 20 74 6f 20 62 65 20 64 6f 6e 65 20 66 69 | onfiguration.needs.to.be.done.fi |
| 3d840 | 72 73 74 20 6f 72 20 74 68 65 20 73 6f 75 72 63 65 20 74 72 65 65 20 69 73 0a 70 72 69 73 74 69 | rst.or.the.source.tree.is.pristi |
| 3d860 | 6e 65 20 61 6e 64 20 62 65 69 6e 67 20 75 73 65 64 20 66 6f 72 20 6d 75 6c 74 69 70 6c 65 20 62 | ne.and.being.used.for.multiple.b |
| 3d880 | 75 69 6c 64 20 74 72 65 65 73 2e 22 0a 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 | uild.trees."...(with-temp-buffer |
| 3d8a0 | 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 | .....(let*.((default-directory.d |
| 3d8c0 | 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 73 20 28 63 61 6c 6c 2d 70 72 6f 63 65 73 | ir)............(res.(call-proces |
| 3d8e0 | 73 20 22 6d 61 6b 65 22 20 6e 69 6c 20 74 20 6e 69 6c 20 22 2d 6e 71 70 22 29 29 0a 20 20 20 20 | s."make".nil.t.nil."-nqp"))..... |
| 3d900 | 20 20 20 20 20 20 20 74 61 72 67 65 74 73 29 0a 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e | .......targets).......(if.(or.(n |
| 3d920 | 6f 74 20 28 6e 75 6d 62 65 72 70 20 72 65 73 29 29 20 28 3e 20 72 65 73 20 31 29 29 0a 20 20 20 | ot.(numberp.res)).(>.res.1)).... |
| 3d940 | 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 | .......(list."").........(goto-c |
| 3d960 | 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 | har.(point-min)).........(while. |
| 3d980 | 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 | (re-search-forward.counsel-compi |
| 3d9a0 | 6c 65 2d 70 68 6f 6e 79 2d 70 61 74 74 65 72 6e 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 | le-phony-pattern.nil.t)......... |
| 3d9c0 | 20 20 28 70 75 73 68 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 6d 61 74 63 68 2d 73 74 72 | ..(push.(split-string.(match-str |
| 3d9e0 | 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 31 29 29 20 74 61 72 67 65 74 73 29 29 0a | ing-no-properties.1)).targets)). |
| 3da00 | 20 20 20 20 20 20 20 20 28 73 6f 72 74 20 28 61 70 70 6c 79 20 23 27 6e 63 6f 6e 63 20 74 61 72 | ........(sort.(apply.#'nconc.tar |
| 3da20 | 67 65 74 73 29 20 23 27 73 74 72 69 6e 67 2d 6c 65 73 73 70 29 29 29 29 29 0a 0a 28 64 65 66 75 | gets).#'string-lessp)))))..(defu |
| 3da40 | 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 65 74 74 79 2d 70 72 6f 70 65 72 | n.counsel-compile--pretty-proper |
| 3da60 | 74 69 7a 65 20 28 6c 65 61 64 65 72 20 74 65 78 74 20 66 61 63 65 29 0a 20 20 22 52 65 74 75 72 | tize.(leader.text.face)..."Retur |
| 3da80 | 6e 20 61 20 70 72 65 74 74 79 20 73 74 72 69 6e 67 20 6f 66 20 74 68 65 20 66 6f 72 6d 20 5c 22 | n.a.pretty.string.of.the.form.\" |
| 3daa0 | 20 4c 45 41 44 45 52 20 54 45 58 54 5c 22 2e 0a 4c 45 41 44 45 52 20 69 73 20 70 72 6f 70 65 72 | .LEADER.TEXT\"..LEADER.is.proper |
| 3dac0 | 74 69 7a 65 64 20 77 69 74 68 20 61 20 77 61 72 6e 69 6e 67 20 66 61 63 65 20 61 6e 64 20 74 68 | tized.with.a.warning.face.and.th |
| 3dae0 | 65 20 72 65 6d 61 69 6e 69 6e 67 0a 74 65 78 74 20 77 69 74 68 20 46 41 43 45 2e 22 0a 20 20 28 | e.remaining.text.with.FACE."...( |
| 3db00 | 63 6f 6e 63 61 74 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 6f 6e 63 61 74 20 22 20 22 20 6c | concat.(propertize.(concat.".".l |
| 3db20 | 65 61 64 65 72 20 22 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 | eader.".")...................... |
| 3db40 | 20 27 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 6f | .'face.......................'fo |
| 3db60 | 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 | nt-lock-warning-face)........... |
| 3db80 | 28 70 72 6f 70 65 72 74 69 7a 65 20 74 65 78 74 20 27 66 61 63 65 20 66 61 63 65 29 29 29 0a 0a | (propertize.text.'face.face))).. |
| 3dba0 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b 65 | (defun.counsel--compile-get-make |
| 3dbc0 | 2d 74 61 72 67 65 74 73 20 28 70 72 6f 62 65 2d 66 6e 20 73 72 63 64 69 72 20 26 6f 70 74 69 6f | -targets.(probe-fn.srcdir.&optio |
| 3dbe0 | 6e 61 6c 20 62 6c 64 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 70 72 6f 70 65 72 74 69 7a 65 | nal.blddir)..."Return.propertize |
| 3dc00 | 64 20 6d 61 6b 65 20 74 61 72 67 65 74 73 20 72 65 74 75 72 6e 65 64 20 62 79 20 50 52 4f 42 45 | d.make.targets.returned.by.PROBE |
| 3dc20 | 2d 46 4e 20 69 6e 20 53 52 43 44 49 52 2e 0a 0a 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 42 4c 44 | -FN.in.SRCDIR...The.optional.BLD |
| 3dc40 | 44 49 52 20 61 6c 6c 6f 77 73 20 66 6f 72 20 68 61 6e 64 6c 69 6e 67 20 62 75 69 6c 64 20 64 69 | DIR.allows.for.handling.build.di |
| 3dc60 | 72 65 63 74 6f 72 69 65 73 2e 20 20 57 65 0a 73 65 61 72 63 68 20 74 68 65 20 4d 61 6b 65 66 69 | rectories...We.search.the.Makefi |
| 3dc80 | 6c 65 20 66 6f 72 20 61 20 6c 69 73 74 20 6f 66 20 70 68 6f 6e 79 20 74 61 72 67 65 74 73 20 77 | le.for.a.list.of.phony.targets.w |
| 3dca0 | 68 69 63 68 20 61 72 65 0a 67 65 6e 65 72 61 6c 6c 79 20 74 68 65 20 74 6f 70 20 6c 65 76 65 6c | hich.are.generally.the.top.level |
| 3dcc0 | 20 74 61 72 67 65 74 73 20 61 20 4d 61 6b 65 20 73 79 73 74 65 6d 20 70 72 6f 76 69 64 65 73 2e | .targets.a.Make.system.provides. |
| 3dce0 | 20 20 54 68 65 0a 72 65 73 75 6c 74 69 6e 67 20 73 74 72 69 6e 67 73 20 61 72 65 20 74 61 67 67 | ..The.resulting.strings.are.tagg |
| 3dd00 | 65 64 20 77 69 74 68 20 70 72 6f 70 65 72 74 69 65 73 20 74 68 61 74 0a 60 63 6f 75 6e 73 65 6c | ed.with.properties.that.`counsel |
| 3dd20 | 2d 63 6f 6d 70 69 6c 65 2d 68 69 73 74 6f 72 79 27 20 63 61 6e 20 75 73 65 20 66 6f 72 20 66 69 | -compile-history'.can.use.for.fi |
| 3dd40 | 6c 74 65 72 69 6e 67 20 72 65 73 75 6c 74 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6d 74 20 28 | ltering.results."...(let.((fmt.( |
| 3dd60 | 66 6f 72 6d 61 74 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 6d 61 6b 65 20 25 73 20 25 25 73 22 | format.(propertize."make.%s.%%s" |
| 3dd80 | 20 27 63 6d 64 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f | .'cmd.t)......................co |
| 3dda0 | 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 6b 65 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 | unsel-compile-make-args))....... |
| 3ddc0 | 20 20 28 73 75 66 66 69 78 20 28 61 6e 64 20 62 6c 64 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 | ..(suffix.(and.blddir........... |
| 3dde0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 65 | ...........(counsel-compile--pre |
| 3de00 | 74 74 79 2d 70 72 6f 70 65 72 74 69 7a 65 20 22 69 6e 22 20 62 6c 64 64 69 72 0a 20 20 20 20 20 | tty-propertize."in".blddir...... |
| 3de20 | 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 | ................................ |
| 3de40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 72 65 64 2d 64 69 72 65 63 | ....................'dired-direc |
| 3de60 | 74 6f 72 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 62 75 69 6c 64 2d 65 6e 76 20 28 61 6e 64 20 | tory))).........(build-env.(and. |
| 3de80 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 | counsel-compile-env............. |
| 3dea0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 | ............(counsel-compile--pr |
| 3dec0 | 65 74 74 79 2d 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | etty-propertize................. |
| 3dee0 | 20 20 20 20 20 20 20 20 20 22 77 69 74 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ........."with"................. |
| 3df00 | 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 63 | .........(mapconcat.#'identity.c |
| 3df20 | 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 20 22 20 22 29 0a 20 20 20 20 20 20 20 20 | ounsel-compile-env.".")......... |
| 3df40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 | .................'font-lock-vari |
| 3df60 | 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 70 73 | able-name-face))).........(props |
| 3df80 | 20 60 28 73 72 63 64 69 72 20 2c 73 72 63 64 69 72 20 62 6c 64 64 69 72 20 2c 62 6c 64 64 69 72 | .`(srcdir.,srcdir.blddir.,blddir |
| 3dfa0 | 20 62 6c 64 65 6e 76 20 2c 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 29 29 29 0a | .bldenv.,counsel-compile-env))). |
| 3dfc0 | 20 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 74 61 72 67 65 74 29 0a 20 20 20 | ....(mapcar.(lambda.(target).... |
| 3dfe0 | 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 20 28 63 6f 6e 63 61 74 20 | ...........(setq.target.(concat. |
| 3e000 | 28 66 6f 72 6d 61 74 20 66 6d 74 20 74 61 72 67 65 74 29 20 73 75 66 66 69 78 20 62 75 69 6c 64 | (format.fmt.target).suffix.build |
| 3e020 | 2d 65 6e 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 | -env))...............(add-text-p |
| 3e040 | 72 6f 70 65 72 74 69 65 73 20 30 20 28 6c 65 6e 67 74 68 20 74 61 72 67 65 74 29 20 70 72 6f 70 | roperties.0.(length.target).prop |
| 3e060 | 73 20 74 61 72 67 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 72 67 65 74 29 0a | s.target)...............target). |
| 3e080 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 70 72 6f 62 65 2d 66 6e 20 28 6f | ............(funcall.probe-fn.(o |
| 3e0a0 | 72 20 62 6c 64 64 69 72 20 73 72 63 64 69 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | r.blddir.srcdir)))))..(defun.cou |
| 3e0c0 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b 65 2d 69 6e 76 6f 63 61 74 69 6f 6e | nsel-compile-get-make-invocation |
| 3e0e0 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 6c 64 64 69 72 29 0a 20 20 22 48 61 76 65 20 61 20 6c 6f | .(&optional.blddir)..."Have.a.lo |
| 3e100 | 6f 6b 20 69 6e 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 61 6e 79 | ok.in.the.root.directory.for.any |
| 3e120 | 20 62 75 69 6c 64 20 63 6f 6e 74 72 6f 6c 20 66 69 6c 65 73 2e 0a 0a 54 68 65 20 6f 70 74 69 6f | .build.control.files...The.optio |
| 3e140 | 6e 61 6c 20 42 4c 44 44 49 52 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 6f 74 68 65 72 20 68 | nal.BLDDIR.is.useful.for.other.h |
| 3e160 | 65 6c 70 65 72 73 20 74 68 61 74 20 68 61 76 65 20 66 6f 75 6e 64 0a 73 75 62 2d 64 69 72 65 63 | elpers.that.have.found.sub-direc |
| 3e180 | 74 6f 72 69 65 73 20 74 68 61 74 20 62 75 69 6c 64 73 20 6d 61 79 20 62 65 20 69 6e 76 6f 6b 65 | tories.that.builds.may.be.invoke |
| 3e1a0 | 64 20 69 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 72 63 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d | d.in."...(let.((srcdir.(counsel- |
| 3e1c0 | 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 | -compile-root))).....(when.(dire |
| 3e1e0 | 63 74 6f 72 79 2d 66 69 6c 65 73 20 28 6f 72 20 62 6c 64 64 69 72 20 73 72 63 64 69 72 29 20 6e | ctory-files.(or.blddir.srcdir).n |
| 3e200 | 69 6c 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 63 6f | il............................co |
| 3e220 | 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 6b 65 2d 70 61 74 74 65 72 6e 20 74 29 0a 20 20 | unsel-compile-make-pattern.t)... |
| 3e240 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b 65 2d 74 | ....(counsel--compile-get-make-t |
| 3e260 | 61 72 67 65 74 73 0a 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d | argets........#'counsel-compile- |
| 3e280 | 2d 70 72 6f 62 65 2d 6d 61 6b 65 2d 74 61 72 67 65 74 73 20 73 72 63 64 69 72 20 62 6c 64 64 69 | -probe-make-targets.srcdir.blddi |
| 3e2a0 | 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 | r))))..(defun.counsel-compile--p |
| 3e2c0 | 72 6f 62 65 2d 6d 61 6b 65 2d 68 65 6c 70 20 28 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 | robe-make-help.(dir)..."Return.a |
| 3e2e0 | 20 6c 69 73 74 20 6f 66 20 4d 61 6b 65 20 74 61 72 67 65 74 73 20 62 61 73 65 64 20 6f 6e 20 68 | .list.of.Make.targets.based.on.h |
| 3e300 | 65 6c 70 20 66 6f 72 20 44 49 52 2e 0a 0a 49 74 20 69 73 20 71 75 69 74 65 20 63 6f 6d 6d 6f 6e | elp.for.DIR...It.is.quite.common |
| 3e320 | 20 66 6f 72 20 61 20 5c 22 6d 61 6b 65 20 68 65 6c 70 5c 22 20 69 6e 76 6f 63 61 74 69 6f 6e 20 | .for.a.\"make.help\".invocation. |
| 3e340 | 74 6f 20 72 65 74 75 72 6e 20 61 0a 68 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 20 6c 69 73 74 20 | to.return.a.human.readable.list. |
| 3e360 | 6f 66 20 74 61 72 67 65 74 73 2e 20 20 4f 66 74 65 6e 20 63 6f 6d 6d 6f 6e 20 74 61 72 67 65 74 | of.targets...Often.common.target |
| 3e380 | 73 20 61 72 65 20 6d 61 72 6b 65 64 0a 77 69 74 68 20 61 20 6c 65 61 64 69 6e 67 20 61 73 74 65 | s.are.marked.with.a.leading.aste |
| 3e3a0 | 72 69 73 6b 2e 20 20 54 68 65 20 65 78 61 63 74 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 20 | risk...The.exact.search.pattern. |
| 3e3c0 | 69 73 20 63 6f 6e 74 72 6f 6c 6c 65 64 0a 62 79 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c | is.controlled.by.`counsel-compil |
| 3e3e0 | 65 2d 68 65 6c 70 2d 70 61 74 74 65 72 6e 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 | e-help-pattern'."...(let.((defau |
| 3e400 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 70 72 69 6d 61 72 | lt-directory.dir).........primar |
| 3e420 | 79 2d 74 61 72 67 65 74 73 20 74 61 72 67 65 74 73 29 0a 20 20 20 20 3b 3b 20 4f 6e 6c 79 20 70 | y-targets.targets).....;;.Only.p |
| 3e440 | 72 6f 63 65 65 64 20 69 66 20 74 68 65 20 68 65 6c 70 20 74 61 72 67 65 74 20 65 78 69 73 74 73 | roceed.if.the.help.target.exists |
| 3e460 | 2e 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 6c 20 31 20 28 61 70 70 6c 79 20 23 27 63 61 6c 6c | ......(when.(eql.1.(apply.#'call |
| 3e480 | 2d 70 72 6f 63 65 73 73 20 22 6d 61 6b 65 22 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 22 2d 71 22 | -process."make".nil.nil.nil."-q" |
| 3e4a0 | 20 22 68 65 6c 70 22 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 | ."help"......................... |
| 3e4c0 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 29 29 0a 20 20 20 20 20 20 28 77 69 74 | counsel-compile-env)).......(wit |
| 3e4e0 | 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 6c | h-temp-buffer.........(when.(eql |
| 3e500 | 20 30 20 28 61 70 70 6c 79 20 23 27 63 61 6c 6c 2d 70 72 6f 63 65 73 73 20 22 6d 61 6b 65 22 20 | .0.(apply.#'call-process."make". |
| 3e520 | 6e 69 6c 20 74 20 6e 69 6c 20 22 68 65 6c 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | nil.t.nil."help"................ |
| 3e540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 | .............counsel-compile-env |
| 3e560 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d | ))...........(goto-char.(point-m |
| 3e580 | 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 72 65 2d 73 65 61 72 63 68 | in))...........(while.(re-search |
| 3e5a0 | 2d 66 6f 72 77 61 72 64 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 68 65 6c 70 2d 70 61 | -forward.counsel-compile-help-pa |
| 3e5c0 | 74 74 65 72 6e 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | ttern.nil.t).............(push.( |
| 3e5e0 | 6d 61 74 63 68 2d 73 74 72 69 6e 67 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | match-string.2)................. |
| 3e600 | 20 20 28 69 66 20 28 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 31 29 20 70 72 69 6d 61 72 | ..(if.(match-beginning.1).primar |
| 3e620 | 79 2d 74 61 72 67 65 74 73 20 74 61 72 67 65 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | y-targets.targets)))...........( |
| 3e640 | 6e 63 6f 6e 63 20 28 73 6f 72 74 20 70 72 69 6d 61 72 79 2d 74 61 72 67 65 74 73 20 23 27 73 74 | nconc.(sort.primary-targets.#'st |
| 3e660 | 72 69 6e 67 2d 6c 65 73 73 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 6f | ring-lessp)..................(so |
| 3e680 | 72 74 20 74 61 72 67 65 74 73 20 23 27 73 74 72 69 6e 67 2d 6c 65 73 73 70 29 29 29 29 29 29 29 | rt.targets.#'string-lessp))))))) |
| 3e6a0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 6d 61 6b | ..(defun.counsel-compile-get-mak |
| 3e6c0 | 65 2d 68 65 6c 70 2d 69 6e 76 6f 63 61 74 69 6f 6e 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 6c | e-help-invocations.(&optional.bl |
| 3e6e0 | 64 64 69 72 29 0a 20 20 22 51 75 65 72 79 20 74 68 65 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 | ddir)..."Query.the.root.director |
| 3e700 | 79 20 66 6f 72 20 6d 61 6b 65 66 69 6c 65 73 20 77 69 74 68 20 68 65 6c 70 20 6f 75 74 70 75 74 | y.for.makefiles.with.help.output |
| 3e720 | 2e 0a 0a 54 68 65 20 6f 70 74 69 6f 6e 61 6c 20 42 4c 44 44 49 52 20 69 73 20 75 73 65 66 75 6c | ...The.optional.BLDDIR.is.useful |
| 3e740 | 20 66 6f 72 20 6f 74 68 65 72 20 68 65 6c 70 65 72 73 20 74 68 61 74 20 68 61 76 65 20 66 6f 75 | .for.other.helpers.that.have.fou |
| 3e760 | 6e 64 0a 73 75 62 2d 64 69 72 65 63 74 6f 72 69 65 73 20 74 68 61 74 20 62 75 69 6c 64 73 20 6d | nd.sub-directories.that.builds.m |
| 3e780 | 61 79 20 62 65 20 69 6e 76 6f 6b 65 64 20 69 6e 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 72 63 64 | ay.be.invoked.in."...(let.((srcd |
| 3e7a0 | 69 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 | ir.(counsel--compile-root))).... |
| 3e7c0 | 20 28 77 68 65 6e 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 28 6f 72 20 62 6c 64 64 | .(when.(directory-files.(or.bldd |
| 3e7e0 | 69 72 20 73 72 63 64 69 72 29 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ir.srcdir).nil.................. |
| 3e800 | 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 6b 65 2d 70 | ..........counsel-compile-make-p |
| 3e820 | 61 74 74 65 72 6e 20 74 29 0a 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c | attern.t).......(counsel--compil |
| 3e840 | 65 2d 67 65 74 2d 6d 61 6b 65 2d 74 61 72 67 65 74 73 0a 20 20 20 20 20 20 20 23 27 63 6f 75 6e | e-get-make-targets........#'coun |
| 3e860 | 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 6f 62 65 2d 6d 61 6b 65 2d 68 65 6c 70 20 73 72 63 | sel-compile--probe-make-help.src |
| 3e880 | 64 69 72 20 62 6c 64 64 69 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d | dir.blddir))))..(defun.counsel-- |
| 3e8a0 | 66 69 6e 64 2d 62 75 69 6c 64 2d 73 75 62 64 69 72 20 28 73 72 63 64 69 72 29 0a 20 20 22 52 65 | find-build-subdir.(srcdir)..."Re |
| 3e8c0 | 74 75 72 6e 20 62 75 69 6c 64 73 20 73 75 62 64 69 72 65 63 74 6f 72 79 20 6f 66 20 53 52 43 44 | turn.builds.subdirectory.of.SRCD |
| 3e8e0 | 49 52 2c 20 69 66 20 6f 6e 65 20 65 78 69 73 74 73 2e 22 0a 20 20 28 63 6c 2d 73 6f 6d 65 20 28 | IR,.if.one.exists."...(cl-some.( |
| 3e900 | 6c 61 6d 62 64 61 20 28 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 | lambda.(dir)..............(setq. |
| 3e920 | 64 69 72 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 20 73 72 63 64 69 72 | dir.(expand-file-name.dir.srcdir |
| 3e940 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 66 69 6c 65 2d 64 69 72 65 63 | ))..............(and.(file-direc |
| 3e960 | 74 6f 72 79 2d 70 20 64 69 72 29 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 | tory-p.dir).dir))............cou |
| 3e980 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 62 75 69 6c 64 2d 64 69 72 65 63 74 6f 72 69 65 73 29 29 | nsel-compile-build-directories)) |
| 3e9a0 | 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 65 74 2d 62 75 69 6c 64 2d 73 75 62 64 | ..(defun.counsel--get-build-subd |
| 3e9c0 | 69 72 73 20 28 62 6c 64 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 6c 6c 20 73 75 62 64 69 | irs.(blddir)..."Return.all.subdi |
| 3e9e0 | 72 73 20 75 6e 64 65 72 20 42 4c 44 44 49 52 20 73 6f 72 74 65 64 20 62 79 20 6d 6f 64 69 66 69 | rs.under.BLDDIR.sorted.by.modifi |
| 3ea00 | 63 61 74 69 6f 6e 20 74 69 6d 65 2e 0a 49 66 20 74 68 65 72 65 20 61 72 65 20 6e 6f 6e 2d 64 69 | cation.time..If.there.are.non-di |
| 3ea20 | 72 65 63 74 6f 72 79 20 66 69 6c 65 73 20 69 6e 20 42 4c 44 44 49 52 2c 20 69 6e 63 6c 75 64 65 | rectory.files.in.BLDDIR,.include |
| 3ea40 | 20 42 4c 44 44 49 52 20 69 6e 20 74 68 65 0a 6c 69 73 74 20 61 73 20 69 74 20 6d 61 79 20 61 6c | .BLDDIR.in.the.list.as.it.may.al |
| 3ea60 | 73 6f 20 62 65 20 61 20 62 75 69 6c 64 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 6c 65 74 | so.be.a.build.directory."...(let |
| 3ea80 | 2a 20 28 28 66 69 6c 65 73 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 2d 61 6e 64 2d 61 | *.((files.(directory-files-and-a |
| 3eaa0 | 74 74 72 69 62 75 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 6c 64 64 69 | ttributes..................blddi |
| 3eac0 | 72 20 74 20 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 2d 6e 6f 2d 64 6f 74 2d 66 69 6c 65 73 | r.t.directory-files-no-dot-files |
| 3eae0 | 2d 72 65 67 65 78 70 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 73 20 28 63 6c 2d 72 | -regexp.t))..........(dirs.(cl-r |
| 3eb00 | 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 23 27 63 6c 2d 73 65 63 6f 6e 64 20 66 69 6c 65 73 29 29 | emove-if-not.#'cl-second.files)) |
| 3eb20 | 29 0a 20 20 20 20 3b 3b 20 41 6e 79 20 6e 6f 6e 2d 64 69 72 20 66 69 6c 65 73 3f 0a 20 20 20 20 | ).....;;.Any.non-dir.files?..... |
| 3eb40 | 28 77 68 65 6e 20 28 3c 20 28 6c 65 6e 67 74 68 20 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 | (when.(<.(length.dirs).......... |
| 3eb60 | 20 20 20 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 | ....(length.files)).......(push. |
| 3eb80 | 28 63 6f 6e 73 20 62 6c 64 64 69 72 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 62 6c | (cons.blddir.(file-attributes.bl |
| 3eba0 | 64 64 69 72 29 29 20 64 69 72 73 29 29 0a 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 | ddir)).dirs)).....(mapcar.#'car. |
| 3ebc0 | 28 73 6f 72 74 20 64 69 72 73 20 28 6c 61 6d 62 64 61 20 28 78 20 79 29 0a 20 20 20 20 20 20 20 | (sort.dirs.(lambda.(x.y)........ |
| 3ebe0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 2d 6c 65 | ........................(time-le |
| 3ec00 | 73 73 2d 70 20 28 6e 74 68 20 36 20 79 29 20 28 6e 74 68 20 36 20 78 29 29 29 29 29 29 29 0a 0a | ss-p.(nth.6.y).(nth.6.x))))))).. |
| 3ec20 | 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 67 65 74 2d 62 75 69 6c 64 | (defun.counsel-compile-get-build |
| 3ec40 | 2d 64 69 72 65 63 74 6f 72 69 65 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 72 29 0a 20 20 22 | -directories.(&optional.dir)..." |
| 3ec60 | 52 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 70 6f 74 65 6e 74 69 61 6c 20 62 75 69 6c 64 | Return.a.list.of.potential.build |
| 3ec80 | 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 72 63 64 69 72 20 | .directories."...(let*.((srcdir. |
| 3eca0 | 28 6f 72 20 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 29 | (or.dir.(counsel--compile-root)) |
| 3ecc0 | 29 0a 20 20 20 20 20 20 20 20 20 28 62 6c 64 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 66 69 6e | )..........(blddir.(counsel--fin |
| 3ece0 | 64 2d 62 75 69 6c 64 2d 73 75 62 64 69 72 20 73 72 63 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 | d-build-subdir.srcdir))......... |
| 3ed00 | 20 28 70 72 6f 70 73 20 60 28 73 72 63 64 69 72 20 2c 73 72 63 64 69 72 20 72 65 63 75 72 73 69 | .(props.`(srcdir.,srcdir.recursi |
| 3ed20 | 76 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6d 74 20 28 63 6f 6e 63 61 74 20 28 70 72 | ve.t))..........(fmt.(concat.(pr |
| 3ed40 | 6f 70 65 72 74 69 7a 65 20 22 53 65 6c 65 63 74 20 62 75 69 6c 64 20 69 6e 20 22 0a 20 20 20 20 | opertize."Select.build.in."..... |
| 3ed60 | 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 27 66 | ..............................'f |
| 3ed80 | 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 6e 67 2d 66 61 63 65 29 0a 20 20 20 | ace.'font-lock-warning-face).... |
| 3eda0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 | ...................(propertize." |
| 3edc0 | 25 73 22 20 27 66 61 63 65 20 27 64 69 72 65 64 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 | %s".'face.'dired-directory)))).. |
| 3ede0 | 20 20 20 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 73 75 62 64 69 72 29 0a 20 20 20 20 | ...(mapcar.(lambda.(subdir)..... |
| 3ee00 | 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 20 28 66 6f 72 6d 61 74 20 66 6d 74 20 73 | ..........(let.((s.(format.fmt.s |
| 3ee20 | 75 62 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 | ubdir))).................(add-te |
| 3ee40 | 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 30 20 28 6c 65 6e 67 74 68 20 73 29 20 60 28 62 6c 64 | xt-properties.0.(length.s).`(bld |
| 3ee60 | 64 69 72 20 2c 73 75 62 64 69 72 20 2c 40 70 72 6f 70 73 29 20 73 29 0a 20 20 20 20 20 20 20 20 | dir.,subdir.,@props).s)......... |
| 3ee80 | 20 20 20 20 20 20 20 20 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 62 6c 64 | ........s)).............(and.bld |
| 3eea0 | 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 2d 67 65 74 2d 62 75 69 6c 64 2d 73 75 62 64 69 72 73 20 | dir.(counsel--get-build-subdirs. |
| 3eec0 | 62 6c 64 64 69 72 29 29 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 61 20 77 6f 72 6b 61 72 | blddir)))))..;;.This.is.a.workar |
| 3eee0 | 6f 75 6e 64 20 66 6f 72 20 74 68 65 20 66 61 63 74 20 74 68 65 72 65 20 69 73 20 6e 6f 20 63 6f | ound.for.the.fact.there.is.no.co |
| 3ef00 | 6e 63 65 70 74 20 6f 66 20 22 70 72 6f 6a 65 63 74 22 0a 3b 3b 20 6c 6f 63 61 6c 20 76 61 72 69 | ncept.of."project".;;.local.vari |
| 3ef20 | 61 62 6c 65 73 20 28 61 73 20 6f 70 70 6f 73 65 64 20 74 6f 20 66 6f 72 20 65 78 61 6d 70 6c 65 | ables.(as.opposed.to.for.example |
| 3ef40 | 20 62 75 66 66 65 72 2d 6c 6f 63 61 6c 29 2e 20 20 53 6f 20 77 65 0a 3b 3b 20 73 74 6f 72 65 20 | .buffer-local)...So.we.;;.store. |
| 3ef60 | 61 6c 6c 20 6f 75 72 20 68 69 73 74 6f 72 79 20 69 6e 20 61 20 67 6c 6f 62 61 6c 20 6c 69 73 74 | all.our.history.in.a.global.list |
| 3ef80 | 20 66 69 6c 74 65 72 20 6f 75 74 20 74 68 65 20 72 65 73 75 6c 74 73 20 77 65 0a 3b 3b 20 64 6f | .filter.out.the.results.we.;;.do |
| 3efa0 | 6e 27 74 20 77 61 6e 74 2e 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 | n't.want..(defun.counsel-compile |
| 3efc0 | 2d 67 65 74 2d 66 69 6c 74 65 72 65 64 2d 68 69 73 74 6f 72 79 20 28 26 6f 70 74 69 6f 6e 61 6c | -get-filtered-history.(&optional |
| 3efe0 | 20 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 63 6f 6d 70 69 6c 65 20 68 69 73 74 6f 72 | .dir)..."Return.a.compile.histor |
| 3f000 | 79 20 72 65 6c 65 76 61 6e 74 20 74 6f 20 63 75 72 72 65 6e 74 20 70 72 6f 6a 65 63 74 2e 22 0a | y.relevant.to.current.project.". |
| 3f020 | 20 20 28 6c 65 74 20 28 28 72 6f 6f 74 20 28 6f 72 20 64 69 72 20 28 63 6f 75 6e 73 65 6c 2d 2d | ..(let.((root.(or.dir.(counsel-- |
| 3f040 | 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 68 69 73 74 6f 72 79 29 | compile-root))).........history) |
| 3f060 | 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 69 74 65 6d 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 | .....(dolist.(item.counsel-compi |
| 3f080 | 6c 65 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 73 72 63 64 69 72 20 | le-history).......(let.((srcdir. |
| 3f0a0 | 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 73 72 63 64 69 72 20 69 74 65 | (get-text-property.0.'srcdir.ite |
| 3f0c0 | 6d 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6c 64 64 69 72 20 28 67 65 74 2d 74 65 78 | m)).............(blddir.(get-tex |
| 3f0e0 | 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 62 6c 64 64 69 72 20 69 74 65 6d 29 29 29 0a 20 20 20 | t-property.0.'blddir.item))).... |
| 3f100 | 20 20 20 20 20 28 77 68 65 6e 20 28 6f 72 20 28 61 6e 64 20 73 72 63 64 69 72 20 28 66 69 6c 65 | .....(when.(or.(and.srcdir.(file |
| 3f120 | 2d 69 6e 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 73 72 63 64 69 72 20 72 6f 6f 74 29 29 0a 20 20 | -in-directory-p.srcdir.root))... |
| 3f140 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 62 6c 64 64 69 72 20 28 66 69 6c | ................(and.blddir.(fil |
| 3f160 | 65 2d 69 6e 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 62 6c 64 64 69 72 20 72 6f 6f 74 29 29 29 0a | e-in-directory-p.blddir.root))). |
| 3f180 | 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 69 74 65 6d 20 68 69 73 74 6f 72 79 29 29 29 29 | ..........(push.item.history)))) |
| 3f1a0 | 0a 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 | .....(nreverse.history)))..(defu |
| 3f1c0 | 6e 20 63 6f 75 6e 73 65 6c 2d 2d 67 65 74 2d 63 6f 6d 70 69 6c 65 2d 63 61 6e 64 69 64 61 74 65 | n.counsel--get-compile-candidate |
| 3f1e0 | 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 | s.(&optional.dir)..."Return.the. |
| 3f200 | 6c 69 73 74 20 6f 66 20 63 6f 6d 70 69 6c 65 20 63 6f 6d 6d 61 6e 64 73 2e 0a 54 68 69 73 20 69 | list.of.compile.commands..This.i |
| 3f220 | 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 | s.determined.by.`counsel-compile |
| 3f240 | 2d 6c 6f 63 61 6c 2d 62 75 69 6c 64 73 27 2c 20 77 68 69 63 68 20 73 65 65 2e 22 0a 20 20 28 6c | -local-builds',.which.see."...(l |
| 3f260 | 65 74 20 28 63 61 6e 64 73 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 63 6d 64 73 20 63 6f 75 | et.(cands).....(dolist.(cmds.cou |
| 3f280 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6c 6f 63 61 6c 2d 62 75 69 6c 64 73 29 0a 20 20 20 20 20 | nsel-compile-local-builds)...... |
| 3f2a0 | 20 28 77 68 65 6e 20 28 66 75 6e 63 74 69 6f 6e 70 20 63 6d 64 73 29 0a 20 20 20 20 20 20 20 20 | .(when.(functionp.cmds)......... |
| 3f2c0 | 28 73 65 74 71 20 63 6d 64 73 20 28 66 75 6e 63 61 6c 6c 20 63 6d 64 73 20 64 69 72 29 29 29 0a | (setq.cmds.(funcall.cmds.dir))). |
| 3f2e0 | 20 20 20 20 20 20 28 77 68 65 6e 20 63 6d 64 73 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 | ......(when.cmds.........(push.( |
| 3f300 | 69 66 20 28 6c 69 73 74 70 20 63 6d 64 73 29 20 63 6d 64 73 20 28 6c 69 73 74 20 63 6d 64 73 29 | if.(listp.cmds).cmds.(list.cmds) |
| 3f320 | 29 20 63 61 6e 64 73 29 29 29 0a 20 20 20 20 28 61 70 70 6c 79 20 23 27 61 70 70 65 6e 64 20 28 | ).cands))).....(apply.#'append.( |
| 3f340 | 6e 72 65 76 65 72 73 65 20 63 61 6e 64 73 29 29 29 29 0a 0a 3b 3b 20 54 68 69 73 20 69 73 20 61 | nreverse.cands))))..;;.This.is.a |
| 3f360 | 20 77 6f 72 6b 61 72 6f 75 6e 64 20 74 6f 20 65 6e 73 75 72 65 20 77 65 20 74 61 67 20 61 6c 6c | .workaround.to.ensure.we.tag.all |
| 3f380 | 20 74 68 65 20 72 65 6c 65 76 61 6e 74 20 6d 65 74 61 64 61 74 61 20 69 6e 0a 3b 3b 20 6f 75 72 | .the.relevant.metadata.in.;;.our |
| 3f3a0 | 20 63 6f 6d 70 69 6c 65 20 68 69 73 74 6f 72 79 2e 20 20 54 68 69 73 20 61 6c 73 6f 20 61 6c 6c | .compile.history...This.also.all |
| 3f3c0 | 6f 77 73 20 4d 2d 78 20 63 6f 6d 70 69 6c 65 20 74 6f 20 64 6f 20 66 61 6e 63 79 0a 3b 3b 20 74 | ows.M-x.compile.to.do.fancy.;;.t |
| 3f3e0 | 68 69 6e 67 73 20 6c 69 6b 65 20 69 6e 66 65 72 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | hings.like.infer.`default-direct |
| 3f400 | 6f 72 79 27 20 66 72 6f 6d 20 27 63 64 27 73 20 69 6e 20 74 68 65 20 73 74 72 69 6e 67 2e 0a 28 | ory'.from.'cd's.in.the.string..( |
| 3f420 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 75 70 64 61 74 65 2d 68 69 | defun.counsel-compile--update-hi |
| 3f440 | 73 74 6f 72 79 20 28 5f 70 72 6f 63 29 0a 20 20 22 55 70 64 61 74 65 20 60 63 6f 75 6e 73 65 6c | story.(_proc)..."Update.`counsel |
| 3f460 | 2d 63 6f 6d 70 69 6c 65 2d 68 69 73 74 6f 72 79 27 20 66 72 6f 6d 20 74 68 65 20 63 6f 6d 70 69 | -compile-history'.from.the.compi |
| 3f480 | 6c 61 74 69 6f 6e 20 73 74 61 74 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 72 63 64 69 72 20 | lation.state."...(let*.((srcdir. |
| 3f4a0 | 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 | (counsel--compile-root))........ |
| 3f4c0 | 20 20 28 62 6c 64 64 69 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 | ..(blddir.default-directory).... |
| 3f4e0 | 20 20 20 20 20 20 28 62 6c 64 65 6e 76 20 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 6e 76 69 72 6f | ......(bldenv.compilation-enviro |
| 3f500 | 6e 6d 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 63 6f 6e 63 61 74 0a 20 20 20 | nment)..........(cmd.(concat.... |
| 3f520 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 63 61 72 20 63 6f 6d | ............(propertize.(car.com |
| 3f540 | 70 69 6c 61 74 69 6f 6e 2d 61 72 67 75 6d 65 6e 74 73 29 20 27 63 6d 64 20 74 29 0a 20 20 20 20 | pilation-arguments).'cmd.t)..... |
| 3f560 | 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65 2d 65 71 75 61 6c 2d 70 | ...........(unless.(file-equal-p |
| 3f580 | 20 62 6c 64 64 69 72 20 73 72 63 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .blddir.srcdir)................. |
| 3f5a0 | 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 65 74 74 79 2d 70 72 6f 70 65 72 | .(counsel-compile--pretty-proper |
| 3f5c0 | 74 69 7a 65 20 22 69 6e 22 20 62 6c 64 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | tize."in".blddir................ |
| 3f5e0 | 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 | ................................ |
| 3f600 | 20 20 20 20 20 20 27 64 69 72 65 64 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 | ......'dired-directory))........ |
| 3f620 | 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 62 6c 64 65 6e 76 0a 20 20 20 20 20 20 20 20 20 20 20 | ........(when.bldenv............ |
| 3f640 | 20 20 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 70 72 65 74 74 79 2d 70 | ......(counsel-compile--pretty-p |
| 3f660 | 72 6f 70 65 72 74 69 7a 65 20 22 77 69 74 68 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ropertize."with"................ |
| 3f680 | 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 | ................................ |
| 3f6a0 | 20 20 20 20 20 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 69 64 65 6e 74 69 74 79 20 62 6c 64 65 | ......(mapconcat.#'identity.blde |
| 3f6c0 | 6e 76 20 22 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 20 20 | nv.".")......................... |
| 3f6e0 | 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 27 66 6f | .............................'fo |
| 3f700 | 6e 74 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 29 29 29 29 0a | nt-lock-variable-name-face))))). |
| 3f720 | 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 20 30 20 28 6c 65 6e 67 | ....(add-text-properties.0.(leng |
| 3f740 | 74 68 20 63 6d 64 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 | th.cmd)......................... |
| 3f760 | 20 60 28 73 72 63 64 69 72 20 2c 73 72 63 64 69 72 20 62 6c 64 64 69 72 20 2c 62 6c 64 64 69 72 | .`(srcdir.,srcdir.blddir.,blddir |
| 3f780 | 20 62 6c 64 65 6e 76 20 2c 62 6c 64 65 6e 76 29 20 63 6d 64 29 0a 20 20 20 20 28 61 64 64 2d 74 | .bldenv.,bldenv).cmd).....(add-t |
| 3f7a0 | 6f 2d 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 68 69 73 74 6f | o-history.'counsel-compile-histo |
| 3f7c0 | 72 79 20 63 6d 64 29 29 29 0a 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 | ry.cmd)))..(defvar.counsel-compi |
| 3f7e0 | 6c 65 2d 2d 63 75 72 72 65 6e 74 2d 62 75 69 6c 64 2d 64 69 72 20 6e 69 6c 0a 20 20 22 54 72 61 | le--current-build-dir.nil..."Tra |
| 3f800 | 63 6b 73 20 74 68 65 20 6c 61 73 74 20 64 69 72 65 63 74 6f 72 79 20 60 63 6f 75 6e 73 65 6c 2d | cks.the.last.directory.`counsel- |
| 3f820 | 63 6f 6d 70 69 6c 65 27 20 77 61 73 20 63 61 6c 6c 65 64 20 77 69 74 68 2e 0a 0a 54 68 69 73 20 | compile'.was.called.with...This. |
| 3f840 | 73 74 61 74 65 20 61 6c 6c 6f 77 73 20 75 73 20 74 6f 20 73 65 74 20 69 74 20 63 6f 72 72 65 63 | state.allows.us.to.set.it.correc |
| 3f860 | 74 6c 79 20 69 66 20 74 68 65 20 75 73 65 72 20 68 61 73 20 6d 61 6e 75 61 6c 6c 79 0a 65 64 69 | tly.if.the.user.has.manually.edi |
| 3f880 | 74 65 64 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2c 20 74 68 75 73 20 6c 6f 73 69 6e 67 20 6f 75 72 | ted.the.command,.thus.losing.our |
| 3f8a0 | 20 65 6d 62 65 64 64 65 64 20 73 74 61 74 65 2e 22 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | .embedded.state.")..(defun.couns |
| 3f8c0 | 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 61 63 74 69 6f 6e 20 28 63 6d 64 29 0a 20 20 22 50 72 6f 63 | el-compile--action.(cmd)..."Proc |
| 3f8e0 | 65 73 73 20 43 4d 44 20 74 6f 20 63 61 6c 6c 20 60 63 6f 6d 70 69 6c 65 27 2e 0a 0a 49 66 20 43 | ess.CMD.to.call.`compile'...If.C |
| 3f900 | 4d 44 20 68 61 73 20 74 68 65 20 60 72 65 63 75 72 73 69 76 65 27 20 70 72 6f 70 65 72 74 79 20 | MD.has.the.`recursive'.property. |
| 3f920 | 73 65 74 20 77 65 20 63 61 6c 6c 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 0a 61 67 | set.we.call.`counsel-compile'.ag |
| 3f940 | 61 69 6e 20 74 6f 20 66 75 72 74 68 65 72 20 72 65 66 69 6e 65 20 74 68 65 20 63 6f 6d 70 69 6c | ain.to.further.refine.the.compil |
| 3f960 | 65 20 6f 70 74 69 6f 6e 73 20 69 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 0a 73 70 65 63 69 | e.options.in.the.directory.speci |
| 3f980 | 66 69 65 64 20 62 79 20 74 68 65 20 60 62 6c 64 64 69 72 27 20 70 72 6f 70 65 72 74 79 2e 22 0a | fied.by.the.`blddir'.property.". |
| 3f9a0 | 20 20 28 6c 65 74 20 28 28 62 6c 64 64 69 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 | ..(let.((blddir.(get-text-proper |
| 3f9c0 | 74 79 20 30 20 27 62 6c 64 64 69 72 20 63 6d 64 29 29 0a 20 20 20 20 20 20 20 20 28 62 6c 64 65 | ty.0.'blddir.cmd)).........(blde |
| 3f9e0 | 6e 76 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 62 6c 64 65 6e 76 20 | nv.(get-text-property.0.'bldenv. |
| 3fa00 | 63 6d 64 29 29 29 0a 20 20 20 20 28 69 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | cmd))).....(if.(get-text-propert |
| 3fa20 | 79 20 30 20 27 72 65 63 75 72 73 69 76 65 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 28 63 6f 75 | y.0.'recursive.cmd).........(cou |
| 3fa40 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 20 62 6c 64 64 69 72 29 0a 20 20 20 20 20 20 28 77 68 65 6e | nsel-compile.blddir).......(when |
| 3fa60 | 20 28 67 65 74 2d 63 68 61 72 2d 70 72 6f 70 65 72 74 79 20 30 20 27 63 6d 64 20 63 6d 64 29 0a | .(get-char-property.0.'cmd.cmd). |
| 3fa80 | 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6d 64 20 28 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d | ........(setq.cmd.(substring-no- |
| 3faa0 | 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6d | properties....................cm |
| 3fac0 | 64 20 30 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 | d.0.(next-single-property-change |
| 3fae0 | 20 30 20 27 63 6d 64 20 63 6d 64 29 29 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 | .0.'cmd.cmd)))).......(let.((def |
| 3fb00 | 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6f 72 20 62 6c 64 64 69 72 0a 20 20 20 20 20 20 | ault-directory.(or.blddir....... |
| 3fb20 | 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 63 6f 75 | .............................cou |
| 3fb40 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 63 75 72 72 65 6e 74 2d 62 75 69 6c 64 2d 64 69 72 0a | nsel-compile--current-build-dir. |
| 3fb60 | 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 | ................................ |
| 3fb80 | 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 | ...default-directory)).......... |
| 3fba0 | 20 20 20 28 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 20 62 6c 64 65 | ...(compilation-environment.blde |
| 3fbc0 | 6e 76 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 4e 6f 20 6e 65 65 64 20 74 6f 20 73 70 65 63 69 | nv)).........;;.No.need.to.speci |
| 3fbe0 | 66 79 20 60 3a 68 69 73 74 6f 72 79 27 20 62 65 63 61 75 73 65 20 6f 66 20 74 68 69 73 20 68 6f | fy.`:history'.because.of.this.ho |
| 3fc00 | 6f 6b 2e 0a 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 63 6f 6d 70 69 6c 61 74 69 | ok..........(add-hook.'compilati |
| 3fc20 | 6f 6e 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d | on-start-hook.#'counsel-compile- |
| 3fc40 | 2d 75 70 64 61 74 65 2d 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 28 75 6e 77 69 6e 64 | -update-history).........(unwind |
| 3fc60 | 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 69 6c 65 20 63 | -protect..............(compile.c |
| 3fc80 | 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 63 6f 6d 70 | md)...........(remove-hook.'comp |
| 3fca0 | 69 6c 61 74 69 6f 6e 2d 73 74 61 72 74 2d 68 6f 6f 6b 20 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d | ilation-start-hook.#'counsel-com |
| 3fcc0 | 70 69 6c 65 2d 2d 75 70 64 61 74 65 2d 68 69 73 74 6f 72 79 29 29 29 29 29 29 0a 0a 28 64 65 66 | pile--update-history))))))..(def |
| 3fce0 | 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 64 69 74 2d 63 6f 6d 6d 61 6e 64 20 | un.counsel-compile-edit-command. |
| 3fd00 | 28 29 0a 20 20 22 49 6e 73 65 72 74 20 63 75 72 72 65 6e 74 20 63 6f 6d 70 69 6c 65 20 63 6f 6d | ()..."Insert.current.compile.com |
| 3fd20 | 6d 61 6e 64 20 69 6e 74 6f 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 20 66 6f 72 20 65 64 69 | mand.into.the.minibuffer.for.edi |
| 3fd40 | 74 69 6e 67 2e 0a 0a 54 68 69 73 20 6d 69 72 72 6f 72 73 20 74 68 65 20 62 65 68 61 76 69 6f 72 | ting...This.mirrors.the.behavior |
| 3fd60 | 20 6f 66 20 60 69 76 79 2d 69 6e 73 65 72 74 2d 63 75 72 72 65 6e 74 27 20 62 75 74 20 77 69 74 | .of.`ivy-insert-current'.but.wit |
| 3fd80 | 68 20 73 70 65 63 69 66 69 63 0a 68 61 6e 64 6c 69 6e 67 20 66 6f 72 20 74 68 65 20 60 63 6f 75 | h.specific.handling.for.the.`cou |
| 3fda0 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 27 20 6d 65 74 61 64 61 74 61 2e 22 0a 20 20 28 69 6e 74 65 | nsel-compile'.metadata."...(inte |
| 3fdc0 | 72 61 63 74 69 76 65 29 0a 20 20 28 64 65 6c 65 74 65 2d 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f | ractive)...(delete-minibuffer-co |
| 3fde0 | 6e 74 65 6e 74 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 63 6d 64 20 28 69 76 79 2d 73 74 61 74 65 | ntents)...(let*.((cmd.(ivy-state |
| 3fe00 | 2d 63 75 72 72 65 6e 74 20 69 76 79 2d 6c 61 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 6c | -current.ivy-last))..........(bl |
| 3fe20 | 64 64 69 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 62 6c 64 64 69 | ddir.(get-text-property.0.'blddi |
| 3fe40 | 72 20 63 6d 64 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 62 6c 64 64 69 72 0a 20 20 20 20 20 20 | r.cmd))).....(when.blddir....... |
| 3fe60 | 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 63 75 72 72 65 6e 74 2d 62 | (setq.counsel-compile--current-b |
| 3fe80 | 75 69 6c 64 2d 64 69 72 20 62 6c 64 64 69 72 29 29 0a 20 20 20 20 28 69 6e 73 65 72 74 20 28 73 | uild-dir.blddir)).....(insert.(s |
| 3fea0 | 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 | ubstring-no-properties.......... |
| 3fec0 | 20 20 20 20 63 6d 64 20 30 20 28 61 6e 64 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 | ....cmd.0.(and.(get-text-propert |
| 3fee0 | 79 20 30 20 27 63 6d 64 20 63 6d 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | y.0.'cmd.cmd)................... |
| 3ff00 | 20 20 20 20 20 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e | ......(next-single-property-chan |
| 3ff20 | 67 65 20 30 20 27 63 6d 64 20 63 6d 64 29 29 29 29 29 29 0a 0a 3b 3b 20 43 75 72 72 65 6e 74 6c | ge.0.'cmd.cmd))))))..;;.Currentl |
| 3ff40 | 79 20 74 68 65 20 6f 6e 6c 79 20 74 68 69 6e 67 20 77 65 20 64 6f 20 69 73 20 6f 76 65 72 72 69 | y.the.only.thing.we.do.is.overri |
| 3ff60 | 64 65 20 69 76 79 27 73 20 64 65 66 61 75 6c 74 20 69 6e 73 65 72 74 0a 3b 3b 20 6f 70 65 72 61 | de.ivy's.default.insert.;;.opera |
| 3ff80 | 74 69 6f 6e 20 77 68 69 63 68 20 64 6f 65 73 6e 27 74 20 69 6e 63 6c 75 64 65 20 74 68 65 20 6d | tion.which.doesn't.include.the.m |
| 3ffa0 | 65 74 61 64 61 74 61 20 77 65 20 77 61 6e 74 2e 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c | etadata.we.want..(defvar.counsel |
| 3ffc0 | 2d 63 6f 6d 70 69 6c 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d | -compile-map...(let.((map.(make- |
| 3ffe0 | 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | sparse-keymap))).....(define-key |
| 40000 | 20 6d 61 70 20 5b 72 65 6d 61 70 20 69 76 79 2d 69 6e 73 65 72 74 2d 63 75 72 72 65 6e 74 5d 20 | .map.[remap.ivy-insert-current]. |
| 40020 | 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 64 69 74 2d 63 6f 6d 6d 61 6e 64 29 0a | #'counsel-compile-edit-command). |
| 40040 | 20 20 20 20 6d 61 70 29 0a 20 20 22 41 64 64 69 74 69 6f 6e 61 6c 20 69 76 79 20 6b 65 79 62 69 | ....map)..."Additional.ivy.keybi |
| 40060 | 6e 64 69 6e 67 73 20 64 75 72 69 6e 67 20 63 6f 6d 6d 61 6e 64 20 73 65 6c 65 63 74 69 6f 6e 2e | ndings.during.command.selection. |
| 40080 | 22 29 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 75 6e 73 65 | ")..;;;###autoload.(defun.counse |
| 400a0 | 6c 2d 63 6f 6d 70 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 72 29 0a 20 20 22 43 61 6c | l-compile.(&optional.dir)..."Cal |
| 400c0 | 6c 20 60 63 6f 6d 70 69 6c 65 27 20 63 6f 6d 70 6c 65 74 69 6e 67 20 77 69 74 68 20 73 6d 61 72 | l.`compile'.completing.with.smar |
| 400e0 | 74 20 73 75 67 67 65 73 74 69 6f 6e 73 2c 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 66 6f 72 20 44 49 | t.suggestions,.optionally.for.DI |
| 40100 | 52 2e 0a 0a 41 64 64 69 74 69 6f 6e 61 6c 20 61 63 74 69 6f 6e 73 3a 0a 0a 5c 5c 7b 63 6f 75 6e | R...Additional.actions:..\\{coun |
| 40120 | 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 70 7d 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 | sel-compile-map}"...(interactive |
| 40140 | 29 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 2d 63 75 72 72 65 | )...(setq.counsel-compile--curre |
| 40160 | 6e 74 2d 62 75 69 6c 64 2d 64 69 72 20 28 6f 72 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 | nt-build-dir.(or.dir............ |
| 40180 | 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 | ................................ |
| 401a0 | 20 20 20 20 28 63 6f 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 65 2d 72 6f 6f 74 29 0a 20 20 20 20 | ....(counsel--compile-root)..... |
| 401c0 | 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 | ................................ |
| 401e0 | 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 | ...........default-directory)).. |
| 40200 | 20 28 69 76 79 2d 72 65 61 64 20 22 43 6f 6d 70 69 6c 65 20 63 6f 6d 6d 61 6e 64 3a 20 22 0a 20 | .(ivy-read."Compile.command:.".. |
| 40220 | 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 64 75 70 73 20 28 63 6f 75 6e 73 65 6c | ...........(delete-dups.(counsel |
| 40240 | 2d 2d 67 65 74 2d 63 6f 6d 70 69 6c 65 2d 63 61 6e 64 69 64 61 74 65 73 20 64 69 72 29 29 0a 20 | --get-compile-candidates.dir)).. |
| 40260 | 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d | ...........:action.#'counsel-com |
| 40280 | 70 69 6c 65 2d 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 6b 65 79 6d 61 70 | pile--action.............:keymap |
| 402a0 | 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 | .counsel-compile-map............ |
| 402c0 | 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 29 29 0a 0a 28 69 76 | .:caller.'counsel-compile))..(iv |
| 402e0 | 79 2d 61 64 64 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 0a | y-add-actions..'counsel-compile. |
| 40300 | 20 27 28 28 22 64 22 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 66 6f 72 67 65 74 2d 63 | .'(("d".counsel-compile-forget-c |
| 40320 | 6f 6d 6d 61 6e 64 20 22 64 65 6c 65 74 65 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 | ommand."delete")))..(defun.couns |
| 40340 | 65 6c 2d 63 6f 6d 70 69 6c 65 2d 66 6f 72 67 65 74 2d 63 6f 6d 6d 61 6e 64 20 28 63 6d 64 29 0a | el-compile-forget-command.(cmd). |
| 40360 | 20 20 22 44 65 6c 65 74 65 20 43 4d 44 20 66 72 6f 6d 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 | .."Delete.CMD.from.`counsel-comp |
| 40380 | 69 6c 65 2d 68 69 73 74 6f 72 79 27 2e 22 0a 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c 2d 63 | ile-history'."...(setq.counsel-c |
| 403a0 | 6f 6d 70 69 6c 65 2d 68 69 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 20 63 | ompile-history.........(delete.c |
| 403c0 | 6d 64 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 68 69 73 74 6f 72 79 29 29 29 0a 0a 28 | md.counsel-compile-history)))..( |
| 403e0 | 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 2d 66 6f 72 6d 61 | defun.counsel-compile-env--forma |
| 40400 | 74 2d 68 69 6e 74 20 28 63 61 6e 64 73 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 6f 72 6d 61 | t-hint.(cands)..."Return.a.forma |
| 40420 | 74 74 65 72 20 66 6f 72 20 63 6f 6d 70 69 6c 65 2d 65 6e 76 20 43 41 4e 44 53 2e 22 0a 20 20 28 | tter.for.compile-env.CANDS."...( |
| 40440 | 6c 65 74 20 28 28 72 6d 73 74 72 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 | let.((rmstr..........(propertize |
| 40460 | 20 22 72 65 6d 6f 76 65 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 77 61 72 6e 69 | ."remove".'face.'font-lock-warni |
| 40480 | 6e 67 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 28 61 64 64 73 74 72 0a 20 20 20 20 20 20 | ng-face)).........(addstr....... |
| 404a0 | 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 61 64 64 22 20 27 66 61 63 65 20 27 66 6f 6e 74 | ...(propertize."add".'face.'font |
| 404c0 | 2d 6c 6f 63 6b 2d 76 61 72 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 | -lock-variable-name-face)))..... |
| 404e0 | 28 69 76 79 2d 2d 66 6f 72 6d 61 74 2d 66 75 6e 63 74 69 6f 6e 2d 67 65 6e 65 72 69 63 0a 20 20 | (ivy--format-function-generic... |
| 40500 | 20 20 20 28 6c 61 6d 62 64 61 20 28 73 65 6c 65 63 74 65 64 29 0a 20 20 20 20 20 20 20 28 66 6f | ...(lambda.(selected)........(fo |
| 40520 | 72 6d 61 74 20 22 25 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | rmat."%s.%s"................(if. |
| 40540 | 28 6d 65 6d 62 65 72 20 73 65 6c 65 63 74 65 64 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 | (member.selected.counsel-compile |
| 40560 | 2d 65 6e 76 29 20 72 6d 73 74 72 20 61 64 64 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | -env).rmstr.addstr)............. |
| 40580 | 20 20 20 73 65 6c 65 63 74 65 64 29 29 0a 20 20 20 20 20 23 27 69 64 65 6e 74 69 74 79 0a 20 20 | ...selected))......#'identity... |
| 405a0 | 20 20 20 63 61 6e 64 73 0a 20 20 20 20 20 22 5c 6e 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f | ...cands......"\n")))..(defun.co |
| 405c0 | 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 2d 75 70 64 61 74 65 20 28 76 61 72 29 0a | unsel-compile-env--update.(var). |
| 405e0 | 20 20 22 55 70 64 61 74 65 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 27 20 | .."Update.`counsel-compile-env'. |
| 40600 | 65 69 74 68 65 72 20 61 64 64 69 6e 67 20 6f 72 20 72 65 6d 6f 76 69 6e 67 20 56 41 52 2e 22 0a | either.adding.or.removing.VAR.". |
| 40620 | 20 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 76 61 72 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d | ..(cond.((member.var.counsel-com |
| 40640 | 70 69 6c 65 2d 65 6e 76 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 63 6f 75 6e 73 65 6c | pile-env)..........(setq.counsel |
| 40660 | 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 20 28 64 65 6c 65 74 65 20 76 61 72 20 63 6f 75 6e 73 65 6c | -compile-env.(delete.var.counsel |
| 40680 | 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 | -compile-env))).........((string |
| 406a0 | 2d 6d 61 74 63 68 2d 70 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 70 61 74 | -match-p.counsel-compile-env-pat |
| 406c0 | 74 65 72 6e 20 76 61 72 29 0a 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 76 61 72 20 63 6f 75 | tern.var)..........(push.var.cou |
| 406e0 | 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 29 29 0a 20 20 20 20 20 20 20 20 28 74 20 28 75 | nsel-compile-env)).........(t.(u |
| 40700 | 73 65 72 2d 65 72 72 6f 72 20 22 49 67 6e 6f 72 69 6e 67 20 6d 61 6c 66 6f 72 6d 65 64 20 76 61 | ser-error."Ignoring.malformed.va |
| 40720 | 72 69 61 62 6c 65 3a 20 27 25 73 27 22 20 76 61 72 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 | riable:.'%s'".var))))..;;;###aut |
| 40740 | 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 | oload.(defun.counsel-compile-env |
| 40760 | 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 | .()..."Update.`counsel-compile-e |
| 40780 | 6e 76 27 20 69 6e 74 65 72 61 63 74 69 76 65 6c 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | nv'.interactively."...(interacti |
| 407a0 | 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 43 6f 6d 70 69 6c 65 20 65 6e 76 69 72 6f 6e | ve)...(ivy-read."Compile.environ |
| 407c0 | 6d 65 6e 74 20 76 61 72 69 61 62 6c 65 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 | ment.variable:.".............(de |
| 407e0 | 6c 65 74 65 2d 64 75 70 73 20 28 61 70 70 65 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | lete-dups.(append............... |
| 40800 | 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 20 | ............counsel-compile-env. |
| 40820 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 | counsel-compile-env-history))... |
| 40840 | 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 | ..........:action.#'counsel-comp |
| 40860 | 69 6c 65 2d 65 6e 76 2d 2d 75 70 64 61 74 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 | ile-env--update.............:pre |
| 40880 | 64 69 63 61 74 65 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 | dicate.(lambda.(cand)........... |
| 408a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 63 | ...............(string-match-p.c |
| 408c0 | 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 70 61 74 74 65 72 6e 0a 20 20 20 20 20 | ounsel-compile-env-pattern...... |
| 408e0 | 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 | ................................ |
| 40900 | 20 20 20 20 63 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 | ....cand)).............:history. |
| 40920 | 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 68 69 73 74 6f 72 79 0a 20 20 20 | 'counsel-compile-env-history.... |
| 40940 | 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c | .........:caller.'counsel-compil |
| 40960 | 65 2d 65 6e 76 29 29 0a 0a 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c | e-env))..(ivy-configure.'counsel |
| 40980 | 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 0a 20 20 3a 66 6f 72 6d 61 74 2d 66 6e 20 23 27 63 6f 75 6e | -compile-env...:format-fn.#'coun |
| 409a0 | 73 65 6c 2d 63 6f 6d 70 69 6c 65 2d 65 6e 76 2d 2d 66 6f 72 6d 61 74 2d 68 69 6e 74 29 0a 0a 3b | sel-compile-env--format-hint)..; |
| 409c0 | 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 6d 69 6e 6f 72 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e | ;**.`counsel-minor'.(defvar.coun |
| 409e0 | 73 65 6c 2d 6d 69 6e 6f 72 2d 68 69 73 74 6f 72 79 20 6e 69 6c 0a 20 20 22 48 69 73 74 6f 72 79 | sel-minor-history.nil..."History |
| 40a00 | 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 6d 69 6e 6f 72 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 | .for.`counsel-minor'.")..(defun. |
| 40a20 | 63 6f 75 6e 73 65 6c 2d 2d 6d 69 6e 6f 72 2d 63 61 6e 64 69 64 61 74 65 73 20 28 29 0a 20 20 22 | counsel--minor-candidates.()..." |
| 40a40 | 52 65 74 75 72 6e 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 61 6c 69 73 74 20 66 6f 72 20 60 63 6f 75 | Return.completion.alist.for.`cou |
| 40a60 | 6e 73 65 6c 2d 6d 69 6e 6f 72 27 2e 0a 0a 54 68 65 20 61 6c 69 73 74 20 65 6c 65 6d 65 6e 74 20 | nsel-minor'...The.alist.element. |
| 40a80 | 69 73 20 63 6f 6e 73 20 6f 66 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 73 74 72 69 6e 67 20 77 69 74 | is.cons.of.minor.mode.string.wit |
| 40aa0 | 68 20 69 74 73 20 6c 69 67 68 74 65 72 0a 61 6e 64 20 6d 69 6e 6f 72 20 6d 6f 64 65 20 73 79 6d | h.its.lighter.and.minor.mode.sym |
| 40ac0 | 62 6f 6c 2e 22 0a 20 20 28 64 65 6c 71 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 | bol."...(delq.nil.........(mapca |
| 40ae0 | 72 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 6d 6f 64 65 29 0a 20 20 20 20 20 20 | r..........(lambda.(mode)....... |
| 40b00 | 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 6d 6f 64 65 29 20 28 63 | .....(when.(and.(boundp.mode).(c |
| 40b20 | 6f 6d 6d 61 6e 64 70 20 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 | ommandp.mode))..............(let |
| 40b40 | 20 28 28 6c 69 67 68 74 65 72 20 28 63 64 72 20 28 61 73 73 71 20 6d 6f 64 65 20 6d 69 6e 6f 72 | .((lighter.(cdr.(assq.mode.minor |
| 40b60 | 2d 6d 6f 64 65 2d 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -mode-alist))))................( |
| 40b80 | 63 6f 6e 73 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | cons.(concat.................... |
| 40ba0 | 20 20 20 28 69 66 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 6d 6f 64 65 29 20 22 2d 22 20 22 | ...(if.(symbol-value.mode)."-"." |
| 40bc0 | 2b 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 28 73 79 6d 62 6f | +").......................(symbo |
| 40be0 | 6c 2d 6e 61 6d 65 20 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | l-name.mode).................... |
| 40c00 | 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(propertize.................. |
| 40c20 | 20 20 20 20 20 20 28 69 66 20 6c 69 67 68 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ......(if.lighter............... |
| 40c40 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 5c 22 25 73 5c 22 22 0a 20 | .............(format.".\"%s\"".. |
| 40c60 | 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 | ................................ |
| 40c80 | 20 20 28 66 6f 72 6d 61 74 2d 6d 6f 64 65 2d 6c 69 6e 65 20 28 63 6f 6e 73 20 74 20 6c 69 67 68 | ..(format-mode-line.(cons.t.ligh |
| 40ca0 | 74 65 72 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 20 20 20 | ter))).......................... |
| 40cc0 | 22 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 20 27 66 61 63 65 | "")........................'face |
| 40ce0 | 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 | .font-lock-string-face))........ |
| 40d00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 6f 64 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 | ..............mode)))).......... |
| 40d20 | 6d 69 6e 6f 72 2d 6d 6f 64 65 2d 6c 69 73 74 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f | minor-mode-list)))..;;;###autolo |
| 40d40 | 61 64 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 6d 69 6e 6f 72 20 28 29 0a 20 20 22 45 6e | ad.(defun.counsel-minor.()..."En |
| 40d60 | 61 62 6c 65 20 6f 72 20 64 69 73 61 62 6c 65 20 6d 69 6e 6f 72 20 6d 6f 64 65 2e 0a 0a 44 69 73 | able.or.disable.minor.mode...Dis |
| 40d80 | 61 62 6c 65 64 20 6d 69 6e 6f 72 20 6d 6f 64 65 73 20 61 72 65 20 70 72 65 66 69 78 65 64 20 77 | abled.minor.modes.are.prefixed.w |
| 40da0 | 69 74 68 20 5c 22 2b 5c 22 2c 20 61 6e 64 0a 73 65 6c 65 63 74 69 6e 67 20 6f 6e 65 20 6f 66 20 | ith.\"+\",.and.selecting.one.of. |
| 40dc0 | 74 68 65 73 65 20 77 69 6c 6c 20 65 6e 61 62 6c 65 20 69 74 2e 0a 45 6e 61 62 6c 65 64 20 6d 69 | these.will.enable.it..Enabled.mi |
| 40de0 | 6e 6f 72 20 6d 6f 64 65 73 20 61 72 65 20 70 72 65 66 69 78 65 64 20 77 69 74 68 20 5c 22 2d 5c | nor.modes.are.prefixed.with.\"-\ |
| 40e00 | 22 2c 20 61 6e 64 0a 73 65 6c 65 63 74 69 6e 67 20 6f 6e 65 20 6f 66 20 74 68 65 73 65 20 77 69 | ",.and.selecting.one.of.these.wi |
| 40e20 | 6c 6c 20 65 6e 61 62 6c 65 20 69 74 2e 0a 0a 41 64 64 69 74 69 6f 6e 61 6c 20 61 63 74 69 6f 6e | ll.enable.it...Additional.action |
| 40e40 | 73 3a 5c 5c 3c 69 76 79 2d 6d 69 6e 69 62 75 66 66 65 72 2d 6d 61 70 3e 0a 0a 20 20 5c 5c 5b 69 | s:\\<ivy-minibuffer-map>....\\[i |
| 40e60 | 76 79 2d 64 69 73 70 61 74 63 68 69 6e 67 2d 64 6f 6e 65 5d 20 64 3a 20 47 6f 20 74 6f 20 6d 69 | vy-dispatching-done].d:.Go.to.mi |
| 40e80 | 6e 6f 72 20 6d 6f 64 65 20 64 65 66 69 6e 69 74 69 6f 6e 0a 20 20 5c 5c 5b 69 76 79 2d 64 69 73 | nor.mode.definition...\\[ivy-dis |
| 40ea0 | 70 61 74 63 68 69 6e 67 2d 64 6f 6e 65 5d 20 68 3a 20 44 65 73 63 72 69 62 65 20 6d 69 6e 6f 72 | patching-done].h:.Describe.minor |
| 40ec0 | 20 6d 6f 64 65 22 0a 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 | .mode"....(interactive)...(ivy-r |
| 40ee0 | 65 61 64 20 22 4d 69 6e 6f 72 20 6d 6f 64 65 73 20 28 65 6e 61 62 6c 65 20 2b 6d 6f 64 65 20 6f | ead."Minor.modes.(enable.+mode.o |
| 40f00 | 72 20 64 69 73 61 62 6c 65 20 2d 6d 6f 64 65 29 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 | r.disable.-mode):."............. |
| 40f20 | 28 63 6f 75 6e 73 65 6c 2d 2d 6d 69 6e 6f 72 2d 63 61 6e 64 69 64 61 74 65 73 29 0a 20 20 20 20 | (counsel--minor-candidates)..... |
| 40f40 | 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 | ........:require-match.t........ |
| 40f60 | 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 6d 69 6e 6f 72 2d 68 69 73 | .....:history.'counsel-minor-his |
| 40f80 | 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 28 6c 61 6d 62 64 61 | tory.............:action.(lambda |
| 40fa0 | 20 28 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6c 6c | .(x).......................(call |
| 40fc0 | 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 28 63 64 72 20 78 29 29 29 29 29 0a 0a 28 69 76 79 | -interactively.(cdr.x)))))..(ivy |
| 40fe0 | 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 6d 69 6e 6f 72 0a 20 20 3a 69 6e 69 | -configure.'counsel-minor...:ini |
| 41000 | 74 69 61 6c 2d 69 6e 70 75 74 20 22 5e 2b 22 0a 20 20 3a 73 6f 72 74 2d 66 6e 20 23 27 69 76 79 | tial-input."^+"...:sort-fn.#'ivy |
| 41020 | 2d 73 74 72 69 6e 67 3c 29 0a 0a 28 69 76 79 2d 73 65 74 2d 61 63 74 69 6f 6e 73 0a 20 27 63 6f | -string<)..(ivy-set-actions..'co |
| 41040 | 75 6e 73 65 6c 2d 6d 69 6e 6f 72 0a 20 60 28 28 22 64 22 20 2c 28 6c 61 6d 62 64 61 20 28 78 29 | unsel-minor..`(("d".,(lambda.(x) |
| 41060 | 20 28 66 69 6e 64 2d 66 75 6e 63 74 69 6f 6e 20 28 63 64 72 20 78 29 29 29 20 22 64 65 66 69 6e | .(find-function.(cdr.x)))."defin |
| 41080 | 69 74 69 6f 6e 22 29 0a 20 20 20 28 22 68 22 20 2c 28 6c 61 6d 62 64 61 20 28 78 29 20 28 64 65 | ition")....("h".,(lambda.(x).(de |
| 410a0 | 73 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 28 63 64 72 20 78 29 29 29 20 22 68 65 6c 70 22 | scribe-function.(cdr.x)))."help" |
| 410c0 | 29 29 29 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 75 6e 73 | )))..;;;###autoload.(defun.couns |
| 410e0 | 65 6c 2d 6d 61 6a 6f 72 20 28 29 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 | el-major.()...(interactive)...(i |
| 41100 | 76 79 2d 72 65 61 64 20 22 4d 61 6a 6f 72 20 6d 6f 64 65 73 3a 20 22 20 6f 62 61 72 72 61 79 0a | vy-read."Major.modes:.".obarray. |
| 41120 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 70 72 65 64 69 63 61 74 65 20 28 6c 61 6d 62 64 61 20 28 | ............:predicate.(lambda.( |
| 41140 | 66 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 61 6e 64 | f)..........................(and |
| 41160 | 20 28 63 6f 6d 6d 61 6e 64 70 20 66 29 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 2d 6d 6f | .(commandp.f).(string-match."-mo |
| 41180 | 64 65 24 22 20 28 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 | de$".(symbol-name.f))........... |
| 411a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 61 6e 64 20 28 61 75 | ....................(or.(and.(au |
| 411c0 | 74 6f 6c 6f 61 64 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 66 29 29 0a 20 20 20 | toloadp.(symbol-function.f)).... |
| 411e0 | 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 | ................................ |
| 41200 | 20 20 20 20 28 6c 65 74 20 28 28 64 6f 63 2d 73 70 6c 69 74 20 28 68 65 6c 70 2d 73 70 6c 69 74 | ....(let.((doc-split.(help-split |
| 41220 | 2d 66 75 6e 64 6f 63 20 28 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 29 20 66 29 29 29 0a 20 | -fundoc.(documentation.f).f))).. |
| 41240 | 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 | ................................ |
| 41260 | 20 20 20 20 20 20 20 20 3b 3b 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 73 74 61 72 74 65 72 73 20 68 | ........;;.major.mode.starters.h |
| 41280 | 61 76 65 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ave.no.arguments................ |
| 412a0 | 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 61 6e 64 20 64 | ..........................(and.d |
| 412c0 | 6f 63 2d 73 70 6c 69 74 20 28 6e 75 6c 6c 20 28 63 64 72 20 28 72 65 61 64 20 28 63 61 72 20 64 | oc-split.(null.(cdr.(read.(car.d |
| 412e0 | 6f 63 2d 73 70 6c 69 74 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | oc-split)))))))................. |
| 41300 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 75 6c 6c 20 28 68 65 6c 70 2d 66 75 | ..................(null.(help-fu |
| 41320 | 6e 63 74 69 6f 6e 2d 61 72 67 6c 69 73 74 20 66 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | nction-arglist.f)))))........... |
| 41340 | 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 4d 2d 78 2d 61 63 74 69 6f 6e 0a 20 | ..:action.#'counsel-M-x-action.. |
| 41360 | 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 72 20 27 63 6f 75 6e 73 65 6c 2d 6d 61 6a 6f | ...........:caller.'counsel-majo |
| 41380 | 72 29 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 27 0a 28 64 65 63 6c | r))..;;**.`counsel-search'.(decl |
| 413a0 | 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 72 65 71 75 65 73 74 20 22 65 78 74 3a 72 65 71 75 65 73 | are-function.request."ext:reques |
| 413c0 | 74 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 65 | t")..(defcustom.counsel-search-e |
| 413e0 | 6e 67 69 6e 65 20 27 64 64 67 0a 20 20 22 54 68 65 20 73 65 61 72 63 68 20 65 6e 67 69 6e 65 20 | ngine.'ddg..."The.search.engine. |
| 41400 | 63 68 6f 69 63 65 20 69 6e 20 60 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 | choice.in.`counsel-search-engine |
| 41420 | 73 2d 61 6c 69 73 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 0a 20 20 20 20 | s-alist'."...:type.'(choice..... |
| 41440 | 20 20 20 20 20 20 28 63 6f 6e 73 74 20 64 64 67 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e | ......(const.ddg)...........(con |
| 41460 | 73 74 20 67 6f 6f 67 6c 65 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c | st.google)))..(defcustom.counsel |
| 41480 | 2d 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 73 2d 61 6c 69 73 74 0a 20 20 27 28 28 67 6f 6f 67 6c | -search-engines-alist...'((googl |
| 414a0 | 65 0a 20 20 20 20 20 22 68 74 74 70 3a 2f 2f 73 75 67 67 65 73 74 71 75 65 72 69 65 73 2e 67 6f | e......"http://suggestqueries.go |
| 414c0 | 6f 67 6c 65 2e 63 6f 6d 2f 63 6f 6d 70 6c 65 74 65 2f 73 65 61 72 63 68 22 0a 20 20 20 20 20 22 | ogle.com/complete/search"......" |
| 414e0 | 68 74 74 70 73 3a 2f 2f 77 77 77 2e 67 6f 6f 67 6c 65 2e 63 6f 6d 2f 73 65 61 72 63 68 3f 71 3d | https://www.google.com/search?q= |
| 41500 | 22 0a 20 20 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 61 72 63 68 2d 72 65 71 75 65 73 74 2d 64 | "......counsel--search-request-d |
| 41520 | 61 74 61 2d 67 6f 6f 67 6c 65 29 0a 20 20 20 20 28 64 64 67 0a 20 20 20 20 20 22 68 74 74 70 73 | ata-google).....(ddg......"https |
| 41540 | 3a 2f 2f 64 75 63 6b 64 75 63 6b 67 6f 2e 63 6f 6d 2f 61 63 2f 22 0a 20 20 20 20 20 22 68 74 74 | ://duckduckgo.com/ac/"......"htt |
| 41560 | 70 73 3a 2f 2f 64 75 63 6b 64 75 63 6b 67 6f 2e 63 6f 6d 2f 68 74 6d 6c 2f 3f 71 3d 22 0a 20 20 | ps://duckduckgo.com/html/?q="... |
| 41580 | 20 20 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 61 72 63 68 2d 72 65 71 75 65 73 74 2d 64 61 74 61 2d | ...counsel--search-request-data- |
| 415a0 | 64 64 67 29 29 0a 20 20 22 53 65 61 72 63 68 20 65 6e 67 69 6e 65 20 70 61 72 61 6d 65 74 65 72 | ddg))..."Search.engine.parameter |
| 415c0 | 73 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 27 2e 22 0a 20 20 3a 74 79 70 65 | s.for.`counsel-search'."...:type |
| 415e0 | 20 27 28 6c 69 73 74 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 61 72 63 | .'(list))..(defun.counsel--searc |
| 41600 | 68 2d 72 65 71 75 65 73 74 2d 64 61 74 61 2d 67 6f 6f 67 6c 65 20 28 64 61 74 61 29 0a 20 20 28 | h-request-data-google.(data)...( |
| 41620 | 6d 61 70 63 61 72 20 23 27 69 64 65 6e 74 69 74 79 20 28 61 72 65 66 20 64 61 74 61 20 31 29 29 | mapcar.#'identity.(aref.data.1)) |
| 41640 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 2d 73 65 61 72 63 68 2d 72 65 71 75 65 73 | )..(defun.counsel--search-reques |
| 41660 | 74 2d 64 61 74 61 2d 64 64 67 20 28 64 61 74 61 29 0a 20 20 28 6d 61 70 63 61 72 20 23 27 63 64 | t-data-ddg.(data)...(mapcar.#'cd |
| 41680 | 61 72 20 64 61 74 61 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 | ar.data))..(defun.counsel-search |
| 416a0 | 2d 66 75 6e 63 74 69 6f 6e 20 28 69 6e 70 75 74 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 72 65 | -function.(input)..."Create.a.re |
| 416c0 | 71 75 65 73 74 20 74 6f 20 61 20 73 65 61 72 63 68 20 65 6e 67 69 6e 65 20 77 69 74 68 20 49 4e | quest.to.a.search.engine.with.IN |
| 416e0 | 50 55 54 2e 0a 52 65 74 75 72 6e 20 30 20 74 65 6c 6c 73 20 60 69 76 79 2d 2d 65 78 68 69 62 69 | PUT..Return.0.tells.`ivy--exhibi |
| 41700 | 74 27 20 6e 6f 74 20 74 6f 20 75 70 64 61 74 65 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e | t'.not.to.update.the.minibuffer. |
| 41720 | 0a 57 65 20 75 70 64 61 74 65 20 69 74 20 69 6e 20 74 68 65 20 63 61 6c 6c 62 61 63 6b 20 77 69 | .We.update.it.in.the.callback.wi |
| 41740 | 74 68 20 60 69 76 79 2d 75 70 64 61 74 65 2d 63 61 6e 64 69 64 61 74 65 73 27 2e 22 0a 20 20 28 | th.`ivy-update-candidates'."...( |
| 41760 | 6f 72 0a 20 20 20 28 69 76 79 2d 6d 6f 72 65 2d 63 68 61 72 73 29 0a 20 20 20 28 6c 65 74 20 28 | or....(ivy-more-chars)....(let.( |
| 41780 | 28 65 6e 67 69 6e 65 20 28 63 64 72 20 28 61 73 73 6f 63 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 | (engine.(cdr.(assoc.counsel-sear |
| 417a0 | 63 68 2d 65 6e 67 69 6e 65 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 73 | ch-engine.counsel-search-engines |
| 417c0 | 2d 61 6c 69 73 74 29 29 29 29 0a 20 20 20 20 20 28 72 65 71 75 65 73 74 0a 20 20 20 20 20 20 28 | -alist))))......(request.......( |
| 417e0 | 6e 74 68 20 30 20 65 6e 67 69 6e 65 29 0a 20 20 20 20 20 20 3a 74 79 70 65 20 22 47 45 54 22 0a | nth.0.engine).......:type."GET". |
| 41800 | 20 20 20 20 20 20 3a 70 61 72 61 6d 73 20 28 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ......:params.(list............. |
| 41820 | 20 20 20 28 63 6f 6e 73 20 22 63 6c 69 65 6e 74 22 20 22 66 69 72 65 66 6f 78 22 29 0a 20 20 20 | ...(cons."client"."firefox").... |
| 41840 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 22 71 22 20 69 6e 70 75 74 29 29 0a 20 20 | ............(cons."q".input))... |
| 41860 | 20 20 20 20 3a 70 61 72 73 65 72 20 27 6a 73 6f 6e 2d 72 65 61 64 0a 20 20 20 20 20 20 3a 73 75 | ....:parser.'json-read.......:su |
| 41880 | 63 63 65 73 73 20 28 63 6c 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ccess.(cl-function.............. |
| 418a0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 26 6b 65 79 20 64 61 74 61 20 26 61 6c 6c 6f 77 2d 6f 74 68 | ...(lambda.(&key.data.&allow-oth |
| 418c0 | 65 72 2d 6b 65 79 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 76 79 2d | er-keys)...................(ivy- |
| 418e0 | 75 70 64 61 74 65 2d 63 61 6e 64 69 64 61 74 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | update-candidates............... |
| 41900 | 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 28 6e 74 68 20 32 20 65 6e 67 69 6e 65 29 20 64 61 74 | .....(funcall.(nth.2.engine).dat |
| 41920 | 61 29 29 29 29 29 0a 20 20 20 20 20 30 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c | a)))))......0)))..(defun.counsel |
| 41940 | 2d 73 65 61 72 63 68 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 22 53 65 61 72 63 68 20 66 6f 72 | -search-action.(x)..."Search.for |
| 41960 | 20 58 2e 22 0a 20 20 28 62 72 6f 77 73 65 2d 75 72 6c 0a 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 | .X."...(browse-url....(concat... |
| 41980 | 20 20 28 6e 74 68 20 32 20 28 61 73 73 6f 63 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 65 | ..(nth.2.(assoc.counsel-search-e |
| 419a0 | 6e 67 69 6e 65 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 65 6e 67 69 6e 65 73 2d 61 6c 69 | ngine.counsel-search-engines-ali |
| 419c0 | 73 74 29 29 0a 20 20 20 20 28 75 72 6c 2d 68 65 78 69 66 79 2d 73 74 72 69 6e 67 20 78 29 29 29 | st)).....(url-hexify-string.x))) |
| 419e0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 20 28 29 0a 20 20 22 49 | )..(defun.counsel-search.()..."I |
| 41a00 | 76 79 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 64 79 6e 61 6d 69 63 61 6c 6c 79 20 71 75 65 | vy.interface.for.dynamically.que |
| 41a20 | 72 79 69 6e 67 20 61 20 73 65 61 72 63 68 20 65 6e 67 69 6e 65 2e 22 0a 20 20 28 69 6e 74 65 72 | rying.a.search.engine."...(inter |
| 41a40 | 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 72 65 71 75 65 73 74 29 0a 20 20 28 | active)...(require.'request)...( |
| 41a60 | 72 65 71 75 69 72 65 20 27 6a 73 6f 6e 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 73 65 61 72 | require.'json)...(ivy-read."sear |
| 41a80 | 63 68 3a 20 22 20 23 27 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 2d 66 75 6e 63 74 69 6f 6e 0a | ch:.".#'counsel-search-function. |
| 41aa0 | 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 6e 73 65 6c 2d 73 65 | ............:action.#'counsel-se |
| 41ac0 | 61 72 63 68 2d 61 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 79 6e 61 6d 69 63 | arch-action.............:dynamic |
| 41ae0 | 2d 63 6f 6c 6c 65 63 74 69 6f 6e 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 61 6c 6c 65 | -collection.t.............:calle |
| 41b00 | 72 20 27 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 | r.'counsel-search))..(define-obs |
| 41b20 | 6f 6c 65 74 65 2d 66 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 27 63 6f 75 6e 73 65 6c 2d 67 6f | olete-function-alias.'counsel-go |
| 41b40 | 6f 67 6c 65 0a 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 73 65 61 72 63 68 20 22 3c 32 30 31 39 | ogle.....#'counsel-search."<2019 |
| 41b60 | 2d 31 30 2d 31 37 20 54 68 75 3e 22 29 0a 0a 3b 3b 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 63 6f 6d | -10-17.Thu>")..;;**.`counsel-com |
| 41b80 | 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 27 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d | pilation-errors'.(defun.counsel- |
| 41ba0 | 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 2d 62 75 66 66 65 72 20 28 62 75 66 29 | -compilation-errors-buffer.(buf) |
| 41bc0 | 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 | ...(with-current-buffer.buf..... |
| 41be0 | 28 6c 65 74 20 28 28 72 65 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 74 20 28 70 | (let.((res.nil)...........(pt.(p |
| 41c00 | 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f | oint-min))).......(save-excursio |
| 41c20 | 6e 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 73 65 74 71 20 70 74 20 28 63 6f 6d 70 69 | n.........(while.(setq.pt.(compi |
| 41c40 | 6c 61 74 69 6f 6e 2d 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e | lation-next-single-property-chan |
| 41c60 | 67 65 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 70 74 20 27 | ge..........................pt.' |
| 41c80 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 65 73 73 61 67 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 | compilation-message))........... |
| 41ca0 | 28 6c 65 74 20 28 28 6c 6f 63 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 70 74 | (let.((loc.(get-text-property.pt |
| 41cc0 | 20 27 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 6d 65 73 73 61 67 65 29 29 29 0a 20 20 20 20 20 20 20 | .'compilation-message)))........ |
| 41ce0 | 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6c 6f 63 20 28 73 65 74 71 20 6c 6f 63 20 28 63 | .....(when.(and.loc.(setq.loc.(c |
| 41d00 | 6f 6d 70 69 6c 61 74 69 6f 6e 2d 2d 6d 65 73 73 61 67 65 2d 3e 6c 6f 63 20 6c 6f 63 29 29 29 0a | ompilation--message->loc.loc))). |
| 41d20 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 74 29 0a 20 20 20 | ..............(goto-char.pt).... |
| 41d40 | 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...........(push................ |
| 41d60 | 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 | (propertize.................(buf |
| 41d80 | 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 70 74 20 28 | fer-substring-no-properties.pt.( |
| 41da0 | 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | line-end-position))............. |
| 41dc0 | 20 20 20 20 27 70 74 20 70 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 62 75 66 66 | ....'pt.pt.................'buff |
| 41de0 | 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 73 29 29 29 29 29 0a | er.buf)................res))))). |
| 41e00 | 20 20 20 20 20 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ......(nreverse.res))))..(defun. |
| 41e20 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 2d 63 61 6e 64 73 | counsel-compilation-errors-cands |
| 41e40 | 20 28 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 66 6f 72 20 62 75 66 20 69 6e 20 28 | .()...(cl-loop......for.buf.in.( |
| 41e60 | 62 75 66 66 65 72 2d 6c 69 73 74 29 0a 20 20 20 20 20 77 68 65 6e 20 28 63 6f 6d 70 69 6c 61 74 | buffer-list)......when.(compilat |
| 41e80 | 69 6f 6e 2d 62 75 66 66 65 72 2d 70 20 62 75 66 29 0a 20 20 20 20 20 6e 63 6f 6e 63 20 28 63 6f | ion-buffer-p.buf)......nconc.(co |
| 41ea0 | 75 6e 73 65 6c 2d 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 2d 62 75 66 66 65 72 | unsel--compilation-errors-buffer |
| 41ec0 | 20 62 75 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 61 74 | .buf)))..(defun.counsel-compilat |
| 41ee0 | 69 6f 6e 2d 65 72 72 6f 72 73 2d 61 63 74 69 6f 6e 20 28 78 29 0a 20 20 28 70 6f 70 2d 74 6f 2d | ion-errors-action.(x)...(pop-to- |
| 41f00 | 62 75 66 66 65 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 62 75 66 | buffer.(get-text-property.0.'buf |
| 41f20 | 66 65 72 20 78 29 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 67 65 74 2d 74 65 78 74 2d 70 | fer.x))...(goto-char.(get-text-p |
| 41f40 | 72 6f 70 65 72 74 79 20 30 20 27 70 74 20 78 29 29 0a 20 20 28 63 6f 6d 70 69 6c 65 2d 67 6f 74 | roperty.0.'pt.x))...(compile-got |
| 41f60 | 6f 2d 65 72 72 6f 72 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e | o-error))..;;;###autoload.(defun |
| 41f80 | 20 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 20 28 29 0a 20 | .counsel-compilation-errors.().. |
| 41fa0 | 20 22 43 6f 6d 70 69 6c 61 74 69 6f 6e 20 65 72 72 6f 72 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 | ."Compilation.errors."...(intera |
| 41fc0 | 63 74 69 76 65 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 63 6f 6d 70 69 6c 61 74 69 6f 6e 20 | ctive)...(ivy-read."compilation. |
| 41fe0 | 65 72 72 6f 72 73 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 | errors:.".(counsel-compilation-e |
| 42000 | 72 72 6f 72 73 2d 63 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 | rrors-cands).............:requir |
| 42020 | 65 2d 6d 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 | e-match.t.............:action.#' |
| 42040 | 63 6f 75 6e 73 65 6c 2d 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 2d 61 63 74 69 6f | counsel-compilation-errors-actio |
| 42060 | 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d | n.............:history.'counsel- |
| 42080 | 63 6f 6d 70 69 6c 61 74 69 6f 6e 2d 65 72 72 6f 72 73 2d 68 69 73 74 6f 72 79 29 29 0a 0a 3b 3b | compilation-errors-history))..;; |
| 420a0 | 2a 2a 20 60 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 27 0a 28 64 65 66 76 61 72 20 66 6c | **.`counsel-flycheck'.(defvar.fl |
| 420c0 | 79 63 68 65 63 6b 2d 63 75 72 72 65 6e 74 2d 65 72 72 6f 72 73 29 0a 28 64 65 63 6c 61 72 65 2d | ycheck-current-errors).(declare- |
| 420e0 | 66 75 6e 63 74 69 6f 6e 20 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 2d 66 69 6c 65 6e 61 6d 65 | function.flycheck-error-filename |
| 42100 | 20 22 65 78 74 3a 66 6c 79 63 68 65 63 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 | ."ext:flycheck").(declare-functi |
| 42120 | 6f 6e 20 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 2d 6c 69 6e 65 20 22 65 78 74 3a 66 6c 79 63 | on.flycheck-error-line."ext:flyc |
| 42140 | 68 65 63 6b 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6c 79 63 68 65 63 | heck").(declare-function.flychec |
| 42160 | 6b 2d 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 22 65 78 74 3a 66 6c 79 63 68 65 63 6b 22 29 0a | k-error-message."ext:flycheck"). |
| 42180 | 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 66 6c 79 63 68 65 63 6b 2d 6a 75 6d 70 2d | (declare-function.flycheck-jump- |
| 421a0 | 74 6f 2d 65 72 72 6f 72 20 22 65 78 74 3a 66 6c 79 63 68 65 63 6b 22 29 0a 0a 28 64 65 66 75 6e | to-error."ext:flycheck")..(defun |
| 421c0 | 20 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 73 2d 63 61 6e 64 73 20 28 | .counsel-flycheck-errors-cands.( |
| 421e0 | 29 0a 20 20 28 6d 61 70 63 61 72 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 65 72 72 29 0a 20 20 20 | )...(mapcar....(lambda.(err).... |
| 42200 | 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 3a | ..(propertize.......(format."%s: |
| 42220 | 25 64 3a 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d | %d:%s"...............(file-name- |
| 42240 | 62 61 73 65 20 28 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 2d 66 69 6c 65 6e 61 6d 65 20 65 72 | base.(flycheck-error-filename.er |
| 42260 | 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f | r))...............(flycheck-erro |
| 42280 | 72 2d 6c 69 6e 65 20 65 72 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 79 63 68 | r-line.err)...............(flych |
| 422a0 | 65 63 6b 2d 65 72 72 6f 72 2d 6d 65 73 73 61 67 65 20 65 72 72 29 29 20 27 65 72 72 6f 72 20 65 | eck-error-message.err)).'error.e |
| 422c0 | 72 72 29 29 0a 20 20 20 66 6c 79 63 68 65 63 6b 2d 63 75 72 72 65 6e 74 2d 65 72 72 6f 72 73 29 | rr))....flycheck-current-errors) |
| 422e0 | 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 6f 63 63 75 72 | )..(defun.counsel-flycheck-occur |
| 42300 | 20 28 63 61 6e 64 73 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 61 20 63 75 73 74 6f 6d 20 6f 63 | .(cands)..."Generate.a.custom.oc |
| 42320 | 63 75 72 20 62 75 66 66 65 72 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b | cur.buffer.for.`counsel-flycheck |
| 42340 | 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 69 76 | '."...(unless.(eq.major-mode.'iv |
| 42360 | 79 2d 6f 63 63 75 72 2d 67 72 65 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 69 76 79 2d 6f 63 63 75 | y-occur-grep-mode).....(ivy-occu |
| 42380 | 72 2d 67 72 65 70 2d 6d 6f 64 65 29 0a 20 20 20 20 28 73 65 74 71 20 64 65 66 61 75 6c 74 2d 64 | r-grep-mode).....(setq.default-d |
| 423a0 | 69 72 65 63 74 6f 72 79 20 28 69 76 79 2d 73 74 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 69 76 | irectory.(ivy-state-directory.iv |
| 423c0 | 79 2d 6c 61 73 74 29 29 29 0a 20 20 28 73 77 69 70 65 72 2d 2d 6f 63 63 75 72 2d 69 6e 73 65 72 | y-last)))...(swiper--occur-inser |
| 423e0 | 74 2d 6c 69 6e 65 73 0a 20 20 20 28 6d 61 70 63 61 72 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 | t-lines....(mapcar.....(lambda.( |
| 42400 | 63 61 6e 64 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 72 72 20 28 67 65 74 2d 74 65 78 74 | cand).......(let.((err.(get-text |
| 42420 | 2d 70 72 6f 70 65 72 74 79 20 30 20 27 65 72 72 6f 72 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 | -property.0.'error.cand)))...... |
| 42440 | 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a | ...(propertize..........(format. |
| 42460 | 20 20 20 20 20 20 20 20 20 20 22 25 73 3a 25 64 3a 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 28 | .........."%s:%d:%s"...........( |
| 42480 | 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 2d 66 69 6c 65 6e 61 6d 65 20 65 72 72 29 0a 20 20 20 | flycheck-error-filename.err).... |
| 424a0 | 20 20 20 20 20 20 20 28 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 2d 6c 69 6e 65 20 65 72 72 29 | .......(flycheck-error-line.err) |
| 424c0 | 0a 20 20 20 20 20 20 20 20 20 20 63 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 27 65 72 72 6f 72 | ...........cand)..........'error |
| 424e0 | 20 65 72 72 29 29 29 0a 20 20 20 20 63 61 6e 64 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 63 6f 75 | .err))).....cands)))..(defun.cou |
| 42500 | 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 73 2d 61 63 74 69 6f 6e 20 28 65 72 72 | nsel-flycheck-errors-action.(err |
| 42520 | 29 0a 20 20 28 66 6c 79 63 68 65 63 6b 2d 6a 75 6d 70 2d 74 6f 2d 65 72 72 6f 72 20 28 67 65 74 | )...(flycheck-jump-to-error.(get |
| 42540 | 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 27 65 72 72 6f 72 20 65 72 72 29 29 29 0a 0a | -text-property.0.'error.err))).. |
| 42560 | 28 69 76 79 2d 63 6f 6e 66 69 67 75 72 65 20 27 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b | (ivy-configure.'counsel-flycheck |
| 42580 | 0a 20 20 3a 6f 63 63 75 72 20 23 27 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 6f 63 63 | ...:occur.#'counsel-flycheck-occ |
| 425a0 | 75 72 29 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 75 6e 73 | ur)..;;;###autoload.(defun.couns |
| 425c0 | 65 6c 2d 66 6c 79 63 68 65 63 6b 20 28 29 0a 20 20 22 46 6c 79 63 68 65 63 6b 20 65 72 72 6f 72 | el-flycheck.()..."Flycheck.error |
| 425e0 | 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 | s."...(interactive)...(require.' |
| 42600 | 66 6c 79 63 68 65 63 6b 29 0a 20 20 28 69 76 79 2d 72 65 61 64 20 22 66 6c 79 63 68 65 63 6b 20 | flycheck)...(ivy-read."flycheck. |
| 42620 | 65 72 72 6f 72 73 3a 20 22 20 28 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f | errors:.".(counsel-flycheck-erro |
| 42640 | 72 73 2d 63 61 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 72 65 71 75 69 72 65 2d 6d | rs-cands).............:require-m |
| 42660 | 61 74 63 68 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 63 74 69 6f 6e 20 23 27 63 6f 75 | atch.t.............:action.#'cou |
| 42680 | 6e 73 65 6c 2d 66 6c 79 63 68 65 63 6b 2d 65 72 72 6f 72 73 2d 61 63 74 69 6f 6e 0a 20 20 20 20 | nsel-flycheck-errors-action..... |
| 426a0 | 20 20 20 20 20 20 20 20 3a 68 69 73 74 6f 72 79 20 27 63 6f 75 6e 73 65 6c 2d 66 6c 79 63 68 65 | ........:history.'counsel-flyche |
| 426c0 | 63 6b 2d 65 72 72 6f 72 73 2d 68 69 73 74 6f 72 79 29 29 0a 0a 0a 3b 3b 2a 20 60 63 6f 75 6e 73 | ck-errors-history))...;;*.`couns |
| 426e0 | 65 6c 2d 6d 6f 64 65 27 0a 28 64 65 66 76 61 72 20 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 2d 6d 61 | el-mode'.(defvar.counsel-mode-ma |
| 42700 | 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d | p...(let.((map.(make-sparse-keym |
| 42720 | 61 70 29 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 62 69 6e 64 69 6e 67 0a 20 20 20 20 20 | ap))).....(dolist.(binding...... |
| 42740 | 20 20 20 20 20 20 20 20 20 27 28 28 65 78 65 63 75 74 65 2d 65 78 74 65 6e 64 65 64 2d 63 6f 6d | .........'((execute-extended-com |
| 42760 | 6d 61 6e 64 20 2e 20 63 6f 75 6e 73 65 6c 2d 4d 2d 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | mand...counsel-M-x)............. |
| 42780 | 20 20 20 20 28 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 2e 20 63 6f 75 6e 73 65 6c | ....(describe-bindings...counsel |
| 427a0 | 2d 64 65 73 63 62 69 6e 64 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 | -descbinds).................(des |
| 427c0 | 63 72 69 62 65 2d 66 75 6e 63 74 69 6f 6e 20 2e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 | cribe-function...counsel-describ |
| 427e0 | 65 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 | e-function).................(des |
| 42800 | 63 72 69 62 65 2d 76 61 72 69 61 62 6c 65 20 2e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 | cribe-variable...counsel-describ |
| 42820 | 65 2d 76 61 72 69 61 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 | e-variable).................(des |
| 42840 | 63 72 69 62 65 2d 73 79 6d 62 6f 6c 20 2e 20 63 6f 75 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d | cribe-symbol...counsel-describe- |
| 42860 | 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 72 6f 70 6f 73 | symbol).................(apropos |
| 42880 | 2d 63 6f 6d 6d 61 6e 64 20 2e 20 63 6f 75 6e 73 65 6c 2d 61 70 72 6f 70 6f 73 29 0a 20 20 20 20 | -command...counsel-apropos)..... |
| 428a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 73 63 72 69 62 65 2d 66 61 63 65 20 2e 20 63 6f 75 | ............(describe-face...cou |
| 428c0 | 6e 73 65 6c 2d 64 65 73 63 72 69 62 65 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | nsel-describe-face)............. |
| 428e0 | 20 20 20 20 28 6c 69 73 74 2d 66 61 63 65 73 2d 64 69 73 70 6c 61 79 20 2e 20 63 6f 75 6e 73 65 | ....(list-faces-display...counse |
| 42900 | 6c 2d 66 61 63 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 | l-faces).................(find-f |
| 42920 | 69 6c 65 20 2e 20 63 6f 75 6e 73 65 6c 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 | ile...counsel-find-file)........ |
| 42940 | 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 20 2e 20 63 6f 75 6e 73 65 6c | .........(find-library...counsel |
| 42960 | 2d 66 69 6e 64 2d 6c 69 62 72 61 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -find-library).................( |
| 42980 | 69 6d 65 6e 75 20 2e 20 63 6f 75 6e 73 65 6c 2d 69 6d 65 6e 75 29 0a 20 20 20 20 20 20 20 20 20 | imenu...counsel-imenu).......... |
| 429a0 | 20 20 20 20 20 20 20 28 6c 6f 61 64 2d 6c 69 62 72 61 72 79 20 2e 20 63 6f 75 6e 73 65 6c 2d 6c | .......(load-library...counsel-l |
| 429c0 | 6f 61 64 2d 6c 69 62 72 61 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f | oad-library).................(lo |
| 429e0 | 61 64 2d 74 68 65 6d 65 20 2e 20 63 6f 75 6e 73 65 6c 2d 6c 6f 61 64 2d 74 68 65 6d 65 29 0a 20 | ad-theme...counsel-load-theme).. |
| 42a00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 79 61 6e 6b 2d 70 6f 70 20 2e 20 63 6f 75 6e 73 | ...............(yank-pop...couns |
| 42a20 | 65 6c 2d 79 61 6e 6b 2d 70 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e | el-yank-pop).................(in |
| 42a40 | 66 6f 2d 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 20 2e 20 63 6f 75 6e 73 65 6c 2d 69 6e 66 6f 2d | fo-lookup-symbol...counsel-info- |
| 42a60 | 6c 6f 6f 6b 75 70 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | lookup-symbol).................( |
| 42a80 | 70 6f 70 2d 74 6f 2d 6d 61 72 6b 2d 63 6f 6d 6d 61 6e 64 20 2e 20 63 6f 75 6e 73 65 6c 2d 6d 61 | pop-to-mark-command...counsel-ma |
| 42aa0 | 72 6b 2d 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 69 73 65 72 | rk-ring).................(geiser |
| 42ac0 | 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 20 2e 20 63 6f 75 6e 73 65 6c 2d 67 65 | -doc-look-up-manual...counsel-ge |
| 42ae0 | 69 73 65 72 2d 64 6f 63 2d 6c 6f 6f 6b 2d 75 70 2d 6d 61 6e 75 61 6c 29 0a 20 20 20 20 20 20 20 | iser-doc-look-up-manual)........ |
| 42b00 | 20 20 20 20 20 20 20 20 20 28 62 6f 6f 6b 6d 61 72 6b 2d 6a 75 6d 70 20 2e 20 63 6f 75 6e 73 65 | .........(bookmark-jump...counse |
| 42b20 | 6c 2d 62 6f 6f 6b 6d 61 72 6b 29 29 29 0a 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 | l-bookmark))).......(define-key. |
| 42b40 | 6d 61 70 20 28 76 65 63 74 6f 72 20 27 72 65 6d 61 70 20 28 63 61 72 20 62 69 6e 64 69 6e 67 29 | map.(vector.'remap.(car.binding) |
| 42b60 | 29 20 28 63 64 72 20 62 69 6e 64 69 6e 67 29 29 29 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4d 61 | ).(cdr.binding))).....map)..."Ma |
| 42b80 | 70 20 66 6f 72 20 60 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 27 2e 0a 52 65 6d 61 70 73 20 62 75 69 | p.for.`counsel-mode'..Remaps.bui |
| 42ba0 | 6c 74 2d 69 6e 20 66 75 6e 63 74 69 6f 6e 73 20 74 6f 20 63 6f 75 6e 73 65 6c 20 72 65 70 6c 61 | lt-in.functions.to.counsel.repla |
| 42bc0 | 63 65 6d 65 6e 74 73 2e 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 63 6f 75 6e 73 65 6c 2d 6d | cements.")..(defcustom.counsel-m |
| 42be0 | 6f 64 65 2d 6f 76 65 72 72 69 64 65 2d 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 6e | ode-override-describe-bindings.n |
| 42c00 | 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 6f 76 65 72 72 69 64 65 20 60 64 65 73 63 72 | il..."Whether.to.override.`descr |
| 42c20 | 69 62 65 2d 62 69 6e 64 69 6e 67 73 27 20 77 68 65 6e 20 60 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 | ibe-bindings'.when.`counsel-mode |
| 42c40 | 27 20 69 73 20 61 63 74 69 76 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a | '.is.active."...:type.'boolean). |
| 42c60 | 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f | .;;;###autoload.(define-minor-mo |
| 42c80 | 64 65 20 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 0a 20 20 22 54 6f 67 67 6c 65 20 43 6f 75 6e 73 65 | de.counsel-mode..."Toggle.Counse |
| 42ca0 | 6c 20 6d 6f 64 65 20 6f 6e 20 6f 72 20 6f 66 66 2e 0a 54 75 72 6e 20 43 6f 75 6e 73 65 6c 20 6d | l.mode.on.or.off..Turn.Counsel.m |
| 42cc0 | 6f 64 65 20 6f 6e 20 69 66 20 41 52 47 20 69 73 20 70 6f 73 69 74 69 76 65 2c 20 6f 66 66 20 6f | ode.on.if.ARG.is.positive,.off.o |
| 42ce0 | 74 68 65 72 77 69 73 65 2e 20 43 6f 75 6e 73 65 6c 0a 6d 6f 64 65 20 72 65 6d 61 70 73 20 62 75 | therwise..Counsel.mode.remaps.bu |
| 42d00 | 69 6c 74 2d 69 6e 20 65 6d 61 63 73 20 66 75 6e 63 74 69 6f 6e 73 20 74 68 61 74 20 68 61 76 65 | ilt-in.emacs.functions.that.have |
| 42d20 | 20 63 6f 75 6e 73 65 6c 0a 72 65 70 6c 61 63 65 6d 65 6e 74 73 2e 0a 0a 4c 6f 63 61 6c 20 62 69 | .counsel.replacements...Local.bi |
| 42d40 | 6e 64 69 6e 67 73 20 28 60 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 2d 6d 61 70 27 29 3a 0a 5c 5c 7b | ndings.(`counsel-mode-map'):.\\{ |
| 42d60 | 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 2d 6d 61 70 7d 22 0a 20 20 3a 67 6c 6f 62 61 6c 20 74 0a 20 | counsel-mode-map}"...:global.t.. |
| 42d80 | 20 3a 6b 65 79 6d 61 70 20 63 6f 75 6e 73 65 6c 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 3a 6c 69 67 | .:keymap.counsel-mode-map...:lig |
| 42da0 | 68 74 65 72 20 22 20 63 6f 75 6e 73 65 6c 22 0a 20 20 28 69 66 20 63 6f 75 6e 73 65 6c 2d 6d 6f | hter.".counsel"...(if.counsel-mo |
| 42dc0 | 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 63 6f | de.......(progn.........(when.co |
| 42de0 | 75 6e 73 65 6c 2d 6d 6f 64 65 2d 6f 76 65 72 72 69 64 65 2d 64 65 73 63 72 69 62 65 2d 62 69 6e | unsel-mode-override-describe-bin |
| 42e00 | 64 69 6e 67 73 0a 20 20 20 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 23 27 64 65 | dings...........(advice-add.#'de |
| 42e20 | 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 3a 6f 76 65 72 72 69 64 65 20 23 27 63 6f 75 6e | scribe-bindings.:override.#'coun |
| 42e40 | 73 65 6c 2d 64 65 73 63 62 69 6e 64 73 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e 65 2d | sel-descbinds)).........(define- |
| 42e60 | 6b 65 79 20 6d 69 6e 69 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 6d 61 70 20 28 6b 62 64 20 22 43 | key.minibuffer-local-map.(kbd."C |
| 42e80 | 2d 72 22 29 0a 20 20 20 20 20 20 20 20 20 20 23 27 63 6f 75 6e 73 65 6c 2d 6d 69 6e 69 62 75 66 | -r")...........#'counsel-minibuf |
| 42ea0 | 66 65 72 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 | fer-history)).....(advice-remove |
| 42ec0 | 20 23 27 64 65 73 63 72 69 62 65 2d 62 69 6e 64 69 6e 67 73 20 23 27 63 6f 75 6e 73 65 6c 2d 64 | .#'describe-bindings.#'counsel-d |
| 42ee0 | 65 73 63 62 69 6e 64 73 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 63 6f 75 6e 73 65 6c 29 0a | escbinds)))..(provide.'counsel). |
| 42f00 | 0a 3b 3b 3b 20 63 6f 75 6e 73 65 6c 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 | .;;;.counsel.el.ends.here....... |
| 42f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 42fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43000 | 63 6f 75 6e 73 65 6c 2d 30 2e 31 34 2e 32 2f 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 00 00 00 | counsel-0.14.2/.dir-locals.el... |
| 43020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43060 | 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 |
| 43080 | 30 30 30 31 36 31 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 33 33 37 00 20 30 00 00 00 | 0001613.00000000000.014337..0... |
| 430a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 430c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 430e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43100 | 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................... |
| 43120 | 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................... |
| 43140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 431a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 431c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 431e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43200 | 3b 3b 3b 20 44 69 72 65 63 74 6f 72 79 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 0a 3b 3b | ;;;.Directory.Local.Variables.;; |
| 43220 | 3b 20 46 6f 72 20 6d 6f 72 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 73 65 65 20 28 69 6e 66 6f | ;.For.more.information.see.(info |
| 43240 | 20 22 28 65 6d 61 63 73 29 20 44 69 72 65 63 74 6f 72 79 20 56 61 72 69 61 62 6c 65 73 22 29 0a | ."(emacs).Directory.Variables"). |
| 43260 | 0a 28 28 6e 69 6c 0a 20 20 3b 3b 20 45 6d 61 63 73 20 32 38 2b 20 61 75 74 6f 6d 61 74 69 63 61 | .((nil...;;.Emacs.28+.automatica |
| 43280 | 6c 6c 79 20 73 65 74 73 20 75 70 20 74 68 65 73 65 20 60 62 75 67 2d 72 65 66 65 72 65 6e 63 65 | lly.sets.up.these.`bug-reference |
| 432a0 | 2d 6d 6f 64 65 27 20 76 61 72 69 61 62 6c 65 73 0a 20 20 3b 3b 20 69 6e 20 61 20 6d 6f 72 65 20 | -mode'.variables...;;.in.a.more. |
| 432c0 | 67 65 6e 65 72 61 6c 20 77 61 79 2c 20 73 6f 20 73 65 74 74 69 6e 67 20 74 68 65 6d 20 68 65 72 | general.way,.so.setting.them.her |
| 432e0 | 65 20 69 73 20 6e 6f 74 20 66 75 74 75 72 65 2d 70 72 6f 6f 66 2e 20 20 49 66 0a 20 20 3b 3b 20 | e.is.not.future-proof...If...;;. |
| 43300 | 79 6f 75 20 73 74 69 6c 6c 20 6e 65 65 64 20 74 68 65 73 65 20 73 65 74 74 69 6e 67 73 20 69 6e | you.still.need.these.settings.in |
| 43320 | 20 6f 6c 64 65 72 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 2c 20 79 6f 75 20 63 61 6e 20 61 | .older.Emacs.versions,.you.can.a |
| 43340 | 64 64 0a 20 20 3b 3b 20 74 68 65 6d 20 74 6f 20 79 6f 75 72 20 70 65 72 73 6f 6e 61 6c 20 60 2e | dd...;;.them.to.your.personal.`. |
| 43360 | 64 69 72 2d 6c 6f 63 61 6c 73 2d 32 2e 65 6c 27 20 66 69 6c 65 20 69 6e 20 74 68 65 20 6d 65 61 | dir-locals-2.el'.file.in.the.mea |
| 43380 | 6e 74 69 6d 65 2e 0a 20 20 3b 3b 20 28 62 75 67 2d 72 65 66 65 72 65 6e 63 65 2d 62 75 67 2d 72 | ntime....;;.(bug-reference-bug-r |
| 433a0 | 65 67 65 78 70 20 2e 20 22 5c 5c 28 23 5c 5c 28 5b 5b 3a 64 69 67 69 74 3a 5d 5d 2b 5c 5c 29 5c | egexp..."\\(#\\([[:digit:]]+\\)\ |
| 433c0 | 5c 29 22 29 0a 20 20 3b 3b 20 28 62 75 67 2d 72 65 66 65 72 65 6e 63 65 2d 75 72 6c 2d 66 6f 72 | \)")...;;.(bug-reference-url-for |
| 433e0 | 6d 61 74 20 2e 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 62 6f 2d 61 62 | mat..."https://github.com/abo-ab |
| 43400 | 6f 2f 73 77 69 70 65 72 2f 69 73 73 75 65 73 2f 25 73 22 29 0a 20 20 28 63 6f 70 79 72 69 67 68 | o/swiper/issues/%s")...(copyrigh |
| 43420 | 74 2d 6e 61 6d 65 73 2d 72 65 67 65 78 70 20 2e 20 22 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 | t-names-regexp..."Free.Software. |
| 43440 | 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 49 6e 63 5c 5c 2e 22 29 0a 20 20 28 73 65 6e 74 65 6e 63 65 | Foundation,.Inc\\.")...(sentence |
| 43460 | 2d 65 6e 64 2d 64 6f 75 62 6c 65 2d 73 70 61 63 65 20 2e 20 74 29 29 0a 20 28 65 6d 61 63 73 2d | -end-double-space...t))..(emacs- |
| 43480 | 6c 69 73 70 2d 6d 6f 64 65 0a 20 20 28 69 6e 64 65 6e 74 2d 74 61 62 73 2d 6d 6f 64 65 20 2e 20 | lisp-mode...(indent-tabs-mode... |
| 434a0 | 6e 69 6c 29 0a 20 20 28 6f 75 74 6c 69 6e 65 2d 72 65 67 65 78 70 20 2e 20 22 3b 3b 5c 5c 28 5b | nil)...(outline-regexp...";;\\([ |
| 434c0 | 3b 2a 5d 2b 20 5b 5e 5c 73 5c 74 5c 6e 5d 5c 5c 7c 23 23 23 61 75 74 6f 6c 6f 61 64 5c 5c 29 5c | ;*]+.[^\s\t\n]\\|###autoload\\)\ |
| 434e0 | 5c 7c 28 22 29 0a 20 20 3b 3b 20 65 78 74 72 61 20 63 6f 6e 66 69 67 20 68 65 72 65 3a 20 68 74 | \|(")...;;.extra.config.here:.ht |
| 43500 | 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 62 6f 2d 61 62 6f 2f 6f 72 65 6d 61 63 73 | tps://github.com/abo-abo/oremacs |
| 43520 | 2f 62 6c 6f 62 2f 67 69 74 68 75 62 2f 6d 6f 64 65 73 2f 6f 72 61 2d 65 6c 69 73 70 2d 73 74 79 | /blob/github/modes/ora-elisp-sty |
| 43540 | 6c 65 2d 67 75 69 64 65 2e 65 6c 0a 20 20 3b 3b 20 28 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 | le-guide.el...;;.(lisp-indent-fu |
| 43560 | 6e 63 74 69 6f 6e 20 2e 20 63 6f 6d 6d 6f 6e 2d 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 | nction...common-lisp-indent-func |
| 43580 | 74 69 6f 6e 29 0a 20 20 29 29 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | tion)...))...................... |
| 435a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 435c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 435e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43600 | 63 6f 75 6e 73 65 6c 2d 30 2e 31 34 2e 32 2f 63 6f 75 6e 73 65 6c 2d 70 6b 67 2e 65 6c 00 00 00 | counsel-0.14.2/counsel-pkg.el... |
| 43620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43660 | 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 |
| 43680 | 30 30 30 30 37 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 34 35 33 00 20 30 00 00 00 | 0000700.00000000000.014453..0... |
| 436a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 436c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 436e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43700 | 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................... |
| 43720 | 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................... |
| 43740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 437a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 437c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 437e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43800 | 3b 3b 20 47 65 6e 65 72 61 74 65 64 20 70 61 63 6b 61 67 65 20 64 65 73 63 72 69 70 74 69 6f 6e | ;;.Generated.package.description |
| 43820 | 20 66 72 6f 6d 20 63 6f 75 6e 73 65 6c 2e 65 6c 20 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f | .from.counsel.el..-*-.no-byte-co |
| 43840 | 6d 70 69 6c 65 3a 20 74 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 63 6f | mpile:.t.-*-.(define-package."co |
| 43860 | 75 6e 73 65 6c 22 20 22 30 2e 31 34 2e 32 22 20 22 56 61 72 69 6f 75 73 20 63 6f 6d 70 6c 65 74 | unsel"."0.14.2"."Various.complet |
| 43880 | 69 6f 6e 20 66 75 6e 63 74 69 6f 6e 73 20 75 73 69 6e 67 20 49 76 79 22 20 27 28 28 65 6d 61 63 | ion.functions.using.Ivy".'((emac |
| 438a0 | 73 20 22 32 34 2e 35 22 29 20 28 69 76 79 20 22 30 2e 31 34 2e 32 22 29 20 28 73 77 69 70 65 72 | s."24.5").(ivy."0.14.2").(swiper |
| 438c0 | 20 22 30 2e 31 34 2e 32 22 29 29 20 3a 63 6f 6d 6d 69 74 20 22 30 38 62 30 61 38 38 64 36 37 34 | ."0.14.2")).:commit."08b0a88d674 |
| 438e0 | 39 34 61 61 34 63 63 61 34 36 39 32 34 37 66 38 62 34 34 65 64 62 36 34 30 32 62 35 32 22 20 3a | 94aa4cca469247f8b44edb6402b52".: |
| 43900 | 61 75 74 68 6f 72 73 20 27 28 28 22 4f 6c 65 68 20 4b 72 65 68 65 6c 22 20 2e 20 22 6f 68 77 6f | authors.'(("Oleh.Krehel"..."ohwo |
| 43920 | 65 6f 77 68 6f 40 67 6d 61 69 6c 2e 63 6f 6d 22 29 29 20 3a 6d 61 69 6e 74 61 69 6e 65 72 20 27 | eowho@gmail.com")).:maintainer.' |
| 43940 | 28 22 4f 6c 65 68 20 4b 72 65 68 65 6c 22 20 2e 20 22 6f 68 77 6f 65 6f 77 68 6f 40 67 6d 61 69 | ("Oleh.Krehel"..."ohwoeowho@gmai |
| 43960 | 6c 2e 63 6f 6d 22 29 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 63 6f 6e 76 65 6e 69 65 6e 63 65 | l.com").:keywords.'("convenience |
| 43980 | 22 20 22 6d 61 74 63 68 69 6e 67 22 20 22 74 6f 6f 6c 73 22 29 20 3a 75 72 6c 20 22 68 74 74 70 | "."matching"."tools").:url."http |
| 439a0 | 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 62 6f 2d 61 62 6f 2f 73 77 69 70 65 72 22 29 0a | s://github.com/abo-abo/swiper"). |
| 439c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 439e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 43fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 440a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 440c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 440e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 441a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 441c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 441e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 442a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 442c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 442e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 443a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 443c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 443e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 444a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 444c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 444e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 445a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 445c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 445e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 446a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 446c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 446e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 447a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 447c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 447e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 448a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 448c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 448e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 449a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 449c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 449e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 44fe0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45000 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45060 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45080 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 450a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 450c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 450e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 451a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 451c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 451e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 452a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 452c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 452e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 453a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 453c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 453e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 454a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 454c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 454e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45540 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45560 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45580 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 455a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 455c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 455e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45600 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45660 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 456a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 456c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 456e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45700 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 457a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 457c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 457e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45800 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45820 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45840 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45860 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45880 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 458a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 458c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 458e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45900 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45920 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45940 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45960 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45980 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 459a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 459c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 459e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45a00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45a20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45a40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45a60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45a80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45aa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ac0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ae0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45b00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45b20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45b40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45b60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45b80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ba0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45bc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45be0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45c00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45c20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45c40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45c60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45c80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ca0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45cc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ce0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45d00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45d20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45d40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45d60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45d80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45da0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45dc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45de0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45e00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45e20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45e40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45e60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45e80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ea0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ec0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45ee0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45f00 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45f20 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45f40 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45f60 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45f80 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45fa0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45fc0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 45fe0 | 00 00 00 00 00 00 00 00 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: 5714cae4b1322a7eb27e20144b970c810c1a817e (plain)