summaryrefslogtreecommitdiff
path: root/localrepo/counsel-0.14.2.tar
blob: 429b5166717748704537c6c76a082a34d2fd0e95 (plain)
ofshex dumpascii
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 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 00 00 00 counsel-0.14.2/.dir-locals.el...
0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 30 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...
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 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.;;
0420 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
0440 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").
0460 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
0480 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
04a0 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.
04c0 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
04e0 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...;;.
0500 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
0520 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
0540 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.`.
0560 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
0580 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
05a0 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:]]+\\)\
05c0 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
05e0 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
0600 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
0620 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.
0640 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
0660 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-
0680 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...
06a0 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...";;\\([
06c0 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\\)\
06e0 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
0700 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
0720 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
0740 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
0760 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
0780 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)...))......................
07a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
07e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0800 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...
0820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0860 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
0880 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...
08a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
08c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
08e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0900 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...................
0920 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...................
0940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
09a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
09c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
09e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0a00 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
0a20 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
0a40 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
0a60 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
0a80 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
0aa0 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
0ac0 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
0ae0 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".:
0b00 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
0b20 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.'
0b40 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
0b60 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
0b80 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
0ba0 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").
0bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0c00 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.......
0c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0c60 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
0c80 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...
0ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0d00 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...................
0d20 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...................
0d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0e00 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
0e20 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
0e40 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
0e60 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
0e80 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
0ea0 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>.;;
0ec0 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
0ee0 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
0f00 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").
0f20 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")
0f40 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
0f60 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
0f80 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
0fa0 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
0fc0 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
0fe0 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
1000 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.;;
1020 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
1040 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
1060 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
1080 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
10a0 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,.;
10c0 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
10e0 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
1100 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
1120 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
1140 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.
1160 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
1180 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.
11a0 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.
11c0 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:
11e0 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
1200 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.
1220 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
1240 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
1260 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
1280 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
12a0 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
12c0 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,
12e0 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,.;;.
1300 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
1320 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
1340 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
1360 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
1380 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..;;.
13a0 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,.
13c0 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
13e0 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,
1400 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...;;;
1420 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.
1440 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
1460 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
1480 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
14a0 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
14c0 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
14e0 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-")..;;*.
1500 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
1520 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
1540 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.
1560 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
1580 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
15a0 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
15c0 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.
15e0 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
1600 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
1620 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
1640 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
1660 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
1680 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
16a0 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
16c0 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
16e0 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
1700 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
1720 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.
1740 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
1760 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."(
1780 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)".......................
17a0 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).?=.?!).........
17c0 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))).......
17e0 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.............""))....
1800 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
1820 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
1840 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
1860 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-
1880 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).............
18a0 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)...
18c0 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)))..........
18e0 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)..
1900 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
1920 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......"\\\\[(){}|`']
1940 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).......
1960 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.'(("\\("..."(
1980 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 ")............................("
19a0 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 \\)"...")").....................
19c0 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 .......("("..."\\(")............
19e0 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 ................(")"..."\\)")...
1a00 20 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 .........................("\\{".
1a20 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 .."{")..........................
1a40 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 ..("\\}"..."}").................
1a60 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 ...........("\\|"..."|")........
1a80 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 ....................("\\`"..."^"
1aa0 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 )............................("\
1ac0 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.
1ae0 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
1b00 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
1b20 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)))
1b40 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.
1b60 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
1b80 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
1ba0 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
1bc0 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
1be0 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
1c00 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
1c20 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.
1c40 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."...
1c60 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)))
1c80 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
1ca0 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
1cc0 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)....
1ce0 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
1d00 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
1d20 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
1d40 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
1d60 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
1d80 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
1da0 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
1dc0 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
1de0 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
1e00 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)...
1e20 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
1e40 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
1e60 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.
1e80 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
1ea0 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.
1ec0 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
1ee0 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
1f00 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
1f20 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
1f40 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
1f60 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)...............
1f80 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)..............
1fa0 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))
1fc0 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
1fe0 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
2000 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
2020 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.
2040 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...
2060 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.
2080 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
20a0 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
20c0 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
20e0 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
2100 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
2120 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
2140 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*
2160 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-
2180 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
21a0 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)))......
21c0 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
21e0 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
2200 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
2220 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
2240 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.
2260 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........"\\(?:
2280 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
22a0 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.'
22c0 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
22e0 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
2300 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....
2320 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
2340 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)..
2360 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))
2380 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
23a0 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)
23c0 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.
23e0 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
2400 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)))).........(
2420 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))......
2440 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
2460 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'.
2480 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
24a0 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
24c0 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..
24e0 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.`
2500 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
2520 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
2540 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
2560 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
2580 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
25a0 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
25c0 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))....................
25e0 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.#'
2600 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
2620 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
2640 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
2660 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
2680 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
26a0 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
26c0 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.
26e0 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."
2700 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.
2720 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
2740 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
2760 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..."
2780 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
27a0 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
27c0 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.").
27e0 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
2800 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
2820 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
2840 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.
2860 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
2880 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
28a0 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
28c0 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
28e0 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.")..
2900 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
2920 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,.
2940 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.
2960 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.
2980 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
29a0 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
29c0 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-
29e0 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
2a00 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.....
2a20 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
2a40 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
2a60 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.'
2a80 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
2aa0 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
2ac0 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
2ae0 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
2b00 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.
2b20 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
2b40 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-
2b60 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
2b80 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
2ba0 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-
2bc0 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.
2be0 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
2c00 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
2c20 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.
2c40 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.
2c60 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
2c80 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
2ca0 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
2cc0 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
2ce0 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
2d00 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
2d20 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
2d40 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
2d60 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
2d80 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
2da0 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-
2dc0 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
2de0 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
2e00 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
2e20 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
2e40 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
2e60 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))....
2e80 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).....
2ea0 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
2ec0 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)........
2ee0 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
2f00 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))))....
2f20 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
2f40 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
2f60 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)..
2f80 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
2fa0 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
2fc0 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
2fe0 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-
3000 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.
3020 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...
3040 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
3060 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
3080 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
30a0 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).
30c0 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-
30e0 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
3100 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
3120 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
3140 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
3160 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
3180 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
31a0 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
31c0 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)..
31e0 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
3200 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--
3220 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.
3240 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
3260 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...........
3280 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.........
32a0 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
32c0 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.......
32e0 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
3300 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)))).
3320 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.(&
3340 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...
3360 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
3380 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
33a0 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
33c0 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
33e0 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
3400 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)).......(
3420 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
3440 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
3460 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.
3480 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.(
34a0 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).........
34c0 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))))..
34e0 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
3500 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
3520 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-
3540 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--
3560 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
3580 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)))...
35a0 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......
35c0 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
35e0 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).'
3600 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).......
3620 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)...
3640 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
3660 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))....
3680 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
36a0 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
36c0 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
36e0 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
3700 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
3720 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
3740 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)))...............
3760 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.....................(
3780 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
37a0 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
37c0 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....................
37e0 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)...........
3800 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................
3820 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
3840 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
3860 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
3880 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
38a0 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
38c0 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).
38e0 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
3900 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
3920 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
3940 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
3960 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)))....
3980 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......
39a0 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
39c0 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))...............
39e0 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
3a00 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..............
3a20 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-
3a40 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)))).............
3a60 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
3a80 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
3aa0 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)))))....
3ac0 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
3ae0 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))).
3b00 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.
3b20 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
3b40 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.
3b60 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
3b80 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
3ba0 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
3bc0 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
3be0 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.
3c00 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
3c20 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
3c40 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
3c60 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
3c80 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
3ca0 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
3cc0 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
3ce0 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
3d00 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
3d20 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
3d40 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
3d60 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.(
3d80 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
3da0 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).........
3dc0 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
3de0 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
3e00 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
3e20 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).........(
3e40 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
3e60 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
3e80 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.
3ea0 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))
3ec0 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-
3ee0 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
3f00 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
3f20 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)...............
3f40 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)...
3f60 20 20 20 20 20 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
3f80 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))...
3fa0 20 20 20 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
3fc0 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)))).......(
3fe0 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++.
4000 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
4020 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
4040 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
4060 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
4080 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)))
40a0 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
40c0 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
40e0 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
4100 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
4120 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*"))))
4140 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
4160 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
4180 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
41a0 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
41c0 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>").
41e0 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.
4200 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."<
4220 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
4240 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.
4260 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
4280 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-
42a0 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
42c0 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>")..;;**.`
42e0 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
4300 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
4320 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
4340 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."
4360 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.
4380 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
43a0 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
43c0 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
43e0 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
4400 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
4420 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")..;;;
4440 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
4460 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
4480 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)..
44a0 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
44c0 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
44e0 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
4500 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
4520 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
4540 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.'
4560 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
4580 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
45a0 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
45c0 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
45e0 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
4600 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
4620 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
4640 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
4660 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.
4680 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
46a0 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
46c0 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
46e0 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
4700 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
4720 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
4740 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
4760 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
4780 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
47a0 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
47c0 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
47e0 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
4800 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
4820 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
4840 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
4860 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
4880 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
48a0 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
48c0 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
48e0 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
4900 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
4920 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))..........(
4940 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))........
4960 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)).....
4980 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
49a0 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
49c0 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........
49e0 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).....(
4a00 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
4a20 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)..
4a40 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.
4a60 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).....................
4a80 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.(
4aa0 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)))...............:
4ac0 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...........
4ae0 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-
4b00 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
4b20 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.
4b40 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
4b60 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
4b80 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)).....
4ba0 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.#'
4bc0 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
4be0 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)..;;*
4c00 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
4c20 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-
4c40 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-
4c60 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
4c80 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-
4ca0 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
4cc0 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
4ce0 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
4d00 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..
4d20 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
4d40 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-
4d60 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.
4d80 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.
4da0 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.
4dc0 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
4de0 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',.
4e00 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
4e20 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'.").
4e40 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.()..
4e60 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.
4e80 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)
4ea0 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
4ec0 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-
4ee0 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)..
4f00 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
4f20 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
4f40 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
4f60 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.#'
4f80 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
4fa0 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
4fc0 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
4fe0 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
5000 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
5020 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
5040 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
5060 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)....
5080 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
50a0 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
50c0 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
50e0 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
5100 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'.")
5120 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
5140 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
5160 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
5180 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
51a0 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
51c0 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
51e0 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.....
5200 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)..
5220 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)))....
5240 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
5260 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)..............
5280 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
52a0 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).......................(
52c0 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
52e0 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))..............
5300 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)...............
5320 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)).........
5340 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)...........
5360 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)).....
5380 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).
53a0 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
53c0 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
53e0 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)))..............
5400 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...............
5420 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))).....
5440 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..................
5460 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
5480 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".........................
54a0 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
54c0 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
54e0 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
5500 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
5520 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
5540 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
5560 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
5580 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
55a0 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.
55c0 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.
55e0 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."
5600 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
5620 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
5640 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'
5660 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
5680 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))....
56a0 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
56c0 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
56e0 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
5700 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
5720 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
5740 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
5760 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-
5780 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.(
57a0 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)
57c0 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
57e0 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
5800 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....
5820 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.....
5840 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
5860 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.............
5880 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..
58a0 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
58c0 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
58e0 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)..................
5900 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
5920 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))).
5940 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
5960 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
5980 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..
59a0 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
59c0 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
59e0 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
5a00 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
5a20 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
5a40 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
5a60 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")..
5a80 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
5aa0 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-
5ac0 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
5ae0 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
5b00 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
5b20 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
5b40 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
5b60 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)
5b80 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.
5ba0 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."..
5bc0 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-
5be0 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
5c00 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)
5c20 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
5c40 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.()...(
5c60 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
5c80 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))
5ca0 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-
5cc0 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
5ce0 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
5d00 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
5d20 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........
5d40 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
5d60 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
5d80 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)))..
5da0 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
5dc0 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
5de0 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
5e00 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
5e20 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-
5e40 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
5e60 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
5e80 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
5ea0 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.........
5ec0 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)..
5ee0 20 20 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
5f00 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).....................
5f20 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
5f40 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
5f60 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
5f80 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
5fa0 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
5fc0 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...............:
5fe0 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
6000 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).........
6020 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).......
6040 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
6060 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
6080 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
60a0 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)))..
60c0 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
60e0 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
6100 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
6120 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
6140 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
6160 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
6180 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
61a0 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
61c0 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
61e0 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).
6200 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
6220 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.
6240 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
6260 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
6280 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
62a0 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.
62c0 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).
62e0 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
6300 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
6320 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.............
6340 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)......
6360 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.(
6380 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)................
63a0 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.
63c0 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))............
63e0 20 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
6400 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)).............
6420 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..............
6440 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
6460 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
6480 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...........
64a0 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
64c0 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
64e0 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
6500 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
6520 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)))............
6540 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
6560 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-
6580 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
65a0 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<)..
65c0 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
65e0 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
6600 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"
6620 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
6640 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
6660 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
6680 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.
66a0 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'.")..(
66c0 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
66e0 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
6700 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
6720 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)...(
6740 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
6760 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
6780 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)".......................
67a0 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)......
67c0 20 20 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
67e0 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)))..
6800 20 20 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 .........................."'"...
6820 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 ......................."")......
6840 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)))..
6860 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
6880 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
68a0 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
68c0 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
68e0 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)..
6900 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.
6920 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
6940 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)...........
6960 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
6980 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......................
69a0 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
69c0 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
69e0 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..
6a00 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
6a20 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
6a40 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.....
6a60 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
6a80 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
6aa0 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
6ac0 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
6ae0 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-
6b00 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).........
6b20 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
6b40 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))......
6b60 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))...........(
6b80 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
6ba0 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
6bc0 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
6be0 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
6c00 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))....
6c20 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).........
6c40 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)))..
6c60 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
6c80 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..
6ca0 20 20 20 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
6cc0 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.
6ce0 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
6d00 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
6d20 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
6d40 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."..
6d60 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
6d80 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
6da0 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)......
6dc0 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
6de0 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.
6e00 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)))..
6e20 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...
6e40 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
6e60 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.(
6e80 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)
6ea0 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).....
6ec0 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)........
6ee0 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
6f00 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
6f20 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")
6f40 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
6f60 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
6f80 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
6fa0 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-
6fc0 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
6fe0 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
7000 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.
7020 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
7040 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
7060 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
7080 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.
70a0 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
70c0 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..
70e0 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.`
7100 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
7120 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
7140 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
7160 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
7180 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
71a0 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..........
71c0 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
71e0 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.................
7200 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
7220 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...............
7240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
7260 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............
7280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
72a0 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)........
72c0 20 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
72e0 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.
7300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
7320 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))
7340 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.'
7360 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
7380 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).................
73a0 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
73c0 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))).....
73e0 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
7400 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)...
7420 20 20 20 20 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
7440 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
7460 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
7480 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........
74a0 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...
74c0 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
74e0 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))).........
7500 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)........
7520 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
7540 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)).............
7560 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...................
7580 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)......
75a0 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
75c0 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)))...
75e0 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
7600 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
7620 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......................
7640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
7660 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)))))..............
7680 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)
76a0 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
76c0 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))))
76e0 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)))
7700 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.
7720 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)).............
7740 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
7760 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).
7780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
77a0 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......................
77c0 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
77e0 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)))).........
7800 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..............
7820 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.................
7840 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)..
7860 20 20 20 20 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
7880 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)).............
78a0 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))).....
78c0 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
78e0 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)).......
7900 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.(
7920 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)
7940 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 )...............................
7960 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)....................
7980 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))))..............
79a0 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)............
79c0 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))..............
79e0 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
7a00 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)))................
7a20 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))...
7a40 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
7a60 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.........(
7a80 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
7aa0 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
7ac0 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
7ae0 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
7b00 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
7b20 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
7b40 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
7b60 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
7b80 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
7ba0 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
7bc0 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).....................
7be0 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)..........
7c00 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)
7c20 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
7c40 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).......................
7c60 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))).....
7c80 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
7ca0 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
7cc0 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)...........
7ce0 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).....
7d00 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=
7d20 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."")....................
7d40 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
7d60 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"))...................
7d80 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
7da0 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...
7dc0 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
7de0 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
7e00 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........................(
7e20 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
7e40 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)).......
7e60 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
7e80 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
7ea0 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.......................
7ec0 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.........
7ee0 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=.
7f00 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).
7f20 20 20 20 20 20 20 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
7f40 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."[.
7f60 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)).......................
7f80 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))........
7fa0 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
7fc0 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."\\'")))).......
7fe0 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))
8000 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
8020 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<)..;;*
8040 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'.(
8060 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
8080 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
80a0 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
80c0 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
80e0 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
8100 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")
8120 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
8140 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
8160 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
8180 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
81a0 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")..;;;##
81c0 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
81e0 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
8200 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
8220 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
8240 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.
8260 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
8280 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..
82a0 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)......;;
82c0 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
82e0 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
8300 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.(
8320 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........
8340 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
8360 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))..............
8380 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
83a0 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
83c0 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)).
83e0 20 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
8400 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)......................
8420 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
8440 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
8460 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
8480 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:.".
84a0 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.
84c0 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
84e0 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......
8500 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
8520 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
8540 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
8560 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).
8580 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
85a0 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-
85c0 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
85e0 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<).
8600 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
8620 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
8640 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
8660 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.
8680 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).
86a0 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...
86c0 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-
86e0 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-
8700 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
8720 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
8740 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
8760 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
8780 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
87a0 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
87c0 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
87e0 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
8800 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*
8820 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
8840 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)).....
8860 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
8880 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.
88a0 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..
88c0 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
88e0 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.
8900 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
8920 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
8940 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
8960 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
8980 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........
89a0 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).
89c0 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)...........
89e0 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)).....
8a00 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...............
8a20 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
8a40 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
8a60 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)
8a80 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......
8aa0 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
8ac0 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
8ae0 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)))).............
8b00 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
8b20 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
8b40 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)...
8b60 20 20 20 20 20 20 20 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 ...............................(
8b80 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))............
8ba0 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)))))...
8bc0 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
8be0 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-
8c00 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
8c20 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)....
8c40 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))
8c60 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
8c80 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
8ca0 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
8cc0 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
8ce0 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
8d00 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
8d20 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").
8d40 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
8d60 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
8d80 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"
8da0 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-
8dc0 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
8de0 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
8e00 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."
8e20 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-
8e40 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-
8e60 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
8e80 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
8ea0 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
8ec0 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.
8ee0 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'."..
8f00 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)....
8f20 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...
8f40 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))......
8f60 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
8f80 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))....
8fa0 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)...
8fc0 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
8fe0 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
9000 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
9020 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
9040 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
9060 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
9080 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)............(
90a0 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-
90c0 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
90e0 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
9100 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
9120 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
9140 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
9160 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).
9180 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
91a0 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
91c0 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
91e0 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
9200 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
9220 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
9240 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
9260 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
9280 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)).
92a0 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
92c0 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
92e0 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
9300 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)))..........
9320 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
9340 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)............
9360 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
9380 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
93a0 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
93c0 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).................
93e0 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
9400 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"...
9420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
9440 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)
9460 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
9480 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
94a0 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.`
94c0 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.
94e0 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)
9500 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)..........
9520 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.'
9540 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 -).................."-.").......
9560 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
9580 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
95a0 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))....
95c0 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
95e0 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
9600 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........
9620 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
9640 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
9660 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
9680 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-
96a0 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
96c0 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
96e0 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
9700 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-
9720 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
9740 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
9760 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))..
9780 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
97a0 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
97c0 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
97e0 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
9800 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
9820 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.
9840 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
9860 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-
9880 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
98a0 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
98c0 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
98e0 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
9900 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
9920 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
9940 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
9960 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
9980 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
99a0 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
99c0 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
99e0 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
9a00 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
9a20 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
9a40 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
9a60 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.((
9a80 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)))
9aa0 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
9ac0 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).......
9ae0 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..
9b00 20 20 20 20 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
9b20 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....
9b40 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
9b60 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))..........
9b80 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...........
9ba0 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
9bc0 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
9be0 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
9c00 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.........
9c20 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
9c40 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
9c60 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
9c80 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
9ca0 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
9cc0 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
9ce0 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-
9d00 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")....("
9d20 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
9d40 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
9d60 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
9d80 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
9da0 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
9dc0 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."...
9de0 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
9e00 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
9e20 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
9e40 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
9e60 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))
9e80 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
9ea0 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
9ec0 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.......
9ee0 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
9f00 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-
9f20 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
9f40 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
9f60 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
9f80 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
9fa0 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:."
9fc0 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
9fe0 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
a000 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
a020 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
a040 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-
a060 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
a080 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
a0a0 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.
a0c0 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
a0e0 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
a100 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.'
a120 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)."\\'")).....
a140 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
a160 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..
a180 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
a1a0 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.
a1c0 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
a1e0 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
a200 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-
a220 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
a240 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
a260 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.""
a280 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
a2a0 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
a2c0 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?$".
a2e0 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-
a300 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
a320 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.(
a340 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
a360 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
a380 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.
a3a0 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
a3c0 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.................
a3e0 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
a400 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)))....
a420 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-
a440 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............................
a460 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.........................
a480 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
a4a0 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)).........
a4c0 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
a4e0 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))............................
a500 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
a520 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
a540 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)).....................
a560 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
a580 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).........................
a5a0 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......................
a5c0 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............
a5e0 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
a600 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.....................
a620 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
a640 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)..............................
a660 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
a680 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)).......................
a6a0 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)....................
a6c0 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))...............
a6e0 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...........
a700 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
a720 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 ................................
a740 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.....................
a760 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
a780 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)).............
a7a0 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).........
a7c0 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)))))))...
a7e0 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.
a800 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
a820 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
a840 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
a860 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
a880 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
a8a0 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)
a8c0 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
a8e0 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
a900 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.............
a920 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)...........
a940 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.....
a960 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
a980 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))).......
a9a0 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
a9c0 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
a9e0 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
aa00 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")))..;
aa20 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
aa40 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."
aa60 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-
aa80 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)..
aaa0 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.
aac0 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))))..
aae0 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
ab00 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
ab20 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
ab40 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
ab60 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
ab80 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
aba0 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)....
abc0 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))))
abe0 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
ac00 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-
ac20 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
ac40 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
ac60 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")))..
ac80 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
aca0 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
acc0 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
ace0 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
ad00 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.((
ad20 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
ad40 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
ad60 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.
ad80 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..........
ada0 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
adc0 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
ade0 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-
ae00 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
ae20 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")..
ae40 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
ae60 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
ae80 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
aea0 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
aec0 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
aee0 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
af00 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
af20 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)...........(
af40 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
af60 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)))..;
af80 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
afa0 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
afc0 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',
afe0 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
b000 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'."...(
b020 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
b040 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
b060 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................
b080 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)).
b0a0 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
b0c0 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
b0e0 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))..;;**.
b100 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
b120 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"
b140 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."
b160 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
b180 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")....("
b1a0 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
b1c0 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
b1e0 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.
b200 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
b220 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
b240 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
b260 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
b280 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
b2a0 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
b2c0 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
b2e0 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
b300 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................
b320 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
b340 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>"..
b360 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
b380 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
b3a0 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>"........................"<
b3c0 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>"..
b3e0 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
b400 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
b420 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
b440 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
b460 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
b480 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)
b4a0 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)).
b4c0 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
b4e0 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
b500 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
b520 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))
b540 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."^\\(
b560 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.]*\\(.*\\)$")....
b580 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.
b5a0 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-
b5c0 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).
b5e0 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.
b600 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"
b620 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
b640 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)......
b660 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
b680 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
b6a0 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 ))).............................
b6c0 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"
b6e0 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........
b700 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...........
b720 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"..........
b740 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
b760 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)........
b780 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).............
b7a0 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))........
b7c0 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
b7e0 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)))..(
b800 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
b820 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
b840 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
b860 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
b880 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
b8a0 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
b8c0 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..
b8e0 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
b900 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.(
b920 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
b940 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
b960 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.(
b980 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
b9a0 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
b9c0 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
b9e0 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
ba00 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
ba20 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
ba40 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..
ba60 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
ba80 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
baa0 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-
bac0 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
bae0 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
bb00 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
bb20 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
bb40 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
bb60 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
bb80 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)))..
bba0 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.(
bbc0 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
bbe0 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
bc00 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
bc20 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
bc40 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
bc60 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.
bc80 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
bca0 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)...(
bcc0 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--
bce0 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)..
bd00 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
bd20 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..........
bd40 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
bd60 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
bd80 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
bda0 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
bdc0 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
bde0 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
be00 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
be20 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
be40 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
be60 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.
be80 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
bea0 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
bec0 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
bee0 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
bf00 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
bf20 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
bf40 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
bf60 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
bf80 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
bfa0 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
bfc0 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
bfe0 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
c000 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
c020 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)...
c040 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
c060 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
c080 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))..(
c0a0 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-
c0c0 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<)..
c0e0 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
c100 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
c120 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
c140 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
c160 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
c180 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
c1a0 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-
c1c0 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
c1e0 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
c200 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
c220 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.
c240 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
c260 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
c280 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
c2a0 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
c2c0 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.(
c2e0 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
c300 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
c320 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
c340 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")....("
c360 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-
c380 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")
c3a0 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
c3c0 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
c3e0 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
c400 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
c420 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
c440 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.....
c460 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)............(
c480 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
c4a0 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
c4c0 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.........
c4e0 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
c500 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
c520 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.(
c540 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.
c560 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
c580 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."
c5a0 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
c5c0 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
c5e0 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
c600 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
c620 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."
c640 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
c660 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
c680 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
c6a0 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.%
c6c0 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
c6e0 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
c700 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
c720 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
c740 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-
c760 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
c780 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)..
c7a0 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
c7c0 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.............
c7e0 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
c800 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
c820 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
c840 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
c860 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
c880 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
c8a0 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"
c8c0 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
c8e0 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")..
c900 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
c920 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.;;**.
c940 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
c960 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
c980 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
c9a0 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
c9c0 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
c9e0 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
ca00 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
ca20 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
ca40 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
ca60 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
ca80 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
caa0 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
cac0 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
cae0 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
cb00 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
cb20 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
cb40 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-
cb60 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
cb80 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
cba0 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
cbc0 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."...(
cbe0 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
cc00 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")))
cc20 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)
cc40 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)
cc60 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-
cc80 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
cca0 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.
ccc0 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
cce0 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
cd00 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
cd20 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
cd40 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.
cd60 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
cd80 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."...
cda0 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
cdc0 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
cde0 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
ce00 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."
ce20 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.
ce40 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)..............
ce60 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...
ce80 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
cea0 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.
cec0 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............
cee0 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
cf00 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
cf20 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
cf40 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
cf60 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.".
cf80 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
cfa0 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
cfc0 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
cfe0 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
d000 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
d020 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.`
d040 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
d060 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))...
d080 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
d0a0 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.|.%
d0c0 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
d0e0 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\\)\\|
d100 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)...
d120 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
d140 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
d160 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
d180 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
d1a0 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
d1c0 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
d1e0 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
d200 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-
d220 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).....
d240 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
d260 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)...
d280 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
d2a0 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)
d2c0 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."
d2e0 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
d300 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
d320 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)...
d340 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
d360 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
d380 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-
d3a0 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
d3c0 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.
d3e0 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
d400 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
d420 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......
d440 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
d460 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
d480 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)...
d4a0 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.......
d4c0 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
d4e0 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
d500 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).....
d520 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-
d540 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)))..........
d560 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)).......
d580 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)...........
d5a0 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))))))).
d5c0 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
d5e0 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
d600 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
d620 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-
d640 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
d660 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
d680 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
d6a0 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
d6c0 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
d6e0 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
d700 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
d720 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.-
d740 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.
d760 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
d780 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
d7a0 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
d7c0 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-
d7e0 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
d800 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
d820 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
d840 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
d860 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).
d880 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
d8a0 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.
d8c0 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
d8e0 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
d900 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.
d920 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
d940 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.`
d960 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
d980 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
d9a0 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
d9c0 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
d9e0 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
da00 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
da20 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'
da40 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
da60 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
da80 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
daa0 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
dac0 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).........
dae0 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
db00 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
db20 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
db40 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
db60 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.(
db80 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
dba0 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).....................(
dbc0 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........
dbe0 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
dc00 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))...................
dc20 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
dc40 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
dc60 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
dc80 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.(
dca0 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))
dcc0 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
dce0 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
dd00 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
dd20 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.-
dd40 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
dd60 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
dd80 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
dda0 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).
ddc0 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
dde0 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
de00 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
de20 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
de40 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".""))).....
de60 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
de80 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.
dea0 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."...
dec0 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."\\`\\(.*?\\
dee0 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)..
df00 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
df20 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))...........
df40 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
df60 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
df80 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..............
dfa0 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..................
dfc0 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))
dfe0 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)).
e000 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-
e020 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))).......(
e040 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
e060 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
e080 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
e0a0 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-
e0c0 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)))).....
e0e0 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)......
e100 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
e120 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
e140 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
e160 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
e180 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))))))
e1a0 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
e1c0 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
e1e0 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.(
e200 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."\\`\\([^:]+\\):\\(
e220 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
e240 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).
e260 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)...................
e280 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
e2a0 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
e2c0 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).
e2e0 20 20 20 20 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
e300 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
e320 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
e340 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
e360 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\"
e380 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
e3a0 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
e3c0 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."
e3e0 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-
e400 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
e420 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))
e440 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.......(
e460 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
e480 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..
e4a0 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.....
e4c0 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).......
e4e0 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
e500 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
e520 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))....
e540 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))...
e560 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................
e580 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
e5a0 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..................
e5c0 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
e5e0 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..................
e600 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
e620 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
e640 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
e660 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-
e680 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
e6a0 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
e6c0 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
e6e0 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
e700 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
e720 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
e740 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
e760 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.
e780 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
e7a0 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
e7c0 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...
e7e0 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
e800 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
e820 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
e840 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
e860 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
e880 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)..
e8a0 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
e8c0 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
e8e0 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
e900 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...................
e920 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
e940 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.
e960 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
e980 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
e9a0 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)...............
e9c0 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
e9e0 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.................
ea00 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).
ea20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
ea40 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)...................
ea60 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
ea80 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))......................
eaa0 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..........
eac0 20 20 20 20 20 20 20 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
eae0 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
eb00 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.....
eb20 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
eb40 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........................
eb60 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.`
eb80 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").".").......
eba0 20 20 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
ebc0 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.
ebe0 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*.
ec00 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.
ec20 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.............
ec40 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.(
ec60 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......
ec80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
eca0 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.
ecc0 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)))............................
ece0 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)).............
ed00 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
ed20 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))))).............
ed40 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
ed60 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....................
ed80 20 20 20 20 20 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
eda0 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)......
edc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
ede0 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
ee00 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.`
ee20 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.
ee40 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
ee60 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
ee80 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
eea0 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
eec0 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'.
eee0 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
ef00 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.()...(
ef20 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
ef40 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
ef60 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.
ef80 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.
efa0 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
efc0 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
efe0 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
f000 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
f020 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
f040 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
f060 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.
f080 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
f0a0 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
f0c0 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
f0e0 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
f100 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
f120 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
f140 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
f160 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
f180 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
f1a0 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).....(
f1c0 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.......
f1e0 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
f200 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...
f220 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
f240 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
f260 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.....
f280 20 20 20 20 20 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
f2a0 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...........................
f2c0 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)...........
f2e0 20 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
f300 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
f320 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
f340 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
f360 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............
f380 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......
f3a0 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
f3c0 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.
f3e0 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.......
f400 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-
f420 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
f440 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
f460 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
f480 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
f4a0 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)....
f4c0 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....
f4e0 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-
f500 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
f520 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...............
f540 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.......
f560 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
f580 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))....................(
f5a0 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
f5c0 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))))..........
f5e0 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.
f600 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
f620 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)))).....
f640 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)
f660 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
f680 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).......
f6a0 20 20 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
f6c0 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
f6e0 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)))........................
f700 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
f720 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.....
f740 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).
f760 20 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
f780 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))..............
f7a0 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.................
f7c0 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)
f7e0 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
f800 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
f820 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--
f840 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
f860 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
f880 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
f8a0 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
f8c0 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"))..(
f8e0 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
f900 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
f920 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
f940 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
f960 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..........
f980 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))
f9a0 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.
f9c0 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
f9e0 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)........
fa00 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"
fa20 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
fa40 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
fa60 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
fa80 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)..
faa0 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.....
fac0 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
fae0 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..............
fb00 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-
fb20 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
fb40 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
fb60 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
fb80 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
fba0 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
fbc0 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..........
fbe0 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
fc00 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
fc20 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)
fc40 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:..
fc60 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
fc80 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."
fca0 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
fcc0 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...
fce0 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...........
fd00 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-
fd20 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]*:\\)"...
fd40 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
fd60 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))))...
fd80 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
fda0 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
fdc0 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
fde0 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
fe00 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.............................;
fe20 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..*?.....
fe40 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 ........................"\\.\\*\
fe60 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 \?".".*"........................
fe80 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)))....
fea0 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........
fec0 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)."".......
fee0 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)....
ff00 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
ff20 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)).......................
ff40 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".(
ff60 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)))).......................
ff80 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........................".
ffa0 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
ffc0 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
ffe0 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....
10000 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)."
10020 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-
10040 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)...
10060 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.
10080 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
100a0 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
100c0 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
100e0 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.()...
10100 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
10120 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
10140 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
10160 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
10180 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
101a0 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
101c0 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*.
101e0 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
10200 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
10220 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
10240 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"
10260 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.
10280 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
102a0 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
102c0 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
102e0 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."\\`\\(.*?\\):
10300 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).
10320 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...
10340 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
10360 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
10380 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-
103a0 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..........
103c0 20 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
103e0 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..............................
10400 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
10420 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.(
10440 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)..
10460 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
10480 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).................
104a0 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)........
104c0 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
104e0 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
10500 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))))))))))
10520 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
10540 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.
10560 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.
10580 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
105a0 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
105c0 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
105e0 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).....
10600 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.
10620 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.
10640 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
10660 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
10680 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.
106a0 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
106c0 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
106e0 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-
10700 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.
10720 20 20 20 20 20 20 20 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 ..............................."
10740 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
10760 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
10780 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
107a0 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)
107c0 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
107e0 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
10800 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......
10820 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
10840 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'.(
10860 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_
10880 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
108a0 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.\"
108c0 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
108e0 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.
10900 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..
10920 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....
10940 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
10960 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
10980 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
109a0 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.
109c0 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
109e0 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
10a00 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
10a20 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
10a40 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
10a60 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."\\.\\*\\?"."
10a80 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 .*".............................
10aa0 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--
10ac0 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
10ae0 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
10b00 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
10b20 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
10b40 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.
10b60 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
10b80 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
10ba0 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
10bc0 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
10be0 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
10c00 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
10c20 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
10c40 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
10c60 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..'
10c80 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-
10ca0 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
10cc0 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-
10ce0 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-
10d00 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-
10d20 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
10d40 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
10d60 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
10d80 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
10da0 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
10dc0 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*.(
10de0 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
10e00 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))..........(
10e20 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
10e40 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)
10e60 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
10e80 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
10ea0 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))
10ec0 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
10ee0 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.
10f00 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
10f20 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-
10f40 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
10f60 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
10f80 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
10fa0 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-
10fc0 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)..
10fe0 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
11000 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
11020 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.
11040 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
11060 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.
11080 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
110a0 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
110c0 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
110e0 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..
11100 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))..
11120 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
11140 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
11160 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
11180 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)
111a0 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))
111c0 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-
111e0 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
11200 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
11220 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
11240 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
11260 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
11280 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.
112a0 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
112c0 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
112e0 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)))...
11300 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:.".
11320 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
11340 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
11360 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)......................
11380 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
113a0 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=).
113c0 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
113e0 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
11400 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)............
11420 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
11440 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................
11460 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
11480 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
114a0 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
114c0 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
114e0 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
11500 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
11520 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
11540 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.
11560 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
11580 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
115a0 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
115c0 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
115e0 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
11600 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..
11620 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".....
11640 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....
11660 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
11680 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))))))..(
116a0 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.()
116c0 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
116e0 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
11700 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.
11720 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
11740 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
11760 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
11780 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
117a0 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
117c0 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)))))..
117e0 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
11800 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)))
11820 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
11840 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..........
11860 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
11880 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").........
118a0 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)))).
118c0 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
118e0 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
11900 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
11920 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
11940 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).
11960 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
11980 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
119a0 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))..(
119c0 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
119e0 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
11a00 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.(
11a20 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
11a40 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
11a60 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
11a80 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.()...
11aa0 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
11ac0 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)...(
11ae0 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-
11b00 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
11b20 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.............:
11b40 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.
11b60 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
11b80 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-
11ba0 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
11bc0 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
11be0 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
11c00 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
11c20 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.'(
11c40 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.")).(
11c60 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
11c80 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..."
11ca0 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
11cc0 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
11ce0 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-
11d00 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
11d20 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-
11d40 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.(
11d60 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
11d80 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
11da0 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
11dc0 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
11de0 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
11e00 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")).....(
11e20 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
11e40 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)).
11e60 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
11e80 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
11ea0 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'
11ec0 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
11ee0 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
11f00 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-
11f20 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
11f40 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
11f60 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
11f80 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
11fa0 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-
11fc0 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
11fe0 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
12000 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
12020 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-
12040 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
12060 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:.".........
12080 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
120a0 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
120c0 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
120e0 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
12100 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)))....................
12120 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))).....
12140 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).....
12160 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
12180 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.
121a0 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
121c0 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
121e0 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"..."
12200 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.
12220 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
12240 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
12260 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."..
12280 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
122a0 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.(
122c0 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)).........
122e0 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".
12300 20 20 20 20 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
12320 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................
12340 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."").......
12360 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
12380 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.........................
123a0 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...................
123c0 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.
123e0 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).....................
12400 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.
12420 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
12440 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,.....;;
12460 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
12480 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
124a0 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)).
124c0 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
124e0 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
12500 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
12520 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
12540 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
12560 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
12580 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
125a0 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
125c0 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
125e0 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
12600 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.
12620 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).............
12640 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
12660 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))........................
12680 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)
126a0 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.
126c0 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).'
126e0 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-
12700 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-
12720 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
12740 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
12760 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."...
12780 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-
127a0 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:."...
127c0 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
127e0 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
12800 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).................
12820 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
12840 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)).......................
12860 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
12880 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)
128a0 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.
128c0 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.......
128e0 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
12900 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
12920 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.
12940 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)))...........
12960 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.
12980 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
129a0 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
129c0 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
129e0 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).....
12a00 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
12a20 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
12a40 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)))).....
12a60 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
12a80 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)))
12aa0 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
12ac0 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.
12ae0 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
12b00 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
12b20 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-
12b40 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......................
12b60 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)...........
12b80 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
12ba0 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))...............
12bc0 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
12be0 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
12c00 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
12c20 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
12c40 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.(
12c60 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....
12c80 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
12ca0 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))).........
12cc0 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
12ce0 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
12d00 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
12d20 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
12d40 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.
12d60 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
12d80 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
12da0 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")...
12dc0 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
12de0 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-
12e00 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
12e20 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
12e40 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")....("
12e60 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
12e80 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
12ea0 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
12ec0 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
12ee0 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
12f00 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
12f20 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")....("
12f40 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.
12f60 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
12f80 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")))..(
12fa0 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
12fc0 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
12fe0 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
13000 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
13020 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-
13040 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
13060 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
13080 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
130a0 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-
130c0 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.
130e0 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
13100 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
13120 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...
13140 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
13160 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
13180 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:.\"\\\\=`[#.]
131a0 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.
131c0 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
131e0 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
13200 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
13220 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
13240 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
13260 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
13280 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
132a0 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
132c0 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
132e0 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...........
13300 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).........
13320 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
13340 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"."\\(?:\\`\\|[/\\]\\)\\(?:
13360 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.
13380 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"............
133a0 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
133c0 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)."\\'")
133e0 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"
13400 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-
13420 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,.`
13440 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
13460 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
13480 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
134a0 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
134c0 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
134e0 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
13500 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..........(
13520 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.
13540 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
13560 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)...
13580 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
135a0 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)))))))..
135c0 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
135e0 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
13600 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
13620 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
13640 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))))..
13660 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)
13680 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-
136a0 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).............
136c0 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
136e0 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))......
13700 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..
13720 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)...........
13740 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
13760 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
13780 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
137a0 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)))).
137c0 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)))
137e0 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
13800 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-
13820 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
13840 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
13860 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.")
13880 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
138a0 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"."
138c0 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
138e0 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.`
13900 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
13920 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
13940 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
13960 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
13980 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......
139a0 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
139c0 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
139e0 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
13a00 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
13a20 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
13a40 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
13a60 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)........
13a80 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)).
13aa0 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.(
13ac0 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
13ae0 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
13b00 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
13b20 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
13b40 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
13b60 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
13b80 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
13ba0 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
13bc0 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
13be0 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......(
13c00 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
13c20 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.
13c40 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))).....
13c60 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))))....
13c80 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
13ca0 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....
13cc0 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
13ce0 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
13d00 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
13d20 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
13d40 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.
13d60 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).........
13d80 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)..
13da0 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)))..
13dc0 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-
13de0 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
13e00 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
13e20 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
13e40 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
13e60 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
13e80 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)....
13ea0 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
13ec0 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.............
13ee0 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...
13f00 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
13f20 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.
13f40 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
13f60 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
13f80 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)..
13fa0 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
13fc0 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.
13fe0 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
14000 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.
14020 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.((
14040 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)......
14060 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
14080 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)))
140a0 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
140c0 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..........
140e0 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-
14100 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.....................
14120 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
14140 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..
14160 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
14180 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
141a0 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
141c0 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.-
141e0 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
14200 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
14220 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
14240 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-
14260 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
14280 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
142a0 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
142c0 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
142e0 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
14300 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
14320 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
14340 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
14360 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
14380 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...'
143a0 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
143c0 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.'/(.*
143e0 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\";'"...
14400 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
14420 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
14440 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
14460 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
14480 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..
144a0 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
144c0 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
144e0 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
14500 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.")
14520 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
14540 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
14560 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
14580 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..
145a0 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
145c0 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
145e0 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
14600 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
14620 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)).
14640 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
14660 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...............
14680 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)..........
146a0 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
146c0 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.............................(
146e0 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)))))...
14700 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
14720 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)).........
14740 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-
14760 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...........
14780 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
147a0 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
147c0 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)....................
147e0 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
14800 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)).
14820 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-
14840 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
14860 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.........................
14880 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
148a0 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.(
148c0 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
148e0 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........................
14900 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
14920 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
14940 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)......
14960 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
14980 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))..........
149a0 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
149c0 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
149e0 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)..........
14a00 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
14a20 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))
14a40 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."
14a60 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)........
14a80 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."
14aa0 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
14ac0 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
14ae0 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..
14b00 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
14b20 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
14b40 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
14b60 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)))).....
14b80 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
14ba0 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)......".&&."
14bc0 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-
14be0 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
14c00 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
14c20 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.........
14c40 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
14c60 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)..............""............"
14c80 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
14ca0 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
14cc0 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
14ce0 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))).
14d00 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.
14d20 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
14d40 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)
14d60 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
14d80 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
14da0 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
14dc0 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).
14de0 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......(
14e00 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
14e20 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....
14e40 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."
14e60 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
14e80 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
14ea0 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.............
14ec0 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
14ee0 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
14f00 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)))))))..
14f20 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
14f40 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
14f60 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
14f80 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
14fa0 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
14fc0 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
14fe0 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
15000 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/.....
15020 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/.....=>...
15040 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
15060 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
15080 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
150a0 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/..........
150c0 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/
150e0 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
15100 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
15120 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
15140 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
15160 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
15180 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
151a0 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
151c0 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'.
151e0 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-
15200 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
15220 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)))....
15240 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
15260 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
15280 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
152a0 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
152c0 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
152e0 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
15300 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
15320 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
15340 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
15360 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
15380 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)......
153a0 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."")..........
153c0 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)...
153e0 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)).......(
15400 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
15420 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.""))).
15440 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
15460 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
15480 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)
154a0 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
154c0 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
154e0 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
15500 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
15520 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.()..."
15540 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
15560 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
15580 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
155a0 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)
155c0 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."")....
155e0 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............
15600 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
15620 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
15640 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.
15660 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)))...
15680 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
156a0 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
156c0 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
156e0 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."...(
15700 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]+")......
15720 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
15740 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
15760 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
15780 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))............
157a0 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
157c0 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
157e0 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
15800 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
15820 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
15840 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).
15860 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
15880 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.......
158a0 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
158c0 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........................
158e0 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"))...
15900 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)..........
15920 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
15940 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:\\([^/]+\\)/\\(.*\\)\\.
15960 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$"...........................
15980 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
159a0 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)
159c0 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
159e0 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))).........
15a00 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
15a20 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/\\([^/]+\\)/\\(.*\
15a40 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 \)$"............................
15a60 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
15a80 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))
15aa0 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
15ac0 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)))).........
15ae0 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
15b00 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/%
15b20 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".................
15b40 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
15b60 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
15b80 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
15ba0 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
15bc0 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
15be0 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)...................
15c00 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)))).....
15c20 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
15c40 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
15c60 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
15c80 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.
15ca0 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).
15cc0 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.
15ce0 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))))
15d00 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
15d20 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.
15d40 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.
15d60 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
15d80 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
15da0 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
15dc0 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
15de0 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..
15e00 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
15e20 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
15e40 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
15e60 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
15e80 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.
15ea0 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,.
15ec0 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
15ee0 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
15f00 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:...\\
15f20 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:]]+\
15f40 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
15f60 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
15f80 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
15fa0 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.
15fc0 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
15fe0 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
16000 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.
16020 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,...\\='
16040 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:]]
16060 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.(
16080 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
160a0 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
160c0 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
160e0 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.
16100 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
16120 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
16140 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
16160 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
16180 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.
161a0 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
161c0 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
161e0 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
16200 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
16220 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."...
16240 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
16260 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...
16280 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
162a0 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
162c0 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.
162e0 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
16300 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
16320 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
16340 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
16360 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).....
16380 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
163a0 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
163c0 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
163e0 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.
16400 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.(
16420 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
16440 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
16460 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
16480 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
164a0 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)
164c0 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
164e0 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)).....
16500 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
16520 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..
16540 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
16560 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
16580 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
165a0 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
165c0 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'.
165e0 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
16600 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").
16620 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
16640 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
16660 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
16680 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
166a0 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
166c0 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
166e0 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
16700 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'."...
16720 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
16740 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
16760 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
16780 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
167a0 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.
167c0 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
167e0 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).
16800 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
16820 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
16840 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
16860 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
16880 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....................
168a0 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)))............
168c0 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
168e0 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
16900 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..`(
16920 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
16940 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
16960 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"
16980 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.
169a0 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
169c0 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.
169e0 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
16a00 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
16a20 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
16a40 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
16a60 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
16a80 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
16aa0 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
16ac0 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.
16ae0 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
16b00 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.......
16b20 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)
16b40 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
16b60 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-
16b80 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)........
16ba0 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
16bc0 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))...........
16be0 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)........
16c00 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
16c20 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).
16c40 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
16c60 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))....................
16c80 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
16ca0 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...............
16cc0 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-
16ce0 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"...
16d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
16d20 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)).............
16d40 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
16d60 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..............
16d80 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
16da0 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)).................
16dc0 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
16de0 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..................
16e00 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
16e20 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.#'
16e40 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-
16e60 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
16e80 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
16ea0 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)........
16ec0 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....
16ee0 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))
16f00 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
16f20 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)..............;;
16f40 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
16f60 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......
16f80 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
16fa0 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
16fc0 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
16fe0 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
17000 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
17020 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-
17040 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
17060 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
17080 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))
170a0 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
170c0 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
170e0 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
17100 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
17120 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
17140 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
17160 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
17180 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
171a0 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
171c0 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
171e0 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
17200 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
17220 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
17240 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.
17260 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
17280 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
172a0 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
172c0 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
172e0 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
17300 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
17320 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
17340 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
17360 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.
17380 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
173a0 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
173c0 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
173e0 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
17400 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"..
17420 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-
17440 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.(
17460 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)..................
17480 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-
174a0 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))....................
174c0 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
174e0 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))...............
17500 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
17520 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))......................
17540 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
17560 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))).................
17580 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)....
175a0 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)
175c0 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
175e0 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.................
17600 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
17620 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).........
17640 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
17660 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))))..............
17680 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
176a0 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
176c0 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.()...
176e0 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-
17700 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.
17720 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
17740 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..
17760 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
17780 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
177a0 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)...........
177c0 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
177e0 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)))........................(
17800 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....
17820 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
17840 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))....
17860 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
17880 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
178a0 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
178c0 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
178e0 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'.
17900 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
17920 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
17940 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).
17960 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).
17980 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-
179a0 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.........................(
179c0 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)..................
179e0 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).
17a00 20 20 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-
17a20 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-
17a40 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
17a60 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
17a80 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
17aa0 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.#'
17ac0 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
17ae0 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
17b00 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
17b20 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
17b40 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
17b60 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
17b80 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
17ba0 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
17bc0 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
17be0 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
17c00 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
17c20 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
17c40 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
17c60 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)....
17c80 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'.
17ca0 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
17cc0 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.
17ce0 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
17d00 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
17d20 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
17d40 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
17d60 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
17d80 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
17da0 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.
17dc0 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").(
17de0 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
17e00 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
17e20 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
17e40 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
17e60 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.()..."
17e80 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
17ea0 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
17ec0 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
17ee0 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
17f00 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:.".......
17f20 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)......
17f40 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
17f60 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
17f80 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.((
17fa0 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
17fc0 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 ................................
17fe0 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
18000 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 ))..............................
18020 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
18040 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)))..................
18060 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....
18080 20 20 20 20 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
180a0 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
180c0 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)))....................
180e0 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
18100 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 ))))............................
18120 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)
18140 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 )..............................(
18160 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.................
18180 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)
181a0 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 )).............................(
181c0 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..............................(
181e0 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)))).............:
18200 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
18220 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
18240 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
18260 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."..
18280 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
182a0 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)
182c0 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-
182e0 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
18300 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")....(
18320 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")...
18340 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")...
18360 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").
18380 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
183a0 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)
183c0 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")....(
183e0 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
18400 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)...
18420 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
18440 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
18460 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
18480 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
184a0 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
184c0 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-
184e0 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
18500 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
18520 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
18540 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
18560 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<)).
18580 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
185a0 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
185c0 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
185e0 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
18600 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
18620 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
18640 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
18660 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
18680 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
186a0 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
186c0 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)...
186e0 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
18700 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
18720 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.
18740 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...
18760 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
18780 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")........
187a0 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
187c0 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")....
187e0 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
18800 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")..
18820 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.
18840 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)...........................
18860 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)).
18880 20 20 20 20 20 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
188a0 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))).
188c0 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")
188e0 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'
18900 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
18920 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
18940 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
18960 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
18980 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
189a0 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
189c0 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.
189e0 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
18a00 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.
18a20 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
18a40 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
18a60 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
18a80 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.
18aa0 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
18ac0 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
18ae0 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.............;;.
18b00 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:.............;;
18b20 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
18b40 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")......
18b60 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
18b80 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.
18ba0 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
18bc0 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
18be0 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............
18c00 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
18c20 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..........
18c40 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
18c60 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)......................
18c80 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
18ca0 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)).....................
18cc0 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
18ce0 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
18d00 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
18d20 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
18d40 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
18d60 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.....
18d80 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
18da0 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
18dc0 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
18de0 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
18e00 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.#
18e20 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.
18e40 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".
18e60 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
18e80 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'.
18ea0 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
18ec0 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.
18ee0 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)).................
18f00 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
18f20 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)..............
18f40 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
18f60 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).......
18f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
18fa0 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")).
18fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
18fe0 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)...
19000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
19020 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............................
19040 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
19060 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
19080 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
190a0 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
190c0 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
190e0 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
19100 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
19120 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
19140 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
19160 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
19180 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
191a0 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
191c0 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)...
191e0 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"
19200 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).........
19220 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
19240 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.
19260 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
19280 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
192a0 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
192c0 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
192e0 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
19300 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
19320 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'.")..;;;###
19340 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
19360 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
19380 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
193a0 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
193c0 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
193e0 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
19400 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)).......
19420 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)....
19440 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
19460 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"....................
19480 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
194a0 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.......................
194c0 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
194e0 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").............................
19500 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"
19520 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 )...............................
19540 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")).....
19560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
19580 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))...
195a0 20 20 20 20 20 20 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
195c0 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-
195e0 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
19600 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
19620 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
19640 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)..."
19660 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
19680 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
196a0 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
196c0 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
196e0 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
19700 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
19720 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.
19740 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."...
19760 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-
19780 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
197a0 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..
197c0 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..
197e0 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
19800 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)
19820 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-
19840 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
19860 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
19880 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
198a0 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'.
198c0 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-
198e0 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).
19900 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
19920 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
19940 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
19960 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)
19980 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
199a0 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-
199c0 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
199e0 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
19a00 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
19a20 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
19a40 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.
19a60 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
19a80 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
19aa0 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
19ac0 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"..
19ae0 20 20 20 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
19b00 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..............
19b20 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
19b40 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.
19b60 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
19b80 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.
19ba0 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
19bc0 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
19be0 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
19c00 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)......
19c20 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
19c40 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
19c60 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..................
19c80 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
19ca0 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))).......
19cc0 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
19ce0 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.
19d00 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
19d20 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
19d40 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
19d60 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
19d80 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))......'(""
19da0 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
19dc0 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
19de0 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.
19e00 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
19e20 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
19e40 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
19e60 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
19e80 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
19ea0 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
19ec0 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.
19ee0 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))))......
19f00 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
19f20 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
19f40 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
19f60 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
19f80 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
19fa0 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).......(
19fc0 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-
19fe0 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
1a000 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)).....
1a020 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
1a040 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
1a060 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"."
1a080 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
1a0a0 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
1a0c0 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
1a0e0 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
1a100 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-
1a120 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
1a140 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
1a160 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',.
1a180 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
1a1a0 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
1a1c0 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
1a1e0 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:.
1a200 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.....
1a220 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
1a240 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
1a260 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
1a280 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.............
1a2a0 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)..........
1a2c0 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.........
1a2e0 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
1a300 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
1a320 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...........................
1a340 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-
1a360 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)))))............
1a380 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
1a3a0 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
1a3c0 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
1a3e0 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
1a400 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
1a420 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
1a440 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
1a460 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...
1a480 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.....
1a4a0 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.......(
1a4c0 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
1a4e0 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:
1a500 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...
1a520 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:/
1a540 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,.
1a560 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
1a580 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
1a5a0 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
1a5c0 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...
1a5e0 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
1a600 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
1a620 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
1a640 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
1a660 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)....
1a680 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
1a6a0 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)
1a6c0 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
1a6e0 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.............:
1a700 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............
1a720 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.
1a740 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))
1a760 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
1a780 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
1a7a0 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
1a7c0 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
1a7e0 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-
1a800 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
1a820 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.\"%
1a840 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
1a860 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
1a880 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
1a8a0 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
1a8c0 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
1a8e0 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
1a900 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
1a920 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
1a940 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...
1a960 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
1a980 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
1a9a0 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
1a9c0 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-
1a9e0 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
1aa00 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
1aa20 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
1aa40 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
1aa60 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
1aa80 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
1aaa0 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
1aac0 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
1aae0 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
1ab00 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
1ab20 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
1ab40 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.
1ab60 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
1ab80 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,
1aba0 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
1abc0 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
1abe0 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
1ac00 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
1ac20 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.(
1ac40 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
1ac60 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............
1ac80 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........
1aca0 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
1acc0 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......................
1ace0 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
1ad00 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..............................
1ad20 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:.")
1ad40 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
1ad60 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
1ad80 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
1ada0 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
1adc0 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
1ade0 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:.")...
1ae00 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
1ae20 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
1ae40 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
1ae60 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............
1ae80 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..........
1aea0 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.
1aec0 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
1aee0 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.
1af00 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...:
1af20 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
1af40 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
1af60 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
1af80 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.
1afa0 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
1afc0 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.
1afe0 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
1b000 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
1b020 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.
1b040 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
1b060 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.
1b080 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
1b0a0 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
1b0c0 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.|
1b0e0 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
1b100 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
1b120 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"
1b140 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
1b160 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
1b180 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")))..;;**.`
1b1a0 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
1b1c0 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.
1b1e0 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
1b200 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
1b220 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
1b240 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)..
1b260 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
1b280 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."..+")))..............
1b2a0 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
1b2c0 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 "...............................
1b2e0 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.......
1b300 20 20 20 20 20 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
1b320 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)......................
1b340 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)).........
1b360 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
1b380 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."."))))...............
1b3a0 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.................
1b3c0 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.
1b3e0 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)))).....
1b400 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........
1b420 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)......
1b440 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
1b460 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
1b480 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'
1b4a0 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
1b4c0 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.
1b4e0 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
1b500 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
1b520 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..............
1b540 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)..................
1b560 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."|")))
1b580 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
1b5a0 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".................
1b5c0 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
1b5e0 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.........................
1b600 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)........
1b620 20 20 20 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.
1b640 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))...........................
1b660 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.".")))).
1b680 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...
1b6a0 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
1b6c0 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}|
1b6e0 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))))....
1b700 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........
1b720 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)......
1b740 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
1b760 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
1b780 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
1b7a0 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.(
1b7c0 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.....
1b7e0 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.
1b800 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
1b820 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
1b840 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
1b860 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
1b880 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
1b8a0 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)).....
1b8c0 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."\\./")..
1b8e0 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.
1b900 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
1b920 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
1b940 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
1b960 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
1b980 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
1b9a0 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.
1b9c0 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").
1b9e0 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
1ba00 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
1ba20 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))..
1ba40 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
1ba60 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.((
1ba80 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))).....(
1baa0 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
1bac0 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)
1bae0 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
1bb00 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.")..(
1bb20 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
1bb40 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-
1bb60 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'."
1bb80 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
1bba0 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-
1bbc0 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
1bbe0 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
1bc00 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
1bc20 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
1bc40 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.
1bc60 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
1bc80 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
1bca0 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
1bcc0 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.
1bce0 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
1bd00 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.
1bd20 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
1bd40 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.........
1bd60 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.......
1bd80 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
1bda0 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
1bdc0 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
1bde0 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
1be00 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
1be20 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
1be40 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
1be60 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
1be80 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
1bea0 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........
1bec0 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
1bee0 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
1bf00 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.(
1bf20 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)........
1bf40 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
1bf60 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
1bf80 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.......
1bfa0 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
1bfc0 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
1bfe0 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
1c000 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".
1c020 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.(
1c040 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
1c060 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
1c080 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
1c0a0 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
1c0c0 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"
1c0e0 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
1c100 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-
1c120 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)
1c140 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'.;;;
1c160 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
1c180 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
1c1a0 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
1c1c0 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
1c1e0 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
1c200 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
1c220 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
1c240 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
1c260 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
1c280 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
1c2a0 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
1c2c0 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
1c2e0 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............(
1c300 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
1c320 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
1c340 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
1c360 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
1c380 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))
1c3a0 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:
1c3c0 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...........
1c3e0 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.
1c400 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)).......
1c420 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
1c440 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
1c460 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........
1c480 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
1c4a0 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))
1c4c0 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
1c4e0 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
1c500 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.........
1c520 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
1c540 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'
1c560 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.(
1c580 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))).....
1c5a0 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
1c5c0 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
1c5e0 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
1c600 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
1c620 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-
1c640 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
1c660 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))
1c680 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
1c6a0 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"
1c6c0 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
1c6e0 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
1c700 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
1c720 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.
1c740 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
1c760 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
1c780 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
1c7a0 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
1c7c0 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
1c7e0 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
1c800 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
1c820 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
1c840 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,
1c860 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.
1c880 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
1c8a0 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.
1c8c0 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
1c8e0 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
1c900 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
1c920 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.
1c940 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
1c960 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.
1c980 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
1c9a0 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
1c9c0 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
1c9e0 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
1ca00 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
1ca20 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
1ca40 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
1ca60 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
1ca80 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.".--.
1caa0 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
1cac0 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
1cae0 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
1cb00 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
1cb20 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...
1cb40 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
1cb60 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
1cb80 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.
1cba0 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.
1cbc0 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
1cbe0 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
1cc00 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-
1cc20 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).........
1cc40 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).....
1cc60 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))).
1cc80 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
1cca0 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
1ccc0 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.
1cce0 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
1cd00 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
1cd20 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
1cd40 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."...(
1cd60 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
1cd80 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
1cda0 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)............
1cdc0 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.".
1cde0 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)..........
1ce00 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
1ce20 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.............................(
1ce40 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"
1ce60 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)).............
1ce80 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).........
1cea0 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
1cec0 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))......
1cee0 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
1cf00 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)......
1cf20 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
1cf40 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).....
1cf60 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
1cf80 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
1cfa0 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
1cfc0 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--
1cfe0 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
1d000 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))..
1d020 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))..
1d040 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
1d060 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
1d080 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."..
1d0a0 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
1d0c0 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-
1d0e0 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."
1d100 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
1d120 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
1d140 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
1d160 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.
1d180 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."..
1d1a0 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--
1d1c0 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)).....
1d1e0 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
1d200 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
1d220 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
1d240 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-
1d260 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
1d280 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
1d2a0 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)).
1d2c0 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
1d2e0 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).....
1d300 20 20 20 20 20 20 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 ..............................".
1d320 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."............................
1d340 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.")....................
1d360 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
1d380 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)...................
1d3a0 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)))
1d3c0 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
1d3e0 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....
1d400 20 20 20 20 20 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
1d420 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...........................
1d440 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
1d460 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........
1d480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1d4a0 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).....
1d4c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1d4e0 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))))..;;
1d500 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
1d520 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
1d540 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
1d560 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.
1d580 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.
1d5a0 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
1d5c0 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.
1d5e0 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
1d600 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
1d620 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
1d640 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
1d660 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
1d680 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-
1d6a0 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
1d6c0 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
1d6e0 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.
1d700 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
1d720 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'...
1d740 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]'.
1d760 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
1d780 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
1d7a0 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
1d7c0 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.
1d7e0 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."
1d800 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
1d820 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
1d840 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
1d860 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-
1d880 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
1d8a0 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.((
1d8c0 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
1d8e0 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
1d900 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
1d920 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)))).
1d940 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
1d960 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
1d980 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
1d9a0 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
1d9c0 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
1d9e0 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
1da00 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..............................
1da20 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......
1da40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1da60 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:."))))).
1da80 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
1daa0 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.
1dac0 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
1dae0 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.
1db00 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
1db20 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
1db40 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
1db60 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-
1db80 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.
1dba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1dbc0 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)............
1dbe0 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
1dc00 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
1dc20 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
1dc40 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.":."))...........
1dc60 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.....
1dc80 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
1dca0 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
1dcc0 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.................:
1dce0 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...........
1dd00 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
1dd20 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
1dd40 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......
1dd60 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.....
1dd80 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.'
1dda0 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.
1ddc0 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
1dde0 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--
1de00 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
1de20 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
1de40 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.'
1de60 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.
1de80 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
1dea0 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
1dec0 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
1dee0 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
1df00 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.
1df20 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.#
1df40 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
1df60 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
1df80 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...............:
1dfa0 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
1dfc0 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.
1dfe0 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
1e000 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.
1e020 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...........
1e040 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
1e060 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
1e080 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
1e0a0 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
1e0c0 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
1e0e0 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
1e100 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
1e120 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
1e140 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)...
1e160 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*
1e180 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
1e1a0 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)....
1e1c0 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
1e1e0 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)))..
1e200 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
1e220 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)))...
1e240 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
1e260 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)))..
1e280 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
1e2a0 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).
1e2c0 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
1e2e0 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
1e300 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)....
1e320 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
1e340 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)..........
1e360 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
1e380 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))........."-
1e3a0 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
1e3c0 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).
1e3e0 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
1e400 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
1e420 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
1e440 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
1e460 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
1e480 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
1e4a0 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.
1e4c0 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
1e4e0 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*.((
1e500 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
1e520 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
1e540 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)........
1e560 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
1e580 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)
1e5a0 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
1e5c0 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
1e5e0 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-
1e600 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
1e620 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))....................
1e640 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...............
1e660 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
1e680 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)........................
1e6a0 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
1e6c0 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))).....................
1e6e0 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..
1e700 20 20 20 20 20 20 20 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 ...............................(
1e720 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))...
1e740 20 20 20 20 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
1e760 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...............................
1e780 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)
1e7a0 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 ................................
1e7c0 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
1e7e0 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)..............
1e800 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...........
1e820 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...........
1e840 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
1e860 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.".")).......
1e880 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............
1e8a0 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
1e8c0 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).
1e8e0 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-
1e900 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
1e920 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............
1e940 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).........
1e960 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
1e980 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
1e9a0 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
1e9c0 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.#'
1e9e0 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
1ea00 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
1ea20 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.
1ea40 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
1ea60 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
1ea80 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))..;;*
1eaa0 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
1eac0 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.
1eae0 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.
1eb00 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
1eb20 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)..;;;###
1eb40 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
1eb60 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
1eb80 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
1eba0 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
1ebc0 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
1ebe0 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'.
1ec00 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
1ec20 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
1ec40 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
1ec60 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
1ec80 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
1eca0 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))...
1ecc0 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.
1ece0 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)))..
1ed00 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
1ed20 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..
1ed40 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
1ed60 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-
1ed80 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
1eda0 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...(
1edc0 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
1ede0 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-
1ee00 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.--
1ee20 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.`
1ee40 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
1ee60 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
1ee80 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
1eea0 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
1eec0 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
1eee0 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
1ef00 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
1ef20 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
1ef40 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
1ef60 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
1ef80 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
1efa0 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
1efc0 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
1efe0 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)).....
1f000 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
1f020 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
1f040 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
1f060 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...
1f080 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"
1f0a0 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
1f0c0 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"...
1f0e0 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"....
1f100 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
1f120 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
1f140 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"."/".".")))..
1f160 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'
1f180 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
1f1a0 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
1f1c0 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
1f1e0 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
1f200 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.
1f220 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)..........
1f240 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
1f260 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
1f280 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
1f2a0 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-
1f2c0 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-
1f2e0 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
1f300 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-
1f320 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)))......
1f340 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)..........
1f360 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."\\
1f380 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))......
1f3a0 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
1f3c0 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.
1f3e0 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)
1f400 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
1f420 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))..
1f440 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)))))..;;;##
1f460 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
1f480 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
1f4a0 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).
1f4c0 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
1f4e0 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
1f500 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
1f520 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
1f540 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.
1f560 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
1f580 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,
1f5a0 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
1f5c0 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
1f5e0 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
1f600 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
1f620 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
1f640 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"..
1f660 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-
1f680 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
1f6a0 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)....
1f6c0 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
1f6e0 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))
1f700 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
1f720 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.".".................
1f740 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
1f760 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)."."))
1f780 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
1f7a0 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
1f7c0 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
1f7e0 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..
1f800 20 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-
1f820 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))
1f840 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
1f860 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
1f880 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.
1f8a0 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")).............
1f8c0 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
1f8e0 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
1f900 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..........
1f920 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)))..(
1f940 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
1f960 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-
1f980 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
1f9a0 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
1f9c0 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..
1f9e0 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
1fa00 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
1fa20 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
1fa40 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
1fa60 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
1fa80 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
1faa0 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-
1fac0 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
1fae0 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))
1fb00 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
1fb20 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"..."
1fb40 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
1fb60 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
1fb80 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
1fba0 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
1fbc0 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.
1fbe0 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
1fc00 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.
1fc20 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
1fc40 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
1fc60 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
1fc80 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
1fca0 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
1fcc0 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*.(
1fce0 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
1fd00 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
1fd20 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
1fd40 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
1fd60 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
1fd80 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..................
1fda0 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
1fdc0 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
1fde0 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
1fe00 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
1fe20 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).(
1fe40 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
1fe60 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
1fe80 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
1fea0 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)).......
1fec0 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
1fee0 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
1ff00 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
1ff20 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.
1ff40 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
1ff60 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.`
1ff80 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
1ffa0 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
1ffc0 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
1ffe0 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
20000 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
20020 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
20040 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
20060 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
20080 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
200a0 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))).........
200c0 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).......(
200e0 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."\\`\\
20100 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)......
20120 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
20140 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
20160 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)))...................
20180 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
201a0 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)))...........
201c0 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."\\`\\([^
201e0 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]+\\):\\(.*\\)\\'"
20200 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
20220 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
20240 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
20260 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
20280 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.
202a0 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,
202c0 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.....
202e0 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
20300 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.
20320 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
20340 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
20360 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
20380 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)............................
203a0 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))....
203c0 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
203e0 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))........
20400 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
20420 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
20440 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
20460 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
20480 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)))..........
204a0 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))......
204c0 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
204e0 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-
20500 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
20520 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
20540 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
20560 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)....
20580 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
205a0 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
205c0 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)))).......
205e0 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
20600 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
20620 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)...............(
20640 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).........
20660 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
20680 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)..........
206a0 20 20 20 20 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
206c0 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
206e0 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
20700 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-
20720 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)...
20740 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.
20760 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-
20780 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....."
207a0 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".....
207c0 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
207e0 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
20800 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
20820 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
20840 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
20860 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
20880 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
208a0 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
208c0 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
208e0 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
20900 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.
20920 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)
20940 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.....
20960 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
20980 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
209a0 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
209c0 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
209e0 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
20a00 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"
20a20 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
20a40 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-
20a60 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.............
20a80 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-
20aa0 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).................
20ac0 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
20ae0 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.......................
20b00 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)))
20b20 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
20b40 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
20b60 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)
20b80 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
20ba0 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.
20bc0 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
20be0 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
20c00 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......
20c20 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
20c40 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...................
20c60 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.....
20c80 20 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
20ca0 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.............................
20cc0 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)
20ce0 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)
20d00 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 ................................
20d20 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".................
20d40 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
20d60 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).....................
20d80 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
20da0 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 ................................
20dc0 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
20de0 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........................
20e00 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
20e20 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).....................
20e40 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
20e60 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)))))....................
20e80 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
20ea0 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..............................
20ec0 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..
20ee0 20 20 20 20 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-
20f00 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............
20f20 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
20f40 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.................
20f60 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
20f80 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.........(
20fa0 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-
20fc0 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
20fe0 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
21000 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
21020 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...
21040 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
21060 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-
21080 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.(
210a0 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
210c0 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
210e0 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
21100 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
21120 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'
21140 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
21160 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."...
21180 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
211a0 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
211c0 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-
211e0 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
21200 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)))..;;
21220 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
21240 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
21260 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
21280 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
212a0 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.
212c0 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,
212e0 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
21300 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
21320 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
21340 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
21360 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
21380 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
213a0 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
213c0 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
213e0 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-
21400 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
21420 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)..........
21440 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
21460 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
21480 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
214a0 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
214c0 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).......(/
214e0 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......
21500 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
21520 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
21540 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
21560 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
21580 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
215a0 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
215c0 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
215e0 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
21600 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
21620 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-
21640 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.....
21660 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
21680 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
216a0 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-
216c0 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
216e0 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
21700 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
21720 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)..
21740 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
21760 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
21780 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'.;
217a0 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
217c0 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.
217e0 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
21800 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.`
21820 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
21840 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
21860 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
21880 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
218a0 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..........
218c0 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-
218e0 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
21900 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-
21920 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
21940 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
21960 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
21980 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
219a0 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
219c0 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..
219e0 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.....
21a00 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".....
21a20 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.
21a40 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
21a60 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
21a80 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
21aa0 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
21ac0 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
21ae0 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
21b00 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
21b20 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
21b40 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.&&.
21b60 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
21b80 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
21ba0 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
21bc0 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
21be0 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
21c00 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.
21c20 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
21c40 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.
21c60 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
21c80 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
21ca0 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
21cc0 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
21ce0 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
21d00 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
21d20 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
21d40 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:.
21d60 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......
21d80 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
21da0 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
21dc0 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
21de0 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............
21e00 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)............
21e20 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."
21e40 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)..........
21e60 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.
21e80 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)))............
21ea0 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
21ec0 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)...........................(
21ee0 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)..
21f00 20 20 20 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
21f20 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
21f40 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
21f60 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
21f80 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)..;
21fa0 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
21fc0 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
21fe0 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.").
22000 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
22020 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
22040 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).
22060 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
22080 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."
220a0 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-
220c0 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
220e0 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
22100 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
22120 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
22140 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
22160 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).......
22180 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
221a0 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)
221c0 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
221e0 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
22200 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)...
22220 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
22240 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.
22260 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)).
22280 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))..
222a0 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.
222c0 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.....(
222e0 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
22300 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
22320 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)...................
22340 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).
22360 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)).....
22380 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
223a0 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
223c0 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
223e0 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
22400 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-
22420 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
22440 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
22460 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
22480 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))
224a0 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
224c0 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
224e0 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)).................
22500 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
22520 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........
22540 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
22560 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).............
22580 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
225a0 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))
225c0 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))......
225e0 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-
22600 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)
22620 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
22640 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
22660 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)))................
22680 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
226a0 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))
226c0 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
226e0 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)).
22700 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
22720 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.
22740 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.(
22760 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))).....
22780 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
227a0 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
227c0 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
227e0 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
22800 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'
22820 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...
22840 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
22860 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
22880 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
228a0 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-
228c0 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
228e0 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
22900 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
22920 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
22940 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.
22960 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.
22980 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
229a0 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
229c0 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
229e0 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.`
22a00 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
22a20 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."...(
22a40 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)..
22a60 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
22a80 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
22aa0 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.""
22ac0 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.(
22ae0 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)
22b00 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--
22b20 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
22b40 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
22b60 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
22b80 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
22ba0 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
22bc0 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
22be0 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
22c00 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
22c20 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.....................
22c40 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..........
22c60 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
22c80 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
22ca0 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).........
22cc0 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
22ce0 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)..................
22d00 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-
22d20 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).............
22d40 20 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
22d60 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))))..................
22d80 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
22da0 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).................
22dc0 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).......
22de0 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
22e00 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
22e20 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
22e40 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
22e60 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
22e80 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-
22ea0 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)
22ec0 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
22ee0 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
22f00 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)......................
22f20 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........
22f40 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
22f60 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..............................
22f80 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)
22fa0 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)))....................
22fc0 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))))))
22fe0 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
23000 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
23020 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)..............
23040 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
23060 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
23080 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
230a0 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
230c0 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
230e0 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
23100 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
23120 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'.".
23140 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):.".........
23160 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-
23180 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
231a0 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
231c0 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-
231e0 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
23200 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
23220 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
23240 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
23260 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
23280 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
232a0 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
232c0 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-
232e0 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
23300 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
23320 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.
23340 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"
23360 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
23380 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
233a0 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-
233c0 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-
233e0 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
23400 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
23420 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
23440 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.(
23460 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-
23480 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-
234a0 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
234c0 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
234e0 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...
23500 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
23520 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.
23540 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
23560 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).............................
23580 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)))).........
235a0 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
235c0 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)...............
235e0 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)............
23600 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
23620 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
23640 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).........(
23660 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
23680 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
236a0 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
236c0 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........
236e0 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
23700 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
23720 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.............................
23740 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)
23760 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
23780 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.....
237a0 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
237c0 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
237e0 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
23800 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
23820 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).............
23840 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
23860 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)..................
23880 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.
238a0 20 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
238c0 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)........................(
238e0 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))))).......(
23900 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
23920 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._
23940 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)...................
23960 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....................
23980 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-
239a0 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)))..........
239c0 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
239e0 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
23a00 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..............
23a20 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)))).
23a40 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
23a60 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
23a80 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
23aa0 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)
23ac0 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.(
23ae0 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").
23b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
23b20 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.................
23b40 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
23b60 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
23b80 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
23ba0 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
23bc0 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
23be0 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
23c00 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
23c20 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
23c40 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
23c60 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
23c80 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.".
23ca0 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
23cc0 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
23ce0 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
23d00 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'.
23d20 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)..(
23d40 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
23d60 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
23d80 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
23da0 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
23dc0 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
23de0 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
23e00 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
23e20 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
23e40 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
23e60 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
23e80 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
23ea0 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
23ec0 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
23ee0 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
23f00 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
23f20 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
23f40 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
23f60 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
23f80 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'
23fa0 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
23fc0 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)...........
23fe0 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
24000 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
24020 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
24040 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
24060 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
24080 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
240a0 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
240c0 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
240e0 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
24100 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
24120 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
24140 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
24160 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.
24180 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
241a0 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
241c0 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
241e0 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
24200 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
24220 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
24240 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
24260 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
24280 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
242a0 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
242c0 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
242e0 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
24300 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
24320 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.....
24340 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.
24360 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))...
24380 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
243a0 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..
243c0 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
243e0 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
24400 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
24420 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
24440 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
24460 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
24480 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
244a0 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:..-.
244c0 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
244e0 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
24500 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
24520 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
24540 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
24560 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
24580 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
245a0 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
245c0 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
245e0 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
24600 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
24620 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
24640 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
24660 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
24680 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.
246a0 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
246c0 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
246e0 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.
24700 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
24720 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
24740 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
24760 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
24780 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
247a0 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'...
247c0 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
247e0 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.
24800 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
24820 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.
24840 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,.
24860 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
24880 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
248a0 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
248c0 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
248e0 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
24900 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'...-.
24920 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
24940 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...
24960 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
24980 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
249a0 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
249c0 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.
249e0 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
24a00 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
24a20 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
24a40 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
24a60 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...`
24a80 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
24aa0 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
24ac0 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'...-.
24ae0 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
24b00 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
24b20 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'.
24b40 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
24b60 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'...-.`:
24b80 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
24ba0 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
24bc0 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.
24be0 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-
24c00 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
24c20 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.().
24c40 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
24c60 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).
24c80 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.
24ca0 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
24cc0 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
24ce0 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)...........(
24d00 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
24d20 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.....................
24d40 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..
24d60 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
24d80 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
24da0 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)).........................(
24dc0 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
24de0 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."
24e00 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
24e20 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
24e40 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
24e60 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...............:
24e80 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))).
24ea0 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.
24ec0 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
24ee0 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
24f00 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-
24f20 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
24f40 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
24f60 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
24f80 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
24fa0 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
24fc0 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
24fe0 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.
25000 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
25020 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
25040 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.............................
25060 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
25080 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...........................
250a0 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
250c0 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.....................
250e0 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
25100 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)).............;
25120 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...........
25140 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)
25160 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
25180 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).
251a0 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-
251c0 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"))...............
251e0 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
25200 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
25220 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
25240 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
25260 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
25280 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.()
252a0 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
252c0 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
252e0 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
25300 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'...
25320 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
25340 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
25360 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
25380 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
253a0 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
253c0 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
253e0 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
25400 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
25420 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
25440 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
25460 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).........(
25480 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)))....
254a0 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
254c0 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.
254e0 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
25500 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)................
25520 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
25540 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))).............
25560 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))).
25580 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
255a0 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.
255c0 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
255e0 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
25600 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
25620 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
25640 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..
25660 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-
25680 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
256a0 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.
256c0 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
256e0 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.().
25700 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
25720 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.
25740 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
25760 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
25780 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)....
257a0 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
257c0 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).................
257e0 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.........
25800 20 20 20 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
25820 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"....
25840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
25860 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)....;.
25880 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............................
258a0 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
258c0 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...................
258e0 20 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
25900 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...........
25920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
25940 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..
25960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
25980 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
259a0 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
259c0 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
259e0 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).................
25a00 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
25a20 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")....
25a40 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.
25a60 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).....................
25a80 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.
25aa0 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")
25ac0 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
25ae0 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).................
25b00 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.
25b20 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").....
25b40 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.(
25b60 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)......................
25b80 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.
25ba0 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")...........
25bc0 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
25be0 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)............................
25c00 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
25c20 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").................
25c40 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)..
25c60 20 20 20 20 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
25c80 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))).
25ca0 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
25cc0 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
25ce0 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
25d00 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
25d20 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"
25d40 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-
25d60 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").
25d80 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
25da0 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
25dc0 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
25de0 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
25e00 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
25e20 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."...(
25e40 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
25e60 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
25e80 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
25ea0 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.
25ec0 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'
25ee0 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)...
25f00 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..........
25f20 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)...............
25f40 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)))......
25f60 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
25f80 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
25fa0 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............
25fc0 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...
25fe0 20 20 20 20 20 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
26000 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)))...
26020 20 20 20 20 20 20 20 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 ...............................(
26040 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..............................
26060 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
26080 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))......................
260a0 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
260c0 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)))))..........
260e0 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)).....
26100 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)
26120 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.
26140 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
26160 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)).".|.")))...
26180 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
261a0 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)))...
261c0 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
261e0 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)))
26200 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
26220 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.....................
26240 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
26260 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)...........
26280 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-
262a0 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)....................'((
262c0 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.
262e0 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").....................
26300 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")))))..
26320 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.....
26340 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).....
26360 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
26380 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)))).....
263a0 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
263c0 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-
263e0 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."^"
26400 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
26420 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)..
26440 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
26460 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)))).....
26480 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
264a0 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
264c0 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
264e0 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
26500 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
26520 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)))).......
26540 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")...
26560 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)............(
26580 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-
265a0 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
265c0 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")))..;;**.`
265e0 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
26600 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
26620 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
26640 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
26660 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-
26680 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").
266a0 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
266c0 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-
266e0 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
26700 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
26720 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
26740 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-
26760 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
26780 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
267a0 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
267c0 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".
267e0 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
26800 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
26820 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
26840 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
26860 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'.")..
26880 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
268a0 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
268c0 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
268e0 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
26900 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
26920 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
26940 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
26960 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.
26980 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
269a0 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
269c0 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
269e0 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
26a00 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
26a20 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
26a40 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.
26a60 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
26a80 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
26aa0 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
26ac0 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
26ae0 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)..........
26b00 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
26b20 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
26b40 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
26b60 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.
26b80 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
26ba0 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
26bc0 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
26be0 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
26c00 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
26c20 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
26c40 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
26c60 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.()..
26c80 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
26ca0 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
26cc0 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
26ce0 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
26d00 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))
26d20 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
26d40 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
26d60 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
26d80 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......................
26da0 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.....
26dc0 20 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.
26de0 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).....................
26e00 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))......
26e20 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 ....................?*))).......
26e40 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
26e60 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..............
26e80 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)))..
26ea0 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
26ec0 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)..
26ee0 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
26f00 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
26f20 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
26f40 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.................
26f60 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))).
26f80 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
26fa0 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
26fc0 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..
26fe0 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
27000 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........
27020 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.
27040 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...
27060 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......
27080 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........
270a0 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...........
270c0 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
270e0 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))..........
27100 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
27120 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............................
27140 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)
27160 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 )...............................
27180 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
271a0 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
271c0 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
271e0 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))))...
27200 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
27220 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
27240 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.
27260 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
27280 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.'
272a0 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
272c0 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
272e0 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:."...............
27300 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
27320 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
27340 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-
27360 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
27380 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
273a0 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.'
273c0 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))).
273e0 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
27400 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")
27420 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
27440 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
27460 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
27480 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
274a0 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.
274c0 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
274e0 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
27500 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)
27520 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
27540 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.
27560 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."
27580 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
275a0 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
275c0 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
275e0 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
27600 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
27620 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.............
27640 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
27660 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-
27680 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.;;**.
276a0 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
276c0 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
276e0 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
27700 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
27720 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
27740 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
27760 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
27780 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
277a0 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--
277c0 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
277e0 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."...
27800 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
27820 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
27840 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
27860 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..
27880 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
278a0 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................
278c0 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)
278e0 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
27900 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
27920 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
27940 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
27960 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.
27980 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)))..(
279a0 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
279c0 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
279e0 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.")..
27a00 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
27a20 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
27a40 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'.".
27a60 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-
27a80 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-
27aa0 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.
27ac0 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.().
27ae0 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."..
27b00 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
27b20 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
27b40 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-
27b60 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-
27b80 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)....
27ba0 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
27bc0 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.
27be0 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.`
27c00 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.
27c20 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
27c40 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
27c60 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
27c80 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
27ca0 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
27cc0 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))..........
27ce0 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.
27d00 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.(
27d20 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)).....
27d40 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
27d60 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
27d80 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
27da0 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)
27dc0 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
27de0 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
27e00 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)...
27e20 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
27e40 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-
27e60 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.
27e80 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
27ea0 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
27ec0 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
27ee0 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
27f00 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
27f20 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
27f40 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
27f60 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
27f80 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....
27fa0 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
27fc0 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....
27fe0 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
28000 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).....
28020 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
28040 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.
28060 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)))))................(
28080 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)))
280a0 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
280c0 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
280e0 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))........
28100 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-
28120 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)).................
28140 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
28160 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..............................
28180 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).(
281a0 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))))...........
281c0 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.
281e0 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)))
28200 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)))))).
28220 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.(
28240 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
28260 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.
28280 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
282a0 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
282c0 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.
282e0 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
28300 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.
28320 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
28340 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
28360 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.`
28380 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-
283a0 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.
283c0 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-
283e0 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.#
28400 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...
28420 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)
28440 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
28460 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
28480 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
284a0 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.........................
284c0 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
284e0 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))......................
28500 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..
28520 20 20 20 20 20 20 20 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 ...............................(
28540 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)..........................
28560 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
28580 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
285a0 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")))..................
285c0 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)))).....
285e0 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-
28600 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.
28620 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
28640 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
28660 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
28680 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
286a0 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<)..;;**
286c0 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
286e0 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
28700 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
28720 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
28740 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.
28760 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
28780 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
287a0 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
287c0 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.
287e0 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
28800 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
28820 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
28840 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.
28860 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
28880 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
288a0 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
288c0 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."
288e0 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
28900 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
28920 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
28940 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
28960 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.........
28980 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-
289a0 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)..................
289c0 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
289e0 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))....................
28a00 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
28a20 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
28a40 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
28a60 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).........
28a80 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
28aa0 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))).....
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 28 6e 6f 74 20 ...........................(not.
28ae0 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)))))............
28b00 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
28b20 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))))...........(
28b40 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
28b60 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.
28b80 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-
28ba0 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.....
28bc0 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.......
28be0 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.
28c00 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
28c20 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
28c40 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
28c60 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
28c80 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
28ca0 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'.....
28cc0 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
28ce0 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
28d00 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)).......
28d20 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
28d40 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
28d60 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
28d80 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
28da0 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
28dc0 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
28de0 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)))..
28e00 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-
28e20 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))...
28e40 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...
28e60 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
28e80 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
28ea0 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)
28ec0 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 ................................
28ee0 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
28f00 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)........................
28f20 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
28f40 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
28f60 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
28f80 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
28fa0 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)
28fc0 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
28fe0 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
29000 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
29020 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
29040 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
29060 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
29080 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
290a0 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.'
290c0 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
290e0 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-
29100 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
29120 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-
29140 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
29160 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
29180 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
291a0 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)......
291c0 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
291e0 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
29200 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
29220 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-
29240 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
29260 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
29280 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).
292a0 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
292c0 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
292e0 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
29300 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
29320 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
29340 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"
29360 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
29380 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
293a0 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
293c0 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
293e0 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
29400 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
29420 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)).
29440 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
29460 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.(
29480 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)........
294a0 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...
294c0 20 20 20 20 20 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
294e0 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............................
29500 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
29520 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"..........................
29540 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
29560 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))))................
29580 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
295a0 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))......................
295c0 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
295e0 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)))))............
29600 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))...
29620 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)).
29640 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).
29660 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
29680 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)))................
296a0 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-
296c0 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)."-"."+").......
296e0 20 20 20 20 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
29700 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))).................
29720 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)).................
29740 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).......
29760 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))..;;;
29780 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
297a0 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
297c0 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
297e0 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.\"+\",.
29800 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.
29820 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
29840 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
29860 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
29880 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
298a0 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
298c0 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
298e0 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
29900 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
29920 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)...
29940 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."
29960 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
29980 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--
299a0 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).............
299c0 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
299e0 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...
29a00 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
29a20 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.
29a40 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
29a60 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
29a80 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
29aa0 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
29ac0 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
29ae0 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
29b00 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
29b20 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
29b40 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
29b60 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
29b80 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
29ba0 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
29bc0 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.
29be0 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
29c00 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
29c20 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.
29c40 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.
29c60 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
29c80 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
29ca0 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)..
29cc0 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
29ce0 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
29d00 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
29d20 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.
29d40 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
29d60 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)).........
29d80 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.(=
29da0 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).?+))........
29dc0 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).
29de0 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
29e00 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.
29e20 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)))))..
29e40 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
29e60 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
29e80 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")..
29ea0 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
29ec0 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"))
29ee0 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
29f00 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
29f20 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
29f40 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.
29f60 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
29f80 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
29fa0 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
29fc0 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
29fe0 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
2a000 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
2a020 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))..
2a040 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.[
2a060 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
2a080 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
2a0a0 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)...
2a0c0 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
2a0e0 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
2a100 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
2a120 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
2a140 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
2a160 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
2a180 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
2a1a0 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
2a1c0 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
2a1e0 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
2a200 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).....................
2a220 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
2a240 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
2a260 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.(
2a280 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
2a2a0 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.
2a2c0 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-
2a2e0 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.
2a300 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)...........
2a320 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
2a340 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
2a360 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
2a380 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
2a3a0 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.
2a3c0 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
2a3e0 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
2a400 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
2a420 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
2a440 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
2a460 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
2a480 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'.
2a4a0 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
2a4c0 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
2a4e0 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
2a500 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
2a520 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
2a540 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
2a560 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
2a580 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
2a5a0 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)).
2a5c0 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)).
2a5e0 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.
2a600 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
2a620 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.........
2a640 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).(
2a660 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)).............
2a680 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))..........
2a6a0 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..
2a6c0 20 20 20 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
2a6e0 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)))..
2a700 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
2a720 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..........................
2a740 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
2a760 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.............................
2a780 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
2a7a0 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.(
2a7c0 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
2a7e0 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)..
2a800 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)........
2a820 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."[...].
2a840 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.(
2a860 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
2a880 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
2a8a0 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)).".[...]")))
2a8c0 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
2a8e0 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)))..
2a900 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
2a920 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.
2a940 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
2a960 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......
2a980 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")..
2a9a0 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"."\
2a9c0 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
2a9e0 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
2aa00 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
2aa20 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
2aa40 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
2aa60 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
2aa80 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
2aaa0 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.'
2aac0 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
2aae0 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
2ab00 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)......."\
2ab20 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
2ab40 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))....
2ab60 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
2ab80 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-
2aba0 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
2abc0 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
2abe0 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
2ac00 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
2ac20 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.:
2ac40 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
2ac60 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
2ac80 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)...
2aca0 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
2acc0 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
2ace0 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
2ad00 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))...
2ad20 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
2ad40 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
2ad60 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
2ad80 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
2ada0 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
2adc0 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.
2ade0 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."..
2ae00 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[
2ae20 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.
2ae40 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
2ae60 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
2ae80 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
2aea0 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
2aec0 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
2aee0 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.
2af00 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
2af20 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
2af40 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
2af60 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.'(
2af80 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
2afa0 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)......
2afc0 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)...
2afe0 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"))
2b000 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
2b020 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
2b040 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
2b060 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
2b080 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
2b0a0 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.
2b0c0 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
2b0e0 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-
2b100 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
2b120 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'.
2b140 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
2b160 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
2b180 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
2b1a0 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
2b1c0 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
2b1e0 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
2b200 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
2b220 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
2b240 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
2b260 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
2b280 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)).....
2b2a0 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
2b2c0 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
2b2e0 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
2b300 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
2b320 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.
2b340 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
2b360 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
2b380 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
2b3a0 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
2b3c0 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
2b3e0 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.
2b400 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
2b420 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
2b440 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
2b460 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
2b480 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
2b4a0 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'
2b4c0 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
2b4e0 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
2b500 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)....
2b520 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
2b540 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.
2b560 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)))...(
2b580 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
2b5a0 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
2b5c0 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.'
2b5e0 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
2b600 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
2b620 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
2b640 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
2b660 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
2b680 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
2b6a0 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
2b6c0 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'...
2b6e0 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
2b700 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
2b720 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))).....(
2b740 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
2b760 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......
2b780 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.(
2b7a0 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.
2b7c0 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
2b7e0 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-
2b800 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
2b820 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
2b840 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
2b860 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
2b880 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))
2b8a0 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
2b8c0 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)...................
2b8e0 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
2b900 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
2b920 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
2b940 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
2b960 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.
2b980 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)..
2b9a0 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-.
2b9c0 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)))............
2b9e0 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
2ba00 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
2ba20 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
2ba40 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.
2ba60 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
2ba80 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
2baa0 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.(
2bac0 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
2bae0 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
2bb00 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
2bb20 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).....
2bb40 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
2bb60 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))).....;;
2bb80 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
2bba0 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'.
2bbc0 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)..
2bbe0 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
2bc00 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
2bc20 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
2bc40 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.
2bc60 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
2bc80 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
2bca0 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
2bcc0 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
2bce0 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
2bd00 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
2bd20 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
2bd40 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
2bd60 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
2bd80 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
2bda0 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
2bdc0 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
2bde0 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
2be00 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
2be20 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.
2be40 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
2be60 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
2be80 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
2bea0 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
2bec0 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.
2bee0 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
2bf00 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
2bf20 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
2bf40 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
2bf60 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
2bf80 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
2bfa0 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
2bfc0 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.
2bfe0 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.
2c000 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
2c020 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'.
2c040 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
2c060 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'
2c080 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...
2c0a0 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
2c0c0 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."...;
2c0e0 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
2c100 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.
2c120 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
2c140 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
2c160 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
2c180 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"
2c1a0 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
2c1c0 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).......
2c1e0 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
2c200 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)................
2c220 20 20 20 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
2c240 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))..........
2c260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2c280 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
2c2a0 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).............................
2c2c0 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)).............
2c2e0 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))).....
2c300 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
2c320 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
2c340 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))).....
2c360 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).
2c380 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
2c3a0 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............
2c3c0 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.............
2c3e0 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..........
2c400 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-
2c420 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
2c440 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
2c460 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
2c480 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
2c4a0 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.#
2c4c0 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
2c4e0 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-
2c500 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
2c520 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
2c540 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
2c560 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
2c580 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
2c5a0 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
2c5c0 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
2c5e0 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
2c600 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
2c620 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).....("
2c640 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)...
2c660 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]\
2c680 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).....(
2c6a0 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
2c6c0 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"..
2c6e0 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
2c700 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))..."
2c720 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
2c740 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
2c760 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
2c780 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
2c7a0 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
2c7c0 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
2c7e0 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
2c800 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.
2c820 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
2c840 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
2c860 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
2c880 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
2c8a0 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'
2c8c0 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
2c8e0 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
2c900 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
2c920 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))....
2c940 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
2c960 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
2c980 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
2c9a0 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))..........
2c9c0 20 20 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
2c9e0 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
2ca00 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
2ca20 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
2ca40 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"...........
2ca60 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))
2ca80 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
2caa0 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.
2cac0 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
2cae0 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:."....
2cb00 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.............
2cb20 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
2cb40 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
2cb60 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)))................
2cb80 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
2cba0 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)))...
2cbc0 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=.
2cbe0 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
2cc00 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
2cc20 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.
2cc40 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
2cc60 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.
2cc80 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
2cca0 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
2ccc0 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....
2cce0 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
2cd00 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
2cd20 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<)
2cd40 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'.
2cd60 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
2cd80 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
2cda0 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
2cdc0 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
2cde0 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.
2ce00 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.()
2ce20 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
2ce40 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).
2ce60 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
2ce80 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
2cea0 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.
2cec0 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
2cee0 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
2cf00 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"...........
2cf20 20 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
2cf40 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).......
2cf60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
2cf80 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
2cfa0 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).....................
2cfc0 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)
2cfe0 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
2d000 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
2d020 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
2d040 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
2d060 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
2d080 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
2d0a0 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.
2d0c0 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
2d0e0 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
2d100 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
2d120 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).
2d140 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
2d160 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
2d180 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
2d1a0 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
2d1c0 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
2d1e0 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))))..;;
2d200 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
2d220 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
2d240 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
2d260 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
2d280 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
2d2a0 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-
2d2c0 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.
2d2e0 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
2d300 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
2d320 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
2d340 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 ................................
2d360 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)...........
2d380 20 20 20 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
2d3a0 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))..........(
2d3c0 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
2d3e0 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
2d400 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)).....
2d420 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
2d440 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).............
2d460 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
2d480 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))..........
2d4a0 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
2d4c0 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)................
2d4e0 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
2d500 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)).........
2d520 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
2d540 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))................
2d560 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.......................
2d580 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
2d5a0 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
2d5c0 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-
2d5e0 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)...
2d600 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).
2d620 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
2d640 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....(
2d660 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
2d680 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-
2d6a0 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.......
2d6c0 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
2d6e0 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
2d700 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
2d720 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
2d740 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..
2d760 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
2d780 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.
2d7a0 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...................
2d7c0 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...................
2d7e0 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......................
2d800 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
2d820 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).......................
2d840 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
2d860 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.
2d880 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.(
2d8a0 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)).........
2d8c0 20 20 20 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
2d8e0 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))............
2d900 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))
2d920 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
2d940 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-
2d960 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
2d980 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-
2d9a0 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
2d9c0 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.(
2d9e0 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
2da00 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.(
2da20 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.
2da40 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
2da60 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
2da80 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)................`(("
2daa0 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)
2dac0 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.
2dae0 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.
2db00 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
2db20 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'.")..;;;
2db40 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
2db60 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
2db80 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
2dba0 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:.".
2dbc0 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).....
2dbe0 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
2dc00 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
2dc20 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
2dc40 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.............
2dc60 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.......
2dc80 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
2dca0 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
2dcc0 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
2dce0 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
2dd00 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
2dd20 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
2dd40 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
2dd60 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--
2dd80 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
2dda0 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))))..
2ddc0 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
2dde0 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
2de00 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
2de20 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
2de40 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)
2de60 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-
2de80 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
2dea0 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"
2dec0 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
2dee0 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
2df00 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'..
2df20 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
2df40 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
2df60 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
2df80 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
2dfa0 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
2dfc0 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
2dfe0 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
2e000 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
2e020 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....
2e040 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".
2e060 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
2e080 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".
2e0a0 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
2e0c0 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
2e0e0 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))..;
2e100 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
2e120 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
2e140 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
2e160 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
2e180 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
2e1a0 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
2e1c0 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)..
2e1e0 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
2e200 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
2e220 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)...........
2e240 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
2e260 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
2e280 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)).....
2e2a0 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
2e2c0 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.'
2e2e0 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)........
2e300 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
2e320 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-
2e340 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
2e360 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
2e380 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
2e3a0 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))...........((
2e3c0 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)
2e3e0 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
2e400 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)............
2e420 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
2e440 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
2e460 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
2e480 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
2e4a0 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
2e4c0 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.(
2e4e0 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.
2e500 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
2e520 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:.".(
2e540 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).............
2e560 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
2e580 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)))...............
2e5a0 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..............
2e5c0 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))))
2e5e0 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
2e600 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
2e620 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
2e640 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
2e660 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
2e680 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."
2e6a0 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
2e6c0 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)...
2e6e0 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-
2e700 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
2e720 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)..................
2e740 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
2e760 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
2e780 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
2e7a0 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
2e7c0 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)))..;;
2e7e0 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
2e800 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
2e820 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.
2e840 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
2e860 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
2e880 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
2e8a0 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
2e8c0 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-
2e8e0 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...
2e900 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
2e920 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
2e940 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
2e960 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
2e980 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
2e9a0 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
2e9c0 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.
2e9e0 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........
2ea00 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
2ea20 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
2ea40 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-
2ea60 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
2ea80 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))..
2eaa0 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
2eac0 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......
2eae0 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'.
2eb00 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,
2eb20 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
2eb40 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
2eb60 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
2eb80 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
2eba0 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
2ebc0 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
2ebe0 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.
2ec00 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
2ec20 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)..
2ec40 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
2ec60 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-
2ec80 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)))......
2eca0 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.
2ecc0 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.
2ece0 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)........
2ed00 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.(
2ed20 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)................
2ed40 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
2ed60 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
2ed80 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
2eda0 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.
2edc0 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
2ede0 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
2ee00 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..........
2ee20 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.......
2ee40 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
2ee60 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...............:
2ee80 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
2eea0 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
2eec0 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).
2eee0 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
2ef00 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
2ef20 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
2ef40 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
2ef60 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....
2ef80 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.
2efa0 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
2efc0 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
2efe0 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
2f000 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
2f020 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
2f040 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
2f060 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
2f080 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-
2f0a0 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
2f0c0 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).
2f0e0 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
2f100 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
2f120 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
2f140 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
2f160 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)..;
2f180 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
2f1a0 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
2f1c0 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
2f1e0 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
2f200 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........
2f220 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
2f240 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
2f260 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
2f280 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
2f2a0 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
2f2c0 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
2f2e0 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
2f300 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.(
2f320 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
2f340 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
2f360 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)
2f380 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
2f3a0 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
2f3c0 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)))
2f3e0 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
2f400 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
2f420 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
2f440 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
2f460 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).
2f480 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
2f4a0 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.............
2f4c0 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
2f4e0 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:.
2f500 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-
2f520 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
2f540 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
2f560 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
2f580 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'
2f5a0 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
2f5c0 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
2f5e0 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
2f600 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
2f620 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
2f640 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
2f660 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
2f680 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)
2f6a0 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......
2f6c0 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
2f6e0 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).................
2f700 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
2f720 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
2f740 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
2f760 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
2f780 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.....
2f7a0 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).......
2f7c0 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.............
2f7e0 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)..........
2f800 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
2f820 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.
2f840 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
2f860 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.
2f880 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
2f8a0 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))))).
2f8c0 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))).....(
2f8e0 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....
2f900 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).(
2f920 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))))...
2f940 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))).;;**.`
2f960 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
2f980 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
2f9a0 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
2f9c0 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
2f9e0 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.
2fa00 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
2fa20 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
2fa40 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
2fa60 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
2fa80 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
2faa0 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
2fac0 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
2fae0 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").(
2fb00 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
2fb20 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
2fb40 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.
2fb60 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
2fb80 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
2fba0 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
2fbc0 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
2fbe0 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
2fc00 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
2fc20 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.
2fc40 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
2fc60 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))
2fc80 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
2fca0 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))).....
2fcc0 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)
2fce0 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....
2fd00 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.
2fd20 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 ").")..............."").........
2fd40 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
2fd60 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
2fd80 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
2fda0 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
2fdc0 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.
2fde0 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
2fe00 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
2fe20 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)...
2fe40 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
2fe60 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
2fe80 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
2fea0 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)).........................
2fec0 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)))...
2fee0 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.....
2ff00 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.
2ff20 20 20 20 20 20 20 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
2ff40 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))...
2ff60 20 20 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))
2ff80 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
2ffa0 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))))
2ffc0 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.(
2ffe0 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
30000 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.
30020 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-
30040 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)
30060 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
30080 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
300a0 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
300c0 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.
300e0 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-
30100 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
30120 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
30140 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
30160 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
30180 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.()
301a0 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
301c0 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
301e0 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........
30200 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).............
30220 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
30240 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)....
30260 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))..............
30280 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))))....
302a0 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.........
302c0 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
302e0 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.'
30300 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........
30320 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
30340 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
30360 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
30380 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)
303a0 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)......
303c0 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
303e0 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
30400 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
30420 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
30440 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
30460 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.
30480 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
304a0 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
304c0 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
304e0 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
30500 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,.
30520 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
30540 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
30560 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.
30580 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
305a0 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
305c0 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'.
305e0 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.
30600 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
30620 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
30640 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,
30660 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
30680 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
306a0 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.
306c0 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
306e0 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
30700 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
30720 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
30740 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
30760 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,.
30780 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.
307a0 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
307c0 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
307e0 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
30800 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...
30820 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
30840 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'
30860 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
30880 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
308a0 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
308c0 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
308e0 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
30900 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
30920 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
30940 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
30960 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
30980 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
309a0 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
309c0 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
309e0 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
30a00 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)........
30a20 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
30a40 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
30a60 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
30a80 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
30aa0 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.
30ac0 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
30ae0 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
30b00 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
30b20 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
30b40 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
30b60 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.
30b80 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.
30ba0 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
30bc0 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
30be0 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.'
30c00 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
30c20 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.
30c40 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
30c60 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
30c80 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
30ca0 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
30cc0 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
30ce0 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
30d00 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
30d20 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
30d40 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
30d60 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
30d80 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."\\
30da0 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]*\\)]")...
30dc0 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-
30de0 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
30e00 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
30e20 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...
30e40 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
30e60 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
30e80 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
30ea0 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
30ec0 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.()...
30ee0 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
30f00 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-
30f20 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
30f40 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.
30f60 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
30f80 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
30fa0 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
30fc0 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
30fe0 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
31000 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).....
31020 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
31040 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)))....
31060 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.
31080 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
310a0 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
310c0 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
310e0 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
31100 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."...;;
31120 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
31140 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
31160 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-
31180 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-
311a0 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
311c0 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
311e0 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
31200 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
31220 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
31240 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
31260 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
31280 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
312a0 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)..............
312c0 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.....
312e0 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
31300 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
31320 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
31340 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)
31360 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.
31380 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.
313a0 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
313c0 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
313e0 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."*")..............(
31400 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."\\[")......
31420 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)).......
31440 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
31460 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...........
31480 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
314a0 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-
314c0 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)))
314e0 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
31500 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
31520 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
31540 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
31560 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-
31580 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.
315a0 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.
315c0 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
315e0 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.";;\\(
31600 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
31620 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
31640 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
31660 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
31680 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
316a0 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
316c0 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
316e0 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
31700 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
31720 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
31740 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),.
31760 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
31780 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...
317a0 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.`
317c0 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
317e0 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
31800 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*.(
31820 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."^\\(?:".....
31840 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
31860 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)
31880 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 ................................
318a0 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)................
318c0 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
318e0 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
31900 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).........
31920 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
31940 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
31960 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
31980 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).............
319a0 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
319c0 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.(
319e0 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
31a00 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
31a20 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))..
31a40 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
31a60 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)
31a80 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
31aa0 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))..
31ac0 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
31ae0 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)........
31b00 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
31b20 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-
31b40 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
31b60 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)....................
31b80 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
31ba0 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).
31bc0 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))...
31be0 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.
31c00 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......
31c20 20 20 20 20 20 20 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
31c40 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))
31c60 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
31c80 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.......(
31ca0 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.
31cc0 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))
31ce0 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
31d00 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-
31d20 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.(
31d40 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.............
31d60 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-
31d80 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))......................
31da0 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
31dc0 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
31de0 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)).......
31e00 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
31e20 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
31e40 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)...........
31e60 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
31e80 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
31ea0 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
31ec0 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
31ee0 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
31f00 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...
31f20 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
31f40 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)...................
31f60 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)....................
31f80 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))..........
31fa0 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
31fc0 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.""
31fe0 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
32000 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))...............
32020 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)............
32040 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
32060 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
32080 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
320a0 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.
320c0 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...........
320e0 20 20 20 20 20 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
32100 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)....................
32120 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
32140 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........
32160 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
32180 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)....................
321a0 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.
321c0 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)))...........
321e0 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
32200 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....................
32220 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.
32240 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
32260 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)).....
32280 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.""
322a0 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
322c0 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.
322e0 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))))..
32300 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
32320 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
32340 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-
32360 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
32380 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.
323a0 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
323c0 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
323e0 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
32400 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
32420 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."..
32440 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
32460 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)
32480 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).....
324a0 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
324c0 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).............................
324e0 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
32500 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)))...............
32520 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-
32540 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.'
32560 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)))).....
32580 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
325a0 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
325c0 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
325e0 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
32600 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)))..;
32620 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
32640 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
32660 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
32680 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.(
326a0 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-
326c0 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
326e0 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
32700 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
32720 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
32740 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)...........................#'
32760 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).........
32780 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
327a0 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)................
327c0 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
327e0 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.(
32800 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
32820 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
32840 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)...
32860 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
32880 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
328a0 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
328c0 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
328e0 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'
32900 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
32920 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
32940 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.
32960 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.
32980 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
329a0 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
329c0 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
329e0 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
32a00 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
32a20 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).........
32a40 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
32a60 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
32a80 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........
32aa0 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)).
32ac0 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
32ae0 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
32b00 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")
32b20 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
32b40 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
32b60 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
32b80 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
32ba0 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
32bc0 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
32be0 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.
32c00 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
32c20 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
32c40 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.(
32c60 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
32c80 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...
32ca0 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
32cc0 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
32ce0 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
32d00 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
32d20 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..........
32d40 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
32d60 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)))
32d80 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
32da0 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)))).
32dc0 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
32de0 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
32e00 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
32e20 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
32e40 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.
32e60 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)
32e80 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-
32ea0 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).
32ec0 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)).....
32ee0 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)
32f00 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
32f20 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))).............;;.
32f40 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
32f60 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.........
32f80 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
32fa0 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....
32fc0 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
32fe0 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
33000 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...
33020 20 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
33040 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)..............
33060 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
33080 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
330a0 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)))
330c0 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)))))
330e0 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
33100 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
33120 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
33140 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
33160 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
33180 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
331a0 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
331c0 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-
331e0 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
33200 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
33220 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
33240 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
33260 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
33280 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..'((
332a0 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
332c0 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")...
332e0 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
33300 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")))..;;**
33320 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
33340 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
33360 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
33380 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-
333a0 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
333c0 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
333e0 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
33400 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.(
33420 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
33440 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
33460 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
33480 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
334a0 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
334c0 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
334e0 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
33500 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-
33520 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).............:
33540 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
33560 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
33580 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.
335a0 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).
335c0 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
335e0 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
33600 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
33620 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
33640 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.
33660 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
33680 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
336a0 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
336c0 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............................
336e0 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)...
33700 20 20 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
33720 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)...........
33740 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
33760 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)
33780 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'.
337a0 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
337c0 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
337e0 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
33800 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
33820 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-
33840 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
33860 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,
33880 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
338a0 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*.
338c0 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
338e0 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
33900 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.
33920 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
33940 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.
33960 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
33980 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)))................
339a0 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.
339c0 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
339e0 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.
33a00 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)).........;;
33a20 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
33a40 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..........;
33a60 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
33a80 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
33aa0 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
33ac0 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
33ae0 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
33b00 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
33b20 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
33b40 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
33b60 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
33b80 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
33ba0 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
33bc0 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
33be0 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.`
33c00 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
33c20 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
33c40 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
33c60 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.(&
33c80 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.
33ca0 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
33cc0 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."...
33ce0 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
33d00 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
33d20 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
33d40 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--
33d60 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
33d80 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
33da0 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
33dc0 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-
33de0 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......................
33e00 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
33e20 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)........
33e40 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
33e60 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))..............
33e80 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
33ea0 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).
33ec0 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
33ee0 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)))).....
33f00 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
33f20 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
33f40 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
33f60 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-
33f80 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
33fa0 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
33fc0 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-
33fe0 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
34000 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
34020 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
34040 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")))..;;**
34060 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
34080 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
340a0 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.
340c0 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-
340e0 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)))..(
34100 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
34120 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
34140 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
34160 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.
34180 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
341a0 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
341c0 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
341e0 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
34200 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
34220 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
34240 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
34260 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
34280 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
342a0 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
342c0 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
342e0 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
34300 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
34320 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
34340 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
34360 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
34380 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
343a0 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.
343c0 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'."...(
343e0 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
34400 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)).......
34420 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.
34440 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
34460 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)))........
34480 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
344a0 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.....................
344c0 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
344e0 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)........
34500 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
34520 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))
34540 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
34560 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).....
34580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
345a0 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))....
345c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
345e0 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.'
34600 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).....................
34620 20 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 .........................",")...
34640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
34660 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-
34680 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
346a0 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
346c0 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))......
346e0 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
34700 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
34720 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
34740 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
34760 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)......
34780 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
347a0 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))))..
347c0 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
347e0 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-
34800 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
34820 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'.".
34840 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*.(
34860 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))....
34880 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)
348a0 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
348c0 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
348e0 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
34900 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
34920 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...............................
34940 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
34960 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)).................
34980 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
349a0 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)))
349c0 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
349e0 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).....
34a00 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
34a20 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))...............(
34a40 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.
34a60 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
34a80 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)))
34aa0 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.
34ac0 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)................
34ae0 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
34b00 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
34b20 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
34b40 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
34b60 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
34b80 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
34ba0 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
34bc0 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.
34be0 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
34c00 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
34c20 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
34c40 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*.((
34c60 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....
34c80 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.(
34ca0 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)...........................
34cc0 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))......
34ce0 20 20 20 20 20 20 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
34d00 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)).................
34d20 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
34d40 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)))....
34d60 20 20 20 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
34d80 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............................
34da0 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.'
34dc0 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))))...................
34de0 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)
34e00 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
34e20 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.%
34e40 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
34e60 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
34e80 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
34ea0 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.............
34ec0 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..............
34ee0 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-
34f00 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.#'
34f20 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
34f40 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
34f60 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
34f80 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-
34fa0 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
34fc0 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
34fe0 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
35000 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")..
35020 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
35040 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"))
35060 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
35080 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
350a0 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
350c0 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
350e0 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'."..
35100 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*.((
35120 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
35140 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
35160 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))....
35180 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
351a0 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."
351c0 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
351e0 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.....
35200 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")).
35220 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
35240 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
35260 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
35280 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
352a0 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
352c0 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))......
352e0 20 20 20 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.
35300 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)))).........
35320 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
35340 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
35360 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
35380 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'.")..;;;#
353a0 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
353c0 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
353e0 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
35400 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
35420 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
35440 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)..
35460 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-
35480 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--
354a0 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.
354c0 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"................
354e0 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
35500 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
35520 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.........
35540 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..........
35560 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
35580 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.
355a0 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.'
355c0 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
355e0 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
35600 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.
35620 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
35640 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
35660 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
35680 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
356a0 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
356c0 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.
356e0 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
35700 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
35720 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
35740 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.(
35760 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
35780 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
357a0 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
357c0 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
357e0 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
35800 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......
35820 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
35840 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
35860 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
35880 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))..
358a0 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-
358c0 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
358e0 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
35900 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...............
35920 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...............:
35940 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
35960 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
35980 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
359a0 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--
359c0 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)..."
359e0 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
35a00 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
35a20 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
35a40 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
35a60 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"................
35a80 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-
35aa0 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'.
35ac0 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
35ae0 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)))..
35b00 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").#
35b20 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)).
35b40 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.()..
35b60 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
35b80 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).
35ba0 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
35bc0 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
35be0 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...
35c00 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)
35c20 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
35c40 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-
35c60 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
35c80 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
35ca0 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)
35cc0 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
35ce0 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
35d00 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
35d20 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
35d40 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
35d60 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.
35d80 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
35da0 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
35dc0 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
35de0 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
35e00 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
35e20 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
35e40 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
35e60 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
35e80 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
35ea0 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
35ec0 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
35ee0 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...
35f00 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
35f20 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
35f40 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
35f60 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))....
35f80 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
35fa0 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
35fc0 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........
35fe0 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.
36000 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.....
36020 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).....
36040 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.
36060 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
36080 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
360a0 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
360c0 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
360e0 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".
36100 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
36120 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
36140 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
36160 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
36180 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
361a0 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
361c0 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
361e0 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.(
36200 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
36220 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
36240 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
36260 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.'
36280 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
362a0 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.()..."
362c0 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
362e0 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
36300 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
36320 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
36340 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
36360 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
36380 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
363a0 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.......
363c0 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).",".(
363e0 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))
36400 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-
36420 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
36440 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).
36460 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).........
36480 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
364a0 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'..
364c0 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:
364e0 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
36500 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)
36520 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
36540 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
36560 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
36580 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
365a0 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
365c0 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
365e0 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.(
36600 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
36620 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)).....
36640 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-
36660 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
36680 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
366a0 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
366c0 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
366e0 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
36700 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
36720 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
36740 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
36760 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
36780 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
367a0 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
367c0 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
367e0 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.((
36800 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.(
36820 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
36840 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
36860 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
36880 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
368a0 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
368c0 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))).........
368e0 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)
36900 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
36920 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
36940 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-
36960 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
36980 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-
369a0 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
369c0 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
369e0 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
36a00 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
36a20 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.
36a40 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
36a60 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
36a80 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
36aa0 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
36ac0 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.
36ae0 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
36b00 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.
36b20 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.
36b40 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'..
36b60 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
36b80 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
36ba0 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
36bc0 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-
36be0 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
36c00 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-
36c20 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
36c40 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
36c60 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
36c80 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
36ca0 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)..
36cc0 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
36ce0 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
36d00 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
36d20 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.
36d40 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
36d60 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
36d80 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
36da0 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
36dc0 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
36de0 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
36e00 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
36e20 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-
36e40 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
36e60 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.
36e80 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
36ea0 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
36ec0 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
36ee0 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-
36f00 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
36f20 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
36f40 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
36f60 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
36f80 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
36fa0 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
36fc0 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
36fe0 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))).....
37000 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...
37020 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
37040 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).....................
37060 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...............
37080 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)))....
370a0 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
370c0 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
370e0 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
37100 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)).......;;.
37120 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
37140 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
37160 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
37180 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
371a0 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
371c0 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
371e0 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
37200 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
37220 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
37240 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
37260 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
37280 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.\
372a0 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
372c0 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
372e0 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
37300 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
37320 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
37340 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
37360 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
37380 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
373a0 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
373c0 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
373e0 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
37400 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
37420 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
37440 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
37460 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
37480 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.
374a0 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
374c0 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)................
374e0 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
37500 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)...
37520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37540 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)
37560 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 ................................
37580 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
375a0 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
375c0 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:.".............
375e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37600 20 20 20 20 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
37620 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.......
37640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37680 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 .."):.")........................
376a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
376c0 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..........
376e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37700 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
37720 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)...........
37740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
37760 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))..
37780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
377a0 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))...........
377c0 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)
377e0 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
37800 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
37820 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
37840 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
37860 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.
37880 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
378a0 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
378c0 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.
378e0 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
37900 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-
37920 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...
37940 20 20 20 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
37960 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)
37980 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)
379a0 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
379c0 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.
379e0 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
37a00 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
37a20 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))).....
37a40 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
37a60 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
37a80 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
37aa0 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
37ac0 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
37ae0 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:.".........
37b00 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
37b20 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)).............
37b40 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
37b60 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
37b80 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))))....
37ba0 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
37bc0 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
37be0 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.
37c00 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
37c20 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
37c40 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
37c60 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)...................."):.").
37c80 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........
37ca0 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
37cc0 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
37ce0 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.........
37d00 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
37d20 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
37d40 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
37d60 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:."................
37d80 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
37da0 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.........................
37dc0 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 ........"):.")..................
37de0 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............
37e00 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
37e20 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
37e40 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
37e60 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
37e80 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
37ea0 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
37ec0 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
37ee0 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").
37f00 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
37f20 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
37f40 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
37f60 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
37f80 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.
37fa0 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-
37fc0 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
37fe0 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
38000 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
38020 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
38040 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")))..;;*
38060 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
38080 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
380a0 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
380c0 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
380e0 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
38100 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
38120 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
38140 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'.")..
38160 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
38180 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
381a0 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
381c0 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:
381e0 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
38200 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
38220 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
38240 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
38260 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.(
38280 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
382a0 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
382c0 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
382e0 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
38300 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
38320 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
38340 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
38360 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")
38380 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
383a0 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
383c0 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
383e0 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
38400 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)
38420 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.
38440 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."
38460 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-
38480 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.
384a0 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
384c0 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.".
384e0 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
38500 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
38520 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
38540 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.
38560 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")......
38580 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
385a0 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.
385c0 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
385e0 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))...
38600 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
38620 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.............
38640 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)).
38660 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........
38680 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
386a0 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.........................
386c0 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.......
386e0 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.-
38700 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)"))))
38720 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
38740 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
38760 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
38780 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
387a0 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
387c0 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
387e0 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/
38800 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")....
38820 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
38840 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
38860 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
38880 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......................."
388a0 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
388c0 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
388e0 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.
38900 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)..
38920 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
38940 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
38960 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
38980 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
389a0 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
389c0 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.....
389e0 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")))
38a00 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
38a20 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
38a40 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*.
38a60 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
38a80 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
38aa0 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")).........
38ac0 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
38ae0 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'").................
38b00 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'"..............
38b20 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
38b40 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"......
38b60 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
38b80 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
38ba0 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=.
38bc0 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'")..........
38be0 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"............
38c00 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
38c20 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..."
38c40 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'.
38c60 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
38c80 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
38ca0 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
38cc0 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.".
38ce0 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
38d00 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...........
38d20 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...............
38d40 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
38d60 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
38d80 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"............
38da0 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.
38dc0 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
38de0 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
38e00 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
38e20 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
38e40 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)))
38e60 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
38e80 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)))).....
38ea0 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.
38ec0 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.
38ee0 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
38f00 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
38f20 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.
38f40 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")...
38f60 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.
38f80 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)).
38fa0 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
38fc0 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
38fe0 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
39000 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."
39020 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")
39040 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-
39060 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.......................:
39080 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."
390a0 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
390c0 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
390e0 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").......
39100 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.
39120 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
39140 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.
39160 20 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
39180 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.-
391a0 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".......................
391c0 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)
391e0 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-
39200 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))........
39220 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
39240 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)))..........
39260 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
39280 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))))..................
392a0 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..........
392c0 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
392e0 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"....
39300 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.'
39320 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
39340 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...
39360 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......
39380 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
393a0 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
393c0 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
393e0 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..........
39400 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
39420 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
39440 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
39460 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
39480 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-
394a0 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
394c0 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.
394e0 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
39500 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
39520 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
39540 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.
39560 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)..
39580 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
395a0 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
395c0 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
395e0 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=.
39600 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
39620 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)
39640 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
39660 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
39680 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
396a0 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
396c0 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
396e0 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
39700 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)
39720 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."")).............
39740 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
39760 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
39780 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
397a0 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
397c0 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
397e0 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
39800 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)).
39820 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
39840 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
39860 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
39880 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
398a0 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
398c0 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
398e0 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
39900 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-
39920 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.
39940 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
39960 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
39980 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.
399a0 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,
399c0 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
399e0 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
39a00 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
39a20 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-
39a40 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."
39a60 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
39a80 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
39aa0 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
39ac0 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
39ae0 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).....
39b00 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
39b20 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
39b40 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)......
39b60 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
39b80 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
39ba0 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.:
39bc0 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
39be0 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
39c00 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
39c20 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
39c40 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
39c60 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
39c80 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
39ca0 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."..
39cc0 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
39ce0 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.
39d00 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
39d20 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
39d40 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
39d60 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
39d80 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
39da0 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
39dc0 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-
39de0 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)).
39e00 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
39e20 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)..
39e40 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...'((
39e60 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
39e80 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
39ea0 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
39ec0 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
39ee0 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
39f00 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
39f20 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
39f40 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
39f60 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
39f80 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
39fa0 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
39fc0 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-
39fe0 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
3a000 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
3a020 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
3a040 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-
3a060 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.
3a080 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).
3a0a0 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
3a0c0 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
3a0e0 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
3a100 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
3a120 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
3a140 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
3a160 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
3a180 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
3a1a0 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
3a1c0 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
3a1e0 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
3a200 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
3a220 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.
3a240 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
3a260 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
3a280 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
3a2a0 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
3a2c0 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
3a2e0 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
3a300 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
3a320 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
3a340 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"...........(
3a360 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
3a380 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
3a3a0 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.+[^.]+.+"
3a3c0 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).......
3a3e0 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-
3a400 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...........(
3a420 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
3a440 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).............""))
3a460 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
3a480 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
3a4a0 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
3a4c0 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.
3a4e0 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
3a500 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.".
3a520 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)"...........
3a540 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......
3a560 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).
3a580 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
3a5a0 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
3a5c0 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
3a5e0 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
3a600 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
3a620 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
3a640 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
3a660 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.....
3a680 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...............
3a6a0 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)..........
3a6c0 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
3a6e0 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.
3a700 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
3a720 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
3a740 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."
3a760 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
3a780 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.(
3a7a0 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
3a7c0 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
3a7e0 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
3a800 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".......
3a820 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-
3a840 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).......
3a860 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-
3a880 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.....
3a8a0 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).
3a8c0 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
3a8e0 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.
3a900 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
3a920 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
3a940 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
3a960 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
3a980 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
3a9a0 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
3a9c0 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)).......
3a9e0 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
3aa00 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)......
3aa20 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)......
3aa40 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
3aa60 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
3aa80 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'
3aaa0 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............
3aac0 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
3aae0 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\\'"))
3ab00 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
3ab20 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
3ab40 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)))).............
3ab60 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
3ab80 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))....
3aba0 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
3abc0 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
3abe0 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
3ac00 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
3ac20 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
3ac40 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
3ac60 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))
3ac80 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
3aca0 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
3acc0 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
3ace0 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)).........
3ad00 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
3ad20 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..
3ad40 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...........(
3ad60 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
3ad80 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
3ada0 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]
3adc0 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.'
3ade0 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.
3ae00 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-
3ae20 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\
3ae40 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)
3ae60 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))..
3ae80 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.
3aea0 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)..
3aec0 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
3aee0 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
3af00 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)
3af20 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
3af40 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
3af60 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
3af80 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
3afa0 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
3afc0 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
3afe0 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
3b000 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
3b020 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
3b040 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
3b060 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
3b080 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.*=.*\\(.+\\)$
3b0a0 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
3b0c0 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
3b0e0 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.(
3b100 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.*=.*\\(
3b120 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'
3b140 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
3b160 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.....
3b180 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))......
3b1a0 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)).
3b1c0 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)......
3b1e0 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
3b200 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).....
3b220 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
3b240 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
3b260 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
3b280 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)...........
3b2a0 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)))).......
3b2c0 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.
3b2e0 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
3b300 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
3b320 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
3b340 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
3b360 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.
3b380 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..
3b3a0 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
3b3c0 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
3b3e0 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
3b400 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
3b420 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
3b440 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
3b460 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.(
3b480 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
3b4a0 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)
3b4c0 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)
3b4e0 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
3b500 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)))........
3b520 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
3b540 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
3b560 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
3b580 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
3b5a0 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
3b5c0 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
3b5e0 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
3b600 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
3b620 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............
3b640 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
3b660 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
3b680 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
3b6a0 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
3b6c0 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
3b6e0 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-
3b700 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.(
3b720 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
3b740 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........................
3b760 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
3b780 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.
3b7a0 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)))).....
3b7c0 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)))....
3b7e0 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
3b800 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
3b820 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
3b840 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
3b860 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-
3b880 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
3b8a0 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
3b8c0 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
3b8e0 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
3b900 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)
3b920 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
3b940 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)...
3b960 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
3b980 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
3b9a0 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
3b9c0 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
3b9e0 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
3ba00 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
3ba20 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
3ba40 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
3ba60 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).............
3ba80 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:."))).
3baa0 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
3bac0 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)
3bae0 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
3bb00 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)
3bb20 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
3bb40 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
3bb60 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.......
3bb80 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.
3bba0 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
3bbc0 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..
3bbe0 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
3bc00 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
3bc20 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-
3bc40 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
3bc60 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.(
3bc80 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
3bca0 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
3bcc0 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
3bce0 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.
3bd00 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.
3bd20 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
3bd40 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
3bd60 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)...........
3bd80 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
3bda0 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
3bdc0 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
3bde0 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
3be00 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
3be20 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
3be40 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
3be60 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
3be80 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
3bea0 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
3bec0 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-
3bee0 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
3bf00 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"..............................
3bf20 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
3bf40 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"..................
3bf60 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").
3bf80 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
3bfa0 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
3bfc0 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)...(
3bfe0 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-
3c000 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-
3c020 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
3c040 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
3c060 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
3c080 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.
3c0a0 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)....
3c0c0 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)))))..;;;###
3c0e0 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.(
3c100 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
3c120 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
3c140 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
3c160 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
3c180 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-
3c1a0 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."
3c1c0 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...............:
3c1e0 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..
3c200 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
3c220 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
3c240 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...
3c260 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
3c280 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
3c2a0 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
3c2c0 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
3c2e0 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
3c300 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
3c320 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
3c340 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'.".
3c360 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
3c380 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).
3c3a0 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
3c3c0 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........................#
3c3e0 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..................
3c400 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
3c420 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-
3c440 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
3c460 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
3c480 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
3c4a0 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
3c4c0 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
3c4e0 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'.
3c500 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."..
3c520 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
3c540 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.()...(
3c560 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
3c580 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
3c5a0 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
3c5c0 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
3c5e0 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
3c600 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)))..
3c620 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
3c640 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
3c660 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
3c680 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
3c6a0 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
3c6c0 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))))...
3c6e0 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-
3c700 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))........
3c720 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
3c740 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))).......(
3c760 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
3c780 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
3c7a0 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))).......
3c7c0 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......
3c7e0 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
3c800 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
3c820 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
3c840 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))
3c860 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............
3c880 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
3c8a0 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
3c8c0 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-
3c8e0 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
3c900 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.
3c920 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
3c940 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
3c960 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."")))
3c980 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
3c9a0 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
3c9c0 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))))))).
3c9e0 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
3ca00 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
3ca20 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
3ca40 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
3ca60 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
3ca80 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.((
3caa0 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..........'(
3cac0 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
3cae0 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)))........
3cb00 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..........
3cb20 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--
3cb40 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
3cb60 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
3cb80 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-
3cba0 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
3cbc0 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
3cbe0 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
3cc00 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
3cc20 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
3cc40 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
3cc60 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
3cc80 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
3cca0 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))).........
3ccc0 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..........'
3cce0 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
3cd00 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
3cd20 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
3cd40 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
3cd60 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)
3cd80 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
3cda0 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
3cdc0 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
3cde0 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.
3ce00 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
3ce20 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))..
3ce40 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...
3ce60 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
3ce80 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-
3cea0 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))))
3cec0 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
3cee0 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
3cf00 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
3cf20 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
3cf40 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
3cf60 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
3cf80 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
3cfa0 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
3cfc0 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
3cfe0 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
3d000 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").
3d020 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
3d040 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")))
3d060 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
3d080 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..."
3d0a0 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'...
3d0c0 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
3d0e0 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
3d100 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
3d120 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
3d140 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
3d160 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
3d180 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
3d1a0 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
3d1c0 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'
3d1e0 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
3d200 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
3d220 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
3d240 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'
3d260 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
3d280 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
3d2a0 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.
3d2c0 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
3d2e0 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
3d300 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
3d320 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
3d340 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
3d360 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
3d380 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.....
3d3a0 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
3d3c0 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
3d3e0 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
3d400 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
3d420 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
3d440 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
3d460 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
3d480 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.()...
3d4a0 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.
3d4c0 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
3d4e0 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
3d500 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
3d520 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
3d540 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
3d560 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
3d580 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
3d5a0 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.
3d5c0 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
3d5e0 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
3d600 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
3d620 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
3d640 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
3d660 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
3d680 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.()..."
3d6a0 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
3d6c0 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
3d6e0 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.".
3d700 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
3d720 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))
3d740 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
3d760 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.
3d780 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
3d7a0 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
3d7c0 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
3d7e0 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
3d800 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.
3d820 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
3d840 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.
3d860 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
3d880 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--
3d8a0 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
3d8c0 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.()..."
3d8e0 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
3d900 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
3d920 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
3d940 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
3d960 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)).
3d980 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
3d9a0 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
3d9c0 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
3d9e0 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
3da00 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
3da20 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
3da40 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
3da60 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.`
3da80 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
3daa0 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
3dac0 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
3dae0 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
3db00 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
3db20 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
3db40 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'.
3db60 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
3db80 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
3dba0 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
3dbc0 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
3dbe0 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
3dc00 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
3dc20 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
3dc40 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
3dc60 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..
3dc80 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.
3dca0 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
3dcc0 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
3dce0 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.
3dd00 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
3dd20 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.(
3dd40 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"))
3dd60 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
3dd80 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
3dda0 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
3ddc0 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
3dde0 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:]]*"
3de00 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
3de20 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.
3de40 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."\\
3de60 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\\'".
3de80 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
3dea0 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)
3dec0 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
3dee0 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
3df00 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
3df20 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
3df40 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
3df60 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
3df80 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:
3dfa0 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
3dfc0 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
3dfe0 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
3e000 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..."\\(?:^\\(\\*\
3e020 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:]]+\
3e040 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
3e060 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
3e080 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
3e0a0 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
3e0c0 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
3e0e0 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
3e100 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,
3e120 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.(
3e140 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
3e160 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
3e180 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
3e1a0 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
3e1c0 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
3e1e0 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
3e200 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
3e220 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
3e240 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
3e260 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
3e280 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
3e2a0 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
3e2c0 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
3e2e0 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")).....
3e300 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
3e320 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))....
3e340 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
3e360 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.
3e380 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
3e3a0 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).........
3e3c0 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
3e3e0 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)).
3e400 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
3e420 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
3e440 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
3e460 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
3e480 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.\"
3e4a0 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
3e4c0 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
3e4e0 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."...(
3e500 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
3e520 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.".")......................
3e540 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
3e560 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)...........
3e580 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)))..
3e5a0 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
3e5c0 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
3e5e0 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
3e600 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
3e620 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
3e640 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
3e660 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
3e680 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
3e6a0 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
3e6c0 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.
3e6e0 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
3e700 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
3e720 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
3e740 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.(
3e760 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"
3e780 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
3e7a0 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)).......
3e7c0 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...........
3e7e0 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
3e800 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......
3e820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3e840 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
3e860 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.
3e880 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.............
3e8a0 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
3e8c0 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.................
3e8e0 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".................
3e900 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
3e920 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.".").........
3e940 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
3e960 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
3e980 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
3e9a0 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))).
3e9c0 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)....
3e9e0 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.
3ea00 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
3ea20 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
3ea40 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
3ea60 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).
3ea80 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
3eaa0 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
3eac0 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
3eae0 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
3eb00 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
3eb20 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
3eb40 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
3eb60 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
3eb80 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
3eba0 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-
3ebc0 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
3ebe0 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
3ec00 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
3ec20 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)...
3ec40 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
3ec60 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-
3ec80 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
3eca0 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
3ecc0 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
3ece0 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
3ed00 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
3ed20 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.
3ed40 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.
3ed60 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
3ed80 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
3eda0 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.
3edc0 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
3ede0 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
3ee00 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
3ee20 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
3ee40 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
3ee60 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
3ee80 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"
3eea0 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".........................
3eec0 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
3eee0 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
3ef00 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".
3ef20 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"................
3ef40 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
3ef60 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
3ef80 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
3efa0 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
3efc0 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.(
3efe0 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).................
3f000 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
3f020 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)))...........(
3f040 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
3f060 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
3f080 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)))))))
3f0a0 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
3f0c0 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
3f0e0 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
3f100 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
3f120 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
3f140 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
3f160 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
3f180 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
3f1a0 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)))....
3f1c0 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
3f1e0 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..................
3f200 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
3f220 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
3f240 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
3f260 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
3f280 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--
3f2a0 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
3f2c0 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
3f2e0 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.(
3f300 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.
3f320 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
3f340 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
3f360 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
3f380 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))
3f3a0 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
3f3c0 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
3f3e0 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
3f400 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
3f420 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
3f440 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
3f460 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
3f480 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
3f4a0 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
3f4c0 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
3f4e0 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
3f500 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))
3f520 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?.....
3f540 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)..........
3f560 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.
3f580 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
3f5a0 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.
3f5c0 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)........
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 28 74 69 6d 65 2d 6c 65 ........................(time-le
3f600 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)))))))..
3f620 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
3f640 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)..."
3f660 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
3f680 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.
3f6a0 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))
3f6c0 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
3f6e0 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)).........
3f700 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
3f720 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
3f740 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.".....
3f760 20 20 20 20 20 20 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
3f780 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)....
3f7a0 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."
3f7c0 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))))..
3f7e0 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).....
3f800 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
3f820 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
3f840 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
3f860 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).........
3f880 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
3f8a0 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.
3f8c0 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
3f8e0 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
3f900 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
3f920 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
3f940 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.
3f960 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
3f980 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
3f9a0 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
3f9c0 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
3f9e0 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
3fa00 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.".
3fa20 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--
3fa40 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)
3fa60 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
3fa80 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.
3faa0 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
3fac0 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
3fae0 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)))....
3fb00 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
3fb20 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))...
3fb40 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
3fb60 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))).
3fb80 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))))
3fba0 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
3fbc0 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
3fbe0 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.
3fc00 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
3fc20 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
3fc40 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
3fc60 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
3fc80 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)......
3fca0 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).........
3fcc0 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))).
3fce0 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.(
3fd00 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)
3fd20 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.(
3fd40 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
3fd60 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
3fd80 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
3fda0 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
3fdc0 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
3fde0 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
3fe00 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..(
3fe20 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
3fe40 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
3fe60 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
3fe80 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.
3fea0 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))........
3fec0 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)....
3fee0 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
3ff00 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....
3ff20 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
3ff40 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).....
3ff60 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
3ff80 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).................
3ffa0 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
3ffc0 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................
3ffe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
40000 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))........
40020 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............
40040 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
40060 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"................
40080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
400a0 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
400c0 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.".").........................
400e0 20 20 20 20 20 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
40100 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))))).
40120 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
40140 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).........................
40160 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
40180 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
401a0 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
401c0 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
401e0 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
40200 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-
40220 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.
40240 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
40260 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
40280 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
402a0 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
402c0 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
402e0 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
40300 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.
40320 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
40340 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
40360 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
40380 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.".
403a0 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
403c0 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
403e0 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.
40400 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
40420 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
40440 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
40460 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).
40480 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-
404a0 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
404c0 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
404e0 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
40500 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.......
40520 20 20 20 20 20 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
40540 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.
40560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
40580 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))..........
405a0 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
405c0 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
405e0 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
40600 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
40620 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-
40640 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
40660 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
40680 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
406a0 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
406c0 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
406e0 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.
40700 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
40720 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
40740 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
40760 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
40780 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
407a0 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
407c0 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
407e0 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
40800 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
40820 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
40840 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.......
40860 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
40880 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
408a0 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..........
408c0 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
408e0 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)...................
40900 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
40920 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
40940 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
40960 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
40980 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
409a0 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
409c0 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-
409e0 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
40a00 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].
40a20 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).
40a40 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
40a60 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.
40a80 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
40aa0 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
40ac0 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
40ae0 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
40b00 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
40b20 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
40b40 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
40b60 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............
40b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
40ba0 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).....
40bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
40be0 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))..
40c00 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:."..
40c20 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
40c40 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))..
40c60 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
40c80 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
40ca0 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............
40cc0 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
40ce0 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.
40d00 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
40d20 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
40d40 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).
40d60 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
40d80 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
40da0 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
40dc0 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)))..(
40de0 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
40e00 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
40e20 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."...(
40e40 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
40e60 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
40e80 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.......
40ea0 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
40ec0 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))).....
40ee0 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...
40f00 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
40f20 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.
40f40 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
40f60 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).............
40f80 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...
40fa0 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
40fc0 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).
40fe0 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'.
41000 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.".
41020 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
41040 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
41060 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
41080 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
410a0 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
410c0 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
410e0 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
41100 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
41120 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
41140 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
41160 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
41180 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
411a0 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
411c0 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
411e0 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...............
41200 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.
41220 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))...
41240 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
41260 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
41280 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)...........
412a0 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
412c0 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......
412e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
41300 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.
41320 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....
41340 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
41360 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
41380 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
413a0 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)..;
413c0 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
413e0 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
41400 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.
41420 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.()..."
41440 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
41460 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.
41480 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
414a0 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
414c0 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
414e0 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).......
41500 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
41520 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
41540 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
41560 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))))................(
41580 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....................
415a0 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)."-"."
415c0 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
415e0 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)....................
41600 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..................
41620 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...............
41640 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\""..
41660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
41680 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
416a0 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)))..........................
416c0 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
416e0 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))........
41700 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))))..........
41720 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
41740 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
41760 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
41780 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
417a0 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.
417c0 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
417e0 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.\"-\
41800 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
41820 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
41840 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
41860 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
41880 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
418a0 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
418c0 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
418e0 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
41900 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):.".............
41920 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).....
41940 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........
41960 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
41980 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
419a0 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
419c0 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
419e0 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
41a00 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
41a20 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
41a40 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)
41a60 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
41a80 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
41aa0 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"
41ac0 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
41ae0 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
41b00 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.
41b20 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.(
41b40 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
41b60 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
41b80 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))...........
41ba0 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
41bc0 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))....
41be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
41c00 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
41c20 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)))..
41c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
41c60 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
41c80 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................
41ca0 20 20 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
41cc0 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
41ce0 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))))))).................
41d00 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
41d20 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)))))...........
41d40 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..
41d60 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
41d80 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
41da0 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
41dc0 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
41de0 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.
41e00 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
41e20 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.....
41e40 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
41e60 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
41e80 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
41ea0 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
41ec0 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"......"
41ee0 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=
41f00 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
41f20 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
41f40 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
41f60 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="...
41f80 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-
41fa0 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
41fc0 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
41fe0 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
42000 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)...(
42020 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))
42040 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
42060 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
42080 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
420a0 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
420c0 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
420e0 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
42100 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.
42120 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
42140 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'."...(
42160 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.(
42180 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
421a0 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
421c0 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.......(
421e0 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".
42200 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.............
42220 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")....
42240 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))...
42260 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
42280 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..............
422a0 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
422c0 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-
422e0 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...............
42300 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
42320 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
42340 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
42360 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...
42380 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
423a0 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
423c0 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)))
423e0 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
42400 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
42420 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
42440 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)...(
42460 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
42480 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.
424a0 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
424c0 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
424e0 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
42500 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
42520 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
42540 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
42560 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
42580 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-
425a0 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)
425c0 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.....
425e0 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
42600 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
42620 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
42640 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
42660 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.'
42680 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))...........
426a0 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
426c0 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)))........
426e0 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
42700 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))).
42720 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)....
42740 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................
42760 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
42780 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.(
427a0 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)).............
427c0 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
427e0 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))))).
42800 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.
42820 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
42840 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.(
42860 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
42880 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
428a0 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
428c0 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
428e0 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-
42900 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
42920 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
42940 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
42960 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
42980 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.()..
429a0 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
429c0 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.
429e0 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
42a00 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
42a20 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.#'
42a40 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
42a60 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-
42a80 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))..;;
42aa0 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
42ac0 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-
42ae0 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
42b00 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
42b20 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
42b40 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
42b60 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").
42b80 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-
42ba0 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
42bc0 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.(
42be0 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)....
42c00 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:
42c20 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-
42c40 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
42c60 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
42c80 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
42ca0 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
42cc0 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)
42ce0 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
42d00 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
42d20 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
42d40 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
42d60 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
42d80 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
42da0 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
42dc0 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
42de0 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.(
42e00 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
42e20 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)))......
42e40 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.
42e60 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"...........(
42e80 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)....
42ea0 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)
42ec0 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
42ee0 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
42f00 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
42f20 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
42f40 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)))..
42f60 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
42f80 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
42fa0 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
42fc0 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
42fe0 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.'
43000 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.
43020 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
43040 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
43060 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
43080 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.....
430a0 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
430c0 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
430e0 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
43100 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
43120 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......
43140 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
43160 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).............
43180 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
431a0 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
431c0 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
431e0 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
43200 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
43220 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
43240 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-
43260 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
43280 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).....
432a0 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
432c0 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).............
432e0 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
43300 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
43320 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)........
43340 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
43360 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).................(
43380 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)..........
433a0 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
433c0 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
433e0 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)..
43400 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
43420 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
43440 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-
43460 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).................(
43480 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
434a0 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
434c0 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
434e0 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)........
43500 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
43520 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.
43540 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)
43560 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
43580 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
435a0 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
435c0 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
435e0 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
43600 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
43620 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
43640 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).
43660 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
43680 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
436a0 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
436c0 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
436e0 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
43700 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
43720 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
43740 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'):.\\{
43760 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..
43780 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
437a0 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
437c0 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
437e0 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
43800 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
43820 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
43840 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-
43860 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
43880 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
438a0 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
438c0 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
438e0 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).
43900 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.......
43920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
439a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
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 ................................
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-31 09:30:56 +0000