summaryrefslogtreecommitdiff
path: root/localrepo/dirvish-20230519.1500.tar
blob: 9b2c4ee347910b5afb58212ffedb1a4cdd224176 (plain)
ofshex dumpascii
0000 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 00 00 00 00 00 00 00 00 00 00 dirvish-20230519.1500/..........
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 32 34 35 34 00 20 35 00 00 00 0000000.00000000000.012454..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 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 65 78 dirvish-20230519.1500/dirvish-ex
0220 74 72 61 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 tras.el.........................
0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
0260 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 ....0000644.0000000.0000000.0000
0280 30 30 35 37 31 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 36 32 00 20 30 00 00 00 0057132.00000000000.015762..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 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 2e 65 6c 20 2d 2d 2d 20 45 78 74 72 61 20 ;;;.dirvish-extras.el.---.Extra.
0420 75 74 69 6c 69 74 69 65 73 20 61 6e 64 20 74 72 61 6e 73 69 65 6e 74 20 70 72 65 66 69 78 65 73 utilities.and.transient.prefixes
0440 20 66 6f 72 20 64 69 72 76 69 73 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 .for.dirvish.-*-.lexical-binding
0460 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 :.t.-*-..;;.Copyright.(C).2021-2
0480 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 022.Alex.Lu.;;.Author.:.Alex.Lu.
04a0 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a <https://github.com/alexluigit>.
04c0 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 ;;.Version:.2.0.53.;;.Keywords:.
04e0 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 files,.convenience.;;.Homepage:.
0500 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 https://github.com/alexluigit/di
0520 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 rvish.;;.SPDX-License-Identifier
0540 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 :.GPL-3.0-or-later..;;;.Commenta
0560 72 79 3a 0a 0a 3b 3b 20 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 2e 65 6c 20 63 6f 6e 74 61 69 ry:..;;.dirvish-extras.el.contai
0580 6e 73 20 74 68 65 20 54 52 41 4d 50 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 66 6f 72 20 64 69 72 ns.the.TRAMP.integration.for.dir
05a0 76 69 73 68 2c 20 69 74 20 69 73 20 6f 6e 6c 79 0a 3b 3b 20 6c 6f 61 64 65 64 20 61 66 74 65 72 vish,.it.is.only.;;.loaded.after
05c0 20 61 20 54 52 41 4d 50 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 69 73 20 69 6e 69 74 69 61 74 65 64 .a.TRAMP.connection.is.initiated
05e0 2e 20 20 42 65 73 69 64 65 73 2c 20 69 74 20 70 72 6f 76 69 64 65 73 20 73 6f 6d 65 0a 3b 3b 20 ...Besides,.it.provides.some.;;.
0600 75 74 69 6c 69 74 69 65 73 20 61 6e 64 20 74 72 61 6e 73 69 65 6e 74 20 70 72 65 66 69 78 65 73 utilities.and.transient.prefixes
0620 2e 20 20 54 68 69 73 20 69 73 20 61 6e 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 20 74 6f 20 61 76 ...This.is.an.optimization.to.av
0640 6f 69 64 20 68 61 76 69 6e 67 20 74 6f 0a 3b 3b 20 6c 6f 61 64 20 66 75 6e 63 74 69 6f 6e 73 20 oid.having.to.;;.load.functions.
0660 74 68 61 74 20 61 72 65 20 72 61 72 65 6c 79 20 75 73 65 64 20 64 75 72 69 6e 67 20 73 74 61 72 that.are.rarely.used.during.star
0680 74 2d 75 70 2e 0a 3b 3b 0a 3b 3b 20 43 6f 6d 6d 61 6e 64 73 20 69 6e 63 6c 75 64 65 64 3a 0a 3b t-up..;;.;;.Commands.included:.;
06a0 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 66 69 6c 65 2d 74 72 75 65 2d 70 61 74 68 ;.-.`dirvish-find-file-true-path
06c0 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 6e 61 6d 65 27 20 '.;;.-.`dirvish-copy-file-name'.
06e0 28 61 75 74 6f 6c 6f 61 64 29 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 (autoload).;;.-.`dirvish-copy-fi
0700 6c 65 2d 70 61 74 68 27 20 28 61 75 74 6f 6c 6f 61 64 29 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 le-path'.(autoload).;;.-.`dirvis
0720 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 27 0a 3b 3b 20 2d 20 60 64 69 72 h-copy-file-directory'.;;.-.`dir
0740 76 69 73 68 2d 74 6f 74 61 6c 2d 66 69 6c 65 2d 73 69 7a 65 27 20 28 61 75 74 6f 6c 6f 61 64 29 vish-total-file-size'.(autoload)
0760 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 74 6f 67 67 6c 65 27 20 28 61 .;;.-.`dirvish-layout-toggle'.(a
0780 75 74 6f 6c 6f 61 64 29 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 73 77 utoload).;;.-.`dirvish-layout-sw
07a0 69 74 63 68 27 20 28 61 75 74 6f 6c 6f 61 64 29 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 72 itch'.(autoload).;;.-.`dirvish-r
07c0 65 6e 61 6d 65 2d 73 70 61 63 65 2d 74 6f 2d 75 6e 64 65 72 73 63 6f 72 65 27 0a 3b 3b 0a 3b 3b ename-space-to-underscore'.;;.;;
07e0 20 54 72 61 6e 73 69 65 6e 74 20 70 72 65 66 69 78 65 73 20 69 6e 63 6c 75 64 65 64 20 28 61 6c .Transient.prefixes.included.(al
0800 6c 20 61 75 74 6f 6c 6f 61 64 65 64 29 3a 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 66 69 6c l.autoloaded):.;;.-.`dirvish-fil
0820 65 2d 69 6e 66 6f 2d 6d 65 6e 75 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 72 65 6e 61 6d e-info-menu'.;;.-.`dirvish-renam
0840 69 6e 67 2d 6d 65 6e 75 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 73 75 62 64 69 72 2d 6d ing-menu'.;;.-.`dirvish-subdir-m
0860 65 6e 75 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 63 68 78 78 78 2d 6d 65 6e 75 27 0a 3b enu'.;;.-.`dirvish-chxxx-menu'.;
0880 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 6d 61 72 6b 2d 6d 65 6e 75 27 0a 3b 3b 20 2d 20 60 64 69 ;.-.`dirvish-mark-menu'.;;.-.`di
08a0 72 76 69 73 68 2d 65 70 61 2d 64 69 72 65 64 2d 6d 65 6e 75 27 0a 3b 3b 20 2d 20 60 64 69 72 76 rvish-epa-dired-menu'.;;.-.`dirv
08c0 69 73 68 2d 73 65 74 75 70 2d 6d 65 6e 75 27 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 ish-setup-menu'..;;;.Code:..(req
08e0 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 28 72 65 71 75 69 72 65 20 27 74 72 61 6d 70 29 0a uire.'dirvish).(require.'tramp).
0900 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 72 65 63 69 70 .(defcustom.dirvish-layout-recip
0920 65 73 0a 20 20 27 28 28 30 20 30 20 20 20 20 30 2e 34 29 20 20 20 3b 20 20 20 20 20 20 20 20 7c es...'((0.0....0.4)...;........|
0940 20 43 55 52 52 45 4e 54 20 7c 20 70 72 65 76 69 65 77 0a 20 20 20 20 28 30 20 30 20 20 20 20 30 .CURRENT.|.preview.....(0.0....0
0960 2e 38 29 20 20 20 3b 20 20 20 20 20 20 20 20 7c 20 63 75 72 72 65 6e 74 20 7c 20 50 52 45 56 49 .8)...;........|.current.|.PREVI
0980 45 57 0a 20 20 20 20 28 31 20 30 2e 30 38 20 30 2e 38 29 20 20 20 3b 20 70 61 72 65 6e 74 20 7c EW.....(1.0.08.0.8)...;.parent.|
09a0 20 63 75 72 72 65 6e 74 20 7c 20 50 52 45 56 49 45 57 0a 20 20 20 20 28 31 20 30 2e 31 31 20 30 .current.|.PREVIEW.....(1.0.11.0
09c0 2e 35 35 29 29 20 3b 20 70 61 72 65 6e 74 20 7c 20 63 75 72 72 65 6e 74 20 7c 20 70 72 65 76 69 .55)).;.parent.|.current.|.previ
09e0 65 77 0a 20 20 22 4c 61 79 6f 75 74 20 52 45 43 49 50 45 73 20 66 6f 72 20 60 64 69 72 76 69 73 ew..."Layout.RECIPEs.for.`dirvis
0a00 68 2d 6c 61 79 6f 75 74 2d 73 77 69 74 63 68 27 20 63 6f 6d 6d 61 6e 64 2e 0a 52 45 43 49 50 45 h-layout-switch'.command..RECIPE
0a20 20 68 61 73 20 74 68 65 20 73 61 6d 65 20 66 6f 72 6d 20 61 73 20 60 64 69 72 76 69 73 68 2d 64 .has.the.same.form.as.`dirvish-d
0a40 65 66 61 75 6c 74 2d 6c 61 79 6f 75 74 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 efault-layout'."...:group.'dirvi
0a60 73 68 0a 20 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 6c 69 73 74 20 28 69 6e 74 65 67 sh...:type.'(repeat.(list.(integ
0a80 65 72 20 3a 74 61 67 20 22 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 65 6e 74 20 77 69 6e 64 6f 77 er.:tag."number.of.parent.window
0aa0 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c 6f 61 s")........................(floa
0ac0 74 20 3a 74 61 67 20 22 6d 61 78 20 77 69 64 74 68 20 6f 66 20 70 61 72 65 6e 74 20 77 69 6e 64 t.:tag."max.width.of.parent.wind
0ae0 6f 77 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6c ows")........................(fl
0b00 6f 61 74 20 3a 74 61 67 20 22 77 69 64 74 68 20 6f 66 20 70 72 65 76 69 65 77 20 77 69 6e 64 6f oat.:tag."width.of.preview.windo
0b20 77 22 29 29 29 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 w"))))..(defclass.dirvish-attrib
0b40 75 74 65 20 28 74 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 29 0a 20 20 28 28 76 61 72 69 61 62 ute.(transient-infix)...((variab
0b60 6c 65 20 20 3a 69 6e 69 74 61 72 67 20 3a 76 61 72 69 61 62 6c 65 29 29 0a 20 20 22 43 6c 61 73 le..:initarg.:variable))..."Clas
0b80 73 20 66 6f 72 20 64 69 72 76 69 73 68 20 61 74 74 72 69 62 75 74 65 73 2e 22 29 0a 0a 28 63 6c s.for.dirvish.attributes.")..(cl
0ba0 2d 64 65 66 6d 65 74 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 66 6f 72 6d 61 74 2d 64 65 73 63 -defmethod.transient-format-desc
0bc0 72 69 70 74 69 6f 6e 20 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 29 ription.((obj.dirvish-attribute)
0be0 29 0a 20 20 22 46 6f 72 6d 61 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 66 6f 72 20 44 49 52 56 )..."Format.description.for.DIRV
0c00 49 53 48 2d 41 54 54 52 49 42 55 54 45 20 69 6e 73 74 61 6e 63 65 20 4f 42 4a 2e 22 0a 20 20 28 ISH-ATTRIBUTE.instance.OBJ."...(
0c20 66 6f 72 6d 61 74 20 22 25 73 25 73 22 20 28 6f 72 65 66 20 6f 62 6a 20 64 65 73 63 72 69 70 74 format."%s%s".(oref.obj.descript
0c40 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 ion)...........(propertize.".".'
0c60 64 69 73 70 6c 61 79 20 27 28 73 70 61 63 65 20 3a 61 6c 69 67 6e 2d 74 6f 20 28 2d 20 72 69 67 display.'(space.:align-to.(-.rig
0c80 68 74 20 35 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 74 72 61 6e 73 69 65 ht.5)))))..(cl-defmethod.transie
0ca0 6e 74 2d 66 6f 72 6d 61 74 2d 76 61 6c 75 65 20 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 61 74 nt-format-value.((obj.dirvish-at
0cc0 74 72 69 62 75 74 65 29 29 0a 20 20 22 46 6f 72 6d 61 74 20 76 61 6c 75 65 20 66 6f 72 20 44 49 tribute))..."Format.value.for.DI
0ce0 52 56 49 53 48 2d 41 54 54 52 49 42 55 54 45 20 69 6e 73 74 61 6e 63 65 20 4f 42 4a 2e 22 0a 20 RVISH-ATTRIBUTE.instance.OBJ."..
0d00 20 28 6c 65 74 2a 20 28 28 76 61 6c 20 28 6f 72 65 66 20 6f 62 6a 20 76 61 6c 75 65 29 29 0a 20 .(let*.((val.(oref.obj.value))..
0d20 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 69 66 20 28 65 71 75 61 6c 20 76 61 6c 20 22 2b 22 ........(face.(if.(equal.val."+"
0d40 29 20 27 74 72 61 6e 73 69 65 6e 74 2d 61 72 67 75 6d 65 6e 74 20 27 74 72 61 6e 73 69 65 6e 74 ).'transient-argument.'transient
0d60 2d 69 6e 61 63 74 69 76 65 2d 76 61 6c 75 65 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 -inactive-value))).....(properti
0d80 7a 65 20 76 61 6c 20 27 66 61 63 65 20 66 61 63 65 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 ze.val.'face.face)))..(cl-defmet
0da0 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 69 6e 69 74 2d 76 61 6c 75 65 20 28 28 6f 62 6a 20 64 hod.transient-init-value.((obj.d
0dc0 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 29 29 0a 20 20 22 49 6e 69 74 69 61 6c 69 7a 65 irvish-attribute))..."Initialize
0de0 20 76 61 6c 75 65 20 66 6f 72 20 44 49 52 56 49 53 48 2d 41 54 54 52 49 42 55 54 45 20 69 6e 73 .value.for.DIRVISH-ATTRIBUTE.ins
0e00 74 61 6e 63 65 20 4f 42 4a 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 79 6d 20 28 6f 72 65 66 20 6f tance.OBJ."...(let.((sym.(oref.o
0e20 62 6a 20 76 61 72 69 61 62 6c 65 29 29 29 0a 20 20 20 20 28 6f 73 65 74 20 6f 62 6a 20 76 61 6c bj.variable))).....(oset.obj.val
0e40 75 65 20 28 69 66 20 28 6d 65 6d 71 20 73 79 6d 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 ue.(if.(memq.sym.dirvish-attribu
0e60 74 65 73 29 20 22 2b 22 20 22 2d 22 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 tes)."+"."-"))))..(cl-defmethod.
0e80 74 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 2d 72 65 61 64 20 28 28 6f 62 6a 20 64 69 72 76 69 transient-infix-read.((obj.dirvi
0ea0 73 68 2d 61 74 74 72 69 62 75 74 65 29 29 0a 20 20 22 52 65 61 64 20 76 61 6c 75 65 20 66 72 6f sh-attribute))..."Read.value.fro
0ec0 6d 20 44 49 52 56 49 53 48 2d 41 54 54 52 49 42 55 54 45 20 69 6e 73 74 61 6e 63 65 20 4f 42 4a m.DIRVISH-ATTRIBUTE.instance.OBJ
0ee0 2e 22 0a 20 20 28 6f 73 65 74 20 6f 62 6a 20 76 61 6c 75 65 20 28 69 66 20 28 65 71 75 61 6c 20 ."...(oset.obj.value.(if.(equal.
0f00 28 6f 72 65 66 20 6f 62 6a 20 76 61 6c 75 65 29 20 22 2b 22 29 20 22 2d 22 20 22 2b 22 29 29 29 (oref.obj.value)."+")."-"."+")))
0f20 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 2d ..(cl-defmethod.transient-infix-
0f40 73 65 74 20 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 29 20 76 61 6c set.((obj.dirvish-attribute).val
0f60 75 65 29 0a 20 20 22 53 65 74 20 72 65 6c 65 76 61 6e 74 20 76 61 6c 75 65 20 69 6e 20 44 49 52 ue)..."Set.relevant.value.in.DIR
0f80 56 49 53 48 2d 41 54 54 52 49 42 55 54 45 20 69 6e 73 74 61 6e 63 65 20 4f 42 4a 20 74 6f 20 56 VISH-ATTRIBUTE.instance.OBJ.to.V
0fa0 41 4c 55 45 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 74 65 6d 20 28 6f 72 65 66 20 6f 62 6a 20 ALUE."...(let*.((item.(oref.obj.
0fc0 76 61 72 69 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 6c 64 2d 76 61 6c 20 28 70 75 variable))..........(old-val.(pu
0fe0 72 65 63 6f 70 79 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 29 29 0a 20 20 20 20 recopy.dirvish-attributes)).....
1000 20 20 20 20 20 28 6e 65 77 2d 76 61 6c 20 28 69 66 20 28 65 71 75 61 6c 20 76 61 6c 75 65 20 22 .....(new-val.(if.(equal.value."
1020 2b 22 29 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 69 74 65 6d 20 6f 6c 64 2d 76 61 6c 29 0a 20 20 +").(cl-pushnew.item.old-val)...
1040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 71 20 69 74 65 6d 20 6f 6c 64 ..................(remq.item.old
1060 2d 76 61 6c 29 29 29 29 0a 20 20 20 20 28 6d 61 70 63 20 23 27 72 65 71 75 69 72 65 20 27 28 64 -val)))).....(mapc.#'require.'(d
1080 69 72 76 69 73 68 2d 77 69 64 67 65 74 73 20 64 69 72 76 69 73 68 2d 76 63 20 64 69 72 76 69 73 irvish-widgets.dirvish-vc.dirvis
10a0 68 2d 63 6f 6c 6c 61 70 73 65 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 65 h-collapse)).....(dirvish--rende
10c0 72 2d 61 74 74 72 73 20 27 63 6c 65 61 72 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 r-attrs.'clear).....(setq-local.
10e0 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 20 6e 65 77 2d 76 61 6c 29 0a 20 20 20 20 dirvish-attributes.new-val).....
1100 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 61 74 74 (setq-local.dirvish--working-att
1120 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 61 74 74 rs.................(dirvish--att
1140 72 73 2d 65 78 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 65 rs-expand..................(appe
1160 6e 64 20 27 28 68 6c 2d 6c 69 6e 65 20 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 74 29 20 6e 65 77 nd.'(hl-line.symlink-target).new
1180 2d 76 61 6c 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 65 72 2d 61 74 74 -val))).....(dirvish--render-att
11a0 72 73 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 rs)))..;;;###autoload.(autoload.
11c0 27 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 65 78 74 'dirvish-setup-menu."dirvish-ext
11e0 72 61 73 22 20 6e 69 6c 20 74 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 75 ras".nil.t).(defcustom.dirvish-u
1200 69 2d 73 65 74 75 70 2d 69 74 65 6d 73 0a 20 20 27 28 28 22 73 22 20 20 66 69 6c 65 2d 73 69 7a i-setup-items...'(("s"..file-siz
1220 65 20 20 20 20 20 22 46 69 6c 65 20 73 69 7a 65 22 29 0a 20 20 20 20 28 22 74 22 20 20 66 69 6c e....."File.size").....("t"..fil
1240 65 2d 74 69 6d 65 20 20 20 20 20 22 46 69 6c 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 e-time....."File.modification.ti
1260 6d 65 22 29 0a 20 20 20 20 28 22 63 22 20 20 63 6f 6c 6c 61 70 73 65 20 20 20 20 20 20 22 43 6f me").....("c"..collapse......"Co
1280 6c 6c 61 70 73 65 20 75 6e 69 71 75 65 20 6e 65 73 74 65 64 20 70 61 74 68 73 22 0a 20 20 20 20 llapse.unique.nested.paths".....
12a0 20 28 6e 6f 74 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 29 0a 20 .(not.(dirvish-prop.:remote)))..
12c0 20 20 20 28 22 76 22 20 20 76 63 2d 73 74 61 74 65 20 20 20 20 20 20 22 56 65 72 73 69 6f 6e 20 ...("v"..vc-state......"Version.
12e0 63 6f 6e 74 72 6f 6c 20 73 74 61 74 65 22 0a 20 20 20 20 20 28 61 6e 64 20 28 64 69 73 70 6c 61 control.state"......(and.(displa
1300 79 2d 67 72 61 70 68 69 63 2d 70 29 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 y-graphic-p).(dirvish-prop.:vc-b
1320 61 63 6b 65 6e 64 29 29 29 0a 20 20 20 20 28 22 6d 22 20 20 67 69 74 2d 6d 73 67 20 20 20 20 20 ackend))).....("m"..git-msg.....
1340 20 20 22 47 69 74 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 73 22 0a 20 20 20 20 20 28 61 6e .."Git.commit.messages"......(an
1360 64 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 61 63 6b 65 6e 64 29 20 28 6e 6f d.(dirvish-prop.:vc-backend).(no
1380 74 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 29 29 0a 20 20 20 20 t.(dirvish-prop.:remote)))).....
13a0 28 22 31 22 20 27 28 30 20 6e 69 6c 20 20 30 2e 34 29 20 20 22 20 20 20 20 20 2d 20 20 20 20 20 ("1".'(0.nil..0.4)..".....-.....
13c0 20 20 7c 20 63 75 72 72 65 6e 74 20 28 36 30 25 29 20 7c 20 70 72 65 76 69 65 77 20 28 34 30 25 ..|.current.(60%).|.preview.(40%
13e0 29 22 29 0a 20 20 20 20 28 22 32 22 20 27 28 30 20 6e 69 6c 20 20 30 2e 38 29 20 20 22 20 20 20 )").....("2".'(0.nil..0.8).."...
1400 20 20 2d 20 20 20 20 20 20 20 7c 20 63 75 72 72 65 6e 74 20 28 32 30 25 29 20 7c 20 70 72 65 76 ..-.......|.current.(20%).|.prev
1420 69 65 77 20 28 38 30 25 29 22 29 0a 20 20 20 20 28 22 33 22 20 27 28 31 20 30 2e 30 38 20 30 2e iew.(80%)").....("3".'(1.0.08.0.
1440 38 29 20 20 22 70 61 72 65 6e 74 20 28 38 25 29 20 20 7c 20 63 75 72 72 65 6e 74 20 28 31 32 25 8).."parent.(8%)..|.current.(12%
1460 29 20 7c 20 70 72 65 76 69 65 77 20 28 38 30 25 29 22 29 0a 20 20 20 20 28 22 34 22 20 27 28 31 ).|.preview.(80%)").....("4".'(1
1480 20 30 2e 31 31 20 30 2e 35 35 29 20 22 70 61 72 65 6e 74 20 28 31 31 25 29 20 7c 20 63 75 72 72 .0.11.0.55)."parent.(11%).|.curr
14a0 65 6e 74 20 28 33 33 25 29 20 7c 20 70 72 65 76 69 65 77 20 28 35 35 25 29 22 29 29 0a 20 20 22 ent.(33%).|.preview.(55%)"))..."
14c0 49 54 45 4d 73 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d 6d 65 6e 75 27 2e 0a ITEMs.for.`dirvish-setup-menu'..
14e0 41 20 49 54 45 4d 20 69 73 20 61 20 6c 69 73 74 20 63 6f 6e 73 69 73 74 73 20 6f 66 20 28 4b 45 A.ITEM.is.a.list.consists.of.(KE
1500 59 20 56 41 52 20 44 45 53 43 20 50 52 45 44 29 20 77 68 65 72 65 20 4b 45 59 20 69 73 20 74 68 Y.VAR.DESC.PRED).where.KEY.is.th
1520 65 0a 6b 65 79 62 69 6e 64 69 6e 67 20 66 6f 72 20 74 68 65 20 69 74 65 6d 2c 20 56 41 52 20 63 e.keybinding.for.the.item,.VAR.c
1540 61 6e 20 62 65 20 61 20 76 61 6c 69 64 20 60 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 an.be.a.valid.`dirvish-attribute
1560 73 27 0a 6f 72 20 61 20 6c 61 79 6f 75 74 20 72 65 63 69 70 65 20 28 73 65 65 20 60 64 69 72 76 s'.or.a.layout.recipe.(see.`dirv
1580 69 73 68 2d 6c 61 79 6f 75 74 2d 72 65 63 69 70 65 73 27 29 2c 20 44 45 53 43 20 69 73 20 74 68 ish-layout-recipes'),.DESC.is.th
15a0 65 0a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 74 68 65 20 56 41 52 2e 20 20 54 68 e.documentation.for.the.VAR...Th
15c0 65 20 6f 70 74 69 6f 6e 61 6c 20 50 52 45 44 20 69 73 20 70 61 73 73 65 64 20 61 73 20 74 68 65 e.optional.PRED.is.passed.as.the
15e0 0a 70 72 65 64 69 63 61 74 65 20 66 6f 72 20 74 68 61 74 20 69 6e 66 69 78 2e 22 0a 20 20 3a 67 .predicate.for.that.infix."...:g
1600 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 0a 20 20 3a 73 65 roup.'dirvish.:type.'alist...:se
1620 74 0a 20 20 28 6c 61 6d 62 64 61 20 28 6b 65 79 20 76 61 6c 75 65 29 0a 20 20 20 20 28 73 65 74 t...(lambda.(key.value).....(set
1640 20 6b 65 79 20 76 61 6c 75 65 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 77 69 .key.value).....(cl-loop......wi
1660 74 68 20 28 61 74 74 72 73 20 2e 20 6c 61 79 6f 75 74 73 29 20 3d 20 28 29 0a 20 20 20 20 20 66 th.(attrs...layouts).=.()......f
1680 6f 72 20 28 6b 20 76 20 64 65 73 63 20 70 72 65 64 29 20 69 6e 20 76 61 6c 75 65 0a 20 20 20 20 or.(k.v.desc.pred).in.value.....
16a0 20 66 6f 72 20 6e 61 6d 65 20 3d 20 28 61 6e 64 20 28 73 79 6d 62 6f 6c 70 20 76 29 20 28 69 6e .for.name.=.(and.(symbolp.v).(in
16c0 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 69 6e 66 69 78 22 20 tern.(format."dirvish-%s-infix".
16e0 76 29 29 29 0a 20 20 20 20 20 64 6f 20 28 69 66 20 28 6e 6f 74 20 6e 61 6d 65 29 0a 20 20 20 20 v)))......do.(if.(not.name).....
1700 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 6b 20 28 70 72 6f 70 65 72 74 69 7a ........(push.(list.k.(propertiz
1720 65 20 64 65 73 63 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 e.desc.'face.'font-lock-doc-face
1740 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 60 28 6c 61 6d 62 ).........................`(lamb
1760 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 6c 61 79 da.().(interactive).(dirvish-lay
1780 6f 75 74 2d 73 77 69 74 63 68 20 2c 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 out-switch.,v)))................
17a0 20 20 20 6c 61 79 6f 75 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 76 61 6c 20 60 28 74 72 ...layouts)...........(eval.`(tr
17c0 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 69 6e 66 69 78 20 2c 6e 61 6d 65 20 28 29 0a 20 20 ansient-define-infix.,name.()...
17e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 73 20 27 64 69 72 76 69 73 68 .................:class.'dirvish
1800 2d 61 74 74 72 69 62 75 74 65 20 3a 76 61 72 69 61 62 6c 65 20 27 2c 76 0a 20 20 20 20 20 20 20 -attribute.:variable.',v........
1820 20 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 2c 64 65 73 63 20 3a ............:description.,desc.:
1840 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 2c 28 69 66 20 70 72 65 64 20 60 2c 40 70 72 65 64 20 if.(lambda.().,(if.pred.`,@pred.
1860 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 6c 69 73 74 20 6b 20 6e 61 t))))...........(push.(list.k.na
1880 6d 65 29 20 61 74 74 72 73 29 29 0a 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 28 65 me).attrs))......finally......(e
18a0 76 61 6c 0a 20 20 20 20 20 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 val.......`(transient-define-pre
18c0 66 69 78 20 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d 6d 65 6e 75 20 28 29 0a 20 20 20 20 20 20 fix.dirvish-setup-menu.().......
18e0 20 20 20 22 43 6f 6e 66 69 67 75 72 65 20 63 75 72 72 65 6e 74 20 44 69 72 76 69 73 68 20 73 65 ..."Configure.current.Dirvish.se
1900 73 73 69 6f 6e 2e 22 0a 20 20 20 20 20 20 20 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 28 ssion."..........[:description.(
1920 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d lambda.().(dirvish--format-menu-
1940 68 65 61 64 69 6e 67 20 22 53 65 74 75 70 20 44 69 72 76 69 73 68 20 55 49 22 29 29 0a 20 20 20 heading."Setup.Dirvish.UI"))....
1960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5b 22 41 74 74 72 69 62 75 74 65 73 ....................["Attributes
1980 3a 22 20 2c 40 61 74 74 72 73 5d 5d 0a 20 20 20 20 20 20 20 20 20 5b 22 53 77 69 74 63 68 20 6c :".,@attrs]]..........["Switch.l
19a0 61 79 6f 75 74 73 3a 22 0a 20 20 20 20 20 20 20 20 20 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 ayouts:"...........:if.(lambda.(
19c0 29 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 ).(car.(dv-layout.(dirvish-curr)
19e0 29 29 29 20 2c 40 6c 61 79 6f 75 74 73 5d 0a 20 20 20 20 20 20 20 20 20 5b 22 41 63 74 69 6f 6e ))).,@layouts]..........["Action
1a00 73 3a 22 0a 20 20 20 20 20 20 20 20 20 20 28 22 4d 2d 74 22 20 22 54 6f 67 67 6c 65 20 66 75 6c s:"...........("M-t"."Toggle.ful
1a20 6c 73 63 72 65 65 6e 22 20 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 74 6f 67 67 6c 65 29 0a lscreen".dirvish-layout-toggle).
1a40 20 20 20 20 20 20 20 20 20 20 28 22 52 45 54 22 20 22 41 70 70 6c 79 20 63 75 72 72 65 6e 74 20 ..........("RET"."Apply.current.
1a60 73 65 74 74 69 6e 67 73 20 74 6f 20 66 75 74 75 72 65 20 73 65 73 73 69 6f 6e 73 22 0a 20 20 20 settings.to.future.sessions"....
1a80 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ........(lambda.().(interactive)
1aa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 2d 64 65 66 61 75 6c 74 20 64 69 72 76 ..............(setq-default.dirv
1ac0 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 ish-attributes.dirvish-attribute
1ae0 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 64 65 s)..............(setq.dirvish-de
1b00 66 61 75 6c 74 2d 6c 61 79 6f 75 74 20 28 63 64 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 28 64 69 fault-layout.(cdr.(dv-layout.(di
1b20 72 76 69 73 68 2d 63 75 72 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 rvish-curr))))..............(dir
1b40 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 vish--init-session.(dirvish-curr
1b60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 ))..............(revert-buffer))
1b80 29 5d 29 29 29 29 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 74 72 61 6d 70 )])))))..(defconst.dirvish-tramp
1ba0 2d 70 72 65 76 69 65 77 2d 63 6d 64 0a 20 20 22 68 65 61 64 20 2d 6e 20 31 30 30 30 20 25 73 20 -preview-cmd..."head.-n.1000.%s.
1bc0 32 3e 2f 64 65 76 2f 6e 75 6c 6c 20 7c 7c 20 6c 73 20 2d 41 6c 68 20 2d 2d 67 72 6f 75 70 2d 64 2>/dev/null.||.ls.-Alh.--group-d
1be0 69 72 65 63 74 6f 72 69 65 73 2d 66 69 72 73 74 20 25 73 20 32 3e 2f 64 65 76 2f 6e 75 6c 6c 22 irectories-first.%s.2>/dev/null"
1c00 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 68 6f 73 74 73 20 27 28 ).(defvar.dirvish-tramp-hosts.'(
1c20 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6c 73 2d 6f 75 74 70 75 74 2d 70 61 72 ))..(defun.dirvish-ls-output-par
1c40 73 65 72 20 28 65 6e 74 72 79 20 6f 75 74 70 75 74 29 0a 20 20 22 50 61 72 73 65 20 6c 73 20 4f ser.(entry.output)..."Parse.ls.O
1c60 55 54 50 55 54 20 66 6f 72 20 45 4e 54 52 59 20 61 6e 64 20 73 74 6f 72 65 20 69 74 20 69 6e 20 UTPUT.for.ENTRY.and.store.it.in.
1c80 60 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 27 2e 22 0a 20 20 28 64 6f 6c 69 73 `dirvish--attrs-hash'."...(dolis
1ca0 74 20 28 66 69 6c 65 20 28 61 6e 64 20 28 3e 20 28 6c 65 6e 67 74 68 20 6f 75 74 70 75 74 29 20 t.(file.(and.(>.(length.output).
1cc0 32 29 20 28 63 6c 2d 73 75 62 73 65 71 20 6f 75 74 70 75 74 20 32 20 2d 31 29 29 29 0a 20 20 20 2).(cl-subseq.output.2.-1)))....
1ce0 20 28 63 6c 2d 64 65 73 74 72 75 63 74 75 72 69 6e 67 2d 62 69 6e 64 0a 20 20 20 20 20 20 20 20 .(cl-destructuring-bind.........
1d00 28 69 6e 6f 64 65 20 70 72 69 76 20 6c 6e 75 6d 20 75 73 65 72 20 67 72 6f 75 70 20 73 69 7a 65 (inode.priv.lnum.user.group.size
1d20 20 6d 6f 6e 20 64 61 79 20 74 69 6d 65 20 26 72 65 73 74 20 70 61 74 68 29 0a 20 20 20 20 20 20 .mon.day.time.&rest.path).......
1d40 20 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 66 69 6c 65 29 0a 20 20 20 20 20 20 28 6c 65 74 ..(split-string.file).......(let
1d60 2a 20 28 28 73 79 6d 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 22 2d 3e 22 20 70 61 74 68 20 3a *.((sym.(cl-position."->".path.:
1d80 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 6e test.#'equal))..............(f-n
1da0 61 6d 65 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 28 63 6c 2d 73 75 62 73 65 71 20 70 61 74 68 ame.(string-join.(cl-subseq.path
1dc0 20 30 20 73 79 6d 29 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 6d 74 .0.sym)."."))..............(f-mt
1de0 69 6d 65 20 28 63 6f 6e 63 61 74 20 6d 6f 6e 20 22 20 22 20 64 61 79 20 22 20 22 20 74 69 6d 65 ime.(concat.mon.".".day.".".time
1e00 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 74 72 75 65 6e 61 6d 65 20 28 61 6e 64 ))..............(f-truename.(and
1e20 20 73 79 6d 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 28 63 6c 2d 73 75 62 73 65 71 20 70 61 74 .sym.(string-join.(cl-subseq.pat
1e40 68 20 28 31 2b 20 73 79 6d 29 29 20 22 20 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 h.(1+.sym)).".")))..............
1e60 28 66 2d 64 69 72 70 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 64 22 20 70 72 69 (f-dirp.(string-prefix-p."d".pri
1e80 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 74 79 70 65 20 28 6f 72 20 66 2d 74 v))..............(f-type.(or.f-t
1ea0 72 75 65 6e 61 6d 65 20 66 2d 64 69 72 70 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 74 68 61 ruename.f-dirp))).........(putha
1ec0 73 68 20 28 69 6e 74 65 72 6e 20 28 73 65 63 75 72 65 2d 68 61 73 68 20 27 6d 64 35 20 28 65 78 sh.(intern.(secure-hash.'md5.(ex
1ee0 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 2d 6e 61 6d 65 20 65 6e 74 72 79 29 29 29 0a 20 pand-file-name.f-name.entry)))..
1f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 62 75 69 6c 74 69 6e 20 2c 28 6c 69 73 ................`(:builtin.,(lis
1f20 74 20 66 2d 74 79 70 65 20 6c 6e 75 6d 20 75 73 65 72 20 67 72 6f 75 70 20 6e 69 6c 0a 20 20 20 t.f-type.lnum.user.group.nil....
1f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
1f60 66 2d 6d 74 69 6d 65 20 6e 69 6c 20 73 69 7a 65 20 70 72 69 76 20 6e 69 6c 20 69 6e 6f 64 65 29 f-mtime.nil.size.priv.nil.inode)
1f80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 74 79 70 65 20 2c 28 63 6f 6e 73 ....................:type.,(cons
1fa0 20 28 69 66 20 66 2d 64 69 72 70 20 27 64 69 72 20 27 66 69 6c 65 29 20 66 2d 74 72 75 65 6e 61 .(if.f-dirp.'dir.'file).f-truena
1fc0 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 2d 61 me))..................dirvish--a
1fe0 74 74 72 73 2d 68 61 73 68 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e ttrs-hash)))))..(defun.dirvish-n
2000 6f 73 65 6c 65 63 74 2d 74 72 61 6d 70 20 28 66 6e 20 64 69 72 20 66 6c 61 67 73 20 72 65 6d 6f oselect-tramp.(fn.dir.flags.remo
2020 74 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 44 69 72 65 64 20 62 75 66 66 65 72 20 61 te)..."Return.the.Dired.buffer.a
2040 74 20 44 49 52 20 77 69 74 68 20 6c 69 73 74 69 6e 67 20 46 4c 41 47 53 2e 0a 53 61 76 65 20 74 t.DIR.with.listing.FLAGS..Save.t
2060 68 65 20 52 45 4d 4f 54 45 20 68 6f 73 74 20 74 6f 20 60 64 69 72 76 69 73 68 2d 74 72 61 6d 70 he.REMOTE.host.to.`dirvish-tramp
2080 2d 68 6f 73 74 73 27 2e 0a 46 4e 20 69 73 20 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 60 64 69 72 -hosts'..FN.is.the.original.`dir
20a0 65 64 2d 6e 6f 73 65 6c 65 63 74 27 20 63 6c 6f 73 75 72 65 2e 22 0a 20 20 28 6c 65 74 2a 20 28 ed-noselect'.closure."...(let*.(
20c0 28 73 61 76 65 64 2d 66 6c 61 67 73 20 28 63 64 72 20 28 61 73 73 6f 63 20 72 65 6d 6f 74 65 20 (saved-flags.(cdr.(assoc.remote.
20e0 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 68 6f 73 74 73 20 23 27 65 71 75 61 6c 29 29 29 0a 20 dirvish-tramp-hosts.#'equal)))..
2100 20 20 20 20 20 20 20 20 28 66 74 70 3f 20 28 74 72 61 6d 70 2d 66 74 70 2d 66 69 6c 65 2d 6e 61 ........(ftp?.(tramp-ftp-file-na
2120 6d 65 2d 70 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 68 6f 72 74 2d 66 6c 61 67 73 me-p.dir))..........(short-flags
2140 20 22 2d 41 6c 68 22 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 ."-Alh")..........(default-direc
2160 74 6f 72 79 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 62 75 66 66 65 72 tory.dir)..........(dired-buffer
2180 73 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 63 6f 6e 64 20 28 66 s.nil)..........(buffer.(cond.(f
21a0 74 70 3f 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 64 69 72 20 73 68 6f 72 74 2d 66 6c 61 67 73 29 tp?.(funcall.fn.dir.short-flags)
21c0 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 73 61 76 65 64 2d )........................(saved-
21e0 66 6c 61 67 73 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 64 69 72 20 73 61 76 65 64 2d 66 6c 61 67 flags.(funcall.fn.dir.saved-flag
2200 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 28 28 3d 20 28 s))........................((=.(
2220 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 22 6c 73 22 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 22 2d process-file."ls".nil.nil.nil."-
2240 2d 76 65 72 73 69 6f 6e 22 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -version").0)...................
2260 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 72 65 6d 6f 74 65 20 66 6c 61 67 73 29 20 ......(push.(cons.remote.flags).
2280 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 68 6f 73 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 dirvish-tramp-hosts)............
22a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 64 69 72 20 66 6c 61 .............(funcall.fn.dir.fla
22c0 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 28 74 20 28 gs))........................(t.(
22e0 70 75 73 68 20 28 63 6f 6e 73 20 72 65 6d 6f 74 65 20 73 68 6f 72 74 2d 66 6c 61 67 73 29 20 64 push.(cons.remote.short-flags).d
2300 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 68 6f 73 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 irvish-tramp-hosts).............
2320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 64 69 72 20 73 68 ..............(funcall.fn.dir.sh
2340 6f 72 74 2d 66 6c 61 67 73 29 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 ort-flags))))).....(with-current
2360 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 -buffer.buffer.......(dirvish-pr
2380 6f 70 20 3a 74 72 61 6d 70 20 28 74 72 61 6d 70 2d 64 69 73 73 65 63 74 2d 66 69 6c 65 2d 6e 61 op.:tramp.(tramp-dissect-file-na
23a0 6d 65 20 64 69 72 29 29 0a 20 20 20 20 20 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e me.dir)).......buffer)))..(defun
23c0 20 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 2d 61 73 79 6e 63 2d 70 20 28 76 65 63 29 0a 20 20 .dirvish-tramp--async-p.(vec)...
23e0 22 52 65 74 75 72 6e 20 74 20 69 66 20 74 72 61 6d 70 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 56 45 "Return.t.if.tramp.connection.VE
2400 43 20 73 75 70 70 6f 72 74 20 61 73 79 6e 63 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 28 6f 72 C.support.async.commands."...(or
2420 20 28 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f 73 74 2d 70 20 76 65 63 29 20 3b 20 6c 6f 63 61 .(tramp-local-host-p.vec).;.loca
2440 6c 68 6f 73 74 0a 20 20 20 20 20 20 3b 3b 20 74 68 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 73 75 lhost.......;;.the.connection.su
2460 70 70 6f 72 74 20 60 64 69 72 65 63 74 2d 61 73 79 6e 63 2d 70 72 6f 63 65 73 73 27 20 61 6e 64 pport.`direct-async-process'.and
2480 20 6e 6f 20 70 61 73 73 77 6f 72 64 20 6e 65 65 64 65 64 0a 20 20 20 20 20 20 28 61 6e 64 20 28 .no.password.needed.......(and.(
24a0 73 74 72 69 6e 67 70 20 28 74 72 61 6d 70 2d 67 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 70 72 stringp.(tramp-get-connection-pr
24c0 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 76 65 63 20 operty......................vec.
24e0 22 66 69 72 73 74 2d 70 61 73 73 77 6f 72 64 2d 72 65 71 75 65 73 74 22 20 6e 69 6c 29 29 0a 20 "first-password-request".nil))..
2500 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6d 70 2d 67 65 74 2d 6d 65 74 68 6f 64 2d 70 61 72 61 ..........(tramp-get-method-para
2520 6d 65 74 65 72 20 76 65 63 20 27 74 72 61 6d 70 2d 64 69 72 65 63 74 2d 61 73 79 6e 63 29 0a 20 meter.vec.'tramp-direct-async)..
2540 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6d 70 2d 67 65 74 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d ..........(tramp-get-connection-
2560 70 72 6f 70 65 72 74 79 20 76 65 63 20 22 64 69 72 65 63 74 2d 61 73 79 6e 63 2d 70 72 6f 63 65 property.vec."direct-async-proce
2580 73 73 22 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 74 72 61 6d ss".nil))))..(defun.dirvish-tram
25a0 70 2d 64 69 72 2d 64 61 74 61 2d 70 72 6f 63 2d 73 20 28 70 72 6f 63 20 5f 65 78 69 74 29 0a 20 p-dir-data-proc-s.(proc._exit)..
25c0 20 22 53 65 6e 74 69 6e 65 6c 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 64 61 74 61 2d 66 6f 72 ."Sentinel.for.`dirvish-data-for
25e0 2d 64 69 72 27 27 73 20 70 72 6f 63 65 73 73 20 50 52 4f 43 2e 22 0a 20 20 28 75 6e 77 69 6e 64 -dir''s.process.PROC."...(unwind
2600 2d 70 72 6f 74 65 63 74 0a 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 60 28 2c -protect.......(pcase-let*.((`(,
2620 64 69 72 20 2c 62 75 66 20 2c 73 65 74 75 70 29 20 28 70 72 6f 63 65 73 73 2d 67 65 74 20 70 72 dir.,buf.,setup).(process-get.pr
2640 6f 63 20 27 6d 65 74 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 oc.'meta))....................(s
2660 74 72 20 28 77 69 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 tr.(with-current-buffer.(process
2680 2d 62 75 66 66 65 72 20 70 72 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -buffer.proc)...................
26a0 20 20 20 20 20 20 20 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 ........(substring-no-properties
26c0 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .(buffer-string)))).............
26e0 20 20 20 20 20 20 20 28 64 61 74 61 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 73 74 72 20 22 .......(data.(split-string.str."
2700 5c 6e 22 29 29 29 0a 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 \n"))).........(when.(buffer-liv
2720 65 2d 70 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 e-p.buf)...........(with-current
2740 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 -buffer.buf.............(dirvish
2760 2d 6c 73 2d 6f 75 74 70 75 74 2d 70 61 72 73 65 72 20 64 69 72 20 64 61 74 61 29 0a 20 20 20 20 -ls-output-parser.dir.data).....
2780 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 74 75 70 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 ........(when.setup.(run-hooks.'
27a0 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 dirvish-setup-hook))............
27c0 20 28 75 6e 6c 65 73 73 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 77 64 69 72 65 64 .(unless.(derived-mode-p.'wdired
27e0 2d 6d 6f 64 65 29 20 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 -mode).(dirvish-update-body-h)))
2800 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 70 72 )).....(dirvish--kill-buffer.(pr
2820 6f 63 65 73 73 2d 62 75 66 66 65 72 20 70 72 6f 63 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 ocess-buffer.proc))))..(cl-defme
2840 74 68 6f 64 20 64 69 72 76 69 73 68 2d 64 61 74 61 2d 66 6f 72 2d 64 69 72 0a 20 20 28 64 69 72 thod.dirvish-data-for-dir...(dir
2860 20 62 75 66 66 65 72 20 73 65 74 75 70 20 26 63 6f 6e 74 65 78 74 20 28 28 64 69 72 76 69 73 68 .buffer.setup.&context.((dirvish
2880 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 20 73 74 72 69 6e 67 29 29 0a 20 20 22 44 49 52 20 42 -prop.:remote).string))..."DIR.B
28a0 55 46 46 45 52 20 53 45 54 55 50 20 44 49 52 56 49 53 48 2d 50 52 4f 50 2e 22 0a 20 20 28 77 68 UFFER.SETUP.DIRVISH-PROP."...(wh
28c0 65 6e 20 28 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 2d 61 73 79 6e 63 2d 70 20 28 64 69 72 76 en.(dirvish-tramp--async-p.(dirv
28e0 69 73 68 2d 70 72 6f 70 20 3a 74 72 61 6d 70 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 70 72 ish-prop.:tramp)).....(let*.((pr
2900 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 0a 20 20 20 20 20 ocess-connection-type.nil)......
2920 20 20 20 20 20 20 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 ......(buf.(dirvish--util-buffer
2940 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 6e 61 6d 65 20 22 64 69 72 2d 64 61 74 61 2d 22 29 29 29 0a .(make-temp-name."dir-data-"))).
2960 20 20 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 66 6f 72 6d 61 74 20 22 6c 73 20 2d 31 6c 61 ...........(cmd.(format."ls.-1la
2980 68 69 20 25 73 22 20 28 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 64 69 72 29 29 29 0a 20 hi.%s".(file-local-name.dir)))..
29a0 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 20 28 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 ..........(proc.(start-file-proc
29c0 65 73 73 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 ess-shell-command.(buffer-name.b
29e0 75 66 29 20 62 75 66 20 63 6d 64 29 29 29 0a 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 70 75 uf).buf.cmd))).......(process-pu
2a00 74 20 70 72 6f 63 20 27 6d 65 74 61 20 28 6c 69 73 74 20 64 69 72 20 62 75 66 66 65 72 20 73 65 t.proc.'meta.(list.dir.buffer.se
2a20 74 75 70 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 tup)).......(set-process-sentine
2a40 6c 20 70 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 64 69 72 2d 64 61 74 61 2d l.proc.#'dirvish-tramp-dir-data-
2a60 70 72 6f 63 2d 73 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 proc-s))))..(dirvish-define-prev
2a80 69 65 77 20 74 72 61 6d 70 20 28 66 69 6c 65 20 5f 20 64 76 29 0a 20 20 22 50 72 65 76 69 65 77 iew.tramp.(file._.dv)..."Preview
2aa0 20 66 69 6c 65 73 20 77 69 74 68 20 60 6c 73 27 20 6f 72 20 60 68 65 61 64 27 20 66 6f 72 20 74 .files.with.`ls'.or.`head'.for.t
2ac0 72 61 6d 70 20 66 69 6c 65 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 76 65 63 20 28 64 69 72 76 69 ramp.files."...(let.((vec.(dirvi
2ae0 73 68 2d 70 72 6f 70 20 3a 74 72 61 6d 70 29 29 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 sh-prop.:tramp))).....(if.(not.(
2b00 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 2d 61 73 79 6e 63 2d 70 20 76 65 63 29 29 0a 20 20 20 dirvish-tramp--async-p.vec))....
2b20 20 20 20 20 20 27 28 69 6e 66 6f 20 2e 20 22 46 69 6c 65 20 70 72 65 76 69 65 77 20 69 73 20 6e .....'(info..."File.preview.is.n
2b40 6f 74 20 73 75 70 70 6f 72 74 65 64 20 69 6e 20 63 75 72 72 65 6e 74 20 63 6f 6e 6e 65 63 74 69 ot.supported.in.current.connecti
2b60 6f 6e 22 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 on").......(let.((process-connec
2b80 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 tion-type.nil).............(loca
2ba0 6c 6e 61 6d 65 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 66 69 6c 65 20 27 6c 6f 63 61 6c lname.(file-remote-p.file.'local
2bc0 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 20 28 64 69 72 76 69 73 68 name)).............(buf.(dirvish
2be0 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 69 65 77 20 64 76 20 6e 69 6c 20 74 29 --util-buffer.'preview.dv.nil.t)
2c00 29 20 70 72 6f 63 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 70 72 6f 63 ).proc).........(when-let.((proc
2c20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 62 75 66 29 29 29 20 28 64 65 6c .(get-buffer-process.buf))).(del
2c40 65 74 65 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 ete-process.proc)).........(setq
2c60 20 70 72 6f 63 20 28 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 73 73 2d 73 68 65 6c 6c 2d .proc.(start-file-process-shell-
2c80 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 command.....................(buf
2ca0 66 65 72 2d 6e 61 6d 65 20 62 75 66 29 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 fer-name.buf).buf...............
2cc0 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 70 72 65 76 ......(format.dirvish-tramp-prev
2ce0 69 65 77 2d 63 6d 64 20 6c 6f 63 61 6c 6e 61 6d 65 20 6c 6f 63 61 6c 6e 61 6d 65 29 29 29 0a 20 iew-cmd.localname.localname)))..
2d00 20 20 20 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 .......(set-process-sentinel....
2d20 20 20 20 20 20 20 70 72 6f 63 20 28 6c 61 6d 62 64 61 20 28 70 72 6f 63 20 5f 73 69 67 29 0a 20 ......proc.(lambda.(proc._sig)..
2d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6d 65 6d 71 20 28 70 72 6f 63 ...............(when.(memq.(proc
2d60 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 29 20 27 28 65 78 69 74 20 73 69 67 6e 61 6c 29 29 ess-status.proc).'(exit.signal))
2d80 0a 20 20 20 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 ...................(shell-comman
2da0 64 2d 73 65 74 2d 70 6f 69 6e 74 2d 61 66 74 65 72 2d 63 6d 64 20 28 70 72 6f 63 65 73 73 2d 62 d-set-point-after-cmd.(process-b
2dc0 75 66 66 65 72 20 70 72 6f 63 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f uffer.proc))))).........(set-pro
2de0 63 65 73 73 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 70 72 6f 63 20 28 6c 61 6d 62 64 cess-filter..........proc.(lambd
2e00 61 20 28 70 72 6f 63 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 a.(proc.str).................(wi
2e20 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
2e40 72 20 70 72 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 64 61 r.proc)...................(funda
2e60 6d 65 6e 74 61 6c 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 28 mental-mode)...................(
2e80 69 6e 73 65 72 74 20 73 74 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 60 28 62 75 66 66 65 72 20 insert.str)))).........`(buffer.
2ea0 2e 20 2c 62 75 66 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 69 6e 64 ..,buf)))))..(defun.dirvish-find
2ec0 2d 66 69 6c 65 2d 74 72 75 65 2d 70 61 74 68 20 28 29 0a 20 20 22 4f 70 65 6e 20 74 72 75 65 6e -file-true-path.()..."Open.truen
2ee0 61 6d 65 20 6f 66 20 28 6d 61 79 62 65 29 20 73 79 6d 6c 69 6e 6b 20 66 69 6c 65 20 75 6e 64 65 ame.of.(maybe).symlink.file.unde
2f00 72 20 74 68 65 20 63 75 72 73 6f 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 r.the.cursor."...(interactive)..
2f20 20 28 64 69 72 65 64 2d 6a 75 6d 70 20 6e 69 6c 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 .(dired-jump.nil.(file-truename.
2f40 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 29 0a 0a 28 (dired-get-filename.nil.t))))..(
2f60 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 61 6e 64 2d 65 63 68 6f 20 28 73 74 defun.dirvish--kill-and-echo.(st
2f80 72 69 6e 67 29 0a 20 20 22 45 63 68 6f 20 6c 61 73 74 20 6b 69 6c 6c 65 64 20 53 54 52 49 4e 47 ring)..."Echo.last.killed.STRING
2fa0 2e 22 0a 20 20 28 6b 69 6c 6c 2d 6e 65 77 20 73 74 72 69 6e 67 29 0a 20 20 28 6c 65 74 20 28 28 ."...(kill-new.string)...(let.((
2fc0 68 69 6e 74 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 hint.(propertize................
2fe0 22 43 6f 70 69 65 64 3a 20 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 69 6c "Copied:.".'face.'font-lock-buil
3000 74 69 6e 2d 66 61 63 65 29 29 29 0a 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 66 tin-face))).....(message."%s".(f
3020 6f 72 6d 61 74 20 22 25 73 25 73 22 20 68 69 6e 74 20 73 74 72 69 6e 67 29 29 29 29 0a 0a 28 64 ormat."%s%s".hint.string))))..(d
3040 65 66 75 6e 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 74 72 75 65 2d 70 61 74 68 efun.dirvish-copy-file-true-path
3060 20 28 29 0a 20 20 22 43 6f 70 79 20 74 72 75 65 6e 61 6d 65 20 6f 66 20 28 6d 61 79 62 65 29 20 .()..."Copy.truename.of.(maybe).
3080 73 79 6d 6c 69 6e 6b 20 66 69 6c 65 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 2e 22 0a symlink.file.under.the.cursor.".
30a0 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c ..(interactive)...(dirvish--kill
30c0 2d 61 6e 64 2d 65 63 68 6f 0a 20 20 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 20 28 64 69 72 -and-echo....(file-truename.(dir
30e0 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 29 0a 0a 3b 3b 3b 23 23 ed-get-filename.nil.t))))..;;;##
3100 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 #autoload.(defun.dirvish-copy-fi
3120 6c 65 2d 6e 61 6d 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 75 6c 74 69 2d 6c 69 6e 65 29 0a 20 le-name.(&optional.multi-line)..
3140 20 22 43 6f 70 79 20 66 69 6c 65 6e 61 6d 65 20 6f 66 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 2e ."Copy.filename.of.marked.files.
3160 0a 49 66 20 4d 55 4c 54 49 2d 4c 49 4e 45 2c 20 6d 61 6b 65 20 65 76 65 72 79 20 6e 61 6d 65 20 .If.MULTI-LINE,.make.every.name.
3180 6f 63 63 75 70 79 20 61 20 6e 65 77 20 6c 69 6e 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 occupy.a.new.line."...(interacti
31a0 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 73 20 28 64 69 72 65 64 2d 67 ve."P")...(let*.((files.(dired-g
31c0 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 et-marked-files.t))..........(na
31e0 6d 65 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 66 69 6c 65 73 20 28 69 mes.(mapconcat.#'concat.files.(i
3200 66 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 22 5c 6e 22 20 22 20 22 29 29 29 29 0a 20 20 20 20 28 64 f.multi-line."\n".".")))).....(d
3220 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 61 6e 64 2d 65 63 68 6f 20 28 69 66 20 6d 75 6c 74 69 2d irvish--kill-and-echo.(if.multi-
3240 6c 69 6e 65 20 28 63 6f 6e 63 61 74 20 22 5c 6e 22 20 6e 61 6d 65 73 29 20 6e 61 6d 65 73 29 29 line.(concat."\n".names).names))
3260 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 64 69 72 76 69 73 ))..;;;###autoload.(defun.dirvis
3280 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 70 61 74 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 75 6c 74 h-copy-file-path.(&optional.mult
32a0 69 2d 6c 69 6e 65 29 0a 20 20 22 43 6f 70 79 20 66 69 6c 65 70 61 74 68 20 6f 66 20 6d 61 72 6b i-line)..."Copy.filepath.of.mark
32c0 65 64 20 66 69 6c 65 73 2e 0a 49 66 20 4d 55 4c 54 49 2d 4c 49 4e 45 2c 20 6d 61 6b 65 20 65 76 ed.files..If.MULTI-LINE,.make.ev
32e0 65 72 79 20 70 61 74 68 20 6f 63 63 75 70 79 20 61 20 6e 65 77 20 6c 69 6e 65 2e 22 0a 20 20 28 ery.path.occupy.a.new.line."...(
3300 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 73 interactive."P")...(let*.((files
3320 20 28 6d 61 70 63 61 72 20 23 27 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 28 64 69 72 65 .(mapcar.#'file-local-name.(dire
3340 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 d-get-marked-files)))..........(
3360 6e 61 6d 65 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 66 69 6c 65 73 20 names.(mapconcat.#'concat.files.
3380 28 69 66 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 22 5c 6e 22 20 22 20 22 29 29 29 29 0a 20 20 20 20 (if.multi-line."\n".".")))).....
33a0 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 61 6e 64 2d 65 63 68 6f 20 28 69 66 20 6d 75 6c 74 (dirvish--kill-and-echo.(if.mult
33c0 69 2d 6c 69 6e 65 20 28 63 6f 6e 63 61 74 20 22 5c 6e 22 20 6e 61 6d 65 73 29 20 6e 61 6d 65 73 i-line.(concat."\n".names).names
33e0 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 72 65 6d 6f 74 65 ))))..(defun.dirvish-copy-remote
3400 2d 70 61 74 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6d 75 6c 74 69 2d 6c 69 6e 65 29 0a 20 20 22 -path.(&optional.multi-line)..."
3420 43 6f 70 79 20 72 65 6d 6f 74 65 20 70 61 74 68 20 6f 66 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 Copy.remote.path.of.marked.files
3440 2e 0a 49 66 20 4d 55 4c 54 49 2d 4c 49 4e 45 2c 20 6d 61 6b 65 20 65 76 65 72 79 20 70 61 74 68 ..If.MULTI-LINE,.make.every.path
3460 20 6f 63 63 75 70 79 20 61 20 6e 65 77 20 6c 69 6e 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 .occupy.a.new.line."...(interact
3480 69 76 65 20 22 50 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 74 72 61 6d 70 20 28 6f 72 20 28 64 69 ive."P")...(let*.((tramp.(or.(di
34a0 72 76 69 73 68 2d 70 72 6f 70 20 3a 74 72 61 6d 70 29 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 rvish-prop.:tramp).(user-error."
34c0 4e 6f 74 20 61 20 72 65 6d 6f 74 65 20 66 6f 6c 64 65 72 22 29 29 29 0a 20 20 20 20 20 20 20 20 Not.a.remote.folder"))).........
34e0 20 28 66 69 6c 65 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 69 6c 65 20 69 6e 20 28 64 69 .(files.(cl-loop.for.file.in.(di
3500 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 red-get-marked-files)...........
3520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 75 73 65 72 20 3d 20 28 74 72 61 6d 70 ...............for.user.=.(tramp
3540 2d 66 69 6c 65 2d 6e 61 6d 65 2d 75 73 65 72 20 74 72 61 6d 70 29 0a 20 20 20 20 20 20 20 20 20 -file-name-user.tramp)..........
3560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 68 6f 73 74 20 3d 20 28 74 72 61 6d ................for.host.=.(tram
3580 70 2d 66 69 6c 65 2d 6e 61 6d 65 2d 68 6f 73 74 20 74 72 61 6d 70 29 0a 20 20 20 20 20 20 20 20 p-file-name-host.tramp).........
35a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 6f 63 61 6c 6e 61 6d 65 20 3d .................for.localname.=
35c0 20 28 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 .(file-local-name.file).........
35e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 66 6f 72 6d 61 74 .................collect.(format
3600 20 22 25 73 25 73 25 73 3a 25 73 22 20 28 6f 72 20 75 73 65 72 20 22 22 29 0a 20 20 20 20 20 20 ."%s%s%s:%s".(or.user."").......
3620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3640 20 20 20 28 69 66 20 75 73 65 72 20 22 40 22 20 22 22 29 20 68 6f 73 74 20 6c 6f 63 61 6c 6e 61 ...(if.user."@"."").host.localna
3660 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 20 28 6d 61 70 63 6f 6e 63 61 74 me)))..........(names.(mapconcat
3680 20 23 27 63 6f 6e 63 61 74 20 66 69 6c 65 73 20 28 69 66 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 22 .#'concat.files.(if.multi-line."
36a0 5c 6e 22 20 22 20 22 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 61 \n".".")))).....(dirvish--kill-a
36c0 6e 64 2d 65 63 68 6f 20 28 69 66 20 6d 75 6c 74 69 2d 6c 69 6e 65 20 28 63 6f 6e 63 61 74 20 22 nd-echo.(if.multi-line.(concat."
36e0 5c 6e 22 20 6e 61 6d 65 73 29 20 6e 61 6d 65 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 \n".names).names))))..(defun.dir
3700 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 43 vish-copy-file-directory.()..."C
3720 6f 70 79 20 64 69 72 65 63 74 6f 72 79 20 6e 61 6d 65 20 6f 66 20 66 69 6c 65 20 75 6e 64 65 72 opy.directory.name.of.file.under
3740 20 74 68 65 20 63 75 72 73 6f 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 .the.cursor."...(interactive)...
3760 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 61 6e 64 2d 65 63 68 6f 0a 20 20 20 28 65 78 70 61 (dirvish--kill-and-echo....(expa
3780 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))
37a0 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 64 69 72 76 69 73 68 )..;;;###autoload.(defun.dirvish
37c0 2d 74 6f 74 61 6c 2d 66 69 6c 65 2d 73 69 7a 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 69 6c 65 -total-file-size.(&optional.file
37e0 73 65 74 29 0a 20 20 22 45 63 68 6f 20 74 6f 74 61 6c 20 66 69 6c 65 20 73 69 7a 65 20 6f 66 20 set)..."Echo.total.file.size.of.
3800 46 49 4c 45 53 45 54 2e 0a 46 49 4c 45 53 45 54 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 FILESET..FILESET.defaults.to.`di
3820 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 27 2e 22 0a 20 20 28 69 6e 74 65 72 red-get-marked-files'."...(inter
3840 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 66 2d 6e 61 6d 65 20 28 66 active)...(cl-labels.((f-name.(f
3860 29 20 28 69 66 20 28 6e 6f 74 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 29 29 ).(if.(not.(file-directory-p.f))
3880 20 66 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 .f..............................
38a0 20 28 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 20 66 20 .(directory-files-recursively.f.
38c0 22 2e 2a 22 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 73 ".*".nil.t)))...............(f-s
38e0 69 7a 65 20 28 66 29 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 ize.(f).(condition-case.nil.....
3900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d ..........................(file-
3920 61 74 74 72 69 62 75 74 65 2d 73 69 7a 65 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 attribute-size.(file-attributes.
3940 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f)).............................
3960 28 66 69 6c 65 2d 65 72 72 6f 72 20 30 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 66 69 (file-error.0)))).....(let*.((fi
3980 6c 65 73 65 74 20 28 6f 72 20 66 69 6c 65 73 65 74 20 28 64 69 72 65 64 2d 67 65 74 2d 6d 61 72 leset.(or.fileset.(dired-get-mar
39a0 6b 65 64 2d 66 69 6c 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 75 6e 74 20 28 ked-files)))............(count.(
39c0 70 72 6f 70 65 72 74 69 7a 65 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 6c 65 propertize.(number-to-string.(le
39e0 6e 67 74 68 20 66 69 6c 65 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ngth.fileset))..................
3a00 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 .............'face.'font-lock-bu
3a20 69 6c 74 69 6e 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 69 7a 65 20 28 74 iltin-face))............(size.(t
3a40 68 72 65 61 64 2d 6c 61 73 74 20 66 69 6c 65 73 65 74 20 28 6d 61 70 63 61 72 20 23 27 66 2d 6e hread-last.fileset.(mapcar.#'f-n
3a60 61 6d 65 29 20 66 6c 61 74 74 65 6e 2d 74 72 65 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ame).flatten-tree...............
3a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 66 2d 73 69 7a 65 ................(mapcar.#'f-size
3aa0 29 20 28 63 6c 2d 72 65 64 75 63 65 20 23 27 2b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).(cl-reduce.#'+)...............
3ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d ................file-size-human-
3ae0 72 65 61 64 61 62 6c 65 29 29 29 0a 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 readable))).......(message."%s".
3b00 28 66 6f 72 6d 61 74 20 22 54 6f 74 61 6c 20 73 69 7a 65 20 6f 66 20 25 73 20 65 6e 74 72 69 65 (format."Total.size.of.%s.entrie
3b20 73 3a 20 25 73 22 20 63 6f 75 6e 74 20 73 69 7a 65 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 s:.%s".count.size)))))..;;;###au
3b40 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 74 6f 67 toload.(defun.dirvish-layout-tog
3b60 67 6c 65 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 6c 61 79 6f 75 74 20 6f 66 20 63 75 72 72 65 gle.()..."Toggle.layout.of.curre
3b80 6e 74 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 2e 0a 41 20 73 65 73 73 69 6f 6e 20 77 69 nt.Dirvish.session..A.session.wi
3ba0 74 68 20 6c 61 79 6f 75 74 20 6d 65 61 6e 73 20 69 74 20 68 61 73 20 61 20 63 6f 6d 70 61 6e 69 th.layout.means.it.has.a.compani
3bc0 6f 6e 20 70 72 65 76 69 65 77 20 77 69 6e 64 6f 77 20 61 6e 64 0a 70 6f 73 73 69 62 6c 79 20 6f on.preview.window.and.possibly.o
3be0 6e 65 20 6f 72 20 6d 6f 72 65 20 70 61 72 65 6e 74 20 77 69 6e 64 6f 77 73 2e 22 0a 20 20 28 69 ne.or.more.parent.windows."...(i
3c00 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 76 20 28 6f 72 20 28 64 69 nteractive)...(let*.((dv.(or.(di
3c20 72 76 69 73 68 2d 63 75 72 72 29 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 64 rvish-curr).(user-error."Not.a.d
3c40 69 72 76 69 73 68 20 62 75 66 66 65 72 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 6c 64 2d irvish.buffer")))..........(old-
3c60 6c 61 79 6f 75 74 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 0a 20 20 20 layout.(car.(dv-layout.dv)))....
3c80 20 20 20 20 20 20 28 6e 65 77 2d 6c 61 79 6f 75 74 20 28 75 6e 6c 65 73 73 20 6f 6c 64 2d 6c 61 ......(new-layout.(unless.old-la
3ca0 79 6f 75 74 20 28 63 64 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 29 0a 20 20 20 20 yout.(cdr.(dv-layout.dv)))).....
3cc0 20 20 20 20 20 28 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 .....(buf.(current-buffer)))....
3ce0 20 28 69 66 20 6f 6c 64 2d 6c 61 79 6f 75 74 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 .(if.old-layout.(set-window-conf
3d00 69 67 75 72 61 74 69 6f 6e 20 28 64 76 2d 77 69 6e 63 6f 6e 66 20 64 76 29 29 0a 20 20 20 20 20 iguration.(dv-winconf.dv))......
3d20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 64 76 2d 72 6f 6f 74 2d .(with-selected-window.(dv-root-
3d40 77 69 6e 64 6f 77 20 64 76 29 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 window.dv).(quit-window))).....(
3d60 73 65 74 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 20 6e 65 77 2d 6c 61 79 6f 75 74 setcar.(dv-layout.dv).new-layout
3d80 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 64 69 72 ).....(with-selected-window.(dir
3da0 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 0a 20 20 20 vish--create-root-window.dv)....
3dc0 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 ...(switch-to-buffer.buf).......
3de0 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 64 76 29 29 29 29 0a 0a 3b (dirvish--init-session.dv))))..;
3e00 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6c 61 79 ;;###autoload.(defun.dirvish-lay
3e20 6f 75 74 2d 73 77 69 74 63 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 63 69 70 65 29 0a 20 20 out-switch.(&optional.recipe)...
3e40 22 53 77 69 74 63 68 20 44 69 72 76 69 73 68 20 6c 61 79 6f 75 74 20 61 63 63 6f 72 64 69 6e 67 "Switch.Dirvish.layout.according
3e60 20 74 6f 20 52 45 43 49 50 45 2e 0a 49 66 20 52 45 43 49 50 45 20 69 73 20 6e 6f 74 20 70 72 6f .to.RECIPE..If.RECIPE.is.not.pro
3e80 76 69 64 65 64 2c 20 73 77 69 74 63 68 20 74 6f 20 74 68 65 20 72 65 63 69 70 65 20 6e 65 78 74 vided,.switch.to.the.recipe.next
3ea0 20 74 6f 20 74 68 65 0a 63 75 72 72 65 6e 74 20 6c 61 79 6f 75 74 20 64 65 66 69 6e 65 64 20 69 .to.the.current.layout.defined.i
3ec0 6e 20 60 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 72 65 63 69 70 65 73 27 2e 22 0a 20 20 28 n.`dirvish-layout-recipes'."...(
3ee0 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 77 69 74 68 20 interactive)...(cl-loop....with.
3f00 64 76 20 3d 20 28 6c 65 74 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a dv.=.(let.((dv.(dirvish-curr))).
3f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 64 76 20 28 75 73 65 72 2d ...............(unless.dv.(user-
3f40 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 22 error."Not.in.a.Dirvish.session"
3f60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 63 61 72 20 28 ))................(unless.(car.(
3f80 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dv-layout.dv))..................
3fa0 28 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 74 6f 67 67 6c 65 29 0a 20 20 20 20 20 20 20 20 (dirvish-layout-toggle).........
3fc0 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 3a 20 65 .........(user-error."Dirvish:.e
3fe0 6e 74 65 72 69 6e 67 20 66 75 6c 6c 73 63 72 65 65 6e 22 29 29 20 64 76 29 0a 20 20 20 77 69 74 ntering.fullscreen")).dv)....wit
4000 68 20 6f 6c 64 2d 72 65 63 69 70 65 20 3d 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 h.old-recipe.=.(car.(dv-layout.d
4020 76 29 29 0a 20 20 20 77 69 74 68 20 72 65 63 69 70 65 73 20 3d 20 28 69 66 20 72 65 63 69 70 65 v))....with.recipes.=.(if.recipe
4040 20 28 6c 69 73 74 20 72 65 63 69 70 65 29 20 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 72 65 .(list.recipe).dirvish-layout-re
4060 63 69 70 65 73 29 0a 20 20 20 77 69 74 68 20 6c 2d 6c 65 6e 67 74 68 20 3d 20 28 6c 65 6e 67 74 cipes)....with.l-length.=.(lengt
4080 68 20 72 65 63 69 70 65 73 29 0a 20 20 20 66 6f 72 20 69 64 78 20 66 72 6f 6d 20 31 0a 20 20 20 h.recipes)....for.idx.from.1....
40a0 66 6f 72 20 72 65 63 69 70 65 20 69 6e 20 72 65 63 69 70 65 73 0a 20 20 20 77 68 65 6e 20 28 6f for.recipe.in.recipes....when.(o
40c0 72 20 28 65 71 20 69 64 78 20 6c 2d 6c 65 6e 67 74 68 29 20 28 65 71 75 61 6c 20 6f 6c 64 2d 72 r.(eq.idx.l-length).(equal.old-r
40e0 65 63 69 70 65 20 72 65 63 69 70 65 29 29 0a 20 20 20 72 65 74 75 72 6e 0a 20 20 20 28 6c 65 74 ecipe.recipe))....return....(let
4100 2a 20 28 28 6e 65 77 2d 69 64 78 20 28 69 66 20 28 3e 20 69 64 78 20 28 31 2d 20 6c 2d 6c 65 6e *.((new-idx.(if.(>.idx.(1-.l-len
4120 67 74 68 29 29 20 30 20 69 64 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 72 65 63 gth)).0.idx))...........(new-rec
4140 69 70 65 20 28 6e 74 68 20 6e 65 77 2d 69 64 78 20 72 65 63 69 70 65 73 29 29 29 0a 20 20 20 20 ipe.(nth.new-idx.recipes))).....
4160 20 28 73 65 74 66 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 20 28 63 6f 6e 73 20 6e 65 77 2d .(setf.(dv-layout.dv).(cons.new-
4180 72 65 63 69 70 65 20 6e 65 77 2d 72 65 63 69 70 65 29 29 0a 20 20 20 20 20 28 64 69 72 76 69 73 recipe.new-recipe))......(dirvis
41a0 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 64 76 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 h--init-session.dv))))..(defun.d
41c0 69 72 76 69 73 68 2d 72 65 6e 61 6d 65 2d 73 70 61 63 65 2d 74 6f 2d 75 6e 64 65 72 73 63 6f 72 irvish-rename-space-to-underscor
41e0 65 20 28 29 0a 20 20 22 52 65 6e 61 6d 65 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 62 79 20 72 e.()..."Rename.marked.files.by.r
4200 65 70 6c 61 63 69 6e 67 20 73 70 61 63 65 20 74 6f 20 75 6e 64 65 72 73 63 6f 72 65 2e 22 0a 20 eplacing.space.to.underscore."..
4220 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 64 69 72 65 64 .(interactive)...(require.'dired
4240 2d 61 75 78 29 0a 20 20 28 69 66 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 64 69 72 -aux)...(if.(derived-mode-p.'dir
4260 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6d 61 72 6b 65 64 46 69 6c 65 ed-mode).......(let.((markedFile
4280 73 20 28 64 69 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 20 29 29 29 0a 20 20 s.(dired-get-marked-files.)))...
42a0 20 20 20 20 20 20 28 6d 61 70 63 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 20 ......(mapc.(lambda.(x).........
42c0 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 20 22 20 ........(when.(string-match.".".
42e0 78 20 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 72 65 6e x.)...................(dired-ren
4300 61 6d 65 2d 66 69 6c 65 20 78 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 ame-file.x.(replace-regexp-in-st
4320 72 69 6e 67 20 22 20 22 20 22 5f 22 20 78 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 ring."."."_".x).nil)))..........
4340 20 20 20 20 20 6d 61 72 6b 65 64 46 69 6c 65 73 29 0a 20 20 20 20 20 20 20 20 28 72 65 76 65 72 .....markedFiles).........(rever
4360 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 74 20 t-buffer)).....(user-error."Not.
4380 69 6e 20 61 20 44 69 72 65 64 20 62 75 66 66 65 72 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 in.a.Dired.buffer")))..(defun.di
43a0 72 76 69 73 68 2d 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 2d 61 73 2d 69 6e 66 6f 2d 73 74 72 69 rvish--marked-files-as-info-stri
43c0 6e 67 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 61 6c 6c 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 ng.()..."Return.all.marked.files
43e0 20 61 73 20 61 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 73 20 28 .as.a.string."...(let*.((files.(
4400 64 69 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 20 74 29 29 0a 20 20 20 20 20 dired-get-marked-files.t))......
4420 20 20 20 20 28 63 6f 75 6e 74 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 73 29 29 29 0a 20 20 20 20 ....(count.(length.files))).....
4440 28 63 6f 6e 64 20 28 28 3c 3d 20 63 6f 75 6e 74 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 (cond.((<=.count.1)............(
4460 66 6f 72 6d 61 74 20 22 63 75 72 72 65 6e 74 20 66 69 6c 65 3a 20 25 73 22 20 28 64 69 72 65 64 format."current.file:.%s".(dired
4480 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 74 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 -get-filename.t.t)))...........(
44a0 28 3c 3d 20 63 6f 75 6e 74 20 31 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 (<=.count.10)............(format
44c0 20 22 6d 61 72 6b 65 64 20 66 69 6c 65 73 3a 5c 6e 20 20 25 73 22 20 28 6d 61 70 63 6f 6e 63 61 ."marked.files:\n..%s".(mapconca
44e0 74 20 23 27 63 6f 6e 63 61 74 20 66 69 6c 65 73 20 22 5c 6e 20 20 22 29 29 29 0a 20 20 20 20 20 t.#'concat.files."\n..")))......
4500 20 20 20 20 20 28 74 20 28 66 6f 72 6d 61 74 20 22 6d 61 72 6b 65 64 20 66 69 6c 65 73 3a 5c 6e .....(t.(format."marked.files:\n
4520 20 20 25 73 5c 6e 20 20 2e 2e 2e 20 61 6e 64 20 25 73 20 6d 6f 72 65 20 28 25 73 20 69 6e 20 74 ..%s\n......and.%s.more.(%s.in.t
4540 6f 74 61 6c 29 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 otal)"......................(map
4560 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 28 73 65 71 2d 74 61 6b 65 20 66 69 6c 65 73 20 concat.#'concat.(seq-take.files.
4580 31 30 29 20 22 5c 6e 20 20 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 10)."\n..").....................
45a0 20 28 2d 20 63 6f 75 6e 74 20 31 30 29 20 63 6f 75 6e 74 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 .(-.count.10).count)))))..;;;###
45c0 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 66 69 6c 65 autoload.(autoload.'dirvish-file
45e0 2d 69 6e 66 6f 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 22 20 6e 69 6c 20 -info-menu."dirvish-extras".nil.
4600 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 t).(transient-define-prefix.dirv
4620 69 73 68 2d 66 69 6c 65 2d 69 6e 66 6f 2d 6d 65 6e 75 20 28 29 0a 20 20 22 47 61 74 68 65 72 20 ish-file-info-menu.()..."Gather.
4640 66 69 6c 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 file.information."...[:descripti
4660 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 on....(lambda.().(dirvish--forma
4680 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 22 47 65 74 20 46 69 t-menu-heading..........."Get.Fi
46a0 6c 65 20 49 6e 66 6f 72 6d 61 74 69 6f 6e 22 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 le.Information"...........(dirvi
46c0 73 68 2d 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 2d 61 73 2d 69 6e 66 6f 2d 73 74 72 69 6e 67 29 sh--marked-files-as-info-string)
46e0 29 29 0a 20 20 20 28 22 6e 22 20 20 20 22 43 6f 70 79 20 66 69 6c 65 20 4e 41 4d 45 73 20 69 6e ))....("n"..."Copy.file.NAMEs.in
4700 20 6f 6e 65 20 6c 69 6e 65 20 3c 6e 3e 20 2f 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 73 20 3c .one.line.<n>./.multiple.lines.<
4720 43 2d 75 20 6e 3e 22 0a 20 20 20 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 6e 61 C-u.n>".....dirvish-copy-file-na
4740 6d 65 29 0a 20 20 20 28 22 70 22 20 20 20 22 43 6f 70 79 20 66 69 6c 65 20 50 41 54 48 73 20 69 me)....("p"..."Copy.file.PATHs.i
4760 6e 20 6f 6e 65 20 6c 69 6e 65 20 3c 70 3e 20 2f 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e 65 73 20 n.one.line.<p>./.multiple.lines.
4780 3c 43 2d 75 20 70 3e 22 0a 20 20 20 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 70 <C-u.p>".....dirvish-copy-file-p
47a0 61 74 68 29 0a 20 20 20 28 22 50 22 20 20 20 22 43 6f 70 79 20 72 65 6d 6f 74 65 20 50 41 54 48 ath)....("P"..."Copy.remote.PATH
47c0 73 20 69 6e 20 6f 6e 65 20 6c 69 6e 65 20 3c 50 3e 20 2f 20 6d 75 6c 74 69 70 6c 65 20 6c 69 6e s.in.one.line.<P>./.multiple.lin
47e0 65 73 20 3c 43 2d 75 20 50 3e 22 0a 20 20 20 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 72 65 6d es.<C-u.P>".....dirvish-copy-rem
4800 6f 74 65 2d 70 61 74 68 0a 20 20 20 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 ote-path.....:if.(lambda.().(dir
4820 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 29 0a 20 20 20 28 22 64 22 20 20 20 22 vish-prop.:remote)))....("d"..."
4840 43 6f 70 79 20 66 69 6c 65 20 44 49 52 45 43 54 4f 52 59 22 20 20 20 20 20 20 20 20 20 20 20 20 Copy.file.DIRECTORY"............
4860 20 20 20 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 29 ....dirvish-copy-file-directory)
4880 0a 20 20 20 28 22 6c 22 20 20 20 22 43 6f 70 79 20 73 79 6d 6c 69 6e 6b 27 73 20 74 72 75 65 6e ....("l"..."Copy.symlink's.truen
48a0 61 6d 65 22 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 63 6f 70 79 2d 66 69 6c ame"............dirvish-copy-fil
48c0 65 2d 74 72 75 65 2d 70 61 74 68 0a 20 20 20 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 28 e-true-path.....:if.(lambda.().(
48e0 66 69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 file-symlink-p.(dired-get-filena
4900 6d 65 20 6e 69 6c 20 74 29 29 29 29 0a 20 20 20 28 22 4c 22 20 20 20 22 47 6f 20 74 6f 20 73 79 me.nil.t))))....("L"..."Go.to.sy
4920 6d 6c 69 6e 6b 27 73 20 74 72 75 65 6e 61 6d 65 22 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 mlink's.truename"...........dirv
4940 69 73 68 2d 66 69 6e 64 2d 66 69 6c 65 2d 74 72 75 65 2d 70 61 74 68 0a 20 20 20 20 3a 69 66 20 ish-find-file-true-path.....:if.
4960 28 6c 61 6d 62 64 61 20 28 29 20 28 66 69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 20 28 64 69 72 65 (lambda.().(file-symlink-p.(dire
4980 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 29 0a 20 20 20 28 22 73 22 d-get-filename.nil.t))))....("s"
49a0 20 20 20 22 47 65 74 20 74 6f 74 61 6c 20 73 69 7a 65 20 6f 66 20 6d 61 72 6b 65 64 20 66 69 6c ..."Get.total.size.of.marked.fil
49c0 65 73 22 20 20 20 20 20 64 69 72 76 69 73 68 2d 74 6f 74 61 6c 2d 66 69 6c 65 2d 73 69 7a 65 29 es".....dirvish-total-file-size)
49e0 0a 20 20 20 28 22 74 22 20 20 20 22 53 68 6f 77 20 66 69 6c 65 20 54 59 50 45 22 20 20 20 20 20 ....("t"..."Show.file.TYPE".....
4a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 68 6f 77 2d 66 69 6c 65 2d ................dired-show-file-
4a20 74 79 70 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 type)])..(transient-define-prefi
4a40 78 20 64 69 72 76 69 73 68 2d 73 75 62 64 69 72 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 65 6c 70 x.dirvish-subdir-menu.()..."Help
4a60 20 4d 65 6e 75 20 66 6f 72 20 44 69 72 65 64 20 73 75 62 64 69 72 20 6d 61 6e 61 67 65 6d 65 6e .Menu.for.Dired.subdir.managemen
4a80 74 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 t."...[:description....(lambda.(
4aa0 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 ).(dirvish--format-menu-heading.
4ac0 22 4d 61 6e 61 67 65 20 73 75 62 64 69 72 73 22 29 29 0a 20 20 20 28 22 69 22 20 22 20 20 49 6e "Manage.subdirs"))....("i"."..In
4ae0 73 65 72 74 20 73 75 62 64 69 72 22 20 20 20 20 64 69 72 65 64 2d 6d 61 79 62 65 2d 69 6e 73 65 sert.subdir"....dired-maybe-inse
4b00 72 74 2d 73 75 62 64 69 72 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 6b 22 20 rt-subdir.:transient.t)....("k".
4b20 22 20 20 4b 69 6c 6c 20 73 75 62 64 69 72 22 20 20 20 20 20 20 64 69 72 65 64 2d 6b 69 6c 6c 2d "..Kill.subdir"......dired-kill-
4b40 73 75 62 64 69 72 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 6e 22 20 22 20 20 subdir.:transient.t)....("n"."..
4b60 4e 65 78 74 20 73 75 62 64 69 72 22 20 20 20 20 20 20 64 69 72 65 64 2d 6e 65 78 74 2d 73 75 62 Next.subdir"......dired-next-sub
4b80 64 69 72 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 70 22 20 22 20 20 50 72 65 dir.:transient.t)....("p"."..Pre
4ba0 76 20 73 75 62 64 69 72 22 20 20 20 20 20 20 64 69 72 65 64 2d 70 72 65 76 2d 73 75 62 64 69 72 v.subdir"......dired-prev-subdir
4bc0 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 6a 22 20 22 20 20 4a 75 6d 70 20 74 .:transient.t)....("j"."..Jump.t
4be0 6f 20 73 75 62 64 69 72 22 20 20 20 64 69 72 65 64 2d 67 6f 74 6f 2d 73 75 62 64 69 72 29 0a 20 o.subdir"...dired-goto-subdir)..
4c00 20 20 28 22 24 22 20 22 20 20 48 69 64 65 20 73 75 62 64 69 72 22 20 20 20 20 20 20 64 69 72 65 ..("$"."..Hide.subdir"......dire
4c20 64 2d 68 69 64 65 2d 73 75 62 64 69 72 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 d-hide-subdir.:transient.t)....(
4c40 22 4d 2d 24 22 20 22 48 69 64 65 20 61 6c 6c 20 73 75 62 64 69 72 73 22 20 64 69 72 65 64 2d 68 "M-$"."Hide.all.subdirs".dired-h
4c60 69 64 65 2d 61 6c 6c 29 5d 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f ide-all)])..;;;###autoload.(auto
4c80 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 63 68 78 78 78 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 load.'dirvish-chxxx-menu."dirvis
4ca0 68 2d 65 78 74 72 61 73 22 20 6e 69 6c 20 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 h-extras".nil.t).(transient-defi
4cc0 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 63 68 78 78 78 2d 6d 65 6e 75 20 28 29 0a ne-prefix.dirvish-chxxx-menu.().
4ce0 20 20 22 48 65 6c 70 20 4d 65 6e 75 20 66 6f 72 20 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 20 .."Help.Menu.for.file.attribute.
4d00 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b 3a 64 65 73 63 modification.commands."...[:desc
4d20 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d ription....(lambda.().(dirvish--
4d40 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 4d 6f 64 69 66 79 20 66 69 6c 65 format-menu-heading."Modify.file
4d60 27 73 20 61 74 74 72 69 62 75 74 65 73 22 29 29 0a 20 20 20 28 22 67 22 20 20 20 22 43 68 61 6e 's.attributes"))....("g"..."Chan
4d80 67 65 20 66 69 6c 65 27 73 20 47 52 4f 55 50 22 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d ge.file's.GROUP"..........dired-
4da0 64 6f 2d 63 68 67 72 70 29 0a 20 20 20 28 22 6d 22 20 20 20 22 43 68 61 6e 67 65 20 66 69 6c 65 do-chgrp)....("m"..."Change.file
4dc0 27 73 20 4d 4f 44 45 22 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 63 68 6d 6f 's.MODE"...........dired-do-chmo
4de0 64 29 0a 20 20 20 28 22 6f 22 20 20 20 22 43 68 61 6e 67 65 20 66 69 6c 65 27 73 20 4f 57 4e 45 d)....("o"..."Change.file's.OWNE
4e00 52 22 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 63 68 6f 77 6e 29 0a 20 20 20 28 R"..........dired-do-chown)....(
4e20 22 74 22 20 20 20 22 43 68 61 6e 67 65 20 66 69 6c 65 27 73 20 54 49 4d 45 53 54 41 4d 50 22 20 "t"..."Change.file's.TIMESTAMP".
4e40 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 74 6f 75 63 68 29 0a 20 20 20 28 22 70 22 20 20 20 22 .....dired-do-touch)....("p"..."
4e60 43 68 61 6e 67 65 20 66 69 6c 65 27 73 20 50 41 54 48 22 20 20 20 20 20 20 20 20 20 20 20 64 69 Change.file's.PATH"...........di
4e80 72 65 64 2d 64 6f 2d 72 65 6e 61 6d 65 29 5d 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 red-do-rename)])..;;;###autoload
4ea0 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 6d 61 72 6b 2d 6d 65 6e 75 20 22 64 .(autoload.'dirvish-mark-menu."d
4ec0 69 72 76 69 73 68 2d 65 78 74 72 61 73 22 20 6e 69 6c 20 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 irvish-extras".nil.t).(transient
4ee0 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 6d 61 72 6b 2d 6d 65 6e 75 -define-prefix.dirvish-mark-menu
4f00 20 28 29 0a 20 20 22 48 65 6c 70 20 4d 65 6e 75 20 66 6f 72 20 60 64 69 72 65 64 2d 6d 61 72 6b .()..."Help.Menu.for.`dired-mark
4f20 2f 64 6f 2d 2a 27 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b 5b 22 4d 61 72 6b 20 6f 72 20 75 /do-*'.commands."...[["Mark.or.u
4f40 6e 6d 61 72 6b 20 66 69 6c 65 73 3a 22 0a 20 20 20 20 28 22 65 22 20 22 20 20 62 79 20 45 78 74 nmark.files:".....("e"."..by.Ext
4f60 65 6e 73 69 6f 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 6d 61 72 ension"................dired-mar
4f80 6b 2d 65 78 74 65 6e 73 69 6f 6e 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 k-extension.:transient.t).....("
4fa0 2a 22 20 22 20 20 62 79 20 52 65 67 65 78 70 20 28 66 69 6c 65 20 6e 61 6d 65 29 22 20 20 20 20 *"."..by.Regexp.(file.name)"....
4fc0 20 20 20 64 69 72 65 64 2d 6d 61 72 6b 2d 66 69 6c 65 73 2d 72 65 67 65 78 70 20 3a 74 72 61 6e ...dired-mark-files-regexp.:tran
4fe0 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 63 22 20 22 20 20 62 79 20 52 65 67 65 78 70 20 28 sient.t).....("c"."..by.Regexp.(
5000 66 69 6c 65 20 63 6f 6e 74 65 6e 74 29 22 20 20 20 20 64 69 72 65 64 2d 6d 61 72 6b 2d 66 69 6c file.content)"....dired-mark-fil
5020 65 73 2d 63 6f 6e 74 61 69 6e 69 6e 67 2d 72 65 67 65 78 70 20 3a 74 72 61 6e 73 69 65 6e 74 20 es-containing-regexp.:transient.
5040 74 29 0a 20 20 20 20 28 22 73 22 20 22 20 20 62 79 20 53 75 62 64 69 72 22 20 20 20 20 20 20 20 t).....("s"."..by.Subdir".......
5060 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 6d 61 72 6b 2d 73 75 62 64 69 72 2d 66 69 ............dired-mark-subdir-fi
5080 6c 65 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 78 22 20 22 20 20 62 79 les.:transient.t).....("x"."..by
50a0 20 45 78 65 63 75 74 61 62 6c 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 .Executable"...............dired
50c0 2d 6d 61 72 6b 2d 65 78 65 63 75 74 61 62 6c 65 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a -mark-executables.:transient.t).
50e0 20 20 20 20 28 22 2f 22 20 22 20 20 62 79 20 44 69 72 65 63 74 6f 72 79 22 20 20 20 20 20 20 20 ....("/"."..by.Directory".......
5100 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 6d 61 72 6b 2d 64 69 72 65 63 74 6f 72 69 65 73 20 .........dired-mark-directories.
5120 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 40 22 20 22 20 20 62 79 20 53 79 6d :transient.t).....("@"."..by.Sym
5140 6c 69 6e 6b 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 6d 61 72 link"..................dired-mar
5160 6b 2d 73 79 6d 6c 69 6e 6b 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 26 k-symlinks.:transient.t).....("&
5180 22 20 22 20 20 62 79 20 47 61 72 62 61 67 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "."..by.Garbage"................
51a0 20 20 64 69 72 65 64 2d 66 6c 61 67 2d 67 61 72 62 61 67 65 2d 66 69 6c 65 73 20 3a 74 72 61 6e ..dired-flag-garbage-files.:tran
51c0 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 23 22 20 22 20 20 62 79 20 41 75 74 6f 2d 73 61 76 sient.t).....("#"."..by.Auto-sav
51e0 65 64 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 66 6c 61 67 2d 61 75 74 ed"...............dired-flag-aut
5200 6f 2d 73 61 76 65 2d 66 69 6c 65 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 o-save-files.:transient.t).....(
5220 22 7e 22 20 22 20 20 62 79 20 42 61 63 6b 75 70 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "~"."..by.Backup"...............
5240 20 20 20 20 64 69 72 65 64 2d 66 6c 61 67 2d 62 61 63 6b 75 70 2d 66 69 6c 65 73 20 3a 74 72 61 ....dired-flag-backup-files.:tra
5260 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 2e 22 20 22 20 20 62 79 20 4e 75 6d 65 72 69 63 nsient.t).....("."."..by.Numeric
5280 61 6c 20 62 61 63 6b 75 70 22 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 63 6c 65 61 6e 2d 64 al.backup".........dired-clean-d
52a0 69 72 65 63 74 6f 72 79 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 75 22 20 irectory.:transient.t).....("u".
52c0 22 20 20 55 6e 6d 61 72 6b 20 74 68 69 73 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 20 20 20 "..Unmark.this.file"............
52e0 64 69 72 65 64 2d 75 6e 6d 61 72 6b 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 dired-unmark.:transient.t).....(
5300 22 44 45 4c 22 20 22 55 6e 6d 61 72 6b 20 61 6e 64 20 6d 6f 76 65 20 75 70 20 6c 69 6e 65 22 20 "DEL"."Unmark.and.move.up.line".
5320 20 20 20 20 64 69 72 65 64 2d 75 6e 6d 61 72 6b 2d 62 61 63 6b 77 61 72 64 20 3a 74 72 61 6e 73 ....dired-unmark-backward.:trans
5340 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 55 22 20 22 20 20 55 6e 6d 61 72 6b 20 61 6c 6c 20 66 ient.t).....("U"."..Unmark.all.f
5360 69 6c 65 73 22 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 75 6e 6d 61 72 6b 2d 61 6c iles"............dired-unmark-al
5380 6c 2d 66 69 6c 65 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 74 22 20 22 l-files.:transient.t).....("t"."
53a0 20 20 54 6f 67 67 6c 65 20 6d 61 72 6b 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ..Toggle.marks"................d
53c0 69 72 65 64 2d 74 6f 67 67 6c 65 2d 6d 61 72 6b 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a ired-toggle-marks.:transient.t).
53e0 20 20 20 20 28 22 6e 22 20 22 20 20 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 6d 61 72 6b 65 64 20 ....("n"."..Move.to.next.marked.
5400 66 69 6c 65 22 20 20 20 20 64 69 72 65 64 2d 6e 65 78 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 20 file"....dired-next-marked-file.
5420 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 20 28 22 70 22 20 22 20 20 4d 6f 76 65 20 74 :transient.t).....("p"."..Move.t
5440 6f 20 70 72 65 76 20 6d 61 72 6b 65 64 20 66 69 6c 65 22 20 20 20 20 64 69 72 65 64 2d 70 72 65 o.prev.marked.file"....dired-pre
5460 76 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 5d 0a 20 20 20 v-marked-file.:transient.t)]....
5480 5b 22 41 63 74 69 6f 6e 73 20 6f 6e 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 3a 22 0a 20 20 20 20 ["Actions.on.marked.files:".....
54a0 28 22 4f 22 20 20 20 22 4f 70 65 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ("O"..."Open"...................
54c0 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 66 69 6e 64 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 .....dired-do-find-marked-files)
54e0 0a 20 20 20 20 28 22 53 22 20 20 20 22 53 79 6d 6c 69 6e 6b 22 20 20 20 20 20 20 20 20 20 20 20 .....("S"..."Symlink"...........
5500 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 73 79 6d 6c 69 6e 6b 29 0a 20 20 20 20 ..........dired-do-symlink).....
5520 28 22 48 22 20 20 20 22 48 61 72 64 6c 69 6e 6b 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ("H"..."Hardlink"...............
5540 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 68 61 72 64 6c 69 6e 6b 29 0a 20 20 20 20 28 22 50 22 .....dired-do-hardlink).....("P"
5560 20 20 20 22 50 72 69 6e 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..."Print"......................
5580 20 64 69 72 65 64 2d 64 6f 2d 70 72 69 6e 74 29 0a 20 20 20 20 28 22 58 22 20 20 20 22 44 65 6c .dired-do-print).....("X"..."Del
55a0 65 74 65 20 66 6c 61 67 67 65 64 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d ete.flagged"..............dired-
55c0 64 6f 2d 66 6c 61 67 67 65 64 2d 64 65 6c 65 74 65 29 0a 20 20 20 20 28 22 72 22 20 20 20 22 53 do-flagged-delete).....("r"..."S
55e0 65 61 72 63 68 20 66 69 6c 65 20 63 6f 6e 74 65 6e 74 73 22 20 20 20 20 20 20 20 20 64 69 72 65 earch.file.contents"........dire
5600 64 2d 64 6f 2d 66 69 6e 64 2d 72 65 67 65 78 70 29 0a 20 20 20 20 28 22 52 22 20 20 20 22 52 65 d-do-find-regexp).....("R"..."Re
5620 70 6c 61 63 65 20 66 69 6c 65 20 63 6f 6e 74 65 6e 74 73 22 20 20 20 20 20 20 20 64 69 72 65 64 place.file.contents".......dired
5640 2d 64 6f 2d 66 69 6e 64 2d 72 65 67 65 78 70 2d 61 6e 64 2d 72 65 70 6c 61 63 65 29 0a 20 20 20 -do-find-regexp-and-replace)....
5660 20 28 22 42 22 20 20 20 22 42 79 74 65 20 63 6f 6d 70 69 6c 65 20 65 6c 69 73 70 22 20 20 20 20 .("B"..."Byte.compile.elisp"....
5680 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 29 0a 20 20 20 ......dired-do-byte-compile)....
56a0 20 28 22 4c 22 20 20 20 22 4c 6f 61 64 20 65 6c 69 73 70 22 20 20 20 20 20 20 20 20 20 20 20 20 .("L"..."Load.elisp"............
56c0 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 6c 6f 61 64 29 0a 20 20 20 20 28 22 7a 22 20 20 20 ......dired-do-load).....("z"...
56e0 22 43 6f 6d 70 72 65 73 73 20 74 6f 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 "Compress.to".................di
5700 72 65 64 2d 64 6f 2d 63 6f 6d 70 72 65 73 73 2d 74 6f 29 0a 20 20 20 20 28 22 5a 22 20 20 20 22 red-do-compress-to).....("Z"..."
5720 43 6f 6d 70 72 65 73 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 Compress"....................dir
5740 65 64 2d 64 6f 2d 63 6f 6d 70 72 65 73 73 29 0a 20 20 20 20 28 22 21 22 20 20 20 22 53 68 65 6c ed-do-compress).....("!"..."Shel
5760 6c 20 63 6f 6d 6d 61 6e 64 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 l.command"...............dired-d
5780 6f 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 28 22 26 22 20 20 20 22 41 73 79 o-shell-command).....("&"..."Asy
57a0 6e 63 20 73 68 65 6c 6c 20 63 6f 6d 6d 61 6e 64 22 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d nc.shell.command".........dired-
57c0 64 6f 2d 61 73 79 6e 63 2d 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 28 22 4e 22 do-async-shell-command).....("N"
57e0 20 20 20 22 45 63 68 6f 20 6e 75 6d 62 65 72 20 6f 66 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 22 ..."Echo.number.of.marked.files"
5800 20 64 69 72 65 64 2d 6e 75 6d 62 65 72 2d 6f 66 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 0a 20 .dired-number-of-marked-files)..
5820 20 20 20 28 22 41 22 20 20 20 22 4d 6f 64 69 66 79 20 66 69 6c 65 27 73 20 61 74 74 72 69 62 75 ...("A"..."Modify.file's.attribu
5840 74 65 73 22 20 20 20 20 64 69 72 76 69 73 68 2d 63 68 78 78 78 2d 6d 65 6e 75 29 0a 20 20 20 20 tes"....dirvish-chxxx-menu).....
5860 28 22 43 22 20 20 20 22 43 68 61 6e 67 65 20 6d 61 72 6b 20 74 79 70 65 22 20 20 20 20 20 20 20 ("C"..."Change.mark.type".......
5880 20 20 20 20 20 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 6d 61 72 6b 73 29 0a 20 20 20 20 28 22 6b .....dired-change-marks).....("k
58a0 22 20 20 20 22 4b 69 6c 6c 20 6c 69 6e 65 73 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 "..."Kill.lines"................
58c0 20 20 64 69 72 65 64 2d 64 6f 2d 6b 69 6c 6c 2d 6c 69 6e 65 73 29 5d 5d 0a 20 20 28 69 6e 74 65 ..dired-do-kill-lines)]]...(inte
58e0 72 61 63 74 69 76 65 29 0a 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 78 29 0a 20 20 ractive)...(require.'dired-x)...
5900 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 61 75 78 29 0a 20 20 28 74 72 61 6e 73 69 65 6e (require.'dired-aux)...(transien
5920 74 2d 73 65 74 75 70 20 27 64 69 72 76 69 73 68 2d 6d 61 72 6b 2d 6d 65 6e 75 29 29 0a 0a 28 74 t-setup.'dirvish-mark-menu))..(t
5940 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 72 ransient-define-prefix.dirvish-r
5960 65 6e 61 6d 69 6e 67 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 65 6c 70 20 4d 65 6e 75 20 66 6f 72 enaming-menu.()..."Help.Menu.for
5980 20 66 69 6c 65 20 72 65 6e 61 6d 69 6e 67 20 69 6e 20 44 69 72 65 64 2e 22 0a 20 20 5b 3a 64 65 .file.renaming.in.Dired."...[:de
59a0 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 scription....(lambda.().(dirvish
59c0 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 46 69 6c 65 20 72 65 6e 61 --format-menu-heading."File.rena
59e0 6d 69 6e 67 22 29 29 0a 20 20 20 28 22 75 22 20 20 20 22 55 70 70 65 72 2d 63 61 73 65 20 66 69 ming"))....("u"..."Upper-case.fi
5a00 6c 65 20 6e 61 6d 65 22 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 75 70 63 61 73 65 29 0a le.name"..........dired-upcase).
5a20 20 20 20 28 22 6c 22 20 20 20 22 4c 6f 77 65 72 2d 63 61 73 65 20 66 69 6c 65 20 6e 61 6d 65 22 ...("l"..."Lower-case.file.name"
5a40 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 6f 77 6e 63 61 73 65 29 0a 20 20 20 28 22 5f ..........dired-downcase)....("_
5a60 22 20 20 20 22 52 65 70 6c 61 63 65 20 53 50 43 20 77 69 74 68 20 55 4e 44 45 52 53 43 4f 52 45 "..."Replace.SPC.with.UNDERSCORE
5a80 22 20 20 20 64 69 72 76 69 73 68 2d 72 65 6e 61 6d 65 2d 73 70 61 63 65 2d 74 6f 2d 75 6e 64 65 "...dirvish-rename-space-to-unde
5aa0 72 73 63 6f 72 65 20 3a 69 66 2d 64 65 72 69 76 65 64 20 27 64 69 72 76 69 73 68 2d 6d 6f 64 65 rscore.:if-derived.'dirvish-mode
5ac0 29 0a 20 20 20 28 22 77 22 20 20 20 22 45 6e 74 65 72 20 77 64 69 72 65 64 20 5b 77 72 69 74 61 )....("w"..."Enter.wdired.[writa
5ae0 62 6c 65 20 64 69 72 65 64 5d 22 20 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 ble.dired]".wdired-change-to-wdi
5b00 72 65 64 2d 6d 6f 64 65 20 3a 69 66 2d 6e 6f 74 2d 64 65 72 69 76 65 64 20 77 64 69 72 65 64 2d red-mode.:if-not-derived.wdired-
5b20 6d 6f 64 65 29 5d 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 mode)])..(transient-define-prefi
5b40 78 20 64 69 72 76 69 73 68 2d 65 70 61 2d 64 69 72 65 64 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 x.dirvish-epa-dired-menu.()..."H
5b60 65 6c 70 20 6d 65 6e 75 20 66 6f 72 20 60 65 70 61 2d 64 69 72 65 64 2d 64 6f 2d 2a 27 20 63 6f elp.menu.for.`epa-dired-do-*'.co
5b80 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d mmands."...[:description....(lam
5ba0 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 bda.().(dirvish--format-menu-hea
5bc0 64 69 6e 67 20 22 47 4e 55 70 67 20 61 73 73 69 73 74 61 6e 74 22 29 29 0a 20 20 20 28 22 65 22 ding."GNUpg.assistant"))....("e"
5be0 20 22 45 6e 63 72 79 70 74 22 20 65 70 61 2d 64 69 72 65 64 2d 64 6f 2d 65 6e 63 72 79 70 74 29 ."Encrypt".epa-dired-do-encrypt)
5c00 0a 20 20 20 28 22 64 22 20 22 44 65 63 72 79 70 74 22 20 65 70 61 2d 64 69 72 65 64 2d 64 6f 2d ....("d"."Decrypt".epa-dired-do-
5c20 64 65 63 72 79 70 74 29 0a 20 20 20 28 22 76 22 20 22 56 65 72 69 66 79 22 20 20 65 70 61 2d 64 decrypt)....("v"."Verify"..epa-d
5c40 69 72 65 64 2d 64 6f 2d 76 65 72 69 66 79 29 0a 20 20 20 28 22 73 22 20 22 53 69 67 6e 22 20 20 ired-do-verify)....("s"."Sign"..
5c60 20 20 65 70 61 2d 64 69 72 65 64 2d 64 6f 2d 73 69 67 6e 29 5d 29 0a 0a 3b 3b 3b 23 23 23 61 75 ..epa-dired-do-sign)])..;;;###au
5c80 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 64 69 72 65 64 2d toload.(autoload.'dirvish-dired-
5ca0 63 68 65 61 74 73 68 65 65 74 20 22 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 22 20 6e 69 6c 20 cheatsheet."dirvish-extras".nil.
5cc0 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 t).(transient-define-prefix.dirv
5ce0 69 73 68 2d 64 69 72 65 64 2d 63 68 65 61 74 73 68 65 65 74 20 28 29 0a 20 20 22 41 20 63 6f 6c ish-dired-cheatsheet.()..."A.col
5d00 6c 65 63 74 69 6f 6e 20 6f 66 20 6d 6f 73 74 20 66 72 65 71 75 65 6e 74 6c 79 20 75 73 65 64 20 lection.of.most.frequently.used.
5d20 44 69 72 65 64 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e Dired.commands."...[:description
5d40 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d ....(lambda.().(dirvish--format-
5d60 6d 65 6e 75 2d 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 22 44 69 72 65 64 20 63 68 menu-heading..........."Dired.ch
5d80 65 61 74 73 68 65 65 74 22 0a 20 20 20 20 20 20 20 20 20 20 22 54 68 65 20 6b 65 79 73 20 6c 69 eatsheet"..........."The.keys.li
5da0 73 74 65 64 20 68 65 72 65 20 6d 61 79 20 62 65 20 64 69 66 66 65 72 65 6e 74 20 66 72 6f 6d 20 sted.here.may.be.different.from.
5dc0 74 68 65 20 61 63 74 75 61 6c 20 62 69 6e 64 69 6e 67 73 22 29 29 0a 20 20 20 28 22 6e 22 20 22 the.actual.bindings"))....("n"."
5de0 20 20 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 6c 69 6e 65 22 20 20 20 20 20 20 64 69 72 65 64 2d ..Move.to.next.line"......dired-
5e00 6e 65 78 74 2d 6c 69 6e 65 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 70 22 20 next-line.:transient.t)....("p".
5e20 22 20 20 4d 6f 76 65 20 74 6f 20 70 72 65 76 20 6c 69 6e 65 22 20 20 20 20 20 20 64 69 72 65 64 "..Move.to.prev.line"......dired
5e40 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 -previous-line.:transient.t)....
5e60 28 22 3e 22 20 22 20 20 4d 6f 76 65 20 74 6f 20 6e 65 78 74 20 64 69 72 6c 69 6e 65 22 20 20 20 (">"."..Move.to.next.dirline"...
5e80 64 69 72 65 64 2d 6e 65 78 74 2d 64 69 72 6c 69 6e 65 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 dired-next-dirline.:transient.t)
5ea0 0a 20 20 20 28 22 3c 22 20 22 20 20 4d 6f 76 65 20 74 6f 20 70 72 65 76 20 64 69 72 6c 69 6e 65 ....("<"."..Move.to.prev.dirline
5ec0 22 20 20 20 64 69 72 65 64 2d 70 72 65 76 2d 64 69 72 6c 69 6e 65 20 3a 74 72 61 6e 73 69 65 6e "...dired-prev-dirline.:transien
5ee0 74 20 74 29 0a 20 20 20 28 22 2e 22 20 22 20 20 41 64 64 20 61 6e 20 65 6d 70 74 79 20 66 69 6c t.t)....("."."..Add.an.empty.fil
5f00 65 22 20 20 20 20 20 20 64 69 72 65 64 2d 63 72 65 61 74 65 2d 65 6d 70 74 79 2d 66 69 6c 65 29 e"......dired-create-empty-file)
5f20 0a 20 20 20 28 22 2b 22 20 22 20 20 41 64 64 20 61 20 64 69 72 65 63 74 6f 72 79 22 20 20 20 20 ....("+"."..Add.a.directory"....
5f40 20 20 20 20 64 69 72 65 64 2d 63 72 65 61 74 65 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 28 ....dired-create-directory)....(
5f60 22 58 22 20 22 20 20 44 65 6c 65 74 65 20 66 69 6c 65 73 22 20 20 20 20 20 20 20 20 20 20 20 64 "X"."..Delete.files"...........d
5f80 69 72 65 64 2d 64 6f 2d 64 65 6c 65 74 65 29 0a 20 20 20 28 22 76 22 20 22 20 20 56 69 65 77 20 ired-do-delete)....("v"."..View.
5fa0 74 68 69 73 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 76 69 65 77 2d 66 69 this.file".........dired-view-fi
5fc0 6c 65 29 0a 20 20 20 28 22 67 22 20 22 20 20 52 65 66 72 65 73 68 20 62 75 66 66 65 72 22 20 20 le)....("g"."..Refresh.buffer"..
5fe0 20 20 20 20 20 20 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 0a 20 20 20 28 22 66 22 20 22 20 .......revert-buffer)....("f".".
6000 20 46 69 6e 64 20 66 69 6c 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 66 .Find.file"..............dired-f
6020 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 28 22 6f 22 20 22 20 20 46 69 6e 64 20 66 69 6c 65 20 6f ind-file)....("o"."..Find.file.o
6040 74 68 65 72 20 77 69 6e 64 6f 77 22 20 64 69 72 65 64 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 ther.window".dired-find-file-oth
6060 65 72 2d 77 69 6e 64 6f 77 29 0a 20 20 20 28 22 6a 22 20 22 20 20 47 6f 20 74 6f 20 6c 69 6e 65 er-window)....("j"."..Go.to.line
6080 20 66 6f 72 20 66 69 6c 65 22 20 20 20 20 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 29 0a 20 .for.file"....dired-goto-file)..
60a0 20 20 28 22 5e 22 20 22 20 20 47 6f 20 74 6f 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 ..("^"."..Go.to.parent.directory
60c0 22 20 64 69 72 65 64 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 28 22 3d 22 20 22 20 ".dired-up-directory)....("=".".
60e0 20 43 6f 6d 70 61 72 65 20 66 69 6c 65 73 22 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 64 .Compare.files"..........dired-d
6100 69 66 66 29 0a 20 20 20 28 22 28 22 20 22 20 20 54 6f 67 67 6c 65 20 64 65 74 61 69 6c 73 22 20 iff)....("("."..Toggle.details".
6120 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 29 ........dired-hide-details-mode)
6140 0a 20 20 20 28 22 64 22 20 22 20 20 44 69 73 70 6c 61 79 20 74 68 69 73 20 66 69 6c 65 22 20 20 ....("d"."..Display.this.file"..
6160 20 20 20 20 64 69 72 65 64 2d 64 69 73 70 6c 61 79 2d 66 69 6c 65 29 0a 20 20 20 28 22 73 22 20 ....dired-display-file)....("s".
6180 22 20 20 4d 61 6e 61 67 65 20 73 75 62 64 69 72 73 22 20 20 20 20 20 20 20 20 20 64 69 72 76 69 "..Manage.subdirs".........dirvi
61a0 73 68 2d 73 75 62 64 69 72 2d 6d 65 6e 75 29 0a 20 20 20 28 22 3a 22 20 22 20 20 47 6e 75 50 47 sh-subdir-menu)....(":"."..GnuPG
61c0 20 68 65 6c 70 65 72 73 22 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 65 70 61 2d 64 .helpers"..........dirvish-epa-d
61e0 69 72 65 64 2d 6d 65 6e 75 29 0a 20 20 20 28 22 68 22 20 22 20 20 4d 6f 72 65 20 69 6e 66 6f 20 ired-menu)....("h"."..More.info.
6200 61 62 6f 75 74 20 44 69 72 65 64 22 20 20 64 65 73 63 72 69 62 65 2d 6d 6f 64 65 29 5d 29 0a 0a about.Dired"..describe-mode)])..
6220 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 29 0a 3b 3b 3b 20 64 69 (provide.'dirvish-extras).;;;.di
6240 72 76 69 73 68 2d 65 78 74 72 61 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 rvish-extras.el.ends.here.......
6260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
62e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
63e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6400 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 65 6d dirvish-20230519.1500/dirvish-em
6420 65 72 67 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 erge.el.........................
6440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6460 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
6480 30 30 35 37 34 37 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 33 33 00 20 30 00 00 00 0057476.00000000000.015733..0...
64a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
64e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6500 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...................
6520 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...................
6540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
65e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
6600 3b 3b 3b 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2e 65 6c 20 2d 2d 2d 20 50 69 6e 20 66 69 ;;;.dirvish-emerge.el.---.Pin.fi
6620 6c 65 73 20 79 6f 75 20 61 72 65 20 69 6e 74 65 72 65 73 74 65 64 20 69 6e 20 61 74 20 74 6f 70 les.you.are.interested.in.at.top
6640 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 .-*-.lexical-binding:.t.-*-..;;.
6660 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a Copyright.(C).2021-2022.Alex.Lu.
6680 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 ;;.Author.:.Alex.Lu.<https://git
66a0 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 hub.com/alexluigit>.;;.Version:.
66c0 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 2.0.53.;;.Keywords:.files,.conve
66e0 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 nience.;;.Homepage:.https://gith
6700 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 ub.com/alexluigit/dirvish.;;.SPD
6720 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 X-License-Identifier:.GPL-3.0-or
6740 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 68 69 73 -later..;;;.Commentary:..;;.This
6760 20 65 78 74 65 6e 73 69 6f 6e 20 61 6c 6c 6f 77 73 20 75 73 65 72 20 74 6f 20 70 69 6e 20 69 6d .extension.allows.user.to.pin.im
6780 70 6f 72 74 61 6e 74 20 66 69 6c 65 73 20 61 74 20 74 68 65 20 74 6f 70 20 6f 66 20 44 69 72 76 portant.files.at.the.top.of.Dirv
67a0 69 73 68 0a 3b 3b 20 62 75 66 66 65 72 73 2e 20 20 54 79 70 65 20 4d 2d 78 20 64 69 72 76 69 73 ish.;;.buffers...Type.M-x.dirvis
67c0 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 20 52 45 54 20 69 6e 74 6f 20 61 20 64 69 72 76 69 73 68 h-emerge-menu.RET.into.a.dirvish
67e0 20 62 75 66 66 65 72 20 74 6f 20 67 65 74 0a 3b 3b 20 73 74 61 72 74 65 64 2e 0a 0a 3b 3b 3b 20 .buffer.to.get.;;.started...;;;.
6800 43 6f 64 65 3a 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 69 72 76 69 73 68 Code:..(declare-function.dirvish
6820 2d 65 6d 65 72 67 65 2d 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 22 29 0a -emerge--menu."dirvish-emerge").
6840 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 (require.'dirvish)..(defun.dirvi
6860 73 68 2d 65 6d 65 72 67 65 2d 73 61 66 65 2d 67 72 6f 75 70 73 2d 70 20 28 67 72 6f 75 70 73 29 sh-emerge-safe-groups-p.(groups)
6880 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 20 47 52 4f 55 50 53 20 69 73 20 61 20 6c 69 73 74 ..."Return.t.if.GROUPS.is.a.list
68a0 20 61 6e 64 20 68 61 73 20 6c 65 73 73 20 74 68 61 6e 20 31 30 30 20 69 74 65 6d 73 2e 22 0a 20 .and.has.less.than.100.items."..
68c0 20 28 61 6e 64 20 28 6c 69 73 74 70 20 67 72 6f 75 70 73 29 20 28 3c 20 28 6c 65 6e 67 74 68 20 .(and.(listp.groups).(<.(length.
68e0 67 72 6f 75 70 73 29 20 31 30 30 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 groups).100)))..(defcustom.dirvi
6900 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 27 28 29 0a 20 20 22 44 65 66 61 75 6c 74 20 sh-emerge-groups.'()..."Default.
6920 65 6d 65 72 67 65 20 67 72 6f 75 70 73 20 61 70 70 6c 69 65 64 20 74 6f 20 61 6c 6c 20 44 69 72 emerge.groups.applied.to.all.Dir
6940 76 69 73 68 20 62 75 66 66 65 72 2e 0a 54 68 65 20 76 61 6c 75 65 20 69 73 20 61 6e 20 61 6c 69 vish.buffer..The.value.is.an.ali
6960 73 74 20 6f 66 20 28 4e 41 4d 45 20 2e 20 28 54 59 50 45 20 2e 20 56 41 4c 55 45 29 29 20 77 68 st.of.(NAME...(TYPE...VALUE)).wh
6980 65 72 65 20 4e 41 4d 45 20 69 73 20 61 0a 73 74 72 69 6e 67 20 74 6f 20 64 65 73 69 67 6e 61 74 ere.NAME.is.a.string.to.designat
69a0 65 20 74 68 65 20 6e 61 6d 65 20 61 6e 64 20 64 69 73 70 6c 61 79 20 74 69 74 6c 65 20 6f 66 20 e.the.name.and.display.title.of.
69c0 74 68 65 20 67 72 6f 75 70 2c 20 54 59 50 45 0a 69 73 20 61 20 73 79 6d 62 6f 6c 20 69 6e 20 6f the.group,.TYPE.is.a.symbol.in.o
69e0 6e 65 20 6f 66 20 60 70 72 65 64 69 63 61 74 65 27 2c 20 60 65 78 74 65 6e 73 69 6f 6e 73 27 2c ne.of.`predicate',.`extensions',
6a00 20 6f 72 20 60 72 65 67 65 78 27 2e 20 20 54 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 .or.`regex'...The.corresponding.
6a20 56 41 4c 55 45 73 20 28 63 72 69 74 65 72 69 61 29 20 66 6f 72 20 74 68 65 73 65 20 74 79 70 65 VALUEs.(criteria).for.these.type
6a40 73 20 61 72 65 3a 0a 0a 2d 20 60 70 72 65 64 69 63 61 74 65 27 3a 20 61 20 73 79 6d 62 6f 6c 20 s.are:..-.`predicate':.a.symbol.
6a60 74 68 61 74 20 70 6f 69 6e 74 73 20 74 6f 20 61 20 70 72 65 64 69 63 61 74 65 0a 2d 20 60 65 78 that.points.to.a.predicate.-.`ex
6a80 74 65 6e 73 69 6f 6e 73 27 3a 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 66 69 6c 65 6e 61 6d 65 20 tensions':.one.or.more.filename.
6aa0 65 78 74 65 6e 73 69 6f 6e 73 0a 2d 20 60 72 65 67 65 78 27 3a 20 61 20 72 65 67 75 6c 61 72 20 extensions.-.`regex':.a.regular.
6ac0 65 78 70 72 65 73 73 69 6f 6e 0a 0a 54 68 65 20 70 72 65 64 69 63 61 74 65 73 20 61 72 65 20 64 expression..The.predicates.are.d
6ae0 65 66 69 6e 65 64 20 62 79 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e 65 efined.by.`dirvish-emerge-define
6b00 2d 70 72 65 64 69 63 61 74 65 27 2e 0a 0a 48 65 72 65 20 69 73 20 61 20 73 61 6d 70 6c 65 20 76 -predicate'...Here.is.a.sample.v
6b20 61 6c 75 65 20 66 6f 72 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 0a 0a 5c 28 28 5c 22 52 65 alue.for.this.variable...\((\"Re
6b40 63 65 6e 74 5c 22 20 28 70 72 65 64 69 63 61 74 65 20 2e 20 60 72 65 63 65 6e 74 2d 66 69 6c 65 cent\".(predicate...`recent-file
6b60 73 2d 32 68 27 29 29 0a 20 28 5c 22 52 45 41 44 4d 45 5c 22 20 28 72 65 67 65 78 20 2e 20 5c 22 s-2h'))..(\"README\".(regex...\"
6b80 52 45 41 44 4d 45 5c 22 29 29 0a 20 28 5c 22 50 44 46 5c 22 20 20 20 20 28 65 78 74 65 6e 73 69 README\"))..(\"PDF\"....(extensi
6ba0 6f 6e 73 20 5c 22 70 64 66 5c 22 29 29 0a 20 28 5c 22 4c 61 54 65 58 5c 22 20 20 28 65 78 74 65 ons.\"pdf\"))..(\"LaTeX\"..(exte
6bc0 6e 73 69 6f 6e 73 20 5c 22 74 65 78 5c 22 20 5c 22 62 69 62 5c 22 29 29 29 0a 0a 57 68 65 6e 20 nsions.\"tex\".\"bib\")))..When.
6be0 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 6f 64 65 27 20 69 73 20 65 6e 61 62 6c 65 64 `dirvish-emerge-mode'.is.enabled
6c00 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2c 20 74 68 65 20 66 69 6c 65 73 65 74 0a 69 6e 20 74 .in.the.buffer,.the.fileset.in.t
6c20 68 65 20 62 75 66 66 65 72 20 61 72 65 20 73 65 70 61 72 61 74 65 64 20 61 6e 64 20 72 65 61 72 he.buffer.are.separated.and.rear
6c40 72 61 6e 67 65 64 20 62 79 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 67 72 6f 75 70 73 3a 0a ranged.by.the.following.groups:.
6c60 0a 31 2e 20 66 69 6c 65 73 20 6d 6f 64 69 66 69 65 64 20 77 69 74 68 69 6e 20 32 20 68 6f 75 72 .1..files.modified.within.2.hour
6c80 73 0a 32 2e 20 66 69 6c 65 73 20 77 68 6f 73 65 20 6e 61 6d 65 20 63 61 6e 20 62 65 20 6d 61 74 s.2..files.whose.name.can.be.mat
6ca0 63 68 65 64 20 62 79 20 5c 22 52 45 41 44 4d 45 5c 22 0a 33 2e 20 66 69 6c 65 73 20 77 68 6f 73 ched.by.\"README\".3..files.whos
6cc0 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 5c 22 70 64 66 5c 22 0a 34 2e 20 66 69 6c 65 73 20 e.extension.is.\"pdf\".4..files.
6ce0 77 68 6f 73 65 20 65 78 74 65 6e 73 69 6f 6e 20 69 73 20 5c 22 74 65 78 5c 22 20 6f 72 20 5c 22 whose.extension.is.\"tex\".or.\"
6d00 62 69 62 5c 22 0a 35 2e 20 6f 74 68 65 72 20 66 69 6c 65 73 0a 0a 41 6c 74 68 6f 75 67 68 74 20 bib\".5..other.files..Althought.
6d20 79 6f 75 20 63 61 6e 20 73 65 74 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 20 67 6c 6f 62 61 6c you.can.set.this.variable.global
6d40 6c 79 2c 20 61 20 6d 6f 72 65 20 61 70 70 72 6f 70 72 69 61 74 65 0a 77 61 79 20 77 6f 75 6c 64 ly,.a.more.appropriate.way.would
6d60 20 62 65 20 73 65 74 20 69 74 20 64 69 72 65 63 74 6f 72 79 20 6c 6f 63 61 6c 6c 79 2e 20 20 49 .be.set.it.directory.locally...I
6d80 6e 20 74 68 61 74 20 63 61 73 65 2c 20 69 74 20 69 73 0a 72 65 63 6f 6d 6d 65 6e 64 65 64 20 74 n.that.case,.it.is.recommended.t
6da0 6f 20 63 6f 6d 70 6f 73 65 20 61 6e 64 20 73 61 76 65 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 o.compose.and.save.this.variable
6dc0 20 74 6f 20 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 0a 62 79 20 74 68 65 20 68 65 6c 70 20 6f .to..dir-locals.el.by.the.help.o
6de0 66 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 27 2e 22 0a 20 20 3a 67 72 6f f.`dirvish-emerge-menu'."...:gro
6e00 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 29 0a 28 70 75 74 20 27 up.'dirvish.:type.'alist).(put.'
6e20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 27 73 61 66 65 2d 6c 6f 63 61 dirvish-emerge-groups.'safe-loca
6e40 6c 2d 76 61 72 69 61 62 6c 65 20 23 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 73 61 66 65 l-variable.#'dirvish-emerge-safe
6e60 2d 67 72 6f 75 70 73 2d 70 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 65 -groups-p)..(defcustom.dirvish-e
6e80 6d 65 72 67 65 2d 6d 61 78 2d 66 69 6c 65 2d 63 6f 75 6e 74 20 32 30 30 30 30 0a 20 20 22 49 6e merge-max-file-count.20000..."In
6ea0 68 69 62 69 74 20 61 75 74 6f 20 67 72 6f 75 70 69 6e 67 20 69 6e 20 62 69 67 20 64 69 72 65 63 hibit.auto.grouping.in.big.direc
6ec0 74 6f 72 69 65 73 2e 0a 49 66 20 66 69 6c 65 20 63 6f 75 6e 74 20 6f 66 20 74 68 65 20 64 69 72 tories..If.file.count.of.the.dir
6ee0 65 63 74 6f 72 79 20 69 73 20 67 72 65 61 74 65 72 20 74 68 61 6e 20 74 68 69 73 20 76 61 6c 75 ectory.is.greater.than.this.valu
6f00 65 2c 0a 61 75 74 6f 6d 61 74 69 63 20 67 72 6f 75 70 69 6e 67 20 69 73 20 64 69 73 61 62 6c 65 e,.automatic.grouping.is.disable
6f20 64 20 65 76 65 6e 20 69 66 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 6f 64 65 27 20 d.even.if.`dirvish-emerge-mode'.
6f40 69 73 0a 74 75 72 6e 65 64 20 6f 6e 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 3a is.turned.on.in.the.buffer."...:
6f60 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a group.'dirvish.:type.'integer)..
6f80 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 2d 74 69 (defface.dirvish-emerge-group-ti
6fa0 74 6c 65 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 64 69 72 65 64 2d 69 67 6e 6f 72 65 tle...'((t.:inherit.dired-ignore
6fc0 64 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 65 6d 65 72 67 65 20 67 72 6f 75 d))..."Face.used.for.emerge.grou
6fe0 70 20 74 69 74 6c 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 p.title."...:group.'dirvish)..(d
7000 65 66 63 6c 61 73 73 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 20 28 74 72 efclass.dirvish-emerge-group.(tr
7020 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 29 0a 20 20 28 28 68 69 64 65 20 20 20 20 20 3a 69 6e 69 ansient-infix)...((hide.....:ini
7040 74 61 72 67 20 3a 68 69 64 65 29 0a 20 20 20 28 73 65 6c 65 63 74 65 64 20 3a 69 6e 69 74 61 72 targ.:hide)....(selected.:initar
7060 67 20 3a 73 65 6c 65 63 74 65 64 29 0a 20 20 20 28 72 65 63 69 70 65 20 20 20 3a 69 6e 69 74 61 g.:selected)....(recipe...:inita
7080 72 67 20 3a 72 65 63 69 70 65 29 29 0a 20 20 22 5b 45 78 70 65 72 69 6d 65 6e 74 61 6c 5d 20 43 rg.:recipe))..."[Experimental].C
70a0 6c 61 73 73 20 66 6f 72 20 44 69 72 76 69 73 68 20 65 6d 65 72 67 65 20 67 72 6f 75 70 73 2e 22 lass.for.Dirvish.emerge.groups."
70c0 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d )..(defvar-local.dirvish-emerge-
70e0 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 -group-overlays.nil)..(cl-defmet
7100 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 66 6f 72 6d 61 74 2d 6b 65 79 20 28 28 6f 62 6a 20 64 hod.transient-format-key.((obj.d
7120 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 29 0a 20 20 22 46 6f 72 6d 61 74 20 irvish-emerge-group))..."Format.
7140 6b 65 79 20 66 6f 72 20 4f 42 4a 2e 22 0a 20 20 28 6c 65 74 20 28 28 6b 65 79 20 28 6f 72 65 66 key.for.OBJ."...(let.((key.(oref
7160 20 6f 62 6a 20 6b 65 79 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 6c 20 28 6f 72 65 66 20 6f 62 .obj.key)).........(sel.(oref.ob
7180 6a 20 73 65 6c 65 63 74 65 64 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 6b 65 j.selected))).....(propertize.ke
71a0 79 20 27 66 61 63 65 20 28 69 66 20 73 65 6c 20 27 74 72 61 6e 73 69 65 6e 74 2d 76 61 6c 75 65 y.'face.(if.sel.'transient-value
71c0 20 27 74 72 61 6e 73 69 65 6e 74 2d 6b 65 79 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 .'transient-key))))..(cl-defmeth
71e0 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 66 6f 72 6d 61 74 2d 64 65 73 63 72 69 70 74 69 6f 6e 20 od.transient-format-description.
7200 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 29 0a 20 20 22 ((obj.dirvish-emerge-group))..."
7220 46 6f 72 6d 61 74 20 64 65 73 63 72 69 70 74 69 6f 6e 20 66 6f 72 20 4f 42 4a 2e 22 0a 20 20 28 Format.description.for.OBJ."...(
7240 6c 65 74 20 28 28 64 65 73 63 20 28 6f 72 65 66 20 6f 62 6a 20 64 65 73 63 72 69 70 74 69 6f 6e let.((desc.(oref.obj.description
7260 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 6c 20 28 6f 72 65 66 20 6f 62 6a 20 73 65 6c 65 63 74 )).........(sel.(oref.obj.select
7280 65 64 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 64 65 73 63 20 27 66 61 63 65 ed))).....(propertize.desc.'face
72a0 20 28 61 6e 64 20 73 65 6c 20 27 74 72 61 6e 73 69 65 6e 74 2d 76 61 6c 75 65 29 29 29 29 0a 0a .(and.sel.'transient-value))))..
72c0 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 66 6f 72 6d 61 74 2d 76 (cl-defmethod.transient-format-v
72e0 61 6c 75 65 20 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 alue.((obj.dirvish-emerge-group)
7300 29 0a 20 20 22 46 6f 72 6d 61 74 20 76 61 6c 75 65 20 66 6f 72 20 4f 42 4a 2e 22 0a 20 20 28 70 )..."Format.value.for.OBJ."...(p
7320 63 61 73 65 2d 6c 65 74 2a 20 28 28 60 28 2c 74 79 70 65 20 2e 20 2c 76 61 6c 29 20 28 6f 72 65 case-let*.((`(,type...,val).(ore
7340 66 20 6f 62 6a 20 72 65 63 69 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 f.obj.recipe))................(f
7360 61 63 65 20 28 69 66 20 28 6f 72 65 66 20 6f 62 6a 20 68 69 64 65 29 20 27 66 6f 6e 74 2d 6c 6f ace.(if.(oref.obj.hide).'font-lo
7380 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ck-comment-face.................
73a0 20 20 20 20 20 20 20 27 74 72 61 6e 73 69 65 6e 74 2d 61 72 67 75 6d 65 6e 74 29 29 29 0a 20 20 .......'transient-argument)))...
73c0 20 20 28 70 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 28 27 72 65 67 65 78 20 28 70 72 6f ..(pcase.type.......('regex.(pro
73e0 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 5c 22 25 73 5c 22 22 20 76 61 6c 29 20 27 66 pertize.(format."\"%s\"".val).'f
7400 61 63 65 20 66 61 63 65 29 29 0a 20 20 20 20 20 20 28 27 65 78 74 65 6e 73 69 6f 6e 73 20 28 70 ace.face)).......('extensions.(p
7420 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 6d 61 70 63 6f 6e 63 61 ropertize.(format."%s".(mapconca
7440 74 20 23 27 63 6f 6e 63 61 74 20 76 61 6c 20 22 2c 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 t.#'concat.val.","))............
7460 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 66 61 63 65 29 29 ....................'face.face))
7480 0a 20 20 20 20 20 20 28 27 70 72 65 64 69 63 61 74 65 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 .......('predicate.(propertize."
74a0 50 52 45 44 22 20 27 66 61 63 65 20 66 61 63 65 29 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 PRED".'face.face)))))..(cl-defme
74c0 74 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 2d 72 65 61 64 20 28 28 6f 62 6a 20 thod.transient-infix-read.((obj.
74e0 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 29 0a 20 20 22 52 65 61 64 20 76 dirvish-emerge-group))..."Read.v
7500 61 6c 75 65 20 66 72 6f 6d 20 4f 42 4a 2e 22 0a 20 20 28 6f 73 65 74 20 6f 62 6a 20 76 61 6c 75 alue.from.OBJ."...(oset.obj.valu
7520 65 20 28 6c 69 73 74 20 28 6f 72 65 66 20 6f 62 6a 20 64 65 73 63 72 69 70 74 69 6f 6e 29 20 28 e.(list.(oref.obj.description).(
7540 6f 72 65 66 20 6f 62 6a 20 72 65 63 69 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 oref.obj.recipe)................
7560 20 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 62 6a 20 68 69 64 65 29 20 28 6f 72 65 66 20 6f .........(oref.obj.hide).(oref.o
7580 62 6a 20 73 65 6c 65 63 74 65 64 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 74 bj.selected))))..(cl-defmethod.t
75a0 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 2d 73 65 74 20 28 28 6f 62 6a 20 64 69 72 76 69 73 68 ransient-infix-set.((obj.dirvish
75c0 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 20 5f 76 61 6c 75 65 29 0a 20 20 22 53 65 74 20 76 61 -emerge-group)._value)..."Set.va
75e0 6c 75 65 20 66 6f 72 20 4f 42 4a 2e 22 0a 20 20 28 69 66 2d 6c 65 74 20 28 28 73 65 6c 20 28 6f lue.for.OBJ."...(if-let.((sel.(o
7600 72 65 66 20 6f 62 6a 20 73 65 6c 65 63 74 65 64 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 ref.obj.selected))).......(dirvi
7620 73 68 2d 65 6d 65 72 67 65 2d 72 65 61 64 2d 72 65 63 69 70 65 20 28 6f 72 65 66 20 6f 62 6a 20 sh-emerge-read-recipe.(oref.obj.
7640 72 65 63 69 70 65 29 20 6f 62 6a 29 0a 20 20 20 20 28 6f 73 65 74 20 6f 62 6a 20 73 65 6c 65 63 recipe).obj).....(oset.obj.selec
7660 74 65 64 20 74 29 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 ted.t)))..(defvar.dirvish-emerge
7680 2d 2d 6d 61 78 2d 70 72 65 64 2d 6e 61 6d 65 2d 6c 65 6e 20 30 29 0a 28 64 65 66 76 61 72 20 64 --max-pred-name-len.0).(defvar.d
76a0 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 70 72 65 64 73 20 27 irvish-emerge--available-preds.'
76c0 28 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 ())..(defmacro.dirvish-emerge-de
76e0 66 69 6e 65 2d 70 72 65 64 69 63 61 74 65 20 28 6e 61 6d 65 20 64 6f 63 73 74 72 69 6e 67 20 26 fine-predicate.(name.docstring.&
7700 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 67 72 6f 75 70 20 70 72 65 rest.body)..."Define.a.group.pre
7720 64 69 63 61 74 65 20 4e 41 4d 45 20 77 69 74 68 20 42 4f 44 59 2e 0a 44 4f 43 53 54 52 49 4e 47 dicate.NAME.with.BODY..DOCSTRING
7740 20 69 73 20 74 68 65 20 64 6f 63 75 6d 65 6e 74 69 6f 6e 20 6f 66 20 74 68 65 20 70 72 65 64 69 .is.the.documention.of.the.predi
7760 63 61 74 65 2e 0a 54 68 65 20 70 72 65 64 69 63 61 74 65 20 74 61 6b 65 73 20 74 68 65 20 66 6f cate..The.predicate.takes.the.fo
7780 6c 6c 6f 77 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 3a 0a 0a 2d 20 60 6c 6f 63 61 6c 2d 6e 61 6d llowing.arguments:..-.`local-nam
77a0 65 27 3a 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 e':.output.from.(file-name-nondi
77c0 72 65 63 74 6f 72 79 20 46 49 4c 45 29 0a 2d 20 60 66 75 6c 6c 2d 6e 61 6d 65 27 3a 20 6f 75 74 rectory.FILE).-.`full-name':.out
77e0 70 75 74 20 66 72 6f 6d 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 0a 2d 20 put.from.(dired-get-filename).-.
7800 60 74 79 70 65 27 3a 20 61 20 63 6f 6e 73 20 6f 66 20 28 54 59 50 45 20 2e 20 53 59 4d 2d 54 41 `type':.a.cons.of.(TYPE...SYM-TA
7820 52 47 45 54 29 2e 20 20 54 59 50 45 20 69 73 20 65 69 74 68 65 72 20 60 64 69 72 27 20 6f 72 0a RGET)...TYPE.is.either.`dir'.or.
7840 20 20 60 66 69 6c 65 27 2e 20 20 53 59 4d 2d 54 41 52 47 45 54 20 69 73 20 74 68 65 20 73 79 6d ..`file'...SYM-TARGET.is.the.sym
7860 6c 69 6e 6b 20 74 61 72 67 65 74 20 61 73 20 61 20 73 74 72 69 6e 67 20 77 68 65 6e 20 74 68 65 link.target.as.a.string.when.the
7880 0a 20 20 66 69 6c 65 20 69 73 20 61 20 73 79 6d 6c 69 6e 6b 2c 20 6f 74 68 65 72 77 69 73 65 20 ...file.is.a.symlink,.otherwise.
78a0 6e 69 6c 2e 0a 2d 20 60 61 74 74 72 73 27 3a 20 6f 75 74 70 75 74 20 66 72 6f 6d 20 28 66 69 6c nil..-.`attrs':.output.from.(fil
78c0 65 2d 61 74 74 72 69 62 75 74 65 73 20 46 49 4c 45 29 0a 0a 54 68 65 20 70 72 65 64 69 63 61 74 e-attributes.FILE)..The.predicat
78e0 65 20 69 73 20 63 6f 6e 73 75 6d 65 64 20 62 79 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 e.is.consumed.by.`dirvish-emerge
7900 2d 67 72 6f 75 70 73 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 -groups'."...(declare.(indent.de
7920 66 75 6e 29 20 28 64 6f 63 2d 73 74 72 69 6e 67 20 32 29 29 0a 20 20 60 28 6c 65 74 2a 20 28 28 fun).(doc-string.2))...`(let*.((
7940 66 6e 20 28 6c 61 6d 62 64 61 20 28 6c 6f 63 61 6c 2d 6e 61 6d 65 20 66 75 6c 6c 2d 6e 61 6d 65 fn.(lambda.(local-name.full-name
7960 20 74 79 70 65 20 61 74 74 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 67 .type.attrs).................(ig
7980 6e 6f 72 65 20 6c 6f 63 61 6c 2d 6e 61 6d 65 20 66 75 6c 6c 2d 6e 61 6d 65 20 74 79 70 65 20 61 nore.local-name.full-name.type.a
79a0 74 74 72 73 29 20 2c 40 62 6f 64 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 61 69 72 20 28 ttrs).,@body))...........(pair.(
79c0 61 73 73 71 20 27 2c 6e 61 6d 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 76 61 69 assq.',name.dirvish-emerge--avai
79e0 6c 61 62 6c 65 2d 70 72 65 64 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 76 61 6c 20 28 63 6f lable-preds))...........(val.(co
7a00 6e 73 20 27 2c 6e 61 6d 65 20 28 63 6f 6e 73 20 66 6e 20 2c 64 6f 63 73 74 72 69 6e 67 29 29 29 ns.',name.(cons.fn.,docstring)))
7a20 29 0a 20 20 20 20 20 28 73 65 74 66 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 61 78 )......(setf.dirvish-emerge--max
7a40 2d 70 72 65 64 2d 6e 61 6d 65 2d 6c 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 20 64 -pred-name-len............(max.d
7a60 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 61 78 2d 70 72 65 64 2d 6e 61 6d 65 2d 6c 65 6e irvish-emerge--max-pred-name-len
7a80 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 67 74 68 20 28 66 6f 72 6d 61 74 .................(length.(format
7aa0 20 22 25 73 22 20 27 2c 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 28 69 66 20 70 61 69 72 0a 20 ."%s".',name))))......(if.pair..
7ac0 20 20 20 20 20 20 20 20 28 73 65 74 63 64 72 20 28 61 73 73 71 20 27 2c 6e 61 6d 65 20 64 69 72 ........(setcdr.(assq.',name.dir
7ae0 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 70 72 65 64 73 29 20 76 61 vish-emerge--available-preds).va
7b00 6c 29 0a 20 20 20 20 20 20 20 28 70 75 73 68 20 76 61 6c 20 64 69 72 76 69 73 68 2d 65 6d 65 72 l)........(push.val.dirvish-emer
7b20 67 65 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 70 72 65 64 73 29 29 29 29 0a 0a 28 64 69 72 76 69 73 ge--available-preds))))..(dirvis
7b40 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e 65 2d 70 72 65 64 69 63 61 74 65 20 72 65 63 65 6e 74 h-emerge-define-predicate.recent
7b60 2d 66 69 6c 65 73 2d 32 68 0a 20 20 22 46 69 6c 65 20 6d 6f 64 69 66 69 65 64 20 77 69 74 68 69 -files-2h..."File.modified.withi
7b80 6e 20 32 20 68 6f 75 72 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 74 69 6d 65 20 28 66 69 6c 65 n.2.hours."...(let.((mtime.(file
7ba0 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 20 61 74 74 -attribute-modification-time.att
7bc0 72 73 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 6c 69 73 74 70 20 6d 74 69 6d 65 29 0a 20 20 20 rs))).....(and.(listp.mtime)....
7be0 20 20 20 20 20 20 28 3c 20 28 66 6c 6f 61 74 2d 74 69 6d 65 20 28 74 69 6d 65 2d 73 75 62 74 72 ......(<.(float-time.(time-subtr
7c00 61 63 74 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 6d 74 69 6d 65 29 29 20 37 32 30 30 29 act.(current-time).mtime)).7200)
7c20 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e 65 2d 70 72 65 64 )))..(dirvish-emerge-define-pred
7c40 69 63 61 74 65 20 72 65 63 65 6e 74 2d 66 69 6c 65 73 2d 74 6f 64 61 79 0a 20 20 22 46 69 6c 65 icate.recent-files-today..."File
7c60 20 6d 6f 64 69 66 69 65 64 20 74 6f 64 61 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 74 69 6d 65 .modified.today."...(let.((mtime
7c80 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 .(file-attribute-modification-ti
7ca0 6d 65 20 61 74 74 72 73 29 29 29 0a 20 20 20 20 28 61 6e 64 20 28 6c 69 73 74 70 20 6d 74 69 6d me.attrs))).....(and.(listp.mtim
7cc0 65 29 0a 20 20 20 20 20 20 20 20 20 28 3c 20 28 66 6c 6f 61 74 2d 74 69 6d 65 20 28 74 69 6d 65 e)..........(<.(float-time.(time
7ce0 2d 73 75 62 74 72 61 63 74 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 29 20 6d 74 69 6d 65 29 29 -subtract.(current-time).mtime))
7d00 20 38 36 34 30 30 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 .86400))))..(dirvish-emerge-defi
7d20 6e 65 2d 70 72 65 64 69 63 61 74 65 20 64 69 72 65 63 74 6f 72 69 65 73 0a 20 20 22 4d 61 74 63 ne-predicate.directories..."Matc
7d40 68 65 73 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 28 65 71 20 27 64 69 72 20 28 63 61 hes.directories."...(eq.'dir.(ca
7d60 72 20 74 79 70 65 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e r.type)))..(dirvish-emerge-defin
7d80 65 2d 70 72 65 64 69 63 61 74 65 20 66 69 6c 65 73 0a 20 20 22 4d 61 74 63 68 65 73 20 66 69 6c e-predicate.files..."Matches.fil
7da0 65 73 2e 22 0a 20 20 28 65 71 20 27 66 69 6c 65 20 28 63 61 72 20 74 79 70 65 29 29 29 0a 0a 28 es."...(eq.'file.(car.type)))..(
7dc0 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e 65 2d 70 72 65 64 69 63 61 74 65 20 dirvish-emerge-define-predicate.
7de0 73 79 6d 6c 69 6e 6b 73 0a 20 20 22 4d 61 74 63 68 65 73 20 73 79 6d 6c 69 6d 6b 73 2e 22 0a 20 symlinks..."Matches.symlimks."..
7e00 20 28 63 64 72 20 74 79 70 65 29 29 0a 0a 3b 3b 20 4e 6f 74 65 20 74 68 65 20 62 65 68 61 76 69 .(cdr.type))..;;.Note.the.behavi
7e20 6f 72 20 6f 66 20 74 68 69 73 20 70 72 65 64 69 63 61 74 65 20 64 6f 65 73 6e 27 74 20 65 78 61 or.of.this.predicate.doesn't.exa
7e40 63 74 6c 79 20 6d 61 74 63 68 20 60 66 69 6c 65 2d 65 78 65 63 75 74 61 62 6c 65 2d 70 27 2e 0a ctly.match.`file-executable-p'..
7e60 3b 3b 20 49 74 20 63 68 65 63 6b 73 20 69 66 20 74 68 65 20 6f 77 6e 65 72 20 6f 66 20 74 68 65 ;;.It.checks.if.the.owner.of.the
7e80 20 66 69 6c 65 20 63 61 6e 20 65 78 65 63 75 74 65 20 69 74 20 61 6e 64 20 6e 6f 74 20 69 66 20 .file.can.execute.it.and.not.if.
7ea0 74 68 65 20 63 75 72 72 65 6e 74 0a 3b 3b 20 75 73 65 72 20 63 61 6e 2e 0a 28 64 69 72 76 69 73 the.current.;;.user.can..(dirvis
7ec0 68 2d 65 6d 65 72 67 65 2d 64 65 66 69 6e 65 2d 70 72 65 64 69 63 61 74 65 20 65 78 65 63 75 74 h-emerge-define-predicate.execut
7ee0 61 62 6c 65 73 0a 20 20 22 4d 61 74 63 68 65 73 20 65 78 65 63 75 74 61 62 6c 65 73 2e 22 0a 20 ables..."Matches.executables."..
7f00 20 28 65 71 20 3f 78 20 28 61 72 65 66 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f .(eq.?x.(aref.(file-attribute-mo
7f20 64 65 73 20 61 74 74 72 73 29 20 33 29 29 29 0a 0a 28 63 6c 2d 64 65 66 67 65 6e 65 72 69 63 20 des.attrs).3)))..(cl-defgeneric.
7f40 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 72 65 61 64 2d 72 65 63 69 70 65 20 28 72 65 63 69 dirvish-emerge-read-recipe.(reci
7f60 70 65 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 62 6a 29 0a 20 20 22 52 65 61 64 20 52 45 43 49 50 45 pe.&optional.obj)..."Read.RECIPE
7f80 20 66 72 6f 6d 20 75 73 65 72 20 69 6e 70 75 74 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 .from.user.input.and.optionally.
7fa0 73 61 76 65 20 69 74 20 74 6f 20 4f 42 4a 2e 22 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 save.it.to.OBJ.")..(cl-defmethod
7fc0 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 72 65 61 64 2d 72 65 63 69 70 65 20 28 28 72 65 .dirvish-emerge-read-recipe.((re
7fe0 63 69 70 65 20 28 68 65 61 64 20 72 65 67 65 78 29 29 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 62 6a cipe.(head.regex)).&optional.obj
8000 29 0a 20 20 22 52 65 61 64 20 52 45 43 49 50 45 20 66 72 6f 6d 20 75 73 65 72 20 69 6e 70 75 74 )..."Read.RECIPE.from.user.input
8020 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 61 76 65 20 69 74 20 74 6f 20 4f 42 4a 2e 22 .and.optionally.save.it.to.OBJ."
8040 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 66 74 20 28 63 64 72 20 72 65 63 69 70 65 29 29 0a 20 20 ...(let*.((deft.(cdr.recipe))...
8060 20 20 20 20 20 20 20 28 72 65 67 65 78 20 28 72 65 61 64 2d 72 65 67 65 78 70 0a 20 20 20 20 20 .......(regex.(read-regexp......
8080 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 43 68 61 6e 67 65 20 72 65 67 65 ............(format."Change.rege
80a0 78 20 74 6f 20 28 64 65 66 61 75 6c 74 73 20 74 6f 20 25 73 29 3a 20 22 20 64 65 66 74 29 20 64 x.to.(defaults.to.%s):.".deft).d
80c0 65 66 74 29 29 29 0a 20 20 20 20 28 69 66 20 6f 62 6a 20 28 6f 73 65 74 20 6f 62 6a 20 72 65 63 eft))).....(if.obj.(oset.obj.rec
80e0 69 70 65 20 60 28 72 65 67 65 78 20 2e 20 2c 72 65 67 65 78 29 29 20 72 65 67 65 78 29 29 29 0a ipe.`(regex...,regex)).regex))).
8100 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 72 65 .(cl-defmethod.dirvish-emerge-re
8120 61 64 2d 72 65 63 69 70 65 20 28 28 72 65 63 69 70 65 20 28 68 65 61 64 20 65 78 74 65 6e 73 69 ad-recipe.((recipe.(head.extensi
8140 6f 6e 73 29 29 20 26 6f 70 74 69 6f 6e 61 6c 20 6f 62 6a 29 0a 20 20 22 52 65 61 64 20 52 45 43 ons)).&optional.obj)..."Read.REC
8160 49 50 45 20 66 72 6f 6d 20 75 73 65 72 20 69 6e 70 75 74 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c IPE.from.user.input.and.optional
8180 6c 79 20 73 61 76 65 20 69 74 20 74 6f 20 4f 42 4a 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 70 72 ly.save.it.to.OBJ."...(let*.((pr
81a0 6f 6d 70 74 20 22 49 6e 70 75 74 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 65 78 74 65 6e 73 69 6f ompt."Input.one.or.more.extensio
81c0 6e 73 3a 20 22 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 73 0a 20 20 20 20 20 20 20 20 20 ns:.")..........(cands..........
81e0 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 20 28 6c 61 6d 62 64 61 20 28 69 29 20 28 .(cl-remove-if-not.(lambda.(i).(
8200 61 6e 64 20 69 20 28 3e 20 28 6c 65 6e 67 74 68 20 69 29 20 30 29 29 29 0a 20 20 20 20 20 20 20 and.i.(>.(length.i).0)))........
8220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 70 63 61 72 20 23 27 66 .....................(mapcar.#'f
8240 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ile-name-extension..............
8260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 63 74 6f 72 .......................(director
8280 79 2d 66 69 6c 65 73 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 y-files.default-directory))))...
82a0 20 20 20 20 20 20 20 28 65 78 74 73 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6d 75 .......(exts.(completing-read-mu
82c0 6c 74 69 70 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 6f 6d 70 74 20 63 61 ltiple.................prompt.ca
82e0 6e 64 73 20 6e 69 6c 20 6e 69 6c 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 nds.nil.nil.(mapconcat.#'concat.
8300 28 63 64 72 20 72 65 63 69 70 65 29 20 22 2c 22 29 29 29 29 0a 20 20 20 20 28 69 66 20 6f 62 6a (cdr.recipe).",")))).....(if.obj
8320 20 28 6f 73 65 74 20 6f 62 6a 20 72 65 63 69 70 65 20 60 28 65 78 74 65 6e 73 69 6f 6e 73 20 2e .(oset.obj.recipe.`(extensions..
8340 20 2c 40 65 78 74 73 29 29 20 65 78 74 73 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 .,@exts)).exts)))..(cl-defmethod
8360 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 72 65 61 64 2d 72 65 63 69 70 65 20 28 28 72 65 .dirvish-emerge-read-recipe.((re
8380 63 69 70 65 20 28 68 65 61 64 20 70 72 65 64 69 63 61 74 65 29 29 20 26 6f 70 74 69 6f 6e 61 6c cipe.(head.predicate)).&optional
83a0 20 6f 62 6a 29 0a 20 20 22 52 65 61 64 20 52 45 43 49 50 45 20 66 72 6f 6d 20 75 73 65 72 20 69 .obj)..."Read.RECIPE.from.user.i
83c0 6e 70 75 74 20 61 6e 64 20 6f 70 74 69 6f 6e 61 6c 6c 79 20 73 61 76 65 20 69 74 20 74 6f 20 4f nput.and.optionally.save.it.to.O
83e0 42 4a 2e 22 0a 20 20 28 69 67 6e 6f 72 65 20 72 65 63 69 70 65 29 0a 20 20 28 6c 65 74 2a 20 28 BJ."...(ignore.recipe)...(let*.(
8400 28 74 61 62 6c 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 76 61 69 6c 61 62 6c 65 (table.dirvish-emerge--available
8420 2d 70 72 65 64 73 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 20 28 64 69 72 76 69 73 68 2d -preds)..........(coll.(dirvish-
8440 2d 61 70 70 65 6e 64 2d 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -append-metadata................
8460 20 28 6c 61 6d 62 64 61 20 28 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .(lambda.(i)...................(
8480 6c 65 74 20 28 28 69 74 65 6d 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 let.((item.(intern.(format."%s".
84a0 69 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 28 63 6f 6e 63 61 i)))).....................(conca
84c0 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 74 72 t......................(make-str
84e0 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 28 2d 20 64 69 72 ing.......................(-.dir
8500 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 61 78 2d 70 72 65 64 2d 6e 61 6d 65 2d 6c 65 6e 20 28 vish-emerge--max-pred-name-len.(
8520 6c 65 6e 67 74 68 20 69 29 20 2d 38 29 20 3f 5c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 length.i).-8).?\s)..............
8540 20 20 20 20 20 20 20 20 28 63 64 64 72 20 28 61 73 73 71 20 69 74 65 6d 20 74 61 62 6c 65 29 29 ........(cddr.(assq.item.table))
8560 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 29 29 0a 20 20 20 20 ))).................table)).....
8580 20 20 20 20 20 28 70 72 65 64 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 50 72 65 .....(pred.(completing-read."Pre
85a0 64 69 63 61 74 65 3a 20 22 20 63 6f 6c 6c 29 29 29 0a 20 20 20 20 28 69 66 20 6f 62 6a 20 28 6f dicate:.".coll))).....(if.obj.(o
85c0 73 65 74 20 6f 62 6a 20 72 65 63 69 70 65 20 60 28 70 72 65 64 69 63 61 74 65 20 2e 20 2c 28 72 set.obj.recipe.`(predicate...,(r
85e0 65 61 64 20 70 72 65 64 29 29 29 20 28 72 65 61 64 20 70 72 65 64 29 29 29 29 0a 0a 28 64 65 66 ead.pred))).(read.pred))))..(def
8600 73 75 62 73 74 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 61 6b 65 2d 70 72 65 64 20 subst.dirvish-emerge--make-pred.
8620 28 72 65 63 69 70 65 29 0a 20 20 22 4d 61 6b 65 20 70 72 65 64 69 63 61 74 65 20 66 75 6e 63 74 (recipe)..."Make.predicate.funct
8640 69 6f 6e 20 66 72 6f 6d 20 52 45 43 49 50 45 2e 22 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 ion.from.RECIPE."...(pcase-let.(
8660 28 60 28 2c 74 79 70 65 20 2e 20 2c 76 61 6c 29 20 72 65 63 69 70 65 29 29 0a 20 20 20 20 28 70 (`(,type...,val).recipe)).....(p
8680 63 61 73 65 20 74 79 70 65 0a 20 20 20 20 20 20 28 27 72 65 67 65 78 0a 20 20 20 20 20 20 20 60 case.type.......('regex........`
86a0 28 6c 61 6d 62 64 61 20 28 6c 6f 63 61 6c 2d 6e 61 6d 65 20 5f 20 5f 20 5f 29 20 28 73 74 72 69 (lambda.(local-name._._._).(stri
86c0 6e 67 2d 6d 61 74 63 68 20 2c 76 61 6c 20 6c 6f 63 61 6c 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 ng-match.,val.local-name))).....
86e0 20 20 28 27 65 78 74 65 6e 73 69 6f 6e 73 0a 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 65 78 74 ..('extensions........(let.((ext
8700 73 20 28 66 6f 72 6d 61 74 20 22 5c 5c 2e 5c 5c 28 25 73 5c 5c 29 24 22 20 28 6d 61 70 63 6f 6e s.(format."\\.\\(%s\\)$".(mapcon
8720 63 61 74 20 23 27 63 6f 6e 63 61 74 20 76 61 6c 20 22 5c 5c 7c 22 29 29 29 29 0a 20 20 20 20 20 cat.#'concat.val."\\|"))))......
8740 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 6c 6f 63 61 6c 2d 6e 61 6d 65 20 5f 20 5f 20 5f 29 20 ....`(lambda.(local-name._._._).
8760 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 2c 65 78 74 73 20 6c 6f 63 61 6c 2d 6e 61 6d 65 29 29 (string-match.,exts.local-name))
8780 29 29 0a 20 20 20 20 20 20 28 27 70 72 65 64 69 63 61 74 65 0a 20 20 20 20 20 20 20 28 63 61 64 )).......('predicate........(cad
87a0 72 20 28 61 73 73 71 20 28 63 64 72 20 72 65 63 69 70 65 29 20 64 69 72 76 69 73 68 2d 65 6d 65 r.(assq.(cdr.recipe).dirvish-eme
87c0 72 67 65 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 70 72 65 64 73 29 29 29 29 29 29 0a 0a 28 64 65 66 rge--available-preds))))))..(def
87e0 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 75 70 64 61 74 65 2d 67 72 6f 75 70 73 un.dirvish-emerge--update-groups
8800 20 28 67 72 6f 75 70 73 29 0a 20 20 22 55 70 64 61 74 65 20 64 69 72 2d 6c 6f 63 61 6c 20 67 72 .(groups)..."Update.dir-local.gr
8820 6f 75 70 73 20 74 6f 20 47 52 4f 55 50 53 2e 22 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 oups.to.GROUPS."...(setq-local.d
8840 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 67 72 6f 75 70 73 29 0a 20 20 28 irvish-emerge-groups.groups)...(
8860 73 65 74 66 20 28 61 6c 69 73 74 2d 67 65 74 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d setf.(alist-get.'dirvish-emerge-
8880 67 72 6f 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 73 74 groups....................(alist
88a0 2d 67 65 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 72 76 69 73 -get.....................'dirvis
88c0 68 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 73 h-mode.....................(alis
88e0 74 2d 67 65 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d t-get.(expand-file-name.default-
8900 64 69 72 65 63 74 6f 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 directory)......................
8920 20 20 20 20 20 20 20 20 20 20 64 69 72 2d 6c 6f 63 61 6c 73 2d 63 6c 61 73 73 2d 61 6c 69 73 74 ..........dir-locals-class-alist
8940 20 6e 69 6c 20 6e 69 6c 20 23 27 73 74 72 69 6e 67 3d 29 29 29 0a 20 20 20 20 20 20 20 20 67 72 .nil.nil.#'string=))).........gr
8960 6f 75 70 73 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 63 oups))..(defun.dirvish-emerge--c
8980 72 65 61 74 65 2d 69 6e 66 69 78 0a 20 20 20 20 28 69 66 78 20 64 65 73 63 72 69 70 74 69 6f 6e reate-infix.....(ifx.description
89a0 20 72 65 63 69 70 65 20 26 6f 70 74 69 6f 6e 61 6c 20 73 65 6c 65 63 74 65 64 20 68 69 64 65 29 .recipe.&optional.selected.hide)
89c0 0a 20 20 22 43 72 65 61 74 65 20 61 6e 20 74 72 61 6e 73 69 65 6e 74 20 69 6e 66 69 78 20 49 46 ..."Create.an.transient.infix.IF
89e0 58 20 6f 66 20 65 6d 65 72 67 65 20 67 72 6f 75 70 2e 0a 44 45 53 43 52 49 50 54 49 4f 4e 2c 20 X.of.emerge.group..DESCRIPTION,.
8a00 52 45 43 49 50 45 2c 20 53 45 4c 45 43 54 45 44 20 61 6e 64 20 48 49 44 45 20 61 72 65 20 69 6e RECIPE,.SELECTED.and.HIDE.are.in
8a20 73 65 72 74 65 64 20 69 6e 74 6f 20 74 68 65 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 73 6c serted.into.the.corresponding.sl
8a40 6f 74 73 2e 22 0a 20 20 28 65 76 61 6c 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 ots."...(eval.`(transient-define
8a60 2d 69 6e 66 69 78 20 2c 69 66 78 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 3a 63 6c 61 73 73 -infix.,ifx.()............:class
8a80 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 .'dirvish-emerge-group..........
8aa0 20 20 3a 72 65 63 69 70 65 20 27 2c 72 65 63 69 70 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 73 ..:recipe.',recipe............:s
8ac0 65 6c 65 63 74 65 64 20 2c 73 65 6c 65 63 74 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 3a 68 69 elected.,selected............:hi
8ae0 64 65 20 2c 68 69 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e de.,hide............:description
8b00 20 2c 64 65 73 63 72 69 70 74 69 6f 6e 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 .,description)))..(defun.dirvish
8b20 2d 65 6d 65 72 67 65 2d 2d 63 72 65 61 74 65 2d 69 6e 66 69 78 65 73 20 28 29 0a 20 20 22 44 65 -emerge--create-infixes.()..."De
8b40 66 69 6e 65 20 61 6e 64 20 63 6f 6c 6c 65 63 74 20 65 6d 65 72 67 65 20 67 72 6f 75 70 73 20 66 fine.and.collect.emerge.groups.f
8b60 72 6f 6d 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 27 2e 22 0a 20 20 rom.`dirvish-emerge-groups'."...
8b80 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 6c 65 6e 20 3d 20 28 6c 65 6e 67 74 68 20 64 69 72 76 (cl-loop.with.len.=.(length.dirv
8ba0 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f ish-emerge-groups)............fo
8bc0 72 20 69 64 78 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 64 65 73 r.idx.from.0............for.(des
8be0 63 20 72 65 63 69 70 65 20 68 69 64 65 20 73 65 6c 65 63 74 65 64 29 20 69 6e 20 28 73 65 71 2d c.recipe.hide.selected).in.(seq-
8c00 74 61 6b 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 39 39 29 0a 20 take.dirvish-emerge-groups.99)..
8c20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 69 66 78 20 3d 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 ..........for.ifx.=.(intern.(for
8c40 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 69 6e 66 69 78 22 0a 20 20 20 20 20 20 20 20 20 mat."dirvish-%s-infix"..........
8c60 20 20 20 20 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 70 ............................(rep
8c80 6c 61 63 65 2d 72 65 67 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 20 22 20 22 2d 22 20 64 65 lace-regexp-in-string."."."-".de
8ca0 73 63 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6b 65 79 20 3d 20 28 66 6f 72 6d sc)))............for.key.=.(form
8cc0 61 74 20 28 69 66 20 28 3e 20 6c 65 6e 20 31 30 29 20 22 25 30 32 69 22 20 22 25 69 22 29 20 69 at.(if.(>.len.10)."%02i"."%i").i
8ce0 64 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 70 72 6f 67 6e 0a 20 20 dx)............collect.(progn...
8d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 ...................(dirvish-emer
8d20 67 65 2d 2d 63 72 65 61 74 65 2d 69 6e 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ge--create-infix................
8d40 20 20 20 20 20 20 20 69 66 78 20 64 65 73 63 20 72 65 63 69 70 65 20 73 65 6c 65 63 74 65 64 20 .......ifx.desc.recipe.selected.
8d60 68 69 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 28 6c 69 73 74 hide)......................(list
8d80 20 6b 65 79 20 69 66 78 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 .key.ifx))))..(defun.dirvish-eme
8da0 72 67 65 2d 2d 69 66 78 2d 61 70 70 6c 79 20 28 29 0a 20 20 22 41 70 70 6c 79 20 65 6d 65 72 67 rge--ifx-apply.()..."Apply.emerg
8dc0 65 20 69 6e 66 69 78 65 73 20 69 6e 20 60 74 72 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d e.infixes.in.`transient-current-
8de0 73 75 66 66 69 78 65 73 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 69 66 78 65 73 20 28 63 6c 2d suffixes'."...(let*.((ifxes.(cl-
8e00 6c 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 74 72 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d loop.for.o.in.transient-current-
8e20 73 75 66 66 69 78 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 suffixes........................
8e40 20 20 77 68 65 6e 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 29 20 27 64 69 72 76 69 73 68 2d ..when.(eq.(type-of.o).'dirvish-
8e60 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 emerge-group)...................
8e80 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 6f 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 72 6f .......collect.o))..........(gro
8ea0 75 70 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 69 66 78 65 73 0a 20 20 20 20 ups.(cl-loop.for.o.in.ifxes.....
8ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c ......................collect.(l
8ee0 69 73 74 20 28 6f 72 65 66 20 6f 20 64 65 73 63 72 69 70 74 69 6f 6e 29 20 28 6f 72 65 66 20 6f ist.(oref.o.description).(oref.o
8f00 20 72 65 63 69 70 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 .recipe)........................
8f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 20 68 69 64 65 29 20 28 .................(oref.o.hide).(
8f40 6f 72 65 66 20 6f 20 73 65 6c 65 63 74 65 64 29 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 oref.o.selected))))).....(dirvis
8f60 68 2d 65 6d 65 72 67 65 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 66 h-emerge-mode.1).....(revert-buf
8f80 66 65 72 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 6f 72 63 65 2d 65 6d fer).....(dirvish-prop.:force-em
8fa0 65 72 67 65 20 74 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d erge.t).....(setq-local.dirvish-
8fc0 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 67 72 6f 75 70 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 emerge-groups.groups)))..(defun.
8fe0 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 75 6e 73 65 6c 65 63 74 20 28 29 0a dirvish-emerge--ifx-unselect.().
9000 20 20 22 55 6e 73 65 6c 65 63 74 20 73 65 6c 65 63 74 65 64 20 65 6d 65 72 67 65 20 67 72 6f 75 .."Unselect.selected.emerge.grou
9020 70 73 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 62 6a 20 69 6e 20 74 72 61 6e 73 ps."...(cl-loop.for.obj.in.trans
9040 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 0a 20 20 20 20 20 20 20 20 20 20 ient-current-suffixes...........
9060 20 77 68 65 6e 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 62 6a 29 20 27 64 69 72 76 69 73 68 .when.(eq.(type-of.obj).'dirvish
9080 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 6f 73 -emerge-group)............do.(os
90a0 65 74 20 6f 62 6a 20 73 65 6c 65 63 74 65 64 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 et.obj.selected.nil)))..(defun.d
90c0 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 74 6f 67 67 6c 65 2d 68 69 64 69 6e 67 irvish-emerge--ifx-toggle-hiding
90e0 20 28 29 0a 20 20 22 48 69 64 65 20 73 65 6c 65 63 74 65 64 20 65 6d 65 72 67 65 20 67 72 6f 75 .()..."Hide.selected.emerge.grou
9100 70 73 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 62 6a 20 69 6e 20 74 72 61 6e 73 ps."...(cl-loop.for.obj.in.trans
9120 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 0a 20 20 20 20 20 20 20 20 20 20 ient-current-suffixes...........
9140 20 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 62 6a 29 20 27 64 69 .when.(and.(eq.(type-of.obj).'di
9160 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 rvish-emerge-group).............
9180 20 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 62 6a 20 73 65 6c 65 63 74 65 64 29 29 0a 20 20 .........(oref.obj.selected))...
91a0 20 20 20 20 20 20 20 20 20 64 6f 20 28 6f 73 65 74 20 6f 62 6a 20 68 69 64 65 20 28 6e 6f 74 20 .........do.(oset.obj.hide.(not.
91c0 28 6f 72 65 66 20 6f 62 6a 20 68 69 64 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 (oref.obj.hide)))))..(defun.dirv
91e0 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 61 64 64 20 28 29 0a 20 20 22 41 64 64 20 61 20 ish-emerge--ifx-add.()..."Add.a.
9200 6e 65 77 20 65 6d 65 72 67 65 20 67 72 6f 75 70 20 74 6f 20 60 74 72 61 6e 73 69 65 6e 74 2d 63 new.emerge.group.to.`transient-c
9220 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 74 79 70 65 urrent-suffixes'."...(let.((type
9240 20 28 70 63 61 73 65 20 28 72 65 61 64 2d 63 68 61 72 2d 63 68 6f 69 63 65 0a 20 20 20 20 20 20 .(pcase.(read-char-choice.......
9260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 50 72 65 73 73 20 65 20 66 6f 72 20 65 78 74 ................"Press.e.for.ext
9280 65 6e 73 69 6f 6e 73 2c 20 70 20 66 6f 72 20 70 72 65 64 69 63 61 74 65 2c 20 72 20 66 6f 72 20 ensions,.p.for.predicate,.r.for.
92a0 72 65 67 65 78 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 27 regex:.".......................'
92c0 28 3f 65 20 3f 70 20 3f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 30 31 (?e.?p.?r)).................(101
92e0 20 27 65 78 74 65 6e 73 69 6f 6e 73 29 20 28 31 31 32 20 27 70 72 65 64 69 63 61 74 65 29 20 28 .'extensions).(112.'predicate).(
9300 27 31 31 34 20 27 72 65 67 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 6e 61 6d 65 73 20 28 6d '114.'regex))).........(names.(m
9320 61 70 63 61 72 20 23 27 63 61 72 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 apcar.#'car.dirvish-emerge-group
9340 73 29 29 0a 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 73 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 s)).........(groups.(buffer-loca
9360 6c 2d 76 61 6c 75 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 28 l-value.'dirvish-emerge-groups.(
9380 63 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 69 64 78 20 31 current-buffer))).........(idx.1
93a0 29 20 28 64 65 66 61 75 6c 74 20 22 41 6e 6f 6e 2d 31 22 29 20 72 65 63 69 70 65 20 74 69 74 6c ).(default."Anon-1").recipe.titl
93c0 65 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6d 65 6d 62 65 72 20 64 65 66 61 75 6c 74 20 6e 61 e).....(while.(member.default.na
93e0 6d 65 73 29 0a 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 69 64 78 29 0a 20 20 20 20 20 20 28 mes).......(cl-incf.idx).......(
9400 73 65 74 71 20 64 65 66 61 75 6c 74 20 28 66 6f 72 6d 61 74 20 22 41 6e 6f 6e 2d 25 73 22 20 69 setq.default.(format."Anon-%s".i
9420 64 78 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 72 65 63 69 70 65 20 28 64 69 72 76 69 73 68 2d dx))).....(setq.recipe.(dirvish-
9440 65 6d 65 72 67 65 2d 72 65 61 64 2d 72 65 63 69 70 65 20 28 63 6f 6e 73 20 74 79 70 65 20 6e 69 emerge-read-recipe.(cons.type.ni
9460 6c 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 74 69 74 6c 65 20 28 72 65 61 64 2d 73 74 72 69 6e l))).....(setq.title.(read-strin
9480 67 20 22 47 72 6f 75 70 20 74 69 74 6c 65 3a 20 22 20 64 65 66 61 75 6c 74 29 29 0a 20 20 20 20 g."Group.title:.".default)).....
94a0 28 70 75 73 68 20 28 6c 69 73 74 20 74 69 74 6c 65 20 28 63 6f 6e 73 20 74 79 70 65 20 72 65 63 (push.(list.title.(cons.type.rec
94c0 69 70 65 29 29 20 67 72 6f 75 70 73 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 ipe)).groups).....(dirvish-emerg
94e0 65 2d 2d 75 70 64 61 74 65 2d 67 72 6f 75 70 73 20 67 72 6f 75 70 73 29 0a 20 20 20 20 28 64 69 e--update-groups.groups).....(di
9500 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 rvish-emerge-menu)))..(defun.dir
9520 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 72 65 6d 6f 76 65 20 28 29 0a 20 20 22 52 65 vish-emerge--ifx-remove.()..."Re
9540 6d 6f 76 65 20 61 6e 20 65 6d 65 72 67 65 20 67 72 6f 75 70 20 66 72 6f 6d 20 60 74 72 61 6e 73 move.an.emerge.group.from.`trans
9560 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 27 2e 22 0a 20 20 28 63 6c 2d 6c ient-current-suffixes'."...(cl-l
9580 6f 6f 70 20 66 6f 72 20 6f 62 6a 20 69 6e 20 74 72 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 oop.for.obj.in.transient-current
95a0 2d 73 75 66 66 69 78 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 -suffixes............when.(and.(
95c0 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 62 6a 29 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 eq.(type-of.obj).'dirvish-emerge
95e0 2d 67 72 6f 75 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 -group)......................(or
9600 65 66 20 6f 62 6a 20 73 65 6c 65 63 74 65 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 ef.obj.selected))............do.
9620 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 75 70 64 61 74 65 2d 67 72 6f 75 70 73 0a 20 (dirvish-emerge--update-groups..
9640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 6f 63 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 ..............(assoc-delete-all.
9660 28 6f 72 65 66 20 6f 62 6a 20 64 65 73 63 72 69 70 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 (oref.obj.description)..........
9680 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 69 72 76 69 73 68 2d ........................dirvish-
96a0 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 28 64 69 72 76 emerge-groups.#'equal)))...(dirv
96c0 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 ish-emerge-menu))..(defun.dirvis
96e0 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 70 72 6f 6d 6f 74 65 20 28 26 6f 70 74 69 6f 6e 61 6c h-emerge--ifx-promote.(&optional
9700 20 64 65 6d 6f 74 65 29 0a 20 20 22 53 68 69 66 74 20 73 65 6c 65 63 74 65 64 20 65 6d 65 72 67 .demote)..."Shift.selected.emerg
9720 65 20 67 72 6f 75 70 73 20 74 68 65 20 68 69 67 68 65 73 74 20 70 6f 73 69 74 69 6f 6e 2e 0a 49 e.groups.the.highest.position..I
9740 66 20 44 45 4d 4f 54 45 2c 20 73 68 69 66 74 20 74 68 65 6d 20 74 6f 20 74 68 65 20 6c 6f 77 65 f.DEMOTE,.shift.them.to.the.lowe
9760 73 74 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 73 65 6c st.instead."...(cl-loop.with.sel
9780 20 3d 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6f 62 6a 20 69 6e 20 74 72 61 6e .=.()............for.obj.in.tran
97a0 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 0a 20 20 20 20 20 20 20 20 20 sient-current-suffixes..........
97c0 20 20 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 62 6a 29 20 27 64 ..when.(and.(eq.(type-of.obj).'d
97e0 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 irvish-emerge-group)............
9800 20 20 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 62 6a 20 73 65 6c 65 63 74 65 64 29 29 0a 20 ..........(oref.obj.selected))..
9820 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 72 6f 67 6e 20 28 70 75 73 68 20 6f 62 6a 20 73 65 ..........do.(progn.(push.obj.se
9840 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 73 65 74 66 20 64 69 l)......................(setf.di
9860 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 rvish-emerge-groups.............
9880 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 6f 63 2d 64 65 6c 65 74 65 2d 61 6c 6c ...............(assoc-delete-all
98a0 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 6f 72 .............................(or
98c0 65 66 20 6f 62 6a 20 64 65 73 63 72 69 70 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ef.obj.description).............
98e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 ................dirvish-emerge-g
9900 72 6f 75 70 73 20 23 27 65 71 75 61 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 roups.#'equal)))............fina
9920 6c 6c 79 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 65 6c 20 28 63 6c 2d 6c lly............(let*.((sel.(cl-l
9940 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 28 72 65 76 65 72 73 65 20 73 65 6c 29 20 63 6f 6c 6c 65 oop.for.o.in.(reverse.sel).colle
9960 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 20 ct..............................
9980 20 20 20 28 6c 69 73 74 20 28 6f 72 65 66 20 6f 20 64 65 73 63 72 69 70 74 69 6f 6e 29 20 28 6f ...(list.(oref.o.description).(o
99a0 72 65 66 20 6f 20 72 65 63 69 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ref.o.recipe)...................
99c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 20 68 69 64 65 ....................(oref.o.hide
99e0 29 20 28 6f 72 65 66 20 6f 20 73 65 6c 65 63 74 65 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 ).(oref.o.selected))))..........
9a00 20 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 73 20 28 69 66 20 64 65 6d 6f 74 65 20 28 61 70 70 .........(groups.(if.demote.(app
9a20 65 6e 64 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 73 65 6c 29 0a 20 end.dirvish-emerge-groups.sel)..
9a40 20 20 20 20 20 20 20 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 ...............................(
9a60 61 70 70 65 6e 64 20 73 65 6c 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 append.sel.dirvish-emerge-groups
9a80 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 ))))..............(dirvish-emerg
9aa0 65 2d 2d 75 70 64 61 74 65 2d 67 72 6f 75 70 73 20 67 72 6f 75 70 73 29 29 29 0a 20 20 28 64 69 e--update-groups.groups)))...(di
9ac0 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 rvish-emerge-menu))..(defun.dirv
9ae0 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 72 65 61 64 20 28 29 0a 20 20 22 52 65 61 64 20 ish-emerge--ifx-read.()..."Read.
9b00 67 72 6f 75 70 73 20 66 72 6f 6d 20 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 2e 22 0a 20 20 28 groups.from..dir-locals.el."...(
9b20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e 2d 67 72 6f 75 70 73 2d 31 20 dirvish-emerge--readin-groups-1.
9b40 74 29 0a 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 29 29 0a 0a 28 64 65 t)...(dirvish-emerge-menu))..(de
9b60 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 77 72 69 74 65 20 28 29 fun.dirvish-emerge--ifx-write.()
9b80 0a 20 20 22 57 72 69 74 65 20 67 72 6f 75 70 73 20 74 6f 20 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e ..."Write.groups.to..dir-locals.
9ba0 65 6c 2e 22 0a 20 20 28 61 64 64 2d 64 69 72 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 0a 20 el."...(add-dir-local-variable..
9bc0 20 20 27 64 69 72 65 64 2d 6d 6f 64 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 ..'dired-mode.'dirvish-emerge-gr
9be0 6f 75 70 73 0a 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 74 72 61 6e 73 69 oups....(cl-loop.for.o.in.transi
9c00 65 6e 74 2d 63 75 72 72 65 6e 74 2d 73 75 66 66 69 78 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 ent-current-suffixes............
9c20 20 77 68 65 6e 20 28 65 71 20 28 74 79 70 65 2d 6f 66 20 6f 29 20 27 64 69 72 76 69 73 68 2d 65 .when.(eq.(type-of.o).'dirvish-e
9c40 6d 65 72 67 65 2d 67 72 6f 75 70 29 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 merge-group).collect............
9c60 20 28 6c 69 73 74 20 28 6f 72 65 66 20 6f 20 64 65 73 63 72 69 70 74 69 6f 6e 29 20 28 6f 72 65 .(list.(oref.o.description).(ore
9c80 66 20 6f 20 72 65 63 69 70 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f f.o.recipe)...................(o
9ca0 72 65 66 20 6f 20 68 69 64 65 29 20 28 6f 72 65 66 20 6f 20 73 65 6c 65 63 74 65 64 29 29 29 29 ref.o.hide).(oref.o.selected))))
9cc0 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e )..(defun.dirvish-emerge--readin
9ce0 2d 67 72 6f 75 70 73 2d 31 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 2d 72 65 61 64 29 0a 20 20 -groups-1.(&optional.re-read)...
9d00 22 48 65 6c 70 65 72 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 72 65 61 "Helper.for.`dirvish-emerge--rea
9d20 64 69 6e 2d 67 72 6f 75 70 73 27 2e 0a 57 68 65 6e 20 52 45 2d 52 45 41 44 2c 20 72 65 61 64 20 din-groups'..When.RE-READ,.read.
9d40 67 72 6f 75 70 73 20 66 72 6f 6d 20 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 20 72 65 67 61 72 groups.from..dir-locals.el.regar
9d60 64 6c 65 73 73 20 6f 66 20 63 61 63 68 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 69 72 2d 6c 6f dless.of.cache."...(let.((dir-lo
9d80 63 61 6c 73 2d 64 69 72 65 63 74 6f 72 79 2d 63 61 63 68 65 0a 20 20 20 20 20 20 20 20 20 28 69 cals-directory-cache..........(i
9da0 66 20 72 65 2d 72 65 61 64 20 6e 69 6c 20 64 69 72 2d 6c 6f 63 61 6c 73 2d 64 69 72 65 63 74 6f f.re-read.nil.dir-locals-directo
9dc0 72 79 2d 63 61 63 68 65 29 29 29 0a 20 20 20 20 28 68 61 63 6b 2d 64 69 72 2d 6c 6f 63 61 6c 2d ry-cache))).....(hack-dir-local-
9de0 76 61 72 69 61 62 6c 65 73 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 69 72 2d 6c 6f 63 61 6c 20 variables))...(let*.((dir-local.
9e00 28 63 64 72 20 28 61 73 73 71 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 (cdr.(assq.'dirvish-emerge-group
9e20 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s...............................
9e40 20 66 69 6c 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 2d 61 6c 69 73 74 29 29 29 0a 20 .file-local-variables-alist)))..
9e60 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 ........(groups...........(cond.
9e80 28 72 65 2d 72 65 61 64 20 64 69 72 2d 6c 6f 63 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 (re-read.dir-local).............
9ea0 20 20 20 20 28 28 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 2d 69 66 2d 73 65 74 2d 70 20 27 64 ....((local-variable-if-set-p.'d
9ec0 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 29 0a 20 20 20 20 20 20 20 20 20 20 irvish-emerge-groups)...........
9ee0 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 6c 75 65 20 27 64 69 72 76 .......(buffer-local-value.'dirv
9f00 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 ish-emerge-groups.(current-buffe
9f20 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 2d 6c 6f 63 61 6c 20 r))).................(dir-local.
9f40 64 69 72 2d 6c 6f 63 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 dir-local).................(t.(d
9f60 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f efault-value.'dirvish-emerge-gro
9f80 75 70 73 29 29 29 29 29 0a 20 20 20 20 28 68 61 63 6b 2d 6f 6e 65 2d 6c 6f 63 61 6c 2d 76 61 72 ups))))).....(hack-one-local-var
9fa0 69 61 62 6c 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 20 67 72 6f iable.'dirvish-emerge-groups.gro
9fc0 75 70 73 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 65 6d 65 72 67 65 2d 70 ups).....(dirvish-prop.:emerge-p
9fe0 72 65 64 73 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 64 78 20 66 72 6f 6d reds.......(cl-loop.for.idx.from
a000 20 30 20 74 6f 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 67 72 6f 75 70 73 29 29 0a 20 20 20 20 20 .0.to.(1-.(length.groups))......
a020 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 5f 64 65 73 63 20 72 65 63 69 70 65 29 20 69 6e 20 ..........for.(_desc.recipe).in.
a040 67 72 6f 75 70 73 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 groups.collect................(c
a060 6f 6e 73 20 69 64 78 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 61 6b 65 2d 70 72 ons.idx.(dirvish-emerge--make-pr
a080 65 64 20 72 65 63 69 70 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d ed.recipe))))))..(defun.dirvish-
a0a0 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e 2d 67 72 6f 75 70 73 20 28 26 6f 70 74 69 6f 6e 61 6c emerge--readin-groups.(&optional
a0c0 20 5f 64 76 20 5f 65 6e 74 72 79 20 62 75 66 66 65 72 29 0a 20 20 22 52 65 61 64 69 6e 20 65 6d ._dv._entry.buffer)..."Readin.em
a0e0 65 72 67 65 20 67 72 6f 75 70 73 20 69 6e 20 42 55 46 46 45 52 20 66 6f 72 20 73 65 73 73 69 6f erge.groups.in.BUFFER.for.sessio
a100 6e 20 44 56 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 6f n.DV."...(with-current-buffer.(o
a120 72 20 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 r.buffer.(current-buffer)).....(
a140 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e 2d 67 72 6f 75 70 73 2d 31 29 dirvish-emerge--readin-groups-1)
a160 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 ))..(defvar.dirvish-emerge-group
a180 2d 68 65 61 64 69 6e 67 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d -heading-map...(let.((map.(make-
a1a0 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
a1c0 20 6d 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 .map.(kbd."TAB").'dirvish-emerge
a1e0 2d 74 6f 67 67 6c 65 2d 63 75 72 72 65 6e 74 2d 67 72 6f 75 70 29 0a 20 20 20 20 6d 61 70 29 0a -toggle-current-group).....map).
a200 20 20 22 4b 65 79 6d 61 70 20 75 73 65 64 20 77 68 65 6e 20 6f 76 65 72 20 61 20 67 72 6f 75 70 .."Keymap.used.when.over.a.group
a220 20 68 65 61 64 69 6e 67 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 .heading.")..(defun.dirvish-emer
a240 67 65 2d 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 28 64 65 73 63 20 68 69 64 65 29 0a 20 20 ge--group-heading.(desc.hide)...
a260 22 46 6f 72 6d 61 74 20 65 6d 65 72 67 65 20 67 72 6f 75 70 20 68 65 61 64 69 6e 67 20 69 6e 20 "Format.emerge.group.heading.in.
a280 44 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 0a 44 45 53 43 20 61 6e 64 20 48 49 44 45 20 61 72 Dirvish.buffer..DESC.and.HIDE.ar
a2a0 65 20 74 68 65 20 67 72 6f 75 70 20 74 69 74 6c 65 20 61 6e 64 20 76 69 73 69 62 69 6c 69 74 79 e.the.group.title.and.visibility
a2c0 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 .respectively."...(let.((prefix.
a2e0 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 0a (propertize.".".'font-lock-face.
a300 20 20 20 20 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 28 3a 69 ............................'(:i
a320 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 2d 74 69 74 6c nherit.dirvish-emerge-group-titl
a340 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 20 e...............................
a360 20 20 20 20 20 20 20 20 20 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 29 0a 20 20 .........:strike-through.t)))...
a380 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 ......(title.(propertize.(format
a3a0 20 22 20 25 73 25 73 20 22 20 64 65 73 63 20 28 69 66 20 68 69 64 65 20 22 20 28 48 69 64 64 65 .".%s%s.".desc.(if.hide.".(Hidde
a3c0 6e 29 22 20 22 22 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 n)".""))........................
a3e0 20 20 20 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 ....'font-lock-face.'dirvish-eme
a400 72 67 65 2d 67 72 6f 75 70 2d 74 69 74 6c 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 75 66 66 69 rge-group-title)).........(suffi
a420 78 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 64 69 73 70 6c 61 79 20 27 28 73 70 61 x.(propertize.".".'display.'(spa
a440 63 65 20 3a 61 6c 69 67 6e 2d 74 6f 20 72 69 67 68 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ce.:align-to.right).............
a460 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 66 61 63 65 0a ................'font-lock-face.
a480 20 20 20 20 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 28 3a 69 ............................'(:i
a4a0 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 2d 74 69 74 6c nherit.dirvish-emerge-group-titl
a4c0 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 20 e...............................
a4e0 20 20 20 20 20 20 20 20 20 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 68 20 74 29 29 29 29 0a 20 .........:strike-through.t))))..
a500 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 25 73 5c 6e ...(propertize.(format."%s%s%s\n
a520 22 20 70 72 65 66 69 78 20 74 69 74 6c 65 20 73 75 66 66 69 78 29 0a 20 20 20 20 20 20 20 20 20 ".prefix.title.suffix)..........
a540 20 20 20 20 20 20 20 27 6b 65 79 6d 61 70 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 .......'keymap.dirvish-emerge-gr
a560 6f 75 70 2d 68 65 61 64 69 6e 67 2d 6d 61 70 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 oup-heading-map)))..(defun.dirvi
a580 73 68 2d 65 6d 65 72 67 65 2d 2d 69 6e 73 65 72 74 2d 67 72 6f 75 70 20 28 67 72 6f 75 70 29 0a sh-emerge--insert-group.(group).
a5a0 20 20 22 49 6e 73 65 72 74 20 61 6e 20 69 6e 64 69 76 69 64 75 61 6c 20 47 52 4f 55 50 20 74 6f .."Insert.an.individual.GROUP.to
a5c0 20 62 75 66 66 65 72 2e 22 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 60 28 2c 69 64 78 .buffer."...(pcase-let*.((`(,idx
a5e0 20 2c 64 65 73 63 20 2c 68 69 64 65 20 2c 66 69 6c 65 73 29 20 67 72 6f 75 70 29 0a 20 20 20 20 .,desc.,hide.,files).group).....
a600 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 20 28 70 6f 69 6e 74 29 29 20 28 65 6d 70 74 79 20 ...........(beg.(point)).(empty.
a620 6e 69 6c 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6c 69 73 74 70 20 66 69 6c 65 73 29 0a 20 20 nil)).....(when.(listp.files)...
a640 20 20 20 20 28 73 65 74 71 20 65 6d 70 74 79 20 28 6e 6f 74 20 66 69 6c 65 73 29 0a 20 20 20 20 ....(setq.empty.(not.files).....
a660 20 20 20 20 20 20 20 20 66 69 6c 65 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 ........files.(mapconcat.#'conca
a680 74 20 28 6e 72 65 76 65 72 73 65 20 66 69 6c 65 73 29 20 22 22 29 29 29 0a 20 20 20 20 28 75 6e t.(nreverse.files).""))).....(un
a6a0 6c 65 73 73 20 65 6d 70 74 79 20 28 69 6e 73 65 72 74 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 less.empty.(insert.(dirvish-emer
a6c0 67 65 2d 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 64 65 73 63 20 68 69 64 65 29 29 29 0a 20 ge--group-heading.desc.hide)))..
a6e0 20 20 20 28 75 6e 6c 65 73 73 20 68 69 64 65 20 28 69 6e 73 65 72 74 20 66 69 6c 65 73 29 29 0a ...(unless.hide.(insert.files)).
a700 20 20 20 20 28 6c 65 74 20 28 28 6f 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 62 65 67 20 28 ....(let.((o.(make-overlay.beg.(
a720 70 6f 69 6e 74 29 29 29 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 20 27 point)))).......(overlay-put.o.'
a740 65 76 61 70 6f 72 61 74 65 20 74 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 evaporate.t).......(overlay-put.
a760 6f 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 o.'dirvish-emerge...............
a780 20 20 20 20 20 28 6c 69 73 74 20 69 64 78 20 64 65 73 63 20 68 69 64 65 20 28 75 6e 6c 65 73 73 .....(list.idx.desc.hide.(unless
a7a0 20 65 6d 70 74 79 20 66 69 6c 65 73 29 20 65 6d 70 74 79 29 29 0a 20 20 20 20 20 20 28 70 75 73 .empty.files).empty)).......(pus
a7c0 68 20 6f 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 h.o.dirvish-emerge--group-overla
a7e0 79 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 ys))))..(defun.dirvish-emerge--i
a800 6e 73 65 72 74 2d 67 72 6f 75 70 73 20 28 67 72 6f 75 70 73 20 26 6f 70 74 69 6f 6e 61 6c 20 70 nsert-groups.(groups.&optional.p
a820 6f 73 20 62 65 67 20 65 6e 64 29 0a 20 20 22 49 6e 73 65 72 74 20 47 52 4f 55 50 53 20 74 68 65 os.beg.end)..."Insert.GROUPS.the
a840 6e 20 72 65 73 75 6d 65 20 63 75 72 73 6f 72 20 74 6f 20 50 4f 53 2e 0a 50 4f 53 20 63 61 6e 20 n.resume.cursor.to.POS..POS.can.
a860 62 65 20 61 20 69 6e 74 65 67 65 72 20 6f 72 20 66 69 6c 65 6e 61 6d 65 2e 0a 42 45 47 20 61 6e be.a.integer.or.filename..BEG.an
a880 64 20 45 4e 44 20 64 65 74 65 72 6d 69 6e 65 20 74 68 65 20 62 6f 75 6e 64 61 72 79 20 6f 66 20 d.END.determine.the.boundary.of.
a8a0 67 72 6f 75 70 73 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 62 65 67 20 65 6e 64 29 0a groups."...(unless.(or.beg.end).
a8c0 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 6f 6e ....(setq.beg.(dirvish-prop.:con
a8e0 74 65 6e 74 2d 62 65 67 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 65 6e 64 20 28 2d 20 28 64 69 tent-begin)...........end.(-.(di
a900 72 65 64 2d 73 75 62 64 69 72 2d 6d 61 78 29 20 28 69 66 20 28 63 64 72 20 64 69 72 65 64 2d 73 red-subdir-max).(if.(cdr.dired-s
a920 75 62 64 69 72 2d 61 6c 69 73 74 29 20 31 20 30 29 29 29 29 0a 20 20 28 77 69 74 68 2d 73 69 6c ubdir-alist).1.0))))...(with-sil
a940 65 6e 74 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 ent-modifications.....(setq.dirv
a960 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 29 0a ish-emerge--group-overlays.nil).
a980 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 ....(delete-region.beg.end).....
a9a0 28 6d 61 70 63 20 23 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 6e 73 65 72 74 2d 67 (mapc.#'dirvish-emerge--insert-g
a9c0 72 6f 75 70 20 67 72 6f 75 70 73 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 65 roup.groups).....(setq.dirvish-e
a9e0 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 20 20 20 20 merge--group-overlays...........
aa00 28 6e 72 65 76 65 72 73 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d (nreverse.dirvish-emerge--group-
aa20 6f 76 65 72 6c 61 79 73 29 29 29 0a 20 20 28 63 6f 6e 64 20 28 28 6e 75 6d 62 65 72 70 20 70 6f overlays)))...(cond.((numberp.po
aa40 73 29 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 s).(goto-char.pos)).........((st
aa60 72 69 6e 67 70 20 70 6f 73 29 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 70 6f 73 29 ringp.pos).(dired-goto-file.pos)
aa80 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 70 70 6c )))..(defun.dirvish-emerge--appl
aaa0 79 2d 31 20 28 70 72 65 64 73 29 0a 20 20 22 48 65 6c 70 65 72 20 66 6f 72 20 60 64 69 72 76 69 y-1.(preds)..."Helper.for.`dirvi
aac0 73 68 2d 65 6d 65 72 67 65 2d 2d 61 70 70 6c 79 27 2e 0a 50 52 45 44 53 20 61 72 65 20 6c 6f 63 sh-emerge--apply'..PREDS.are.loc
aae0 61 6c 6c 79 20 63 6f 6d 70 6f 73 65 64 20 70 72 65 64 69 63 61 74 65 73 2e 22 0a 20 20 28 6c 65 ally.composed.predicates."...(le
ab00 74 20 28 28 6f 6c 64 2d 66 69 6c 65 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 t.((old-file.(dirvish-prop.:inde
ab20 78 29 29 0a 20 20 20 20 20 20 20 20 28 67 72 6f 75 70 73 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 x)).........(groups.(cl-loop....
ab40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 67 72 73 20 3d 20 28 61 70 70 65 6e 64 ..............with.grs.=.(append
ab60 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 0a 20 20 20 20 20 20 20 20 20 .dirvish-emerge-groups..........
ab80 20 20 20 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 28 28 22 2d ...........................'(("-
aba0 22 20 6e 69 6c 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f ".nil.nil)))..................fo
abc0 72 20 69 20 66 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 r.i.from.0..................for.
abe0 28 64 65 73 63 20 5f 20 68 69 64 65 29 20 69 6e 20 67 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 (desc._.hide).in.grs............
ac00 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 69 20 64 65 73 63 20 68 69 64 65 20 ......collect.(list.i.desc.hide.
ac20 27 28 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 62 65 67 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f '()))).........(beg.(progn.(goto
ac40 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 -char.(point-min)).(dirvish-prop
ac60 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 28 65 6e 64 20 .:content-begin))).........(end.
ac80 28 2d 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d 6d 61 78 29 20 28 69 66 20 28 63 64 72 20 64 (-.(dired-subdir-max).(if.(cdr.d
aca0 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 20 31 20 30 29 29 29 0a 20 20 20 20 20 20 ired-subdir-alist).1.0))).......
acc0 20 20 28 6d 61 78 2d 69 64 78 20 28 6c 65 6e 67 74 68 20 70 72 65 64 73 29 29 0a 20 20 20 20 20 ..(max-idx.(length.preds))......
ace0 20 20 20 28 64 69 72 20 28 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 28 64 69 72 65 64 2d ...(dir.(file-local-name.(dired-
ad00 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 current-directory)))).....(while
ad20 20 28 3c 20 28 70 6f 69 6e 74 29 20 65 6e 64 29 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 .(<.(point).end).......(when-let
ad40 20 28 28 66 2d 62 65 67 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 .((f-beg.(dired-move-to-filename
ad60 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 65 6e 64 20 28 64 69 72 65 ))..................(f-end.(dire
ad80 64 2d 6d 6f 76 65 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 d-move-to-end-of-filename)))....
ada0 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 2d 62 65 67 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 .....(let*.((l-beg.(line-beginni
adc0 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 2d ng-position))................(l-
ade0 65 6e 64 20 28 31 2b 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 29 29 0a 20 20 end.(1+.(line-end-position)))...
ae00 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 6f 63 61 6c 20 28 62 75 66 66 65 72 2d 73 75 62 73 .............(local.(buffer-subs
ae20 74 72 69 6e 67 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 66 2d 62 65 67 20 66 2d 65 6e 64 29 tring-no-properties.f-beg.f-end)
ae40 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6c 6c 20 28 63 6f 6e 63 61 74 20 64 )................(full.(concat.d
ae60 69 72 20 6c 6f 63 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 ir.local))................(type.
ae80 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 75 6c 6c 20 3a 74 (dirvish-attribute-cache.full.:t
aea0 79 70 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 74 72 73 20 28 64 69 72 ype))................(attrs.(dir
aec0 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 75 6c 6c 20 3a 62 75 69 6c 74 vish-attribute-cache.full.:built
aee0 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 74 63 68 20 28 63 6c 2d 6c in))................(match.(cl-l
af00 6f 6f 70 20 66 6f 72 20 28 69 6e 64 65 78 20 2e 20 66 6e 29 20 69 6e 20 70 72 65 64 73 0a 20 20 oop.for.(index...fn).in.preds...
af20 20 20 20 20 20 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 6f 72 .............................for
af40 20 6d 61 74 63 68 20 3d 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 6c 6f 63 61 6c 20 66 75 6c 6c 20 .match.=.(funcall.fn.local.full.
af60 74 79 70 65 20 61 74 74 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 type.attrs).....................
af80 20 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 61 6e 64 20 6d 61 74 63 68 20 69 6e ...........thereis.(and.match.in
afa0 64 65 78 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 62 75 66 66 65 72 2d dex))))...........(push.(buffer-
afc0 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 2d 62 65 67 20 6c 2d substring-no-properties.l-beg.l-
afe0 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 33 20 28 6e 74 68 end).................(nth.3.(nth
b000 20 28 6f 72 20 6d 61 74 63 68 20 6d 61 78 2d 69 64 78 29 20 67 72 6f 75 70 73 29 29 29 29 29 0a .(or.match.max-idx).groups))))).
b020 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 0a 20 20 20 20 28 64 69 72 ......(forward-line.1)).....(dir
b040 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 6e 73 65 72 74 2d 67 72 6f 75 70 73 20 67 72 6f 75 70 vish-emerge--insert-groups.group
b060 73 20 6f 6c 64 2d 66 69 6c 65 20 62 65 67 20 65 6e 64 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 s.old-file.beg.end)))..(defun.di
b080 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 70 70 6c 79 20 28 29 0a 20 20 22 52 65 61 64 69 6e rvish-emerge--apply.()..."Readin
b0a0 20 60 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 27 20 61 6e 64 20 61 70 70 .`dirvish-emerge-groups'.and.app
b0c0 6c 79 20 74 68 65 6d 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 64 69 72 ly.them."...(when.(and.(not.(dir
b0e0 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 vish-prop.:fd-arglist)).........
b100 20 20 20 20 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 6f 72 63 65 2d 65 6d .....(or.(dirvish-prop.:force-em
b120 65 72 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 68 61 73 68 2d erge)..................(<.(hash-
b140 74 61 62 6c 65 2d 63 6f 75 6e 74 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 29 table-count.dirvish--attrs-hash)
b160 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 65 6d 65 .....................dirvish-eme
b180 72 67 65 2d 6d 61 78 2d 66 69 6c 65 2d 63 6f 75 6e 74 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 rge-max-file-count))).....(dirvi
b1a0 73 68 2d 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e 2d 67 72 6f 75 70 73 29 0a 20 20 20 20 28 77 sh-emerge--readin-groups).....(w
b1c0 68 65 6e 2d 6c 65 74 20 28 28 70 72 65 64 73 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 65 hen-let.((preds.(dirvish-prop.:e
b1e0 6d 65 72 67 65 2d 70 72 65 64 73 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 65 6d merge-preds))).......(dirvish-em
b200 65 72 67 65 2d 2d 61 70 70 6c 79 2d 31 20 70 72 65 64 73 29 29 29 29 0a 0a 3b 3b 3b 3b 20 49 6e erge--apply-1.preds))))..;;;;.In
b220 74 65 72 61 63 74 69 76 65 20 63 6f 6d 6d 61 6e 64 73 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f teractive.commands..;;;###autolo
b240 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e 75 20 28 29 ad.(defun.dirvish-emerge-menu.()
b260 0a 20 20 22 4d 61 6e 61 67 65 20 70 69 6e 6e 65 64 20 66 69 6c 65 73 20 69 6e 20 44 69 72 76 69 ..."Manage.pinned.files.in.Dirvi
b280 73 68 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d sh."...(interactive)...(dirvish-
b2a0 65 6d 65 72 67 65 2d 2d 72 65 61 64 69 6e 2d 67 72 6f 75 70 73 29 0a 20 20 28 65 76 61 6c 0a 20 emerge--readin-groups)...(eval..
b2c0 20 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 ..`(transient-define-prefix.dirv
b2e0 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d 65 6e 75 20 28 29 0a 20 20 20 20 20 20 22 4d 61 6e 61 67 ish-emerge--menu.()......."Manag
b300 65 20 70 69 6e 6e 65 64 20 66 69 6c 65 73 20 69 6e 20 44 69 72 76 69 73 68 2e 22 0a 20 20 20 20 e.pinned.files.in.Dirvish.".....
b320 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 ..[:description........(lambda.(
b340 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 0a ).(dirvish--format-menu-heading.
b360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 61 6e 61 67 65 20 45 6d 65 72 67 69 6e 67 20 47 .............."Manage.Emerging.G
b380 72 6f 75 70 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 50 72 65 73 73 20 74 68 65 20 roups"..............."Press.the.
b3a0 69 6e 64 65 78 20 28 6c 69 6b 65 20 5c 22 31 5c 22 29 20 74 6f 20 73 65 6c 65 63 74 20 74 68 65 index.(like.\"1\").to.select.the
b3c0 20 67 72 6f 75 70 0a 50 72 65 73 73 20 61 67 61 69 6e 20 74 6f 20 73 65 74 20 74 68 65 20 76 61 .group.Press.again.to.set.the.va
b3e0 6c 75 65 20 66 6f 72 20 74 68 65 20 67 72 6f 75 70 22 29 29 0a 20 20 20 20 20 20 20 5b 22 41 63 lue.for.the.group"))........["Ac
b400 74 69 76 65 20 67 72 6f 75 70 73 3a 22 0a 20 20 20 20 20 20 20 20 2c 40 28 69 66 20 64 69 72 76 tive.groups:".........,@(if.dirv
b420 69 73 68 2d 65 6d 65 72 67 65 2d 67 72 6f 75 70 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ish-emerge-groups...............
b440 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 63 72 65 61 74 65 2d 69 6e 66 69 78 65 73 29 (dirvish-emerge--create-infixes)
b460 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 27 28 22 2b 22 20 22 20 20 50 72 65 73 .............(list.'("+"."..Pres
b480 73 20 2b 20 74 6f 20 61 64 64 20 61 20 67 72 6f 75 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 s.+.to.add.a.group".............
b4a0 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 ........(lambda.().(interactive)
b4c0 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 61 64 64 29 29 29 29 29 5d 0a .(dirvish-emerge--ifx-add)))))].
b4e0 20 20 20 20 20 20 20 5b 22 41 63 74 69 6f 6e 73 3a 22 0a 20 20 20 20 20 20 20 20 28 22 52 45 54 .......["Actions:".........("RET
b500 22 20 22 41 70 70 6c 79 20 63 75 72 72 65 6e 74 20 73 65 74 75 70 22 20 28 6c 61 6d 62 64 61 20 "."Apply.current.setup".(lambda.
b520 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 ().(interactive).(dirvish-emerge
b540 2d 2d 69 66 78 2d 61 70 70 6c 79 29 29 29 0a 20 20 20 20 20 20 20 20 28 22 75 22 20 22 20 20 55 --ifx-apply))).........("u"."..U
b560 6e 73 65 6c 65 63 74 20 61 6c 6c 20 67 72 6f 75 70 73 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 nselect.all.groups"..........(la
b580 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 mbda.().(interactive).(dirvish-e
b5a0 6d 65 72 67 65 2d 2d 69 66 78 2d 75 6e 73 65 6c 65 63 74 29 29 20 3a 74 72 61 6e 73 69 65 6e 74 merge--ifx-unselect)).:transient
b5c0 20 74 29 0a 20 20 20 20 20 20 20 20 28 22 76 22 20 22 20 20 54 6f 67 67 6c 65 20 76 69 73 69 62 .t).........("v"."..Toggle.visib
b5e0 69 6c 69 74 79 20 6f 66 20 73 65 6c 65 63 74 65 64 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d ility.of.selected"..........(lam
b600 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d bda.().(interactive).(dirvish-em
b620 65 72 67 65 2d 2d 69 66 78 2d 74 6f 67 67 6c 65 2d 68 69 64 69 6e 67 29 29 20 3a 74 72 61 6e 73 erge--ifx-toggle-hiding)).:trans
b640 69 65 6e 74 20 74 29 0a 20 20 20 20 20 20 20 20 28 22 61 22 20 22 20 20 41 64 64 20 61 20 67 72 ient.t).........("a"."..Add.a.gr
b660 6f 75 70 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 oup"..........(lambda.().(intera
b680 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 61 64 64 29 ctive).(dirvish-emerge--ifx-add)
b6a0 29 29 0a 20 20 20 20 20 20 20 20 28 22 78 22 20 22 20 20 52 65 6d 6f 76 65 20 73 65 6c 65 63 74 )).........("x"."..Remove.select
b6c0 65 64 20 67 72 6f 75 70 73 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 ed.groups"..........(lambda.().(
b6e0 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 interactive).(dirvish-emerge--if
b700 78 2d 72 65 6d 6f 76 65 29 29 29 0a 20 20 20 20 20 20 20 20 28 22 74 22 20 22 20 20 50 72 6f 6d x-remove))).........("t"."..Prom
b720 6f 74 65 20 73 65 6c 65 63 74 65 64 20 67 72 6f 75 70 73 20 28 74 6f 70 29 22 0a 20 20 20 20 20 ote.selected.groups.(top)"......
b740 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 ....(lambda.().(interactive).(di
b760 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 70 72 6f 6d 6f 74 65 29 29 29 0a 20 20 20 rvish-emerge--ifx-promote)))....
b780 20 20 20 20 20 28 22 62 22 20 22 20 20 44 65 6d 6f 74 65 20 73 65 6c 65 63 74 65 64 20 67 72 6f .....("b"."..Demote.selected.gro
b7a0 75 70 73 20 28 62 6f 74 74 6f 6d 29 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 ups.(bottom)"..........(lambda.(
b7c0 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d ).(interactive).(dirvish-emerge-
b7e0 2d 69 66 78 2d 70 72 6f 6d 6f 74 65 20 27 64 65 6d 6f 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 -ifx-promote.'demote))).........
b800 28 22 6e 22 20 22 20 20 4a 75 6d 70 20 74 6f 20 6e 65 78 74 20 67 72 6f 75 70 22 20 64 69 72 76 ("n"."..Jump.to.next.group".dirv
b820 69 73 68 2d 65 6d 65 72 67 65 2d 6e 65 78 74 2d 67 72 6f 75 70 0a 20 20 20 20 20 20 20 20 20 3a ish-emerge-next-group..........:
b840 74 72 61 6e 73 69 65 6e 74 20 74 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 64 69 72 76 69 transient.t.:if.(lambda.().dirvi
b860 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 29 29 0a 20 20 20 20 sh-emerge--group-overlays)).....
b880 20 20 20 20 28 22 70 22 20 22 20 20 4a 75 6d 70 20 74 6f 20 70 72 65 76 69 6f 75 73 20 67 72 6f ....("p"."..Jump.to.previous.gro
b8a0 75 70 22 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 70 72 65 76 69 6f 75 73 2d 67 72 6f 75 up".dirvish-emerge-previous-grou
b8c0 70 0a 20 20 20 20 20 20 20 20 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 20 3a 69 66 20 28 6c 61 6d p..........:transient.t.:if.(lam
b8e0 62 64 61 20 28 29 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 bda.().dirvish-emerge--group-ove
b900 72 6c 61 79 73 29 29 0a 20 20 20 20 20 20 20 20 28 22 72 22 20 22 20 20 52 65 61 64 20 67 72 6f rlays)).........("r"."..Read.gro
b920 75 70 73 20 66 72 6f 6d 20 2e 64 69 72 2d 6c 6f 63 61 6c 73 2e 65 6c 22 0a 20 20 20 20 20 20 20 ups.from..dir-locals.el"........
b940 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 ..(lambda.().(interactive).(dirv
b960 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 72 65 61 64 29 29 29 0a 20 20 20 20 20 20 20 20 ish-emerge--ifx-read))).........
b980 28 22 77 22 20 22 20 20 57 72 69 74 65 20 67 72 6f 75 70 73 20 74 6f 20 2e 64 69 72 2d 6c 6f 63 ("w"."..Write.groups.to..dir-loc
b9a0 61 6c 73 2e 65 6c 22 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 6e 74 als.el"..........(lambda.().(int
b9c0 65 72 61 63 74 69 76 65 29 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 66 78 2d 77 eractive).(dirvish-emerge--ifx-w
b9e0 72 69 74 65 29 29 29 5d 5d 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 6d rite)))]]))...(dirvish-emerge--m
ba00 65 6e 75 29 29 0a 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 enu))..;;;###autoload.(define-mi
ba20 6e 6f 72 2d 6d 6f 64 65 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 6f 64 65 0a 20 20 22 nor-mode.dirvish-emerge-mode..."
ba40 54 6f 67 67 6c 65 20 67 72 6f 75 70 69 6e 67 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 44 69 72 76 Toggle.grouping.of.files.in.Dirv
ba60 69 73 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 28 69 66 20 64 69 ish."...:group.'dirvish...(if.di
ba80 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 rvish-emerge-mode.......(progn..
baa0 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d .......(add-hook.'dirvish-setup-
bac0 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 61 70 70 6c 79 20 6e 69 6c hook.#'dirvish-emerge--apply.nil
bae0 20 74 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 64 69 72 76 69 73 68 2d 65 6d 65 72 .t).........(unless.dirvish-emer
bb00 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 ge--group-overlays.(dirvish-emer
bb20 67 65 2d 2d 61 70 70 6c 79 29 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 64 ge--apply))).....(remove-hook.'d
bb40 69 72 76 69 73 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 65 6d 65 72 irvish-setup-hook.#'dirvish-emer
bb60 67 65 2d 2d 61 70 70 6c 79 20 74 29 0a 20 20 20 20 28 6d 61 70 63 20 23 27 64 65 6c 65 74 65 2d ge--apply.t).....(mapc.#'delete-
bb80 6f 76 65 72 6c 61 79 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 overlay.dirvish-emerge--group-ov
bba0 65 72 6c 61 79 73 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 erlays).....(setq.dirvish-emerge
bbc0 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 29 0a 20 20 20 20 28 72 65 76 65 72 --group-overlays.nil).....(rever
bbe0 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 t-buffer)))..(defun.dirvish-emer
bc00 67 65 2d 2d 67 65 74 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 20 28 29 0a 20 20 22 52 65 74 75 ge--get-group-overlay.()..."Retu
bc20 72 6e 20 6f 76 65 72 6c 61 79 20 66 6f 72 20 74 68 65 20 67 72 6f 75 70 20 61 74 20 70 6f 69 6e rn.overlay.for.the.group.at.poin
bc40 74 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 t."...(unless.dirvish-emerge--gr
bc60 6f 75 70 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 oup-overlays.....(user-error."Di
bc80 72 76 69 73 68 3a 20 6e 6f 20 67 72 6f 75 70 73 20 61 70 70 6c 69 65 64 20 68 65 72 65 22 29 29 rvish:.no.groups.applied.here"))
bca0 0a 20 20 28 6c 65 74 20 28 28 70 6f 73 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 28 63 6c 2d ...(let.((pos.(point))).....(cl-
bcc0 66 69 6e 64 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 6f 29 20 28 61 6e 64 20 28 6f 76 65 72 6c 61 find-if.(lambda.(o).(and.(overla
bce0 79 2d 73 74 61 72 74 20 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 y-start.o)......................
bd00 20 20 20 20 20 20 20 28 3c 20 70 6f 73 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 29 29 0a 20 .......(<.pos.(overlay-end.o))..
bd20 20 20 20 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 70 ...........................(>=.p
bd40 6f 73 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 29 29 29 29 0a 20 20 20 20 20 20 20 20 os.(overlay-start.o)))).........
bd60 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 ........dirvish-emerge--group-ov
bd80 65 72 6c 61 79 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 erlays)))..(defun.dirvish-emerge
bda0 2d 6e 65 78 74 2d 67 72 6f 75 70 20 28 61 72 67 29 0a 20 20 22 4a 75 6d 70 20 74 6f 20 74 68 65 -next-group.(arg)..."Jump.to.the
bdc0 20 66 69 72 73 74 20 66 69 6c 65 20 69 6e 20 74 68 65 20 6e 65 78 74 20 41 52 47 20 76 69 73 69 .first.file.in.the.next.ARG.visi
bde0 62 6c 65 20 67 72 6f 75 70 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 5e 70 22 29 ble.group."...(interactive."^p")
be00 0a 20 20 28 6c 65 74 2a 20 28 28 6f 6c 64 2d 6f 76 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 ...(let*.((old-ov.(dirvish-emerg
be20 65 2d 2d 67 65 74 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 29 29 0a 20 20 20 20 20 20 20 20 20 e--get-group-overlay))..........
be40 28 6f 6c 64 2d 69 64 78 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 6f 6c 64 2d 6f 76 20 64 69 72 (old-idx.(cl-position.old-ov.dir
be60 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 29 29 0a 20 20 vish-emerge--group-overlays))...
be80 20 20 20 20 20 20 20 28 74 61 72 67 65 74 20 28 2b 20 6f 6c 64 2d 69 64 78 20 61 72 67 29 29 0a .......(target.(+.old-idx.arg)).
bea0 20 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 64 69 72 76 69 73 .........(len.(1-.(length.dirvis
bec0 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 29 29 29 0a 20 20 20 20 h-emerge--group-overlays))).....
bee0 20 20 20 20 20 28 69 64 78 20 28 6d 61 78 20 28 6d 69 6e 20 6c 65 6e 20 74 61 72 67 65 74 29 20 .....(idx.(max.(min.len.target).
bf00 30 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 61 72 67 65 74 2d 6f 76 20 28 6e 74 68 20 69 64 78 0))..........(target-ov.(nth.idx
bf20 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 29 .dirvish-emerge--group-overlays)
bf40 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 20 28 6f 72 20 28 3e 3d 20 )).....(while.(and.(not.(or.(>=.
bf60 69 64 78 20 6c 65 6e 29 20 28 3c 3d 20 69 64 78 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 idx.len).(<=.idx.0)))...........
bf80 20 20 20 20 20 20 28 6e 6f 74 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 74 61 72 67 65 74 ......(not.(overlay-start.target
bfa0 2d 6f 76 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 69 64 78 20 28 6d 61 78 20 28 6d 69 6e -ov))).......(setq.idx.(max.(min
bfc0 20 6c 65 6e 20 28 2b 20 69 64 78 20 28 69 66 20 28 3e 20 61 72 67 20 30 29 20 31 20 2d 31 29 29 .len.(+.idx.(if.(>.arg.0).1.-1))
bfe0 29 20 30 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 74 61 72 67 65 74 2d 6f 76 20 28 6e 74 68 ).0)).......(setq.target-ov.(nth
c000 20 69 64 78 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c .idx.dirvish-emerge--group-overl
c020 61 79 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 6f 6c 64 2d 69 64 78 20 69 64 ays))).....(cond.((eq.old-idx.id
c040 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 74 61 72 67 65 74 2d 6f 76 20 28 6f x))...........((and.target-ov.(o
c060 76 65 72 6c 61 79 2d 73 74 61 72 74 20 74 61 72 67 65 74 2d 6f 76 29 29 0a 20 20 20 20 20 20 20 verlay-start.target-ov))........
c080 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 74 61 ....(goto-char.(overlay-start.ta
c0a0 72 67 65 74 2d 6f 76 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 65 6d rget-ov))))))..(defun.dirvish-em
c0c0 65 72 67 65 2d 70 72 65 76 69 6f 75 73 2d 67 72 6f 75 70 20 28 61 72 67 29 0a 20 20 22 4a 75 6d erge-previous-group.(arg)..."Jum
c0e0 70 20 74 6f 20 74 68 65 20 66 69 72 73 74 20 66 69 6c 65 20 69 6e 20 74 68 65 20 70 72 65 76 69 p.to.the.first.file.in.the.previ
c100 6f 75 73 20 41 52 47 20 76 69 73 69 62 6c 65 20 67 72 6f 75 70 2e 22 0a 20 20 28 69 6e 74 65 72 ous.ARG.visible.group."...(inter
c120 61 63 74 69 76 65 20 22 5e 70 22 29 0a 20 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6e active."^p")...(dirvish-emerge-n
c140 65 78 74 2d 67 72 6f 75 70 20 28 2d 20 30 20 61 72 67 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 ext-group.(-.0.arg)))..(defun.di
c160 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 74 6f 67 67 6c 65 2d 63 75 72 72 65 6e 74 2d 67 72 6f 75 rvish-emerge-toggle-current-grou
c180 70 20 28 29 0a 20 20 22 54 6f 67 67 6c 65 20 74 68 65 20 63 75 72 72 65 6e 74 20 67 72 6f 75 70 p.()..."Toggle.the.current.group
c1a0 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 ."...(interactive)...(cl-loop...
c1c0 20 77 69 74 68 20 63 75 72 72 2d 6f 76 20 3d 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d .with.curr-ov.=.(dirvish-emerge-
c1e0 2d 67 65 74 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 29 0a 20 20 20 77 69 74 68 20 67 72 6f 75 -get-group-overlay)....with.grou
c200 70 73 20 3d 20 28 29 0a 20 20 20 77 69 74 68 20 70 6f 73 20 3d 20 28 69 66 20 28 64 69 72 76 69 ps.=.()....with.pos.=.(if.(dirvi
c220 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 63 sh-prop.:index).(overlay-start.c
c240 75 72 72 2d 6f 76 29 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 66 6f 72 20 6f 20 69 6e 20 64 69 72 urr-ov).(point))....for.o.in.dir
c260 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 66 vish-emerge--group-overlays....f
c280 6f 72 20 28 69 64 78 20 64 65 73 63 20 68 69 64 65 20 66 69 6c 65 73 29 20 3d 20 28 6f 76 65 72 or.(idx.desc.hide.files).=.(over
c2a0 6c 61 79 2d 67 65 74 20 6f 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 29 0a 20 20 20 64 6f lay-get.o.'dirvish-emerge)....do
c2c0 20 28 77 68 65 6e 20 28 65 71 20 63 75 72 72 2d 6f 76 20 6f 29 0a 20 20 20 20 20 20 20 20 28 73 .(when.(eq.curr-ov.o).........(s
c2e0 65 74 71 20 68 69 64 65 20 28 6e 6f 74 20 68 69 64 65 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 etq.hide.(not.hide)).........(le
c300 74 20 28 28 67 72 6f 75 70 20 28 6e 74 68 20 69 64 78 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 t.((group.(nth.idx.dirvish-emerg
c320 65 2d 67 72 6f 75 70 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 28 6c 65 e-groups)))...........(if.(<.(le
c340 6e 67 74 68 20 67 72 6f 75 70 29 20 33 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c ngth.group).3)...............(cl
c360 2d 63 61 6c 6c 66 20 61 70 70 65 6e 64 20 67 72 6f 75 70 20 27 28 74 29 29 0a 20 20 20 20 20 20 -callf.append.group.'(t)).......
c380 20 20 20 20 20 20 28 63 6c 2d 63 61 6c 6c 66 20 6e 6f 74 20 28 6e 74 68 20 32 20 67 72 6f 75 70 ......(cl-callf.not.(nth.2.group
c3a0 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 68 69 64 65 0a 20 20 20 20 20 20 20 20 )))).........(when.hide.........
c3c0 20 20 28 73 65 74 71 20 66 69 6c 65 73 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 0a ..(setq.files.(buffer-substring.
c3e0 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 61 76 65 2d 65 78 63 .......................(save-exc
c400 75 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 ursion.(goto-char.(overlay-start
c420 20 6f 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 .o))............................
c440 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 20 28 70 6f ............(forward-line.1).(po
c460 69 6e 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 28 6f 76 int))........................(ov
c480 65 72 6c 61 79 2d 65 6e 64 20 6f 29 29 29 29 29 0a 20 20 20 64 6f 20 28 70 75 73 68 20 28 6c 69 erlay-end.o)))))....do.(push.(li
c4a0 73 74 20 69 64 78 20 64 65 73 63 20 68 69 64 65 20 66 69 6c 65 73 29 20 67 72 6f 75 70 73 29 0a st.idx.desc.hide.files).groups).
c4c0 20 20 20 66 69 6e 61 6c 6c 79 20 28 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 69 6e 73 65 ...finally.(dirvish-emerge--inse
c4e0 72 74 2d 67 72 6f 75 70 73 20 28 6e 72 65 76 65 72 73 65 20 67 72 6f 75 70 73 29 20 70 6f 73 29 rt-groups.(nreverse.groups).pos)
c500 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 29 0a 3b 3b ))..(provide.'dirvish-emerge).;;
c520 3b 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 ;.dirvish-emerge.el.ends.here...
c540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c600 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 79 61 dirvish-20230519.1500/dirvish-ya
c620 6e 6b 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 nk.el...........................
c640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c660 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
c680 30 30 36 35 37 30 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 34 31 37 00 20 30 00 00 00 0065701.00000000000.015417..0...
c6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c700 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...................
c720 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...................
c740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
c800 3b 3b 3b 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2e 65 6c 20 2d 2d 2d 20 4d 75 6c 74 69 2d 73 74 ;;;.dirvish-yank.el.---.Multi-st
c820 61 67 65 20 61 6e 64 20 61 73 79 6e 63 20 63 6f 70 79 2f 70 61 73 74 65 2f 6c 69 6e 6b 20 75 74 age.and.async.copy/paste/link.ut
c840 69 6c 69 74 69 65 73 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d ilities.-*-.lexical-binding:.t.-
c860 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 *-..;;.Copyright.(C).2021-2022.A
c880 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 lex.Lu.;;.Author.:.Alex.Lu.<http
c8a0 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 s://github.com/alexluigit>.;;.Ve
c8c0 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 rsion:.2.0.53.;;.Keywords:.files
c8e0 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 ,.convenience.;;.Homepage:.https
c900 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 ://github.com/alexluigit/dirvish
c920 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c .;;.SPDX-License-Identifier:.GPL
c940 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a -3.0-or-later..;;;.Commentary:..
c960 3b 3b 20 4d 75 6c 74 69 2d 73 74 61 67 65 20 61 6e 64 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 ;;.Multi-stage.and.asynchronous.
c980 63 6f 70 79 2f 70 61 73 74 65 2f 6c 69 6e 6b 20 75 74 69 6c 69 74 69 65 73 20 69 6e 20 44 69 72 copy/paste/link.utilities.in.Dir
c9a0 76 69 73 68 2e 0a 0a 3b 3b 20 57 69 74 68 20 74 68 65 20 6d 75 6c 74 69 2d 73 74 61 67 65 20 6f vish...;;.With.the.multi-stage.o
c9c0 70 65 72 61 74 69 6f 6e 73 2c 20 79 6f 75 20 63 61 6e 20 67 61 74 68 65 72 20 66 69 6c 65 73 20 perations,.you.can.gather.files.
c9e0 66 72 6f 6d 20 6d 75 6c 74 69 70 6c 65 20 44 69 72 65 64 0a 3b 3b 20 62 75 66 66 65 72 73 20 69 from.multiple.Dired.;;.buffers.i
ca00 6e 74 6f 20 61 20 73 69 6e 67 6c 65 20 22 63 6c 69 70 62 6f 61 72 64 22 2c 20 74 68 65 6e 20 63 nto.a.single."clipboard",.then.c
ca20 6f 70 79 20 6f 72 20 6d 6f 76 65 20 61 6c 6c 20 6f 66 20 74 68 65 6d 20 74 6f 20 74 68 65 0a 3b opy.or.move.all.of.them.to.the.;
ca40 3b 20 74 61 72 67 65 74 20 6c 6f 63 61 74 69 6f 6e 2e 0a 0a 3b 3b 20 48 65 72 65 20 61 72 65 20 ;.target.location...;;.Here.are.
ca60 74 68 65 20 61 76 61 69 6c 61 62 6c 65 20 63 6f 6d 6d 61 6e 64 73 3a 0a 3b 3b 20 4e 6f 74 65 20 the.available.commands:.;;.Note.
ca80 74 68 61 74 20 74 68 65 79 20 61 72 65 20 61 73 79 6e 63 68 72 6f 6e 6f 75 73 20 61 6e 64 20 77 that.they.are.asynchronous.and.w
caa0 6f 72 6b 20 6f 6e 20 62 6f 74 68 20 6c 6f 63 61 6c 68 6f 73 74 20 61 6e 64 20 72 65 6d 6f 74 65 ork.on.both.localhost.and.remote
cac0 20 68 6f 73 74 2e 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 79 61 6e 6b 27 0a 3b 3b 20 2d 20 .host..;;.-.`dirvish-yank'.;;.-.
cae0 60 64 69 72 76 69 73 68 2d 6d 6f 76 65 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 73 79 6d `dirvish-move'.;;.-.`dirvish-sym
cb00 6c 69 6e 6b 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 72 65 6c 61 74 69 76 65 2d 73 79 6d link'.;;.-.`dirvish-relative-sym
cb20 6c 69 6e 6b 27 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 68 61 72 64 6c 69 6e 6b 27 0a 3b 3b link'.;;.-.`dirvish-hardlink'.;;
cb40 20 2d 20 60 64 69 72 76 69 73 68 2d 72 73 79 6e 63 27 20 28 72 65 71 75 69 72 65 73 20 27 72 73 .-.`dirvish-rsync'.(requires.'rs
cb60 79 6e 63 27 20 65 78 65 63 75 74 61 62 6c 65 29 0a 3b 3b 20 2d 20 60 64 69 72 76 69 73 68 2d 72 ync'.executable).;;.-.`dirvish-r
cb80 73 79 6e 63 2d 74 72 61 6e 73 69 65 6e 74 27 20 28 72 65 71 75 69 72 65 73 20 27 72 73 79 6e 63 sync-transient'.(requires.'rsync
cba0 27 20 65 78 65 63 75 74 61 62 6c 65 29 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 '.executable)..;;;.Code:..(requi
cbc0 72 65 20 27 64 69 72 65 64 2d 61 75 78 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 re.'dired-aux).(require.'dirvish
cbe0 29 0a 28 72 65 71 75 69 72 65 20 27 74 72 61 6d 70 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 ).(require.'tramp)..(defcustom.d
cc00 69 72 76 69 73 68 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 20 27 61 6c 6c 0a 20 20 22 54 68 65 20 irvish-yank-sources.'all..."The.
cc20 77 61 79 20 74 6f 20 63 6f 6c 6c 65 63 74 20 73 6f 75 72 63 65 20 66 69 6c 65 73 2e 0a 54 68 65 way.to.collect.source.files..The
cc40 20 76 61 6c 75 65 20 63 61 6e 20 62 65 20 61 20 73 79 6d 62 6f 6c 20 6f 72 20 61 20 66 75 6e 63 .value.can.be.a.symbol.or.a.func
cc60 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 61 20 66 69 6c 65 73 65 74 2e 22 0a 20 20 tion.that.returns.a.fileset."...
cc80 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 :group.'dirvish...:type.'(choice
cca0 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4d 61 72 6b 65 64 20 66 69 6c 65 73 20 69 6e 20 63 75 .(const.:tag."Marked.files.in.cu
ccc0 72 72 65 6e 74 20 62 75 66 66 65 72 22 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 rrent.buffer".buffer)...........
cce0 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4d 61 72 6b 65 64 20 66 69 6c 65 73 .......(const.:tag."Marked.files
cd00 20 69 6e 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 22 20 73 65 73 73 69 6f 6e 29 0a 20 20 .in.current.session".session)...
cd20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4d 61 72 6b ...............(const.:tag."Mark
cd40 65 64 20 66 69 6c 65 73 20 69 6e 20 61 6c 6c 20 44 69 72 65 64 20 62 75 66 66 65 72 73 22 20 61 ed.files.in.all.Dired.buffers".a
cd60 6c 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a ll)..................(function.:
cd80 74 61 67 20 22 43 75 73 74 6f 6d 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 63 75 tag."Custom.function")))..(defcu
cda0 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 61 75 74 6f 2d 75 6e 6d 61 72 6b 20 74 0a stom.dirvish-yank-auto-unmark.t.
cdc0 20 20 22 43 6f 6e 74 72 6f 6c 20 69 66 20 79 61 6e 6b 20 63 6f 6d 6d 61 6e 64 73 20 73 68 6f 75 .."Control.if.yank.commands.shou
cde0 6c 64 20 75 6e 6d 61 72 6b 20 77 68 65 6e 20 63 6f 6d 70 6c 65 74 65 2e 22 0a 20 20 3a 67 72 6f ld.unmark.when.complete."...:gro
ce00 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 up.'dirvish.:type.'boolean)..(de
ce20 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6f 76 65 72 77 72 69 74 65 2d 65 fcustom.dirvish-yank-overwrite-e
ce40 78 69 73 74 69 6e 67 2d 66 69 6c 65 73 20 27 61 73 6b 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f xisting-files.'ask..."Whether.to
ce60 20 6f 76 65 72 77 72 69 74 65 20 65 78 69 73 74 69 6e 67 20 66 69 6c 65 73 20 77 68 65 6e 20 63 .overwrite.existing.files.when.c
ce80 61 6c 6c 69 6e 67 20 79 61 6e 6b 20 63 6f 6d 6d 61 6e 64 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 alling.yank.commands."...:group.
cea0 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 'dirvish...:type.'(choice.(const
cec0 20 3a 74 61 67 20 22 70 72 6f 6d 70 74 20 66 6f 72 20 63 6f 6e 66 69 72 6d 61 74 69 6f 6e 22 20 .:tag."prompt.for.confirmation".
cee0 61 73 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 ask)..................(const.:ta
cf00 67 20 22 61 6c 77 61 79 73 20 6f 76 65 72 77 72 69 74 65 22 20 61 6c 77 61 79 73 29 0a 20 20 20 g."always.overwrite".always)....
cf20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 73 6b 69 70 20 ..............(const.:tag."skip.
cf40 74 72 61 6e 73 66 65 72 72 69 6e 67 20 66 69 6c 65 73 20 77 69 74 68 20 73 61 6d 65 20 6e 61 6d transferring.files.with.same.nam
cf60 65 73 22 20 73 6b 69 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 es".skip)..................(cons
cf80 74 20 3a 74 61 67 20 22 6f 76 65 72 77 72 69 74 65 20 61 6e 64 20 62 61 63 6b 75 70 20 74 68 65 t.:tag."overwrite.and.backup.the
cfa0 20 6f 72 69 67 69 6e 61 6c 20 66 69 6c 65 22 20 62 61 63 6b 75 70 29 29 29 0a 0a 28 64 65 66 63 .original.file".backup)))..(defc
cfc0 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6e 65 77 2d 6e 61 6d 65 2d 73 74 79 6c ustom.dirvish-yank-new-name-styl
cfe0 65 20 27 61 70 70 65 6e 64 2d 74 6f 2d 65 78 74 0a 20 20 22 43 6f 6e 74 72 6f 6c 20 74 68 65 20 e.'append-to-ext..."Control.the.
d000 77 61 79 20 74 6f 20 63 6f 6d 70 6f 73 65 20 6e 65 77 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 way.to.compose.new.filename."...
d020 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 :group.'dirvish...:type.'(choice
d040 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 61 70 70 65 6e 64 20 49 4e 44 45 58 7e 20 74 6f 20 66 .(const.:tag."append.INDEX~.to.f
d060 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 22 20 61 70 70 65 6e 64 2d 74 6f 2d 65 78 74 29 0a 20 20 ile.extension".append-to-ext)...
d080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 61 70 70 65 ...............(const.:tag."appe
d0a0 6e 64 20 49 4e 44 45 58 7e 20 74 6f 20 66 69 6c 65 20 6e 61 6d 65 22 20 61 70 70 65 6e 64 2d 74 nd.INDEX~.to.file.name".append-t
d0c0 6f 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f o-filename)..................(co
d0e0 6e 73 74 20 3a 74 61 67 20 22 70 72 65 70 65 6e 64 20 49 4e 44 45 58 7e 20 74 6f 20 66 69 6c 65 nst.:tag."prepend.INDEX~.to.file
d100 20 6e 61 6d 65 22 20 70 72 65 70 65 6e 64 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 29 0a 0a 28 .name".prepend-to-filename)))..(
d120 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 73 79 6e 63 2d 70 72 6f defcustom.dirvish-yank-rsync-pro
d140 67 72 61 6d 20 22 72 73 79 6e 63 22 0a 20 20 22 54 68 65 20 72 73 79 6e 63 20 62 69 6e 61 72 79 gram."rsync"..."The.rsync.binary
d160 20 74 68 61 74 20 77 65 20 61 72 65 20 67 6f 69 6e 67 20 74 6f 20 75 73 65 2e 22 0a 20 20 3a 74 .that.we.are.going.to.use."...:t
d180 79 70 65 20 27 73 74 72 69 6e 67 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 ype.'string.:group.'dirvish)..(d
d1a0 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 73 79 6e 63 2d 61 72 67 73 efcustom.dirvish-yank-rsync-args
d1c0 20 27 28 22 2d 2d 61 72 63 68 69 76 65 22 20 22 2d 2d 76 65 72 62 6f 73 65 22 20 22 2d 2d 63 6f .'("--archive"."--verbose"."--co
d1e0 6d 70 72 65 73 73 22 20 22 2d 2d 69 6e 66 6f 3d 70 72 6f 67 72 65 73 73 32 22 29 0a 20 20 22 54 mpress"."--info=progress2")..."T
d200 68 65 20 64 65 66 61 75 6c 74 20 6f 70 74 69 6f 6e 73 20 66 6f 72 20 74 68 65 20 72 73 79 6e 63 he.default.options.for.the.rsync
d220 20 63 6f 6d 6d 61 6e 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 74 20 3a 67 72 6f 75 70 20 .command."...:type.'list.:group.
d240 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 'dirvish)..(defcustom.dirvish-ya
d260 6e 6b 2d 6b 65 65 70 2d 73 75 63 63 65 73 73 2d 6c 6f 67 20 74 0a 20 20 22 49 66 20 6e 6f 6e 2d nk-keep-success-log.t..."If.non-
d280 6e 69 6c 20 74 68 65 6e 20 6b 65 65 70 20 6c 6f 67 73 20 6f 66 20 61 6c 6c 20 63 6f 6d 70 6c 65 nil.then.keep.logs.of.all.comple
d2a0 74 65 64 20 79 61 6e 6b 73 2e 0a 42 79 20 64 65 66 61 75 6c 74 20 6f 6e 6c 79 20 6c 6f 67 73 20 ted.yanks..By.default.only.logs.
d2c0 66 6f 72 20 79 61 6e 6b 73 20 74 68 61 74 20 66 69 6e 69 73 68 65 64 20 77 69 74 68 20 61 6e 20 for.yanks.that.finished.with.an.
d2e0 65 72 72 6f 72 20 61 72 65 0a 6b 65 70 74 20 61 6c 69 76 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 error.are.kept.alive."...:type.'
d300 62 6f 6f 6c 65 61 6e 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 3b 3b 3b 23 23 23 boolean.:group.'dirvish)..;;;###
d320 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 79 61 6e 6b autoload.(autoload.'dirvish-yank
d340 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 79 61 6e 6b 22 20 6e 69 6c 20 74 29 0a 28 64 65 66 -menu."dirvish-yank".nil.t).(def
d360 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6b 65 79 73 0a 20 20 27 28 28 22 79 custom.dirvish-yank-keys...'(("y
d380 22 20 22 59 61 6e 6b 20 28 70 61 73 74 65 29 20 68 65 72 65 22 20 20 20 20 20 20 20 20 20 20 20 "."Yank.(paste).here"...........
d3a0 64 69 72 76 69 73 68 2d 79 61 6e 6b 29 0a 20 20 20 20 28 22 6d 22 20 22 4d 6f 76 65 20 68 65 72 dirvish-yank).....("m"."Move.her
d3c0 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 6d 6f 76 e"...................dirvish-mov
d3e0 65 29 0a 20 20 20 20 28 22 73 22 20 22 4d 61 6b 65 20 73 79 6d 6c 69 6e 6b 73 20 68 65 72 65 22 e).....("s"."Make.symlinks.here"
d400 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 73 79 6d 6c 69 6e 6b 29 0a 20 20 20 20 28 ..........dirvish-symlink).....(
d420 22 72 22 20 22 4d 61 6b 65 20 72 65 6c 61 74 69 76 65 20 73 79 6d 6c 69 6e 6b 73 20 68 65 72 65 "r"."Make.relative.symlinks.here
d440 22 20 64 69 72 76 69 73 68 2d 72 65 6c 61 74 69 76 65 2d 73 79 6d 6c 69 6e 6b 29 0a 20 20 20 20 ".dirvish-relative-symlink).....
d460 28 22 68 22 20 22 4d 61 6b 65 20 68 61 72 64 6c 69 6e 6b 73 20 68 65 72 65 22 20 20 20 20 20 20 ("h"."Make.hardlinks.here"......
d480 20 20 20 64 69 72 76 69 73 68 2d 68 61 72 64 6c 69 6e 6b 29 29 0a 20 20 22 59 41 4e 4b 2d 4b 45 ...dirvish-hardlink))..."YANK-KE
d4a0 59 73 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 20 60 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6d 65 6e Ys.for.command.`dirvish-yank-men
d4c0 75 27 2e 0a 41 20 59 41 4e 4b 2d 4b 45 59 20 69 73 20 61 20 28 4b 45 59 20 44 4f 43 20 43 4d 44 u'..A.YANK-KEY.is.a.(KEY.DOC.CMD
d4e0 29 20 61 6c 69 73 74 20 77 68 65 72 65 20 4b 45 59 20 69 73 20 74 68 65 20 6b 65 79 20 74 6f 0a ).alist.where.KEY.is.the.key.to.
d500 69 6e 76 6f 6b 65 20 74 68 65 20 43 4d 44 2c 20 44 4f 43 20 69 73 20 74 68 65 20 64 6f 63 75 6d invoke.the.CMD,.DOC.is.the.docum
d520 65 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 entation.string."...:group.'dirv
d540 69 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 0a 20 20 3a 73 65 74 0a 20 20 28 6c 61 6d 62 64 ish.:type.'alist...:set...(lambd
d560 61 20 28 6b 20 76 29 0a 20 20 20 20 28 73 65 74 20 6b 20 76 29 0a 20 20 20 20 28 65 76 61 6c 0a a.(k.v).....(set.k.v).....(eval.
d580 20 20 20 20 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 .....`(transient-define-prefix.d
d5a0 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6d 65 6e 75 20 28 29 0a 20 20 20 20 20 20 20 20 22 59 61 6e irvish-yank-menu.()........."Yan
d5c0 6b 20 63 6f 6d 6d 61 6e 64 73 20 6d 65 6e 75 2e 22 0a 20 20 20 20 20 20 20 20 5b 3a 64 65 73 63 k.commands.menu.".........[:desc
d5e0 72 69 70 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 ription..........(lambda.().(dir
d600 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 53 65 6c 65 63 vish--format-menu-heading."Selec
d620 74 20 79 61 6e 6b 20 6f 70 65 72 61 74 69 6f 6e 20 6f 6e 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 t.yank.operation.on.marked.files
d640 3a 22 29 29 0a 20 20 20 20 20 20 20 20 20 2c 40 76 5d 0a 20 20 20 20 20 20 20 20 28 69 6e 74 65 :"))..........,@v].........(inte
d660 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 64 65 72 69 76 65 64 2d 6d 6f ractive).........(if.(derived-mo
d680 64 65 2d 70 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 de-p.'dired-mode).............(t
d6a0 72 61 6e 73 69 65 6e 74 2d 73 65 74 75 70 20 27 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6d 65 6e ransient-setup.'dirvish-yank-men
d6c0 75 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e u)...........(user-error."Not.in
d6e0 20 61 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 22 29 29 29 29 29 29 0a 0a 28 64 65 66 63 6f .a.Dirvish.buffer"))))))..(defco
d700 6e 73 74 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 66 6e 2d 73 74 72 69 6e 67 0a 20 20 27 28 28 nst.dirvish-yank-fn-string...'((
d720 64 69 72 65 64 2d 63 6f 70 79 2d 66 69 6c 65 20 2e 20 22 43 6f 70 79 69 6e 67 22 29 0a 20 20 20 dired-copy-file..."Copying")....
d740 20 28 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d 66 69 6c 65 20 2e 20 22 4d 6f 76 69 6e 67 22 29 0a .(dired-rename-file..."Moving").
d760 20 20 20 20 28 64 69 72 65 64 2d 68 61 72 64 6c 69 6e 6b 20 2e 20 22 48 61 72 64 6c 69 6e 6b 22 ....(dired-hardlink..."Hardlink"
d780 29 0a 20 20 20 20 28 6d 61 6b 65 2d 73 79 6d 62 6f 6c 69 63 2d 6c 69 6e 6b 20 2e 20 22 53 79 6d ).....(make-symbolic-link..."Sym
d7a0 6c 69 6e 6b 22 29 0a 20 20 20 20 28 64 69 72 65 64 2d 6d 61 6b 65 2d 72 65 6c 61 74 69 76 65 2d link").....(dired-make-relative-
d7c0 73 79 6d 6c 69 6e 6b 20 2e 20 22 52 65 6c 61 74 69 76 65 20 73 79 6d 6c 69 6e 6b 22 29 0a 20 20 symlink..."Relative.symlink")...
d7e0 20 20 28 72 73 79 6e 63 20 2e 20 22 52 73 79 6e 63 22 29 29 29 0a 28 64 65 66 76 61 72 20 64 69 ..(rsync..."Rsync"))).(defvar.di
d800 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f 67 2d 62 75 66 66 65 72 73 20 6e 69 6c 29 0a 3b 3b 20 63 rvish-yank-log-buffers.nil).;;.c
d820 6f 70 69 65 64 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 61 73 79 6e 63 27 20 61 6e 64 20 60 64 69 opied.from.`dired-async'.and.`di
d840 72 65 64 2d 72 73 79 6e 63 27 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 79 61 6e red-rsync'.(defconst.dirvish-yan
d860 6b 2d 65 6e 76 2d 76 61 72 69 61 62 6c 65 73 2d 72 65 67 65 78 70 0a 20 20 22 5c 5c 60 5c 5c 28 k-env-variables-regexp..."\\`\\(
d880 74 72 61 6d 70 2d 5c 5c 28 64 65 66 61 75 6c 74 5c 5c 7c 63 6f 6e 6e 65 63 74 69 6f 6e 5c 5c 7c tramp-\\(default\\|connection\\|
d8a0 72 65 6d 6f 74 65 5c 5c 29 5c 5c 7c 61 6e 67 65 2d 66 74 70 5c 5c 29 2d 2e 2a 22 0a 20 20 22 56 remote\\)\\|ange-ftp\\)-.*"..."V
d8c0 61 72 69 61 62 6c 65 73 20 6d 61 74 63 68 69 6e 67 20 74 68 69 73 20 72 65 67 65 78 70 20 77 69 ariables.matching.this.regexp.wi
d8e0 6c 6c 20 62 65 20 6c 6f 61 64 65 64 20 6f 6e 20 43 68 69 6c 64 20 45 6d 61 63 73 2e 22 29 0a 3b ll.be.loaded.on.Child.Emacs.").;
d900 3b 20 6d 61 74 63 68 65 73 20 22 45 6e 74 65 72 20 70 61 73 73 70 68 72 61 73 65 20 66 6f 72 20 ;.matches."Enter.passphrase.for.
d920 6b 65 79 20 2e 2e 2e 22 20 28 73 73 68 29 20 61 6e 64 20 22 70 61 73 73 77 6f 72 64 20 66 6f 72 key....".(ssh).and."password.for
d940 20 2e 2e 2e 22 20 28 73 61 6d 62 61 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 70 61 ....".(samba).(defvar.dirvish-pa
d960 73 73 70 68 72 61 73 65 2d 73 74 61 6c 6c 2d 72 65 67 65 78 0a 20 20 22 5c 5c 28 45 6e 74 65 72 ssphrase-stall-regex..."\\(Enter
d980 20 5c 5c 29 3f 5b 50 70 5d 61 73 73 5c 5c 28 77 6f 72 64 5c 5c 7c 70 68 72 61 73 65 5c 5c 29 20 .\\)?[Pp]ass\\(word\\|phrase\\).
d9a0 66 6f 72 5c 5c 28 20 6b 65 79 5c 5c 29 3f 22 0a 20 20 22 41 20 72 65 67 65 78 20 74 6f 20 64 65 for\\(.key\\)?"..."A.regex.to.de
d9c0 74 65 63 74 20 70 61 73 73 70 68 72 61 73 65 20 70 72 6f 6d 70 74 73 2e 22 29 0a 28 64 65 66 76 tect.passphrase.prompts.").(defv
d9e0 61 72 20 64 69 72 76 69 73 68 2d 70 65 72 63 65 6e 74 2d 63 6f 6d 70 6c 65 74 65 2d 72 65 67 65 ar.dirvish-percent-complete-rege
da00 78 20 22 5b 5b 3a 64 69 67 69 74 3a 5d 5d 5c 5c 7b 31 2c 33 5c 5c 7d 25 22 0a 20 20 22 41 20 72 x."[[:digit:]]\\{1,3\\}%"..."A.r
da20 65 67 65 78 20 74 6f 20 65 78 74 72 61 63 74 20 74 68 65 20 25 20 63 6f 6d 70 6c 65 74 65 20 66 egex.to.extract.the.%.complete.f
da40 72 6f 6d 20 61 20 66 69 6c 65 2e 22 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 79 61 rom.a.file.").(defvar.dirvish-ya
da60 6e 6b 2d 2d 72 65 6d 6f 74 65 2d 70 6f 72 74 66 77 64 0a 20 20 22 73 73 68 20 2d 70 20 25 64 20 nk--remote-portfwd..."ssh.-p.%d.
da80 2d 6f 20 53 74 72 69 63 74 48 6f 73 74 4b 65 79 43 68 65 63 6b 69 6e 67 3d 6e 6f 20 2d 6f 20 55 -o.StrictHostKeyChecking=no.-o.U
daa0 73 65 72 4b 6e 6f 77 6e 48 6f 73 74 73 46 69 6c 65 3d 2f 64 65 76 2f 6e 75 6c 6c 22 0a 20 20 22 serKnownHostsFile=/dev/null"..."
dac0 41 6e 20 65 78 70 6c 69 63 69 74 20 73 73 68 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 72 73 79 6e An.explicit.ssh.command.for.rsyn
dae0 63 20 74 6f 20 75 73 65 20 70 6f 72 74 20 66 6f 72 77 61 72 64 65 64 20 70 72 6f 78 79 2e 0a 54 c.to.use.port.forwarded.proxy..T
db00 68 65 20 73 74 72 69 6e 67 20 69 73 20 74 72 65 61 74 65 64 20 61 73 20 61 20 66 6f 72 6d 61 74 he.string.is.treated.as.a.format
db20 20 73 74 72 69 6e 67 20 77 68 65 72 65 20 25 64 20 69 73 20 72 65 70 6c 61 63 65 64 20 77 69 74 .string.where.%d.is.replaced.wit
db40 68 20 74 68 65 0a 72 65 73 75 6c 74 73 20 6f 66 20 60 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d h.the.results.of.`dirvish-yank--
db60 67 65 74 2d 72 65 6d 6f 74 65 2d 70 6f 72 74 27 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 get-remote-port'.")..(defun.dirv
db80 69 73 68 2d 79 61 6e 6b 2d 2d 67 65 74 2d 72 65 6d 6f 74 65 2d 70 6f 72 74 20 28 29 0a 20 20 22 ish-yank--get-remote-port.()..."
dba0 52 65 74 75 72 6e 20 74 68 65 20 72 65 6d 6f 74 65 20 70 6f 72 74 20 77 65 20 73 68 61 6c 6c 20 Return.the.remote.port.we.shall.
dbc0 75 73 65 20 66 6f 72 20 74 68 65 20 72 65 76 65 72 73 65 20 70 6f 72 74 2d 66 6f 72 77 61 72 64 use.for.the.reverse.port-forward
dbe0 2e 22 0a 20 20 28 2b 20 35 30 30 30 30 20 28 6c 65 6e 67 74 68 20 64 69 72 76 69 73 68 2d 79 61 ."...(+.50000.(length.dirvish-ya
dc00 6e 6b 2d 6c 6f 67 2d 62 75 66 66 65 72 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 nk-log-buffers)))..(defun.dirvis
dc20 68 2d 79 61 6e 6b 2d 2d 67 65 74 2d 73 72 63 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 61 6e 67 h-yank--get-srcs.(&optional.rang
dc40 65 29 0a 20 20 22 47 65 74 20 61 6c 6c 20 6d 61 72 6b 65 64 20 66 69 6c 65 6e 61 6d 65 73 20 69 e)..."Get.all.marked.filenames.i
dc60 6e 20 52 41 4e 47 45 2e 0a 52 41 4e 47 45 20 63 61 6e 20 62 65 20 60 62 75 66 66 65 72 27 2c 20 n.RANGE..RANGE.can.be.`buffer',.
dc80 60 73 65 73 73 69 6f 6e 27 2c 20 60 61 6c 6c 27 2e 22 0a 20 20 28 73 65 74 71 20 72 61 6e 67 65 `session',.`all'."...(setq.range
dca0 20 28 6f 72 20 72 61 6e 67 65 20 27 62 75 66 66 65 72 29 29 0a 20 20 28 63 6c 2d 72 65 6d 6f 76 .(or.range.'buffer))...(cl-remov
dcc0 65 2d 64 75 70 6c 69 63 61 74 65 73 0a 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 77 69 74 e-duplicates....(cl-loop.....wit
dce0 68 20 63 61 73 65 2d 66 6f 6c 64 2d 73 65 61 72 63 68 20 3d 20 6e 69 6c 0a 20 20 20 20 77 69 74 h.case-fold-search.=.nil.....wit
dd00 68 20 72 65 67 65 78 70 20 3d 20 28 64 69 72 65 64 2d 6d 61 72 6b 65 72 2d 72 65 67 65 78 70 29 h.regexp.=.(dired-marker-regexp)
dd20 0a 20 20 20 20 77 69 74 68 20 62 75 66 66 65 72 73 20 3d 20 28 70 63 61 73 65 20 72 61 6e 67 65 .....with.buffers.=.(pcase.range
dd40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 62 75 66 66 65 72 20 28 ......................('buffer.(
dd60 6c 69 73 74 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 20 20 20 list.(current-buffer))).........
dd80 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 73 65 73 73 69 6f 6e 20 28 6d 61 70 63 61 72 20 23 .............('session.(mapcar.#
dda0 27 63 64 72 20 28 64 76 2d 72 6f 6f 74 73 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 29 'cdr.(dv-roots.(dirvish-curr))))
ddc0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 61 6c 6c 20 28 63 6c 2d ......................('all.(cl-
dde0 6c 6f 6f 70 20 66 6f 72 20 62 20 69 6e 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 0a 20 20 20 20 loop.for.b.in.(buffer-list).....
de00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
de20 77 68 65 6e 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 0a 20 20 20 20 when.(with-current-buffer.b.....
de40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
de60 20 20 20 20 20 20 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 .......(eq.major-mode.'dired-mod
de80 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 20 20 20 20 20 20 20 e)).............................
dea0 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 62 29 29 29 0a 20 20 20 20 66 6f 72 20 62 75 66 ........collect.b))).....for.buf
dec0 66 65 72 20 69 6e 20 28 73 65 71 2d 66 69 6c 74 65 72 20 23 27 62 75 66 66 65 72 2d 6c 69 76 65 fer.in.(seq-filter.#'buffer-live
dee0 2d 70 20 62 75 66 66 65 72 73 29 20 61 70 70 65 6e 64 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 -p.buffers).append.....(with-cur
df00 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 rent-buffer.buffer.......(when.(
df20 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 save-excursion.(goto-char.(point
df40 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -min))..........................
df60 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 72 65 67 65 78 70 20 6e 69 6c ...(re-search-forward.regexp.nil
df80 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 61 70 2d 6f 76 65 72 2d 6d 61 72 .t)).........(dired-map-over-mar
dfa0 6b 73 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 20 6e 69 6c 29 29 29 29 0a ks.(dired-get-filename).nil)))).
dfc0 20 20 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 ...:test.#'equal))..(defun.dirvi
dfe0 73 68 2d 79 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 28 6d 65 74 68 6f 64 29 0a 20 20 22 52 sh-yank--read-dest.(method)..."R
e000 65 61 64 20 64 65 73 74 20 64 69 72 20 66 6f 72 20 4d 45 54 48 4f 44 20 77 68 65 6e 20 70 72 65 ead.dest.dir.for.METHOD.when.pre
e020 66 69 78 65 64 20 77 69 74 68 20 60 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 27 2e fixed.with.`current-prefix-arg'.
e040 22 0a 20 20 28 6c 69 73 74 20 28 77 68 65 6e 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 "...(list.(when.current-prefix-a
e060 72 67 0a 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 6f rg...........(read-file-name.(fo
e080 72 6d 61 74 20 22 25 73 20 66 69 6c 65 73 20 74 6f 3a 20 22 20 6d 65 74 68 6f 64 29 0a 20 20 20 rmat."%s.files.to:.".method)....
e0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 64 77 .......................(dired-dw
e0c0 69 6d 2d 74 61 72 67 65 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 im-target-directory)............
e0e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 27 66 69 6c 65 ...............nil.nil.nil.'file
e100 2d 64 69 72 65 63 74 6f 72 79 2d 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 -directory-p))))..(defun.dirvish
e120 2d 79 61 6e 6b 2d 2d 66 69 6c 65 6e 61 6d 65 2d 66 6f 72 2d 72 73 79 6e 63 20 28 66 69 6c 65 29 -yank--filename-for-rsync.(file)
e140 0a 20 20 22 52 65 66 6f 72 6d 61 74 20 61 20 74 72 61 6d 70 20 46 49 4c 45 20 74 6f 20 6f 6e 65 ..."Reformat.a.tramp.FILE.to.one
e160 20 75 73 61 62 6c 65 20 66 6f 72 20 72 73 79 6e 63 2e 22 0a 20 20 28 69 66 20 28 74 72 61 6d 70 .usable.for.rsync."...(if.(tramp
e180 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d -tramp-file-p.file).......(with-
e1a0 70 61 72 73 65 64 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 6e 61 6d 65 20 66 69 6c 65 20 74 66 6f 70 parsed-tramp-file-name.file.tfop
e1c0 0a 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 3a 25 73 22 20 28 69 66 20 74 .........(format."%s%s:%s".(if.t
e1e0 66 6f 70 2d 75 73 65 72 20 28 66 6f 72 6d 61 74 20 22 25 73 40 22 20 74 66 6f 70 2d 75 73 65 72 fop-user.(format."%s@".tfop-user
e200 29 20 22 22 29 20 74 66 6f 70 2d 68 6f 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 )."").tfop-host.................
e220 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 74 66 6f 70 2d 6c 6f 63 61 6c (shell-quote-argument.tfop-local
e240 6e 61 6d 65 29 29 29 0a 20 20 20 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e name))).....(shell-quote-argumen
e260 74 20 66 69 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 70 t.file)))..(defun.dirvish-yank-p
e280 72 6f 63 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 20 5f 65 78 69 74 29 0a 20 20 22 53 65 6e roc-sentinel.(proc._exit)..."Sen
e2a0 74 69 6e 65 6c 20 66 6f 72 20 79 61 6e 6b 20 74 61 73 6b 20 50 52 4f 43 2e 22 0a 20 20 28 70 63 tinel.for.yank.task.PROC."...(pc
e2c0 61 73 65 2d 6c 65 74 20 28 28 70 72 6f 63 2d 62 75 66 20 28 70 72 6f 63 65 73 73 2d 62 75 66 66 ase-let.((proc-buf.(process-buff
e2e0 65 72 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 62 75 66 66 er.proc))...............(`(,buff
e300 65 72 20 2c 5f 20 2c 5f 20 2c 6d 65 74 68 6f 64 29 20 28 70 72 6f 63 65 73 73 2d 67 65 74 20 70 er.,_.,_.,method).(process-get.p
e320 72 6f 63 20 27 64 65 74 61 69 6c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 roc.'details))...............(st
e340 61 74 75 73 20 28 70 72 6f 63 65 73 73 2d 73 74 61 74 75 73 20 70 72 6f 63 29 29 0a 20 20 20 20 atus.(process-status.proc)).....
e360 20 20 20 20 20 20 20 20 20 20 28 73 75 63 63 65 73 73 20 28 65 71 20 28 70 72 6f 63 65 73 73 2d ..........(success.(eq.(process-
e380 65 78 69 74 2d 73 74 61 74 75 73 20 70 72 6f 63 29 20 30 29 29 29 0a 20 20 20 20 28 77 68 65 6e exit-status.proc).0))).....(when
e3a0 20 28 6d 65 6d 71 20 73 74 61 74 75 73 20 27 28 65 78 69 74 20 73 69 67 6e 61 6c 29 29 0a 20 20 .(memq.status.'(exit.signal))...
e3c0 20 20 20 20 28 69 66 20 28 61 6e 64 20 73 75 63 63 65 73 73 20 28 6e 6f 74 20 64 69 72 76 69 73 ....(if.(and.success.(not.dirvis
e3e0 68 2d 79 61 6e 6b 2d 6b 65 65 70 2d 73 75 63 63 65 73 73 2d 6c 6f 67 29 29 0a 20 20 20 20 20 20 h-yank-keep-success-log)).......
e400 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 20 20 20 ....(kill-buffer.proc-buf)......
e420 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 70 2d 62 75 66 66 65 72 20 28 64 69 72 76 69 73 68 2d 2d ...(let.((comp-buffer.(dirvish--
e440 75 74 69 6c 2d 62 75 66 66 65 72 20 22 63 6f 6d 70 6c 65 74 65 2d 79 61 6e 6b 2d 6c 6f 67 22 20 util-buffer."complete-yank-log".
e460 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 nil.nil.t)))...........(with-cur
e480 72 65 6e 74 2d 62 75 66 66 65 72 20 63 6f 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 rent-buffer.comp-buffer.........
e4a0 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 ....(goto-char.(point-max)).....
e4c0 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 5c 6e 5c 6e 22 20 28 66 6f 72 6d 61 74 20 22 ........(insert."\n\n".(format."
e4e0 25 73 22 20 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %s".method).....................
e500 22 20 66 69 6e 69 73 68 65 64 20 40 20 22 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 ".finished.@.".(current-time-str
e520 69 6e 67 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 62 ing)."\n").............(insert-b
e540 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 20 20 20 20 uffer-substring.proc-buf).......
e560 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 70 72 6f 63 2d 62 75 66 29 0a 20 20 20 ......(kill-buffer.proc-buf)....
e580 20 20 20 20 20 20 20 20 20 3b 3b 20 74 72 75 6e 63 61 74 65 20 6f 6c 64 20 6c 6f 67 73 0a 20 20 .........;;.truncate.old.logs...
e5a0 20 20 20 20 20 20 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 ..........(save-excursion.......
e5c0 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 ........(delete-region..........
e5e0 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......(point-min)...............
e600 20 28 6c 65 74 20 28 28 6d 61 78 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 29 0a 20 20 20 20 20 20 .(let.((max.(point-max))).......
e620 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 3c 20 6d 61 78 20 32 30 30 30 30 29 0a 20 20 20 ...........(if.(<.max.20000)....
e640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 0a 20 20 ..................(point-min)...
e660 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 20 6d 61 78 29 .................(goto-char.max)
e680 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 6f 74 69 6d 65 73 20 28 5f 6e ....................(dotimes.(_n
e6a0 20 34 30 29 20 28 62 61 63 6b 77 61 72 64 2d 70 61 72 61 67 72 61 70 68 29 29 0a 20 20 20 20 20 .40).(backward-paragraph))......
e6c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 69 6e 74 29 29 29 29 29 0a 20 20 20 20 20 20 ..............(point))))).......
e6e0 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 73 75 63 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 ......(unless.success...........
e700 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 59 61 6e 6b 20 66 69 6e 69 73 68 65 64 20 77 69 74 68 ....(message."Yank.finished.with
e720 20 61 6e 20 65 72 72 6f 72 3a 20 73 65 65 20 62 75 66 66 65 72 20 25 73 20 66 6f 72 20 64 65 74 .an.error:.see.buffer.%s.for.det
e740 61 69 6c 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 63 6f 6d ails"........................com
e760 70 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d p-buffer)...............(pop-to-
e780 62 75 66 66 65 72 20 63 6f 6d 70 2d 62 75 66 66 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 28 73 buffer.comp-buffer))))).......(s
e7a0 65 74 71 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f 67 2d 62 75 66 66 65 72 73 20 28 72 65 etq.dirvish-yank-log-buffers.(re
e7c0 6d 6f 76 65 20 70 72 6f 63 2d 62 75 66 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f 67 2d 62 move.proc-buf.dirvish-yank-log-b
e7e0 75 66 66 65 72 73 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 62 75 66 66 65 72 20 uffers)).......(when.(eq.buffer.
e800 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d (current-buffer)).........(with-
e820 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 current-buffer.buffer...........
e840 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 20 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d (revert-buffer).(dirvish-update-
e860 62 6f 64 79 2d 68 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e body-h))))))..(defun.dirvish-yan
e880 6b 2d 70 72 6f 63 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 20 73 74 72 69 6e 67 29 0a 20 20 22 46 k-proc-filter.(proc.string)..."F
e8a0 69 6c 74 65 72 20 66 6f 72 20 79 61 6e 6b 20 74 61 73 6b 20 50 52 4f 43 27 73 20 53 54 52 49 4e ilter.for.yank.task.PROC's.STRIN
e8c0 47 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 63 2d 62 75 66 20 28 70 72 6f 63 65 73 73 2d 62 G."...(let.((proc-buf.(process-b
e8e0 75 66 66 65 72 20 70 72 6f 63 29 29 29 0a 20 20 20 20 3b 3b 20 63 68 65 63 6b 20 66 6f 72 20 70 uffer.proc))).....;;.check.for.p
e900 61 73 73 70 68 72 61 73 65 20 70 72 6f 6d 70 74 0a 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 assphrase.prompt.....(when.(stri
e920 6e 67 2d 6d 61 74 63 68 20 64 69 72 76 69 73 68 2d 70 61 73 73 70 68 72 61 73 65 2d 73 74 61 6c ng-match.dirvish-passphrase-stal
e940 6c 2d 72 65 67 65 78 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 73 l-regex.string).......(process-s
e960 65 6e 64 2d 73 74 72 69 6e 67 20 70 72 6f 63 20 28 63 6f 6e 63 61 74 20 28 72 65 61 64 2d 70 61 end-string.proc.(concat.(read-pa
e980 73 73 77 64 20 73 74 72 69 6e 67 29 20 22 5c 6e 22 29 29 29 0a 20 20 20 20 3b 3b 20 41 6e 73 77 sswd.string)."\n"))).....;;.Answ
e9a0 65 72 20 79 65 73 20 66 6f 72 20 60 6c 61 72 67 65 20 66 69 6c 65 27 20 70 72 6f 6d 70 74 0a 20 er.yes.for.`large.file'.prompt..
e9c0 20 20 20 28 77 68 65 6e 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 46 69 6c 65 20 2e 2a 20 ...(when.(string-match."File..*.
e9e0 69 73 20 6c 61 72 67 65 5c 5c 28 2e 2a 5c 5c 29 2c 20 72 65 61 6c 6c 79 20 63 6f 70 79 22 20 73 is.large\\(.*\\),.really.copy".s
ea00 74 72 69 6e 67 29 0a 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 73 65 6e 64 2d 73 74 72 69 6e tring).......(process-send-strin
ea20 67 20 70 72 6f 63 20 22 79 5c 6e 22 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 70 72 g.proc."y\n")).....(let.((old-pr
ea40 6f 63 65 73 73 2d 6d 61 72 6b 20 28 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 70 72 6f 63 29 29 29 ocess-mark.(process-mark.proc)))
ea60 0a 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 70 72 6f 63 .......(when.(buffer-live-p.proc
ea80 2d 62 75 66 29 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 66 66 -buf).........(with-current-buff
eaa0 65 72 20 70 72 6f 63 2d 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 73 74 72 er.proc-buf...........(when.(str
eac0 69 6e 67 2d 6d 61 74 63 68 20 64 69 72 76 69 73 68 2d 70 65 72 63 65 6e 74 2d 63 6f 6d 70 6c 65 ing-match.dirvish-percent-comple
eae0 74 65 2d 72 65 67 65 78 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 te-regex.string).............(di
eb00 72 76 69 73 68 2d 70 72 6f 70 20 3a 79 61 6e 6b 2d 70 65 72 63 65 6e 74 20 28 6d 61 74 63 68 2d rvish-prop.:yank-percent.(match-
eb20 73 74 72 69 6e 67 20 30 20 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 string.0.string)).............(f
eb40 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 20 74 29 29 0a 20 20 20 20 20 20 orce-mode-line-update.t)).......
eb60 20 20 20 20 28 6c 65 74 20 28 28 6d 6f 76 69 6e 67 20 28 3d 20 28 70 6f 69 6e 74 29 20 6f 6c 64 ....(let.((moving.(=.(point).old
eb80 2d 70 72 6f 63 65 73 73 2d 6d 61 72 6b 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 61 -process-mark))).............(sa
eba0 76 65 2d 65 78 63 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 ve-excursion...............(goto
ebc0 2d 63 68 61 72 20 6f 6c 64 2d 70 72 6f 63 65 73 73 2d 6d 61 72 6b 29 0a 20 20 20 20 20 20 20 20 -char.old-process-mark).........
ebe0 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 73 74 72 69 6e 67 29 0a 20 20 20 20 20 20 20 20 20 20 ......(insert.string)...........
ec00 20 20 20 20 28 73 65 74 2d 6d 61 72 6b 65 72 20 28 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 70 72 ....(set-marker.(process-mark.pr
ec20 6f 63 29 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 6d 6f oc).(point))).............(if.mo
ec40 76 69 6e 67 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 72 6f 63 65 73 73 2d 6d 61 72 6b 20 70 72 ving.(goto-char.(process-mark.pr
ec60 6f 63 29 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b oc)))))))))..(defun.dirvish-yank
ec80 2d 2d 65 78 65 63 75 74 65 20 28 63 6d 64 20 64 65 74 61 69 6c 73 20 26 6f 70 74 69 6f 6e 61 6c --execute.(cmd.details.&optional
eca0 20 62 61 74 63 68 29 0a 20 20 22 45 78 65 63 75 74 65 20 43 4d 44 2c 20 70 75 74 20 44 45 54 41 .batch)..."Execute.CMD,.put.DETA
ecc0 49 4c 53 20 69 6e 74 6f 20 74 68 65 20 70 72 6f 63 65 73 73 2e 0a 57 68 65 6e 20 42 41 54 43 48 ILS.into.the.process..When.BATCH
ece0 2c 20 65 78 65 63 75 74 65 20 74 68 65 20 63 6f 6d 6d 61 6e 64 20 75 73 69 6e 67 20 60 65 6d 61 ,.execute.the.command.using.`ema
ed00 63 73 20 2d 71 20 2d 62 61 74 63 68 27 2e 22 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 cs.-q.-batch'."...(pcase-let*.((
ed20 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 20 28 6e 61 process-connection-type.nil).(na
ed40 6d 65 20 22 2a 64 69 72 76 69 73 68 2d 79 61 6e 6b 2a 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 me."*dirvish-yank*")............
ed60 20 20 20 20 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 0a 20 ....(buf.(dirvish--util-buffer..
ed80 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 20 22 79 61 6e ....................(format."yan
eda0 6b 40 25 73 22 20 28 63 75 72 72 65 6e 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 29 29 20 6e 69 6c k@%s".(current-time-string)).nil
edc0 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 5f 20 2c 5f .nil.t))................(`(,_.,_
ede0 20 2c 64 65 73 74 20 2c 5f 29 20 64 65 74 61 69 6c 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .,dest.,_).details).............
ee00 20 20 20 28 70 72 6f 63 20 28 69 66 20 62 61 74 63 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ...(proc.(if.batch..............
ee20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 71 20 28 69 66 20 28 66 69 6c 65 2d ............(let*.((q.(if.(file-
ee40 72 65 6d 6f 74 65 2d 70 20 64 65 73 74 29 20 22 2d 71 22 20 22 2d 51 22 29 29 0a 20 20 20 20 20 remote-p.dest)."-q"."-Q"))......
ee60 20 20 20 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 20 28 6c ...........................(c.(l
ee80 69 73 74 20 64 69 72 76 69 73 68 2d 65 6d 61 63 73 2d 62 69 6e 20 71 20 22 2d 62 61 74 63 68 22 ist.dirvish-emacs-bin.q."-batch"
eea0 20 22 2d 2d 65 76 61 6c 22 20 63 6d 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ."--eval".cmd)))................
eec0 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 70 72 6f 63 65 73 73 20 3a 6e 61 6d 65 20 ............(make-process.:name.
eee0 6e 61 6d 65 20 3a 62 75 66 66 65 72 20 62 75 66 20 3a 63 6f 6d 6d 61 6e 64 20 63 29 29 0a 20 20 name.:buffer.buf.:command.c))...
ef00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 72 74 2d 70 72 6f 63 .....................(start-proc
ef20 65 73 73 2d 73 68 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 ess-shell-command.name.buf.cmd))
ef40 29 29 0a 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 62 75 66 20 )).....(with-current-buffer.buf.
ef60 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 79 61 6e 6b 2d 64 65 74 61 69 6c 73 20 64 65 74 61 (dirvish-prop.:yank-details.deta
ef80 69 6c 73 29 29 0a 20 20 20 20 28 70 72 6f 63 65 73 73 2d 70 75 74 20 70 72 6f 63 20 27 64 65 74 ils)).....(process-put.proc.'det
efa0 61 69 6c 73 20 64 65 74 61 69 6c 73 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 73 ails.details).....(set-process-s
efc0 65 6e 74 69 6e 65 6c 20 70 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 70 72 6f 63 entinel.proc.#'dirvish-yank-proc
efe0 2d 73 65 6e 74 69 6e 65 6c 29 0a 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 -sentinel).....(set-process-filt
f000 65 72 20 70 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 70 72 6f 63 2d 66 69 6c 74 er.proc.#'dirvish-yank-proc-filt
f020 65 72 29 0a 20 20 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 61 75 74 6f 2d er).....(when.dirvish-yank-auto-
f040 75 6e 6d 61 72 6b 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 62 75 66 20 69 6e unmark.......(cl-loop.for.buf.in
f060 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f .(buffer-list)................do
f080 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 20 20 .(with-current-buffer.buf.......
f0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f ..............(when.(eq.major-mo
f0c0 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 de.'dired-mode).................
f0e0 20 20 20 20 20 20 28 64 69 72 65 64 2d 75 6e 6d 61 72 6b 2d 61 6c 6c 2d 6d 61 72 6b 73 29 29 29 ......(dired-unmark-all-marks)))
f100 29 29 0a 20 20 20 20 28 70 75 73 68 20 62 75 66 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f )).....(push.buf.dirvish-yank-lo
f120 67 2d 62 75 66 66 65 72 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e g-buffers)))..(defun.dirvish-yan
f140 6b 2d 2d 6e 65 77 62 61 73 65 20 28 62 61 73 65 2d 6e 61 6d 65 20 66 69 6c 65 73 65 74 20 64 65 k--newbase.(base-name.fileset.de
f160 73 74 29 0a 20 20 22 45 6e 73 75 72 65 20 61 6e 20 75 6e 69 71 75 65 20 66 69 6c 65 6e 61 6d 65 st)..."Ensure.an.unique.filename
f180 20 66 6f 72 20 42 41 53 45 2d 4e 41 4d 45 20 61 74 20 44 45 53 54 20 77 69 74 68 20 46 49 4c 45 .for.BASE-NAME.at.DEST.with.FILE
f1a0 53 45 54 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 6e 61 6d 65 7e 20 62 61 73 65 2d 6e 61 6d 65 29 SET."...(let.((bname~.base-name)
f1c0 20 28 69 64 78 20 31 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6d 65 6d 62 65 72 20 62 6e 61 .(idx.1)).....(while.(member.bna
f1e0 6d 65 7e 20 66 69 6c 65 73 65 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 62 6e 61 6d 65 7e 0a me~.fileset).......(setq.bname~.
f200 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d ............(pcase.dirvish-yank-
f220 6e 65 77 2d 6e 61 6d 65 2d 73 74 79 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 61 new-name-style...............('a
f240 70 70 65 6e 64 2d 74 6f 2d 65 78 74 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 7e 22 20 62 61 73 ppend-to-ext.(format."%s%s~".bas
f260 65 2d 6e 61 6d 65 20 69 64 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 61 70 70 e-name.idx))...............('app
f280 65 6e 64 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 end-to-filename................(
f2a0 66 6f 72 6d 61 74 20 22 25 73 25 73 7e 2e 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 format."%s%s~.%s"...............
f2c0 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d 65 78 74 65 6e 73 69 .........(file-name-sans-extensi
f2e0 6f 6e 20 62 61 73 65 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 on.base-name)...................
f300 20 20 20 20 20 69 64 78 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 62 61 .....idx.(file-name-extension.ba
f320 73 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 70 72 65 70 65 se-name)))...............('prepe
f340 6e 64 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 25 73 7e 25 73 22 20 69 nd-to-filename.(format."%s~%s".i
f360 64 78 20 62 61 73 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 64 78 20 dx.base-name))).............idx.
f380 28 31 2b 20 69 64 78 29 29 29 0a 20 20 20 20 28 63 6f 6e 73 20 28 65 78 70 61 6e 64 2d 66 69 6c (1+.idx))).....(cons.(expand-fil
f3a0 65 2d 6e 61 6d 65 20 62 61 73 65 2d 6e 61 6d 65 20 64 65 73 74 29 20 28 65 78 70 61 6e 64 2d 66 e-name.base-name.dest).(expand-f
f3c0 69 6c 65 2d 6e 61 6d 65 20 62 6e 61 6d 65 7e 20 64 65 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e ile-name.bname~.dest))))..(defun
f3e0 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 66 69 6c 65 6e 61 6d 65 2d 70 61 69 72 73 20 28 6d .dirvish-yank--filename-pairs.(m
f400 65 74 68 6f 64 20 73 72 63 73 20 64 65 73 74 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 66 69 6c ethod.srcs.dest)..."Generate.fil
f420 65 20 6e 61 6d 65 20 70 61 69 72 73 20 66 72 6f 6d 20 53 52 43 53 20 61 6e 64 20 44 45 53 54 20 e.name.pairs.from.SRCS.and.DEST.
f440 66 6f 72 20 79 61 6e 6b 20 4d 45 54 48 4f 44 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 for.yank.METHOD."...(cl-loop....
f460 77 69 74 68 20 6f 76 65 72 77 72 69 74 65 20 3d 20 28 65 71 20 64 69 72 76 69 73 68 2d 79 61 6e with.overwrite.=.(eq.dirvish-yan
f480 6b 2d 6f 76 65 72 77 72 69 74 65 2d 65 78 69 73 74 69 6e 67 2d 66 69 6c 65 73 20 27 61 6c 77 61 k-overwrite-existing-files.'alwa
f4a0 79 73 29 0a 20 20 20 77 69 74 68 20 62 61 63 6b 75 70 20 3d 20 28 65 71 20 64 69 72 76 69 73 68 ys)....with.backup.=.(eq.dirvish
f4c0 2d 79 61 6e 6b 2d 6f 76 65 72 77 72 69 74 65 2d 65 78 69 73 74 69 6e 67 2d 66 69 6c 65 73 20 27 -yank-overwrite-existing-files.'
f4e0 62 61 63 6b 75 70 29 0a 20 20 20 77 69 74 68 20 73 6b 69 70 20 3d 20 28 65 71 20 64 69 72 76 69 backup)....with.skip.=.(eq.dirvi
f500 73 68 2d 79 61 6e 6b 2d 6f 76 65 72 77 72 69 74 65 2d 65 78 69 73 74 69 6e 67 2d 66 69 6c 65 73 sh-yank-overwrite-existing-files
f520 20 27 73 6b 69 70 29 0a 20 20 20 77 69 74 68 20 28 72 65 73 75 6c 74 20 74 6f 2d 72 65 6e 61 6d .'skip)....with.(result.to-renam
f540 65 29 20 3d 20 28 29 0a 20 20 20 77 69 74 68 20 64 66 69 6c 65 73 20 3d 20 28 64 69 72 65 63 74 e).=.()....with.dfiles.=.(direct
f560 6f 72 79 2d 66 69 6c 65 73 20 64 65 73 74 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 66 6f 72 ory-files.dest.nil.nil.t)....for
f580 20 73 72 63 20 69 6e 20 73 72 63 73 0a 20 20 20 66 6f 72 20 68 65 6c 70 2d 66 6f 72 6d 20 3d 20 .src.in.srcs....for.help-form.=.
f5a0 28 66 6f 72 6d 61 74 2d 6d 65 73 73 61 67 65 20 22 5c 0a 46 69 6c 65 20 60 25 73 27 20 65 78 69 (format-message."\.File.`%s'.exi
f5c0 73 74 73 2c 20 74 79 70 65 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 6b sts,.type.one.of.the.following.k
f5e0 65 79 73 20 74 6f 20 63 6f 6e 74 69 6e 75 65 2e 0a 0a 2d 20 60 79 27 20 6f 72 20 53 50 43 20 74 eys.to.continue...-.`y'.or.SPC.t
f600 6f 20 6f 76 65 72 77 72 69 74 65 20 74 68 69 73 20 66 69 6c 65 20 57 49 54 48 4f 55 54 20 62 61 o.overwrite.this.file.WITHOUT.ba
f620 63 6b 75 70 0a 2d 20 60 21 27 20 61 6e 73 77 65 72 20 60 79 27 20 28 6f 76 65 72 77 72 69 74 65 ckup.-.`!'.answer.`y'.(overwrite
f640 29 20 66 6f 72 20 61 6c 6c 20 72 65 6d 61 69 6e 69 6e 67 20 66 69 6c 65 73 0a 2d 20 60 6e 27 20 ).for.all.remaining.files.-.`n'.
f660 6f 72 20 44 45 4c 20 74 6f 20 73 6b 69 70 20 74 68 69 73 20 66 69 6c 65 0a 2d 20 60 4e 27 20 61 or.DEL.to.skip.this.file.-.`N'.a
f680 6e 73 77 65 72 20 60 6e 27 20 28 73 6b 69 70 29 20 66 6f 72 20 61 6c 6c 20 72 65 6d 61 69 6e 69 nswer.`n'.(skip).for.all.remaini
f6a0 6e 67 20 66 69 6c 65 73 0a 2d 20 60 62 27 20 74 6f 20 6f 76 65 72 77 72 69 74 65 20 61 6e 64 20 ng.files.-.`b'.to.overwrite.and.
f6c0 62 61 63 6b 75 70 20 74 68 69 73 20 66 69 6c 65 73 0a 2d 20 60 42 27 20 61 6e 73 77 65 72 20 60 backup.this.files.-.`B'.answer.`
f6e0 62 27 20 28 6f 76 65 72 77 72 69 74 65 20 61 6e 64 20 62 61 63 6b 75 70 29 20 66 6f 72 20 61 6c b'.(overwrite.and.backup).for.al
f700 6c 20 72 65 6d 61 69 6e 69 6e 67 20 66 69 6c 65 73 0a 2d 20 60 71 27 20 6f 72 20 45 53 43 20 74 l.remaining.files.-.`q'.or.ESC.t
f720 6f 20 61 62 6f 72 74 20 74 68 65 20 74 61 73 6b 22 20 73 72 63 29 0a 20 20 20 66 6f 72 20 62 61 o.abort.the.task".src)....for.ba
f740 73 65 20 3d 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 73 72 63 se.=.(file-name-nondirectory.src
f760 29 0a 20 20 20 66 6f 72 20 63 6f 6c 6c 69 73 69 6f 6e 20 3d 20 28 6d 65 6d 62 65 72 20 62 61 73 )....for.collision.=.(member.bas
f780 65 20 64 66 69 6c 65 73 29 20 64 6f 0a 20 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 73 72 e.dfiles).do....(cond.((equal.sr
f7a0 63 20 28 63 6f 6e 63 61 74 20 64 65 73 74 20 62 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 c.(concat.dest.base))...........
f7c0 3b 3b 20 75 73 65 72 20 6d 61 79 20 77 61 6e 74 20 74 6f 20 6d 61 6b 65 20 73 79 6d 6c 69 6e 6b ;;.user.may.want.to.make.symlink
f7e0 20 69 6e 20 74 68 65 20 73 61 6d 65 20 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 .in.the.same.directory..........
f800 20 28 69 66 20 28 6d 65 6d 71 20 6d 65 74 68 6f 64 20 27 28 64 69 72 65 64 2d 6d 61 6b 65 2d 72 .(if.(memq.method.'(dired-make-r
f820 65 6c 61 74 69 76 65 2d 73 79 6d 6c 69 6e 6b 20 6d 61 6b 65 2d 73 79 6d 62 6f 6c 69 63 2d 6c 69 elative-symlink.make-symbolic-li
f840 6e 6b 29 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 73 nk))...............(push.(cons.s
f860 72 63 20 28 63 64 72 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 6e 65 77 62 61 73 65 20 62 rc.(cdr.(dirvish-yank--newbase.b
f880 61 73 65 20 64 66 69 6c 65 73 20 64 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ase.dfiles.dest)))..............
f8a0 20 20 20 20 20 20 20 72 65 73 75 6c 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 .......result).............(user
f8c0 2d 65 72 72 6f 72 20 22 53 6f 75 72 63 65 20 61 6e 64 20 74 61 72 67 65 74 20 61 72 65 20 74 68 -error."Source.and.target.are.th
f8e0 65 20 73 61 6d 65 20 66 69 6c 65 20 60 25 73 27 22 20 73 72 63 29 29 29 0a 20 20 20 20 20 20 20 e.same.file.`%s'".src)))........
f900 20 20 28 6f 76 65 72 77 72 69 74 65 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 72 63 20 64 65 73 ..(overwrite.(push.(cons.src.des
f920 74 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 62 61 63 6b 75 t).result))..........((and.backu
f940 70 20 63 6f 6c 6c 69 73 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 69 p.collision)...........(push.(di
f960 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 6e 65 77 62 61 73 65 20 62 61 73 65 20 64 66 69 6c 65 73 20 rvish-yank--newbase.base.dfiles.
f980 64 65 73 74 29 20 74 6f 2d 72 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 dest).to-rename)...........(push
f9a0 20 28 63 6f 6e 73 20 73 72 63 20 64 65 73 74 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 .(cons.src.dest).result)).......
f9c0 20 20 20 28 28 61 6e 64 20 73 6b 69 70 20 63 6f 6c 6c 69 73 69 6f 6e 29 29 0a 20 20 20 20 20 20 ...((and.skip.collision)).......
f9e0 20 20 20 28 63 6f 6c 6c 69 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 63 61 73 65 ...(collision...........(cl-case
fa00 20 28 72 65 61 64 2d 63 68 61 72 2d 63 68 6f 69 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .(read-char-choice..............
fa20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 2d 6d 65 73 73 61 67 65 20 22 .......(concat.(format-message."
fa40 4f 76 65 72 77 72 69 74 65 20 60 25 73 27 3f 22 20 62 61 73 65 29 0a 20 20 20 20 20 20 20 20 20 Overwrite.`%s'?".base)..........
fa60 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 20 22 20 5b 54 79 ...................(format.".[Ty
fa80 70 65 20 79 6e 21 62 71 20 6f 72 20 25 73 5d 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 pe.yn!bq.or.%s]."...............
faa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6b 65 79 2d 64 65 73 63 72 ......................(key-descr
fac0 69 70 74 69 6f 6e 20 28 76 65 63 74 6f 72 20 68 65 6c 70 2d 63 68 61 72 29 29 29 29 0a 20 20 20 iption.(vector.help-char))))....
fae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 3f 79 20 3f 5c 73 20 3f 21 20 3f 6e 20 .................'(?y.?\s.?!.?n.
fb00 3f 5c 31 37 37 20 3f 4e 20 3f 62 20 3f 42 20 3f 71 20 3f 5c 65 29 29 0a 20 20 20 20 20 20 20 20 ?\177.?N.?b.?B.?q.?\e)).........
fb20 20 20 20 20 28 28 3f 79 20 3f 5c 73 29 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 72 63 20 64 65 ....((?y.?\s).(push.(cons.src.de
fb40 73 74 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 21 20 28 73 65 st).result)).............(?!.(se
fb60 74 71 20 6f 76 65 72 77 72 69 74 65 20 74 29 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 72 63 20 tq.overwrite.t).(push.(cons.src.
fb80 64 65 73 74 29 20 72 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3f 6e 20 dest).result)).............((?n.
fba0 3f 5c 31 37 37 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 4e 20 28 73 65 74 ?\177).nil).............(?N.(set
fbc0 71 20 73 6b 69 70 20 74 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 62 20 28 q.skip.t).nil).............(?b.(
fbe0 70 75 73 68 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 6e 65 77 62 61 73 65 20 62 61 73 65 push.(dirvish-yank--newbase.base
fc00 20 64 66 69 6c 65 73 20 64 65 73 74 29 20 74 6f 2d 72 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 .dfiles.dest).to-rename)........
fc20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 72 63 20 64 65 73 74 29 20 72 .........(push.(cons.src.dest).r
fc40 65 73 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 3f 42 20 28 73 65 74 71 20 62 61 esult)).............(?B.(setq.ba
fc60 63 6b 75 70 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 64 ckup.t).................(push.(d
fc80 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 6e 65 77 62 61 73 65 20 62 61 73 65 20 64 66 69 6c 65 73 irvish-yank--newbase.base.dfiles
fca0 20 64 65 73 74 29 20 74 6f 2d 72 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .dest).to-rename)...............
fcc0 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 72 63 20 64 65 73 74 29 20 72 65 73 75 6c 74 29 29 ..(push.(cons.src.dest).result))
fce0 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 3f 71 20 3f 5c 65 29 20 28 75 73 65 72 2d 65 72 72 .............((?q.?\e).(user-err
fd00 6f 72 20 22 44 69 72 76 69 73 68 5b 69 6e 66 6f 5d 3a 20 79 61 6e 6b 20 74 61 73 6b 20 61 62 6f or."Dirvish[info]:.yank.task.abo
fd20 72 74 65 64 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 20 28 70 75 73 68 20 28 63 6f 6e rted"))))..........(t.(push.(con
fd40 73 20 73 72 63 20 64 65 73 74 29 20 72 65 73 75 6c 74 29 29 29 0a 20 20 20 66 69 6e 61 6c 6c 79 s.src.dest).result)))....finally
fd60 20 72 65 74 75 72 6e 0a 20 20 20 28 70 72 6f 67 31 20 72 65 73 75 6c 74 0a 20 20 20 20 20 28 63 .return....(prog1.result......(c
fd80 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 66 72 6f 6d 20 2e 20 74 6f 29 20 69 6e 20 74 6f 2d 72 65 6e l-loop.for.(from...to).in.to-ren
fda0 61 6d 65 20 64 6f 20 28 72 65 6e 61 6d 65 2d 66 69 6c 65 20 66 72 6f 6d 20 74 6f 29 29 29 29 29 ame.do.(rename-file.from.to)))))
fdc0 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 69 6e 6a 65 63 74 2d 65 6e 76 ..(defun.dirvish-yank-inject-env
fde0 20 28 69 6e 63 6c 75 64 65 2d 72 65 67 65 78 70 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 60 73 .(include-regexp)..."Return.a.`s
fe00 65 74 71 27 20 66 6f 72 6d 20 74 68 61 74 20 72 65 70 6c 69 63 61 74 65 73 20 70 61 72 74 20 6f etq'.form.that.replicates.part.o
fe20 66 20 74 68 65 20 63 61 6c 6c 69 6e 67 20 65 6e 76 69 72 6f 6e 6d 65 6e 74 2e 0a 49 74 20 73 65 f.the.calling.environment..It.se
fe40 74 73 20 74 68 65 20 76 61 6c 75 65 20 66 6f 72 20 65 76 65 72 79 20 76 61 72 69 61 62 6c 65 20 ts.the.value.for.every.variable.
fe60 6d 61 74 63 68 69 6e 67 20 49 4e 43 4c 55 44 45 2d 52 45 47 45 58 50 2e 22 0a 20 20 60 28 73 65 matching.INCLUDE-REGEXP."...`(se
fe80 74 71 20 2c 40 28 6c 65 74 20 28 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 tq.,@(let.(bindings)............
fea0 20 20 28 6d 61 70 61 74 6f 6d 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 ..(mapatoms...............(lambd
fec0 61 20 28 73 79 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 a.(sym).................(let*.((
fee0 73 6e 61 6d 65 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 73 79 6d 29 20 28 73 79 6d 62 6f 6c 2d sname.(and.(boundp.sym).(symbol-
ff00 6e 61 6d 65 20 73 79 6d 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 name.sym))).....................
ff20 20 20 20 28 76 61 6c 75 65 20 28 61 6e 64 20 73 6e 61 6d 65 20 28 73 79 6d 62 6f 6c 2d 76 61 6c ...(value.(and.sname.(symbol-val
ff40 75 65 20 73 79 6d 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 ue.sym))))...................(wh
ff60 65 6e 20 28 61 6e 64 20 73 6e 61 6d 65 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 69 6e 63 6c en.(and.sname.(string-match.incl
ff80 75 64 65 2d 72 65 67 65 78 70 20 73 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ude-regexp.sname)...............
ffa0 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 6d 61 74 63 ...............(not.(string-matc
ffc0 68 20 22 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 5c 5c 27 22 20 73 6e 61 6d 65 29 29 29 0a 20 20 h."-syntax-table\\'".sname)))...
ffe0 20 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 6f 72 20 28 73 ..................(unless.(or.(s
10000 74 72 69 6e 67 70 20 76 61 6c 75 65 29 20 28 6d 65 6d 71 20 76 61 6c 75 65 20 27 28 6e 69 6c 20 tringp.value).(memq.value.'(nil.
10020 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 20 20 20 20 t)).............................
10040 20 20 20 20 28 6e 75 6d 62 65 72 70 20 76 61 6c 75 65 29 20 28 76 65 63 74 6f 72 70 20 76 61 6c ....(numberp.value).(vectorp.val
10060 75 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 20 28 73 65 74 71 ue)).......................(setq
10080 20 76 61 6c 75 65 20 60 28 71 75 6f 74 65 20 2c 76 61 6c 75 65 29 29 29 0a 20 20 20 20 20 20 20 .value.`(quote.,value)))........
100a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 69 6e 64 69 6e 67 73 20 28 63 6f 6e .............(setq.bindings.(con
100c0 73 20 76 61 6c 75 65 20 62 69 6e 64 69 6e 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s.value.bindings)...............
100e0 20 20 20 20 20 20 20 20 20 20 20 20 62 69 6e 64 69 6e 67 73 20 28 63 6f 6e 73 20 73 79 6d 20 62 ............bindings.(cons.sym.b
10100 69 6e 64 69 6e 67 73 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 62 69 6e 64 69 indings))))))..............bindi
10120 6e 67 73 29 29 29 0a 0a 3b 3b 20 54 68 61 6e 6b 73 20 74 6f 20 60 64 69 72 65 64 2d 72 73 79 6e ngs)))..;;.Thanks.to.`dired-rsyn
10140 63 2e 65 6c 27 0a 3b 3b 20 61 6c 73 6f 20 73 65 65 3a 20 68 74 74 70 73 3a 2f 2f 75 6e 69 78 2e c.el'.;;.also.see:.https://unix.
10160 73 74 61 63 6b 65 78 63 68 61 6e 67 65 2e 63 6f 6d 2f 71 75 65 73 74 69 6f 6e 73 2f 31 38 33 35 stackexchange.com/questions/1835
10180 30 34 2f 68 6f 77 2d 74 6f 2d 72 73 79 6e 63 2d 66 69 6c 65 73 2d 62 65 74 77 65 65 6e 2d 74 77 04/how-to-rsync-files-between-tw
101a0 6f 2d 72 65 6d 6f 74 65 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d o-remotes..(defun.dirvish-yank--
101c0 72 73 79 6e 63 2d 61 72 67 73 20 28 29 0a 20 20 22 52 65 74 72 69 65 76 65 20 72 73 79 6e 63 20 rsync-args.()..."Retrieve.rsync.
101e0 61 72 67 73 20 66 6f 72 20 63 75 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 20 6f 72 20 64 65 66 61 args.for.current.session.or.defa
10200 75 6c 74 20 6f 6e 65 73 2e 22 0a 20 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a ult.ones."...(or.(dirvish-prop.:
10220 72 73 79 6e 63 2d 73 77 69 74 63 68 65 73 29 0a 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 79 61 rsync-switches).......dirvish-ya
10240 6e 6b 2d 72 73 79 6e 63 2d 61 72 67 73 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d nk-rsync-args))..(defun.dirvish-
10260 79 61 6e 6b 2d 2d 62 75 69 6c 64 2d 72 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 20 28 29 0a 20 20 22 yank--build-rsync-command.()..."
10280 43 6f 6d 70 6f 73 65 20 72 73 79 6e 63 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 61 72 67 73 20 69 Compose.rsync.command.and.args.i
102a0 6e 74 6f 20 74 68 65 20 73 74 72 69 6e 67 2e 22 0a 20 20 28 66 6f 72 6d 61 74 20 22 25 73 20 25 nto.the.string."...(format."%s.%
102c0 73 22 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 73 79 6e 63 2d 70 72 6f 67 72 61 6d 0a 20 20 s".dirvish-yank-rsync-program...
102e0 20 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 28 64 69 72 76 69 73 68 2d 79 61 ........(string-join.(dirvish-ya
10300 6e 6b 2d 2d 72 73 79 6e 63 2d 61 72 67 73 29 20 22 20 22 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 nk--rsync-args).".")))..(defun.d
10320 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 32 72 2d 68 61 6e 64 6c 65 72 20 28 73 72 63 73 20 64 65 irvish-yank-r2r-handler.(srcs.de
10340 73 74 20 73 68 6f 73 74 20 64 68 6f 73 74 29 0a 20 20 22 43 6f 6e 73 74 72 75 63 74 20 61 6e 64 st.shost.dhost)..."Construct.and
10360 20 74 72 69 67 67 65 72 20 61 6e 20 72 73 79 6e 63 20 72 75 6e 20 66 6f 72 20 72 65 6d 6f 74 65 .trigger.an.rsync.run.for.remote
10380 20 63 6f 70 79 2e 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 73 79 6e 63 20 53 52 43 53 20 6f 6e .copy..This.command.sync.SRCS.on
103a0 20 53 48 4f 53 54 20 74 6f 20 44 45 53 54 20 6f 6e 20 44 48 4f 53 54 2e 22 0a 20 20 28 6c 65 74 .SHOST.to.DEST.on.DHOST."...(let
103c0 2a 20 28 28 64 75 73 65 72 20 28 77 69 74 68 2d 70 61 72 73 65 64 2d 74 72 61 6d 70 2d 66 69 6c *.((duser.(with-parsed-tramp-fil
103e0 65 2d 6e 61 6d 65 20 64 65 73 74 20 74 66 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-name.dest.tfop................
10400 20 20 20 28 6f 72 20 74 66 6f 70 2d 75 73 65 72 20 28 67 65 74 65 6e 76 20 22 55 53 45 52 22 29 ...(or.tfop-user.(getenv."USER")
10420 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 6f 72 74 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b )))..........(port.(dirvish-yank
10440 2d 2d 67 65 74 2d 72 65 6d 6f 74 65 2d 70 6f 72 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 --get-remote-port))..........(de
10460 73 74 20 28 73 68 65 6c 6c 2d 71 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 28 66 69 6c 65 2d 6c st.(shell-quote-argument.(file-l
10480 6f 63 61 6c 2d 6e 61 6d 65 20 64 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 73 79 6e ocal-name.dest)))..........(rsyn
104a0 63 2d 63 6d 64 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 5c 22 25 73 20 2d 65 c-cmd...........(format."\"%s.-e
104c0 20 5c 5c 5c 22 25 73 5c 5c 5c 22 20 25 73 20 25 73 40 6c 6f 63 61 6c 68 6f 73 74 3a 25 73 5c 22 .\\\"%s\\\".%s.%s@localhost:%s\"
104e0 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e "...................(dirvish-yan
10500 6b 2d 2d 62 75 69 6c 64 2d 72 73 79 6e 63 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 k--build-rsync-command).........
10520 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d ..........(format.dirvish-yank--
10540 72 65 6d 6f 74 65 2d 70 6f 72 74 66 77 64 20 70 6f 72 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 remote-portfwd.port)............
10560 20 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 73 72 63 73 20 22 20 22 29 20 64 75 .......(string-join.srcs.".").du
10580 73 65 72 20 64 65 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 69 6e 64 2d 61 64 64 72 20 28 ser.dest))..........(bind-addr.(
105a0 66 6f 72 6d 61 74 20 22 6c 6f 63 61 6c 68 6f 73 74 3a 25 64 3a 25 73 3a 32 32 22 20 70 6f 72 74 format."localhost:%d:%s:22".port
105c0 20 64 68 6f 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 73 74 72 69 6e 67 2d 6a .dhost))..........(cmd.(string-j
105e0 6f 69 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 22 73 73 68 22 20 22 oin................(list."ssh"."
10600 2d 41 22 20 22 2d 52 22 20 62 69 6e 64 2d 61 64 64 72 20 73 68 6f 73 74 20 72 73 79 6e 63 2d 63 -A"."-R".bind-addr.shost.rsync-c
10620 6d 64 29 20 22 20 22 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 md)."."))).....(dirvish-yank--ex
10640 65 63 75 74 65 20 63 6d 64 20 28 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 ecute.cmd.(list.(current-buffer)
10660 20 73 72 63 73 20 64 65 73 74 20 27 72 73 79 6e 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 .srcs.dest.'rsync))))..(defun.di
10680 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 32 66 72 2d 68 61 6e 64 6c 65 72 20 28 73 72 63 73 20 64 65 rvish-yank-l2fr-handler.(srcs.de
106a0 73 74 29 0a 20 20 22 45 78 65 63 75 74 65 20 61 20 6c 6f 63 61 6c 20 74 6f 2f 66 72 6f 6d 20 72 st)..."Execute.a.local.to/from.r
106c0 65 6d 6f 74 65 20 72 73 79 6e 63 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 53 52 43 53 20 61 6e 64 emote.rsync.command.for.SRCS.and
106e0 20 44 45 53 54 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 73 72 63 73 20 28 6d 61 70 63 61 72 20 23 .DEST."...(let*.((srcs.(mapcar.#
10700 27 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 66 69 6c 65 6e 61 6d 65 2d 66 6f 72 2d 72 73 79 6e 'dirvish-yank--filename-for-rsyn
10720 63 20 73 72 63 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 73 74 20 28 64 69 72 76 69 73 68 c.srcs))..........(dest.(dirvish
10740 2d 79 61 6e 6b 2d 2d 66 69 6c 65 6e 61 6d 65 2d 66 6f 72 2d 72 73 79 6e 63 20 64 65 73 74 29 29 -yank--filename-for-rsync.dest))
10760 0a 20 20 20 20 20 20 20 20 20 28 72 73 79 6e 63 2d 63 6d 64 20 28 66 6c 61 74 74 65 6e 2d 74 72 ..........(rsync-cmd.(flatten-tr
10780 65 65 20 28 6c 69 73 74 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 62 75 69 6c 64 2d 72 73 ee.(list.(dirvish-yank--build-rs
107a0 79 6e 63 2d 63 6f 6d 6d 61 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ync-command)....................
107c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 72 63 73 20 64 65 73 74 29 29 .....................srcs.dest))
107e0 29 0a 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 72 73 79 )..........(cmd.(string-join.rsy
10800 6e 63 2d 63 6d 64 20 22 20 22 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d nc-cmd."."))).....(dirvish-yank-
10820 2d 65 78 65 63 75 74 65 20 63 6d 64 20 28 6c 69 73 74 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 -execute.cmd.(list.(current-buff
10840 65 72 29 20 73 72 63 73 20 64 65 73 74 20 27 72 73 79 6e 63 29 29 29 29 0a 0a 28 64 65 66 75 6e er).srcs.dest.'rsync))))..(defun
10860 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 64 65 66 61 75 6c 74 2d 68 61 6e 64 6c 65 72 20 28 6d .dirvish-yank-default-handler.(m
10880 65 74 68 6f 64 20 73 72 63 73 20 64 65 73 74 29 0a 20 20 22 45 78 65 63 75 74 65 20 79 61 6e 6b ethod.srcs.dest)..."Execute.yank
108a0 20 4d 45 54 48 4f 44 20 6f 6e 20 53 52 43 53 20 74 6f 20 44 45 53 54 2e 22 0a 20 20 28 6c 65 74 .METHOD.on.SRCS.to.DEST."...(let
108c0 2a 20 28 28 70 61 69 72 73 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 66 69 6c 65 6e 61 6d *.((pairs.(dirvish-yank--filenam
108e0 65 2d 70 61 69 72 73 20 6d 65 74 68 6f 64 20 73 72 63 73 20 64 65 73 74 29 29 0a 20 20 20 20 20 e-pairs.method.srcs.dest))......
10900 20 20 20 20 28 63 6f 75 6e 74 20 28 66 6c 6f 61 74 20 28 6c 65 6e 67 74 68 20 70 61 69 72 73 29 ....(count.(float.(length.pairs)
10920 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 ))..........(cmd.`(progn........
10940 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d 61 75 78 29 0a 20 ..........(require.'dired-aux)..
10960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d ................(require.'dired-
10980 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 64 69 72 76 69 73 68 2d 79 61 x)..................,(dirvish-ya
109a0 6e 6b 2d 69 6e 6a 65 63 74 2d 65 6e 76 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 65 6e 76 2d 76 nk-inject-env.dirvish-yank-env-v
109c0 61 72 69 61 62 6c 65 73 2d 72 65 67 65 78 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ariables-regexp)................
109e0 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 ..(cl-loop...................wit
10a00 68 20 64 69 72 65 64 2d 72 65 63 75 72 73 69 76 65 2d 63 6f 70 69 65 73 20 3d 20 27 61 6c 77 61 h.dired-recursive-copies.=.'alwa
10a20 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 64 69 72 65 64 2d ys...................with.dired-
10a40 63 6f 70 79 2d 70 72 65 73 65 72 76 65 2d 74 69 6d 65 20 3d 20 2c 64 69 72 65 64 2d 63 6f 70 79 copy-preserve-time.=.,dired-copy
10a60 2d 70 72 65 73 65 72 76 65 2d 74 69 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -preserve-time..................
10a80 20 66 6f 72 20 69 64 78 20 66 72 6f 6d 20 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .for.idx.from.1.................
10aa0 20 20 66 6f 72 20 28 66 72 6f 6d 20 2e 20 74 6f 29 20 69 6e 20 27 28 2c 40 70 61 69 72 73 29 0a ..for.(from...to).in.'(,@pairs).
10ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 65 72 63 65 6e 74 20 3d 20 ..................for.percent.=.
10ae0 28 69 66 20 28 65 71 20 28 66 6c 6f 61 74 20 69 64 78 29 20 2c 63 6f 75 6e 74 29 20 31 30 30 0a (if.(eq.(float.idx).,count).100.
10b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
10b20 20 20 28 66 6c 6f 6f 72 20 28 2a 20 28 2f 20 69 64 78 20 2c 63 6f 75 6e 74 29 20 31 30 30 29 29 ..(floor.(*.(/.idx.,count).100))
10b40 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 72 6f 67 6e 20 28 6d )...................do.(progn.(m
10b60 65 73 73 61 67 65 20 22 25 73 20 2d 3e 20 25 73 20 5b 25 73 25 25 5d 22 20 66 72 6f 6d 20 74 6f essage."%s.->.%s.[%s%%]".from.to
10b80 20 70 65 72 63 65 6e 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 .percent).......................
10ba0 20 20 20 20 20 20 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 ......(condition-case.err.......
10bc0 20 20 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
10be0 6c 6c 20 23 27 2c 6d 65 74 68 6f 64 20 66 72 6f 6d 20 74 6f 20 74 29 0a 20 20 20 20 20 20 20 20 ll.#',method.from.to.t).........
10c00 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 65 72 72 6f ......................(file-erro
10c20 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...............................
10c40 20 28 6d 65 73 73 61 67 65 20 22 25 73 3a 20 25 73 5c 6e 22 20 28 63 61 72 20 65 72 72 29 20 28 .(message."%s:.%s\n".(car.err).(
10c60 63 64 72 20 65 72 72 29 29 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 cdr.err)).nil)))................
10c80 20 20 20 66 69 6e 61 6c 6c 79 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 62 20 69 6e 20 28 62 75 ...finally.(cl-loop.for.b.in.(bu
10ca0 66 66 65 72 2d 6c 69 73 74 29 20 74 68 65 72 65 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ffer-list).thereis..............
10cc0 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 73 74 72 69 ......................(and.(stri
10ce0 6e 67 2d 6d 61 74 63 68 20 22 5c 5c 60 5c 5c 2a 66 74 70 2e 2a 22 0a 20 20 20 20 20 20 20 20 20 ng-match."\\`\\*ftp.*"..........
10d00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
10d20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 29 29 0a 20 20 .............(buffer-name.b))...
10d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
10d60 20 20 20 20 20 20 28 70 72 6f 67 31 20 62 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 29 29 29 ......(prog1.b.(kill-buffer.b)))
10d80 29 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 65 63 75 74 65 ))))).....(dirvish-yank--execute
10da0 0a 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 63 6d 64 29 20 28 6c 69 73 74 20 28 63 ......(format."%S".cmd).(list.(c
10dc0 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 73 72 63 73 20 64 65 73 74 20 6d 65 74 68 6f 64 29 urrent-buffer).srcs.dest.method)
10de0 20 27 62 61 74 63 68 29 29 29 0a 0a 3b 3b 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 60 64 69 72 65 .'batch)))..;;.copied.from.`dire
10e00 64 2d 72 73 79 6e 63 27 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 d-rsync'.(defun.dirvish-yank--ex
10e20 74 72 61 63 74 2d 68 6f 73 74 2d 66 72 6f 6d 2d 74 72 61 6d 70 20 28 66 69 6c 65 2d 6f 72 2d 70 tract-host-from-tramp.(file-or-p
10e40 61 74 68 20 26 6f 70 74 69 6f 6e 61 6c 20 73 70 6c 69 74 2d 75 73 65 72 29 0a 20 20 22 45 78 74 ath.&optional.split-user)..."Ext
10e60 72 61 63 74 20 74 68 65 20 74 72 61 6d 70 20 68 6f 73 74 20 70 61 72 74 20 6f 66 20 46 49 4c 45 ract.the.tramp.host.part.of.FILE
10e80 2d 4f 52 2d 50 41 54 48 2e 0a 49 74 20 53 50 4c 49 54 2d 55 53 45 52 20 69 73 20 73 65 74 20 77 -OR-PATH..It.SPLIT-USER.is.set.w
10ea0 65 20 72 65 6d 6f 76 65 20 74 68 65 20 75 73 65 72 40 20 70 61 72 74 20 61 73 20 77 65 6c 6c 2e e.remove.the.user@.part.as.well.
10ec0 20 20 57 65 20 61 73 73 75 6d 65 0a 68 6f 73 74 73 20 64 6f 6e 27 74 20 6e 65 65 64 20 71 75 6f ..We.assume.hosts.don't.need.quo
10ee0 74 69 6e 67 2e 22 0a 20 20 28 77 69 74 68 2d 70 61 72 73 65 64 2d 74 72 61 6d 70 2d 66 69 6c 65 ting."...(with-parsed-tramp-file
10f00 2d 6e 61 6d 65 20 66 69 6c 65 2d 6f 72 2d 70 61 74 68 20 74 66 6f 70 0a 20 20 20 20 28 69 66 20 -name.file-or-path.tfop.....(if.
10f20 28 6f 72 20 73 70 6c 69 74 2d 75 73 65 72 20 28 6e 6f 74 20 74 66 6f 70 2d 75 73 65 72 29 29 20 (or.split-user.(not.tfop-user)).
10f40 74 66 6f 70 2d 68 6f 73 74 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 40 25 73 22 20 tfop-host.......(format."%s@%s".
10f60 74 66 6f 70 2d 75 73 65 72 20 74 66 6f 70 2d 68 6f 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 tfop-user.tfop-host))))..(defun.
10f80 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 74 72 61 63 74 2d 72 65 6d 6f 74 65 20 28 66 69 dirvish-yank--extract-remote.(fi
10fa0 6c 65 73 29 0a 20 20 22 47 65 74 20 73 74 72 69 6e 67 20 69 64 65 6e 74 69 66 79 69 6e 67 20 74 les)..."Get.string.identifying.t
10fc0 68 65 20 72 65 6d 6f 74 65 20 63 6f 6e 6e 65 63 74 69 6f 6e 20 6f 66 20 46 49 4c 45 53 2e 22 0a he.remote.connection.of.FILES.".
10fe0 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 68 6f 73 74 73 20 3d 20 28 29 20 66 6f 72 20 66 ..(cl-loop.with.hosts.=.().for.f
11000 20 69 6e 20 66 69 6c 65 73 20 66 6f 72 20 68 20 3d 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 .in.files.for.h.=.(file-remote-p
11020 20 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 68 20 .f)............do.(cl-pushnew.h.
11040 68 6f 73 74 73 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 hosts.:test.#'equal)............
11060 77 68 65 6e 20 28 3e 20 28 6c 65 6e 67 74 68 20 68 6f 73 74 73 29 20 31 29 0a 20 20 20 20 20 20 when.(>.(length.hosts).1).......
11080 20 20 20 20 20 64 6f 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 5b 65 72 72 .....do.(user-error."Dirvish[err
110a0 6f 72 5d 3a 20 53 4f 55 52 43 45 73 20 6e 65 65 64 20 74 6f 20 62 65 20 69 6e 20 74 68 65 20 73 or]:.SOURCEs.need.to.be.in.the.s
110c0 61 6d 65 20 68 6f 73 74 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 72 65 ame.host")............finally.re
110e0 74 75 72 6e 20 28 63 61 72 20 68 6f 73 74 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 turn.(car.hosts)))..(defun.dirvi
11100 73 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 28 6d 65 74 68 6f 64 20 64 65 73 74 29 0a 20 20 22 sh-yank--apply.(method.dest)..."
11120 41 70 70 6c 79 20 79 61 6e 6b 20 4d 45 54 48 4f 44 20 74 6f 20 44 45 53 54 2e 22 0a 20 20 28 73 Apply.yank.METHOD.to.DEST."...(s
11140 65 74 71 20 64 65 73 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 64 etq.dest.(expand-file-name.(or.d
11160 65 73 74 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 29 29 29 est.(dired-current-directory))))
11180 0a 20 20 28 6c 65 74 20 28 28 73 72 63 73 20 28 6f 72 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f ...(let.((srcs.(or.(and.(functio
111a0 6e 70 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 29 0a 20 20 20 20 20 20 20 np.dirvish-yank-sources)........
111c0 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 64 69 72 76 69 73 68 ................(funcall.dirvish
111e0 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -yank-sources)).................
11200 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 67 65 74 2d 73 72 63 73 20 64 69 72 76 69 73 ..(dirvish-yank--get-srcs.dirvis
11220 68 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h-yank-sources).................
11240 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 5b 65 72 72 6f 72 5d 3a 20 6e ..(user-error."Dirvish[error]:.n
11260 6f 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 22 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 o.marked.files")))).....(dirvish
11280 2d 79 61 6e 6b 2d 64 65 66 61 75 6c 74 2d 68 61 6e 64 6c 65 72 20 6d 65 74 68 6f 64 20 73 72 63 -yank-default-handler.method.src
112a0 73 20 64 65 73 74 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d s.dest)))..(dirvish-define-mode-
112c0 6c 69 6e 65 20 79 61 6e 6b 0a 20 20 22 50 72 6f 67 72 65 73 73 20 6f 66 20 79 61 6e 6b 20 74 61 line.yank..."Progress.of.yank.ta
112e0 73 6b 73 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 75 6d 62 65 72 2d 6f 66 2d 74 61 73 6b 73 20 28 sks."...(let.((number-of-tasks.(
11300 6c 65 6e 67 74 68 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f 67 2d 62 75 66 66 65 72 73 29 length.dirvish-yank-log-buffers)
11320 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 3d 20 6e 75 6d 62 65 72 2d 6f 66 2d 74 61 73 6b 73 )).....(cond.((=.number-of-tasks
11340 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3d 20 6e 75 6d 62 65 72 2d 6f 66 2d 74 61 73 .0))...........((=.number-of-tas
11360 6b 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 62 ks.1)............(pcase-let*.((b
11380 75 66 20 28 63 61 72 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 6f 67 2d 62 75 66 66 65 72 73 uf.(car.dirvish-yank-log-buffers
113a0 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 60 28 2c 5f )).........................(`(,_
113c0 20 2c 73 72 63 73 20 2c 64 65 73 74 20 2c 6d 65 74 68 6f 64 29 0a 20 20 20 20 20 20 20 20 20 20 .,srcs.,dest.,method)...........
113e0 20 20 20 20 20 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 ...............(with-current-buf
11400 66 65 72 20 62 75 66 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 79 61 6e 6b 2d 64 65 74 61 fer.buf.(dirvish-prop.:yank-deta
11420 69 6c 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 20 20 20 20 28 ils))).........................(
11440 70 65 72 63 65 6e 74 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 percent.(with-current-buffer.buf
11460 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 ................................
11480 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 79 61 6e 6b 2d 70 65 72 63 65 6e 74 29 ....(dirvish-prop.:yank-percent)
114a0 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 75 6e )).........................(coun
114c0 74 20 28 6c 65 6e 67 74 68 20 73 72 63 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 t.(length.srcs)))..............(
114e0 66 6f 72 6d 61 74 20 22 25 73 25 73 3a 20 25 73 20 e2 87 9b 20 25 73 20 22 0a 20 20 20 20 20 20 format."%s%s:.%s.....%s.".......
11500 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 0a 20 20 20 20 20 ...............(propertize......
11520 20 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 25 73 22 20 28 61 .................(format."%s".(a
11540 6c 69 73 74 2d 67 65 74 20 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 66 6e 2d list-get.method.dirvish-yank-fn-
11560 73 74 72 69 6e 67 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 27 string)).......................'
11580 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 0a 20 face.'font-lock-constant-face)..
115a0 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 6e 6f 74 20 70 65 72 ....................(if.(not.per
115c0 63 65 6e 74 29 20 22 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 cent).""........................
115e0 28 70 72 6f 70 65 72 74 69 7a 65 20 28 66 6f 72 6d 61 74 20 22 20 5b 20 25 73 25 25 25 25 25 25 (propertize.(format.".[.%s%%%%%%
11600 25 25 20 20 5d 20 22 20 70 65 72 63 65 6e 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %%..].".percent)................
11620 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 27 73 75 63 63 65 ....................'face.'succe
11640 73 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 28 70 72 6f 70 65 ss))......................(prope
11660 72 74 69 7a 65 0a 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 rtize.......................(if.
11680 28 3d 20 63 6f 75 6e 74 20 31 29 20 28 63 61 72 20 73 72 63 73 29 20 28 66 6f 72 6d 61 74 20 22 (=.count.1).(car.srcs).(format."
116a0 25 73 20 66 69 6c 65 73 22 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 %s.files".count))...............
116c0 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 ........'face.'font-lock-keyword
116e0 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 28 70 72 6f -face)......................(pro
11700 70 65 72 74 69 7a 65 20 64 65 73 74 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f pertize.dest.'face.'font-lock-do
11720 63 2d 66 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3e 20 6e 75 6d 62 65 72 2d c-face))))...........((>.number-
11740 6f 66 2d 74 61 73 6b 73 20 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 of-tasks.1)............(format."
11760 20 25 73 20 25 73 25 73 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 .%s.%s%s."....................(p
11780 72 6f 70 65 72 74 69 7a 65 20 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 6e 75 6d 62 ropertize.(number-to-string.numb
117a0 65 72 2d 6f 66 2d 74 61 73 6b 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 er-of-tasks)....................
117c0 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 ............'face.'font-lock-key
117e0 77 6f 72 64 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 28 70 word-face)....................(p
11800 72 6f 70 65 72 74 69 7a 65 20 22 72 75 6e 6e 69 6e 67 20 79 61 6e 6b 20 74 61 73 6b 22 20 27 66 ropertize."running.yank.task".'f
11820 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 ace.'font-lock-doc-face)........
11840 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 69 66 20 28 3e 20 6e ............(propertize.(if.(>.n
11860 75 6d 62 65 72 2d 6f 66 2d 74 61 73 6b 73 20 31 29 20 22 73 22 20 22 22 29 0a 20 20 20 20 20 20 umber-of-tasks.1)."s"."").......
11880 20 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 65 20 27 .........................'face.'
118a0 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 font-lock-doc-face))))))..;;;###
118c0 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 20 28 26 6f autoload.(defun.dirvish-yank.(&o
118e0 70 74 69 6f 6e 61 6c 20 64 65 73 74 29 0a 20 20 22 50 61 73 74 65 20 6d 61 72 6b 65 64 20 66 69 ptional.dest)..."Paste.marked.fi
11900 6c 65 73 20 74 6f 20 44 45 53 54 2e 0a 50 72 6f 6d 70 74 20 66 6f 72 20 44 45 53 54 20 77 68 65 les.to.DEST..Prompt.for.DEST.whe
11920 6e 20 70 72 65 66 69 78 65 64 20 77 69 74 68 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 n.prefixed.with.\\[universal-arg
11940 75 6d 65 6e 74 5d 2c 20 69 74 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 72 65 64 2d 63 75 ument],.it.defaults.to.`dired-cu
11960 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 2e 27 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 rrent-directory.'"...(interactiv
11980 65 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 27 79 61 6e 6b e.(dirvish-yank--read-dest.'yank
119a0 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 27 64 69 72 65 64 ))...(dirvish-yank--apply.'dired
119c0 2d 63 6f 70 79 2d 66 69 6c 65 20 64 65 73 74 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 -copy-file.dest))..;;;###autoloa
119e0 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6d 6f 76 65 20 28 26 6f 70 74 69 6f 6e 61 6c d.(defun.dirvish-move.(&optional
11a00 20 64 65 73 74 29 0a 20 20 22 4d 6f 76 65 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 74 6f 20 44 .dest)..."Move.marked.files.to.D
11a20 45 53 54 2e 0a 50 72 6f 6d 70 74 20 66 6f 72 20 44 45 53 54 20 77 68 65 6e 20 70 72 65 66 69 78 EST..Prompt.for.DEST.when.prefix
11a40 65 64 20 77 69 74 68 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 ed.with.\\[universal-argument],.
11a60 69 74 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 it.defaults.to.`dired-current-di
11a80 72 65 63 74 6f 72 79 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 64 69 72 76 69 rectory'."...(interactive.(dirvi
11aa0 73 68 2d 79 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 27 6d 6f 76 65 29 29 0a 20 20 28 64 69 sh-yank--read-dest.'move))...(di
11ac0 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 27 64 69 72 65 64 2d 72 65 6e 61 6d 65 2d rvish-yank--apply.'dired-rename-
11ae0 66 69 6c 65 20 64 65 73 74 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 file.dest))..;;;###autoload.(def
11b00 75 6e 20 64 69 72 76 69 73 68 2d 73 79 6d 6c 69 6e 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 65 un.dirvish-symlink.(&optional.de
11b20 73 74 29 0a 20 20 22 53 79 6d 6c 69 6e 6b 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 74 6f 20 44 st)..."Symlink.marked.files.to.D
11b40 45 53 54 2e 0a 50 72 6f 6d 70 74 20 66 6f 72 20 44 45 53 54 20 77 68 65 6e 20 70 72 65 66 69 78 EST..Prompt.for.DEST.when.prefix
11b60 65 64 20 77 69 74 68 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 ed.with.\\[universal-argument],.
11b80 69 74 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 it.defaults.to.`dired-current-di
11ba0 72 65 63 74 6f 72 79 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 64 69 72 76 69 rectory'."...(interactive.(dirvi
11bc0 73 68 2d 79 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 27 73 79 6d 6c 69 6e 6b 29 29 0a 20 20 sh-yank--read-dest.'symlink))...
11be0 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 27 6d 61 6b 65 2d 73 79 6d 62 6f (dirvish-yank--apply.'make-symbo
11c00 6c 69 63 2d 6c 69 6e 6b 20 64 65 73 74 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a lic-link.dest))..;;;###autoload.
11c20 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 72 65 6c 61 74 69 76 65 2d 73 79 6d 6c 69 6e 6b 20 (defun.dirvish-relative-symlink.
11c40 28 26 6f 70 74 69 6f 6e 61 6c 20 64 65 73 74 29 0a 20 20 22 53 69 6d 69 6c 61 72 20 74 6f 20 60 (&optional.dest)..."Similar.to.`
11c60 64 69 72 76 69 73 68 2d 73 79 6d 6c 69 6e 6b 27 2c 20 62 75 74 20 6c 69 6e 6b 20 66 69 6c 65 73 dirvish-symlink',.but.link.files
11c80 20 72 65 6c 61 74 69 76 65 6c 79 2e 0a 50 72 6f 6d 70 74 20 66 6f 72 20 44 45 53 54 20 77 68 65 .relatively..Prompt.for.DEST.whe
11ca0 6e 20 70 72 65 66 69 78 65 64 20 77 69 74 68 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 n.prefixed.with.\\[universal-arg
11cc0 75 6d 65 6e 74 5d 2c 20 69 74 0a 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 72 65 64 2d 63 75 ument],.it.defaults.to.`dired-cu
11ce0 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 rrent-directory'."...(interactiv
11d00 65 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 27 72 65 6c 61 e.(dirvish-yank--read-dest.'rela
11d20 6c 69 6e 6b 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 27 64 link))...(dirvish-yank--apply.'d
11d40 69 72 65 64 2d 6d 61 6b 65 2d 72 65 6c 61 74 69 76 65 2d 73 79 6d 6c 69 6e 6b 20 64 65 73 74 29 ired-make-relative-symlink.dest)
11d60 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 64 69 72 76 69 73 68 )..;;;###autoload.(defun.dirvish
11d80 2d 68 61 72 64 6c 69 6e 6b 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 65 73 74 29 0a 20 20 22 48 61 -hardlink.(&optional.dest)..."Ha
11da0 72 64 6c 69 6e 6b 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 20 74 6f 20 44 45 53 54 2e 0a 50 72 6f rdlink.marked.files.to.DEST..Pro
11dc0 6d 70 74 20 66 6f 72 20 44 45 53 54 20 77 68 65 6e 20 70 72 65 66 69 78 65 64 20 77 69 74 68 20 mpt.for.DEST.when.prefixed.with.
11de0 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 5d 2c 20 69 74 0a 64 65 66 61 75 \\[universal-argument],.it.defau
11e00 6c 74 73 20 74 6f 20 60 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 27 lts.to.`dired-current-directory'
11e20 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d ."...(interactive.(dirvish-yank-
11e40 2d 72 65 61 64 2d 64 65 73 74 20 27 68 61 72 64 6c 69 6e 6b 29 29 0a 20 20 28 64 69 72 76 69 73 -read-dest.'hardlink))...(dirvis
11e60 68 2d 79 61 6e 6b 2d 2d 61 70 70 6c 79 20 27 64 69 72 65 64 2d 68 61 72 64 6c 69 6e 6b 20 64 65 h-yank--apply.'dired-hardlink.de
11e80 73 74 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 64 69 72 76 st))..;;;###autoload.(defun.dirv
11ea0 69 73 68 2d 72 73 79 6e 63 20 28 64 65 73 74 29 0a 20 20 22 52 73 79 6e 63 20 6d 61 72 6b 65 64 ish-rsync.(dest)..."Rsync.marked
11ec0 20 66 69 6c 65 73 20 74 6f 20 44 45 53 54 2c 20 70 72 6f 6d 70 74 20 66 6f 72 20 44 45 53 54 20 .files.to.DEST,.prompt.for.DEST.
11ee0 69 66 20 6e 6f 74 20 63 61 6c 6c 65 64 20 77 69 74 68 2e 0a 49 66 20 65 69 74 68 65 72 20 74 68 if.not.called.with..If.either.th
11f00 65 20 73 6f 75 72 63 65 73 20 6f 72 20 74 68 65 20 44 45 53 54 20 69 73 20 6c 6f 63 61 74 65 64 e.sources.or.the.DEST.is.located
11f20 20 69 6e 20 61 20 72 65 6d 6f 74 65 20 68 6f 73 74 2c 0a 74 68 65 20 60 64 69 72 76 69 73 68 2d .in.a.remote.host,.the.`dirvish-
11f40 79 61 6e 6b 2d 72 73 79 6e 63 2d 70 72 6f 67 72 61 6d 27 20 61 6e 64 20 60 64 69 72 76 69 73 68 yank-rsync-program'.and.`dirvish
11f60 2d 79 61 6e 6b 2d 72 73 79 6e 63 2d 61 72 67 73 27 0a 61 72 65 20 75 73 65 64 20 74 6f 20 74 72 -yank-rsync-args'.are.used.to.tr
11f80 61 6e 73 66 65 72 20 74 68 65 20 66 69 6c 65 73 2e 0a 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 ansfer.the.files...This.command.
11fa0 72 65 71 75 69 72 65 73 20 70 72 6f 70 65 72 20 73 73 68 20 61 75 74 68 65 6e 74 69 63 61 74 69 requires.proper.ssh.authenticati
11fc0 6f 6e 20 73 65 74 75 70 20 74 6f 20 77 6f 72 6b 0a 63 6f 72 72 65 63 74 6c 79 20 66 6f 72 20 66 on.setup.to.work.correctly.for.f
11fe0 69 6c 65 20 74 72 61 6e 73 66 65 72 20 69 6e 76 6f 6c 76 69 6e 67 20 72 65 6d 6f 74 65 20 68 6f ile.transfer.involving.remote.ho
12000 73 74 73 2c 20 62 65 63 61 75 73 65 20 72 73 79 6e 63 0a 63 6f 6d 6d 61 6e 64 20 69 73 20 61 6c sts,.because.rsync.command.is.al
12020 77 61 79 73 20 72 75 6e 20 6c 6f 63 61 6c 6c 79 2c 20 74 68 65 20 70 61 73 73 77 6f 72 64 20 70 ways.run.locally,.the.password.p
12040 72 6f 6d 70 74 73 20 6d 61 79 20 6c 65 61 64 20 74 6f 0a 75 6e 65 78 70 65 63 74 65 64 20 65 72 rompts.may.lead.to.unexpected.er
12060 72 6f 72 73 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 64 69 72 76 69 73 68 2d 79 rors."...(interactive.(dirvish-y
12080 61 6e 6b 2d 2d 72 65 61 64 2d 64 65 73 74 20 27 72 73 79 6e 63 29 29 0a 20 20 28 73 65 74 71 20 ank--read-dest.'rsync))...(setq.
120a0 64 65 73 74 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 64 65 73 74 20 dest.(expand-file-name.(or.dest.
120c0 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 29 29 29 0a 20 20 28 (dired-current-directory))))...(
120e0 6c 65 74 2a 20 28 28 64 76 65 63 20 28 61 6e 64 20 28 74 72 61 6d 70 2d 74 72 61 6d 70 2d 66 69 let*.((dvec.(and.(tramp-tramp-fi
12100 6c 65 2d 70 20 64 65 73 74 29 20 28 74 72 61 6d 70 2d 64 69 73 73 65 63 74 2d 66 69 6c 65 2d 6e le-p.dest).(tramp-dissect-file-n
12120 61 6d 65 20 64 65 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 72 63 73 20 28 6f 72 20 28 ame.dest)))..........(srcs.(or.(
12140 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e 70 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 73 6f 75 72 and.(functionp.dirvish-yank-sour
12160 63 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 20 20 20 28 66 75 ces).........................(fu
12180 6e 63 61 6c 6c 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 29 29 0a 20 20 20 ncall.dirvish-yank-sources))....
121a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 67 ................(dirvish-yank--g
121c0 65 74 2d 73 72 63 73 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 73 6f 75 72 63 65 73 29 0a 20 20 et-srcs.dirvish-yank-sources)...
121e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 .................(user-error."Di
12200 72 76 69 73 68 5b 65 72 72 6f 72 5d 3a 20 6e 6f 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 22 29 29 rvish[error]:.no.marked.files"))
12220 29 0a 20 20 20 20 20 20 20 20 20 28 73 72 63 2d 30 20 28 70 72 6f 67 31 20 28 63 61 72 20 73 72 )..........(src-0.(prog1.(car.sr
12240 63 73 29 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 74 72 61 63 74 2d 72 65 6d 6f 74 cs).(dirvish-yank--extract-remot
12260 65 20 73 72 63 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 76 65 63 20 28 61 6e 64 20 28 74 e.srcs)))..........(svec.(and.(t
12280 72 61 6d 70 2d 74 72 61 6d 70 2d 66 69 6c 65 2d 70 20 73 72 63 2d 30 29 20 28 74 72 61 6d 70 2d ramp-tramp-file-p.src-0).(tramp-
122a0 64 69 73 73 65 63 74 2d 66 69 6c 65 2d 6e 61 6d 65 20 73 72 63 2d 30 29 29 29 29 0a 20 20 20 20 dissect-file-name.src-0)))).....
122c0 28 63 6f 6e 64 0a 20 20 20 20 20 3b 3b 20 73 68 6f 73 74 20 61 6e 64 20 64 68 6f 73 74 20 61 72 (cond......;;.shost.and.dhost.ar
122e0 65 20 64 69 66 66 65 72 65 6e 74 20 72 65 6d 6f 74 65 20 68 6f 73 74 73 0a 20 20 20 20 20 28 28 e.different.remote.hosts......((
12300 61 6e 64 20 73 76 65 63 20 64 76 65 63 20 28 6e 6f 74 20 28 74 72 61 6d 70 2d 6c 6f 63 61 6c 2d and.svec.dvec.(not.(tramp-local-
12320 68 6f 73 74 2d 70 20 73 76 65 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 74 host-p.svec))............(not.(t
12340 72 61 6d 70 2d 6c 6f 63 61 6c 2d 68 6f 73 74 2d 70 20 64 76 65 63 29 29 29 0a 20 20 20 20 20 20 ramp-local-host-p.dvec))).......
12360 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 32 72 2d 68 61 6e 64 6c 65 72 0a 20 20 20 20 20 20 (dirvish-yank-r2r-handler.......
12380 20 73 72 63 73 20 64 65 73 74 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 74 72 61 63 .srcs.dest.(dirvish-yank--extrac
123a0 74 2d 68 6f 73 74 2d 66 72 6f 6d 2d 74 72 61 6d 70 20 73 72 63 2d 30 29 0a 20 20 20 20 20 20 20 t-host-from-tramp.src-0)........
123c0 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 65 78 74 72 61 63 74 2d 68 6f 73 74 2d 66 72 6f 6d (dirvish-yank--extract-host-from
123e0 2d 74 72 61 6d 70 20 64 65 73 74 20 74 29 29 29 0a 20 20 20 20 20 3b 3b 20 65 69 74 68 65 72 20 -tramp.dest.t)))......;;.either.
12400 73 68 6f 73 74 2c 20 64 68 6f 73 74 20 6f 72 20 62 6f 74 68 20 61 72 65 20 6c 6f 63 61 6c 68 6f shost,.dhost.or.both.are.localho
12420 73 74 0a 20 20 20 20 20 28 74 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6c 32 66 72 2d 68 61 st......(t.(dirvish-yank-l2fr-ha
12440 6e 64 6c 65 72 20 73 72 63 73 20 64 65 73 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 ndler.srcs.dest)))))..(defun.dir
12460 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 6e 63 2d 74 72 61 6e 73 69 65 6e 74 2d 69 6e 69 74 2d vish-yank--rsync-transient-init-
12480 76 61 6c 75 65 20 28 6f 62 6a 29 0a 20 20 22 53 65 6c 65 63 74 20 69 6e 69 74 20 76 61 6c 75 65 value.(obj)..."Select.init.value
124a0 73 20 66 72 6f 6d 20 74 68 65 20 6c 6f 63 61 6c 20 73 65 73 73 69 6f 6e 20 6f 72 20 65 6d 61 63 s.from.the.local.session.or.emac
124c0 73 20 73 65 73 73 69 6f 6e 20 6f 72 20 73 61 76 65 64 20 74 72 61 6e 73 69 65 6e 74 20 76 61 6c s.session.or.saved.transient.val
124e0 75 65 73 2e 22 0a 20 20 28 69 66 2d 6c 65 74 20 28 28 73 65 73 73 69 6f 6e 2d 73 77 69 74 63 68 ues."...(if-let.((session-switch
12500 65 73 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 73 79 6e 63 2d 73 77 69 74 63 68 65 73 es.(dirvish-prop.:rsync-switches
12520 29 29 29 0a 20 20 20 20 20 20 73 65 73 73 69 6f 6e 2d 73 77 69 74 63 68 65 73 0a 20 20 20 20 3b ))).......session-switches.....;
12540 3b 20 64 6f 6e 74 20 74 6f 75 63 68 20 69 66 20 69 74 20 69 73 20 61 6c 72 65 64 61 79 20 73 65 ;.dont.touch.if.it.is.alreday.se
12560 74 0a 20 20 20 20 28 69 66 20 28 73 6c 6f 74 2d 62 6f 75 6e 64 70 20 6f 62 6a 20 27 76 61 6c 75 t.....(if.(slot-boundp.obj.'valu
12580 65 29 0a 20 20 20 20 20 20 20 20 28 6f 72 65 66 20 6f 62 6a 20 76 61 6c 75 65 29 0a 20 20 20 20 e).........(oref.obj.value).....
125a0 20 20 3b 3b 20 63 68 65 63 6b 20 73 61 76 65 64 20 76 61 6c 75 65 73 0a 20 20 20 20 20 20 28 69 ..;;.check.saved.values.......(i
125c0 66 2d 6c 65 74 20 28 28 73 61 76 65 64 20 28 61 73 73 71 20 28 6f 72 65 66 20 6f 62 6a 20 63 6f f-let.((saved.(assq.(oref.obj.co
125e0 6d 6d 61 6e 64 29 20 74 72 61 6e 73 69 65 6e 74 2d 76 61 6c 75 65 73 29 29 29 0a 20 20 20 20 20 mmand).transient-values)))......
12600 20 20 20 20 20 28 63 64 72 20 73 61 76 65 64 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 75 73 65 20 .....(cdr.saved).........;;.use.
12620 66 6c 61 67 73 20 73 65 74 20 76 69 61 20 64 65 66 63 75 73 74 6f 6d 20 61 74 20 6c 61 73 74 20 flags.set.via.defcustom.at.last.
12640 72 65 73 6f 72 74 0a 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 72 73 79 6e resort.........dirvish-yank-rsyn
12660 63 2d 61 72 67 73 29 29 29 29 0a 0a 3b 3b 20 69 6e 73 70 69 72 65 64 20 62 79 20 60 64 69 72 65 c-args))))..;;.inspired.by.`dire
12680 64 2d 72 73 79 6e 63 2d 74 72 61 6e 73 69 65 6e 74 27 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 d-rsync-transient'.;;;###autoloa
126a0 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 72 73 79 6e 63 2d 74 72 61 6e 73 d.(autoload.'dirvish-rsync-trans
126c0 69 65 6e 74 20 22 64 69 72 76 69 73 68 2d 79 61 6e 6b 22 20 6e 69 6c 20 74 29 0a 28 74 72 61 6e ient."dirvish-yank".nil.t).(tran
126e0 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 72 73 79 6e sient-define-prefix.dirvish-rsyn
12700 63 2d 74 72 61 6e 73 69 65 6e 74 20 28 29 0a 20 20 22 54 72 61 6e 73 69 65 6e 74 20 63 6f 6d 6d c-transient.()..."Transient.comm
12720 61 6e 64 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 72 73 79 6e 63 27 2e 22 0a 20 20 3a 69 6e 69 and.for.`dirvish-rsync'."...:ini
12740 74 2d 76 61 6c 75 65 20 28 6c 61 6d 62 64 61 20 28 6f 29 20 28 6f 73 65 74 20 6f 20 76 61 6c 75 t-value.(lambda.(o).(oset.o.valu
12760 65 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 6e 63 2d 74 72 61 6e 73 69 65 6e 74 e.(dirvish-yank--rsync-transient
12780 2d 69 6e 69 74 2d 76 61 6c 75 65 20 6f 29 29 29 0a 20 20 5b 22 43 6f 6d 6d 6f 6e 20 41 72 67 75 -init-value.o)))...["Common.Argu
127a0 6d 65 6e 74 73 22 0a 20 20 20 28 22 2d 61 22 20 22 61 72 63 68 69 76 65 20 6d 6f 64 65 3b 20 65 ments"....("-a"."archive.mode;.e
127c0 71 75 61 6c 73 20 74 6f 20 2d 72 6c 70 74 67 6f 44 22 20 28 22 2d 61 22 20 22 2d 2d 61 72 63 68 quals.to.-rlptgoD".("-a"."--arch
127e0 69 76 65 22 29 29 0a 20 20 20 28 22 2d 73 22 20 22 6e 6f 20 73 70 61 63 65 2d 73 70 6c 69 74 74 ive"))....("-s"."no.space-splitt
12800 69 6e 67 3b 20 75 73 65 66 75 6c 20 77 68 65 6e 20 72 65 6d 6f 74 65 20 66 69 6c 65 6e 61 6d 65 ing;.useful.when.remote.filename
12820 73 20 63 6f 6e 74 61 69 6e 20 73 70 61 63 65 73 22 20 28 22 2d 73 22 20 22 2d 2d 70 72 6f 74 65 s.contain.spaces".("-s"."--prote
12840 63 74 2d 61 72 67 73 22 29 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 28 22 2d 72 22 20 22 72 65 ct-args").:level.4)....("-r"."re
12860 63 75 72 73 65 20 69 6e 74 6f 20 64 69 72 65 63 74 6f 72 69 65 73 22 20 28 22 2d 72 22 20 22 2d curse.into.directories".("-r"."-
12880 2d 72 65 63 75 72 73 69 76 65 22 29 20 3a 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 2d 7a 22 20 -recursive").:level.5)....("-z".
128a0 22 63 6f 6d 70 72 65 73 73 20 66 69 6c 65 20 64 61 74 61 20 64 75 72 69 6e 67 20 74 68 65 20 74 "compress.file.data.during.the.t
128c0 72 61 6e 73 66 65 72 22 20 28 22 2d 7a 22 20 22 2d 2d 63 6f 6d 70 72 65 73 73 22 29 29 5d 0a 0a ransfer".("-z"."--compress"))]..
128e0 20 20 5b 22 46 69 6c 65 73 20 73 65 6c 65 63 74 69 6f 6e 20 61 72 67 73 22 0a 20 20 20 28 22 2d ..["Files.selection.args"....("-
12900 43 22 20 22 61 75 74 6f 2d 69 67 6e 6f 72 65 20 66 69 6c 65 73 20 69 6e 20 74 68 65 20 73 61 6d C"."auto-ignore.files.in.the.sam
12920 65 20 77 61 79 20 43 56 53 20 64 6f 65 73 22 20 28 22 2d 43 22 20 22 2d 2d 63 76 73 2d 65 78 63 e.way.CVS.does".("-C"."--cvs-exc
12940 6c 75 64 65 22 29 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 28 22 3d 65 22 20 22 65 78 63 6c 75 lude").:level.4)....("=e"."exclu
12960 64 65 20 66 69 6c 65 73 20 6d 61 74 63 68 69 6e 67 20 50 41 54 54 45 52 4e 22 20 22 2d 2d 65 78 de.files.matching.PATTERN"."--ex
12980 63 6c 75 64 65 3d 22 0a 20 20 20 20 3a 6d 75 6c 74 69 2d 76 61 6c 75 65 20 72 65 70 65 61 74 20 clude=".....:multi-value.repeat.
129a0 3a 72 65 61 64 65 72 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 6e 63 2d 74 72 61 6e :reader.dirvish-yank--rsync-tran
129c0 73 69 65 6e 74 2d 72 65 61 64 2d 6d 75 6c 74 69 70 6c 65 0a 20 20 20 20 3a 70 72 6f 6d 70 74 20 sient-read-multiple.....:prompt.
129e0 22 65 78 63 6c 75 64 65 20 28 65 2e 67 2e 20 e2 80 98 2a 2e 67 69 74 e2 80 99 20 6f 72 20 e2 80 "exclude.(e.g.....*.git....or...
12a00 98 2a 2e 62 69 6e 2c 2a 2e 65 6c 63 e2 80 99 29 3a 20 22 29 0a 20 20 20 28 22 3d 69 22 20 22 69 .*.bin,*.elc...):.")....("=i"."i
12a20 6e 63 6c 75 64 65 20 66 69 6c 65 73 20 6d 61 74 63 68 69 6e 67 20 50 41 54 54 45 52 4e 22 20 22 nclude.files.matching.PATTERN"."
12a40 2d 2d 69 6e 63 6c 75 64 65 3d 22 0a 20 20 20 20 3a 6d 75 6c 74 69 2d 76 61 6c 75 65 20 72 65 70 --include=".....:multi-value.rep
12a60 65 61 74 20 3a 72 65 61 64 65 72 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 6e 63 2d eat.:reader.dirvish-yank--rsync-
12a80 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 75 6c 74 69 70 6c 65 0a 20 20 20 20 3a 70 72 6f transient-read-multiple.....:pro
12aa0 6d 70 74 20 22 69 6e 63 6c 75 64 65 20 28 65 2e 67 2e 20 e2 80 98 2a 2e 70 64 66 e2 80 99 20 6f mpt."include.(e.g.....*.pdf....o
12ac0 72 20 e2 80 98 2a 2e 6f 72 67 2c 2a 2e 65 6c e2 80 99 29 3a 20 22 20 3a 6c 65 76 65 6c 20 35 29 r....*.org,*.el...):.".:level.5)
12ae0 5d 0a 0a 20 20 5b 22 53 65 6e 64 65 72 20 73 70 65 63 69 66 69 63 20 61 72 67 73 22 0a 20 20 20 ]....["Sender.specific.args"....
12b00 28 22 2d 4c 22 20 22 74 72 61 6e 73 66 6f 72 6d 20 73 79 6d 6c 69 6e 6b 20 69 6e 74 6f 20 72 65 ("-L"."transform.symlink.into.re
12b20 66 65 72 65 6e 74 20 66 69 6c 65 2f 64 69 72 22 20 28 22 2d 4c 22 20 22 2d 2d 63 6f 70 79 2d 6c ferent.file/dir".("-L"."--copy-l
12b40 69 6e 6b 73 22 29 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 28 22 2d 78 22 20 22 64 6f 6e 27 74 inks").:level.4)....("-x"."don't
12b60 20 63 72 6f 73 73 20 66 69 6c 65 73 79 73 74 65 6d 20 62 6f 75 6e 64 61 72 69 65 73 22 20 28 22 .cross.filesystem.boundaries".("
12b80 2d 78 22 20 22 2d 2d 6f 6e 65 2d 66 69 6c 65 2d 73 79 73 74 65 6d 22 29 20 3a 6c 65 76 65 6c 20 -x"."--one-file-system").:level.
12ba0 35 29 0a 20 20 20 28 22 2d 6c 22 20 22 63 6f 70 79 20 73 79 6d 6c 69 6e 6b 73 20 61 73 20 73 79 5)....("-l"."copy.symlinks.as.sy
12bc0 6d 6c 69 6e 6b 73 22 20 28 22 2d 6c 22 20 22 2d 2d 6c 69 6e 6b 73 22 29 20 3a 6c 65 76 65 6c 20 mlinks".("-l"."--links").:level.
12be0 35 29 0a 20 20 20 28 22 2d 63 22 20 22 73 6b 69 70 20 62 61 73 65 64 20 6f 6e 20 63 68 65 63 6b 5)....("-c"."skip.based.on.check
12c00 73 75 6d 2c 20 6e 6f 74 20 6d 6f 64 2d 74 69 6d 65 20 26 20 73 69 7a 65 22 20 28 22 2d 63 22 20 sum,.not.mod-time.&.size".("-c".
12c20 22 2d 2d 63 68 65 63 6b 73 75 6d 22 29 20 3a 6c 65 76 65 6c 20 36 29 0a 20 20 20 28 22 2d 6d 22 "--checksum").:level.6)....("-m"
12c40 20 22 70 72 75 6e 65 20 65 6d 70 74 79 20 64 69 72 65 63 74 6f 72 79 20 63 68 61 69 6e 73 20 66 ."prune.empty.directory.chains.f
12c60 72 6f 6d 20 66 69 6c 65 2d 6c 69 73 74 22 20 28 22 2d 6d 22 20 22 2d 2d 70 72 75 6e 65 2d 65 6d rom.file-list".("-m"."--prune-em
12c80 70 74 79 2d 64 69 72 73 22 29 20 3a 6c 65 76 65 6c 20 36 29 0a 20 20 20 28 22 2d 2d 73 69 7a 65 pty-dirs").:level.6)....("--size
12ca0 2d 6f 6e 6c 79 22 20 22 73 6b 69 70 20 66 69 6c 65 73 20 74 68 61 74 20 6d 61 74 63 68 20 69 6e -only"."skip.files.that.match.in
12cc0 20 73 69 7a 65 22 20 22 2d 2d 73 69 7a 65 2d 6f 6e 6c 79 22 20 3a 6c 65 76 65 6c 20 36 29 5d 0a .size"."--size-only".:level.6)].
12ce0 20 20 5b 22 52 65 63 65 69 76 65 72 20 73 70 65 63 69 66 69 63 20 61 72 67 73 22 0a 20 20 20 28 ..["Receiver.specific.args"....(
12d00 22 2d 52 22 20 22 75 73 65 20 72 65 6c 61 74 69 76 65 20 70 61 74 68 20 6e 61 6d 65 73 22 20 28 "-R"."use.relative.path.names".(
12d20 22 2d 52 22 20 22 2d 2d 72 65 6c 61 74 69 76 65 22 29 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 "-R"."--relative").:level.4)....
12d40 28 22 2d 75 22 20 22 73 6b 69 70 20 66 69 6c 65 73 20 74 68 61 74 20 61 72 65 20 6e 65 77 65 72 ("-u"."skip.files.that.are.newer
12d60 20 6f 6e 20 74 68 65 20 72 65 63 65 69 76 65 72 22 20 28 22 2d 75 22 20 22 2d 2d 75 70 64 61 74 .on.the.receiver".("-u"."--updat
12d80 65 22 29 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 28 22 3d 64 22 20 22 64 65 6c 65 74 65 20 65 e").:level.4)....("=d"."delete.e
12da0 78 74 72 61 6e 65 6f 75 73 20 66 69 6c 65 73 20 66 72 6f 6d 20 64 65 73 74 20 64 69 72 73 22 20 xtraneous.files.from.dest.dirs".
12dc0 22 2d 2d 64 65 6c 65 74 65 22 20 3a 6c 65 76 65 6c 20 34 29 0a 20 20 20 28 22 2d 62 22 20 22 6d "--delete".:level.4)....("-b"."m
12de0 61 6b 65 20 62 61 63 6b 75 70 73 22 20 28 22 2d 62 22 20 22 2d 2d 62 61 63 6b 75 70 22 29 20 3a ake.backups".("-b"."--backup").:
12e00 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 3d 62 73 22 20 22 62 61 63 6b 75 70 20 73 75 66 66 69 level.5)....("=bs"."backup.suffi
12e20 78 22 20 22 2d 2d 73 75 66 66 69 78 3d 22 0a 20 20 20 20 3a 70 72 6f 6d 70 74 20 22 62 61 63 6b x"."--suffix=".....:prompt."back
12e40 75 70 20 73 75 66 66 69 78 3a 20 22 0a 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 up.suffix:.".....:reader.(lambda
12e60 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 75 .(prompt.&optional._initial-inpu
12e80 74 20 68 69 73 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 t.history)...............(comple
12ea0 74 69 6e 67 2d 72 65 61 64 20 70 72 6f 6d 70 74 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c ting-read.prompt.nil.nil.nil.nil
12ec0 20 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 3a 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 2d 6e .history)).....:level.5)....("-n
12ee0 75 6d 22 20 22 64 6f 6e 27 74 20 6d 61 70 20 75 69 64 2f 67 69 64 20 76 61 6c 75 65 73 20 62 79 um"."don't.map.uid/gid.values.by
12f00 20 75 73 65 72 2f 67 72 6f 75 70 20 6e 61 6d 65 22 20 22 2d 2d 6e 75 6d 65 72 69 63 2d 69 64 73 .user/group.name"."--numeric-ids
12f20 22 20 3a 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 2d 65 78 22 20 22 73 6b 69 70 20 63 72 65 61 ".:level.5)....("-ex"."skip.crea
12f40 74 69 6e 67 20 6e 65 77 20 66 69 6c 65 73 20 6f 6e 20 72 65 63 65 69 76 65 72 22 20 22 2d 2d 65 ting.new.files.on.receiver"."--e
12f60 78 69 73 74 69 6e 67 22 20 3a 6c 65 76 65 6c 20 36 29 0a 20 20 20 28 22 2d 4b 22 20 22 74 72 65 xisting".:level.6)....("-K"."tre
12f80 61 74 20 73 79 6d 6c 69 6e 6b 65 64 20 64 69 72 20 6f 6e 20 72 65 63 65 69 76 65 72 20 61 73 20 at.symlinked.dir.on.receiver.as.
12fa0 64 69 72 22 20 28 22 2d 4b 22 20 22 2d 2d 6b 65 65 70 2d 64 69 72 6c 69 6e 6b 73 22 29 20 3a 6c dir".("-K"."--keep-dirlinks").:l
12fc0 65 76 65 6c 20 36 29 5d 0a 0a 20 20 5b 22 49 6e 66 6f 72 6d 61 74 69 6f 6e 20 6f 75 74 70 75 74 evel.6)]....["Information.output
12fe0 22 0a 20 20 20 28 22 2d 76 22 20 22 69 6e 63 72 65 61 73 65 20 76 65 72 62 6f 73 69 74 79 22 20 "....("-v"."increase.verbosity".
13000 28 22 2d 76 22 20 22 2d 2d 76 65 72 62 6f 73 65 22 29 29 0a 20 20 20 28 22 2d 69 22 20 22 6f 75 ("-v"."--verbose"))....("-i"."ou
13020 74 70 75 74 20 61 20 63 68 61 6e 67 65 2d 73 75 6d 6d 61 72 79 20 66 6f 72 20 61 6c 6c 20 75 70 tput.a.change-summary.for.all.up
13040 64 61 74 65 73 22 20 22 2d 69 22 20 3a 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 2d 68 22 20 22 dates"."-i".:level.5)....("-h"."
13060 6f 75 74 70 75 74 20 6e 75 6d 62 65 72 73 20 69 6e 20 61 20 68 75 6d 61 6e 2d 72 65 61 64 61 62 output.numbers.in.a.human-readab
13080 6c 65 20 66 6f 72 6d 61 74 22 20 22 2d 68 22 20 3a 6c 65 76 65 6c 20 35 29 0a 20 20 20 28 22 3d le.format"."-h".:level.5)....("=
130a0 49 22 20 22 70 65 72 2d 66 69 6c 65 20 28 31 29 20 6f 72 20 74 6f 74 61 6c 20 74 72 61 6e 73 66 I"."per-file.(1).or.total.transf
130c0 65 72 20 28 32 29 20 70 72 6f 67 72 65 73 73 22 20 22 2d 2d 69 6e 66 6f 3d 22 0a 20 20 20 20 3a er.(2).progress"."--info=".....:
130e0 63 68 6f 69 63 65 73 20 28 22 70 72 6f 67 72 65 73 73 31 22 20 22 70 72 6f 67 72 65 73 73 32 22 choices.("progress1"."progress2"
13100 29 20 3a 6c 65 76 65 6c 20 34 29 5d 0a 20 20 5b 22 41 63 74 69 6f 6e 22 0a 20 20 20 5b 28 22 52 ).:level.4)]...["Action"....[("R
13120 45 54 22 20 22 41 70 70 6c 79 20 73 77 69 74 63 68 65 73 20 61 6e 64 20 63 6f 70 79 22 20 64 69 ET"."Apply.switches.and.copy".di
13140 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 6e 63 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 rvish-yank--rsync-apply-switches
13160 2d 61 6e 64 2d 63 6f 70 79 29 5d 5d 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 -and-copy)]])..(defun.dirvish-ya
13180 6e 6b 2d 2d 72 73 79 6e 63 2d 74 72 61 6e 73 69 65 6e 74 2d 72 65 61 64 2d 6d 75 6c 74 69 70 6c nk--rsync-transient-read-multipl
131a0 65 20 28 70 72 6f 6d 70 74 20 26 6f 70 74 69 6f 6e 61 6c 20 5f 69 6e 69 74 69 61 6c 2d 69 6e 70 e.(prompt.&optional._initial-inp
131c0 75 74 20 68 69 73 74 6f 72 79 29 0a 20 20 22 52 65 61 64 20 6d 75 6c 74 69 70 6c 65 20 76 61 6c ut.history)..."Read.multiple.val
131e0 75 65 73 20 61 66 74 65 72 20 50 52 4f 4d 50 54 20 77 69 74 68 20 6f 70 74 69 6f 6e 61 6c 20 49 ues.after.PROMPT.with.optional.I
13200 4e 49 54 49 41 4c 5f 49 4e 50 55 54 20 61 6e 64 20 48 49 53 54 4f 52 59 2e 22 0a 20 20 28 6c 65 NITIAL_INPUT.and.HISTORY."...(le
13220 74 20 28 28 63 72 6d 2d 73 65 70 61 72 61 74 6f 72 20 22 2c 22 29 29 0a 20 20 20 20 28 63 6f 6d t.((crm-separator.",")).....(com
13240 70 6c 65 74 69 6e 67 2d 72 65 61 64 2d 6d 75 6c 74 69 70 6c 65 20 70 72 6f 6d 70 74 20 6e 69 6c pleting-read-multiple.prompt.nil
13260 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 68 69 73 74 6f 72 79 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 .nil.nil.nil.history)))..;;;###a
13280 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 2d 72 73 79 utoload.(defun.dirvish-yank--rsy
132a0 6e 63 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 2d 61 6e 64 2d 63 6f 70 79 20 28 61 72 67 73 nc-apply-switches-and-copy.(args
132c0 29 0a 20 20 22 45 78 65 63 75 74 65 20 72 73 79 6e 63 20 63 6f 6d 6d 61 6e 64 20 67 65 6e 65 72 )..."Execute.rsync.command.gener
132e0 61 74 65 64 20 62 79 20 74 72 61 6e 73 69 65 6e 74 20 41 52 47 53 2e 22 0a 20 20 28 69 6e 74 65 ated.by.transient.ARGS."...(inte
13300 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 74 72 61 6e 73 69 65 6e 74 2d 61 72 67 73 20 74 72 ractive.(list.(transient-args.tr
13320 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 6d 61 6e 64 29 29 29 0a 20 20 28 64 69 ansient-current-command)))...(di
13340 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 73 79 6e 63 2d 73 77 69 74 63 68 65 73 20 61 72 67 73 29 rvish-prop.:rsync-switches.args)
13360 0a 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 23 27 64 69 72 76 69 73 68 ...(call-interactively.#'dirvish
13380 2d 72 73 79 6e 63 29 29 0a 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 79 61 6e -rsync))...(provide.'dirvish-yan
133a0 6b 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 k).;;;.dirvish-yank.el.ends.here
133c0 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
133e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13400 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 71 75 dirvish-20230519.1500/dirvish-qu
13420 69 63 6b 2d 61 63 63 65 73 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ick-access.el...................
13440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13460 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
13480 30 30 30 35 35 34 34 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 30 32 37 00 20 30 00 00 00 0005544.00000000000.017027..0...
134a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
134c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
134e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13500 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...................
13520 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...................
13540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
135e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
13600 3b 3b 3b 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 2e 65 6c 20 2d 2d 2d 20 ;;;.dirvish-quick-access.el.---.
13620 51 75 69 63 6b 20 6b 65 79 73 20 66 6f 72 20 66 72 65 71 75 65 6e 74 6c 79 20 76 69 73 69 74 65 Quick.keys.for.frequently.visite
13640 64 20 70 6c 61 63 65 73 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 d.places.-*-.lexical-binding:.t.
13660 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 -*-..;;.Copyright.(C).2021-2022.
13680 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 Alex.Lu.;;.Author.:.Alex.Lu.<htt
136a0 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 ps://github.com/alexluigit>.;;.V
136c0 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 ersion:.2.0.53.;;.Keywords:.file
136e0 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 s,.convenience.;;.Homepage:.http
13700 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 s://github.com/alexluigit/dirvis
13720 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 h.;;.SPDX-License-Identifier:.GP
13740 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a L-3.0-or-later..;;;.Commentary:.
13760 0a 3b 3b 20 54 68 69 73 20 44 69 72 76 69 73 68 20 65 78 74 65 6e 73 69 6f 6e 20 61 6c 6c 6f 77 .;;.This.Dirvish.extension.allow
13780 73 20 74 68 65 20 75 73 65 72 20 74 6f 20 64 65 66 69 6e 65 20 61 20 6c 69 73 74 20 6f 66 20 66 s.the.user.to.define.a.list.of.f
137a0 72 65 71 75 65 6e 74 6c 79 20 76 69 73 69 74 65 64 0a 3b 3b 20 64 69 72 65 63 74 6f 72 69 65 73 requently.visited.;;.directories
137c0 20 61 6e 64 20 61 20 71 75 69 63 6b 20 6b 65 79 20 74 6f 20 6a 75 6d 70 20 74 6f 20 74 68 65 20 .and.a.quick.key.to.jump.to.the.
137e0 70 61 74 68 2e 20 20 60 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 27 20 69 73 path...`dirvish-quick-access'.is
13800 0a 3b 3b 20 64 65 73 69 67 6e 65 64 20 74 6f 20 62 65 20 61 20 63 6f 6d 70 6c 65 6d 65 6e 74 61 .;;.designed.to.be.a.complementa
13820 72 79 20 63 6f 6d 6d 61 6e 64 20 74 6f 20 74 68 65 20 62 6f 6f 6b 6d 61 72 6b 20 73 79 73 74 65 ry.command.to.the.bookmark.syste
13840 6d 20 69 6e 20 45 6d 61 63 73 2e 20 20 4f 6e 65 0a 3b 3b 20 63 61 6e 20 68 61 76 65 20 61 73 20 m.in.Emacs...One.;;.can.have.as.
13860 6d 61 6e 79 20 61 73 20 62 6f 6f 6b 6d 61 72 6b 73 20 74 68 65 79 20 77 61 6e 74 2c 20 61 6e 64 many.as.bookmarks.they.want,.and
13880 20 6a 75 6d 70 20 74 6f 20 61 20 70 61 72 74 69 63 75 6c 61 72 20 6f 6e 65 20 62 79 20 74 68 65 .jump.to.a.particular.one.by.the
138a0 0a 3b 3b 20 68 65 6c 70 20 6f 66 20 74 68 65 69 72 20 63 68 6f 69 63 65 20 6f 66 20 63 6f 6d 70 .;;.help.of.their.choice.of.comp
138c0 6c 65 74 69 6f 6e 20 66 72 61 6d 65 77 6f 72 6b 20 6f 72 20 63 6f 6d 6d 61 6e 64 73 20 6c 69 6b letion.framework.or.commands.lik
138e0 65 0a 3b 3b 20 60 63 6f 6e 73 75 6c 74 2d 62 6f 6f 6b 6d 61 72 6b 27 2e 20 20 42 75 74 20 66 6f e.;;.`consult-bookmark'...But.fo
13900 72 20 74 68 6f 73 65 20 76 65 72 79 20 66 72 65 71 75 65 6e 74 6c 79 20 76 69 73 69 74 65 64 20 r.those.very.frequently.visited.
13920 70 6c 61 63 65 73 20 69 6e 20 74 68 65 20 66 69 6c 65 0a 3b 3b 20 73 79 73 74 65 6d 2c 20 74 68 places.in.the.file.;;.system,.th
13940 65 20 75 73 65 72 20 77 6f 75 6c 64 20 65 78 70 65 63 74 20 74 6f 20 61 63 63 65 73 73 20 74 68 e.user.would.expect.to.access.th
13960 65 73 65 20 64 69 72 65 63 74 6f 72 69 65 73 20 77 69 74 68 20 74 68 65 20 73 68 6f 72 74 65 73 ese.directories.with.the.shortes
13980 74 0a 3b 3b 20 6b 65 79 20 73 65 71 75 65 6e 63 65 2c 20 70 6c 75 73 20 61 20 6d 6e 65 6d 6f 6e t.;;.key.sequence,.plus.a.mnemon
139a0 69 63 20 77 61 79 20 74 6f 20 72 65 6d 65 6d 62 65 72 20 74 68 6f 73 65 20 6b 65 79 73 2e 0a 0a ic.way.to.remember.those.keys...
139c0 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 ;;;.Code:..(require.'dirvish)..(
139e0 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 2d 66 defcustom.dirvish-quick-access-f
13a00 75 6e 63 74 69 6f 6e 20 27 64 69 72 76 69 73 68 2d 64 77 69 6d 0a 20 20 22 46 75 6e 63 74 69 6f unction.'dirvish-dwim..."Functio
13a20 6e 20 75 73 65 64 20 74 6f 20 61 63 63 65 73 73 20 60 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d n.used.to.access.`dirvish-quick-
13a40 61 63 63 65 73 73 2d 65 6e 74 72 69 65 73 27 2e 0a 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 74 61 access-entries'..The.function.ta
13a60 6b 65 73 20 74 68 65 20 65 6e 74 72 79 20 61 73 20 74 68 65 20 73 6f 6c 65 20 61 72 67 75 6d 65 kes.the.entry.as.the.sole.argume
13a80 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 66 75 nt."...:group.'dirvish.:type.'fu
13aa0 6e 63 74 69 6f 6e 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 nction)..;;;###autoload.(autoloa
13ac0 64 20 27 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 20 22 64 69 72 76 69 73 68 d.'dirvish-quick-access."dirvish
13ae0 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 22 20 6e 69 6c 20 74 29 0a 28 64 65 66 63 75 73 74 6f 6d -quick-access".nil.t).(defcustom
13b00 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 2d 65 6e 74 72 69 65 73 0a 20 20 .dirvish-quick-access-entries...
13b20 60 28 28 22 68 22 20 22 7e 2f 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 48 6f `(("h"."~/".................."Ho
13b40 6d 65 22 29 0a 20 20 20 20 28 22 65 22 20 2c 75 73 65 72 2d 65 6d 61 63 73 2d 64 69 72 65 63 74 me").....("e".,user-emacs-direct
13b60 6f 72 79 20 22 45 6d 61 63 73 20 75 73 65 72 20 64 69 72 65 63 74 6f 72 79 22 29 29 0a 20 20 22 ory."Emacs.user.directory"))..."
13b80 51 75 69 63 6b 20 61 63 63 65 73 73 20 65 6e 74 72 69 65 73 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 Quick.access.entries.for.command
13ba0 20 60 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 27 2e 0a 41 20 45 4e 54 52 59 .`dirvish-quick-access'..A.ENTRY
13bc0 20 69 73 20 61 20 28 4b 45 59 20 50 41 54 48 20 44 4f 43 29 20 61 6c 69 73 74 20 77 68 65 72 65 .is.a.(KEY.PATH.DOC).alist.where
13be0 20 4b 45 59 20 69 73 20 74 68 65 20 6b 65 79 20 74 6f 0a 69 6e 76 6f 6b 65 20 74 68 65 20 6e 61 .KEY.is.the.key.to.invoke.the.na
13c00 76 69 67 61 74 69 6f 6e 2c 20 50 41 54 48 20 69 73 20 74 68 65 20 74 68 65 20 61 72 67 75 6d 65 vigation,.PATH.is.the.the.argume
13c20 6e 74 20 66 6f 72 20 63 6f 6d 6d 61 6e 64 0a 60 64 69 72 65 64 2d 6a 75 6d 70 27 2c 20 44 4f 43 nt.for.command.`dired-jump',.DOC
13c40 20 28 6f 70 74 69 6f 6e 61 6c 29 20 69 73 20 69 74 73 20 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e .(optional).is.its.documentation
13c60 20 73 74 72 69 6e 67 2e 0a 0a 48 65 72 65 20 69 73 20 61 20 73 61 6d 70 6c 65 20 76 61 6c 75 65 .string...Here.is.a.sample.value
13c80 20 66 6f 72 20 74 68 69 73 20 76 61 72 69 61 62 6c 65 2e 0a 0a 5c 28 28 5c 22 68 5c 22 20 20 5c .for.this.variable...\((\"h\"..\
13ca0 22 7e 2f 5c 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5c 22 48 6f 6d 65 5c "~/\"....................\"Home\
13cc0 22 29 0a 20 28 5c 22 74 5c 22 20 20 5c 22 7e 2f 2e 6c 6f 63 61 6c 2f 73 68 61 72 65 2f 54 72 61 ")..(\"t\"..\"~/.local/share/Tra
13ce0 73 68 2f 5c 22 20 5c 22 54 72 61 73 68 65 73 5c 22 29 0a 20 28 5c 22 70 61 5c 22 20 5c 22 7e 2f sh/\".\"Trashes\")..(\"pa\".\"~/
13d00 43 6f 64 65 2f 70 72 6f 6a 2d 61 2f 5c 22 20 20 20 20 20 20 20 20 5c 22 50 72 6f 6a 65 63 74 20 Code/proj-a/\"........\"Project.
13d20 41 5c 22 29 0a 20 28 5c 22 70 62 5c 22 20 5c 22 7e 2f 43 6f 64 65 2f 70 72 6f 6a 2d 62 2f 5c 22 A\")..(\"pb\".\"~/Code/proj-b/\"
13d40 20 20 20 20 20 20 20 20 5c 22 50 72 6f 6a 65 63 74 20 42 5c 22 29 29 22 0a 20 20 3a 67 72 6f 75 ........\"Project.B\"))"...:grou
13d60 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 0a 20 20 3a 73 65 74 0a 20 p.'dirvish.:type.'alist...:set..
13d80 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 0a 20 20 20 20 28 73 65 74 20 6b 20 76 29 0a 20 20 20 .(lambda.(k.v).....(set.k.v)....
13da0 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 64 65 73 63 2d 6c 65 6e 20 28 6d 61 70 63 61 72 20 28 .(when-let*.((desc-len.(mapcar.(
13dc0 6c 61 6d 62 64 61 20 28 69 29 20 28 6c 65 6e 67 74 68 20 28 6e 74 68 20 32 20 69 29 29 29 20 76 lambda.(i).(length.(nth.2.i))).v
13de0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 78 2d 64 65 73 63 2d 6c 65 6e )).................(max-desc-len
13e00 20 28 73 65 71 2d 6d 61 78 20 64 65 73 63 2d 6c 65 6e 29 29 29 0a 20 20 20 20 20 20 28 65 76 61 .(seq-max.desc-len))).......(eva
13e20 6c 0a 20 20 20 20 20 20 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 l........`(transient-define-pref
13e40 69 78 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 20 28 29 0a 20 20 20 20 20 ix.dirvish-quick-access.()......
13e60 20 20 20 20 20 22 4a 75 6d 70 20 74 6f 20 44 69 72 76 69 73 68 20 71 75 69 63 6b 20 61 63 63 65 ....."Jump.to.Dirvish.quick.acce
13e80 73 73 20 65 6e 74 72 69 65 73 2e 22 0a 20 20 20 20 20 20 20 20 20 20 5b 3a 64 65 73 63 72 69 70 ss.entries."...........[:descrip
13ea0 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 tion............(lambda.().(dirv
13ec0 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 47 6f 20 74 6f 20 ish--format-menu-heading."Go.to.
13ee0 44 69 72 65 63 74 6f 72 79 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 63 6c 2d Directory:."))............,@(cl-
13f00 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 6b 65 79 20 70 61 74 68 loop...............for.(key.path
13f20 20 64 65 73 63 29 20 69 6e 20 76 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 .desc).in.v...............collec
13f40 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 79 0a 20 20 20 20 20 20 t...............(list.key.......
13f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 64 65 73 63 20 22 20 20 22 0a ..............(concat.desc."..".
13f80 20 20 20 20 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 61 6b ............................(mak
13fa0 65 2d 73 74 72 69 6e 67 20 28 2d 20 6d 61 78 2d 64 65 73 63 2d 6c 65 6e 20 28 6c 65 6e 67 74 68 e-string.(-.max-desc-len.(length
13fc0 20 64 65 73 63 29 29 20 3f 5c 20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .desc)).?\.)....................
13fe0 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 70 61 74 68 20 27 66 61 63 65 20 .........(propertize.path.'face.
14000 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 'font-lock-comment-face)).......
14020 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 ..............`(lambda.().......
14040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 .................(interactive)..
14060 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 64 ......................(funcall.d
14080 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 2d 66 75 6e 63 74 69 6f 6e 20 2c 70 61 irvish-quick-access-function.,pa
140a0 74 68 29 29 29 29 5d 0a 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a th))))]...........(interactive).
140c0 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 2d 66 64 20 6e ..........(require.'dirvish-fd.n
140e0 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 72 61 6e 73 69 65 6e 74 2d 73 65 74 75 70 il.t)...........(transient-setup
14100 20 27 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 29 29 29 29 29 29 0a 0a 28 70 .'dirvish-quick-access))))))..(p
14120 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 29 0a 3b 3b rovide.'dirvish-quick-access).;;
14140 3b 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 2d 61 63 63 65 73 73 2e 65 6c 20 65 6e 64 73 20 68 ;.dirvish-quick-access.el.ends.h
14160 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ere.............................
14180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
141a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
141c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
141e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14200 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 6c 73 dirvish-20230519.1500/dirvish-ls
14220 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.............................
14240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14260 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
14280 30 30 31 37 35 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 30 37 31 00 20 30 00 00 00 0017531.00000000000.015071..0...
142a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
142c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
142e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14300 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...................
14320 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...................
14340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
143a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
143c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
143e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
14400 3b 3b 3b 20 64 69 72 76 69 73 68 2d 6c 73 2e 65 6c 20 2d 2d 2d 20 53 65 74 75 70 20 6c 73 20 63 ;;;.dirvish-ls.el.---.Setup.ls.c
14420 6f 6d 6d 61 6e 64 20 73 77 69 74 63 68 65 73 20 6f 6e 20 74 68 65 20 66 6c 79 20 2d 2a 2d 20 6c ommand.switches.on.the.fly.-*-.l
14440 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 exical-binding:.t.-*-..;;.Copyri
14460 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 ght.(C).2021-2022.Alex.Lu.;;.Aut
14480 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f hor.:.Alex.Lu.<https://github.co
144a0 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 m/alexluigit>.;;.Version:.2.0.53
144c0 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 .;;.Keywords:.files,.convenience
144e0 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d .;;.Homepage:.https://github.com
14500 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 /alexluigit/dirvish.;;.SPDX-Lice
14520 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 nse-Identifier:.GPL-3.0-or-later
14540 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 53 65 74 75 70 20 6c 73 20 63 ..;;;.Commentary:..;;.Setup.ls.c
14560 6f 6d 6d 61 6e 64 20 73 77 69 74 63 68 65 73 20 6f 6e 20 74 68 65 20 66 6c 79 2e 0a 0a 3b 3b 3b ommand.switches.on.the.fly...;;;
14580 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 .Code:..(require.'dirvish)..(def
145a0 75 6e 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 63 6c 65 61 72 2d 73 77 69 74 63 68 65 73 2d 63 68 un.dirvish-ls--clear-switches-ch
145c0 6f 69 63 65 73 20 28 29 0a 20 20 22 52 65 6c 6f 61 64 20 74 68 65 20 6c 69 73 74 69 6e 67 20 73 oices.()..."Reload.the.listing.s
145e0 77 69 74 63 68 65 73 20 73 65 74 75 70 20 55 49 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 witches.setup.UI."...(interactiv
14600 65 29 0a 20 20 28 74 72 61 6e 73 69 65 6e 74 2d 73 65 74 75 70 20 27 64 69 72 76 69 73 68 2d 6c e)...(transient-setup.'dirvish-l
14620 73 2d 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 s-switches-menu))..(defun.dirvis
14640 68 2d 6c 73 2d 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 2d 74 6f 2d 62 75 66 66 65 72 20 28 h-ls--apply-switches-to-buffer.(
14660 26 6f 70 74 69 6f 6e 61 6c 20 73 77 69 74 63 68 65 73 29 0a 20 20 22 41 70 70 6c 79 20 6c 69 73 &optional.switches)..."Apply.lis
14680 74 69 6e 67 20 53 57 49 54 43 48 45 53 20 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e ting.SWITCHES.to.current.buffer.
146a0 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 61 72 67 73 "...(interactive)...(let*.((args
146c0 20 28 74 72 61 6e 73 69 65 6e 74 2d 61 72 67 73 20 74 72 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 .(transient-args.transient-curre
146e0 6e 74 2d 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 65 73 20 nt-command))..........(switches.
14700 28 6f 72 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 2d 6a 6f 69 6e 20 28 61 70 70 65 6e (or.switches.(string-join.(appen
14720 64 20 27 28 22 2d 6c 22 29 20 61 72 67 73 29 20 22 20 22 29 29 29 29 0a 20 20 20 20 28 77 68 65 d.'("-l").args).".")))).....(whe
14740 6e 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 28 73 65 74 71 20 64 69 72 65 64 n.current-prefix-arg.(setq.dired
14760 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 20 73 77 69 74 63 68 65 73 29 29 0a 20 20 20 -listing-switches.switches))....
14780 20 28 73 65 74 71 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 68 65 73 20 73 77 69 .(setq.dired-actual-switches.swi
147a0 74 63 68 65 73 29 0a 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 tches).....(revert-buffer)))..(d
147c0 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 2d efun.dirvish-ls--apply-switches-
147e0 74 6f 2d 61 6c 6c 20 28 26 6f 70 74 69 6f 6e 61 6c 20 73 77 69 74 63 68 65 73 29 0a 20 20 22 41 to-all.(&optional.switches)..."A
14800 70 70 6c 79 20 6c 69 73 74 69 6e 67 20 53 57 49 54 43 48 45 53 20 74 6f 20 63 75 72 72 65 6e 74 pply.listing.SWITCHES.to.current
14820 20 73 65 73 73 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 6c 65 .session."...(interactive)...(le
14840 74 2a 20 28 28 61 72 67 73 20 28 74 72 61 6e 73 69 65 6e 74 2d 61 72 67 73 20 74 72 61 6e 73 69 t*.((args.(transient-args.transi
14860 65 6e 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 ent-current-command))..........(
14880 73 77 69 74 63 68 65 73 20 28 6f 72 20 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e 67 2d 6a 6f switches.(or.switches.(string-jo
148a0 69 6e 20 28 61 70 70 65 6e 64 20 27 28 22 2d 6c 22 29 20 61 72 67 73 29 20 22 20 22 29 29 29 29 in.(append.'("-l").args)."."))))
148c0 0a 20 20 20 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 20 28 73 .....(when.current-prefix-arg.(s
148e0 65 74 71 20 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 20 73 77 69 74 63 etq.dired-listing-switches.switc
14900 68 65 73 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 6c 73 2d 73 77 69 74 63 68 65 73 20 hes)).....(setf.(dv-ls-switches.
14920 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 20 73 77 69 74 63 68 65 73 29 0a 20 20 20 20 28 64 (dirvish-curr)).switches).....(d
14940 6f 6c 69 73 74 20 28 62 75 66 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 2d 6e 6f 74 0a 20 20 20 olist.(buf.(cl-remove-if-not....
14960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 62 29 20 28 77 69 74 68 ...............(lambda.(b).(with
14980 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d -current-buffer.b.(derived-mode-
149a0 70 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 29 29 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 29 p.'dired-mode))).(buffer-list)))
149c0 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 62 75 66 0a .......(with-current-buffer.buf.
149e0 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 ........(setq.dired-actual-switc
14a00 68 65 73 20 73 77 69 74 63 68 65 73 29 0a 20 20 20 20 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 hes.switches).........(revert-bu
14a20 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 72 65 ffer)))))..(defun.dirvish-ls--re
14a40 73 65 74 2d 73 77 69 74 63 68 65 73 2d 66 6f 72 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 52 65 set-switches-for-buffer.()..."Re
14a60 73 65 74 20 6c 69 73 74 69 6e 67 20 73 77 69 74 63 68 65 73 20 66 6f 72 20 63 75 72 72 65 6e 74 set.listing.switches.for.current
14a80 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 64 69 72 .buffer."...(interactive)...(dir
14aa0 76 69 73 68 2d 6c 73 2d 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 2d 74 6f 2d 62 75 66 66 65 vish-ls--apply-switches-to-buffe
14ac0 72 20 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 29 29 0a 0a 28 64 65 66 r.dired-listing-switches))..(def
14ae0 75 6e 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 72 65 73 65 74 2d 73 77 69 74 63 68 65 73 2d 66 6f un.dirvish-ls--reset-switches-fo
14b00 72 2d 61 6c 6c 20 28 29 0a 20 20 22 52 65 73 65 74 20 6c 69 73 74 69 6e 67 20 73 77 69 74 63 68 r-all.()..."Reset.listing.switch
14b20 65 73 20 66 6f 72 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 es.for.current.buffer."...(inter
14b40 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d 6c 73 2d 2d 61 70 70 6c 79 2d 73 77 69 active)...(dirvish-ls--apply-swi
14b60 74 63 68 65 73 2d 74 6f 2d 61 6c 6c 20 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 tches-to-all.dired-listing-switc
14b80 68 65 73 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 69 6e 66 69 78 20 64 hes))..(transient-define-infix.d
14ba0 69 72 76 69 73 68 2d 6c 73 2d 2d 66 69 6c 74 65 72 2d 73 77 69 74 63 68 20 28 29 0a 20 20 3a 64 irvish-ls--filter-switch.()...:d
14bc0 65 73 63 72 69 70 74 69 6f 6e 20 22 73 68 6f 77 20 61 6c 6c 20 66 69 6c 65 73 22 0a 20 20 3a 63 escription."show.all.files"...:c
14be0 6c 61 73 73 20 27 74 72 61 6e 73 69 65 6e 74 2d 73 77 69 74 63 68 65 73 0a 20 20 3a 61 72 67 75 lass.'transient-switches...:argu
14c00 6d 65 6e 74 2d 66 6f 72 6d 61 74 20 22 2d 2d 25 73 22 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 72 ment-format."--%s"...:argument-r
14c20 65 67 65 78 70 20 22 5c 5c 28 2d 2d 5c 5c 28 61 6c 6c 5c 5c 7c 61 6c 6d 6f 73 74 2d 61 6c 6c 5c egexp."\\(--\\(all\\|almost-all\
14c40 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 6f 69 63 65 73 20 27 28 22 61 6c 6c 22 20 22 61 6c 6d 6f 73 \)\\)"...:choices.'("all"."almos
14c60 74 2d 61 6c 6c 22 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 69 6e 66 69 t-all"))..(transient-define-infi
14c80 78 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 73 6f 72 74 2d 73 77 69 74 63 68 20 28 29 0a 20 20 3a x.dirvish-ls--sort-switch.()...:
14ca0 64 65 73 63 72 69 70 74 69 6f 6e 20 22 73 6f 72 74 20 62 79 22 0a 20 20 3a 63 6c 61 73 73 20 27 description."sort.by"...:class.'
14cc0 74 72 61 6e 73 69 65 6e 74 2d 73 77 69 74 63 68 65 73 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 66 transient-switches...:argument-f
14ce0 6f 72 6d 61 74 20 22 2d 2d 73 6f 72 74 3d 25 73 22 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 72 65 ormat."--sort=%s"...:argument-re
14d00 67 65 78 70 20 22 5c 5c 28 2d 2d 73 6f 72 74 3d 5c 5c 28 74 69 6d 65 5c 5c 7c 6e 6f 6e 65 5c 5c gexp."\\(--sort=\\(time\\|none\\
14d20 7c 65 78 74 65 6e 73 69 6f 6e 5c 5c 7c 73 69 7a 65 5c 5c 7c 76 65 72 73 69 6f 6e 5c 5c 7c 77 69 |extension\\|size\\|version\\|wi
14d40 64 74 68 5c 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 6f 69 63 65 73 20 27 28 22 74 69 6d 65 22 20 22 dth\\)\\)"...:choices.'("time"."
14d60 6e 6f 6e 65 22 20 22 65 78 74 65 6e 73 69 6f 6e 22 20 22 73 69 7a 65 22 20 22 76 65 72 73 69 6f none"."extension"."size"."versio
14d80 6e 22 20 22 77 69 64 74 68 22 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d n"."width"))..(transient-define-
14da0 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 74 69 6d 65 2d 73 77 69 74 63 68 20 28 29 infix.dirvish-ls--time-switch.()
14dc0 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 73 68 6f 77 20 74 69 6d 65 20 61 73 20 7c 20 ...:description."show.time.as.|.
14de0 73 6f 72 74 20 66 69 6c 65 73 20 77 69 74 68 22 0a 20 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 sort.files.with"...:class.'trans
14e00 69 65 6e 74 2d 73 77 69 74 63 68 65 73 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 61 74 ient-switches...:argument-format
14e20 20 22 2d 2d 74 69 6d 65 3d 25 73 22 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 72 65 67 65 78 70 20 ."--time=%s"...:argument-regexp.
14e40 22 5c 5c 28 2d 2d 74 69 6d 65 3d 5c 5c 28 75 73 65 5c 5c 7c 62 69 72 74 68 5c 5c 7c 63 74 69 6d "\\(--time=\\(use\\|birth\\|ctim
14e60 65 5c 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 6f 69 63 65 73 20 27 28 22 75 73 65 22 20 22 62 69 72 e\\)\\)"...:choices.'("use"."bir
14e80 74 68 22 20 22 63 74 69 6d 65 22 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 th"."ctime"))..(transient-define
14ea0 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 74 69 6d 65 2d 73 74 79 6c 65 2d 73 77 -infix.dirvish-ls--time-style-sw
14ec0 69 74 63 68 20 28 29 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 74 69 6d 65 20 73 74 79 itch.()...:description."time.sty
14ee0 6c 65 22 0a 20 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 69 65 6e 74 2d 73 77 69 74 63 68 65 73 le"...:class.'transient-switches
14f00 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 61 74 20 22 2d 2d 74 69 6d 65 2d 73 74 79 6c ...:argument-format."--time-styl
14f20 65 3d 25 73 22 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 72 65 67 65 78 70 20 22 5c 5c 28 2d 2d 74 e=%s"...:argument-regexp."\\(--t
14f40 69 6d 65 2d 73 74 79 6c 65 3d 5c 5c 28 66 75 6c 6c 2d 69 73 6f 5c 5c 7c 6c 6f 6e 67 2d 69 73 6f ime-style=\\(full-iso\\|long-iso
14f60 5c 5c 7c 69 73 6f 5c 5c 7c 6c 6f 63 61 6c 65 5c 5c 7c 2b 5c 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 \\|iso\\|locale\\|+\\)\\)"...:ch
14f80 6f 69 63 65 73 20 27 28 22 66 75 6c 6c 2d 69 73 6f 22 20 22 6c 6f 6e 67 2d 69 73 6f 22 20 22 69 oices.'("full-iso"."long-iso"."i
14fa0 73 6f 22 20 22 6c 6f 63 61 6c 65 22 20 22 2b 22 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 so"."locale"."+"))..(transient-d
14fc0 65 66 69 6e 65 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 69 6e 64 69 63 61 74 6f efine-infix.dirvish-ls--indicato
14fe0 72 2d 73 74 79 6c 65 2d 73 77 69 74 63 68 20 28 29 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e r-style-switch.()...:description
15000 20 22 61 64 64 20 69 6e 64 69 63 61 74 6f 72 22 0a 20 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 ."add.indicator"...:class.'trans
15020 69 65 6e 74 2d 73 77 69 74 63 68 65 73 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 61 74 ient-switches...:argument-format
15040 20 22 2d 2d 69 6e 64 69 63 61 74 6f 72 2d 73 74 79 6c 65 3d 25 73 22 0a 20 20 3a 61 72 67 75 6d ."--indicator-style=%s"...:argum
15060 65 6e 74 2d 72 65 67 65 78 70 20 22 5c 5c 28 2d 2d 69 6e 64 69 63 61 74 6f 72 2d 73 74 79 6c 65 ent-regexp."\\(--indicator-style
15080 3d 5c 5c 28 73 6c 61 73 68 5c 5c 7c 66 69 6c 65 2d 74 79 70 65 5c 5c 7c 63 6c 61 73 73 69 66 79 =\\(slash\\|file-type\\|classify
150a0 5c 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 6f 69 63 65 73 20 27 28 22 73 6c 61 73 68 22 20 22 66 69 \\)\\)"...:choices.'("slash"."fi
150c0 6c 65 2d 74 79 70 65 22 20 22 63 6c 61 73 73 69 66 79 22 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 le-type"."classify"))..(defun.di
150e0 72 76 69 73 68 2d 6c 73 2d 2d 71 75 69 63 6b 73 6f 72 74 2d 64 6f 2d 73 6f 72 74 20 28 73 77 69 rvish-ls--quicksort-do-sort.(swi
15100 74 63 68 65 73 29 0a 20 20 22 53 6f 72 74 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 77 69 tches)..."Sort.current.buffer.wi
15120 74 68 20 44 69 72 65 64 20 73 6f 72 74 20 53 57 49 54 43 48 45 53 2e 22 0a 20 20 28 6c 65 74 2a th.Dired.sort.SWITCHES."...(let*
15140 20 28 28 72 65 67 65 78 70 20 22 5c 5c 28 2d 2d 74 69 6d 65 3d 5c 5c 77 2b 5c 5c 7c 2d 2d 73 6f .((regexp."\\(--time=\\w+\\|--so
15160 72 74 3d 5c 5c 77 2b 5c 5c 7c 2d 2d 72 65 76 65 72 73 65 5c 5c 29 5c 5c 28 20 5c 5c 29 3f 22 29 rt=\\w+\\|--reverse\\)\\(.\\)?")
15180 0a 20 20 20 20 20 20 20 20 20 28 6f 74 68 65 72 73 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 ..........(others.(replace-regex
151a0 70 2d 69 6e 2d 73 74 72 69 6e 67 20 72 65 67 65 78 70 20 22 22 20 64 69 72 65 64 2d 61 63 74 75 p-in-string.regexp."".dired-actu
151c0 61 6c 2d 73 77 69 74 63 68 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 73 77 69 74 al-switches))..........(new-swit
151e0 63 68 65 73 20 28 63 6f 6e 63 61 74 20 6f 74 68 65 72 73 20 22 20 22 20 73 77 69 74 63 68 65 73 ches.(concat.others.".".switches
15200 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 ))).....(setq.dired-actual-switc
15220 68 65 73 20 6e 65 77 2d 73 77 69 74 63 68 65 73 29 0a 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 hes.new-switches).....(revert-bu
15240 66 66 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 ffer)))..;;;###autoload.(autoloa
15260 64 20 27 64 69 72 76 69 73 68 2d 71 75 69 63 6b 73 6f 72 74 20 22 64 69 72 76 69 73 68 2d 6c 73 d.'dirvish-quicksort."dirvish-ls
15280 22 20 6e 69 6c 20 74 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6c 73 2d 71 ".nil.t).(defcustom.dirvish-ls-q
152a0 75 69 63 6b 73 6f 72 74 2d 6b 65 79 73 0a 20 20 27 28 28 22 6e 22 20 22 22 20 20 20 20 20 20 20 uicksort-keys...'(("n"."".......
152c0 20 20 20 20 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 6e 61 6d ............................"nam
152e0 65 20 28 61 2d 7a 29 22 29 0a 20 20 20 20 28 22 4e 22 20 22 2d 2d 72 65 76 65 72 73 65 22 20 20 e.(a-z)").....("N"."--reverse"..
15300 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 6e 61 6d 65 20 28 7a ........................"name.(z
15320 2d 61 29 22 29 0a 20 20 20 20 28 22 65 22 20 22 2d 2d 73 6f 72 74 3d 65 78 74 65 6e 73 69 6f 6e -a)").....("e"."--sort=extension
15340 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 65 78 74 65 6e 73 69 6f 6e 20 28 "..................."extension.(
15360 61 2d 7a 29 22 29 0a 20 20 20 20 28 22 45 22 20 22 2d 2d 73 6f 72 74 3d 65 78 74 65 6e 73 69 6f a-z)").....("E"."--sort=extensio
15380 6e 20 2d 2d 72 65 76 65 72 73 65 22 20 20 20 20 20 20 20 20 20 22 65 78 74 65 6e 73 69 6f 6e 20 n.--reverse"........."extension.
153a0 28 7a 2d 61 29 22 29 0a 20 20 20 20 28 22 73 22 20 22 2d 2d 73 6f 72 74 3d 73 69 7a 65 22 20 20 (z-a)").....("s"."--sort=size"..
153c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 69 7a 65 20 28 6c 61 72 ......................"size.(lar
153e0 67 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 53 22 20 22 2d 2d 73 6f 72 74 3d 73 gest.first)").....("S"."--sort=s
15400 69 7a 65 20 2d 2d 72 65 76 65 72 73 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 73 69 7a ize.--reverse".............."siz
15420 65 20 28 73 6d 61 6c 6c 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 76 22 20 22 2d e.(smallest.first)").....("v"."-
15440 2d 73 6f 72 74 3d 76 65 72 73 69 6f 6e 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -sort=version"..................
15460 20 20 20 22 76 65 72 73 69 6f 6e 20 6e 75 6d 62 65 72 20 28 65 61 72 6c 69 65 73 74 20 66 69 72 ..."version.number.(earliest.fir
15480 73 74 29 22 29 0a 20 20 20 20 28 22 56 22 20 22 2d 2d 73 6f 72 74 3d 76 65 72 73 69 6f 6e 20 2d st)").....("V"."--sort=version.-
154a0 2d 72 65 76 65 72 73 65 22 20 20 20 20 20 20 20 20 20 20 20 22 76 65 72 73 69 6f 6e 20 6e 75 6d -reverse"..........."version.num
154c0 62 65 72 20 28 6c 61 74 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 77 22 20 22 2d ber.(latest.first)").....("w"."-
154e0 2d 73 6f 72 74 3d 77 69 64 74 68 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -sort=width"....................
15500 20 20 20 22 77 69 64 74 68 20 28 73 68 6f 72 74 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 ..."width.(shortest.first)")....
15520 20 28 22 57 22 20 22 2d 2d 73 6f 72 74 3d 77 69 64 74 68 20 2d 2d 72 65 76 65 72 73 65 22 20 20 .("W"."--sort=width.--reverse"..
15540 20 20 20 20 20 20 20 20 20 20 20 22 77 69 64 74 68 20 28 6c 6f 6e 67 65 73 74 20 66 69 72 73 74 ..........."width.(longest.first
15560 29 22 29 0a 20 20 20 20 28 22 6d 22 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 22 20 20 20 20 20 20 )").....("m"."--sort=time"......
15580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 .................."modification.
155a0 74 69 6d 65 20 28 6e 65 77 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 4d 22 20 22 time.(newest.first)").....("M"."
155c0 2d 2d 73 6f 72 74 3d 74 69 6d 65 20 2d 2d 72 65 76 65 72 73 65 22 20 20 20 20 20 20 20 20 20 20 --sort=time.--reverse"..........
155e0 20 20 20 20 22 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 20 28 6f 6c 64 65 73 74 20 66 ...."modification.time.(oldest.f
15600 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 61 22 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 20 2d 2d irst)").....("a"."--sort=time.--
15620 74 69 6d 65 3d 75 73 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 22 61 63 63 65 73 73 20 74 69 time=use"............."access.ti
15640 6d 65 20 28 6e 65 77 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 41 22 20 22 2d 2d me.(newest.first)").....("A"."--
15660 73 6f 72 74 3d 74 69 6d 65 20 2d 2d 74 69 6d 65 3d 75 73 65 20 2d 2d 72 65 76 65 72 73 65 22 20 sort=time.--time=use.--reverse".
15680 20 20 22 61 63 63 65 73 73 20 74 69 6d 65 20 28 6f 6c 64 65 73 74 20 66 69 72 73 74 29 22 29 0a .."access.time.(oldest.first)").
156a0 20 20 20 20 28 22 62 22 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 20 2d 2d 74 69 6d 65 3d 62 69 72 ....("b"."--sort=time.--time=bir
156c0 74 68 22 20 20 20 20 20 20 20 20 20 20 20 22 62 69 72 74 68 20 74 69 6d 65 20 28 6e 65 77 65 73 th"..........."birth.time.(newes
156e0 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 42 22 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 t.first)").....("B"."--sort=time
15700 20 2d 2d 74 69 6d 65 3d 62 69 72 74 68 20 2d 2d 72 65 76 65 72 73 65 22 20 22 62 69 72 74 68 20 .--time=birth.--reverse"."birth.
15720 74 69 6d 65 20 28 6f 6c 64 65 73 74 20 66 69 72 73 74 29 22 29 0a 20 20 20 20 28 22 63 22 20 22 time.(oldest.first)").....("c"."
15740 2d 2d 73 6f 72 74 3d 74 69 6d 65 20 2d 2d 74 69 6d 65 3d 63 74 69 6d 65 22 20 20 20 20 20 20 20 --sort=time.--time=ctime".......
15760 20 20 20 20 22 63 68 61 6e 67 65 20 74 69 6d 65 20 28 6e 65 77 65 73 74 20 66 69 72 73 74 29 22 ...."change.time.(newest.first)"
15780 29 0a 20 20 20 20 28 22 43 22 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 20 2d 2d 74 69 6d 65 3d 63 ).....("C"."--sort=time.--time=c
157a0 74 69 6d 65 20 2d 2d 72 65 76 65 72 73 65 22 20 22 63 68 61 6e 67 65 20 74 69 6d 65 20 28 6f 6c time.--reverse"."change.time.(ol
157c0 64 65 73 74 20 66 69 72 73 74 29 22 29 29 0a 20 20 22 53 4f 52 54 2d 4b 45 59 73 20 66 6f 72 20 dest.first)"))..."SORT-KEYs.for.
157e0 63 6f 6d 6d 61 6e 64 20 60 64 69 72 76 69 73 68 2d 71 75 69 63 6b 73 6f 72 74 27 2e 0a 41 20 53 command.`dirvish-quicksort'..A.S
15800 4f 52 54 2d 4b 45 59 20 69 73 20 61 20 28 4b 45 59 20 53 57 49 54 43 48 45 53 20 44 4f 43 29 20 ORT-KEY.is.a.(KEY.SWITCHES.DOC).
15820 61 6c 69 73 74 20 77 68 65 72 65 20 4b 45 59 20 69 73 20 74 68 65 20 6b 65 79 20 74 6f 0a 69 6e alist.where.KEY.is.the.key.to.in
15840 76 6f 6b 65 20 74 68 65 20 73 6f 72 74 20 66 75 6e 63 74 69 6f 6e 2c 20 53 57 49 54 43 48 45 53 voke.the.sort.function,.SWITCHES
15860 20 69 73 20 74 68 65 20 74 68 65 20 73 6f 72 74 20 66 6c 61 67 73 20 66 6f 72 0a 60 64 69 72 65 .is.the.the.sort.flags.for.`dire
15880 64 2d 73 6f 72 74 2d 6f 74 68 65 72 27 2c 20 44 4f 43 20 69 73 20 74 68 65 20 64 6f 63 75 6d 65 d-sort-other',.DOC.is.the.docume
158a0 6e 74 61 74 69 6f 6e 20 73 74 72 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 ntation.string."...:group.'dirvi
158c0 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 0a 20 20 3a 73 65 74 0a 20 20 28 6c 61 6d 62 64 61 sh.:type.'alist...:set...(lambda
158e0 20 28 6b 20 76 29 0a 20 20 20 20 28 73 65 74 20 6b 20 76 29 0a 20 20 20 20 28 65 76 61 6c 0a 20 .(k.v).....(set.k.v).....(eval..
15900 20 20 20 20 60 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 ....`(transient-define-prefix.di
15920 72 76 69 73 68 2d 71 75 69 63 6b 73 6f 72 74 20 28 29 0a 20 20 20 20 20 20 20 20 22 53 6f 72 74 rvish-quicksort.()........."Sort
15940 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 20 62 79 20 64 69 66 66 65 72 65 6e 74 20 63 72 69 .Dirvish.buffer.by.different.cri
15960 74 65 72 69 61 2e 22 0a 20 20 20 20 20 20 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 teria.".........[:description...
15980 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d .......(lambda.().(dirvish--form
159a0 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 53 6f 72 74 20 62 79 3a 22 29 29 0a 20 20 20 at-menu-heading."Sort.by:"))....
159c0 20 20 20 20 20 20 2c 40 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 ......,@(cl-loop.............for
159e0 20 28 6b 65 79 20 73 77 69 74 63 68 65 73 20 64 65 73 63 29 20 69 6e 20 76 20 63 6f 6c 6c 65 63 .(key.switches.desc).in.v.collec
15a00 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 65 79 20 64 65 73 63 20 60 28 6c t.............(list.key.desc.`(l
15a20 61 6d 62 64 61 20 28 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 ambda.()........................
15a40 20 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 .......(interactive)............
15a60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6c 73 2d 2d ...................(dirvish-ls--
15a80 71 75 69 63 6b 73 6f 72 74 2d 64 6f 2d 73 6f 72 74 20 2c 73 77 69 74 63 68 65 73 29 29 29 29 5d quicksort-do-sort.,switches))))]
15aa0 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 ))))..;;;###autoload.(autoload.'
15ac0 64 69 72 76 69 73 68 2d 6c 73 2d 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 dirvish-ls-switches-menu."dirvis
15ae0 68 2d 6c 73 22 20 6e 69 6c 20 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 h-ls".nil.t).(transient-define-p
15b00 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 6c 73 2d 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 20 28 refix.dirvish-ls-switches-menu.(
15b20 29 0a 20 20 22 53 65 74 75 70 20 44 69 72 65 64 20 6c 69 73 74 69 6e 67 20 73 77 69 74 63 68 65 )..."Setup.Dired.listing.switche
15b40 73 2e 22 0a 20 20 3a 69 6e 69 74 2d 76 61 6c 75 65 0a 20 20 28 6c 61 6d 62 64 61 20 28 6f 29 20 s."...:init-value...(lambda.(o).
15b60 28 6f 73 65 74 20 6f 20 76 61 6c 75 65 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 6f 72 20 (oset.o.value.(split-string.(or.
15b80 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 68 65 73 20 22 22 29 29 29 29 0a 20 20 5b dired-actual-switches.""))))...[
15ba0 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 :description....(lambda.()......
15bc0 28 66 6f 72 6d 61 74 20 22 25 73 5c 6e 25 73 20 25 73 5c 6e 25 73 20 25 73 22 0a 20 20 20 20 20 (format."%s\n%s.%s\n%s.%s"......
15be0 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 53 65 74 75 70 20 4c 69 73 74 69 ........(propertize."Setup.Listi
15c00 6e 67 20 53 77 69 74 63 68 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ng.Switches"....................
15c20 20 20 20 20 20 20 27 66 61 63 65 20 27 28 3a 69 6e 68 65 72 69 74 20 64 69 72 65 64 2d 6d 61 72 ......'face.'(:inherit.dired-mar
15c40 6b 20 3a 75 6e 64 65 72 6c 69 6e 65 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 k.:underline.t).................
15c60 20 20 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 20 27 28 28 68 65 69 67 68 74 20 31 2e 32 29 .........'display.'((height.1.2)
15c80 29 29 0a 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 6c 6f 77 ))..............(propertize."low
15ca0 65 72 63 61 73 65 64 20 73 77 69 74 63 68 65 73 20 61 6c 73 6f 20 77 6f 72 6b 20 69 6e 22 20 27 ercased.switches.also.work.in".'
15cc0 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 0a 20 20 20 20 20 20 face.'font-lock-doc-face).......
15ce0 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 64 69 72 65 64 2d 68 69 64 65 2d 64 .......(propertize."dired-hide-d
15d00 65 74 61 69 6c 73 2d 6d 6f 64 65 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f etails-mode".'face.'font-lock-co
15d20 6e 73 74 61 6e 74 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 nstant-face)..............(prope
15d40 72 74 69 7a 65 20 22 43 2d 75 20 52 45 54 20 61 6e 64 20 43 2d 75 20 4d 2d 52 45 54 20 77 69 6c rtize."C-u.RET.and.C-u.M-RET.wil
15d60 6c 20 6d 6f 64 69 66 79 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 l.modify".'face.'font-lock-doc-f
15d80 61 63 65 29 0a 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 64 ace)..............(propertize."d
15da0 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 22 20 27 66 61 63 65 20 27 66 6f ired-listing-switches".'face.'fo
15dc0 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 29 29 0a 20 20 20 5b 22 6f 70 nt-lock-constant-face)))....["op
15de0 74 69 6f 6e 73 22 0a 20 20 20 20 28 22 61 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 66 69 6c 74 tions".....("a".dirvish-ls--filt
15e00 65 72 2d 73 77 69 74 63 68 29 0a 20 20 20 20 28 22 73 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d er-switch).....("s".dirvish-ls--
15e20 73 6f 72 74 2d 73 77 69 74 63 68 29 0a 20 20 20 20 28 22 69 22 20 64 69 72 76 69 73 68 2d 6c 73 sort-switch).....("i".dirvish-ls
15e40 2d 2d 69 6e 64 69 63 61 74 6f 72 2d 73 74 79 6c 65 2d 73 77 69 74 63 68 29 0a 20 20 20 20 28 22 --indicator-style-switch).....("
15e60 74 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 74 69 6d 65 2d 73 77 69 74 63 68 29 0a 20 20 20 20 t".dirvish-ls--time-switch).....
15e80 28 22 54 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 74 69 6d 65 2d 73 74 79 6c 65 2d 73 77 69 74 ("T".dirvish-ls--time-style-swit
15ea0 63 68 29 0a 20 20 20 20 28 22 42 22 20 22 53 63 61 6c 65 20 73 69 7a 65 73 20 77 68 65 6e 20 70 ch).....("B"."Scale.sizes.when.p
15ec0 72 69 6e 74 69 6e 67 2c 20 65 67 2e 20 31 30 4b 22 20 22 2d 2d 62 6c 6f 63 6b 2d 73 69 7a 65 3d rinting,.eg..10K"."--block-size=
15ee0 22 29 0a 20 20 20 20 22 22 0a 20 20 20 20 22 74 6f 67 67 6c 65 73 22 0a 20 20 20 20 28 22 72 22 ").....""....."toggles".....("r"
15f00 20 22 52 65 76 65 72 73 65 20 6f 72 64 65 72 20 77 68 69 6c 65 20 73 6f 72 74 69 6e 67 22 20 22 ."Reverse.order.while.sorting"."
15f20 2d 2d 72 65 76 65 72 73 65 22 29 0a 20 20 20 20 28 22 64 22 20 22 4c 69 73 74 20 64 69 72 65 63 --reverse").....("d"."List.direc
15f40 74 6f 72 69 65 73 20 6f 6e 74 6f 70 22 20 22 2d 2d 67 72 6f 75 70 2d 64 69 72 65 63 74 6f 72 69 tories.ontop"."--group-directori
15f60 65 73 2d 66 69 72 73 74 22 29 0a 20 20 20 20 28 22 7e 22 20 22 48 69 64 65 20 62 61 63 6b 75 70 es-first").....("~"."Hide.backup
15f80 73 20 66 69 6c 65 73 20 28 65 67 2e 20 66 6f 6f 7e 29 22 20 22 2d 2d 69 67 6e 6f 72 65 2d 62 61 s.files.(eg..foo~)"."--ignore-ba
15fa0 63 6b 75 70 73 22 29 0a 20 20 20 20 28 22 41 22 20 22 53 68 6f 77 20 74 68 65 20 61 75 74 68 6f ckups").....("A"."Show.the.autho
15fc0 72 22 20 22 2d 2d 61 75 74 68 6f 72 22 29 0a 20 20 20 20 28 22 43 22 20 22 53 68 6f 77 20 73 65 r"."--author").....("C"."Show.se
15fe0 63 75 72 69 74 79 20 63 6f 6e 74 65 78 74 22 20 22 2d 2d 63 6f 6e 74 65 78 74 22 29 0a 20 20 20 curity.context"."--context")....
16000 20 28 22 48 22 20 22 48 75 6d 61 6e 20 72 65 61 64 61 62 6c 65 20 66 69 6c 65 20 73 69 7a 65 22 .("H"."Human.readable.file.size"
16020 20 22 2d 2d 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 22 29 0a 20 20 20 20 28 22 47 22 20 22 48 ."--human-readable").....("G"."H
16040 69 64 65 20 67 72 6f 75 70 20 6e 61 6d 65 73 22 20 22 2d 2d 6e 6f 2d 67 72 6f 75 70 22 29 0a 20 ide.group.names"."--no-group")..
16060 20 20 20 28 22 4f 22 20 22 48 69 64 65 20 6f 77 6e 65 72 20 6e 61 6d 65 73 22 20 22 2d 67 22 29 ...("O"."Hide.owner.names"."-g")
16080 0a 20 20 20 20 28 22 4c 22 20 22 49 6e 66 6f 20 66 6f 72 20 6c 69 6e 6b 20 72 65 66 65 72 65 6e .....("L"."Info.for.link.referen
160a0 63 65 73 20 6f 72 20 6c 69 6e 6b 20 69 74 73 65 6c 66 22 20 22 2d 2d 64 65 72 65 66 65 72 65 6e ces.or.link.itself"."--dereferen
160c0 63 65 22 29 0a 20 20 20 20 28 22 4e 22 20 22 4e 75 6d 65 72 69 63 20 75 73 65 72 20 61 6e 64 20 ce").....("N"."Numeric.user.and.
160e0 67 72 6f 75 70 20 49 44 73 22 20 22 2d 2d 6e 75 6d 65 72 69 63 2d 75 69 64 2d 67 69 64 22 29 0a group.IDs"."--numeric-uid-gid").
16100 20 20 20 20 28 22 50 22 20 22 50 6f 77 65 72 73 20 6f 66 20 31 30 30 30 20 66 6f 72 20 66 69 6c ....("P"."Powers.of.1000.for.fil
16120 65 20 73 69 7a 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 31 30 32 34 22 20 22 2d 2d 73 69 22 29 e.size.rather.than.1024"."--si")
16140 0a 20 20 20 20 28 22 49 22 20 22 53 68 6f 77 20 69 6e 64 65 78 20 6e 75 6d 62 65 72 22 20 22 2d .....("I"."Show.index.number"."-
16160 2d 69 6e 6f 64 65 22 29 0a 20 20 20 20 28 22 53 22 20 22 53 68 6f 77 20 74 68 65 20 61 6c 6c 6f -inode").....("S"."Show.the.allo
16180 63 61 74 65 64 20 73 69 7a 65 22 20 22 2d 2d 73 69 7a 65 22 29 0a 20 20 20 20 22 22 0a 20 20 20 cated.size"."--size").....""....
161a0 20 22 41 63 74 69 6f 6e 73 22 0a 20 20 20 20 28 22 52 45 54 22 20 22 20 20 41 70 70 6c 79 20 74 ."Actions".....("RET"."..Apply.t
161c0 6f 20 74 68 69 73 20 62 75 66 66 65 72 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 61 70 70 6c 79 o.this.buffer".dirvish-ls--apply
161e0 2d 73 77 69 74 63 68 65 73 2d 74 6f 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 22 4d 2d 52 45 54 -switches-to-buffer).....("M-RET
16200 22 20 22 41 70 70 6c 79 20 74 6f 20 61 6c 6c 20 44 69 72 65 64 20 62 75 66 66 65 72 73 22 20 64 "."Apply.to.all.Dired.buffers".d
16220 69 72 76 69 73 68 2d 6c 73 2d 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 2d 74 6f 2d 61 6c 6c irvish-ls--apply-switches-to-all
16240 29 0a 20 20 20 20 28 22 43 2d 72 22 20 22 20 20 52 65 73 65 74 20 74 68 69 73 20 62 75 66 66 65 ).....("C-r"."..Reset.this.buffe
16260 72 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 72 65 73 65 74 2d 73 77 69 74 63 68 65 73 2d 66 6f r".dirvish-ls--reset-switches-fo
16280 72 2d 62 75 66 66 65 72 29 0a 20 20 20 20 28 22 4d 2d 72 22 20 22 20 20 52 65 73 65 74 20 61 6c r-buffer).....("M-r"."..Reset.al
162a0 6c 20 44 69 72 65 64 20 62 75 66 66 65 72 73 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 72 65 73 l.Dired.buffers".dirvish-ls--res
162c0 65 74 2d 73 77 69 74 63 68 65 73 2d 66 6f 72 2d 61 6c 6c 29 0a 20 20 20 20 28 22 43 2d 6c 22 20 et-switches-for-all).....("C-l".
162e0 22 20 20 43 6c 65 61 72 20 63 68 6f 69 63 65 73 22 20 64 69 72 76 69 73 68 2d 6c 73 2d 2d 63 6c "..Clear.choices".dirvish-ls--cl
16300 65 61 72 2d 73 77 69 74 63 68 65 73 2d 63 68 6f 69 63 65 73 20 3a 74 72 61 6e 73 69 65 6e 74 20 ear-switches-choices.:transient.
16320 74 29 5d 5d 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 6c 73 29 0a 3b 3b 3b t)]])..(provide.'dirvish-ls).;;;
16340 20 64 69 72 76 69 73 68 2d 6c 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 .dirvish-ls.el.ends.here........
16360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
163a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
163c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
163e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16400 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 63 6f dirvish-20230519.1500/dirvish-co
16420 6c 6c 61 70 73 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 llapse.el.......................
16440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16460 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
16480 30 30 30 35 34 36 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 32 35 34 00 20 30 00 00 00 0005461.00000000000.016254..0...
164a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
164c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
164e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16500 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...................
16520 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...................
16540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
165a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
165c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
165e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
16600 3b 3b 3b 20 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2e 65 6c 20 2d 2d 2d 20 43 6f 6c 6c ;;;.dirvish-collapse.el.---.Coll
16620 61 70 73 65 20 75 6e 69 71 75 65 20 6e 65 73 74 65 64 20 70 61 74 68 73 20 2d 2a 2d 20 6c 65 78 apse.unique.nested.paths.-*-.lex
16640 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 68 ical-binding:.t.-*-..;;.Copyrigh
16660 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f t.(C).2021-2022.Alex.Lu.;;.Autho
16680 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f r.:.Alex.Lu.<https://github.com/
166a0 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b alexluigit>.;;.Version:.2.0.53.;
166c0 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b ;.Keywords:.files,.convenience.;
166e0 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 ;.Homepage:.https://github.com/a
16700 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 lexluigit/dirvish.;;.SPDX-Licens
16720 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a e-Identifier:.GPL-3.0-or-later..
16740 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 50 72 6f 76 69 64 65 73 20 60 63 6f ;;;.Commentary:..;;.Provides.`co
16760 6c 6c 61 70 73 65 27 20 61 74 74 72 69 62 75 74 65 20 74 6f 20 72 65 76 65 61 6c 20 75 6e 69 71 llapse'.attribute.to.reveal.uniq
16780 75 65 20 6e 65 73 74 65 64 20 70 61 74 68 73 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 ue.nested.paths...;;;.Code:..(re
167a0 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 quire.'dirvish)..(defface.dirvis
167c0 68 2d 63 6f 6c 6c 61 70 73 65 2d 64 69 72 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 h-collapse-dir-face...'((t.(:inh
167e0 65 72 69 74 20 64 69 72 65 64 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 22 46 61 63 65 20 erit.dired-directory)))..."Face.
16800 75 73 65 64 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 60 63 6f 6c 6c 61 70 73 used.for.directories.in.`collaps
16820 65 27 20 61 74 74 72 69 62 75 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 e'.attribute."...:group.'dirvish
16840 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2d 65 6d 70 )..(defface.dirvish-collapse-emp
16860 74 79 2d 64 69 72 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 73 68 61 ty-dir-face...'((t.(:inherit.sha
16880 64 6f 77 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 65 6d 70 74 79 20 64 69 dow)))..."Face.used.for.empty.di
168a0 72 65 63 74 6f 72 69 65 73 20 69 6e 20 60 63 6f 6c 6c 61 70 73 65 27 20 61 74 74 72 69 62 75 74 rectories.in.`collapse'.attribut
168c0 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 e."...:group.'dirvish)..(defface
168e0 20 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2d 66 69 6c 65 2d 66 61 63 65 0a 20 20 27 28 .dirvish-collapse-file-face...'(
16900 28 74 20 28 3a 69 6e 68 65 72 69 74 20 64 65 66 61 75 6c 74 29 29 29 0a 20 20 22 46 61 63 65 20 (t.(:inherit.default)))..."Face.
16920 75 73 65 64 20 66 6f 72 20 66 69 6c 65 73 20 69 6e 20 60 63 6f 6c 6c 61 70 73 65 27 20 61 74 74 used.for.files.in.`collapse'.att
16940 72 69 62 75 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 ribute."...:group.'dirvish)..(de
16960 66 75 6e 20 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2d 2d 63 61 63 68 65 20 28 66 2d 6e fun.dirvish-collapse--cache.(f-n
16980 61 6d 65 29 0a 20 20 22 43 61 63 68 65 20 63 6f 6c 6c 61 70 73 65 20 73 74 61 74 65 20 66 6f 72 ame)..."Cache.collapse.state.for
169a0 20 66 69 6c 65 20 46 2d 4e 41 4d 45 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 .file.F-NAME."...(dirvish-attrib
169c0 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 6d 65 20 3a 63 6f 6c 6c 61 70 73 65 0a 20 20 20 20 28 ute-cache.f-name.:collapse.....(
169e0 6c 65 74 20 28 28 70 61 74 68 20 66 2d 6e 61 6d 65 29 20 73 68 6f 75 6c 64 2d 63 6f 6c 6c 61 70 let.((path.f-name).should-collap
16a00 73 65 20 66 69 6c 65 73 20 64 69 72 70 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 se.files.dirp).......(while.(and
16a20 20 28 73 65 74 71 20 64 69 72 70 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 70 61 .(setq.dirp.(file-directory-p.pa
16a40 74 68 29 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 th))...................(setq.fil
16a60 65 73 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c es.(ignore-errors.(directory-fil
16a80 65 73 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 es.path)))...................(=.
16aa0 33 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3.(length.files))...............
16ac0 20 20 20 20 3b 3b 20 44 6f 6e 27 74 20 63 6f 6c 6c 61 70 73 65 20 22 2e 22 20 61 6e 64 20 22 2e ....;;.Don't.collapse.".".and.".
16ae0 2e 22 0a 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 73 ."...................(not.(or.(s
16b00 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2e 2e 22 20 70 61 74 68 29 0a 20 20 20 20 20 20 tring-suffix-p."..".path).......
16b20 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 2d 73 75 66 .....................(string-suf
16b40 66 69 78 2d 70 20 22 2f 2e 22 20 70 61 74 68 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 fix-p."/.".path)))).........(set
16b60 71 20 73 68 6f 75 6c 64 2d 63 6f 6c 6c 61 70 73 65 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 q.should-collapse.t.............
16b80 20 20 70 61 74 68 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 ..path.(expand-file-name........
16ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 72 20 28 72 65 6d 6f 76 65 20 22 2e 22 20 28 72 .............(car.(remove.".".(r
16bc0 65 6d 6f 76 65 20 22 2e 2e 22 20 66 69 6c 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 emove."..".files))).............
16be0 20 20 20 20 20 20 20 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 ........path))).......(cond.....
16c00 20 20 20 28 28 61 6e 64 20 28 65 71 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 73 29 20 32 29 20 28 ...((and.(eq.(length.files).2).(
16c20 6e 6f 74 20 73 68 6f 75 6c 64 2d 63 6f 6c 6c 61 70 73 65 29 29 20 28 63 6f 6e 73 20 27 65 6d 70 not.should-collapse)).(cons.'emp
16c40 74 79 20 74 29 29 0a 20 20 20 20 20 20 20 28 73 68 6f 75 6c 64 2d 63 6f 6c 6c 61 70 73 65 0a 20 ty.t))........(should-collapse..
16c60 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 20 28 73 75 62 73 74 72 69 6e 67 20 70 .......(let*.((path.(substring.p
16c80 61 74 68 20 28 31 2b 20 28 6c 65 6e 67 74 68 20 66 2d 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 20 ath.(1+.(length.f-name))))......
16ca0 20 20 20 20 20 20 20 20 20 20 28 73 65 67 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 70 61 ..........(segs.(split-string.pa
16cc0 74 68 20 22 2f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 20 28 66 th."/"))................(head.(f
16ce0 6f 72 6d 61 74 20 22 7c 25 73 7c 22 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 ormat."|%s|".(mapconcat.#'concat
16d00 20 28 62 75 74 6c 61 73 74 20 73 65 67 73 29 20 22 7c 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 .(butlast.segs)."|")))..........
16d20 20 20 20 20 20 20 28 74 61 69 6c 20 28 63 61 72 20 28 6c 61 73 74 20 73 65 67 73 29 29 29 0a 20 ......(tail.(car.(last.segs)))..
16d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c 2d 66 61 63 65 0a 20 20 20 20 20 20 20 ..............(tail-face........
16d60 20 20 20 20 20 20 20 20 20 28 69 66 20 64 69 72 70 20 27 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 .........(if.dirp.'dirvish-colla
16d80 70 73 65 2d 64 69 72 2d 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2d 66 pse-dir-face.'dirvish-collapse-f
16da0 69 6c 65 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 75 61 ile-face)))...........(and.(equa
16dc0 6c 20 68 65 61 64 20 22 7c 7c 22 29 20 28 73 65 74 71 20 68 65 61 64 20 22 7c 22 29 29 0a 20 20 l.head."||").(setq.head."|"))...
16de0 20 20 20 20 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 ........(add-face-text-property.
16e00 30 20 28 6c 65 6e 67 74 68 20 68 65 61 64 29 20 27 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 0.(length.head).'dirvish-collaps
16e20 65 2d 64 69 72 2d 66 61 63 65 20 6e 69 6c 20 68 65 61 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 e-dir-face.nil.head)...........(
16e40 61 64 64 2d 66 61 63 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 add-face-text-property.0.(length
16e60 20 74 61 69 6c 29 20 74 61 69 6c 2d 66 61 63 65 20 6e 69 6c 20 74 61 69 6c 29 0a 20 20 20 20 20 .tail).tail-face.nil.tail)......
16e80 20 20 20 20 20 28 63 6f 6e 73 20 68 65 61 64 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 28 .....(cons.head.tail)))........(
16ea0 74 20 28 63 6f 6e 73 20 6e 69 6c 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d t.(cons.nil.nil))))))..(dirvish-
16ec0 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 63 6f 6c 6c 61 70 73 65 0a 20 20 22 43 6f 6c define-attribute.collapse..."Col
16ee0 6c 61 70 73 65 20 75 6e 69 71 75 65 20 6e 65 73 74 65 64 20 70 61 74 68 73 2e 22 0a 20 20 3a 77 lapse.unique.nested.paths."...:w
16f00 68 65 6e 20 28 61 6e 64 20 28 6e 6f 74 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d hen.(and.(not.(dirvish-prop.:fd-
16f20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 64 69 72 arglist))..............(not.(dir
16f40 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 29 0a 20 20 28 77 68 65 6e 2d 6c 65 74 vish-prop.:remote)))...(when-let
16f60 2a 20 28 28 63 61 63 68 65 20 28 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 2d 2d 63 61 63 *.((cache.(dirvish-collapse--cac
16f80 68 65 20 66 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 68 65 61 64 20 he.f-name))...............(head.
16fa0 28 63 61 72 20 63 61 63 68 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 61 69 6c (car.cache))...............(tail
16fc0 20 28 63 64 72 20 63 61 63 68 65 29 29 29 0a 20 20 20 20 28 69 66 20 28 65 71 20 68 65 61 64 20 .(cdr.cache))).....(if.(eq.head.
16fe0 27 65 6d 70 74 79 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 76 20 28 6d 61 6b 65 2d 'empty).........(let.((ov.(make-
17000 6f 76 65 72 6c 61 79 20 66 2d 62 65 67 20 66 2d 65 6e 64 29 29 29 0a 20 20 20 20 20 20 20 20 20 overlay.f-beg.f-end)))..........
17020 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d .(overlay-put.ov.'face.'dirvish-
17040 63 6f 6c 6c 61 70 73 65 2d 65 6d 70 74 79 2d 64 69 72 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 collapse-empty-dir-face)........
17060 20 20 20 60 28 6f 76 20 2e 20 2c 6f 76 29 29 0a 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 73 74 ...`(ov...,ov)).......(let*.((st
17080 72 20 28 63 6f 6e 63 61 74 20 68 65 61 64 20 74 61 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 r.(concat.head.tail))).........(
170a0 61 64 64 2d 66 61 63 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 add-face-text-property.0.(length
170c0 20 73 74 72 29 20 68 6c 2d 66 61 63 65 20 6e 69 6c 20 73 74 72 29 0a 20 20 20 20 20 20 20 20 60 .str).hl-face.nil.str).........`
170e0 28 6c 65 66 74 20 2e 20 2c 73 74 72 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 (left...,str)))))..(provide.'dir
17100 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 vish-collapse).;;;.dirvish-colla
17120 70 73 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 pse.el.ends.here................
17140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
171a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
171c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
171e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17200 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 73 75 dirvish-20230519.1500/dirvish-su
17220 62 74 72 65 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 btree.el........................
17240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17260 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
17280 30 30 34 31 32 37 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 32 32 00 20 30 00 00 00 0041271.00000000000.016122..0...
172a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
172c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
172e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17300 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...................
17320 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...................
17340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
173a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
173c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
173e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
17400 3b 3b 3b 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2e 65 6c 20 2d 2d 2d 20 54 75 72 6e 20 ;;;.dirvish-subtree.el.---.Turn.
17420 44 69 72 76 69 73 68 20 69 6e 74 6f 20 61 20 74 72 65 65 20 62 72 6f 77 73 65 72 20 2d 2a 2d 20 Dirvish.into.a.tree.browser.-*-.
17440 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 lexical-binding:.t.-*-..;;.Copyr
17460 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 ight.(C).2021-2022.Alex.Lu.;;.Au
17480 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 thor.:.Alex.Lu.<https://github.c
174a0 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 om/alexluigit>.;;.Version:.2.0.5
174c0 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 3.;;.Keywords:.files,.convenienc
174e0 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f e.;;.Homepage:.https://github.co
17500 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 m/alexluigit/dirvish.;;.SPDX-Lic
17520 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 ense-Identifier:.GPL-3.0-or-late
17540 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 68 69 73 20 65 78 74 65 r..;;;.Commentary:..;;.This.exte
17560 6e 73 69 6f 6e 20 61 6c 6c 6f 77 73 20 75 73 65 72 73 20 74 6f 20 69 6e 73 65 72 74 20 73 75 62 nsion.allows.users.to.insert.sub
17580 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 61 20 74 72 65 65 2d 6c 69 6b 65 20 66 61 73 68 69 directories.in.a.tree-like.fashi
175a0 6f 6e 2c 0a 3b 3b 20 6c 69 6b 65 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 27 20 6f 72 20 60 on,.;;.like.`dired-subtree'.or.`
175c0 74 72 65 65 6d 61 63 73 27 2c 20 62 75 74 20 73 69 6d 70 6c 65 72 20 61 6e 64 20 66 61 73 74 65 treemacs',.but.simpler.and.faste
175e0 72 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e r...;;;.Code:..(declare-function
17600 20 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 6f 63 74 69 63 6f 6e 20 22 61 6c 6c 2d 74 68 65 2d .all-the-icons-octicon."all-the-
17620 69 63 6f 6e 73 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 65 72 64 2d 69 icons").(declare-function.nerd-i
17640 63 6f 6e 73 2d 6f 63 74 69 63 6f 6e 20 22 6e 65 72 64 2d 69 63 6f 6e 73 22 29 0a 28 64 65 63 6c cons-octicon."nerd-icons").(decl
17660 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 75 6c 74 2d 6c 73 70 2d 66 69 6c 65 2d 73 79 are-function.consult-lsp-file-sy
17680 6d 62 6f 6c 73 20 22 63 6f 6e 73 75 6c 74 2d 6c 73 70 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 mbols."consult-lsp").(declare-fu
176a0 6e 63 74 69 6f 6e 20 63 6f 6e 73 75 6c 74 2d 69 6d 65 6e 75 20 22 63 6f 6e 73 75 6c 74 2d 69 6d nction.consult-imenu."consult-im
176c0 65 6e 75 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 75 6c 74 2d enu").(declare-function.consult-
176e0 6c 69 6e 65 20 22 63 6f 6e 73 75 6c 74 22 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 line."consult").(require.'dirvis
17700 68 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 6c h)..(defcustom.dirvish-subtree-l
17720 69 73 74 69 6e 67 2d 73 77 69 74 63 68 65 73 20 6e 69 6c 0a 20 20 22 4c 69 73 74 69 6e 67 20 53 isting-switches.nil..."Listing.S
17740 57 49 54 43 48 45 53 20 75 73 65 64 20 69 6e 20 73 75 62 74 72 65 65 73 2e 0a 54 68 65 20 76 61 WITCHES.used.in.subtrees..The.va
17760 6c 75 65 20 6d 61 79 20 62 65 20 61 20 73 74 72 69 6e 67 20 6f 66 20 6f 70 74 69 6f 6e 73 20 6f lue.may.be.a.string.of.options.o
17780 72 20 6e 69 6c 20 77 68 69 63 68 20 6d 65 61 6e 73 20 74 68 65 0a 77 6f 72 6b 69 6e 67 20 73 77 r.nil.which.means.the.working.sw
177a0 69 74 63 68 65 73 20 6f 66 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 20 77 69 6c 6c 20 62 65 itches.of.current.buffer.will.be
177c0 20 75 73 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 73 79 6d 62 6f 6c 20 .used."...:type.'(choice.symbol.
177e0 73 74 72 69 6e 67 29 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 69 6e string).:group.'dirvish)..(defin
17800 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 64 69 72 76 69 e-obsolete-variable-alias.'dirvi
17820 73 68 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 27 64 69 72 76 69 73 68 2d sh-subtree-line-prefix.'dirvish-
17840 73 75 62 74 72 65 65 2d 70 72 65 66 69 78 20 22 53 65 70 20 31 2c 20 32 30 32 32 22 29 0a 28 64 subtree-prefix."Sep.1,.2022").(d
17860 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 70 72 65 66 69 78 20 efcustom.dirvish-subtree-prefix.
17880 22 20 e2 94 82 22 0a 20 20 22 41 20 73 74 72 69 6e 67 20 70 75 74 20 69 6e 74 6f 20 65 61 63 68 "...."..."A.string.put.into.each
178a0 20 6e 65 73 74 65 64 20 73 75 62 74 72 65 65 2e 0a 54 68 65 20 70 72 65 66 69 78 20 69 73 20 72 .nested.subtree..The.prefix.is.r
178c0 65 70 65 61 74 65 64 20 5c 22 64 65 70 74 68 5c 22 20 74 69 6d 65 73 2e 22 0a 20 20 3a 74 79 70 epeated.\"depth\".times."...:typ
178e0 65 20 27 73 74 72 69 6e 67 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 e.'string.:group.'dirvish)..(def
17900 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 61 76 65 2d 6f 6e 2d 72 custom.dirvish-subtree-save-on-r
17920 65 76 65 72 74 20 74 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 60 72 65 76 65 72 74 evert.t..."Non-nil.means.`revert
17940 2d 62 75 66 66 65 72 27 20 6b 65 65 70 73 20 61 6c 6c 20 65 78 70 61 6e 64 65 64 20 73 75 62 74 -buffer'.keeps.all.expanded.subt
17960 72 65 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 20 3a 67 72 6f 75 70 20 27 rees."...:type.'boolean.:group.'
17980 64 69 72 76 69 73 68 0a 20 20 3a 73 65 74 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 0a 20 20 20 dirvish...:set.(lambda.(k.v)....
179a0 20 20 20 20 20 20 28 73 65 74 20 6b 20 76 29 0a 20 20 20 20 20 20 20 20 20 28 69 66 20 76 20 28 ......(set.k.v)..........(if.v.(
179c0 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 76 69 73 68 2d 61 66 74 65 72 2d 72 65 76 65 72 74 2d 68 add-hook.'dirvish-after-revert-h
179e0 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 72 65 76 65 72 74 29 0a 20 ook.#'dirvish-subtree--revert)..
17a00 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 64 69 72 76 69 73 68 2d ..........(remove-hook.'dirvish-
17a20 61 66 74 65 72 2d 72 65 76 65 72 74 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 73 75 62 74 after-revert-hook.#'dirvish-subt
17a40 72 65 65 2d 2d 72 65 76 65 72 74 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 ree--revert))))..(defcustom.dirv
17a60 69 73 68 2d 73 75 62 74 72 65 65 2d 61 6c 77 61 79 73 2d 73 68 6f 77 2d 73 74 61 74 65 20 6e 69 ish-subtree-always-show-state.ni
17a80 6c 0a 20 20 22 4e 6f 6e 2d 6e 69 6c 20 6d 65 61 6e 73 20 61 6c 77 61 79 73 20 73 68 6f 77 20 74 l..."Non-nil.means.always.show.t
17aa0 68 65 20 73 75 62 74 72 65 65 20 73 74 61 74 65 20 69 6e 64 69 63 61 74 6f 72 2e 22 0a 20 20 3a he.subtree.state.indicator."...:
17ac0 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a type.'boolean.:group.'dirvish)..
17ae0 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 73 74 61 74 65 2d 69 (defvar.dirvish-subtree--state-i
17b00 63 6f 6e 73 20 6e 69 6c 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 75 62 cons.nil).(defcustom.dirvish-sub
17b20 74 72 65 65 2d 73 74 61 74 65 2d 73 74 79 6c 65 20 27 63 68 65 76 72 6f 6e 0a 20 20 22 49 63 6f tree-state-style.'chevron..."Ico
17b40 6e 2f 73 74 72 69 6e 67 20 75 73 65 64 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 20 65 78 70 61 n/string.used.for.directory.expa
17b60 6e 64 65 64 20 73 74 61 74 65 2e 0a 54 68 65 20 76 61 6c 75 65 20 63 61 6e 20 62 65 20 6f 6e 65 nded.state..The.value.can.be.one
17b80 20 6f 66 3a 20 60 70 6c 75 73 27 2c 20 60 61 72 72 6f 77 27 2c 20 60 63 68 65 76 72 6f 6e 27 2c .of:.`plus',.`arrow',.`chevron',
17ba0 20 60 6e 65 72 64 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 .`nerd'."...:group.'dirvish.:typ
17bc0 65 20 27 73 79 6d 62 6f 6c 0a 20 20 3a 73 65 74 0a 20 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 e.'symbol...:set...(lambda.(k.v)
17be0 0a 20 20 20 20 28 61 6e 64 20 28 65 71 20 76 20 27 63 68 65 76 72 6f 6e 29 20 28 6e 6f 74 20 28 .....(and.(eq.v.'chevron).(not.(
17c00 72 65 71 75 69 72 65 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 6e 69 6c 20 74 29 29 20 28 require.'all-the-icons.nil.t)).(
17c20 73 65 74 71 20 76 20 27 61 72 72 6f 77 29 29 0a 20 20 20 20 28 61 6e 64 20 28 65 71 20 76 20 27 setq.v.'arrow)).....(and.(eq.v.'
17c40 6e 65 72 64 29 20 28 6e 6f 74 20 28 72 65 71 75 69 72 65 20 27 6e 65 72 64 2d 69 63 6f 6e 73 20 nerd).(not.(require.'nerd-icons.
17c60 6e 69 6c 20 74 29 29 20 28 73 65 74 71 20 76 20 27 61 72 72 6f 77 29 29 0a 20 20 20 20 28 73 65 nil.t)).(setq.v.'arrow)).....(se
17c80 74 20 6b 20 76 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 t.k.v).....(setq.dirvish-subtree
17ca0 2d 2d 73 74 61 74 65 2d 69 63 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 28 70 63 61 73 65 20 28 --state-icons...........(pcase.(
17cc0 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 27 70 6c symbol-value.k).............('pl
17ce0 75 73 20 28 63 6f 6e 73 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 2d 22 20 27 66 61 63 65 20 27 us.(cons.(propertize."-".'face.'
17d00 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 dirvish-subtree-state)..........
17d20 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 2b 22 20 ................(propertize."+".
17d40 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 29 29 29 0a 'face.'dirvish-subtree-state))).
17d60 20 20 20 20 20 20 20 20 20 20 20 20 28 27 61 72 72 6f 77 20 28 63 6f 6e 73 20 28 70 72 6f 70 65 ............('arrow.(cons.(prope
17d80 72 74 69 7a 65 20 22 e2 96 be 22 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 rtize."...".'face.'dirvish-subtr
17da0 65 65 2d 73 74 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 ee-state).......................
17dc0 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 e2 96 b8 22 20 27 66 61 63 65 20 27 64 69 72 ....(propertize."...".'face.'dir
17de0 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 vish-subtree-state)))...........
17e00 20 20 28 27 6e 65 72 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 0a 20 20 20 20 ..('nerd..............(cons.....
17e20 20 20 20 20 20 20 20 20 20 20 28 6e 65 72 64 2d 69 63 6f 6e 73 2d 6f 63 74 69 63 6f 6e 0a 20 20 ..........(nerd-icons-octicon...
17e40 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6e 66 2d 6f 63 74 2d 63 68 65 76 72 6f 6e 5f 64 6f 77 ............."nf-oct-chevron_dow
17e60 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 65 69 67 68 74 20 28 2a 20 28 6f 72 n"................:height.(*.(or
17e80 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d .(bound-and-true-p.dirvish-nerd-
17ea0 69 63 6f 6e 73 2d 68 65 69 67 68 74 29 20 31 29 20 30 2e 38 29 0a 20 20 20 20 20 20 20 20 20 20 icons-height).1).0.8)...........
17ec0 20 20 20 20 20 3a 76 2d 61 64 6a 75 73 74 20 30 2e 31 20 3a 66 61 63 65 20 27 64 69 72 76 69 73 .....:v-adjust.0.1.:face.'dirvis
17ee0 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 h-subtree-state)...............(
17f00 6e 65 72 64 2d 69 63 6f 6e 73 2d 6f 63 74 69 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 nerd-icons-octicon..............
17f20 20 20 22 6e 66 2d 6f 63 74 2d 63 68 65 76 72 6f 6e 5f 72 69 67 68 74 22 0a 20 20 20 20 20 20 20 .."nf-oct-chevron_right"........
17f40 20 20 20 20 20 20 20 20 3a 68 65 69 67 68 74 20 28 2a 20 28 6f 72 20 28 62 6f 75 6e 64 2d 61 6e ........:height.(*.(or.(bound-an
17f60 64 2d 74 72 75 65 2d 70 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 2d 68 65 69 67 d-true-p.dirvish-nerd-icons-heig
17f80 68 74 29 20 31 29 20 30 2e 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 2d 61 64 ht).1).0.8)................:v-ad
17fa0 6a 75 73 74 20 30 2e 31 20 3a 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d just.0.1.:face.'dirvish-subtree-
17fc0 73 74 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 27 63 68 65 76 72 6f 6e 0a 20 state))).............('chevron..
17fe0 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 20 20 ............(cons...............
18000 28 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 6f 63 74 69 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 (all-the-icons-octicon..........
18020 20 20 20 20 20 20 22 63 68 65 76 72 6f 6e 2d 64 6f 77 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 ......"chevron-down"............
18040 20 20 20 20 3a 68 65 69 67 68 74 20 28 2a 20 28 6f 72 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 ....:height.(*.(or.(bound-and-tr
18060 75 65 2d 70 20 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 68 65 69 67 68 ue-p.dirvish-all-the-icons-heigh
18080 74 29 20 31 29 20 30 2e 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 2d 61 64 6a t).1).0.8)................:v-adj
180a0 75 73 74 20 30 2e 31 20 3a 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 ust.0.1.:face.'dirvish-subtree-s
180c0 74 61 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 6c 2d 74 68 65 2d 69 63 6f tate)...............(all-the-ico
180e0 6e 73 2d 6f 63 74 69 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 63 68 65 76 72 ns-octicon................"chevr
18100 6f 6e 2d 72 69 67 68 74 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 68 65 69 67 68 74 on-right"................:height
18120 20 28 2a 20 28 6f 72 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 76 69 73 .(*.(or.(bound-and-true-p.dirvis
18140 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 68 65 69 67 68 74 29 20 31 29 20 30 2e 38 29 0a h-all-the-icons-height).1).0.8).
18160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 76 2d 61 64 6a 75 73 74 20 30 2e 31 20 3a 66 61 ...............:v-adjust.0.1.:fa
18180 63 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 29 29 29 29 29 29 29 ce.'dirvish-subtree-state)))))))
181a0 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 66 69 6c ..(defcustom.dirvish-subtree-fil
181c0 65 2d 76 69 65 77 65 72 20 23 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 64 65 66 61 75 e-viewer.#'dirvish-subtree-defau
181e0 6c 74 2d 66 69 6c 65 2d 76 69 65 77 65 72 0a 20 20 22 54 68 65 20 66 75 6e 63 74 69 6f 6e 20 75 lt-file-viewer..."The.function.u
18200 73 65 64 20 74 6f 20 76 69 65 77 20 61 20 66 69 6c 65 20 6e 6f 64 65 2e 0a 41 66 74 65 72 20 65 sed.to.view.a.file.node..After.e
18220 78 65 63 75 74 69 6e 67 20 60 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 xecuting.`dirvish-subtree-toggle
18240 27 20 6f 6e 20 61 20 66 69 6c 65 20 6e 6f 64 65 2c 20 74 68 65 0a 6e 65 77 6c 79 20 6f 70 65 6e '.on.a.file.node,.the.newly.open
18260 65 64 20 66 69 6c 65 20 62 75 66 66 65 72 20 69 73 20 70 75 74 20 69 6e 20 65 69 74 68 65 72 20 ed.file.buffer.is.put.in.either.
18280 74 68 65 20 73 65 73 73 69 6f 6e 20 70 72 65 76 69 65 77 0a 77 69 6e 64 6f 77 20 6f 72 20 77 68 the.session.preview.window.or.wh
182a0 61 74 65 76 65 72 20 72 65 74 75 72 6e 65 64 20 62 79 20 60 6e 65 78 74 2d 77 69 6e 64 6f 77 27 atever.returned.by.`next-window'
182c0 2e 20 20 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 0a 63 61 6c 6c 65 64 20 69 6e 20 74 68 ...This.function.is.called.in.th
182e0 65 20 6f 70 65 6e 65 64 20 66 69 6c 65 20 62 75 66 66 65 72 20 77 69 74 68 20 74 68 65 20 6f 72 e.opened.file.buffer.with.the.or
18300 69 67 69 6e 61 6c 20 62 75 66 66 65 72 20 6f 66 20 74 68 65 0a 77 69 6e 64 6f 77 20 61 73 20 69 iginal.buffer.of.the.window.as.i
18320 74 73 20 73 6f 6c 65 20 61 72 67 75 6d 65 6e 74 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 ts.sole.argument."...:type.'func
18340 74 69 6f 6e 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 tion.:group.'dirvish)..(defface.
18360 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 73 74 61 74 65 0a 20 20 27 28 28 74 20 28 3a 69 dirvish-subtree-state...'((t.(:i
18380 6e 68 65 72 69 74 20 64 69 72 65 64 2d 69 67 6e 6f 72 65 64 20 3a 75 6e 64 65 72 6c 69 6e 65 20 nherit.dired-ignored.:underline.
183a0 6e 69 6c 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 75 6e 73 70 65 63 69 66 69 65 64 29 29 29 0a 20 nil.:background.unspecified)))..
183c0 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 60 65 78 70 61 6e 64 65 64 2d 73 74 61 74 65 27 ."Face.used.for.`expanded-state'
183e0 20 61 74 74 72 69 62 75 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a .attribute."...:group.'dirvish).
18400 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 67 75 69 64 65 0a .(defface.dirvish-subtree-guide.
18420 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 64 69 72 65 64 2d 69 67 6e 6f 72 65 64 20 3a ..'((t.(:inherit.dired-ignored.:
18440 75 6e 64 65 72 6c 69 6e 65 20 6e 69 6c 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 75 6e 73 70 65 63 underline.nil.:background.unspec
18460 69 66 69 65 64 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 60 65 78 70 61 6e ified)))..."Face.used.for.`expan
18480 64 65 64 2d 73 74 61 74 65 27 20 61 74 74 72 69 62 75 74 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 ded-state'.attribute."...:group.
184a0 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 'dirvish)..(defvar-local.dirvish
184c0 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 20 22 53 75 62 74 72 65 65 20 -subtree--overlays.nil."Subtree.
184e0 6f 76 65 72 6c 61 79 73 20 69 6e 20 74 68 69 73 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 63 6c 2d overlays.in.this.buffer.")..(cl-
18500 6c 6f 6f 70 0a 20 66 6f 72 20 28 73 79 6d 20 61 64 20 68 6f 77 29 20 69 6e 20 27 28 28 64 69 72 loop..for.(sym.ad.how).in.'((dir
18520 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 76 69 73 68 2d 63 75 72 ed-current-directory.dirvish-cur
18540 72 2d 64 69 72 2d 61 20 3a 61 72 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r-dir-a.:around)................
18560 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d 69 6e 64 65 78 20 64 69 72 76 ........(dired-subdir-index.dirv
18580 69 73 68 2d 73 75 62 64 69 72 2d 69 6e 64 65 78 2d 61 20 3a 61 72 6f 75 6e 64 29 0a 20 20 20 20 ish-subdir-index-a.:around).....
185a0 20 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 67 65 74 2d 73 75 ...................(dired-get-su
185c0 62 64 69 72 20 64 69 72 76 69 73 68 2d 67 65 74 2d 73 75 62 64 69 72 2d 61 20 3a 61 72 6f 75 6e bdir.dirvish-get-subdir-a.:aroun
185e0 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 28 64 69 72 65 64 d)........................(dired
18600 2d 72 65 6d 6f 76 65 2d 65 6e 74 72 79 20 64 69 72 76 69 73 68 2d 72 65 6d 6f 76 65 2d 65 6e 74 -remove-entry.dirvish-remove-ent
18620 72 79 2d 61 20 3a 61 72 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ry-a.:around)...................
18640 20 20 20 20 20 28 64 69 72 65 64 2d 63 72 65 61 74 65 2d 65 6d 70 74 79 2d 66 69 6c 65 20 64 69 .....(dired-create-empty-file.di
18660 72 76 69 73 68 2d 6e 65 77 2d 65 6d 70 74 79 2d 66 69 6c 65 2d 61 20 3a 61 72 6f 75 6e 64 29 0a rvish-new-empty-file-a.:around).
18680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 63 72 .......................(dired-cr
186a0 65 61 74 65 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 76 69 73 68 2d 6e 65 77 2d 64 69 72 65 63 eate-directory.dirvish-new-direc
186c0 74 6f 72 79 2d 61 20 3a 61 66 74 65 72 29 29 0a 20 64 6f 20 28 61 64 76 69 63 65 2d 61 64 64 20 tory-a.:after))..do.(advice-add.
186e0 73 79 6d 20 68 6f 77 20 61 64 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 63 75 72 sym.how.ad))..(defun.dirvish-cur
18700 72 2d 64 69 72 2d 61 20 28 66 6e 20 26 6f 70 74 69 6f 6e 61 6c 20 6c 6f 63 61 6c 70 29 0a 20 20 r-dir-a.(fn.&optional.localp)...
18720 22 41 64 76 69 63 65 20 66 6f 72 20 46 4e 20 60 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 "Advice.for.FN.`dired-current-di
18740 72 65 63 74 6f 72 79 27 2e 0a 4c 4f 43 41 4c 50 20 69 73 20 74 68 65 20 61 72 67 20 66 6f 72 20 rectory'..LOCALP.is.the.arg.for.
18760 60 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 27 2c 20 77 68 69 63 68 `dired-current-directory',.which
18780 20 73 65 65 2e 22 0a 20 20 28 69 66 2d 6c 65 74 2a 20 28 28 70 61 72 65 6e 74 20 28 64 69 72 76 .see."...(if-let*.((parent.(dirv
187a0 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 ish-subtree--parent))...........
187c0 20 20 28 64 69 72 20 28 63 6f 6e 63 61 74 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 70 61 72 65 ..(dir.(concat.(overlay-get.pare
187e0 6e 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 6d 65 29 20 22 2f 22 29 29 29 0a 20 nt.'dired-subtree-name)."/")))..
18800 20 20 20 20 20 28 69 66 20 6c 6f 63 61 6c 70 20 28 64 69 72 65 64 2d 6d 61 6b 65 2d 72 65 6c 61 .....(if.localp.(dired-make-rela
18820 74 69 76 65 20 64 69 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 20 64 69 72 29 tive.dir.default-directory).dir)
18840 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 6c 6f 63 61 6c 70 29 29 29 0a 0a 28 64 65 66 .....(funcall.fn.localp)))..(def
18860 75 6e 20 64 69 72 76 69 73 68 2d 67 65 74 2d 73 75 62 64 69 72 2d 61 20 28 26 72 65 73 74 20 66 un.dirvish-get-subdir-a.(&rest.f
18880 6e 2d 61 72 67 73 29 0a 20 20 22 41 64 76 69 63 65 20 66 6f 72 20 46 4e 2d 41 52 47 53 20 60 64 n-args)..."Advice.for.FN-ARGS.`d
188a0 69 72 65 64 2d 67 65 74 2d 73 75 62 64 69 72 27 2e 22 0a 20 20 28 75 6e 6c 65 73 73 20 28 64 69 ired-get-subdir'."...(unless.(di
188c0 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 6e 74 29 20 28 61 70 70 6c 79 20 66 6e rvish-subtree--parent).(apply.fn
188e0 2d 61 72 67 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 64 69 72 2d -args)))..(defun.dirvish-subdir-
18900 69 6e 64 65 78 2d 61 20 28 66 6e 20 64 69 72 29 0a 20 20 22 41 64 76 69 63 65 20 66 6f 72 20 46 index-a.(fn.dir)..."Advice.for.F
18920 4e 20 60 64 69 72 65 64 2d 73 75 62 64 69 72 2d 69 6e 64 65 78 27 2e 0a 45 6e 73 75 72 65 20 63 N.`dired-subdir-index'..Ensure.c
18940 6f 72 72 65 63 74 20 44 49 52 20 77 68 65 6e 20 69 6e 73 69 64 65 20 6f 66 20 61 20 73 75 62 74 orrect.DIR.when.inside.of.a.subt
18960 72 65 65 2e 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 6c 65 74 ree."...(save-excursion.....(let
18980 20 28 28 63 6f 75 6e 74 20 30 29 20 6f 76 29 0a 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e .((count.0).ov).......(while.(an
189a0 64 20 28 73 65 74 71 20 6f 76 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 d.(setq.ov.(dirvish-subtree--par
189c0 65 6e 74 29 29 20 28 63 6c 2d 69 6e 63 66 20 63 6f 75 6e 74 29 29 0a 20 20 20 20 20 20 20 20 28 ent)).(cl-incf.count)).........(
189e0 67 6f 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 goto-char.(overlay-start.ov))...
18a00 20 20 20 20 20 20 28 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 31 29 29 0a 20 ......(dired-previous-line.1))..
18a20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 63 6f 75 6e 74 20 30 29 20 28 73 65 74 71 20 .....(unless.(eq.count.0).(setq.
18a40 64 69 72 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 29 29 29 dir.(dired-current-directory))))
18a60 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 64 69 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 .....(funcall.fn.dir)))..(defun.
18a80 64 69 72 76 69 73 68 2d 72 65 6d 6f 76 65 2d 65 6e 74 72 79 2d 61 20 28 66 6e 20 66 69 6c 65 29 dirvish-remove-entry-a.(fn.file)
18aa0 0a 20 20 22 41 64 76 69 63 65 20 66 6f 72 20 46 4e 20 60 64 69 72 65 64 2d 72 65 6d 6f 76 65 2d ..."Advice.for.FN.`dired-remove-
18ac0 65 6e 74 72 79 27 20 46 49 4c 45 2e 22 0a 20 20 28 69 66 20 64 69 72 76 69 73 68 2d 73 75 62 74 entry'.FILE."...(if.dirvish-subt
18ae0 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 ree--overlays.......(save-excurs
18b00 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 ion.........(and.(dirvish-subtre
18b20 65 2d 65 78 70 61 6e 64 2d 74 6f 20 66 69 6c 65 29 0a 09 20 20 20 20 20 28 6c 65 74 20 28 62 75 e-expand-to.file).......(let.(bu
18b40 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ffer-read-only)................(
18b60 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f delete-region.(line-beginning-po
18b80 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 20 20 20 20 sition).........................
18ba0 20 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 20 32 ......(line-beginning-position.2
18bc0 29 29 29 29 29 0a 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 66 69 6c 65 29 29 29 0a 0a 28 ))))).....(funcall.fn.file)))..(
18be0 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 65 77 2d 65 6d 70 74 79 2d 66 69 6c 65 2d 61 20 28 defun.dirvish-new-empty-file-a.(
18c00 66 6e 20 66 69 6c 65 29 0a 20 20 22 43 72 65 61 74 65 20 61 6e 20 65 6d 70 74 79 20 66 69 6c 65 fn.file)..."Create.an.empty.file
18c20 20 63 61 6c 6c 65 64 20 46 49 4c 45 2e 0a 53 61 6d 65 20 61 73 20 46 4e 20 60 64 69 72 65 64 2d .called.FILE..Same.as.FN.`dired-
18c40 63 72 65 61 74 65 2d 65 6d 70 74 79 2d 66 69 6c 65 27 2c 20 62 75 74 20 75 73 65 0a 60 64 69 72 create-empty-file',.but.use.`dir
18c60 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 27 20 61 73 20 74 68 65 20 70 72 6f ed-current-directory'.as.the.pro
18c80 6d 70 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 72 65 61 64 mpt."...(interactive.(list.(read
18ca0 2d 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 20 20 20 20 -file-name......................
18cc0 20 22 43 72 65 61 74 65 20 65 6d 70 74 79 20 66 69 6c 65 3a 20 22 20 28 64 69 72 65 64 2d 63 75 ."Create.empty.file:.".(dired-cu
18ce0 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 28 66 75 6e 63 61 6c 6c 20 66 rrent-directory))))...(funcall.f
18d00 6e 20 66 69 6c 65 29 0a 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d n.file)...(when.dirvish-subtree-
18d20 2d 6f 76 65 72 6c 61 79 73 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 -overlays.(revert-buffer)))..(de
18d40 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 65 77 2d 64 69 72 65 63 74 6f 72 79 2d 61 20 28 26 72 65 fun.dirvish-new-directory-a.(&re
18d60 73 74 20 5f 29 0a 20 20 22 41 64 76 69 63 65 20 66 6f 72 20 60 64 69 72 65 64 2d 63 72 65 61 74 st._)..."Advice.for.`dired-creat
18d80 65 2d 64 69 72 65 63 74 6f 72 79 27 2e 0a 45 6e 73 75 72 65 20 74 68 65 20 65 6e 74 72 79 20 69 e-directory'..Ensure.the.entry.i
18da0 73 20 69 6e 73 65 72 74 65 64 20 74 6f 20 74 68 65 20 62 75 66 66 65 72 20 61 66 74 65 72 20 64 s.inserted.to.the.buffer.after.d
18dc0 69 72 65 63 74 6f 72 79 0a 63 72 65 61 74 69 6f 6e 20 65 76 65 6e 20 74 68 65 20 65 6e 74 72 79 irectory.creation.even.the.entry
18de0 20 69 73 20 69 6e 20 6e 65 73 74 65 64 20 73 75 62 74 72 65 65 20 6e 6f 64 65 73 2e 22 0a 20 20 .is.in.nested.subtree.nodes."...
18e00 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 20 (when.dirvish-subtree--overlays.
18e20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 (revert-buffer)))..(defun.dirvis
18e40 68 2d 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 20 28 29 0a 20 20 22 47 65 74 20 73 75 62 74 72 h-subtree--depth.()..."Get.subtr
18e60 65 65 20 64 65 70 74 68 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 70 73 ee.depth.at.point."...(let.((dps
18e80 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 76 20 69 6e 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 .(cl-loop.for.ov.in.(overlays-at
18ea0 20 28 70 6f 69 6e 74 29 29 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(point)).collect...............
18ec0 20 20 20 20 20 20 20 20 28 6f 72 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 20 27 64 69 72 ........(or.(overlay-get.ov.'dir
18ee0 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 20 30 29 29 29 29 0a 20 20 20 20 28 6f 72 20 ed-subtree-depth).0)))).....(or.
18f00 28 61 6e 64 20 64 70 73 20 28 61 70 70 6c 79 20 23 27 6d 61 78 20 64 70 73 29 29 20 30 29 29 29 (and.dps.(apply.#'max.dps)).0)))
18f20 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 65 78 70 61 6e 64 ..(defun.dirvish-subtree--expand
18f40 65 64 2d 70 20 28 29 0a 20 20 22 37 30 78 20 46 61 73 74 65 72 20 76 65 72 73 69 6f 6e 20 6f 66 ed-p.()..."70x.Faster.version.of
18f60 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 27 2e .`dired-subtree--is-expanded-p'.
18f80 22 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 3c 20 28 64 69 72 76 69 73 68 2d "...(save-excursion.(<.(dirvish-
18fa0 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 subtree--depth).................
18fc0 20 20 20 20 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 20 28 64 69 .....(progn.(forward-line.1).(di
18fe0 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 29 29 29 29 29 0a 0a 28 64 65 66 75 rvish-subtree--depth)))))..(defu
19000 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 6e 74 20 28 26 6f 70 74 69 n.dirvish-subtree--parent.(&opti
19020 6f 6e 61 6c 20 70 29 0a 20 20 22 47 65 74 20 74 68 65 20 70 61 72 65 6e 74 20 73 75 62 74 72 65 onal.p)..."Get.the.parent.subtre
19040 65 20 6f 76 65 72 6c 61 79 20 61 74 20 70 6f 69 6e 74 20 50 2e 22 0a 20 20 28 73 65 74 71 20 70 e.overlay.at.point.P."...(setq.p
19060 20 28 6f 72 20 70 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 77 .(or.p.(point)))...(cl-loop....w
19080 69 74 68 20 28 70 6f 76 20 2e 20 6d 61 78 29 20 3d 20 28 63 6f 6e 73 20 6e 69 6c 20 30 29 0a 20 ith.(pov...max).=.(cons.nil.0)..
190a0 20 20 66 6f 72 20 6f 76 20 69 6e 20 28 6f 76 65 72 6c 61 79 73 2d 61 74 20 70 29 0a 20 20 20 66 ..for.ov.in.(overlays-at.p)....f
190c0 6f 72 20 64 65 70 74 68 20 3d 20 28 6f 72 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 76 20 27 or.depth.=.(or.(overlay-get.ov.'
190e0 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 20 30 29 0a 20 20 20 64 6f 20 28 77 dired-subtree-depth).0)....do.(w
19100 68 65 6e 20 28 3e 20 64 65 70 74 68 20 6d 61 78 29 20 28 73 65 74 71 20 70 6f 76 20 6f 76 29 20 hen.(>.depth.max).(setq.pov.ov).
19120 28 73 65 74 71 20 6d 61 78 20 64 65 70 74 68 29 29 0a 20 20 20 66 69 6e 61 6c 6c 79 20 72 65 74 (setq.max.depth))....finally.ret
19140 75 72 6e 20 70 6f 76 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 urn.pov))..(defun.dirvish-subtre
19160 65 2d 2d 72 65 61 64 69 6e 20 28 64 69 72 29 0a 20 20 22 52 65 61 64 69 6e 20 44 49 52 20 61 73 e--readin.(dir)..."Readin.DIR.as
19180 20 61 20 73 75 62 74 72 65 65 20 6e 6f 64 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 6c 61 67 73 .a.subtree.node."...(let.((flags
191a0 20 28 6f 72 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 6c 69 73 74 69 6e 67 2d 73 77 69 .(or.dirvish-subtree-listing-swi
191c0 74 63 68 65 73 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 68 65 73 29 29 20 73 74 tches.dired-actual-switches)).st
191e0 72 29 0a 20 20 20 20 28 77 69 74 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 r).....(with-temp-buffer.......(
19200 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 27 64 69 72 65 cl-letf.(((symbol-function.'dire
19220 64 2d 69 6e 73 65 72 74 2d 73 65 74 2d 70 72 6f 70 65 72 74 69 65 73 29 20 23 27 69 67 6e 6f 72 d-insert-set-properties).#'ignor
19240 65 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 e)).........(save-excursion.....
19260 20 20 20 20 20 20 28 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 64 69 72 65 63 74 6f 72 79 20 28 66 ......(dired-insert-directory.(f
19280 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 20 66 6c 61 67 73 ile-name-as-directory.dir).flags
192a0 29 29 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 2d 70 20 22 )).........(when.(looking-at-p."
192c0 20 20 74 6f 74 61 6c 20 75 73 65 64 20 69 6e 20 64 69 72 65 63 74 6f 72 79 22 29 0a 20 20 20 20 ..total.used.in.directory").....
192e0 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 6c 69 ......(delete-region.(point).(li
19300 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 20 32 29 29 29 0a 20 20 20 20 20 ne-beginning-position.2)))......
19320 20 20 20 28 73 65 74 71 20 73 74 72 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 0a 20 20 ...(setq.str.(buffer-string))...
19340 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 3d 20 28 6c 65 6e 67 74 68 20 73 74 72 29 20 30 29 ......(if.(or.(=.(length.str).0)
19360 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2f 2f 44 49 52 45 44 2d 4f 50 54 49 4f .(string-prefix-p."//DIRED-OPTIO
19380 4e 53 2f 2f 22 20 73 74 72 29 29 20 22 22 0a 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 NS//".str)).""...........(substr
193a0 69 6e 67 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 20 30 20 2d 31 29 29 29 29 29 29 0a 0a ing.(buffer-string).0.-1))))))..
193c0 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 20 28 (defun.dirvish-subtree--insert.(
193e0 29 0a 20 20 22 49 6e 73 65 72 74 20 73 75 62 74 72 65 65 20 75 6e 64 65 72 20 74 68 69 73 20 64 )..."Insert.subtree.under.this.d
19400 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 64 69 72 20 28 64 69 72 65 64 2d irectory."...(let*.((dir.(dired-
19420 67 65 74 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 69 6e 67 get-filename))..........(listing
19440 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 72 65 61 64 69 6e 20 64 69 72 29 29 0a .(dirvish-subtree--readin.dir)).
19460 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 62 65 67 20 65 6e .........buffer-read-only.beg.en
19480 64 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 64 61 74 61 2d 66 6f 72 2d 64 69 72 20 64 69 72 d).....(dirvish-data-for-dir.dir
194a0 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 6e 69 6c 29 0a 20 20 20 20 28 77 69 74 68 .(current-buffer).nil).....(with
194c0 2d 73 69 6c 65 6e 74 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 73 61 76 -silent-modifications.......(sav
194e0 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 65 67 20 28 70 e-excursion.........(setq.beg.(p
19500 72 6f 67 6e 20 28 6d 6f 76 65 2d 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 31 29 20 28 69 6e 73 65 72 rogn.(move-end-of-line.1).(inser
19520 74 20 22 5c 6e 22 29 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 t."\n").(point))).........(setq.
19540 65 6e 64 20 28 70 72 6f 67 6e 20 28 69 6e 73 65 72 74 20 6c 69 73 74 69 6e 67 29 20 28 31 2b 20 end.(progn.(insert.listing).(1+.
19560 28 70 6f 69 6e 74 29 29 29 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 76 20 28 6d 61 6b (point)))))).....(let*.((ov.(mak
19580 65 2d 6f 76 65 72 6c 61 79 20 62 65 67 20 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 e-overlay.beg.end))............(
195a0 70 61 72 65 6e 74 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 6e 74 20 parent.(dirvish-subtree--parent.
195c0 28 31 2d 20 62 65 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 2d 64 65 70 74 68 20 28 (1-.beg)))............(p-depth.(
195e0 61 6e 64 20 70 61 72 65 6e 74 20 28 31 2b 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 70 61 72 65 and.parent.(1+.(overlay-get.pare
19600 6e 74 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 29 29 29 0a 20 20 20 20 nt.'dired-subtree-depth)))).....
19620 20 20 20 20 20 20 20 28 64 65 70 74 68 20 28 6f 72 20 70 2d 64 65 70 74 68 20 31 29 29 0a 20 20 .......(depth.(or.p-depth.1))...
19640 20 20 20 20 20 20 20 20 20 28 70 72 65 66 69 78 20 28 61 70 70 6c 79 20 23 27 63 6f 6e 63 61 74 .........(prefix.(apply.#'concat
19660 20 28 6d 61 6b 65 2d 6c 69 73 74 20 64 65 70 74 68 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 .(make-list.depth.dirvish-subtre
19680 65 2d 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 72 65 66 69 78 2d 6c e-prefix)))............(prefix-l
196a0 65 6e 20 28 6c 65 6e 67 74 68 20 70 72 65 66 69 78 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 en.(length.prefix))).......(save
196c0 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 65 -excursion.........(goto-char.be
196e0 67 29 0a 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 29 20 65 6e 64 g).........(while.(<.(point).end
19700 29 0a 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 )...........(add-text-properties
19720 20 28 70 6f 69 6e 74 29 20 28 31 2b 20 28 70 6f 69 6e 74 29 29 20 60 28 6c 69 6e 65 2d 70 72 65 .(point).(1+.(point)).`(line-pre
19740 66 69 78 20 2c 70 72 65 66 69 78 2d 6c 65 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 fix.,prefix-len))...........(for
19760 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 ward-line.1))).......(overlay-pu
19780 74 20 6f 76 20 27 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 t.ov.'line-prefix...............
197a0 20 20 20 20 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 64 .....(propertize.prefix.'face.'d
197c0 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 67 75 69 64 65 29 29 0a 20 20 20 20 20 20 28 6f 76 irvish-subtree-guide)).......(ov
197e0 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6e 61 6d 65 erlay-put.ov.'dired-subtree-name
19800 20 64 69 72 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 72 .dir).......(overlay-put.ov.'dir
19820 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 20 64 65 70 74 68 29 0a 20 20 20 20 20 20 28 6f ed-subtree-depth.depth).......(o
19840 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 65 76 61 70 6f 72 61 74 65 20 74 29 0a 20 20 20 20 verlay-put.ov.'evaporate.t).....
19860 20 20 28 70 75 73 68 20 6f 76 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 ..(push.ov.dirvish-subtree--over
19880 6c 61 79 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 lays))))..(defun.dirvish-subtree
198a0 2d 2d 72 65 76 65 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6c 65 61 72 29 0a 20 20 22 52 65 --revert.(&optional.clear)..."Re
198c0 69 6e 73 65 72 74 20 73 61 76 65 64 20 73 75 62 74 72 65 65 20 6e 6f 64 65 73 20 69 6e 74 6f 20 insert.saved.subtree.nodes.into.
198e0 74 68 65 20 62 75 66 66 65 72 2e 0a 57 68 65 6e 20 43 4c 45 41 52 2c 20 72 65 6d 6f 76 65 20 61 the.buffer..When.CLEAR,.remove.a
19900 6c 6c 20 73 75 62 74 72 65 65 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 63 ll.subtrees.in.the.buffer."...(c
19920 6c 2d 6c 6f 6f 70 0a 20 20 20 77 69 74 68 20 66 69 6c 65 6e 61 6d 65 73 20 3d 20 28 63 6c 2d 6c l-loop....with.filenames.=.(cl-l
19940 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 oop.for.o.in.dirvish-subtree--ov
19960 65 72 6c 61 79 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 erlays..........................
19980 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6f 76 65 72 6c 61 79 2d 67 65 74 20 6f 20 27 64 69 72 65 ....collect.(overlay-get.o.'dire
199a0 64 2d 73 75 62 74 72 65 65 2d 6e 61 6d 65 29 29 0a 20 20 20 77 69 74 68 20 69 6e 64 65 78 20 3d d-subtree-name))....with.index.=
199c0 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 6f 6c 64 2d 69 6e 64 65 78 29 0a 20 20 20 77 69 .(dirvish-prop.:old-index)....wi
199e0 74 68 20 63 6c 65 61 72 20 3d 20 28 6f 72 20 63 6c 65 61 72 20 28 62 6f 75 6e 64 2d 61 6e 64 2d th.clear.=.(or.clear.(bound-and-
19a00 74 72 75 65 2d 70 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 2d 67 72 6f 75 70 2d 6f 76 65 true-p.dirvish-emerge--group-ove
19a20 72 6c 61 79 73 29 29 0a 20 20 20 69 6e 69 74 69 61 6c 6c 79 20 28 73 65 74 71 20 64 69 72 76 69 rlays))....initially.(setq.dirvi
19a40 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 20 6e 69 6c 29 0a 20 20 20 66 6f 72 sh-subtree--overlays.nil)....for
19a60 20 66 69 6c 65 6e 61 6d 65 20 69 6e 20 66 69 6c 65 6e 61 6d 65 73 0a 20 20 20 64 6f 20 28 69 66 .filename.in.filenames....do.(if
19a80 20 63 6c 65 61 72 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 66 69 .clear.(when.(dired-goto-file.fi
19aa0 6c 65 6e 61 6d 65 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 lename)...................(dired
19ac0 2d 6e 65 78 74 2d 6c 69 6e 65 20 31 29 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 72 -next-line.1).(dirvish-subtree-r
19ae0 65 6d 6f 76 65 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 76 emove)).........(when.(and.(dirv
19b00 69 73 68 2d 73 75 62 74 72 65 65 2d 65 78 70 61 6e 64 2d 74 6f 20 66 69 6c 65 6e 61 6d 65 29 0a ish-subtree-expand-to.filename).
19b20 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 64 69 72 76 69 73 68 ...................(not.(dirvish
19b40 2d 73 75 62 74 72 65 65 2d 2d 65 78 70 61 6e 64 65 64 2d 70 29 29 29 0a 20 20 20 20 20 20 20 20 -subtree--expanded-p))).........
19b60 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 29 29 29 0a 20 20 ..(dirvish-subtree--insert)))...
19b80 20 66 69 6e 61 6c 6c 79 20 28 61 6e 64 20 69 6e 64 65 78 20 28 69 66 20 63 6c 65 61 72 20 28 64 .finally.(and.index.(if.clear.(d
19ba0 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 69 6e 64 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 ired-goto-file.index)...........
19bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 65 ..............(dirvish-subtree-e
19be0 78 70 61 6e 64 2d 74 6f 20 69 6e 64 65 78 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 xpand-to.index)))))..(defun.dirv
19c00 69 73 68 2d 73 75 62 74 72 65 65 2d 64 65 66 61 75 6c 74 2d 66 69 6c 65 2d 76 69 65 77 65 72 20 ish-subtree-default-file-viewer.
19c20 28 6f 72 69 67 2d 62 75 66 66 65 72 29 0a 20 20 22 44 65 66 61 75 6c 74 20 60 64 69 72 76 69 73 (orig-buffer)..."Default.`dirvis
19c40 68 2d 73 75 62 74 72 65 65 2d 66 69 6c 65 2d 76 69 65 77 65 72 27 2e 0a 54 72 79 20 65 78 65 63 h-subtree-file-viewer'..Try.exec
19c60 75 74 69 6e 67 20 60 63 6f 6e 73 75 6c 74 2d 6c 73 70 2d 66 69 6c 65 2d 73 79 6d 62 6f 6c 73 27 uting.`consult-lsp-file-symbols'
19c80 2c 20 60 63 6f 6e 73 75 6c 74 2d 69 6d 65 6e 75 27 2c 0a 60 63 6f 6e 73 75 6c 74 2d 6c 69 6e 65 ,.`consult-imenu',.`consult-line
19ca0 27 20 61 6e 64 20 60 69 6d 65 6e 75 27 20 73 65 71 75 65 6e 74 69 61 6c 6c 79 20 75 6e 74 69 6c '.and.`imenu'.sequentially.until
19cc0 20 6f 6e 65 20 6f 66 20 74 68 65 6d 0a 73 75 63 63 65 65 64 2c 20 73 77 69 74 63 68 20 62 61 63 .one.of.them.succeed,.switch.bac
19ce0 6b 20 74 6f 20 4f 52 49 47 2d 42 55 46 46 45 52 20 61 66 74 65 72 77 61 72 64 73 20 72 65 67 61 k.to.ORIG-BUFFER.afterwards.rega
19d00 72 64 6c 65 73 73 6c 79 2e 22 0a 20 20 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 0a 20 20 20 rdlessly."...(unwind-protect....
19d20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 28 63 6f 6e 73 75 6c 74 2d ...(condition-case.nil.(consult-
19d40 6c 73 70 2d 66 69 6c 65 2d 73 79 6d 62 6f 6c 73 20 74 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 lsp-file-symbols.t).........(err
19d60 6f 72 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 28 63 6f 6e 73 75 6c 74 2d or.(condition-case.nil.(consult-
19d80 69 6d 65 6e 75 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 imenu)..................(error.(
19da0 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 20 28 63 6f 6e 73 75 6c 74 2d 6c 69 6e 65 condition-case.nil.(consult-line
19dc0 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 65 72 72 )...........................(err
19de0 6f 72 20 28 6d 65 73 73 61 67 65 20 22 46 61 69 6c 65 64 20 74 6f 20 76 69 65 77 20 66 69 6c 65 or.(message."Failed.to.view.file
19e00 20 60 25 73 27 2e 20 5c 0a 53 65 65 20 60 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 66 69 .`%s'..\.See.`dirvish-subtree-fi
19e20 6c 65 2d 76 69 65 77 65 72 27 20 66 6f 72 20 64 65 74 61 69 6c 73 22 0a 20 20 20 20 20 20 20 20 le-viewer'.for.details".........
19e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
19e60 20 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 29 29 29 29 29 0a 20 20 20 20 28 73 ..buffer-file-name))))))).....(s
19e80 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 6f 72 69 67 2d 62 75 66 66 65 72 29 29 29 0a 0a witch-to-buffer.orig-buffer)))..
19ea0 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 73 75 62 74 72 65 (dirvish-define-attribute.subtre
19ec0 65 2d 73 74 61 74 65 0a 20 20 22 41 20 69 6e 64 69 63 61 74 6f 72 20 66 6f 72 20 64 69 72 65 63 e-state..."A.indicator.for.direc
19ee0 74 6f 72 79 20 65 78 70 61 6e 64 69 6e 67 20 73 74 61 74 65 2e 22 0a 20 20 3a 77 68 65 6e 20 28 tory.expanding.state."...:when.(
19f00 6f 72 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 61 6c 77 61 79 73 2d 73 68 6f 77 2d 73 or.dirvish-subtree-always-show-s
19f20 74 61 74 65 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 29 0a tate.dirvish-subtree--overlays).
19f40 20 20 3a 77 69 64 74 68 20 31 0a 20 20 28 6c 65 74 20 28 28 73 74 61 74 65 2d 73 74 72 0a 20 20 ..:width.1...(let.((state-str...
19f60 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 69 66 20 28 65 71 20 28 63 61 72 20 .......(propertize.(if.(eq.(car.
19f80 66 2d 74 79 70 65 29 20 27 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f-type).'dir)...................
19fa0 20 20 20 20 20 20 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 65 78 70 .......(if.(dirvish-subtree--exp
19fc0 61 6e 64 65 64 2d 70 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 anded-p)........................
19fe0 20 20 20 20 20 20 28 63 61 72 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 73 74 61 74 ......(car.dirvish-subtree--stat
1a000 65 2d 69 63 6f 6e 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 e-icons)........................
1a020 20 20 20 20 28 63 64 72 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 73 74 61 74 65 2d ....(cdr.dirvish-subtree--state-
1a040 69 63 6f 6e 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 22 icons))........................"
1a060 20 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 ."))).........(ov.(make-overlay.
1a080 28 31 2b 20 6c 2d 62 65 67 29 20 28 31 2b 20 6c 2d 62 65 67 29 29 29 29 0a 20 20 20 20 28 77 68 (1+.l-beg).(1+.l-beg)))).....(wh
1a0a0 65 6e 20 68 6c 2d 66 61 63 65 0a 20 20 20 20 20 20 28 61 64 64 2d 66 61 63 65 2d 74 65 78 74 2d en.hl-face.......(add-face-text-
1a0c0 70 72 6f 70 65 72 74 79 20 30 20 31 20 68 6c 2d 66 61 63 65 20 74 20 73 74 61 74 65 2d 73 74 72 property.0.1.hl-face.t.state-str
1a0e0 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 61 66 74 65 72 2d 73 74 )).....(overlay-put.ov.'after-st
1a100 72 69 6e 67 20 73 74 61 74 65 2d 73 74 72 29 0a 20 20 20 20 60 28 6f 76 20 2e 20 2c 6f 76 29 29 ring.state-str).....`(ov...,ov))
1a120 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6d 6f 76 65 2d )..(defun.dirvish-subtree--move-
1a140 74 6f 2d 66 69 6c 65 20 28 66 69 6c 65 20 64 65 70 74 68 29 0a 20 20 22 4d 6f 76 65 20 74 6f 20 to-file.(file.depth)..."Move.to.
1a160 46 49 4c 45 20 61 74 20 73 75 62 74 72 65 65 20 44 45 50 54 48 2e 22 0a 20 20 28 6c 65 74 20 28 FILE.at.subtree.DEPTH."...(let.(
1a180 73 74 6f 70 20 66 2d 62 65 67 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 6e 6f 74 stop.f-beg).....(while.(and.(not
1a1a0 20 73 74 6f 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3d 20 28 66 6f 72 77 61 .stop).................(=.(forwa
1a1c0 72 64 2d 6c 69 6e 65 29 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 rd-line).0).................(set
1a1e0 71 20 66 2d 62 65 67 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 q.f-beg.(dired-move-to-filename)
1a200 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 64 65 70 74 68 20 28 64 69 72 76 69 73 68 )).......(and.(eq.depth.(dirvish
1a220 2d 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 71 -subtree--depth))............(eq
1a240 75 61 6c 20 66 69 6c 65 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 2d 62 65 67 ual.file.(buffer-substring.f-beg
1a260 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 29 .(dired-move-to-end-of-filename)
1a280 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 73 74 6f 70 20 74 29 29 29 0a 20 20 ))............(setq.stop.t)))...
1a2a0 20 20 73 74 6f 70 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 ..stop))..(defun.dirvish-subtree
1a2c0 2d 65 78 70 61 6e 64 2d 74 6f 20 28 74 61 72 67 65 74 29 0a 20 20 22 47 6f 20 74 6f 20 6c 69 6e -expand-to.(target)..."Go.to.lin
1a2e0 65 20 64 65 73 63 72 69 62 69 6e 67 20 54 41 52 47 45 54 20 61 6e 64 20 65 78 70 61 6e 64 20 69 e.describing.TARGET.and.expand.i
1a300 74 73 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 28 69 6e 74 65 72 ts.parent.directories."...(inter
1a320 61 63 74 69 76 65 0a 20 20 20 28 6c 69 73 74 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d active....(list.(directory-file-
1a340 6e 61 6d 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 0a 09 20 20 20 20 20 20 20 20 name.(expand-file-name..........
1a360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 ...............(read-file-name."
1a380 45 78 70 61 6e 64 20 74 6f 20 66 69 6c 65 3a 20 22 0a 09 09 09 20 20 20 20 20 20 20 20 20 20 20 Expand.to.file:."...............
1a3a0 20 20 20 20 20 20 20 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 ............(dired-current-direc
1a3c0 74 6f 72 79 29 29 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 64 69 72 65 64 2d tory))))))...(let.((file.(dired-
1a3e0 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 20 28 64 69 72 20 28 64 69 72 65 64 get-filename.nil.t)).(dir.(dired
1a400 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 -current-directory))).....(cond.
1a420 28 28 65 71 75 61 6c 20 66 69 6c 65 20 74 61 72 67 65 74 29 20 74 61 72 67 65 74 29 0a 20 20 20 ((equal.file.target).target)....
1a440 20 20 20 20 20 20 20 28 28 61 6e 64 20 66 69 6c 65 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 .......((and.file.(string-prefix
1a460 2d 70 20 66 69 6c 65 20 74 61 72 67 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c -p.file.target))............(unl
1a480 65 73 73 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 65 78 70 61 6e 64 65 64 2d 70 ess.(dirvish-subtree--expanded-p
1a4a0 29 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 29 29 0a 20 20 20 ).(dirvish-subtree--insert))....
1a4c0 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 70 74 68 20 28 31 2b 20 28 64 69 72 76 69 73 ........(let.((depth.(1+.(dirvis
1a4e0 68 2d 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 h-subtree--depth))).............
1a500 20 20 20 20 20 28 6e 65 78 74 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 0a 20 20 .....(next.(car.(split-string...
1a520 20 20 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 75 62 73 74 ..........................(subst
1a540 72 69 6e 67 20 74 61 72 67 65 74 20 28 31 2b 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 29 29 29 20 ring.target.(1+.(length.file))).
1a560 22 2f 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 76 "/"))))..............(when.(dirv
1a580 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 20 6e 65 78 74 20 64 ish-subtree--move-to-file.next.d
1a5a0 65 70 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 epth)................(dirvish-su
1a5c0 62 74 72 65 65 2d 65 78 70 61 6e 64 2d 74 6f 20 74 61 72 67 65 74 29 29 29 29 0a 20 20 20 20 20 btree-expand-to.target))))......
1a5e0 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 64 69 72 20 74 61 72 67 65 .....((string-prefix-p.dir.targe
1a600 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 70 74 68 20 28 64 69 72 76 t)............(let.((depth.(dirv
1a620 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 64 65 70 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ish-subtree--depth))............
1a640 20 20 20 20 20 20 28 6e 65 78 74 20 28 63 61 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 ......(next.(car.(split-string.(
1a660 73 75 62 73 74 72 69 6e 67 20 74 61 72 67 65 74 20 28 6c 65 6e 67 74 68 20 64 69 72 29 29 20 22 substring.target.(length.dir))."
1a680 2f 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 /"))))..............(goto-char.(
1a6a0 64 69 72 65 64 2d 73 75 62 64 69 72 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 dired-subdir-min))..............
1a6c0 28 67 6f 74 6f 2d 63 68 61 72 20 28 6e 65 78 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 (goto-char.(next-single-property
1a6e0 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 20 27 64 69 72 65 64 2d 66 69 6c 65 6e 61 6d 65 29 -change.(point).'dired-filename)
1a700 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 )..............(forward-line.-1)
1a720 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 41 52 47 45 54 20 69 73 20 65 69 74 68 65 ..............;;.TARGET.is.eithe
1a740 72 20 6e 6f 74 20 65 78 69 73 74 20 6f 72 20 62 65 69 6e 67 20 68 69 64 64 65 6e 20 28 23 31 33 r.not.exist.or.being.hidden.(#13
1a760 35 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 76 69 73 68 2d 73 5)..............(when.(dirvish-s
1a780 75 62 74 72 65 65 2d 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 20 6e 65 78 74 20 64 65 70 74 68 29 ubtree--move-to-file.next.depth)
1a7a0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 ................(dirvish-subtree
1a7c0 2d 65 78 70 61 6e 64 2d 74 6f 20 74 61 72 67 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 -expand-to.target))))...........
1a7e0 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e ((string-prefix-p.(expand-file-n
1a800 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 20 64 69 72 29 0a 20 20 20 20 ame.default-directory).dir).....
1a820 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d .......(goto-char.(dired-subdir-
1a840 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 6e 65 78 min))............(goto-char.(nex
1a860 74 2d 73 69 6e 67 6c 65 2d 70 72 6f 70 65 72 74 79 2d 63 68 61 6e 67 65 20 28 70 6f 69 6e 74 29 t-single-property-change.(point)
1a880 20 27 64 69 72 65 64 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 .'dired-filename))............(d
1a8a0 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 65 78 70 61 6e 64 2d 74 6f 20 74 61 72 67 65 74 29 irvish-subtree-expand-to.target)
1a8c0 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 64 69 72 76 ))))..;;;###autoload.(defun.dirv
1a8e0 69 73 68 2d 73 75 62 74 72 65 65 2d 75 70 20 28 29 0a 20 20 22 4a 75 6d 70 20 74 6f 20 62 65 67 ish-subtree-up.()..."Jump.to.beg
1a900 69 6e 6e 69 6e 67 20 6f 66 20 63 75 72 72 65 6e 74 20 73 75 62 74 72 65 65 2e 22 0a 20 20 28 69 inning.of.current.subtree."...(i
1a920 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 6f 76 20 28 64 69 nteractive)...(when-let.((ov.(di
1a940 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 6e 74 29 29 29 0a 20 20 20 20 28 67 6f rvish-subtree--parent))).....(go
1a960 74 6f 2d 63 68 61 72 20 28 6f 76 65 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 to-char.(overlay-start.ov)).....
1a980 28 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 31 29 29 29 0a 0a 3b 3b 3b 23 23 (dired-previous-line.1)))..;;;##
1a9a0 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 #autoload.(defun.dirvish-subtree
1a9c0 2d 72 65 6d 6f 76 65 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 73 75 62 74 72 65 65 20 61 74 20 -remove.()..."Remove.subtree.at.
1a9e0 70 6f 69 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 2d point."...(interactive)...(when-
1aa00 6c 65 74 2a 20 28 28 6f 76 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 70 61 72 65 let*.((ov.(dirvish-subtree--pare
1aa20 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 65 67 20 28 6f 76 65 72 6c 61 79 nt))...............(beg.(overlay
1aa40 2d 73 74 61 72 74 20 6f 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 20 28 -start.ov))...............(end.(
1aa60 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 overlay-end.ov))).....(goto-char
1aa80 20 62 65 67 29 0a 20 20 20 20 28 64 69 72 65 64 2d 70 72 65 76 69 6f 75 73 2d 6c 69 6e 65 20 31 .beg).....(dired-previous-line.1
1aaa0 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 6f 20 69 6e 20 28 6f 76 65 72 6c 61 79 ).....(cl-loop.for.o.in.(overlay
1aac0 73 2d 69 6e 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 s-in.(point-min).(point-max))...
1aae0 20 20 20 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 6f 76 65 72 6c 61 79 2d 67 65 ...........when.(and.(overlay-ge
1ab00 74 20 6f 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 64 65 70 74 68 29 0a 20 20 20 20 20 20 t.o.'dired-subtree-depth).......
1ab20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3e 3d 20 28 6f 76 65 72 6c 61 79 2d 73 74 .................(>=.(overlay-st
1ab40 61 72 74 20 6f 29 20 62 65 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 art.o).beg).....................
1ab60 20 20 20 28 3c 3d 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 29 20 65 6e 64 29 29 0a 20 20 20 ...(<=.(overlay-end.o).end))....
1ab80 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 ..........do.(setq.dirvish-subtr
1aba0 65 65 2d 2d 6f 76 65 72 6c 61 79 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ee--overlays....................
1abc0 20 20 20 28 64 65 6c 71 20 6f 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 ...(delq.o.dirvish-subtree--over
1abe0 6c 61 79 73 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 69 6c 65 6e 74 2d 6d 6f 64 69 66 69 63 lays))).....(with-silent-modific
1ac00 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 67 69 6f 6e 20 28 6f 76 65 ations.......(delete-region.(ove
1ac20 72 6c 61 79 2d 73 74 61 72 74 20 6f 76 29 20 28 6f 76 65 72 6c 61 79 2d 65 6e 64 20 6f 76 29 29 rlay-start.ov).(overlay-end.ov))
1ac40 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 64 69 72 76 69 )))..;;;###autoload.(defun.dirvi
1ac60 73 68 2d 73 75 62 74 72 65 65 2d 63 6c 65 61 72 20 28 29 0a 20 20 22 43 6c 65 61 72 20 61 6c 6c sh-subtree-clear.()..."Clear.all
1ac80 20 73 75 62 74 72 65 65 73 20 69 6e 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 .subtrees.in.the.buffer."...(int
1aca0 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 72 65 eractive)...(dirvish-subtree--re
1acc0 76 65 72 74 20 74 29 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 vert.t)...(goto-char.(point-min)
1ace0 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 76 69 65 77 ))..(defun.dirvish-subtree--view
1ad00 2d 66 69 6c 65 20 28 29 0a 20 20 22 56 69 65 77 20 66 69 6c 65 20 6e 6f 64 65 20 75 73 69 6e 67 -file.()..."View.file.node.using
1ad20 20 60 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 66 69 6c 65 2d 76 69 65 77 65 72 27 2e 22 .`dirvish-subtree-file-viewer'."
1ad40 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e 64 65 78 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a ...(let*.((index.(dirvish-prop.:
1ad60 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 6f 72 20 28 61 6e 64 20 index))..........(file.(or.(and.
1ad80 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 (dirvish-prop.:remote)..........
1ada0 20 20 20 20 20 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 6d 6f ...............(user-error."Remo
1adc0 74 65 20 66 69 6c 65 20 60 25 73 27 20 6e 6f 74 20 70 72 65 76 69 65 77 65 64 22 20 69 6e 64 65 te.file.`%s'.not.previewed".inde
1ade0 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 6e 64 65 78 29 29 0a 20 x))....................index))..
1ae00 20 20 20 20 20 20 20 20 28 62 75 66 20 28 6f 72 20 28 67 65 74 2d 66 69 6c 65 2d 62 75 66 66 65 ........(buf.(or.(get-file-buffe
1ae20 72 20 66 69 6c 65 29 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 66 69 6c 65 r.file).(find-file-noselect.file
1ae40 29 29 29 0a 20 20 20 20 20 20 20 20 20 6f 72 69 67 2d 62 75 66 29 0a 20 20 20 20 28 77 68 65 6e )))..........orig-buf).....(when
1ae60 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 20 20 .(with-current-buffer.buf.......
1ae80 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 20 28 67 6f 74 6f 2d 63 68 61 72 ......(save-excursion.(goto-char
1aea0 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(point-min))...................
1aec0 20 20 20 20 20 20 20 20 20 20 28 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 22 5c 30 22 20 6e ..........(search-forward."\0".n
1aee0 69 6c 20 27 6e 6f 65 72 72 6f 72 29 29 29 0a 20 20 20 20 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 il.'noerror))).......(kill-buffe
1af00 72 20 62 75 66 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 42 69 6e 61 72 79 r.buf).......(user-error."Binary
1af20 20 66 69 6c 65 20 60 25 73 27 20 6e 6f 74 20 70 72 65 76 69 65 77 65 64 22 20 66 69 6c 65 29 29 .file.`%s'.not.previewed".file))
1af40 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 6f 72 20 28 .....(with-selected-window.(or.(
1af60 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 66 29 20 28 6e 65 78 74 2d 77 69 6e get-buffer-window.buf).(next-win
1af80 64 6f 77 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 6f 72 69 67 2d 62 75 66 20 28 63 75 72 72 dow)).......(setq.orig-buf.(curr
1afa0 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 ent-buffer)).......(switch-to-bu
1afc0 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 76 69 73 68 ffer.buf).......(funcall.dirvish
1afe0 2d 73 75 62 74 72 65 65 2d 66 69 6c 65 2d 76 69 65 77 65 72 20 6f 72 69 67 2d 62 75 66 29 29 29 -subtree-file-viewer.orig-buf)))
1b000 29 0a 0a 28 64 65 66 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 74 6f 67 67 6c 65 2d 73 75 62 )..(defalias.'dirvish-toggle-sub
1b020 74 72 65 65 20 23 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 0a 20 20 tree.#'dirvish-subtree-toggle...
1b040 22 49 6e 73 65 72 74 20 73 75 62 74 72 65 65 20 61 74 20 70 6f 69 6e 74 20 6f 72 20 72 65 6d 6f "Insert.subtree.at.point.or.remo
1b060 76 65 20 69 74 20 69 66 20 69 74 20 77 61 73 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e 22 29 0a 3b ve.it.if.it.was.not.present.").;
1b080 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 ;;###autoload.(defun.dirvish-sub
1b0a0 74 72 65 65 2d 74 6f 67 67 6c 65 20 28 29 0a 20 20 22 49 6e 73 65 72 74 20 73 75 62 74 72 65 65 tree-toggle.()..."Insert.subtree
1b0c0 20 61 74 20 70 6f 69 6e 74 20 6f 72 20 72 65 6d 6f 76 65 20 69 74 20 69 66 20 69 74 20 77 61 73 .at.point.or.remove.it.if.it.was
1b0e0 20 6e 6f 74 20 70 72 65 73 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 .not.present."...(interactive)..
1b100 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 65 78 70 61 6e 64 65 64 2d .(if.(dirvish-subtree--expanded-
1b120 70 29 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 64 69 72 65 64 2d 6e 65 78 74 2d 6c 69 6e 65 p).......(progn.(dired-next-line
1b140 20 31 29 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 29 29 0a 20 20 .1).(dirvish-subtree-remove))...
1b160 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 65 72 72 20 28 64 69 72 76 69 73 68 2d 73 ..(condition-case.err.(dirvish-s
1b180 75 62 74 72 65 65 2d 2d 69 6e 73 65 72 74 29 0a 20 20 20 20 20 20 28 66 69 6c 65 2d 65 72 72 6f ubtree--insert).......(file-erro
1b1a0 72 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 76 69 65 77 2d 66 69 6c 65 29 29 0a r.(dirvish-subtree--view-file)).
1b1c0 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 6d 65 73 73 61 67 65 20 22 25 73 22 20 28 63 64 72 20 ......(error.(message."%s".(cdr.
1b1e0 65 72 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 err))))))..(defun.dirvish-subtre
1b200 65 2d 74 6f 67 67 6c 65 2d 6f 72 2d 6f 70 65 6e 20 28 65 76 29 0a 20 20 22 54 6f 67 67 6c 65 20 e-toggle-or-open.(ev)..."Toggle.
1b220 74 68 65 20 73 75 62 74 72 65 65 20 69 66 20 69 6e 20 61 20 64 69 72 6c 69 6e 65 2c 20 6f 74 68 the.subtree.if.in.a.dirline,.oth
1b240 65 72 77 69 73 65 20 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 2e 0a 54 68 69 73 20 63 6f 6d 6d 61 erwise.open.the.file..This.comma
1b260 6e 64 20 74 61 6b 65 73 20 61 20 6d 6f 75 73 65 20 65 76 65 6e 74 20 45 56 20 61 73 20 69 74 73 nd.takes.a.mouse.event.EV.as.its
1b280 20 61 72 67 6d 65 6e 74 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 .argment."...(interactive."e")..
1b2a0 20 28 6c 65 74 20 28 28 77 69 6e 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d .(let.((win.(posn-window.(event-
1b2c0 65 6e 64 20 65 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 end.ev))).........(pos.(posn-poi
1b2e0 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 nt.(event-end.ev)))).....(unless
1b300 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 29 20 28 65 72 72 6f 72 20 22 4e 6f 20 66 69 6c 65 20 63 .(windowp.win).(error."No.file.c
1b320 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 29 hosen")).....(select-window.win)
1b340 0a 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 77 69 6e 64 6f .....(with-current-buffer.(windo
1b360 77 2d 62 75 66 66 65 72 20 77 69 6e 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 w-buffer.win).......(goto-char.p
1b380 6f 73 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 os).......(condition-case.nil...
1b3a0 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 29 ........(dirvish-subtree-toggle)
1b3c0 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e .........(error.(dirvish-find-en
1b3e0 74 72 79 2d 61 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 2d 66 6f 72 2d 76 69 73 69 74 29 try-a.(dired-get-file-for-visit)
1b400 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 77 69 )))).....(when.(window-live-p.wi
1b420 6e 29 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 29 29 29 29 0a 0a 3b 3b 3b 23 23 n).(select-window.win))))..;;;##
1b440 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 73 75 62 #autoload.(autoload.'dirvish-sub
1b460 74 72 65 65 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 22 20 6e 69 6c 20 tree-menu."dirvish-subtree".nil.
1b480 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 t).(transient-define-prefix.dirv
1b4a0 69 73 68 2d 73 75 62 74 72 65 65 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 65 6c 70 20 6d 65 6e 75 ish-subtree-menu.()..."Help.menu
1b4c0 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2a 27 20 63 6f 6d 6d 61 6e 64 .for.`dirvish-subtree-*'.command
1b4e0 73 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 s."...[:description....(lambda.(
1b500 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 ).(dirvish--format-menu-heading.
1b520 22 4d 61 6e 61 67 65 20 73 75 62 74 72 65 65 73 22 29 29 0a 20 20 20 28 22 54 41 42 22 20 22 54 "Manage.subtrees"))....("TAB"."T
1b540 6f 67 67 6c 65 20 73 75 62 74 72 65 65 22 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 oggle.subtree".............dirvi
1b560 73 68 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a sh-subtree-toggle.:transient.t).
1b580 20 20 20 28 22 74 22 20 22 20 20 45 78 70 61 6e 64 20 75 6e 74 69 6c 20 74 61 72 67 65 74 22 20 ...("t"."..Expand.until.target".
1b5a0 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 65 78 70 61 6e 64 2d 74 6f .......dirvish-subtree-expand-to
1b5c0 29 0a 20 20 20 28 22 75 22 20 22 20 20 4d 6f 76 65 20 75 70 20 31 20 64 65 70 74 68 20 6c 65 76 )....("u"."..Move.up.1.depth.lev
1b5e0 65 6c 22 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 75 70 29 0a 20 20 20 el"......dirvish-subtree-up)....
1b600 28 22 72 22 20 22 20 20 52 65 6d 6f 76 65 20 63 75 72 72 65 6e 74 20 73 75 62 74 72 65 65 22 20 ("r"."..Remove.current.subtree".
1b620 20 20 20 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 72 65 6d 6f 76 65 29 0a 20 20 20 28 ....dirvish-subtree-remove)....(
1b640 22 63 22 20 22 20 20 52 65 6d 6f 76 65 20 61 6c 6c 20 73 75 62 74 72 65 65 73 22 20 20 20 20 20 "c"."..Remove.all.subtrees".....
1b660 20 20 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 63 6c 65 61 72 29 5d 29 0a 0a 28 70 72 ...dirvish-subtree-clear)])..(pr
1b680 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 29 0a 3b 3b 3b 20 64 69 72 76 ovide.'dirvish-subtree).;;;.dirv
1b6a0 69 73 68 2d 73 75 62 74 72 65 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 ish-subtree.el.ends.here........
1b6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b800 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 66 64 dirvish-20230519.1500/dirvish-fd
1b820 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.............................
1b840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b860 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
1b880 30 30 35 31 32 33 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 30 34 30 00 20 30 00 00 00 0051232.00000000000.015040..0...
1b8a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b8c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b8e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b900 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...................
1b920 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...................
1b940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b9a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b9c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1b9e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
1ba00 3b 3b 3b 20 64 69 72 76 69 73 68 2d 66 64 2e 65 6c 20 2d 2d 2d 20 66 69 6e 64 2d 64 69 72 65 64 ;;;.dirvish-fd.el.---.find-dired
1ba20 20 61 6c 74 65 72 6e 61 74 69 76 65 20 75 73 69 6e 67 20 66 64 20 20 2d 2a 2d 20 6c 65 78 69 63 .alternative.using.fd..-*-.lexic
1ba40 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 3b 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 al-binding:.t;.-*-..;;.Copyright
1ba60 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 .(C).2021-2022.Alex.Lu.;;.Author
1ba80 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 .:.Alex.Lu.<https://github.com/a
1baa0 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b lexluigit>.;;.Version:.2.0.53.;;
1bac0 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b .Keywords:.files,.convenience.;;
1bae0 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c .Homepage:.https://github.com/al
1bb00 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 exluigit/dirvish.;;.SPDX-License
1bb20 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b -Identifier:.GPL-3.0-or-later..;
1bb40 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 60 66 64 27 20 69 6e 74 65 67 72 61 74 ;;.Commentary:..;;.`fd'.integrat
1bb60 69 6f 6e 20 66 6f 72 20 44 69 72 76 69 73 68 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 ion.for.Dirvish...;;;.Code:..(re
1bb80 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 quire.'dirvish)..(defcustom.dirv
1bba0 69 73 68 2d 66 64 2d 73 77 69 74 63 68 65 73 20 22 22 0a 20 20 22 46 64 20 61 72 67 75 6d 65 6e ish-fd-switches.""..."Fd.argumen
1bbc0 74 73 20 69 6e 73 65 72 74 65 64 20 62 65 66 6f 72 65 20 75 73 65 72 20 69 6e 70 75 74 2e 22 0a ts.inserted.before.user.input.".
1bbe0 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 ..:type.'string.:group.'dirvish)
1bc00 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 66 69 6e 64 2d 66 64 2d 70 72 6f ..(defun.dirvish-fd--find-fd-pro
1bc20 67 72 61 6d 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 6d 6f 74 65 29 0a 20 20 22 46 69 6e 64 20 gram.(&optional.remote)..."Find.
1bc40 66 64 20 70 72 6f 67 72 61 6d 6d 20 6f 6e 20 61 20 6c 6f 63 61 6c 20 6f 72 20 60 52 45 4d 4f 54 fd.programm.on.a.local.or.`REMOT
1bc60 45 27 20 68 6f 73 74 20 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 64 20 28 65 78 65 63 75 74 61 62 E'.host.."...(let.((fd.(executab
1bc80 6c 65 2d 66 69 6e 64 20 22 66 64 22 20 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 28 66 le-find."fd".remote)).........(f
1bca0 64 66 69 6e 64 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 66 64 66 69 6e 64 22 20 dfind.(executable-find."fdfind".
1bcc0 72 65 6d 6f 74 65 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 66 64 20 66 64 29 0a 20 20 20 20 remote))).....(cond.(fd.fd).....
1bce0 20 20 20 20 20 20 28 66 64 66 69 6e 64 20 66 64 66 69 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 ......(fdfind.fdfind)...........
1bd00 28 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 66 (t.nil))))..(defcustom.dirvish-f
1bd20 64 2d 70 72 6f 67 72 61 6d 0a 20 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 66 69 6e 64 2d 66 64 d-program...(dirvish-fd--find-fd
1bd40 2d 70 72 6f 67 72 61 6d 29 0a 20 20 22 54 68 65 20 64 65 66 61 75 6c 74 20 66 64 20 70 72 6f 67 -program)..."The.default.fd.prog
1bd60 72 61 6d 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 20 3a 67 72 6f 75 70 20 27 64 69 ram."...:type.'string.:group.'di
1bd80 72 76 69 73 68 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 66 69 6e 64 2d rvish)..(defun.dirvish-fd--find-
1bda0 67 6e 75 2d 6c 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 72 65 6d 6f 74 65 29 0a 20 20 22 46 69 6e gnu-ls.(&optional.remote)..."Fin
1bdc0 64 20 6c 73 20 66 72 6f 6d 20 67 6e 75 20 63 6f 72 65 75 74 69 6c 73 20 6f 6e 20 61 20 6c 6f 63 d.ls.from.gnu.coreutils.on.a.loc
1bde0 61 6c 20 6f 72 20 52 45 4d 4f 54 45 20 68 6f 73 74 20 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6c al.or.REMOTE.host.."...(let*.((l
1be00 73 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 6c 73 22 20 72 65 6d 6f 74 65 29 29 s.(executable-find."ls".remote))
1be20 0a 20 20 20 20 20 20 20 20 20 28 67 6c 73 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 ..........(gls.(executable-find.
1be40 22 67 6c 73 22 20 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 70 20 28 65 78 "gls".remote))..........(idp.(ex
1be60 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 69 6e 73 65 72 74 2d 64 69 72 65 63 74 6f 72 79 2d 70 ecutable-find.insert-directory-p
1be80 72 6f 67 72 61 6d 20 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 73 2d 69 73 2d rogram.remote))..........(ls-is-
1bea0 67 6e 75 3f 20 28 61 6e 64 20 6c 73 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 gnu?.(and.ls.(=.0.(process-file.
1bec0 6c 73 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 22 2d 2d 76 65 72 73 69 6f 6e 22 29 29 29 29 0a 20 ls.nil.nil.nil."--version"))))..
1bee0 20 20 20 20 20 20 20 20 28 69 64 70 2d 69 73 2d 67 6e 75 2d 6c 73 3f 0a 20 20 20 20 20 20 20 20 ........(idp-is-gnu-ls?.........
1bf00 20 20 28 61 6e 64 20 69 64 70 20 28 3d 20 30 20 28 70 72 6f 63 65 73 73 2d 66 69 6c 65 20 69 64 ..(and.idp.(=.0.(process-file.id
1bf20 70 20 6e 69 6c 20 6e 69 6c 20 6e 69 6c 20 22 2d 2d 76 65 72 73 69 6f 6e 22 29 29 29 29 29 0a 20 p.nil.nil.nil."--version")))))..
1bf40 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 3b 3b 20 6a 75 73 74 20 75 73 65 20 47 4e 55 20 6c 73 ...(cond......;;.just.use.GNU.ls
1bf60 20 69 66 20 66 6f 75 6e 64 0a 20 20 20 20 20 28 6c 73 2d 69 73 2d 67 6e 75 3f 20 6c 73 29 0a 20 .if.found......(ls-is-gnu?.ls)..
1bf80 20 20 20 20 3b 3b 20 75 73 65 20 69 6e 73 65 72 74 2d 64 69 72 65 63 74 6f 72 79 2d 70 72 6f 67 ....;;.use.insert-directory-prog
1bfa0 72 61 6d 20 69 66 20 69 74 20 70 6f 69 6e 74 73 20 74 6f 20 47 4e 55 20 6c 73 0a 20 20 20 20 20 ram.if.it.points.to.GNU.ls......
1bfc0 28 69 64 70 2d 69 73 2d 67 6e 75 2d 6c 73 3f 20 69 6e 73 65 72 74 2d 64 69 72 65 63 74 6f 72 79 (idp-is-gnu-ls?.insert-directory
1bfe0 2d 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 3b 3b 20 68 65 75 72 69 73 74 69 63 3a 20 47 4e 55 -program)......;;.heuristic:.GNU
1c000 20 6c 73 20 69 73 20 6f 66 74 65 6e 20 69 6e 73 74 61 6c 6c 65 64 20 61 73 20 67 6c 73 20 62 79 .ls.is.often.installed.as.gls.by
1c020 20 48 6f 6d 65 62 72 65 77 20 6f 6e 20 4d 61 63 0a 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 .Homebrew.on.Mac......((and.(eq.
1c040 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 20 67 6c 73 29 20 67 6c 73 29 0a 20 system-type.'darwin).gls).gls)..
1c060 20 20 20 20 3b 3b 20 66 61 6c 6c 62 61 63 6b 3a 20 75 73 65 20 69 6e 73 65 72 74 2d 64 69 72 65 ....;;.fallback:.use.insert-dire
1c080 63 74 6f 72 79 2d 70 72 6f 67 72 61 6d 2c 20 62 75 74 20 77 61 72 6e 20 74 68 65 20 75 73 65 72 ctory-program,.but.warn.the.user
1c0a0 20 74 68 61 74 20 69 74 20 6d 61 79 20 6e 6f 74 20 62 65 20 63 6f 6d 70 61 74 69 62 6c 65 0a 20 .that.it.may.not.be.compatible..
1c0c0 20 20 20 20 28 74 20 28 77 61 72 6e 20 22 60 64 69 72 76 69 73 68 2d 66 64 27 20 72 65 71 75 69 ....(t.(warn."`dirvish-fd'.requi
1c0e0 72 65 73 20 60 6c 73 27 20 66 72 6f 6d 20 47 4e 55 20 63 6f 72 65 75 74 69 6c 73 2c 20 70 6c 65 res.`ls'.from.GNU.coreutils,.ple
1c100 61 73 65 20 69 6e 73 74 61 6c 6c 20 69 74 22 29 0a 20 20 20 20 20 20 20 20 69 6e 73 65 72 74 2d ase.install.it").........insert-
1c120 64 69 72 65 63 74 6f 72 79 2d 70 72 6f 67 72 61 6d 29 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f directory-program))))..(defcusto
1c140 6d 20 64 69 72 76 69 73 68 2d 66 64 2d 6c 73 2d 70 72 6f 67 72 61 6d 0a 20 20 28 64 69 72 76 69 m.dirvish-fd-ls-program...(dirvi
1c160 73 68 2d 66 64 2d 2d 66 69 6e 64 2d 67 6e 75 2d 6c 73 29 0a 20 20 22 4c 69 73 74 69 6e 67 20 70 sh-fd--find-gnu-ls)..."Listing.p
1c180 72 6f 67 72 61 6d 20 66 6f 72 20 60 66 64 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 73 74 72 69 rogram.for.`fd'."...:type.'(stri
1c1a0 6e 67 20 3a 74 61 67 20 22 4c 69 73 74 69 6e 67 20 70 72 6f 67 72 61 6d 2c 20 73 75 63 68 20 61 ng.:tag."Listing.program,.such.a
1c1c0 73 20 60 6c 73 27 22 29 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 63 s.`ls'").:group.'dirvish)..(defc
1c1e0 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 66 64 2d 72 65 67 65 78 2d 62 75 69 6c 64 65 72 0a 20 ustom.dirvish-fd-regex-builder..
1c200 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 6f 72 64 65 72 6c 65 73 73 2d 70 61 74 74 65 72 6e .(if.(fboundp.'orderless-pattern
1c220 2d 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 20 20 23 27 6f 72 64 65 72 6c 65 73 73 2d 70 61 74 -compiler).......#'orderless-pat
1c240 74 65 72 6e 2d 63 6f 6d 70 69 6c 65 72 0a 20 20 20 20 23 27 73 70 6c 69 74 2d 73 74 72 69 6e 67 tern-compiler.....#'split-string
1c260 29 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 6f 73 65 20 74 68 )..."Function.used.to.compose.th
1c280 65 20 72 65 67 65 78 20 6c 69 73 74 20 66 6f 72 20 6e 61 72 72 6f 77 69 6e 67 2e 0a 54 68 65 20 e.regex.list.for.narrowing..The.
1c2a0 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 20 function.takes.the.input.string.
1c2c0 61 73 20 69 74 73 20 73 6f 6c 65 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 0a 73 68 6f 75 6c 64 20 as.its.sole.argument.and.should.
1c2e0 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 73 return.a.list.of.regular.express
1c300 69 6f 6e 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 ions."...:group.'dirvish.:type.'
1c320 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 66 64 function)..(defcustom.dirvish-fd
1c340 2d 64 65 62 6f 75 6e 63 65 20 30 2e 32 0a 20 20 22 4c 69 6b 65 20 60 64 69 72 76 69 73 68 2d 72 -debounce.0.2..."Like.`dirvish-r
1c360 65 64 69 73 70 6c 61 79 2d 64 65 62 6f 75 6e 63 65 27 2c 20 62 75 74 20 75 73 65 64 20 66 6f 72 edisplay-debounce',.but.used.for
1c380 20 66 64 20 69 6e 70 75 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 .fd.input."...:group.'dirvish.:t
1c3a0 79 70 65 20 27 66 6c 6f 61 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d ype.'float)..(defcustom.dirvish-
1c3c0 66 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 20 22 2f 22 0a 20 20 22 44 65 66 61 75 6c 74 20 64 69 fd-default-dir."/"..."Default.di
1c3e0 72 65 63 74 6f 72 79 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 66 64 2d 6a 75 6d 70 27 2e 22 0a rectory.for.`dirvish-fd-jump'.".
1c400 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 64 69 72 65 63 74 6f ..:group.'dirvish.:type.'directo
1c420 72 79 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 66 64 2d 62 75 66 6e 61 6d ry)..(defconst.dirvish-fd-bufnam
1c440 65 20 22 f0 9f 94 8d 25 73 f0 9f 93 81 25 73 f0 9f 93 81 25 73 22 29 0a 28 64 65 66 63 6f 6e 73 e."....%s....%s....%s").(defcons
1c460 74 20 64 69 72 76 69 73 68 2d 66 64 2d 68 65 61 64 65 72 0a 20 20 28 64 69 72 76 69 73 68 2d 2d t.dirvish-fd-header...(dirvish--
1c480 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6d 74 2d 73 65 74 74 65 72 20 27 28 66 64 2d 73 77 69 74 63 68 mode-line-fmt-setter.'(fd-switch
1c4a0 65 73 29 20 27 28 66 64 2d 74 69 6d 65 73 74 61 6d 70 20 66 64 2d 70 77 64 20 22 20 22 29 20 74 es).'(fd-timestamp.fd-pwd.".").t
1c4c0 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 66 64 2d 69 6e 70 75 74 2d 68 69 73 74 )).(defvar.dirvish-fd-input-hist
1c4e0 6f 72 79 20 6e 69 6c 20 22 48 69 73 74 6f 72 79 20 6c 69 73 74 20 6f 66 20 66 64 20 69 6e 70 75 ory.nil."History.list.of.fd.inpu
1c500 74 20 69 6e 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 29 0a 28 64 65 66 76 61 72 20 64 t.in.the.minibuffer.").(defvar.d
1c520 69 72 76 69 73 68 2d 66 64 2d 64 65 62 6f 75 6e 63 65 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 28 64 irvish-fd-debounce-timer.nil).(d
1c540 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 6f 75 74 70 75 74 20 22 efvar-local.dirvish-fd--output."
1c560 22 29 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 ").(defvar-local.dirvish-fd--inp
1c580 75 74 20 22 22 20 22 4c 61 73 74 20 75 73 65 64 20 66 64 20 75 73 65 72 20 69 6e 70 75 74 2e 22 ut.""."Last.used.fd.user.input."
1c5a0 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 6e 73 75 72 65 2d 66 64 20 )..(defun.dirvish-fd--ensure-fd.
1c5c0 28 72 65 6d 6f 74 65 29 0a 20 20 22 52 65 74 75 72 6e 20 66 64 20 65 78 65 63 75 74 61 62 6c 65 (remote)..."Return.fd.executable
1c5e0 20 6f 6e 20 52 45 4d 4f 54 45 20 6f 72 20 6c 6f 63 61 6c 68 6f 73 74 2e 0a 52 61 69 73 65 20 61 .on.REMOTE.or.localhost..Raise.a
1c600 6e 20 65 72 72 6f 72 20 69 66 20 66 64 20 65 78 65 63 75 74 61 62 6c 65 20 69 73 20 6e 6f 74 20 n.error.if.fd.executable.is.not.
1c620 61 76 61 69 6c 61 62 6c 65 2e 22 0a 20 20 28 6f 72 20 28 61 6e 64 20 72 65 6d 6f 74 65 20 28 64 available."...(or.(and.remote.(d
1c640 69 72 76 69 73 68 2d 66 64 2d 2d 66 69 6e 64 2d 66 64 2d 70 72 6f 67 72 61 6d 20 72 65 6d 6f 74 irvish-fd--find-fd-program.remot
1c660 65 29 29 20 64 69 72 76 69 73 68 2d 66 64 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 28 75 73 e)).dirvish-fd-program.......(us
1c680 65 72 2d 65 72 72 6f 72 20 22 60 64 69 72 76 69 73 68 2d 66 64 27 20 72 65 71 75 69 72 65 73 20 er-error."`dirvish-fd'.requires.
1c6a0 60 66 64 27 2c 20 70 6c 65 61 73 65 20 69 6e 73 74 61 6c 6c 20 69 74 22 29 29 29 0a 0a 28 64 65 `fd',.please.install.it")))..(de
1c6c0 66 73 75 62 73 74 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 68 65 61 64 65 72 2d 6f 66 66 73 65 74 fsubst.dirvish-fd--header-offset
1c6e0 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 23 20 6f 66 20 68 65 61 64 65 72 20 6c 69 6e 65 73 20 .()..."Return.#.of.header.lines.
1c700 69 6e 20 61 20 66 64 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 66 20 28 6f 72 20 28 6e 6f 74 20 in.a.fd.buffer."...(if.(or.(not.
1c720 28 62 6f 75 6e 64 70 20 27 64 69 72 65 64 2d 66 72 65 65 2d 73 70 61 63 65 29 29 0a 20 20 20 20 (boundp.'dired-free-space)).....
1c740 20 20 20 20 20 20 28 65 71 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 65 ......(eq.(bound-and-true-p.dire
1c760 64 2d 66 72 65 65 2d 73 70 61 63 65 29 20 27 73 65 70 61 72 61 74 65 29 29 0a 20 20 20 20 20 20 d-free-space).'separate)).......
1c780 32 20 31 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 62 75 66 2.1))..(defsubst.dirvish-fd--buf
1c7a0 6e 61 6d 65 20 28 69 6e 70 75 74 20 64 69 72 20 64 76 29 0a 20 20 22 52 65 74 75 72 6e 20 66 64 name.(input.dir.dv)..."Return.fd
1c7c0 20 62 75 66 66 65 72 20 6e 61 6d 65 20 6f 66 20 44 56 20 77 69 74 68 20 75 73 65 72 20 49 4e 50 .buffer.name.of.DV.with.user.INP
1c7e0 55 54 20 61 74 20 44 49 52 2e 22 0a 20 20 28 66 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 66 64 UT.at.DIR."...(format.dirvish-fd
1c800 2d 62 75 66 6e 61 6d 65 20 28 6f 72 20 69 6e 70 75 74 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 -bufname.(or.input."")..........
1c820 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 28 64 69 72 65 63 74 .(file-name-nondirectory.(direct
1c840 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 ory-file-name.dir))...........(d
1c860 76 2d 6e 61 6d 65 20 64 76 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d v-name.dv)))..(defun.dirvish-fd-
1c880 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 20 28 29 0a 20 20 22 41 70 70 6c 79 20 66 64 20 53 -apply-switches.()..."Apply.fd.S
1c8a0 57 49 54 43 48 45 53 20 74 6f 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 WITCHES.to.current.buffer."...(i
1c8c0 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 2a 20 28 28 61 72 67 73 20 28 74 72 61 6e nteractive)...(let*.((args.(tran
1c8e0 73 69 65 6e 74 2d 61 72 67 73 20 74 72 61 6e 73 69 65 6e 74 2d 63 75 72 72 65 6e 74 2d 63 6f 6d sient-args.transient-current-com
1c900 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 65 73 20 28 73 74 72 69 6e mand))..........(switches.(strin
1c920 67 2d 6a 6f 69 6e 20 61 72 67 73 20 22 20 22 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d g-join.args."."))).....(dirvish-
1c940 70 72 6f 70 20 3a 66 64 2d 73 77 69 74 63 68 65 73 20 73 77 69 74 63 68 65 73 29 0a 20 20 20 20 prop.:fd-switches.switches).....
1c960 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 (revert-buffer)))..(transient-de
1c980 66 69 6e 65 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 78 74 65 6e 73 69 6f 6e fine-infix.dirvish-fd--extension
1c9a0 73 2d 73 77 69 74 63 68 20 28 29 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 46 69 6c 74 s-switch.()...:description."Filt
1c9c0 65 72 20 72 65 73 75 6c 74 73 20 62 79 20 66 69 6c 65 20 65 78 74 65 6e 73 69 6f 6e 73 22 0a 20 er.results.by.file.extensions"..
1c9e0 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 69 65 6e 74 2d 6f 70 74 69 6f 6e 0a 20 20 3a 61 72 67 .:class.'transient-option...:arg
1ca00 75 6d 65 6e 74 20 22 2d 2d 65 78 74 65 6e 73 69 6f 6e 3d 22 0a 20 20 3a 6d 75 6c 74 69 2d 76 61 ument."--extension="...:multi-va
1ca20 6c 75 65 20 27 72 65 70 65 61 74 0a 20 20 3a 70 72 6f 6d 70 74 0a 20 20 28 6c 61 6d 62 64 61 20 lue.'repeat...:prompt...(lambda.
1ca40 28 6f 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 76 61 6c 20 28 6f 72 65 66 20 6f 20 76 61 6c 75 (o).....(let*.((val.(oref.o.valu
1ca60 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 20 28 69 66 20 76 61 6c 20 28 66 6f 72 e))............(str.(if.val.(for
1ca80 6d 61 74 20 22 28 63 75 72 72 65 6e 74 3a 20 25 73 29 20 22 20 28 6d 61 70 63 6f 6e 63 61 74 20 mat."(current:.%s).".(mapconcat.
1caa0 23 27 63 6f 6e 63 61 74 20 76 61 6c 20 22 2c 22 29 29 20 22 22 29 29 29 0a 20 20 20 20 20 20 28 #'concat.val.",")).""))).......(
1cac0 66 6f 72 6d 61 74 20 22 25 73 46 69 6c 65 20 65 78 74 73 20 73 65 70 61 72 61 74 65 64 20 77 69 format."%sFile.exts.separated.wi
1cae0 74 68 20 63 6f 6d 6d 61 3a 20 22 20 73 74 72 29 29 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d th.comma:.".str))))..(transient-
1cb00 64 65 66 69 6e 65 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 78 63 6c 75 64 65 define-infix.dirvish-fd--exclude
1cb20 2d 73 77 69 74 63 68 20 28 29 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 45 78 63 6c 75 -switch.()...:description."Exclu
1cb40 64 65 20 66 69 6c 65 73 2f 64 69 72 73 20 74 68 61 74 20 6d 61 74 63 68 20 74 68 65 20 67 6c 6f de.files/dirs.that.match.the.glo
1cb60 62 20 70 61 74 74 65 72 6e 22 0a 20 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 69 65 6e 74 2d 6f b.pattern"...:class.'transient-o
1cb80 70 74 69 6f 6e 0a 20 20 3a 61 72 67 75 6d 65 6e 74 20 22 2d 2d 65 78 63 6c 75 64 65 3d 22 0a 20 ption...:argument."--exclude="..
1cba0 20 3a 6d 75 6c 74 69 2d 76 61 6c 75 65 20 27 72 65 70 65 61 74 0a 20 20 3a 70 72 6f 6d 70 74 0a .:multi-value.'repeat...:prompt.
1cbc0 20 20 28 6c 61 6d 62 64 61 20 28 6f 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 76 61 6c 20 28 6f ..(lambda.(o).....(let*.((val.(o
1cbe0 72 65 66 20 6f 20 76 61 6c 75 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 20 28 69 ref.o.value))............(str.(i
1cc00 66 20 76 61 6c 20 28 66 6f 72 6d 61 74 20 22 28 63 75 72 72 65 6e 74 3a 20 25 73 29 20 22 20 28 f.val.(format."(current:.%s).".(
1cc20 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 76 61 6c 20 22 2c 22 29 29 20 22 22 29 mapconcat.#'concat.val.","))."")
1cc40 29 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 47 6c 6f 62 20 70 61 74 74 65 72 6e )).......(format."%sGlob.pattern
1cc60 73 20 28 73 75 63 68 20 61 73 20 2a 2e 70 79 63 29 20 73 65 70 61 72 61 74 65 64 20 77 69 74 68 s.(such.as.*.pyc).separated.with
1cc80 20 63 6f 6d 6d 61 3a 20 22 20 73 74 72 29 29 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 .comma:.".str))))..(transient-de
1cca0 66 69 6e 65 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 73 65 61 72 63 68 2d 70 61 fine-infix.dirvish-fd--search-pa
1ccc0 74 74 65 72 6e 2d 69 6e 66 69 78 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 73 65 61 72 63 68 20 ttern-infix.()..."Change.search.
1cce0 70 61 74 74 65 72 6e 2e 22 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 43 68 61 6e 67 65 pattern."...:description."Change
1cd00 20 73 65 61 72 63 68 20 70 61 74 74 65 72 6e 22 0a 20 20 3a 63 6c 61 73 73 20 27 74 72 61 6e 73 .search.pattern"...:class.'trans
1cd20 69 65 6e 74 2d 6c 69 73 70 2d 76 61 72 69 61 62 6c 65 0a 20 20 3a 76 61 72 69 61 62 6c 65 20 27 ient-lisp-variable...:variable.'
1cd40 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 75 74 0a 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d dirvish-fd--input...:reader.(lam
1cd60 62 64 61 20 28 5f 70 72 6f 6d 70 74 20 5f 69 6e 69 74 20 5f 68 69 73 74 29 0a 20 20 20 20 20 20 bda.(_prompt._init._hist).......
1cd80 20 20 20 20 20 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 49 6e 70 75 74 20 73 65 ......(completing-read."Input.se
1cda0 61 72 63 68 20 70 61 74 74 65 72 6e 3a 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 arch.pattern:.".................
1cdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 66 64 2d 69 6e 70 75 74 2d 68 69 .............dirvish-fd-input-hi
1cde0 73 74 6f 72 79 20 6e 69 6c 20 6e 69 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 75 74 29 story.nil.nil.dirvish-fd--input)
1ce00 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 ))..;;;###autoload.(autoload.'di
1ce20 72 76 69 73 68 2d 66 64 2d 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d rvish-fd-switches-menu."dirvish-
1ce40 66 64 22 20 6e 69 6c 20 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 fd".nil.t).(transient-define-pre
1ce60 66 69 78 20 64 69 72 76 69 73 68 2d 66 64 2d 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 20 28 29 0a fix.dirvish-fd-switches-menu.().
1ce80 20 20 22 53 65 74 75 70 20 66 64 20 73 77 69 74 63 68 65 73 2e 22 0a 20 20 3a 69 6e 69 74 2d 76 .."Setup.fd.switches."...:init-v
1cea0 61 6c 75 65 0a 20 20 28 6c 61 6d 62 64 61 20 28 6f 29 20 28 6f 73 65 74 20 6f 20 76 61 6c 75 65 alue...(lambda.(o).(oset.o.value
1cec0 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 .(split-string.(or.(dirvish-prop
1cee0 20 3a 66 64 2d 73 77 69 74 63 68 65 73 29 20 22 22 29 29 29 29 0a 20 20 5b 3a 64 65 73 63 72 69 .:fd-switches).""))))...[:descri
1cf00 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f ption....(lambda.().(dirvish--fo
1cf20 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rmat-menu-heading...............
1cf40 20 22 53 65 74 75 70 20 46 44 20 53 77 69 74 63 68 65 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 ."Setup.FD.Switches"............
1cf60 20 20 20 20 22 49 67 6e 6f 72 65 20 52 61 6e 67 65 20 5b 62 79 20 64 65 66 61 75 6c 74 20 69 67 ...."Ignore.Range.[by.default.ig
1cf80 6e 6f 72 65 20 41 4c 4c 5d 0a 20 20 56 43 53 3a 20 2e 67 69 74 69 67 6e 6f 72 65 20 2b 20 2e 67 nore.ALL]...VCS:..gitignore.+..g
1cfa0 69 74 2f 69 6e 66 6f 2f 65 78 63 6c 75 64 65 20 2b 20 24 48 4f 4d 45 2f 2e 63 6f 6e 66 69 67 2f it/info/exclude.+.$HOME/.config/
1cfc0 67 69 74 2f 69 67 6e 6f 72 65 0a 20 20 41 4c 4c 3a 20 56 43 53 20 2b 20 2e 69 67 6e 6f 72 65 20 git/ignore...ALL:.VCS.+..ignore.
1cfe0 2b 20 2e 66 64 69 67 6e 6f 72 65 20 2b 20 24 48 4f 4d 45 2f 2e 63 6f 6e 66 69 67 2f 66 64 2f 69 +..fdignore.+.$HOME/.config/fd/i
1d000 67 6e 6f 72 65 22 29 29 0a 20 20 20 5b 22 46 69 6c 65 20 74 79 70 65 73 20 28 6d 75 6c 74 69 70 gnore"))....["File.types.(multip
1d020 6c 65 20 74 79 70 65 73 20 63 61 6e 20 62 65 20 69 6e 63 6c 75 64 65 64 29 22 0a 20 20 20 20 28 le.types.can.be.included)".....(
1d040 33 20 22 66 22 20 22 20 53 65 61 72 63 68 20 66 6f 72 20 72 65 67 75 6c 61 72 20 66 69 6c 65 73 3."f".".Search.for.regular.files
1d060 22 20 22 2d 2d 74 79 70 65 3d 66 69 6c 65 22 29 0a 20 20 20 20 28 33 20 22 64 22 20 22 20 53 65 "."--type=file").....(3."d".".Se
1d080 61 72 63 68 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 22 20 22 2d 2d 74 79 70 65 3d 64 69 arch.for.directories"."--type=di
1d0a0 72 65 63 74 6f 72 79 22 29 0a 20 20 20 20 28 33 20 22 6c 22 20 22 20 53 65 61 72 63 68 20 66 6f rectory").....(3."l".".Search.fo
1d0c0 72 20 73 79 6d 62 6f 6c 69 63 20 6c 69 6e 6b 73 22 20 22 2d 2d 74 79 70 65 3d 73 79 6d 6c 69 6e r.symbolic.links"."--type=symlin
1d0e0 6b 22 29 0a 20 20 20 20 28 33 20 22 73 22 20 22 20 53 65 61 72 63 68 20 66 6f 72 20 73 6f 63 6b k").....(3."s".".Search.for.sock
1d100 65 74 73 22 20 22 2d 2d 74 79 70 65 3d 73 6f 63 6b 65 74 22 29 0a 20 20 20 20 28 33 20 22 70 22 ets"."--type=socket").....(3."p"
1d120 20 22 20 53 65 61 72 63 68 20 66 6f 72 20 6e 61 6d 65 64 20 70 69 70 65 73 22 20 22 2d 2d 74 79 .".Search.for.named.pipes"."--ty
1d140 70 65 3d 70 69 70 65 22 29 0a 20 20 20 20 28 33 20 22 78 22 20 22 20 53 65 61 72 63 68 20 66 6f pe=pipe").....(3."x".".Search.fo
1d160 72 20 65 78 65 63 75 74 61 62 6c 65 22 20 22 2d 2d 74 79 70 65 3d 65 78 65 63 75 74 61 62 6c 65 r.executable"."--type=executable
1d180 22 29 0a 20 20 20 20 28 33 20 22 65 22 20 22 20 53 65 61 72 63 68 20 66 6f 72 20 65 6d 70 74 79 ").....(3."e".".Search.for.empty
1d1a0 20 66 69 6c 65 73 20 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 22 20 22 2d 2d 74 79 70 65 3d 65 .files.or.directories"."--type=e
1d1c0 6d 70 74 79 22 29 0a 20 20 20 20 22 22 0a 20 20 20 20 22 54 6f 67 67 6c 65 73 22 0a 20 20 20 20 mpty").....""....."Toggles".....
1d1e0 28 33 20 22 2d 48 22 20 22 49 6e 63 6c 75 64 65 20 68 69 64 64 65 6e 20 66 69 6c 65 73 7c 64 69 (3."-H"."Include.hidden.files|di
1d200 72 73 20 69 6e 20 74 68 65 20 72 65 73 75 6c 74 73 22 20 22 2d 2d 68 69 64 64 65 6e 22 29 0a 20 rs.in.the.results"."--hidden")..
1d220 20 20 20 28 33 20 22 2d 49 22 20 22 53 68 6f 77 20 72 65 73 75 6c 74 73 20 66 72 6f 6d 20 41 4c ...(3."-I"."Show.results.from.AL
1d240 4c 22 20 22 2d 2d 6e 6f 2d 69 67 6e 6f 72 65 22 29 0a 20 20 20 20 28 34 20 22 69 76 22 20 22 53 L"."--no-ignore").....(4."iv"."S
1d260 68 6f 77 20 72 65 73 75 6c 74 73 20 66 72 6f 6d 20 56 43 53 22 20 22 2d 2d 6e 6f 2d 69 67 6e 6f how.results.from.VCS"."--no-igno
1d280 72 65 2d 76 63 73 22 29 0a 20 20 20 20 28 35 20 22 69 70 22 20 22 53 68 6f 77 20 72 65 73 75 6c re-vcs").....(5."ip"."Show.resul
1d2a0 74 73 20 66 72 6f 6d 20 2e 67 69 74 69 67 6e 6f 72 65 20 69 6e 20 70 61 72 65 6e 74 20 64 69 72 ts.from..gitignore.in.parent.dir
1d2c0 73 22 20 22 2d 2d 6e 6f 2d 69 67 6e 6f 72 65 2d 70 61 72 65 6e 74 22 29 0a 20 20 20 20 28 33 20 s"."--no-ignore-parent").....(3.
1d2e0 22 2d 73 22 20 22 50 65 72 66 6f 72 6d 20 61 20 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 20 73 "-s"."Perform.a.case-sensitive.s
1d300 65 61 72 63 68 22 20 22 2d 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 22 29 0a 20 20 20 20 28 earch"."--case-sensitive").....(
1d320 34 20 22 2d 67 22 20 22 50 65 72 66 6f 72 6d 20 61 20 67 6c 6f 62 2d 62 61 73 65 64 20 28 72 61 4."-g"."Perform.a.glob-based.(ra
1d340 74 68 65 72 20 74 68 61 6e 20 72 65 67 65 78 2d 62 61 73 65 64 29 20 73 65 61 72 63 68 22 20 22 ther.than.regex-based).search"."
1d360 2d 2d 67 6c 6f 62 22 29 0a 20 20 20 20 28 34 20 22 2d 46 22 20 22 54 72 65 61 74 20 74 68 65 20 --glob").....(4."-F"."Treat.the.
1d380 70 61 74 74 65 72 6e 20 61 73 20 61 20 6c 69 74 65 72 61 6c 20 73 74 72 69 6e 67 22 20 22 2d 2d pattern.as.a.literal.string"."--
1d3a0 66 69 78 65 64 2d 73 74 72 69 6e 67 73 22 29 0a 20 20 20 20 28 34 20 22 2d 4c 22 20 22 54 72 61 fixed-strings").....(4."-L"."Tra
1d3c0 76 65 72 73 65 20 73 79 6d 62 6f 6c 69 63 20 6c 69 6e 6b 73 22 20 22 2d 2d 66 6f 6c 6c 6f 77 22 verse.symbolic.links"."--follow"
1d3e0 29 0a 20 20 20 20 28 34 20 22 2d 70 22 20 22 4c 65 74 20 74 68 65 20 70 61 74 74 65 72 6e 20 6d ).....(4."-p"."Let.the.pattern.m
1d400 61 74 63 68 20 61 67 61 69 6e 73 74 20 74 68 65 20 66 75 6c 6c 20 70 61 74 68 22 20 22 2d 2d 66 atch.against.the.full.path"."--f
1d420 75 6c 6c 2d 70 61 74 68 22 29 0a 20 20 20 20 28 35 20 22 6d 72 22 20 22 4d 61 78 69 6d 75 6d 20 ull-path").....(5."mr"."Maximum.
1d440 6e 75 6d 62 65 72 20 6f 66 20 73 65 61 72 63 68 20 72 65 73 75 6c 74 73 22 20 22 2d 2d 6d 61 78 number.of.search.results"."--max
1d460 2d 72 65 73 75 6c 74 73 22 29 0a 20 20 20 20 28 35 20 22 6d 74 22 20 22 44 6f 20 6e 6f 74 20 64 -results").....(5."mt"."Do.not.d
1d480 65 73 63 65 6e 64 20 69 6e 74 6f 20 61 20 64 69 66 66 65 72 65 6e 74 20 66 69 6c 65 20 73 79 73 escend.into.a.different.file.sys
1d4a0 74 65 6d 73 22 20 22 2d 2d 6d 6f 75 6e 74 22 29 0a 20 20 20 20 28 35 20 22 50 22 20 22 20 44 6f tems"."--mount").....(5."P".".Do
1d4c0 20 6e 6f 74 20 74 72 61 76 65 72 73 65 20 69 6e 74 6f 20 6d 61 74 63 68 69 6e 67 20 64 69 72 65 .not.traverse.into.matching.dire
1d4e0 63 74 6f 72 69 65 73 22 20 22 2d 2d 70 72 75 6e 65 22 29 0a 20 20 20 20 22 22 0a 20 20 20 20 22 ctories"."--prune").....""....."
1d500 4f 70 74 69 6f 6e 73 22 0a 20 20 20 20 28 34 20 22 2d 65 22 20 64 69 72 76 69 73 68 2d 66 64 2d Options".....(4."-e".dirvish-fd-
1d520 2d 65 78 74 65 6e 73 69 6f 6e 73 2d 73 77 69 74 63 68 29 0a 20 20 20 20 28 34 20 22 2d 45 22 20 -extensions-switch).....(4."-E".
1d540 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 78 63 6c 75 64 65 2d 73 77 69 74 63 68 29 0a 20 20 20 20 dirvish-fd--exclude-switch).....
1d560 28 34 20 22 2d 44 22 20 22 4d 61 78 20 6c 65 76 65 6c 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 (4."-D"."Max.level.for.directory
1d580 20 74 72 61 76 65 72 73 69 6e 67 22 20 22 2d 2d 6d 61 78 2d 64 65 70 74 68 3d 22 29 0a 20 20 20 .traversing"."--max-depth=")....
1d5a0 20 28 35 20 22 2d 64 22 20 22 4f 6e 6c 79 20 73 68 6f 77 20 72 65 73 75 6c 74 73 20 73 74 61 72 .(5."-d"."Only.show.results.star
1d5c0 74 69 6e 67 20 61 74 20 74 68 65 20 64 65 70 74 68 22 20 22 2d 2d 6d 69 78 2d 64 65 70 74 68 3d ting.at.the.depth"."--mix-depth=
1d5e0 22 29 0a 20 20 20 20 28 35 20 22 67 64 22 20 22 4f 6e 6c 79 20 73 68 6f 77 20 72 65 73 75 6c 74 ").....(5."gd"."Only.show.result
1d600 73 20 73 74 61 72 74 69 6e 67 20 61 74 20 74 68 65 20 65 78 61 63 74 20 67 69 76 65 6e 20 64 65 s.starting.at.the.exact.given.de
1d620 70 74 68 22 20 22 2d 2d 65 78 61 63 74 2d 64 65 70 74 68 3d 22 29 0a 20 20 20 20 28 35 20 22 69 pth"."--exact-depth=").....(5."i
1d640 66 22 20 22 41 64 64 20 61 20 63 75 73 74 6f 6d 20 69 67 6e 6f 72 65 2d 66 69 6c 65 20 69 6e 20 f"."Add.a.custom.ignore-file.in.
1d660 27 2e 67 69 74 69 67 6e 6f 72 65 27 20 66 6f 72 6d 61 74 22 20 22 2d 2d 69 67 6e 6f 72 65 2d 66 '.gitignore'.format"."--ignore-f
1d680 69 6c 65 3d 22 0a 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 20 28 5f 70 ile="........:reader.(lambda.(_p
1d6a0 72 6f 6d 70 74 20 5f 69 6e 69 74 20 5f 68 69 73 74 29 20 28 72 65 61 64 2d 66 69 6c 65 2d 6e 61 rompt._init._hist).(read-file-na
1d6c0 6d 65 20 22 43 68 6f 6f 73 65 20 69 67 6e 6f 72 65 20 66 69 6c 65 3a 20 22 29 29 29 0a 20 20 20 me."Choose.ignore.file:.")))....
1d6e0 20 28 35 20 22 2d 53 22 20 22 4c 69 6d 69 74 20 72 65 73 75 6c 74 73 20 62 61 73 65 64 20 6f 6e .(5."-S"."Limit.results.based.on
1d700 20 74 68 65 20 73 69 7a 65 20 6f 66 20 66 69 6c 65 73 22 20 22 2d 2d 73 69 7a 65 3d 22 0a 20 20 .the.size.of.files"."--size="...
1d720 20 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 20 28 5f 70 72 6f 6d 70 74 20 5f 69 .....:reader.(lambda.(_prompt._i
1d740 6e 69 74 20 5f 68 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 nit._hist)..................(rea
1d760 64 2d 73 74 72 69 6e 67 20 22 49 6e 70 75 74 20 66 69 6c 65 20 73 69 7a 65 20 75 73 69 6e 67 20 d-string."Input.file.size.using.
1d780 74 68 65 20 66 6f 72 6d 61 74 20 3c 2b 2d 3e 3c 4e 55 4d 3e 3c 55 4e 49 54 3e 20 28 65 67 2e 20 the.format.<+-><NUM><UNIT>.(eg..
1d7a0 2b 31 30 30 6d 29 3a 20 22 29 29 29 0a 20 20 20 20 28 35 20 22 63 6e 22 20 22 46 69 6c 74 65 72 +100m):."))).....(5."cn"."Filter
1d7c0 20 72 65 73 75 6c 74 73 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 66 69 6c 65 20 6d 74 69 6d 65 .results.based.on.the.file.mtime
1d7e0 20 6e 65 77 65 72 20 74 68 61 6e 22 20 22 2d 2d 63 68 61 6e 67 65 64 2d 77 69 74 68 69 6e 3d 22 .newer.than"."--changed-within="
1d800 0a 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 20 28 5f 70 72 6f 6d 70 74 ........:reader.(lambda.(_prompt
1d820 20 5f 69 6e 69 74 20 5f 68 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ._init._hist)..................(
1d840 72 65 61 64 2d 73 74 72 69 6e 67 20 22 49 6e 70 75 74 20 61 20 64 75 72 61 74 69 6f 6e 20 28 31 read-string."Input.a.duration.(1
1d860 30 68 2c 20 31 64 2c 20 33 35 6d 69 6e 29 20 6f 72 20 61 20 74 69 6d 65 20 70 6f 69 6e 74 20 28 0h,.1d,.35min).or.a.time.point.(
1d880 32 30 31 38 2d 31 30 2d 32 37 20 31 30 3a 30 30 3a 30 30 29 3a 20 22 29 29 29 0a 20 20 20 20 28 2018-10-27.10:00:00):."))).....(
1d8a0 35 20 22 63 6f 22 20 22 46 69 6c 74 65 72 20 72 65 73 75 6c 74 73 20 62 61 73 65 64 20 6f 6e 20 5."co"."Filter.results.based.on.
1d8c0 74 68 65 20 66 69 6c 65 20 6d 74 69 6d 65 20 6f 6c 64 65 72 20 74 68 61 6e 22 20 22 2d 2d 63 68 the.file.mtime.older.than"."--ch
1d8e0 61 6e 67 65 64 2d 62 65 66 6f 72 65 3d 22 0a 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c anged-before="........:reader.(l
1d900 61 6d 62 64 61 20 28 5f 70 72 6f 6d 70 74 20 5f 69 6e 69 74 20 5f 68 69 73 74 29 0a 20 20 20 20 ambda.(_prompt._init._hist).....
1d920 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 49 6e 70 75 74 .............(read-string."Input
1d940 20 61 20 64 75 72 61 74 69 6f 6e 20 28 31 30 68 2c 20 31 64 2c 20 33 35 6d 69 6e 29 20 6f 72 20 .a.duration.(10h,.1d,.35min).or.
1d960 61 20 74 69 6d 65 20 70 6f 69 6e 74 20 28 32 30 31 38 2d 31 30 2d 32 37 20 31 30 3a 30 30 3a 30 a.time.point.(2018-10-27.10:00:0
1d980 30 29 3a 20 22 29 29 29 0a 20 20 20 20 28 36 20 22 2d 6f 22 20 22 46 69 6c 74 65 72 20 66 69 6c 0):."))).....(6."-o"."Filter.fil
1d9a0 65 73 20 62 79 20 74 68 65 69 72 20 75 73 65 72 20 61 6e 64 2f 6f 72 20 67 72 6f 75 70 22 20 22 es.by.their.user.and/or.group"."
1d9c0 2d 2d 6f 77 6e 65 72 3d 22 0a 20 20 20 20 20 20 20 3a 72 65 61 64 65 72 20 28 6c 61 6d 62 64 61 --owner="........:reader.(lambda
1d9e0 20 28 5f 70 72 6f 6d 70 74 20 5f 69 6e 69 74 20 5f 68 69 73 74 29 0a 20 20 20 20 20 20 20 20 20 .(_prompt._init._hist)..........
1da00 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 75 73 65 72 7c 75 69 64 3a 67 ........(read-string."user|uid:g
1da20 72 6f 75 70 7c 67 69 64 20 2d 20 65 67 2e 20 6a 6f 68 6e 2c 20 3a 73 74 75 64 65 6e 74 73 2c 20 roup|gid.-.eg..john,.:students,.
1da40 21 6a 6f 68 6e 3a 73 74 75 64 65 6e 74 73 20 28 27 21 27 20 6d 65 61 6e 73 20 74 6f 20 65 78 63 !john:students.('!'.means.to.exc
1da60 6c 75 64 65 20 66 69 6c 65 73 20 69 6e 73 74 65 61 64 29 3a 20 22 29 29 29 0a 20 20 20 20 22 22 lude.files.instead):."))).....""
1da80 0a 20 20 20 20 22 41 63 74 69 6f 6e 73 22 0a 20 20 20 20 28 22 72 22 20 64 69 72 76 69 73 68 2d ....."Actions".....("r".dirvish-
1daa0 66 64 2d 2d 73 65 61 72 63 68 2d 70 61 74 74 65 72 6e 2d 69 6e 66 69 78 29 0a 20 20 20 20 28 22 fd--search-pattern-infix).....("
1dac0 52 45 54 22 20 22 41 70 70 6c 79 20 73 77 69 74 63 68 65 73 22 20 64 69 72 76 69 73 68 2d 66 64 RET"."Apply.switches".dirvish-fd
1dae0 2d 2d 61 70 70 6c 79 2d 73 77 69 74 63 68 65 73 29 5d 5d 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 --apply-switches)]])..(defun.dir
1db00 76 69 73 68 2d 66 64 2d 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 vish-fd-switch-to-buffer.(buffer
1db20 29 0a 20 20 22 53 77 69 74 63 68 20 74 6f 20 42 55 46 46 45 52 20 77 69 74 68 20 77 69 6e 64 6f )..."Switch.to.BUFFER.with.windo
1db40 77 20 75 6e 64 65 64 69 63 61 74 65 64 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 65 64 69 63 61 74 w.undedicated."...(let.((dedicat
1db60 65 64 20 28 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 29 29 20 28 77 69 6e 20 28 73 ed.(window-dedicated-p)).(win.(s
1db80 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f elected-window))).....(set-windo
1dba0 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 20 6e 69 6c 29 0a 20 20 20 20 28 70 72 6f 67 w-dedicated-p.win.nil).....(prog
1dbc0 31 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 20 1.(switch-to-buffer.buffer).....
1dbe0 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 20 64 65 ..(set-window-dedicated-p.win.de
1dc00 64 69 63 61 74 65 64 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d dicated))))..(defun.dirvish-fd--
1dc20 61 72 67 70 61 72 73 65 72 20 28 61 72 67 73 29 0a 20 20 22 50 61 72 73 65 20 66 64 20 61 72 67 argparser.(args)..."Parse.fd.arg
1dc40 73 20 74 6f 20 61 20 6c 69 73 74 20 6f 66 20 66 6c 61 67 73 20 66 72 6f 6d 20 41 52 47 53 2e 22 s.to.a.list.of.flags.from.ARGS."
1dc60 0a 20 20 28 6c 65 74 2a 20 28 28 67 6c 6f 62 70 20 28 6d 65 6d 62 65 72 20 22 2d 2d 67 6c 6f 62 ...(let*.((globp.(member."--glob
1dc80 22 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 73 65 70 20 28 6d 65 6d 62 65 72 ".args))..........(casep.(member
1dca0 20 22 2d 2d 63 61 73 65 2d 73 65 6e 73 69 74 69 76 65 22 20 61 72 67 73 29 29 0a 20 20 20 20 20 ."--case-sensitive".args))......
1dcc0 20 20 20 20 28 69 67 6e 2d 72 61 6e 67 65 20 28 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 22 2d ....(ign-range.(cond.((member."-
1dce0 2d 6e 6f 2d 69 67 6e 6f 72 65 22 20 61 72 67 73 29 20 22 6e 6f 22 29 0a 20 20 20 20 20 20 20 20 -no-ignore".args)."no").........
1dd00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 22 2d 2d 6e 6f ..................((member."--no
1dd20 2d 69 67 6e 6f 72 65 2d 76 63 73 22 20 61 72 67 73 29 20 22 6e 6f 5f 76 63 73 22 29 0a 20 20 20 -ignore-vcs".args)."no_vcs")....
1dd40 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 20 22 61 6c 6c 22 29 .......................(t."all")
1dd60 29 29 0a 20 20 20 20 20 20 20 20 20 74 79 70 65 73 20 65 78 74 73 20 65 78 63 6c 75 64 65 73 29 ))..........types.exts.excludes)
1dd80 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 61 72 67 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 63 .....(dolist.(arg.args).......(c
1dda0 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2d 2d 74 79 70 65 3d 22 20 ond.((string-prefix-p."--type=".
1ddc0 61 72 67 29 20 28 70 75 73 68 20 28 73 75 62 73 74 72 69 6e 67 20 61 72 67 20 38 29 20 74 79 70 arg).(push.(substring.arg.8).typ
1dde0 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 es)).............((string-prefix
1de00 2d 70 20 22 2d 2d 65 78 74 65 6e 73 69 6f 6e 3d 22 20 61 72 67 29 20 28 70 75 73 68 20 28 73 75 -p."--extension=".arg).(push.(su
1de20 62 73 74 72 69 6e 67 20 61 72 67 20 31 32 29 20 65 78 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 bstring.arg.12).exts))..........
1de40 20 20 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 2d 2d 65 78 63 6c 75 64 65 3d ...((string-prefix-p."--exclude=
1de60 22 20 61 72 67 29 20 28 70 75 73 68 20 28 73 75 62 73 74 72 69 6e 67 20 61 72 67 20 31 30 29 20 ".arg).(push.(substring.arg.10).
1de80 65 78 63 6c 75 64 65 73 29 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 74 79 70 65 73 20 28 6d 61 excludes)))).....(setq.types.(ma
1dea0 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 74 79 70 65 73 20 22 2c 22 29 29 0a 20 20 20 pconcat.#'concat.types.","))....
1dec0 20 28 73 65 74 71 20 65 78 74 73 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 .(setq.exts.(mapconcat.#'concat.
1dee0 65 78 74 73 20 22 2c 22 29 29 0a 20 20 20 20 28 73 65 74 71 20 65 78 63 6c 75 64 65 73 20 28 6d exts.",")).....(setq.excludes.(m
1df00 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 65 78 63 6c 75 64 65 73 20 22 2c 22 29 29 apconcat.#'concat.excludes.","))
1df20 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 61 72 67 6c 69 73 74 20 28 .....(dirvish-prop.:fd-arglist.(
1df40 6c 69 73 74 20 67 6c 6f 62 70 20 63 61 73 65 70 20 69 67 6e 2d 72 61 6e 67 65 20 74 79 70 65 73 list.globp.casep.ign-range.types
1df60 20 65 78 74 73 20 65 78 63 6c 75 64 65 73 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 .exts.excludes))))..(dirvish-def
1df80 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 64 2d 73 77 69 74 63 68 65 73 0a 20 20 22 52 65 74 ine-mode-line.fd-switches..."Ret
1dfa0 75 72 6e 20 61 20 66 6f 72 6d 61 74 74 65 64 20 73 74 72 69 6e 67 20 73 68 6f 77 69 6e 67 20 74 urn.a.formatted.string.showing.t
1dfc0 68 65 20 44 49 52 56 49 53 48 2d 46 44 2d 41 43 54 55 41 4c 2d 53 57 49 54 43 48 45 53 2e 22 0a he.DIRVISH-FD-ACTUAL-SWITCHES.".
1dfe0 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 67 6c 6f 62 70 20 2c 63 61 73 65 70 20 2c ..(pcase-let.((`(,globp.,casep.,
1e000 69 67 6e 2d 72 61 6e 67 65 20 2c 74 79 70 65 73 20 2c 65 78 74 73 20 2c 65 78 63 6c 75 64 65 73 ign-range.,types.,exts.,excludes
1e020 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a )................(dirvish-prop.:
1e040 66 64 2d 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 61 63 65 fd-arglist))...............(face
1e060 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 2d 77 69 6e 64 6f 77 2d 73 65 6c 65 63 74 65 64 2d 70 .(if.(dirvish--window-selected-p
1e080 20 64 76 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 27 64 69 .dv).........................'di
1e0a0 72 65 64 2d 68 65 61 64 65 72 20 27 73 68 61 64 6f 77 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 red-header.'shadow))).....(forma
1e0c0 74 20 22 20 20 25 73 20 7c 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 t."..%s.|.%s".............(prope
1e0e0 72 74 69 7a 65 20 22 46 44 22 20 27 66 61 63 65 20 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 rtize."FD".'face.face)..........
1e100 20 20 20 28 69 66 20 28 6e 6f 74 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 74 69 ...(if.(not.(dirvish-prop.:fd-ti
1e120 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 69 74 75 74 65 me)).................(substitute
1e140 2d 63 6f 6d 6d 61 6e 64 2d 6b 65 79 73 0a 09 09 20 22 50 72 6f 63 65 73 73 69 6e 67 2e 2e 2e 20 -command-keys...."Processing....
1e160 70 72 65 73 73 20 5c 5c 5b 64 69 72 76 69 73 68 2d 66 64 2d 6b 69 6c 6c 5d 20 74 6f 20 61 62 6f press.\\[dirvish-fd-kill].to.abo
1e180 72 74 20 74 68 65 20 73 65 61 72 63 68 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 rt.the.search")...............(f
1e1a0 6f 72 6d 61 74 20 22 25 73 20 5c 22 25 73 5c 22 20 7c 20 25 73 20 25 73 20 7c 20 25 73 20 25 73 ormat."%s.\"%s\".|.%s.%s.|.%s.%s
1e1c0 20 7c 20 25 73 20 25 73 20 7c 20 25 73 20 25 73 20 7c 20 25 73 20 25 73 20 7c 22 0a 20 20 20 20 .|.%s.%s.|.%s.%s.|.%s.%s.|".....
1e1e0 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 28 69 ..................(propertize.(i
1e200 66 20 67 6c 6f 62 70 20 22 67 6c 6f 62 3a 22 20 22 72 65 67 65 78 3a 22 29 20 27 66 61 63 65 20 f.globp."glob:"."regex:").'face.
1e220 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 28 70 72 6f face).......................(pro
1e240 70 65 72 74 69 7a 65 20 28 6f 72 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 75 74 20 22 22 pertize.(or.dirvish-fd--input.""
1e260 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 )...............................
1e280 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 72 65 67 65 78 70 2d 67 72 6f 75 ....'face.'font-lock-regexp-grou
1e2a0 70 69 6e 67 2d 63 6f 6e 73 74 72 75 63 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ping-construct).................
1e2c0 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 74 79 70 65 3a 22 20 27 66 61 63 65 20 ......(propertize."type:".'face.
1e2e0 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 28 70 72 6f face).......................(pro
1e300 70 65 72 74 69 7a 65 20 28 69 66 20 28 65 71 75 61 6c 20 74 79 70 65 73 20 22 22 29 20 22 61 6c pertize.(if.(equal.types."")."al
1e320 6c 22 20 74 79 70 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 20 l".types).......................
1e340 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 76 61 72 ............'face.'font-lock-var
1e360 69 61 62 6c 65 2d 6e 61 6d 65 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 iable-name-face)................
1e380 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 63 61 73 65 3a 22 20 27 66 61 63 65 .......(propertize."case:".'face
1e3a0 20 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 28 70 72 .face).......................(pr
1e3c0 6f 70 65 72 74 69 7a 65 20 28 69 66 20 63 61 73 65 70 20 22 73 65 6e 73 69 74 69 76 65 22 20 22 opertize.(if.casep."sensitive"."
1e3e0 73 6d 61 72 74 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 smart").........................
1e400 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d ..........'face.'font-lock-type-
1e420 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 28 70 72 6f face).......................(pro
1e440 70 65 72 74 69 7a 65 20 22 69 67 6e 6f 72 65 3a 22 20 27 66 61 63 65 20 66 61 63 65 29 0a 20 20 pertize."ignore:".'face.face)...
1e460 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 7a 65 20 ....................(propertize.
1e480 69 67 6e 2d 72 61 6e 67 65 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 ign-range.'face.'font-lock-comme
1e4a0 6e 74 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 28 nt-face).......................(
1e4c0 70 72 6f 70 65 72 74 69 7a 65 20 22 65 78 74 73 3a 22 20 27 66 61 63 65 20 66 61 63 65 29 0a 20 propertize."exts:".'face.face)..
1e4e0 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 7a 65 .....................(propertize
1e500 20 28 69 66 20 28 65 71 75 61 6c 20 65 78 74 73 20 22 22 29 20 22 61 6c 6c 22 20 65 78 74 73 29 .(if.(equal.exts."")."all".exts)
1e520 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 ................................
1e540 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 29 ...'face.'font-lock-string-face)
1e560 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
1e580 7a 65 20 22 65 78 63 6c 75 64 65 73 3a 22 20 27 66 61 63 65 20 66 61 63 65 29 0a 20 20 20 20 20 ze."excludes:".'face.face)......
1e5a0 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 28 69 66 .................(propertize.(if
1e5c0 20 28 65 71 75 61 6c 20 65 78 63 6c 75 64 65 73 20 22 22 29 20 22 6e 6f 6e 65 22 20 65 78 63 6c .(equal.excludes."")."none".excl
1e5e0 75 64 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 20 20 20 20 20 udes)...........................
1e600 20 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 73 74 72 69 6e 67 2d ........'face.'font-lock-string-
1e620 66 61 63 65 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 face))))))..(dirvish-define-mode
1e640 2d 6c 69 6e 65 20 66 64 2d 74 69 6d 65 73 74 61 6d 70 0a 20 20 22 54 69 6d 65 73 74 61 6d 70 20 -line.fd-timestamp..."Timestamp.
1e660 6f 66 20 73 65 61 72 63 68 20 66 69 6e 69 73 68 65 64 2e 22 0a 20 20 28 77 68 65 6e 20 28 63 61 of.search.finished."...(when.(ca
1e680 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 r.(dv-layout.dv)).(dirvish-prop.
1e6a0 3a 66 64 2d 74 69 6d 65 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 :fd-time)))..(dirvish-define-mod
1e6c0 65 2d 6c 69 6e 65 20 66 64 2d 70 77 64 0a 20 20 22 43 75 72 72 65 6e 74 20 77 6f 72 6b 69 6e 67 e-line.fd-pwd..."Current.working
1e6e0 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 61 62 62 72 .directory."...(propertize.(abbr
1e700 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f eviate-file-name.default-directo
1e720 72 79 29 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 0a 0a 28 64 ry).'face.'dired-directory))..(d
1e740 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 27 64 efine-obsolete-function-alias.'d
1e760 69 72 76 69 73 68 2d 72 6f 61 6d 20 23 27 64 69 72 76 69 73 68 2d 66 64 2d 6a 75 6d 70 20 22 4a irvish-roam.#'dirvish-fd-jump."J
1e780 75 6e 20 30 38 2c 20 32 30 32 32 22 29 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 66 un.08,.2022").(define-obsolete-f
1e7a0 75 6e 63 74 69 6f 6e 2d 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 66 64 2d 72 6f 61 6d 20 23 unction-alias.'dirvish-fd-roam.#
1e7c0 27 64 69 72 76 69 73 68 2d 66 64 2d 6a 75 6d 70 20 22 4a 75 6c 20 31 37 2c 20 32 30 32 32 22 29 'dirvish-fd-jump."Jul.17,.2022")
1e7e0 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 .;;;###autoload.(defun.dirvish-f
1e800 64 2d 6a 75 6d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 75 72 72 65 6e 74 2d 64 69 72 2d 70 29 d-jump.(&optional.current-dir-p)
1e820 0a 20 20 22 42 72 6f 77 73 65 20 64 69 72 65 63 74 6f 72 69 65 73 20 75 73 69 6e 67 20 60 66 64 ..."Browse.directories.using.`fd
1e840 27 20 63 6f 6d 6d 61 6e 64 2e 0a 54 68 69 73 20 63 6f 6d 6d 61 6e 64 20 74 61 6b 65 73 20 61 20 '.command..This.command.takes.a.
1e860 77 68 69 6c 65 20 74 6f 20 69 6e 64 65 78 20 61 6c 6c 20 74 68 65 20 64 69 72 65 63 74 6f 72 69 while.to.index.all.the.directori
1e880 65 73 20 74 68 65 20 66 69 72 73 74 0a 74 69 6d 65 20 79 6f 75 20 72 75 6e 20 69 74 2e 20 20 41 es.the.first.time.you.run.it...A
1e8a0 66 74 65 72 20 74 68 65 20 69 6e 64 65 78 69 6e 67 2c 20 69 74 20 66 69 72 65 73 20 75 70 20 69 fter.the.indexing,.it.fires.up.i
1e8c0 6e 73 74 61 6e 74 6c 79 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 77 69 74 68 20 5c 5c 60 43 2d 75 nstantly...If.called.with.\\`C-u
1e8e0 27 20 6f 72 20 69 66 20 43 55 52 52 45 4e 54 2d 44 49 52 2d 50 20 68 6f 6c 64 73 20 74 68 65 20 '.or.if.CURRENT-DIR-P.holds.the.
1e900 76 61 6c 75 65 20 34 2c 0a 73 65 61 72 63 68 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 value.4,.search.for.directories.
1e920 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 20 20 4f 74 68 65 72 in.the.current.directory...Other
1e940 77 69 73 65 2c 0a 73 65 61 72 63 68 20 66 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 69 6e 20 wise,.search.for.directories.in.
1e960 60 64 69 72 76 69 73 68 2d 66 64 2d 64 65 66 61 75 6c 74 2d 64 69 72 27 2e 0a 0a 49 66 20 70 72 `dirvish-fd-default-dir'...If.pr
1e980 65 66 69 78 65 64 20 74 77 69 63 65 20 77 69 74 68 20 5c 5c 60 43 2d 75 27 20 6f 72 20 69 66 20 efixed.twice.with.\\`C-u'.or.if.
1e9a0 43 55 52 52 45 4e 54 2d 44 49 52 2d 50 20 68 6f 6c 64 73 20 74 68 65 0a 76 61 6c 75 65 20 31 36 CURRENT-DIR-P.holds.the.value.16
1e9c0 2c 20 6c 65 74 20 74 68 65 20 75 73 65 72 20 63 68 6f 6f 73 65 20 74 68 65 20 72 6f 6f 74 20 64 ,.let.the.user.choose.the.root.d
1e9e0 69 72 65 63 74 6f 72 79 20 6f 66 20 74 68 65 69 72 20 73 65 61 72 63 68 2e 22 0a 20 20 28 69 6e irectory.of.their.search."...(in
1ea00 74 65 72 61 63 74 69 76 65 20 22 70 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 62 61 73 65 2d 64 69 teractive."p")...(let*.((base-di
1ea20 72 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 20 20 28 28 65 71 r.(cond.....................((eq
1ea40 20 63 75 72 72 65 6e 74 2d 64 69 72 2d 70 20 34 29 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 .current-dir-p.4).default-direct
1ea60 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 63 75 ory).....................((eq.cu
1ea80 72 72 65 6e 74 2d 64 69 72 2d 70 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rrent-dir-p.16).................
1eaa0 20 20 20 20 20 28 6c 65 74 20 28 28 64 69 72 20 28 63 61 72 20 28 66 69 6e 64 2d 66 69 6c 65 2d .....(let.((dir.(car.(find-file-
1eac0 72 65 61 64 2d 61 72 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 read-args.......................
1eae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 53 65 6c 65 63 74 20 72 6f 6f 74 20 64 69 72 ................"Select.root.dir
1eb00 65 63 74 6f 72 79 3a 20 22 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ectory:.".nil))))...............
1eb20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 64 .........(if.(file-directory-p.d
1eb40 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 20 28 ir)............................(
1eb60 66 69 6c 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 64 69 72 29 0a 20 20 20 20 file-name-as-directory.dir).....
1eb80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 67 .....................(dirvish--g
1eba0 65 74 2d 70 61 72 65 6e 74 2d 70 61 74 68 20 64 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 et-parent-path.dir))))..........
1ebc0 20 20 20 20 20 20 20 20 20 20 20 28 74 20 64 69 72 76 69 73 68 2d 66 64 2d 64 65 66 61 75 6c 74 ...........(t.dirvish-fd-default
1ebe0 2d 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 74 65 20 28 66 69 6c 65 2d 72 -dir)))..........(remote.(file-r
1ec00 65 6d 6f 74 65 2d 70 20 62 61 73 65 2d 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 64 2d emote-p.base-dir))..........(fd-
1ec20 70 72 6f 67 72 61 6d 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 6e 73 75 72 65 2d 66 64 20 72 program.(dirvish-fd--ensure-fd.r
1ec40 65 6d 6f 74 65 29 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 63 6f 6d 6d 61 6e 64 20 28 63 6f emote))).....(let*.((command.(co
1ec60 6e 63 61 74 20 66 64 2d 70 72 6f 67 72 61 6d 20 22 20 2d 48 20 2d 74 64 20 2d 2d 63 6f 6c 6f 72 ncat.fd-program.".-H.-td.--color
1ec80 3d 6e 65 76 65 72 20 2d 30 20 2e 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 =never.-0..."...................
1eca0 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 62 61 73 65 2d ..........(file-local-name.base-
1ecc0 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 dir)))............(default-direc
1ece0 74 6f 72 79 20 62 61 73 65 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 75 74 70 75 tory.base-dir)............(outpu
1ed00 74 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 63 6f 6d 6d 61 t.(shell-command-to-string.comma
1ed20 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 73 2d 72 61 77 20 28 73 70 6c 69 nd))............(files-raw.(spli
1ed40 74 2d 73 74 72 69 6e 67 20 6f 75 74 70 75 74 20 22 5c 30 22 20 74 29 29 0a 20 20 20 20 20 20 20 t-string.output."\0".t))........
1ed60 20 20 20 20 28 66 69 6c 65 73 20 28 64 69 72 76 69 73 68 2d 2d 61 70 70 65 6e 64 2d 6d 65 74 61 ....(files.(dirvish--append-meta
1ed80 64 61 74 61 20 27 66 69 6c 65 20 66 69 6c 65 73 2d 72 61 77 29 29 0a 20 20 20 20 20 20 20 20 20 data.'file.files-raw))..........
1eda0 20 20 28 66 69 6c 65 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 47 6f 20 74 6f 3a ..(file.(completing-read."Go.to:
1edc0 20 22 20 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6c 6c 2d 66 69 6c 65 .".files))............(full-file
1ede0 20 28 63 6f 6e 63 61 74 20 72 65 6d 6f 74 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 28 64 .(concat.remote.file))).......(d
1ee00 69 72 65 64 2d 6a 75 6d 70 20 6e 69 6c 20 66 75 6c 6c 2d 66 69 6c 65 29 29 29 29 0a 0a 28 64 65 ired-jump.nil.full-file))))..(de
1ee20 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 70 72 6f 63 2d 66 69 6c 74 65 72 20 28 70 72 6f 63 fun.dirvish-fd-proc-filter.(proc
1ee40 20 73 74 72 69 6e 67 29 0a 20 20 22 46 69 6c 74 65 72 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d .string)..."Filter.for.`dirvish-
1ee60 66 64 27 20 70 72 6f 63 65 73 73 65 73 20 50 52 4f 43 20 61 6e 64 20 6f 75 74 70 75 74 20 53 54 fd'.processes.PROC.and.output.ST
1ee80 52 49 4e 47 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 70 72 6f 63 65 73 73 2d 62 75 66 RING."...(let.((buf.(process-buf
1eea0 66 65 72 20 70 72 6f 63 29 29 29 0a 20 20 20 20 28 69 66 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 fer.proc))).....(if.(buffer-name
1eec0 20 62 75 66 29 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 66 66 .buf).........(with-current-buff
1eee0 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 66 er.buf...........(setq.dirvish-f
1ef00 64 2d 2d 6f 75 74 70 75 74 20 28 63 6f 6e 63 61 74 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 6f 75 d--output.(concat.dirvish-fd--ou
1ef20 74 70 75 74 20 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 70 72 6f tput.string))).......(delete-pro
1ef40 63 65 73 73 20 70 72 6f 63 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 cess.proc))))..(defun.dirvish-fd
1ef60 2d 2d 72 65 61 64 2d 69 6e 70 75 74 20 28 29 0a 20 20 22 53 65 74 75 70 20 49 4e 50 55 54 20 72 --read-input.()..."Setup.INPUT.r
1ef80 65 61 64 65 72 20 66 6f 72 20 66 64 2e 22 0a 20 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 74 eader.for.fd."...(minibuffer-wit
1efa0 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 66 64 2d 6d 69 6e 69 62 75 h-setup-hook.#'dirvish-fd-minibu
1efc0 66 66 65 72 2d 73 65 74 75 70 2d 68 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 ffer-setup-h.....(condition-case
1efe0 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 72 65 61 64 2d 73 74 72 69 6e 67 20 22 f0 9f 94 8d 3a .nil.........(read-string."....:
1f000 20 22 20 6e 69 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 69 6e 70 75 74 2d 68 69 73 74 6f 72 79 29 .".nil.dirvish-fd-input-history)
1f020 0a 20 20 20 20 20 20 28 71 75 69 74 20 28 70 72 6f 67 31 20 27 63 61 6e 63 65 6c 6c 65 64 20 28 .......(quit.(prog1.'cancelled.(
1f040 6d 65 73 73 61 67 65 20 22 46 64 20 73 65 61 72 63 68 20 63 61 6e 63 65 6c 6c 65 64 22 29 29 29 message."Fd.search.cancelled")))
1f060 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 70 61 72 73 65 2d 6f 75 )))..(defun.dirvish-fd--parse-ou
1f080 74 70 75 74 20 28 29 0a 20 20 22 50 61 72 73 65 20 66 64 20 63 6f 6d 6d 61 6e 64 20 6f 75 74 70 tput.()..."Parse.fd.command.outp
1f0a0 75 74 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 ut."...(goto-char.(dirvish-prop.
1f0c0 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 29 29 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 77 :content-begin))...(cl-loop....w
1f0e0 69 74 68 20 72 65 73 20 3d 20 28 29 20 77 69 74 68 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e ith.res.=.().with.buffer-read-on
1f100 6c 79 20 3d 20 6e 69 6c 0a 20 20 20 66 6f 72 20 66 69 6c 65 20 69 6e 20 28 73 70 6c 69 74 2d 73 ly.=.nil....for.file.in.(split-s
1f120 74 72 69 6e 67 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 6f 75 74 70 75 74 20 22 5c 6e 22 20 74 29 tring.dirvish-fd--output."\n".t)
1f140 0a 20 20 20 66 6f 72 20 69 64 78 20 3d 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 22 20 2e 2f ....for.idx.=.(string-match."../
1f160 22 20 66 69 6c 65 29 0a 20 20 20 66 6f 72 20 66 2d 6e 61 6d 65 20 3d 20 28 73 75 62 73 74 72 69 ".file)....for.f-name.=.(substri
1f180 6e 67 20 66 69 6c 65 20 28 2b 20 69 64 78 20 33 29 29 0a 20 20 20 66 6f 72 20 66 2d 66 75 6c 6c ng.file.(+.idx.3))....for.f-full
1f1a0 20 3d 20 28 63 6f 6e 63 61 74 20 22 20 20 22 20 28 73 75 62 73 74 72 69 6e 67 20 66 69 6c 65 20 .=.(concat."..".(substring.file.
1f1c0 30 20 69 64 78 29 20 22 20 22 20 66 2d 6e 61 6d 65 20 22 5c 6e 22 29 20 64 6f 0a 20 20 20 28 70 0.idx).".".f-name."\n").do....(p
1f1e0 72 6f 67 6e 20 28 69 6e 73 65 72 74 20 66 2d 66 75 6c 6c 29 20 28 70 75 73 68 20 28 63 6f 6e 73 rogn.(insert.f-full).(push.(cons
1f200 20 66 2d 6e 61 6d 65 20 66 2d 66 75 6c 6c 29 20 72 65 73 29 29 0a 20 20 20 66 69 6e 61 6c 6c 79 .f-name.f-full).res))....finally
1f220 20 72 65 74 75 72 6e 20 28 70 72 6f 67 31 20 28 6e 72 65 76 65 72 73 65 20 72 65 73 29 20 28 67 .return.(prog1.(nreverse.res).(g
1f240 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 29 29 0a 0a 28 64 65 66 75 6e oto-char.(point-min)))))..(defun
1f260 20 64 69 72 76 69 73 68 2d 66 64 2d 66 69 6e 64 20 28 65 6e 74 72 79 29 0a 20 20 22 52 75 6e 20 .dirvish-fd-find.(entry)..."Run.
1f280 66 64 20 61 63 63 72 6f 72 69 6e 67 20 74 6f 20 45 4e 54 52 59 2e 22 0a 20 20 28 6c 65 74 2a 20 fd.accroring.to.ENTRY."...(let*.
1f2a0 28 28 64 76 20 28 6f 72 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 28 64 69 72 76 69 73 68 2d ((dv.(or.dirvish--this.(dirvish-
1f2c0 63 75 72 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 6f 6f 74 73 20 28 61 6e 64 20 64 76 20 curr)))..........(roots.(and.dv.
1f2e0 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 20 28 61 (dv-roots.dv)))..........(buf.(a
1f300 6e 64 20 72 6f 6f 74 73 20 28 61 6c 69 73 74 2d 67 65 74 20 65 6e 74 72 79 20 72 6f 6f 74 73 20 nd.roots.(alist-get.entry.roots.
1f320 6e 69 6c 20 6e 69 6c 20 23 27 65 71 75 61 6c 29 29 29 29 0a 20 20 20 20 28 6f 72 20 62 75 66 0a nil.nil.#'equal)))).....(or.buf.
1f340 20 20 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 70 61 74 74 65 72 6e 20 ........(pcase-let.((`(,pattern.
1f360 2c 64 69 72 20 2c 5f 29 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 73 75 62 73 74 72 69 6e ,dir.,_).(split-string.(substrin
1f380 67 20 65 6e 74 72 79 20 31 29 20 22 f0 9f 93 81 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 g.entry.1)."....")))...........(
1f3a0 64 69 72 76 69 73 68 2d 66 64 20 64 69 72 20 70 61 74 74 65 72 6e 29 29 29 29 29 0a 0a 28 64 65 dirvish-fd.dir.pattern)))))..(de
1f3c0 66 73 75 62 73 74 20 64 69 72 76 69 73 68 2d 66 64 2d 72 65 76 65 72 74 20 28 26 72 65 73 74 20 fsubst.dirvish-fd-revert.(&rest.
1f3e0 5f 29 0a 20 20 22 52 65 76 65 72 74 20 62 75 66 66 65 72 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 _)..."Revert.buffer.function.for
1f400 20 66 64 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 66 64 20 64 65 66 61 75 .fd.buffer."...(dirvish-fd.defau
1f420 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 6f 72 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 lt-directory.(or.dirvish-fd--inp
1f440 75 74 20 22 22 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 70 ut."")))..(cl-defun.dirvish-fd-p
1f460 72 6f 63 2d 73 65 6e 74 69 6e 65 6c 20 28 70 72 6f 63 20 5f 29 0a 20 20 22 53 65 6e 74 69 6e 65 roc-sentinel.(proc._)..."Sentine
1f480 6c 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 66 64 27 20 70 72 6f 63 65 73 73 20 50 52 4f 43 2e l.for.`dirvish-fd'.process.PROC.
1f4a0 22 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 2a 20 28 28 62 75 66 20 28 70 72 6f 63 65 73 73 2d 62 "...(pcase-let*.((buf.(process-b
1f4c0 75 66 66 65 72 20 70 72 6f 63 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 75 63 uffer.proc))................(suc
1f4e0 63 65 73 73 20 28 65 71 20 28 70 72 6f 63 65 73 73 2d 65 78 69 74 2d 73 74 61 74 75 73 20 70 72 cess.(eq.(process-exit-status.pr
1f500 6f 63 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 69 6e 70 75 74 oc).0))................(`(,input
1f520 20 2c 64 69 72 20 2c 64 76 29 20 28 70 72 6f 63 65 73 73 2d 67 65 74 20 70 72 6f 63 20 27 69 6e .,dir.,dv).(process-get.proc.'in
1f540 66 6f 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 73 75 63 63 65 73 73 29 0a 20 20 fo))).....(when.(not.success)...
1f560 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 20 66 64 20 65 72 72 6f ....(user-error."Dirvish.fd.erro
1f580 72 3a 20 25 73 22 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 6f 75 74 70 75 74 29 29 0a 20 20 20 20 r:.%s".dirvish-fd--output)).....
1f5a0 28 75 6e 6c 65 73 73 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 29 0a 20 20 20 20 (unless.(buffer-live-p.buf).....
1f5c0 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 64 69 72 76 69 73 68 2d 66 64 2d 70 72 6f ..(cl-return-from.dirvish-fd-pro
1f5e0 63 2d 73 65 6e 74 69 6e 65 6c 0a 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 60 66 64 c-sentinel.........(message."`fd
1f600 27 20 70 72 6f 63 65 73 73 20 74 65 72 6d 69 6e 61 74 65 64 22 29 29 29 0a 20 20 20 20 28 77 69 '.process.terminated"))).....(wi
1f620 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 64 76 2d 72 6f 6f 74 2d 77 69 6e 64 th-selected-window.(dv-root-wind
1f640 6f 77 20 64 76 29 0a 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 65 71 20 28 63 75 72 72 65 6e ow.dv).......(unless.(eq.(curren
1f660 74 2d 62 75 66 66 65 72 29 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d t-buffer).buf).........(dirvish-
1f680 66 64 2d 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 29 29 29 0a 20 20 20 20 28 fd-switch-to-buffer.buf))).....(
1f6a0 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 20 20 28 73 with-current-buffer.buf.......(s
1f6c0 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 75 74 20 69 6e 70 75 etq-local.dirvish-fd--input.inpu
1f6e0 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 66 64 2d 2d t...................dirvish-fd--
1f700 6f 75 74 70 75 74 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 70 61 72 73 65 2d 6f 75 74 70 75 74 output.(dirvish-fd--parse-output
1f720 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 65 76 65 72 74 2d 62 75 66 66 65 )...................revert-buffe
1f740 72 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 69 72 76 69 73 68 2d 66 64 2d 72 65 76 65 72 74 29 0a r-function.#'dirvish-fd-revert).
1f760 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 74 69 6d 65 0a 20 20 20 ......(dirvish-prop.:fd-time....
1f780 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 25 73 20 22 0a 20 20 20 20 20 20 20 20 20 .....(format.".%s.%s."..........
1f7a0 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 46 69 6e 69 73 68 65 64 20 61 74 3a .......(propertize."Finished.at:
1f7c0 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 0a 20 20 20 ".'face.'font-lock-doc-face)....
1f7e0 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 72 72 65 6e .............(propertize.(curren
1f800 74 2d 74 69 6d 65 2d 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 t-time-string)..................
1f820 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 28 69 66 20 73 75 63 63 65 73 73 20 27 73 75 ...........'face.(if.success.'su
1f840 63 63 65 73 73 20 27 65 72 72 6f 72 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e ccess.'error)))).......(cond.((n
1f860 6f 74 20 69 6e 70 75 74 29 20 28 73 65 74 71 20 69 6e 70 75 74 20 28 64 69 72 76 69 73 68 2d 66 ot.input).(setq.input.(dirvish-f
1f880 64 2d 2d 72 65 61 64 2d 69 6e 70 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 d--read-input))).............(t.
1f8a0 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 0a 20 20 20 20 20 20 (dirvish-update-body-h))).......
1f8c0 28 77 68 65 6e 20 28 65 71 20 69 6e 70 75 74 20 27 63 61 6e 63 65 6c 6c 65 64 29 0a 20 20 20 20 (when.(eq.input.'cancelled).....
1f8e0 20 20 20 20 28 63 6c 2d 72 65 74 75 72 6e 2d 66 72 6f 6d 20 64 69 72 76 69 73 68 2d 66 64 2d 70 ....(cl-return-from.dirvish-fd-p
1f900 72 6f 63 2d 73 65 6e 74 69 6e 65 6c 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 75 66 29 29 29 roc-sentinel.(kill-buffer.buf)))
1f920 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 6e 61 6d 65 20 28 64 69 72 76 69 73 68 2d 66 .......(let.((bufname.(dirvish-f
1f940 64 2d 2d 62 75 66 6e 61 6d 65 20 69 6e 70 75 74 20 64 69 72 20 64 76 29 29 29 0a 20 20 20 20 20 d--bufname.input.dir.dv)))......
1f960 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 6f 6f 74 20 62 75 66 6e 61 6d 65 29 0a ...(dirvish-prop.:root.bufname).
1f980 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 20 28 63 6f 6e ........(setf.(dv-index.dv).(con
1f9a0 73 20 62 75 66 6e 61 6d 65 20 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 28 70 75 73 68 20 28 63 s.bufname.buf)).........(push.(c
1f9c0 6f 6e 73 20 62 75 66 6e 61 6d 65 20 62 75 66 29 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 29 0a ons.bufname.buf).(dv-roots.dv)).
1f9e0 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 67 ........(dirvish--kill-buffer.(g
1fa00 65 74 2d 62 75 66 66 65 72 20 62 75 66 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 6e et-buffer.bufname)).........(ren
1fa20 61 6d 65 2d 62 75 66 66 65 72 20 62 75 66 6e 61 6d 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 ame-buffer.bufname)))))..(defun.
1fa40 64 69 72 76 69 73 68 2d 66 64 2d 2d 6e 61 72 72 6f 77 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 6e dirvish-fd--narrow.(&optional.in
1fa60 70 75 74 20 67 6c 6f 62 29 0a 20 20 22 46 69 6c 74 65 72 20 74 68 65 20 73 75 62 64 69 72 20 77 put.glob)..."Filter.the.subdir.w
1fa80 69 74 68 20 72 65 67 65 78 73 20 63 6f 6d 70 6f 73 65 64 20 66 72 6f 6d 20 49 4e 50 55 54 2e 0a ith.regexs.composed.from.INPUT..
1faa0 57 68 65 6e 20 47 4c 4f 42 2c 20 63 6f 6e 76 65 72 74 20 74 68 65 20 72 65 67 65 78 73 20 75 73 When.GLOB,.convert.the.regexs.us
1fac0 69 6e 67 20 60 64 69 72 65 64 2d 67 6c 6f 62 2d 72 65 67 65 78 70 27 2e 22 0a 20 20 28 6c 65 74 ing.`dired-glob-regexp'."...(let
1fae0 20 28 28 72 65 67 65 78 73 20 28 63 6f 6e 64 20 28 28 65 71 20 28 6c 65 6e 67 74 68 20 69 6e 70 .((regexs.(cond.((eq.(length.inp
1fb00 75 74 29 20 30 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ut).0).nil).....................
1fb20 20 20 28 67 6c 6f 62 20 28 6d 61 70 63 61 72 20 23 27 64 69 72 65 64 2d 67 6c 6f 62 2d 72 65 67 ..(glob.(mapcar.#'dired-glob-reg
1fb40 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 20 20 20 20 exp.............................
1fb60 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 76 69 73 68 2d 66 64 2d 72 65 67 65 ........(funcall.dirvish-fd-rege
1fb80 78 2d 62 75 69 6c 64 65 72 20 69 6e 70 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 x-builder.input)))..............
1fba0 20 20 20 20 20 20 20 20 20 28 74 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 76 69 73 68 2d 66 64 2d .........(t.(funcall.dirvish-fd-
1fbc0 72 65 67 65 78 2d 62 75 69 6c 64 65 72 20 69 6e 70 75 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 regex-builder.input)))).........
1fbe0 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 buffer-read-only).....(goto-char
1fc00 20 28 63 64 61 72 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 .(cdar.dired-subdir-alist)).....
1fc20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 68 65 61 64 65 (forward-line.(dirvish-fd--heade
1fc40 72 2d 6f 66 66 73 65 74 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 6f r-offset)).....(dirvish-prop.:co
1fc60 6e 74 65 6e 74 2d 62 65 67 69 6e 20 28 70 6f 69 6e 74 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 ntent-begin.(point)).....(delete
1fc80 2d 72 65 67 69 6f 6e 20 28 70 6f 69 6e 74 29 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d 6d 61 -region.(point).(dired-subdir-ma
1fca0 78 29 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 69 x)).....(save-excursion.......(i
1fcc0 66 20 28 6e 6f 74 20 72 65 67 65 78 73 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f f.(not.regexs)...........(cl-loo
1fce0 70 20 66 6f 72 20 28 5f 20 2e 20 6c 69 6e 65 29 20 69 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 2d p.for.(_...line).in.dirvish-fd--
1fd00 6f 75 74 70 75 74 20 64 6f 20 28 69 6e 73 65 72 74 20 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 output.do.(insert.line))........
1fd20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 66 69 6c 65 20 2e 20 6c 69 6e 65 29 20 69 6e 20 64 .(cl-loop.for.(file...line).in.d
1fd40 69 72 76 69 73 68 2d 66 64 2d 2d 6f 75 74 70 75 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 irvish-fd--output...............
1fd60 20 20 20 75 6e 6c 65 73 73 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 ...unless.(cl-loop.for.regex.in.
1fd80 72 65 67 65 78 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 regexs..........................
1fda0 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 ........thereis.(not.(string-mat
1fdc0 63 68 20 72 65 67 65 78 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ch.regex.file)))................
1fde0 20 20 64 6f 20 28 69 6e 73 65 72 74 20 6c 69 6e 65 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 ..do.(insert.line)))).....(dirvi
1fe00 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 sh-update-body-h)))..(defun.dirv
1fe20 69 73 68 2d 66 64 2d 6d 69 6e 69 62 75 66 66 65 72 2d 75 70 64 61 74 65 2d 68 20 28 29 0a 20 20 ish-fd-minibuffer-update-h.()...
1fe40 22 4d 69 6e 69 62 75 66 66 65 72 20 75 70 64 61 74 65 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 "Minibuffer.update.function.for.
1fe60 60 64 69 72 76 69 73 68 2d 66 64 27 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 64 65 62 6f 75 6e `dirvish-fd'."...(dirvish-deboun
1fe80 63 65 20 66 64 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 62 75 66 20 28 77 69 6e 64 6f 77 2d 62 75 ce.fd.....(let*.((buf.(window-bu
1fea0 66 66 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 ffer.(minibuffer-selected-window
1fec0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 70 75 74 20 28 6d 69 6e 69 62 75 66 66 65 )))............(input.(minibuffe
1fee0 72 2d 63 6f 6e 74 65 6e 74 73 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 29 29 29 0a 20 20 20 20 r-contents-no-properties))).....
1ff00 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 20 ..(with-current-buffer.buf......
1ff20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 66 64 2d 2d 69 6e 70 75 74 20 69 6e 70 75 74 ...(setq.dirvish-fd--input.input
1ff40 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 6e 61 72 72 6f 77 20 69 6e ).........(dirvish-fd--narrow.in
1ff60 70 75 74 20 28 63 61 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 61 72 67 6c 69 put.(car.(dirvish-prop.:fd-argli
1ff80 73 74 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 6d 69 6e st)))))))..(defun.dirvish-fd-min
1ffa0 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 20 28 29 0a 20 20 22 4d 69 6e 69 62 75 66 66 65 72 ibuffer-setup-h.()..."Minibuffer
1ffc0 20 73 65 74 75 70 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 66 64 27 .setup.function.for.`dirvish-fd'
1ffe0 2e 22 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f ."...(add-hook.'post-command-hoo
20000 6b 20 23 27 64 69 72 76 69 73 68 2d 66 64 2d 6d 69 6e 69 62 75 66 66 65 72 2d 75 70 64 61 74 65 k.#'dirvish-fd-minibuffer-update
20020 2d 68 20 6e 69 6c 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 6b 69 -h.nil.t))..(defun.dirvish-fd-ki
20040 6c 6c 20 28 29 0a 20 20 22 4b 69 6c 6c 20 74 68 65 20 60 66 64 27 20 70 72 6f 63 65 73 73 20 72 ll.()..."Kill.the.`fd'.process.r
20060 75 6e 6e 69 6e 67 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 unning.in.the.current.buffer."..
20080 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d .(interactive)...(dirvish--kill-
200a0 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 buffer.(current-buffer)))..;;;##
200c0 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 20 28 64 69 72 #autoload.(defun.dirvish-fd.(dir
200e0 20 70 61 74 74 65 72 6e 29 0a 20 20 22 52 75 6e 20 60 66 64 27 20 6f 6e 20 44 49 52 20 61 6e 64 .pattern)..."Run.`fd'.on.DIR.and
20100 20 67 6f 20 69 6e 74 6f 20 44 69 72 65 64 20 6d 6f 64 65 20 6f 6e 20 61 20 62 75 66 66 65 72 20 .go.into.Dired.mode.on.a.buffer.
20120 6f 66 20 74 68 65 20 6f 75 74 70 75 74 2e 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 72 75 6e 20 69 of.the.output..The.command.run.i
20140 73 20 65 73 73 65 6e 74 69 61 6c 6c 79 3a 0a 0a 20 20 66 64 20 2d 2d 63 6f 6c 6f 72 3d 6e 65 76 s.essentially:....fd.--color=nev
20160 65 72 20 2d 30 20 60 64 69 72 76 69 73 68 2d 66 64 2d 73 77 69 74 63 68 65 73 27 20 50 41 54 54 er.-0.`dirvish-fd-switches'.PATT
20180 45 52 4e 0a 20 20 20 20 20 2d 2d 65 78 65 63 2d 62 61 74 63 68 20 60 64 69 72 76 69 73 68 2d 66 ERN......--exec-batch.`dirvish-f
201a0 64 2d 6c 73 2d 70 72 6f 67 72 61 6d 27 20 60 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 77 69 d-ls-program'.`dired-listing-swi
201c0 74 63 68 65 73 27 20 2d 2d 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 tches'.--directory."...(interact
201e0 69 76 65 20 28 6c 69 73 74 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 ive.(list.(and.current-prefix-ar
20200 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 28 72 65 61 g...........................(rea
20220 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 46 64 20 74 61 72 67 65 74 20 64 69 72 65 d-directory-name."Fd.target.dire
20240 63 74 6f 72 79 3a 20 22 20 6e 69 6c 20 22 22 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 ctory:.".nil."".t)).............
20260 20 20 20 20 20 20 20 20 20 6e 69 6c 29 29 0a 20 20 28 73 65 74 71 20 64 69 72 20 28 66 69 6c 65 .........nil))...(setq.dir.(file
20280 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 -name-as-directory..............
202a0 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 64 69 72 20 64 65 66 61 75 6c (expand-file-name.(or.dir.defaul
202c0 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 28 6f 72 20 28 66 69 6c 65 2d 64 69 72 65 t-directory))))...(or.(file-dire
202e0 63 74 6f 72 79 2d 70 20 64 69 72 29 0a 20 20 20 20 20 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 ctory-p.dir).......(user-error."
20300 27 66 64 27 20 63 6f 6d 6d 61 6e 64 20 72 65 71 75 69 72 65 73 20 61 20 64 69 72 65 63 74 6f 72 'fd'.command.requires.a.director
20320 79 3a 20 25 73 22 20 64 69 72 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 72 65 6d 6f 74 65 20 28 66 y:.%s".dir))...(let*.((remote.(f
20340 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 64 2d ile-remote-p.dir))..........(fd-
20360 70 72 6f 67 72 61 6d 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 65 6e 73 75 72 65 2d 66 64 20 72 program.(dirvish-fd--ensure-fd.r
20380 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 73 2d 70 72 6f 67 72 61 6d 20 28 6f 72 emote))..........(ls-program.(or
203a0 20 28 61 6e 64 20 72 65 6d 6f 74 65 20 28 64 69 72 76 69 73 68 2d 66 64 2d 2d 66 69 6e 64 2d 67 .(and.remote.(dirvish-fd--find-g
203c0 6e 75 2d 6c 73 20 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 nu-ls.remote))..................
203e0 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 66 64 2d 6c 73 2d 70 72 6f 67 72 61 6d 29 29 0a ........dirvish-fd-ls-program)).
20400 20 20 20 20 20 20 20 20 20 28 64 76 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 20 .........(dv.(or.(dirvish-curr).
20420 28 70 72 6f 67 6e 20 28 64 69 72 76 69 73 68 20 64 69 72 29 20 64 69 72 76 69 73 68 2d 2d 74 68 (progn.(dirvish.dir).dirvish--th
20440 69 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 64 2d 73 77 69 74 63 68 65 73 20 28 6f 72 20 is)))..........(fd-switches.(or.
20460 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 73 77 69 74 63 68 65 73 29 20 64 69 72 76 (dirvish-prop.:fd-switches).dirv
20480 69 73 68 2d 66 64 2d 73 77 69 74 63 68 65 73 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c ish-fd-switches.""))..........(l
204a0 73 2d 73 77 69 74 63 68 65 73 20 28 6f 72 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 69 74 s-switches.(or.dired-actual-swit
204c0 63 68 65 73 20 28 64 76 2d 6c 73 2d 73 77 69 74 63 68 65 73 20 64 76 29 29 29 0a 20 20 20 20 20 ches.(dv-ls-switches.dv)))......
204e0 20 20 20 20 28 62 75 66 66 65 72 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 ....(buffer.(dirvish--util-buffe
20500 72 20 27 66 64 20 64 76 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d r.'fd.dv.nil.t))).....(dirvish--
20520 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 28 64 69 72 76 69 73 68 kill-buffer.(get-buffer.(dirvish
20540 2d 66 64 2d 2d 62 75 66 6e 61 6d 65 20 70 61 74 74 65 72 6e 20 64 69 72 20 64 76 29 29 29 0a 20 -fd--bufname.pattern.dir.dv)))..
20560 20 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 66 65 72 0a 20 ...(with-current-buffer.buffer..
20580 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 .....(erase-buffer).......(inser
205a0 74 20 22 20 20 22 20 64 69 72 20 22 3a 22 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 64 69 72 t."..".dir.":".(make-string.(dir
205c0 76 69 73 68 2d 66 64 2d 2d 68 65 61 64 65 72 2d 6f 66 66 73 65 74 29 20 3f 5c 6e 29 29 0a 20 20 vish-fd--header-offset).?\n))...
205e0 20 20 20 20 28 64 69 72 65 64 2d 6d 6f 64 65 20 64 69 72 20 6c 73 2d 73 77 69 74 63 68 65 73 29 ....(dired-mode.dir.ls-switches)
20600 0a 20 20 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 .......(setq-local.default-direc
20620 74 6f 72 79 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 tory.dir...................dired
20640 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 64 69 72 20 28 70 -subdir-alist.(list.(cons.dir.(p
20660 6f 69 6e 74 2d 6d 69 6e 2d 6d 61 72 6b 65 72 29 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 oint-min-marker)))).......(dirvi
20680 73 68 2d 69 6e 69 74 2d 64 69 72 65 64 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 6c 65 74 sh-init-dired-buffer).......(let
206a0 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 20 .((map.(make-sparse-keymap)))...
206c0 20 20 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 20 28 63 75 ......(set-keymap-parent.map.(cu
206e0 72 72 65 6e 74 2d 6c 6f 63 61 6c 2d 6d 61 70 29 29 0a 20 20 20 20 20 20 20 20 28 64 65 66 69 6e rrent-local-map)).........(defin
20700 65 2d 6b 65 79 20 6d 61 70 20 22 5c 43 2d 63 5c 43 2d 6b 22 20 23 27 64 69 72 76 69 73 68 2d 66 e-key.map."\C-c\C-k".#'dirvish-f
20720 64 2d 6b 69 6c 6c 29 0a 20 20 20 20 20 20 20 20 28 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d d-kill).........(use-local-map.m
20740 61 70 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 64 76 20 28 64 76 ap)).......(dirvish-prop.:dv.(dv
20760 2d 6e 61 6d 65 20 64 76 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a -name.dv)).......(dirvish-prop.:
20780 67 75 69 20 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 29 0a 20 20 20 20 20 20 28 gui.(display-graphic-p)).......(
207a0 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 73 77 69 74 63 68 65 73 20 66 64 2d 73 77 69 dirvish-prop.:fd-switches.fd-swi
207c0 74 63 68 65 73 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 75 73 2d tches).......(dirvish-prop.:cus-
207e0 68 65 61 64 65 72 20 27 64 69 72 76 69 73 68 2d 66 64 2d 68 65 61 64 65 72 29 0a 20 20 20 20 20 header.'dirvish-fd-header)......
20800 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 20 72 65 6d 6f 74 65 29 0a 20 .(dirvish-prop.:remote.remote)..
20820 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 67 6c 6f 62 61 6c 2d 68 65 61 64 65 .....(dirvish-prop.:global-heade
20840 72 20 74 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 61 70 70 6c 79 20 23 27 r.t).......(let.((proc.(apply.#'
20860 73 74 61 72 74 2d 66 69 6c 65 2d 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 start-file-process..............
20880 20 20 20 20 20 20 20 20 20 20 20 20 22 66 64 22 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 ............"fd".buffer.........
208a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 2c 66 64 2d 70 72 6f 67 72 61 6d 20 22 .................`(,fd-program."
208c0 2d 2d 63 6f 6c 6f 72 3d 6e 65 76 65 72 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 --color=never"..................
208e0 20 20 20 20 20 20 20 20 20 20 2c 40 28 6f 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 66 64 ..........,@(or.(split-string.fd
20900 2d 73 77 69 74 63 68 65 73 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 -switches)."")..................
20920 20 20 20 20 20 20 20 20 20 20 2c 28 6f 72 20 70 61 74 74 65 72 6e 20 22 22 29 0a 20 20 20 20 20 ..........,(or.pattern."")......
20940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 65 78 65 63 2d 62 61 ......................"--exec-ba
20960 74 63 68 22 20 2c 6c 73 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tch".,ls-program................
20980 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 6f 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 ............,@(or.(split-string.
209a0 6c 73 2d 73 77 69 74 63 68 65 73 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ls-switches)."")................
209c0 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 71 75 6f 74 69 6e 67 2d 73 74 79 6c 65 3d 6c 69 74 ............"--quoting-style=lit
209e0 65 72 61 6c 22 20 22 2d 2d 64 69 72 65 63 74 6f 72 79 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 eral"."--directory")))).........
20a00 28 73 65 74 2d 70 72 6f 63 65 73 73 2d 66 69 6c 74 65 72 20 70 72 6f 63 20 23 27 64 69 72 76 69 (set-process-filter.proc.#'dirvi
20a20 73 68 2d 66 64 2d 70 72 6f 63 2d 66 69 6c 74 65 72 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d sh-fd-proc-filter).........(set-
20a40 70 72 6f 63 65 73 73 2d 73 65 6e 74 69 6e 65 6c 20 70 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d process-sentinel.proc.#'dirvish-
20a60 66 64 2d 70 72 6f 63 2d 73 65 6e 74 69 6e 65 6c 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 fd-proc-sentinel).........(dirvi
20a80 73 68 2d 66 64 2d 2d 61 72 67 70 61 72 73 65 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 28 sh-fd--argparser.(split-string.(
20aa0 6f 72 20 66 64 2d 73 77 69 74 63 68 65 73 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 or.fd-switches.""))).........(pr
20ac0 6f 63 65 73 73 2d 70 75 74 20 70 72 6f 63 20 27 69 6e 66 6f 20 28 6c 69 73 74 20 70 61 74 74 65 ocess-put.proc.'info.(list.patte
20ae0 72 6e 20 64 69 72 20 64 76 29 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 66 64 2d 73 77 rn.dir.dv)))).....(dirvish-fd-sw
20b00 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 29 29 0a 0a 0a 3b 3b 3b 23 23 itch-to-buffer.buffer)))...;;;##
20b20 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 61 73 6b 20 #autoload.(defun.dirvish-fd-ask.
20b40 28 64 69 72 20 70 61 74 74 65 72 6e 29 0a 20 20 22 54 68 65 20 73 61 6d 65 20 61 73 20 60 64 69 (dir.pattern)..."The.same.as.`di
20b60 72 76 69 73 68 2d 66 64 27 20 62 75 74 20 61 73 6b 20 69 6e 69 74 69 61 6c 20 60 70 61 74 74 65 rvish-fd'.but.ask.initial.`patte
20b80 72 6e 27 20 76 69 61 20 70 72 6f 6d 70 74 2e 20 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 rn'.via.prompt.."...(interactive
20ba0 20 28 6c 69 73 74 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 .(list.(and.current-prefix-arg..
20bc0 20 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 61 64 2d 64 .........................(read-d
20be0 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 46 64 20 74 61 72 67 65 74 20 64 69 72 65 63 74 6f irectory-name."Fd.target.directo
20c00 72 79 3a 20 22 20 6e 69 6c 20 22 22 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ry:.".nil."".t))................
20c20 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 20 22 50 61 74 ......(read-from-minibuffer."Pat
20c40 74 65 72 6e 3a 20 22 29 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 66 64 20 64 69 72 20 70 61 74 tern:.")))...(dirvish-fd.dir.pat
20c60 74 65 72 6e 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 66 64 29 0a 3b 3b tern))..(provide.'dirvish-fd).;;
20c80 3b 20 64 69 72 76 69 73 68 2d 66 64 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 ;.dirvish-fd.el.ends.here.......
20ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20e00 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 77 69 dirvish-20230519.1500/dirvish-wi
20e20 64 67 65 74 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 dgets.el........................
20e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20e60 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
20e80 30 30 37 31 34 35 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 32 31 00 20 30 00 00 00 0071450.00000000000.016121..0...
20ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20f00 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...................
20f20 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...................
20f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
20fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
21000 3b 3b 3b 20 64 69 72 76 69 73 68 2d 77 69 64 67 65 74 73 2e 65 6c 20 2d 2d 2d 20 43 6f 72 65 20 ;;;.dirvish-widgets.el.---.Core.
21020 77 69 64 67 65 74 73 20 69 6e 20 64 69 72 76 69 73 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 widgets.in.dirvish.-*-.lexical-b
21040 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 68 74 20 28 43 29 20 inding:.t.-*-..;;.Copyright.(C).
21060 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 2021-2022.Alex.Lu.;;.Author.:.Al
21080 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 ex.Lu.<https://github.com/alexlu
210a0 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 igit>.;;.Version:.2.0.53.;;.Keyw
210c0 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 ords:.files,.convenience.;;.Home
210e0 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 page:.https://github.com/alexlui
21100 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e git/dirvish.;;.SPDX-License-Iden
21120 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f tifier:.GPL-3.0-or-later..;;;.Co
21140 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 68 69 73 20 6c 69 62 72 61 72 79 20 70 72 6f 76 69 mmentary:..;;.This.library.provi
21160 64 65 73 20 63 6f 72 65 20 61 74 74 72 69 62 75 74 65 73 20 2f 20 6d 6f 64 65 2d 6c 69 6e 65 20 des.core.attributes./.mode-line.
21180 73 65 67 6d 65 6e 74 73 20 2f 20 70 72 65 76 69 65 77 0a 3b 3b 20 64 69 73 70 61 74 63 68 65 72 segments./.preview.;;.dispatcher
211a0 73 20 28 66 61 73 74 20 61 6e 64 20 6e 6f 6e 2d 62 6c 6f 63 6b 69 6e 67 20 6d 65 64 69 61 20 66 s.(fast.and.non-blocking.media.f
211c0 69 6c 65 73 20 70 72 65 76 69 65 77 29 20 66 6f 72 20 64 69 72 76 69 73 68 2e 0a 3b 3b 0a 3b 3b iles.preview).for.dirvish..;;.;;
211e0 20 41 74 74 72 69 62 75 74 65 73 3a 0a 3b 3b 20 60 66 69 6c 65 2d 73 69 7a 65 27 2c 20 60 66 69 .Attributes:.;;.`file-size',.`fi
21200 6c 65 2d 74 69 6d 65 27 0a 3b 3b 0a 3b 3b 20 4d 6f 64 65 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 le-time'.;;.;;.Mode-line.segment
21220 73 3a 0a 3b 3b 20 60 70 61 74 68 27 2c 20 60 73 79 6d 6c 69 6e 6b 27 2c 20 60 6f 6d 69 74 27 2c s:.;;.`path',.`symlink',.`omit',
21240 20 60 73 6f 72 74 27 2c 20 60 69 6e 64 65 78 27 2c 20 60 66 72 65 65 2d 73 70 61 63 65 27 2c 20 .`sort',.`index',.`free-space',.
21260 60 66 69 6c 65 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 27 2c 0a 3b 3b 20 60 66 69 6c 65 2d 75 73 65 `file-link-number',.;;.`file-use
21280 72 27 2c 20 60 66 69 6c 65 2d 67 72 6f 75 70 27 2c 20 60 66 69 6c 65 2d 74 69 6d 65 27 2c 20 60 r',.`file-group',.`file-time',.`
212a0 66 69 6c 65 2d 73 69 7a 65 27 2c 20 60 66 69 6c 65 2d 6d 6f 64 65 73 27 2c 0a 3b 3b 20 60 66 69 file-size',.`file-modes',.;;.`fi
212c0 6c 65 2d 69 6e 6f 64 65 2d 6e 75 6d 62 65 72 27 2c 20 60 66 69 6c 65 2d 64 65 76 69 63 65 2d 6e le-inode-number',.`file-device-n
212e0 75 6d 62 65 72 27 0a 3b 3b 0a 3b 3b 20 50 72 65 76 69 65 77 20 64 69 73 70 61 74 63 68 65 72 73 umber'.;;.;;.Preview.dispatchers
21300 20 28 61 6c 6c 20 65 6e 61 62 6c 65 64 20 62 79 20 64 65 66 61 75 6c 74 29 3a 0a 3b 3b 20 60 69 .(all.enabled.by.default):.;;.`i
21320 6d 61 67 65 27 2c 20 60 67 69 66 27 2c 20 60 76 69 64 65 6f 27 2c 20 60 65 70 75 62 27 2c 20 60 mage',.`gif',.`video',.`epub',.`
21340 61 72 63 68 69 76 65 27 2c 20 60 70 64 66 27 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 archive',.`pdf'..;;;.Code:..(req
21360 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 uire.'dirvish)..(defcustom.dirvi
21380 73 68 2d 74 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 22 25 79 2d 25 6d 2d 25 64 20 sh-time-format-string."%y-%m-%d.
213a0 25 52 22 0a 20 20 22 46 4f 52 4d 41 54 2d 53 54 52 49 4e 47 20 66 6f 72 20 60 66 69 6c 65 2d 74 %R"..."FORMAT-STRING.for.`file-t
213c0 69 6d 65 27 20 6d 6f 64 65 20 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 0a 54 68 69 73 20 76 61 6c ime'.mode.line.segment..This.val
213e0 75 65 20 69 73 20 70 61 73 73 65 64 20 74 6f 20 66 75 6e 63 74 69 6f 6e 20 60 66 6f 72 6d 61 74 ue.is.passed.to.function.`format
21400 2d 74 69 6d 65 2d 73 74 72 69 6e 67 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 -time-string'."...:group.'dirvis
21420 68 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 h.:type.'string)..(defcustom.dir
21440 76 69 73 68 2d 70 61 74 68 2d 73 65 70 61 72 61 74 6f 72 73 20 27 28 22 20 20 e2 8c 82 22 20 22 vish-path-separators.'("....."."
21460 20 20 e2 88 80 22 20 22 20 e2 8b 97 20 22 29 0a 20 20 22 53 65 70 61 72 61 74 6f 72 73 20 69 6e .....".".....")..."Separators.in
21480 20 70 61 74 68 20 6d 6f 64 65 20 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 0a 54 68 65 20 76 61 6c .path.mode.line.segment..The.val
214a0 75 65 20 69 73 20 61 20 6c 69 73 74 20 77 69 74 68 20 33 20 65 6c 65 6d 65 6e 74 73 3a 0a 2d 20 ue.is.a.list.with.3.elements:.-.
214c0 69 63 6f 6e 20 66 6f 72 20 68 6f 6d 65 20 64 69 72 65 63 74 6f 72 79 20 5b 7e 5d 0a 2d 20 69 63 icon.for.home.directory.[~].-.ic
214e0 6f 6e 20 66 6f 72 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 5b 2f 5d 0a 2d 20 69 63 6f 6e on.for.root.directory.[/].-.icon
21500 20 66 6f 72 20 70 61 74 68 20 73 65 70 61 72 61 74 6f 72 73 20 5b 2f 5d 22 0a 20 20 3a 67 72 6f .for.path.separators.[/]"...:gro
21520 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 73 74 72 69 up.'dirvish.:type.'(repeat.(stri
21540 6e 67 20 3a 74 61 67 20 22 70 61 74 68 20 73 65 70 61 72 61 74 6f 72 22 29 29 29 0a 0a 28 64 65 ng.:tag."path.separator")))..(de
21560 66 76 61 72 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 6f 6f 6c 20 27 fvar.dirvish-media--cache-pool.'
21580 28 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 61 75 74 6f 2d ()).(defvar.dirvish-media--auto-
215a0 63 61 63 68 65 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 cache-timer.nil).(defcustom.dirv
215c0 69 73 68 2d 6d 65 64 69 61 2d 61 75 74 6f 2d 63 61 63 68 65 2d 74 68 72 65 73 68 6f 6c 64 20 27 ish-media-auto-cache-threshold.'
215e0 28 35 30 30 20 2e 20 34 29 0a 20 20 22 47 65 6e 65 72 61 74 65 20 63 61 63 68 65 20 69 6d 61 67 (500...4)..."Generate.cache.imag
21600 65 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 6f 75 es.automatically..The.value.shou
21620 6c 64 20 62 65 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 46 49 4c 45 2d 43 4f 55 4e 54 20 2e 20 ld.be.a.cons.cell.(FILE-COUNT...
21640 50 52 4f 43 2d 43 4f 55 4e 54 29 20 77 68 65 72 65 0a 62 6f 74 68 20 46 49 4c 45 2d 43 4f 55 4e PROC-COUNT).where.both.FILE-COUN
21660 54 20 61 6e 64 20 50 52 4f 43 2d 43 4f 55 4e 54 20 73 68 6f 75 6c 64 20 62 65 20 61 20 69 6e 74 T.and.PROC-COUNT.should.be.a.int
21680 65 67 65 72 2e 20 20 44 69 72 65 63 74 6f 72 69 65 73 0a 77 69 74 68 20 66 69 6c 65 20 63 6f 75 eger...Directories.with.file.cou
216a0 6e 74 20 6c 65 73 73 20 74 68 61 6e 20 46 49 4c 45 2d 43 4f 55 4e 54 20 61 72 65 20 63 61 63 68 nt.less.than.FILE-COUNT.are.cach
216c0 65 64 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 2c 0a 50 52 4f 43 2d 43 4f 55 4e 54 20 69 73 20 ed.automatically,.PROC-COUNT.is.
216e0 74 68 65 20 6d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 63 68 65 20 70 72 6f 63 65 73 73 65 the.max.number.of.cache.processe
21700 73 2e 20 20 49 66 20 74 68 69 73 0a 76 61 72 69 61 62 6c 65 20 69 73 20 6e 69 6c 2c 20 74 68 65 s...If.this.variable.is.nil,.the
21720 20 61 75 74 6f 20 63 61 63 68 69 6e 67 20 69 73 20 64 69 73 61 62 6c 65 64 2e 22 0a 20 20 3a 67 .auto.caching.is.disabled."...:g
21740 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 6f 6e 73 20 28 69 6e roup.'dirvish...:type.'(cons.(in
21760 74 65 67 65 72 20 3a 74 61 67 20 22 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 64 69 72 65 63 74 teger.:tag."Max.number.of.direct
21780 6f 72 79 20 66 69 6c 65 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 ory.files")................(inte
217a0 67 65 72 20 3a 74 61 67 20 22 4d 61 78 20 6e 75 6d 62 65 72 20 6f 66 20 63 61 63 68 65 20 70 72 ger.:tag."Max.number.of.cache.pr
217c0 6f 63 65 73 73 22 29 29 0a 20 20 3a 73 65 74 20 28 6c 61 6d 62 64 61 20 28 6b 20 76 29 0a 20 20 ocess"))...:set.(lambda.(k.v)...
217e0 20 20 20 20 20 20 20 28 73 65 74 20 6b 20 76 29 0a 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 .......(set.k.v)..........(and.(
21800 74 69 6d 65 72 70 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 61 75 74 6f 2d 63 61 63 68 65 timerp.dirvish-media--auto-cache
21820 2d 74 69 6d 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 -timer)...............(cancel-ti
21840 6d 65 72 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 61 75 74 6f 2d 63 61 63 68 65 2d 74 69 mer.dirvish-media--auto-cache-ti
21860 6d 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 76 0a 20 20 20 20 20 20 20 mer))..........(unless.v........
21880 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 61 75 74 6f 2d 63 61 ....(setq.dirvish-media--auto-ca
218a0 63 68 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d che-timer..................(run-
218c0 77 69 74 68 2d 74 69 6d 65 72 20 30 20 30 2e 32 35 20 23 27 64 69 72 76 69 73 68 2d 6d 65 64 69 with-timer.0.0.25.#'dirvish-medi
218e0 61 2d 2d 61 75 74 6f 63 61 63 68 65 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c a--autocache)))))..(define-obsol
21900 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 6d 65 64 69 ete-variable-alias.'dirvish-medi
21920 61 2d 61 75 74 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 27 64 69 72 76 69 73 68 2d 73 68 6f 77 2d a-auto-properties.'dirvish-show-
21940 6d 65 64 69 61 2d 70 72 6f 70 65 72 74 69 65 73 20 22 53 65 70 20 32 38 2c 20 32 30 32 32 22 29 media-properties."Sep.28,.2022")
21960 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 68 6f 77 2d 6d 65 64 69 61 2d 70 .(defcustom.dirvish-show-media-p
21980 72 6f 70 65 72 74 69 65 73 0a 20 20 28 61 6e 64 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e roperties...(and.(executable-fin
219a0 64 20 22 6d 65 64 69 61 69 6e 66 6f 22 29 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 d."mediainfo").(executable-find.
219c0 22 70 64 66 69 6e 66 6f 22 29 20 74 29 0a 20 20 22 53 68 6f 77 20 6d 65 64 69 61 20 70 72 6f 70 "pdfinfo").t)..."Show.media.prop
219e0 65 72 74 69 65 73 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 69 6e 20 70 72 65 76 69 65 77 20 erties.automatically.in.preview.
21a00 77 69 6e 64 6f 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 window."...:group.'dirvish.:type
21a20 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 6d 65 .'boolean)..(defconst.dirvish-me
21a40 64 69 61 2d 2d 65 6d 62 65 64 64 65 64 2d 76 69 64 65 6f 2d 74 68 75 6d 62 0a 20 20 28 73 74 72 dia--embedded-video-thumb...(str
21a60 69 6e 67 2d 6d 61 74 63 68 20 22 70 72 65 66 65 72 20 65 6d 62 65 64 64 65 64 20 69 6d 61 67 65 ing-match."prefer.embedded.image
21a80 22 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 66 66 6d 70 ".(shell-command-to-string."ffmp
21aa0 65 67 74 68 75 6d 62 6e 61 69 6c 65 72 20 2d 68 22 29 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 64 egthumbnailer.-h"))).(defconst.d
21ac0 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 6d 61 78 2d 77 69 64 74 68 20 32 34 30 30 irvish-media--img-max-width.2400
21ae0 29 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 ).(defconst.dirvish-media--img-s
21b00 63 61 6c 65 2d 68 20 30 2e 37 35 29 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 6d cale-h.0.75).(defconst.dirvish-m
21b20 65 64 69 61 2d 2d 69 6d 67 2d 73 63 61 6c 65 2d 77 20 30 2e 39 32 29 0a 28 64 65 66 63 6f 6e 73 edia--img-scale-w.0.92).(defcons
21b40 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6e 66 6f 0a 20 20 22 47 65 6e 65 72 61 6c t.dirvish-media--info..."General
21b60 3b 28 46 75 6c 6c 2d 6e 61 6d 65 20 2e 20 5c 22 5c 22 25 46 69 6c 65 4e 61 6d 65 25 5c 22 5c 22 ;(Full-name...\"\"%FileName%\"\"
21b80 29 28 46 6f 72 6d 61 74 20 2e 20 5c 22 5c 22 25 46 6f 72 6d 61 74 25 5c 22 5c 22 29 28 46 69 6c )(Format...\"\"%Format%\"\")(Fil
21ba0 65 2d 73 69 7a 65 20 2e 20 5c 22 5c 22 25 46 69 6c 65 53 69 7a 65 2f 53 74 72 69 6e 67 31 25 5c e-size...\"\"%FileSize/String1%\
21bc0 22 5c 22 29 28 44 75 72 61 74 69 6f 6e 20 2e 20 5c 22 5c 22 25 44 75 72 61 74 69 6f 6e 2f 53 74 "\")(Duration...\"\"%Duration/St
21be0 72 69 6e 67 33 25 5c 22 5c 22 29 0a 49 6d 61 67 65 3b 28 57 69 64 74 68 20 2e 20 5c 22 5c 22 25 ring3%\"\").Image;(Width...\"\"%
21c00 57 69 64 74 68 2f 53 74 72 69 6e 67 25 5c 22 5c 22 29 28 48 65 69 67 68 74 20 2e 20 5c 22 5c 22 Width/String%\"\")(Height...\"\"
21c20 25 48 65 69 67 68 74 2f 53 74 72 69 6e 67 25 5c 22 5c 22 29 28 42 69 74 2d 64 65 70 74 68 20 2e %Height/String%\"\")(Bit-depth..
21c40 20 5c 22 5c 22 25 42 69 74 44 65 70 74 68 2f 53 74 72 69 6e 67 25 5c 22 5c 22 29 28 43 6f 6c 6f .\"\"%BitDepth/String%\"\")(Colo
21c60 72 2d 73 70 61 63 65 20 2e 20 5c 22 5c 22 25 43 6f 6c 6f 72 53 70 61 63 65 25 5c 22 5c 22 29 28 r-space...\"\"%ColorSpace%\"\")(
21c80 43 68 72 6f 6d 61 2d 73 75 62 73 61 6d 70 6c 69 6e 67 20 2e 20 5c 22 5c 22 25 43 68 72 6f 6d 61 Chroma-subsampling...\"\"%Chroma
21ca0 53 75 62 73 61 6d 70 6c 69 6e 67 25 5c 22 5c 22 29 28 43 6f 6d 70 72 65 73 73 69 6f 6e 2d 6d 6f Subsampling%\"\")(Compression-mo
21cc0 64 65 20 2e 20 5c 22 5c 22 25 43 6f 6d 70 72 65 73 73 69 6f 6e 5f 4d 6f 64 65 2f 53 74 72 69 6e de...\"\"%Compression_Mode/Strin
21ce0 67 25 5c 22 5c 22 29 0a 56 69 64 65 6f 3b 28 52 65 73 6f 6c 75 74 69 6f 6e 20 2e 20 5c 22 5c 22 g%\"\").Video;(Resolution...\"\"
21d00 25 57 69 64 74 68 25 20 78 20 25 48 65 69 67 68 74 25 5c 22 5c 22 29 28 56 69 64 65 6f 2d 63 6f %Width%.x.%Height%\"\")(Video-co
21d20 64 65 63 20 2e 20 5c 22 5c 22 25 43 6f 64 65 63 49 44 25 5c 22 5c 22 29 28 46 72 61 6d 65 72 61 dec...\"\"%CodecID%\"\")(Framera
21d40 74 65 20 2e 20 5c 22 5c 22 25 46 72 61 6d 65 52 61 74 65 25 5c 22 5c 22 29 28 56 69 64 65 6f 2d te...\"\"%FrameRate%\"\")(Video-
21d60 62 69 74 72 61 74 65 20 2e 20 5c 22 5c 22 25 42 69 74 52 61 74 65 2f 53 74 72 69 6e 67 25 5c 22 bitrate...\"\"%BitRate/String%\"
21d80 5c 22 29 0a 41 75 64 69 6f 3b 28 41 75 64 69 6f 2d 63 6f 64 65 63 20 2e 20 5c 22 5c 22 25 43 6f \").Audio;(Audio-codec...\"\"%Co
21da0 64 65 63 49 44 25 5c 22 5c 22 29 28 41 75 64 69 6f 2d 62 69 74 72 61 74 65 20 2e 20 5c 22 5c 22 decID%\"\")(Audio-bitrate...\"\"
21dc0 25 42 69 74 52 61 74 65 2f 53 74 72 69 6e 67 25 5c 22 5c 22 29 28 41 75 64 69 6f 2d 73 61 6d 70 %BitRate/String%\"\")(Audio-samp
21de0 6c 69 6e 67 2d 72 61 74 65 20 2e 20 5c 22 5c 22 25 53 61 6d 70 6c 69 6e 67 52 61 74 65 2f 53 74 ling-rate...\"\"%SamplingRate/St
21e00 72 69 6e 67 25 5c 22 5c 22 29 28 41 75 64 69 6f 2d 63 68 61 6e 6e 65 6c 73 20 2e 20 5c 22 5c 22 ring%\"\")(Audio-channels...\"\"
21e20 25 43 68 61 6e 6e 65 6c 4c 61 79 6f 75 74 25 5c 22 5c 22 29 22 29 0a 0a 28 64 65 66 66 61 63 65 %ChannelLayout%\"\")")..(defface
21e40 20 64 69 72 76 69 73 68 2d 66 72 65 65 2d 73 70 61 63 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 .dirvish-free-space...'((t.(:inh
21e60 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 29 29 0a erit.font-lock-constant-face))).
21e80 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 60 66 72 65 65 2d 73 70 61 63 65 27 20 6d 6f .."Face.used.for.`free-space'.mo
21ea0 64 65 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 de-line.segment."...:group.'dirv
21ec0 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 6c 69 6e 6b ish)..(defface.dirvish-file-link
21ee0 2d 6e 75 6d 62 65 72 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f -number...'((t.(:inherit.font-lo
21f00 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 ck-constant-face)))..."Face.used
21f20 20 66 6f 72 20 66 69 6c 65 20 6c 69 6e 6b 20 6e 75 6d 62 65 72 20 6d 6f 64 65 2d 6c 69 6e 65 20 .for.file.link.number.mode-line.
21f40 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 segment."...:group.'dirvish)..(d
21f60 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 75 73 65 72 2d 69 64 0a 20 20 27 28 efface.dirvish-file-user-id...'(
21f80 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 70 72 65 70 72 6f 63 65 73 (t.(:inherit.font-lock-preproces
21fa0 73 6f 72 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 66 69 6c sor-face)))..."Face.used.for.fil
21fc0 65 20 73 69 7a 65 20 61 74 74 72 69 62 75 74 65 73 20 2f 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 65 e.size.attributes./.mode-line.se
21fe0 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 gment."...:group.'dirvish)..(def
22000 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 67 72 6f 75 70 2d 69 64 0a 20 20 27 28 28 face.dirvish-file-group-id...'((
22020 74 20 28 3a 69 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 75 73 65 72 2d 69 64 t.(:inherit.dirvish-file-user-id
22040 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 66 69 6c 65 20 67 72 6f 75 70 20 )))..."Face.used.for.file.group.
22060 69 64 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 id.mode-line.segment."...:group.
22080 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 'dirvish)..(defface.dirvish-file
220a0 2d 74 69 6d 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 73 68 61 64 6f 77 20 3a 75 -time...'((t.(:inherit.shadow.:u
220c0 6e 64 65 72 6c 69 6e 65 20 6e 69 6c 20 3a 69 74 61 6c 69 63 20 6e 69 6c 29 29 29 0a 20 20 22 46 nderline.nil.:italic.nil)))..."F
220e0 61 63 65 20 75 73 65 64 20 66 6f 72 20 66 69 6c 65 20 61 63 63 65 73 73 2f 6d 6f 64 69 66 79 2f ace.used.for.file.access/modify/
22100 63 68 61 6e 67 65 20 74 69 6d 65 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a change.time.mode-line.segment.".
22120 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 ..:group.'dirvish)..(defface.dir
22140 76 69 73 68 2d 66 69 6c 65 2d 73 69 7a 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 vish-file-size...'((t.(:inherit.
22160 63 6f 6d 70 6c 65 74 69 6f 6e 73 2d 61 6e 6e 6f 74 61 74 69 6f 6e 73 20 3a 75 6e 64 65 72 6c 69 completions-annotations.:underli
22180 6e 65 20 6e 69 6c 20 3a 69 74 61 6c 69 63 20 6e 69 6c 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 ne.nil.:italic.nil)))..."Face.us
221a0 65 64 20 66 6f 72 20 64 69 73 70 6c 61 79 20 66 69 6c 65 20 73 69 7a 65 20 61 74 74 72 69 62 75 ed.for.display.file.size.attribu
221c0 74 65 73 20 2f 20 6d 6f 64 65 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f tes./.mode-line.segment."...:gro
221e0 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 up.'dirvish)..(defface.dirvish-f
22200 69 6c 65 2d 6d 6f 64 65 73 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 66 6f 6e 74 2d ile-modes...'((t.(:inherit.font-
22220 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d 66 61 63 65 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 lock-builtin-face)))..."Face.use
22240 64 20 66 6f 72 20 66 69 6c 65 20 6d 6f 64 65 20 28 70 72 69 76 69 6c 65 67 65 29 20 6d 6f 64 65 d.for.file.mode.(privilege).mode
22260 2d 6c 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 -line.segment."...:group.'dirvis
22280 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 69 6e 6f 64 65 2d h)..(defface.dirvish-file-inode-
222a0 6e 75 6d 62 65 72 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d number...'((t.(:inherit.dirvish-
222c0 66 69 6c 65 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 file-link-number)))..."Face.used
222e0 20 66 6f 72 20 66 69 6c 65 20 69 6e 6f 64 65 20 6e 75 6d 62 65 72 20 6d 6f 64 65 2d 6c 69 6e 65 .for.file.inode.number.mode-line
22300 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 .segment."...:group.'dirvish)..(
22320 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 64 65 76 69 63 65 2d 6e 75 6d 62 defface.dirvish-file-device-numb
22340 65 72 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 66 69 6c 65 er...'((t.(:inherit.dirvish-file
22360 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 -link-number)))..."Face.used.for
22380 20 66 69 6c 65 73 79 73 74 65 6d 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 20 6d 6f 64 65 2d 6c .filesystem.device.number.mode-l
223a0 69 6e 65 20 73 65 67 6d 65 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 ine.segment."...:group.'dirvish)
223c0 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d 68 65 ..(defface.dirvish-media-info-he
223e0 61 64 69 6e 67 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 28 64 69 72 65 64 2d 68 65 61 ading...'((t.:inherit.(dired-hea
22400 64 65 72 20 62 6f 6c 64 29 29 29 0a 20 20 22 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 68 65 61 der.bold)))..."Face.used.for.hea
22420 64 69 6e 67 20 6f 66 20 6d 65 64 69 61 20 70 72 6f 70 65 72 74 79 20 67 72 6f 75 70 73 2e 22 0a ding.of.media.property.groups.".
22440 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 ..:group.'dirvish)..(defface.dir
22460 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d 70 72 6f 70 65 72 74 79 2d 6b 65 79 0a 20 20 27 vish-media-info-property-key...'
22480 28 28 74 20 3a 69 6e 68 65 72 69 74 20 28 69 74 61 6c 69 63 29 29 29 0a 20 20 22 46 61 63 65 20 ((t.:inherit.(italic)))..."Face.
224a0 75 73 65 64 20 66 6f 72 20 65 6d 65 72 67 65 20 67 72 6f 75 70 20 74 69 74 6c 65 2e 22 0a 20 20 used.for.emerge.group.title."...
224c0 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 3b 3b 3b 3b 20 48 65 6c 70 65 72 73 0a 0a :group.'dirvish)..;;;;.Helpers..
224e0 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d (defun.dirvish--attr-size-human-
22500 72 65 61 64 61 62 6c 65 20 28 66 69 6c 65 2d 73 69 7a 65 29 0a 20 20 22 50 72 6f 64 75 63 65 20 readable.(file-size)..."Produce.
22520 61 20 73 74 72 69 6e 67 20 73 68 6f 77 69 6e 67 20 46 49 4c 45 2d 53 49 5a 45 20 69 6e 20 68 75 a.string.showing.FILE-SIZE.in.hu
22540 6d 61 6e 2d 72 65 61 64 61 62 6c 65 20 66 6f 72 6d 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 6f 77 man-readable.form."...(let.((pow
22560 65 72 20 31 30 32 34 2e 30 29 0a 20 20 20 20 20 20 20 20 28 70 72 65 66 69 78 65 73 20 27 28 22 er.1024.0).........(prefixes.'("
22580 22 20 22 6b 22 20 22 4d 22 20 22 47 22 20 22 54 22 20 22 50 22 20 22 45 22 20 22 5a 22 20 22 59 "."k"."M"."G"."T"."P"."E"."Z"."Y
225a0 22 29 29 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3e 3d 20 66 69 6c 65 2d 73 69 "))).....(while.(and.(>=.file-si
225c0 7a 65 20 70 6f 77 65 72 29 20 28 63 64 72 20 70 72 65 66 69 78 65 73 29 29 0a 20 20 20 20 20 20 ze.power).(cdr.prefixes)).......
225e0 28 73 65 74 71 20 66 69 6c 65 2d 73 69 7a 65 20 28 2f 20 66 69 6c 65 2d 73 69 7a 65 20 70 6f 77 (setq.file-size.(/.file-size.pow
22600 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 66 69 78 65 73 20 28 63 64 72 20 70 72 er).............prefixes.(cdr.pr
22620 65 66 69 78 65 73 29 29 29 0a 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 efixes))).....(substring.(format
22640 20 28 69 66 20 28 61 6e 64 20 28 3c 20 66 69 6c 65 2d 73 69 7a 65 20 31 30 29 0a 20 20 20 20 20 .(if.(and.(<.file-size.10)......
22660 20 20 20 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 ...........................(>=.(
22680 6d 6f 64 20 66 69 6c 65 2d 73 69 7a 65 20 31 2e 30 29 20 30 2e 30 35 29 0a 20 20 20 20 20 20 20 mod.file-size.1.0).0.05)........
226a0 20 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 3c 20 28 6d 6f 64 .........................(<.(mod
226c0 20 66 69 6c 65 2d 73 69 7a 65 20 31 2e 30 29 20 30 2e 39 35 29 29 0a 20 20 20 20 20 20 20 20 20 .file-size.1.0).0.95))..........
226e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 20 20 20 20 20 20 25 2e 31 66 25 73 25 .................."......%.1f%s%
22700 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 22 20 20 20 s".........................."...
22720 20 20 20 25 2e 30 66 25 73 25 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ...%.0f%s%s")...................
22740 20 20 20 20 20 66 69 6c 65 2d 73 69 7a 65 20 28 63 61 72 20 70 72 65 66 69 78 65 73 29 0a 20 20 .....file-size.(car.prefixes)...
22760 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 28 64 69 72 76 69 73 .....................(if.(dirvis
22780 68 2d 70 72 6f 70 20 3a 67 75 69 29 20 22 20 22 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 h-prop.:gui).".".""))...........
227a0 20 20 20 20 20 2d 36 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 66 69 6c 65 .....-6)))..(defun.dirvish--file
227c0 2d 61 74 74 72 2d 73 69 7a 65 20 28 6e 61 6d 65 20 61 74 74 72 73 29 0a 20 20 22 47 65 74 20 66 -attr-size.(name.attrs)..."Get.f
227e0 69 6c 65 20 73 69 7a 65 20 6f 66 20 66 69 6c 65 20 4e 41 4d 45 20 66 72 6f 6d 20 41 54 54 52 53 ile.size.of.file.NAME.from.ATTRS
22800 2e 22 0a 20 20 28 63 6f 6e 64 20 28 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 ."...(cond.((dirvish-prop.:remot
22820 65 29 0a 20 20 20 20 20 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 28 66 6f 72 6d 61 74 20 22 e)..........(substring.(format."
22840 20 20 20 20 20 20 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ......%s%s".....................
22860 20 20 20 20 20 20 20 20 28 6f 72 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 73 69 7a 65 ........(or.(file-attribute-size
22880 20 61 74 74 72 73 29 20 22 3f 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .attrs)."?")....................
228a0 20 20 20 20 20 20 20 20 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 67 75 69 29 .........(if.(dirvish-prop.:gui)
228c0 20 22 20 22 20 22 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 36 ."."."")).....................-6
228e0 29 29 0a 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 70 20 28 66 69 6c 65 2d 61 74 74 72 69 )).........((stringp.(file-attri
22900 62 75 74 65 2d 74 79 70 65 20 61 74 74 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 bute-type.attrs))..........(let.
22920 28 28 63 74 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 ((ct.(dirvish-attribute-cache.na
22940 6d 65 20 3a 66 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 me.:f-count.....................
22960 20 28 63 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 20 20 20 .(condition-case.nil............
22980 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 73 20 28 64 69 72 65 ..............(let.((files.(dire
229a0 63 74 6f 72 79 2d 66 69 6c 65 73 20 6e 61 6d 65 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 ctory-files.name.nil.nil.t)))...
229c0 20 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 69 72 76 69 73 .........................(dirvis
229e0 68 2d 2d 61 74 74 72 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 0a 20 20 20 20 h--attr-size-human-readable.....
22a00 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 2d 20 28 6c 65 6e 67 ........................(-.(leng
22a20 74 68 20 66 69 6c 65 73 29 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 th.files).2)))..................
22a40 20 20 20 20 20 20 28 66 69 6c 65 2d 65 72 72 6f 72 20 27 66 69 6c 65 29 29 29 29 29 0a 20 20 20 ......(file-error.'file)))))....
22a60 20 20 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 65 71 20 63 74 20 27 66 69 6c 65 29 29 20 ........(if.(not.(eq.ct.'file)).
22a80 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 ct..............(dirvish-attribu
22aa0 74 65 2d 63 61 63 68 65 20 6e 61 6d 65 20 3a 66 2d 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 te-cache.name.:f-size...........
22ac0 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 61 74 74 72 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d 72 .....(dirvish--attr-size-human-r
22ae0 65 61 64 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 61 eadable..................(file-a
22b00 74 74 72 69 62 75 74 65 2d 73 69 7a 65 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 6e ttribute-size.(file-attributes.n
22b20 61 6d 65 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 28 66 69 6c 65 2d 61 74 74 72 69 62 ame))))))).........((file-attrib
22b40 75 74 65 2d 74 79 70 65 20 61 74 74 72 73 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 ute-type.attrs)..........(let.((
22b60 63 74 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 6d 65 ct.(dirvish-attribute-cache.name
22b80 20 3a 66 2d 63 6f 75 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .:f-count......................(
22ba0 63 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 20 20 20 20 20 condition-case.nil..............
22bc0 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 73 20 28 64 69 72 65 63 74 ............(let.((files.(direct
22be0 6f 72 79 2d 66 69 6c 65 73 20 6e 61 6d 65 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 ory-files.name.nil.nil.t))).....
22c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d .......................(dirvish-
22c20 2d 61 74 74 72 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 0a 20 20 20 20 20 20 -attr-size-human-readable.......
22c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 28 6c 65 6e 67 74 68 ......................(-.(length
22c60 20 66 69 6c 65 73 29 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .files).2)))....................
22c80 20 20 20 20 28 66 69 6c 65 2d 65 72 72 6f 72 20 27 6e 6f 2d 70 65 72 6d 69 73 73 69 6f 6e 29 29 ....(file-error.'no-permission))
22ca0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 63 74 20 27 6e 6f 2d 70 65 )))............(if.(eq.ct.'no-pe
22cc0 72 6d 69 73 73 69 6f 6e 29 20 22 20 2d 2d 2d 2d 20 22 20 63 74 29 29 29 0a 20 20 20 20 20 20 20 rmission).".----.".ct)))........
22ce0 20 28 74 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 6d .(t.(dirvish-attribute-cache.nam
22d00 65 20 3a 66 2d 73 69 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d e.:f-size..............(dirvish-
22d20 2d 61 74 74 72 2d 73 69 7a 65 2d 68 75 6d 61 6e 2d 72 65 61 64 61 62 6c 65 0a 20 20 20 20 20 20 -attr-size-human-readable.......
22d40 20 20 20 20 20 20 20 20 28 6f 72 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 73 69 7a 65 ........(or.(file-attribute-size
22d60 20 61 74 74 72 73 29 20 30 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d .attrs).0))))))..(defun.dirvish-
22d80 2d 66 69 6c 65 2d 61 74 74 72 2d 74 69 6d 65 20 28 6e 61 6d 65 20 61 74 74 72 73 29 0a 20 20 22 -file-attr-time.(name.attrs)..."
22da0 46 69 6c 65 20 4e 41 4d 45 27 73 20 6d 6f 64 69 66 69 65 64 20 74 69 6d 65 20 66 72 6f 6d 20 41 File.NAME's.modified.time.from.A
22dc0 54 54 52 53 2e 22 0a 20 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f TTRS."...(if.(dirvish-prop.:remo
22de0 74 65 29 0a 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 20 25 73 20 22 20 28 6f 72 20 28 66 te).......(format."..%s.".(or.(f
22e00 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 20 ile-attribute-modification-time.
22e20 61 74 74 72 73 29 20 22 3f 22 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 20 25 73 20 22 attrs)."?")).....(format."..%s."
22e40 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 6d 65 20 3a .(dirvish-attribute-cache.name.:
22e60 66 2d 74 69 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 28 66 6f f-time.......................(fo
22e80 72 6d 61 74 2d 74 69 6d 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rmat-time-string................
22ea0 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 74 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 74 72 69 ........dirvish-time-format-stri
22ec0 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 28 66 69 6c 65 2d ng........................(file-
22ee0 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 74 69 6f 6e 2d 74 69 6d 65 20 61 74 74 72 attribute-modification-time.attr
22f00 73 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d s))))))..(defun.dirvish--format-
22f20 66 69 6c 65 2d 61 74 74 72 20 28 61 74 74 72 2d 6e 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 file-attr.(attr-name)..."Return.
22f40 61 20 73 74 72 69 6e 67 20 6f 66 20 63 75 72 73 6f 72 20 66 69 6c 65 27 73 20 61 74 74 72 69 62 a.string.of.cursor.file's.attrib
22f60 75 74 65 20 41 54 54 52 2d 4e 41 4d 45 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6e ute.ATTR-NAME."...(when-let*.((n
22f80 61 6d 65 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 ame.(dirvish-prop.:index))......
22fa0 20 20 20 20 20 20 20 20 20 28 61 74 74 72 73 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 .........(attrs.(dirvish-attribu
22fc0 74 65 2d 63 61 63 68 65 20 6e 61 6d 65 20 3a 62 75 69 6c 74 69 6e 29 29 0a 20 20 20 20 20 20 20 te-cache.name.:builtin))........
22fe0 20 20 20 20 20 20 20 28 61 74 74 72 2d 67 65 74 74 65 72 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 .......(attr-getter.(intern.(for
23000 6d 61 74 20 22 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 25 73 22 20 61 74 74 72 2d 6e 61 6d mat."file-attribute-%s".attr-nam
23020 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 74 72 2d 66 61 63 65 20 28 69 e)))...............(attr-face.(i
23040 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 25 73 22 20 ntern.(format."dirvish-file-%s".
23060 61 74 74 72 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 74 72 attr-name)))...............(attr
23080 2d 76 61 6c 20 28 61 6e 64 20 61 74 74 72 73 20 28 66 75 6e 63 61 6c 6c 20 61 74 74 72 2d 67 65 -val.(and.attrs.(funcall.attr-ge
230a0 74 74 65 72 20 61 74 74 72 73 29 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 28 tter.attrs)))).....(propertize.(
230c0 66 6f 72 6d 61 74 20 22 25 73 22 20 61 74 74 72 2d 76 61 6c 29 20 27 66 61 63 65 20 61 74 74 72 format."%s".attr-val).'face.attr
230e0 2d 66 61 63 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d -face)))..(defun.dirvish-media--
23100 63 61 63 68 65 2d 70 61 74 68 20 28 66 69 6c 65 20 26 6f 70 74 69 6f 6e 61 6c 20 62 61 73 65 20 cache-path.(file.&optional.base.
23120 65 78 74 20 6e 6f 2d 6d 6b 64 69 72 29 0a 20 20 22 47 65 74 20 46 49 4c 45 27 73 20 63 61 63 68 ext.no-mkdir)..."Get.FILE's.cach
23140 65 20 70 61 74 68 2e 0a 42 41 53 45 20 69 73 20 61 20 73 74 72 69 6e 67 20 69 6e 64 69 63 61 74 e.path..BASE.is.a.string.indicat
23160 69 6e 67 20 74 68 65 20 73 75 62 64 69 72 20 6f 66 20 60 64 69 72 76 69 73 68 2d 63 61 63 68 65 ing.the.subdir.of.`dirvish-cache
23180 2d 64 69 72 27 20 74 6f 0a 75 73 65 2e 20 20 45 58 54 20 69 73 20 61 20 73 75 66 66 69 78 20 73 -dir'.to.use...EXT.is.a.suffix.s
231a0 75 63 68 20 61 73 20 5c 22 2e 6a 70 67 5c 22 20 74 68 61 74 20 69 73 20 61 74 74 61 63 68 65 64 uch.as.\".jpg\".that.is.attached
231c0 20 74 6f 20 46 49 4c 45 2e 0a 41 20 6e 65 77 20 64 69 72 65 63 74 6f 72 79 20 69 73 20 63 72 65 .to.FILE..A.new.directory.is.cre
231e0 61 74 65 64 20 75 6e 6c 65 73 73 20 4e 4f 2d 4d 4b 44 49 52 2e 22 0a 20 20 28 6c 65 74 2a 20 28 ated.unless.NO-MKDIR."...(let*.(
23200 28 66 69 6c 65 20 28 69 66 20 28 6d 65 6d 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 28 77 69 (file.(if.(memq.system-type.'(wi
23220 6e 64 6f 77 73 2d 6e 74 20 6d 73 2d 64 6f 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ndows-nt.ms-dos))...............
23240 20 20 20 20 20 28 63 6f 6e 63 61 74 20 22 2f 22 20 28 72 65 70 6c 61 63 65 2d 72 65 67 65 78 70 .....(concat."/".(replace-regexp
23260 2d 69 6e 2d 73 74 72 69 6e 67 20 22 3a 22 20 22 22 20 66 69 6c 65 29 29 20 66 69 6c 65 29 29 0a -in-string.":"."".file)).file)).
23280 20 20 20 20 20 20 20 20 20 28 63 61 63 68 65 20 28 63 6f 6e 63 61 74 20 64 69 72 76 69 73 68 2d .........(cache.(concat.dirvish-
232a0 63 61 63 68 65 2d 64 69 72 20 62 61 73 65 20 66 69 6c 65 29 29 29 0a 20 20 20 20 28 61 6e 64 20 cache-dir.base.file))).....(and.
232c0 28 6e 6f 74 20 6e 6f 2d 6d 6b 64 69 72 29 20 28 6e 6f 74 20 28 66 69 6c 65 2d 65 78 69 73 74 73 (not.no-mkdir).(not.(file-exists
232e0 2d 70 20 63 61 63 68 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 64 69 72 65 63 74 -p.cache))..........(make-direct
23300 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 63 61 63 68 65 29 20 ory.(file-name-directory.cache).
23320 74 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 63 61 63 68 65 20 65 78 74 29 29 29 0a 0a 28 64 t)).....(concat.cache.ext)))..(d
23340 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 73 65 6e 74 69 6e efun.dirvish-media--cache-sentin
23360 65 6c 20 28 70 72 6f 63 20 5f 65 78 69 74 63 6f 64 65 29 0a 20 20 22 53 65 6e 74 69 6e 65 6c 20 el.(proc._exitcode)..."Sentinel.
23380 66 6f 72 20 69 6d 61 67 65 20 63 61 63 68 65 20 70 72 6f 63 65 73 73 20 50 52 4f 43 2e 22 0a 20 for.image.cache.process.PROC."..
233a0 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 64 76 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 63 75 .(when-let*.((dv.(or.(dirvish-cu
233c0 72 72 29 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 rr).dirvish--this)).............
233e0 20 20 28 70 61 74 68 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 29 0a ..(path.(dirvish-prop.:index))).
23400 20 20 20 20 28 61 6e 64 20 28 65 71 75 61 6c 20 70 61 74 68 20 28 70 72 6f 63 65 73 73 2d 67 65 ....(and.(equal.path.(process-ge
23420 74 20 70 72 6f 63 20 27 70 61 74 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 t.proc.'path))..........(dirvish
23440 2d 64 65 62 6f 75 6e 63 65 20 6e 69 6c 20 28 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d -debounce.nil.(dirvish--preview-
23460 75 70 64 61 74 65 20 64 76 20 70 61 74 68 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 update.dv.path)))))..(defun.dirv
23480 69 73 68 2d 6d 65 64 69 61 2d 2d 61 75 74 6f 63 61 63 68 65 20 28 29 0a 20 20 22 50 6f 70 20 61 ish-media--autocache.()..."Pop.a
234a0 6e 64 20 72 75 6e 20 74 68 65 20 63 61 63 68 65 20 74 61 73 6b 73 20 69 6e 20 60 64 69 72 76 69 nd.run.the.cache.tasks.in.`dirvi
234c0 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 6f 6f 6c 27 2e 22 0a 20 20 28 77 68 65 6e 20 sh-media--cache-pool'."...(when.
234e0 28 61 6e 64 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 6f 6f 6c 0a 20 (and.dirvish-media--cache-pool..
23500 20 20 20 20 20 20 20 20 20 20 20 20 28 3c 20 28 6c 65 6e 67 74 68 20 28 70 72 6f 63 65 73 73 2d ............(<.(length.(process-
23520 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 64 72 20 list)).................(or.(cdr.
23540 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 61 75 74 6f 2d 63 61 63 68 65 2d 74 68 72 65 73 68 6f dirvish-media-auto-cache-thresho
23560 6c 64 29 20 30 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 70 72 6f 63 65 73 73 2d 63 6f 6e 6e 65 ld).0))).....(let.(process-conne
23580 63 74 69 6f 6e 2d 74 79 70 65 20 70 72 6f 63 29 0a 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c 65 ction-type.proc).......(pcase-le
235a0 74 2a 20 28 28 60 28 2c 70 72 6f 63 6e 61 6d 65 20 2e 20 28 2c 70 61 74 68 20 2c 5f 77 69 64 74 t*.((`(,procname...(,path.,_widt
235c0 68 20 2c 63 6d 64 20 2c 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h.,cmd.,args))..................
235e0 20 20 20 28 70 6f 70 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 6f 6f ...(pop.dirvish-media--cache-poo
23600 6c 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 70 61 74 68 0a 20 20 20 20 20 20 20 20 l))).........(when.path.........
23620 20 20 28 73 65 74 71 20 70 72 6f 63 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 70 72 6f 63 ..(setq.proc.(apply.#'start-proc
23640 65 73 73 20 70 72 6f 63 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ess.procname....................
23660 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 22 .........(dirvish--util-buffer."
23680 69 6d 67 2d 63 61 63 68 65 22 29 20 63 6d 64 20 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 img-cache").cmd.args))..........
236a0 20 28 70 72 6f 63 65 73 73 2d 70 75 74 20 70 72 6f 63 20 27 70 61 74 68 20 70 61 74 68 29 0a 20 .(process-put.proc.'path.path)..
236c0 20 20 20 20 20 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 20 70 .........(set-process-sentinel.p
236e0 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 73 65 6e 74 69 roc.#'dirvish-media--cache-senti
23700 6e 65 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d nel))))))..(defun.dirvish-media-
23720 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 28 67 72 6f 75 70 2d 74 69 74 6c 65 73 29 0a 20 20 -group-heading.(group-titles)...
23740 22 46 6f 72 6d 61 74 20 6d 65 64 69 61 20 67 72 6f 75 70 20 68 65 61 64 69 6e 67 20 69 6e 20 44 "Format.media.group.heading.in.D
23760 69 72 76 69 73 68 20 70 72 65 76 69 65 77 20 62 75 66 66 65 72 2e 0a 47 52 4f 55 50 2d 54 49 54 irvish.preview.buffer..GROUP-TIT
23780 4c 45 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 67 72 6f 75 70 20 74 69 74 6c 65 73 2e 22 0a LES.is.a.list.of.group.titles.".
237a0 20 20 28 6c 65 74 20 28 28 70 72 65 66 69 78 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 20 20 ..(let.((prefix.(propertize."...
237c0 20 22 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 20 .".'face........................
237e0 20 20 20 20 20 27 28 3a 69 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e .....'(:inherit.dirvish-media-in
23800 66 6f 2d 68 65 61 64 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 fo-heading......................
23820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 72 69 6b 65 2d 74 68 72 6f 75 67 ..................:strike-throug
23840 68 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 74 69 74 6c 65 20 28 70 72 6f 70 65 72 74 69 7a h.t))).........(title.(propertiz
23860 65 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 20 25 73 20 22 e.................(format.".%s."
23880 20 28 6d 61 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 67 72 6f 75 70 2d 74 69 74 6c 65 .(mapconcat.#'concat.group-title
238a0 73 20 22 20 26 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 63 65 20 s.".&.")).................'face.
238c0 27 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d 68 65 61 64 69 6e 67 29 29 0a 20 20 'dirvish-media-info-heading))...
238e0 20 20 20 20 20 20 28 73 75 66 66 69 78 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 64 ......(suffix.(propertize.".".'d
23900 69 73 70 6c 61 79 20 27 28 73 70 61 63 65 20 3a 61 6c 69 67 6e 2d 74 6f 20 72 69 67 68 74 29 0a isplay.'(space.:align-to.right).
23920 20 20 20 20 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
23940 65 20 27 28 3a 69 6e 68 65 72 69 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d e.'(:inherit.dirvish-media-info-
23960 68 65 61 64 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 heading.........................
23980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 72 69 6b 65 2d 74 68 72 .....................:strike-thr
239a0 6f 75 67 68 20 74 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 25 73 5c 6e ough.t)))).....(format."%s%s%s\n
239c0 5c 6e 22 20 70 72 65 66 69 78 20 74 69 74 6c 65 20 73 75 66 66 69 78 29 29 29 0a 0a 28 64 65 66 \n".prefix.title.suffix)))..(def
239e0 75 6e 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 6d 65 74 61 64 61 74 61 2d 66 72 6f 6d 2d un.dirvish-media--metadata-from-
23a00 6d 65 64 69 61 69 6e 66 6f 20 28 66 69 6c 65 29 0a 20 20 22 52 65 74 75 72 6e 20 72 65 73 75 6c mediainfo.(file)..."Return.resul
23a20 74 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 63 6f 6d 6d 61 6e 64 20 60 6d 65 64 69 61 69 6e 66 6f t.string.from.command.`mediainfo
23a40 27 20 66 6f 72 20 46 49 4c 45 2e 22 0a 20 20 28 72 65 61 64 20 28 66 6f 72 6d 61 74 20 22 28 25 '.for.FILE."...(read.(format."(%
23a60 73 29 22 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 s)".(shell-command-to-string....
23a80 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 20 22 6d 65 .....................(format."me
23aa0 64 69 61 69 6e 66 6f 20 2d 2d 4f 75 74 70 75 74 3d 27 25 73 27 20 25 73 22 0a 20 20 20 20 20 20 diainfo.--Output='%s'.%s".......
23ac0 20 20 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 69 72 76 69 73 ..........................dirvis
23ae0 68 2d 6d 65 64 69 61 2d 2d 69 6e 66 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 h-media--info...................
23b00 20 20 20 20 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 ..............(shell-quote-argum
23b20 65 6e 74 20 66 69 6c 65 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6d ent.file))))))..(defun.dirvish-m
23b40 65 64 69 61 2d 2d 6d 65 74 61 64 61 74 61 2d 66 72 6f 6d 2d 70 64 66 69 6e 66 6f 20 28 66 69 6c edia--metadata-from-pdfinfo.(fil
23b60 65 29 0a 20 20 22 52 65 74 75 72 6e 20 72 65 73 75 6c 74 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 e)..."Return.result.string.from.
23b80 63 6f 6d 6d 61 6e 64 20 60 70 64 66 69 6e 66 6f 27 20 66 6f 72 20 46 49 4c 45 2e 22 0a 20 20 28 command.`pdfinfo'.for.FILE."...(
23ba0 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 6f 75 74 20 3d 20 28 73 68 65 6c 6c 2d 63 6f 6d 6d 61 6e cl-loop.with.out.=.(shell-comman
23bc0 64 2d 74 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 d-to-string.....................
23be0 20 20 20 28 66 6f 72 6d 61 74 20 22 70 64 66 69 6e 66 6f 20 25 73 22 20 28 73 68 65 6c 6c 2d 71 ...(format."pdfinfo.%s".(shell-q
23c00 75 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 uote-argument.file)))...........
23c20 20 77 69 74 68 20 6c 69 6e 65 73 20 3d 20 28 72 65 6d 6f 76 65 20 22 22 20 28 73 70 6c 69 74 2d .with.lines.=.(remove."".(split-
23c40 73 74 72 69 6e 67 20 6f 75 74 20 22 5c 6e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 string.out."\n"))............for
23c60 20 6c 69 6e 65 20 69 6e 20 6c 69 6e 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 74 .line.in.lines............for.(t
23c80 69 74 6c 65 20 63 6f 6e 74 65 6e 74 29 20 3d 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6c 69 itle.content).=.(split-string.li
23ca0 6e 65 20 22 3a 5c 73 2b 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 20 28 66 6f ne.":\s+")............concat.(fo
23cc0 72 6d 61 74 20 22 20 20 20 20 20 20 20 25 73 3a 5c 74 25 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 rmat.".......%s:\t%s\n".........
23ce0 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 74 69 ..................(propertize.ti
23d00 74 6c 65 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d 70 72 tle.'face.'dirvish-media-info-pr
23d20 6f 70 65 72 74 79 2d 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 operty-key).....................
23d40 20 20 20 20 20 20 63 6f 6e 74 65 6e 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 ......content)))..(defun.dirvish
23d60 2d 6d 65 64 69 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 74 61 64 61 74 61 20 28 6d 65 64 69 61 69 6e -media--format-metadata.(mediain
23d80 66 6f 20 70 72 6f 70 65 72 74 69 65 73 29 0a 20 20 22 52 65 74 75 72 6e 20 61 20 66 6f 72 6d 61 fo.properties)..."Return.a.forma
23da0 74 74 65 64 20 73 74 72 69 6e 67 20 6f 66 20 50 52 4f 50 45 52 54 49 45 53 20 66 72 6f 6d 20 4d tted.string.of.PROPERTIES.from.M
23dc0 45 44 49 41 49 4e 46 4f 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 70 72 6f 70 20 69 EDIAINFO."...(cl-loop.for.prop.i
23de0 6e 20 70 72 6f 70 65 72 74 69 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 70 2d 6e 61 n.properties............for.p-na
23e00 6d 65 20 3d 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 0a 20 me.=.(replace-regexp-in-string..
23e20 20 20 20 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 2d 22 20 22 ..........................."-"."
23e40 20 22 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 70 72 6f 70 29 29 0a 20 20 20 20 20 20 20 20 20 .".(format."%s".prop))..........
23e60 20 20 66 6f 72 20 69 6e 66 6f 20 3d 20 28 61 6c 69 73 74 2d 67 65 74 20 70 72 6f 70 20 6d 65 64 ..for.info.=.(alist-get.prop.med
23e80 69 61 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 iainfo)............concat.(forma
23ea0 74 20 22 20 20 20 20 20 20 20 25 73 3a 5c 74 25 73 5c 6e 22 0a 20 20 20 20 20 20 20 20 20 20 20 t.".......%s:\t%s\n"............
23ec0 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 70 2d 6e 61 6d ...............(propertize.p-nam
23ee0 65 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 69 6e 66 6f 2d 70 72 6f 70 e.'face.'dirvish-media-info-prop
23f00 65 72 74 79 2d 6b 65 79 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 erty-key).......................
23f20 20 20 20 20 69 6e 66 6f 29 29 29 0a 0a 3b 3b 3b 3b 20 41 74 74 72 69 62 75 74 65 73 0a 0a 28 64 ....info)))..;;;;.Attributes..(d
23f40 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 66 69 6c 65 2d 73 69 7a irvish-define-attribute.file-siz
23f60 65 0a 20 20 22 46 69 6c 65 20 73 69 7a 65 20 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 66 69 e..."File.size.or.directories.fi
23f80 6c 65 20 63 6f 75 6e 74 20 61 74 20 72 69 67 68 74 20 66 72 69 6e 67 65 2e 22 0a 20 20 3a 69 6e le.count.at.right.fringe."...:in
23fa0 64 65 78 20 31 0a 20 20 3a 77 68 65 6e 20 28 61 6e 64 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 dex.1...:when.(and.dired-hide-de
23fc0 74 61 69 6c 73 2d 6d 6f 64 65 20 28 3e 20 77 69 6e 2d 77 69 64 74 68 20 32 35 29 29 0a 20 20 28 tails-mode.(>.win-width.25))...(
23fe0 6c 65 74 2a 20 28 28 73 74 72 20 28 63 6f 6e 63 61 74 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6c let*.((str.(concat.(dirvish--fil
24000 65 2d 61 74 74 72 2d 73 69 7a 65 20 66 2d 6e 61 6d 65 20 66 2d 61 74 74 72 73 29 29 29 0a 20 20 e-attr-size.f-name.f-attrs)))...
24020 20 20 20 20 20 20 20 28 66 61 63 65 20 28 6f 72 20 68 6c 2d 66 61 63 65 20 27 64 69 72 76 69 73 .......(face.(or.hl-face.'dirvis
24040 68 2d 66 69 6c 65 2d 73 69 7a 65 29 29 29 0a 20 20 20 20 28 61 64 64 2d 66 61 63 65 2d 74 65 78 h-file-size))).....(add-face-tex
24060 74 2d 70 72 6f 70 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 20 73 74 72 29 20 66 61 63 65 20 74 t-property.0.(length.str).face.t
24080 20 73 74 72 29 0a 20 20 20 20 60 28 72 69 67 68 74 20 2e 20 2c 73 74 72 29 29 29 0a 0a 28 64 69 .str).....`(right...,str)))..(di
240a0 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 66 69 6c 65 2d 74 69 6d 65 rvish-define-attribute.file-time
240c0 0a 20 20 22 46 69 6c 65 27 73 20 6d 6f 64 69 66 69 65 64 20 74 69 6d 65 20 61 74 20 72 69 67 68 ..."File's.modified.time.at.righ
240e0 74 20 66 72 69 6e 67 65 20 62 65 66 6f 72 65 20 74 68 65 20 66 69 6c 65 20 73 69 7a 65 2e 22 0a t.fringe.before.the.file.size.".
24100 20 20 3a 77 68 65 6e 20 28 61 6e 64 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d ..:when.(and.dired-hide-details-
24120 6d 6f 64 65 20 28 3e 20 77 69 6e 2d 77 69 64 74 68 20 36 30 29 29 0a 20 20 28 6c 65 74 2a 20 28 mode.(>.win-width.60))...(let*.(
24140 28 73 74 72 20 28 63 6f 6e 63 61 74 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6c 65 2d 61 74 74 72 (str.(concat.(dirvish--file-attr
24160 2d 74 69 6d 65 20 66 2d 6e 61 6d 65 20 66 2d 61 74 74 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 -time.f-name.f-attrs))).........
24180 20 28 66 61 63 65 20 28 6f 72 20 68 6c 2d 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 66 69 6c 65 .(face.(or.hl-face.'dirvish-file
241a0 2d 74 69 6d 65 29 29 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 -time))).....(add-face-text-prop
241c0 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 20 73 74 72 29 20 66 61 63 65 20 74 20 73 74 72 29 0a erty.0.(length.str).face.t.str).
241e0 20 20 20 20 60 28 72 69 67 68 74 20 2e 20 2c 73 74 72 29 29 29 0a 0a 3b 3b 3b 3b 20 4d 6f 64 65 ....`(right...,str)))..;;;;.Mode
24200 20 6c 69 6e 65 20 73 65 67 6d 65 6e 74 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d .line.segments..(defun.dirvish--
24220 72 65 67 69 73 74 65 72 2d 70 61 74 68 2d 73 65 67 20 28 73 65 67 6d 65 6e 74 20 70 61 74 68 20 register-path-seg.(segment.path.
24240 66 61 63 65 29 0a 20 20 22 52 65 67 69 73 74 65 72 20 6d 6f 64 65 20 6c 69 6e 65 20 70 61 74 68 face)..."Register.mode.line.path
24260 20 53 45 47 4d 45 4e 54 20 77 69 74 68 20 74 61 72 67 65 74 20 50 41 54 48 20 61 6e 64 20 46 41 .SEGMENT.with.target.PATH.and.FA
24280 43 45 2e 22 0a 20 20 28 70 72 6f 70 65 72 74 69 7a 65 0a 20 20 20 73 65 67 6d 65 6e 74 20 27 66 CE."...(propertize....segment.'f
242a0 61 63 65 20 66 61 63 65 20 27 6d 6f 75 73 65 2d 66 61 63 65 20 27 68 69 67 68 6c 69 67 68 74 0a ace.face.'mouse-face.'highlight.
242c0 20 20 20 27 68 65 6c 70 2d 65 63 68 6f 20 22 6d 6f 75 73 65 2d 31 3a 20 76 69 73 69 74 20 74 68 ...'help-echo."mouse-1:.visit.th
242e0 69 73 20 64 69 72 65 63 74 6f 72 79 22 0a 20 20 20 27 6b 65 79 6d 61 70 20 60 28 68 65 61 64 65 is.directory"....'keymap.`(heade
24300 72 2d 6c 69 6e 65 20 6b 65 79 6d 61 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r-line.keymap...................
24320 20 20 20 20 20 20 20 28 6d 6f 75 73 65 2d 31 20 2e 20 28 6c 61 6d 62 64 61 20 28 5f 65 76 29 0a .......(mouse-1...(lambda.(_ev).
24340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
24360 20 20 20 20 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 20 20 20 20 20 20 ......(interactive."e").........
24380 20 20 20 20 20 20 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
243a0 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 2c 70 61 74 68 29 29 29 29 29 29 0a irvish-find-entry-a.,path)))))).
243c0 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 70 61 74 68 0a .(dirvish-define-mode-line.path.
243e0 20 20 22 50 61 74 68 20 6f 66 20 66 69 6c 65 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 .."Path.of.file.under.the.cursor
24400 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 64 69 72 65 63 74 6f 72 79 2d 61 62 62 72 65 76 2d 61 6c ."...(let*.((directory-abbrev-al
24420 69 73 74 20 6e 69 6c 29 20 3b 20 54 4f 44 4f 3a 20 73 75 70 70 6f 72 74 20 63 75 73 74 6f 6d 20 ist.nil).;.TODO:.support.custom.
24440 60 64 69 72 65 63 74 6f 72 79 2d 61 62 62 72 65 76 2d 61 6c 69 73 74 27 0a 20 20 20 20 20 20 20 `directory-abbrev-alist'........
24460 20 20 28 69 6e 64 65 78 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 ..(index.(dired-current-director
24480 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 69 66 20 28 64 69 72 76 69 73 68 2d y))..........(face.(if.(dirvish-
244a0 2d 77 69 6e 64 6f 77 2d 73 65 6c 65 63 74 65 64 2d 70 20 64 76 29 20 27 64 69 72 65 64 2d 68 65 -window-selected-p.dv).'dired-he
244c0 61 64 65 72 20 27 73 68 61 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 6d 74 20 28 64 69 ader.'shadow))..........(rmt.(di
244e0 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 rvish-prop.:remote))..........(a
24500 62 76 6e 61 6d 65 20 28 69 66 20 72 6d 74 20 28 66 69 6c 65 2d 6c 6f 63 61 6c 2d 6e 61 6d 65 20 bvname.(if.rmt.(file-local-name.
24520 69 6e 64 65 78 29 20 28 61 62 62 72 65 76 69 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 6e 64 index).(abbreviate-file-name.ind
24540 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 6f 73 74 20 28 70 72 6f 70 65 72 74 69 7a 65 ex)))..........(host.(propertize
24560 20 28 69 66 20 72 6d 74 20 28 63 6f 6e 63 61 74 20 22 20 22 20 28 73 75 62 73 74 72 69 6e 67 20 .(if.rmt.(concat.".".(substring.
24580 72 6d 74 20 31 29 29 20 22 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 rmt.1))."").....................
245a0 20 20 20 20 20 20 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d .......'face.'font-lock-builtin-
245c0 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 67 73 20 28 6e 62 75 74 6c 61 73 74 20 face))..........(segs.(nbutlast.
245e0 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 61 62 76 6e 61 6d 65 20 22 2f 22 29 29 29 0a 20 20 20 (split-string.abvname."/")))....
24600 20 20 20 20 20 20 28 73 63 6f 70 65 20 28 70 63 61 73 65 20 28 63 61 72 20 73 65 67 73 29 0a 20 ......(scope.(pcase.(car.segs)..
24620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 7e 22 20 28 64 69 72 76 69 73 68 2d 2d .................("~".(dirvish--
24640 72 65 67 69 73 74 65 72 2d 70 61 74 68 2d 73 65 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 register-path-seg...............
24660 20 20 20 20 20 20 20 20 20 20 28 6e 74 68 20 30 20 64 69 72 76 69 73 68 2d 70 61 74 68 2d 73 65 ..........(nth.0.dirvish-path-se
24680 70 61 72 61 74 6f 72 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 parators).......................
246a0 20 20 28 63 6f 6e 63 61 74 20 72 6d 74 20 22 7e 2f 22 29 20 66 61 63 65 29 29 0a 20 20 20 20 20 ..(concat.rmt."~/").face))......
246c0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 22 22 20 28 64 69 72 76 69 73 68 2d 2d 72 65 67 69 73 .............("".(dirvish--regis
246e0 74 65 72 2d 70 61 74 68 2d 73 65 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ter-path-seg....................
24700 20 20 20 20 20 28 6e 74 68 20 31 20 64 69 72 76 69 73 68 2d 70 61 74 68 2d 73 65 70 61 72 61 74 .....(nth.1.dirvish-path-separat
24720 6f 72 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 28 63 6f 6e ors)........................(con
24740 63 61 74 20 72 6d 74 20 22 2f 22 29 20 66 61 63 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 cat.rmt."/").face))))..........(
24760 70 61 74 68 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 64 78 20 66 72 6f 6d 20 32 0a 20 20 20 path.(cl-loop.for.idx.from.2....
24780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 73 70 20 3d 20 28 66 .....................for.sp.=.(f
247a0 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 20 20 ormat...........................
247c0 20 20 20 20 20 20 20 20 22 25 73 25 73 22 20 28 6f 72 20 72 6d 74 20 22 22 29 0a 20 20 20 20 20 ........"%s%s".(or.rmt."")......
247e0 20 20 20 20 20 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 61 .............................(ma
24800 70 63 6f 6e 63 61 74 20 23 27 63 6f 6e 63 61 74 20 28 73 65 71 2d 74 61 6b 65 20 73 65 67 73 20 pconcat.#'concat.(seq-take.segs.
24820 69 64 78 29 20 22 2f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 idx)."/"))......................
24840 20 20 20 66 6f 72 20 73 20 69 6e 20 28 63 64 72 20 73 65 67 73 29 20 63 6f 6e 63 61 74 0a 20 20 ...for.s.in.(cdr.segs).concat...
24860 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 20 22 25 ......................(format."%
24880 73 25 73 22 20 28 6e 74 68 20 32 20 64 69 72 76 69 73 68 2d 70 61 74 68 2d 73 65 70 61 72 61 74 s%s".(nth.2.dirvish-path-separat
248a0 6f 72 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 20 20 20 ors)............................
248c0 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 67 69 73 74 65 72 2d 70 61 74 68 2d 73 65 67 .....(dirvish--register-path-seg
248e0 20 73 20 73 70 20 66 61 63 65 29 29 29 29 29 0a 20 20 20 20 28 72 65 70 6c 61 63 65 2d 72 65 67 .s.sp.face))))).....(replace-reg
24900 65 78 70 2d 69 6e 2d 73 74 72 69 6e 67 20 22 25 22 20 22 25 25 25 25 22 20 28 66 6f 72 6d 61 74 exp-in-string."%"."%%%%".(format
24920 20 22 25 73 25 73 25 73 20 22 20 68 6f 73 74 20 73 63 6f 70 65 20 70 61 74 68 29 29 29 29 0a 0a ."%s%s%s.".host.scope.path))))..
24940 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 73 6f 72 74 0a 20 (dirvish-define-mode-line.sort..
24960 20 22 43 75 72 72 65 6e 74 20 73 6f 72 74 20 63 72 69 74 65 72 69 61 2e 22 0a 20 20 28 6c 65 74 ."Current.sort.criteria."...(let
24980 2a 20 28 28 73 77 69 74 63 68 65 73 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 64 69 72 65 64 *.((switches.(split-string.dired
249a0 2d 61 63 74 75 61 6c 2d 73 77 69 74 63 68 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 72 69 -actual-switches))..........(cri
249c0 74 20 28 63 6f 6e 64 20 28 64 69 72 65 64 2d 73 6f 72 74 2d 69 6e 68 69 62 69 74 20 22 44 49 53 t.(cond.(dired-sort-inhibit."DIS
249e0 41 42 4c 45 44 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d ABLED")......................((m
24a00 65 6d 62 65 72 20 22 2d 2d 73 6f 72 74 3d 6e 6f 6e 65 22 20 73 77 69 74 63 68 65 73 29 20 22 6e ember."--sort=none".switches)."n
24a20 6f 6e 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d one")......................((mem
24a40 62 65 72 20 22 2d 2d 73 6f 72 74 3d 74 69 6d 65 22 20 73 77 69 74 63 68 65 73 29 20 22 74 69 6d ber."--sort=time".switches)."tim
24a60 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 e")......................((membe
24a80 72 20 22 2d 2d 73 6f 72 74 3d 76 65 72 73 69 6f 6e 22 20 73 77 69 74 63 68 65 73 29 20 22 76 65 r."--sort=version".switches)."ve
24aa0 72 73 69 6f 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 28 28 6d rsion")......................((m
24ac0 65 6d 62 65 72 20 22 2d 2d 73 6f 72 74 3d 73 69 7a 65 22 20 73 77 69 74 63 68 65 73 29 20 22 73 ember."--sort=size".switches)."s
24ae0 69 7a 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d ize")......................((mem
24b00 62 65 72 20 22 2d 2d 73 6f 72 74 3d 65 78 74 65 6e 73 69 6f 6e 22 20 73 77 69 74 63 68 65 73 29 ber."--sort=extension".switches)
24b20 20 22 65 78 74 65 6e 73 69 6f 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ."extension")...................
24b40 20 20 20 28 28 6d 65 6d 62 65 72 20 22 2d 2d 73 6f 72 74 3d 77 69 64 74 68 22 20 73 77 69 74 63 ...((member."--sort=width".switc
24b60 68 65 73 29 20 22 77 69 64 74 68 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hes)."width")...................
24b80 20 20 20 28 74 20 22 6e 61 6d 65 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 20 28 ...(t."name")))..........(time.(
24ba0 63 6f 6e 64 20 28 28 6d 65 6d 62 65 72 20 22 2d 2d 74 69 6d 65 3d 75 73 65 22 20 73 77 69 74 63 cond.((member."--time=use".switc
24bc0 68 65 73 29 20 22 75 73 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 hes)."use").....................
24be0 20 28 28 6d 65 6d 62 65 72 20 22 2d 2d 74 69 6d 65 3d 63 74 69 6d 65 22 20 73 77 69 74 63 68 65 .((member."--time=ctime".switche
24c00 73 29 20 22 63 74 69 6d 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s)."ctime").....................
24c20 20 28 28 6d 65 6d 62 65 72 20 22 2d 2d 74 69 6d 65 3d 62 69 72 74 68 22 20 73 77 69 74 63 68 65 .((member."--time=birth".switche
24c40 73 29 20 22 62 69 72 74 68 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 s)."birth").....................
24c60 20 28 74 20 22 6d 74 69 6d 65 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 65 76 20 28 69 66 .(t."mtime")))..........(rev.(if
24c80 20 28 6d 65 6d 62 65 72 20 22 2d 2d 72 65 76 65 72 73 65 22 20 73 77 69 74 63 68 65 73 29 20 22 .(member."--reverse".switches)."
24ca0 e2 86 93 22 20 22 e2 86 91 22 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 25 ..."."..."))).....(format.".%s.%
24cc0 73 7c 25 73 20 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 72 s|%s.".............(propertize.r
24ce0 65 76 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 ev.'face.'font-lock-constant-fac
24d00 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 63 72 69 74 20 e).............(propertize.crit.
24d20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 74 79 70 65 2d 66 61 63 65 29 0a 20 20 20 20 'face.'font-lock-type-face).....
24d40 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 74 69 6d 65 20 27 66 61 63 65 20 27 ........(propertize.time.'face.'
24d60 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 65 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 font-lock-doc-face))))..(dirvish
24d80 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 6f 6d 69 74 0a 20 20 22 41 20 60 64 69 72 -define-mode-line.omit..."A.`dir
24da0 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 27 20 69 6e 64 69 63 61 74 6f 72 2e 22 0a 20 20 28 61 6e 64 ed-omit-mode'.indicator."...(and
24dc0 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f .(bound-and-true-p.dired-omit-mo
24de0 64 65 29 0a 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 4f 6d 69 74 22 20 27 66 de)........(propertize."Omit".'f
24e00 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 6e 65 67 61 74 69 6f 6e 2d 63 68 61 72 2d 66 61 63 ace.'font-lock-negation-char-fac
24e20 65 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 e)))..(dirvish-define-mode-line.
24e40 73 79 6d 6c 69 6e 6b 0a 20 20 22 53 68 6f 77 20 74 68 65 20 74 72 75 65 6e 61 6d 65 20 6f 66 20 symlink..."Show.the.truename.of.
24e60 73 79 6d 6c 69 6e 6b 20 66 69 6c 65 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 2e 22 0a symlink.file.under.the.cursor.".
24e80 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 64 69 72 76 69 73 68 2d 70 72 6f ..(when-let*.((name.(dirvish-pro
24ea0 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 72 75 65 6e 61 p.:index))...............(truena
24ec0 6d 65 20 28 63 64 72 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 me.(cdr.(dirvish-attribute-cache
24ee0 20 6e 61 6d 65 20 3a 74 79 70 65 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 .name.:type)))).....(format.".%s
24f00 20 25 73 20 22 0a 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 e2 .%s.".............(propertize.".
24f20 86 92 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6d 6d 65 6e 74 2d 64 65 6c ..".'face.'font-lock-comment-del
24f40 69 6d 69 74 65 72 2d 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 imiter-face).............(proper
24f60 74 69 7a 65 20 74 72 75 65 6e 61 6d 65 20 27 66 61 63 65 20 27 64 69 72 65 64 2d 73 79 6d 6c 69 tize.truename.'face.'dired-symli
24f80 6e 6b 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e nk))))..(dirvish-define-mode-lin
24fa0 65 20 69 6e 64 65 78 0a 20 20 22 43 75 72 72 65 6e 74 20 66 69 6c 65 27 73 20 69 6e 64 65 78 20 e.index..."Current.file's.index.
24fc0 61 6e 64 20 74 6f 74 61 6c 20 66 69 6c 65 73 20 63 6f 75 6e 74 2e 22 0a 20 20 28 6c 65 74 20 28 and.total.files.count."...(let.(
24fe0 28 63 75 72 2d 70 6f 73 20 28 2d 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 20 (cur-pos.(-.(line-number-at-pos.
25000 28 70 6f 69 6e 74 29 29 20 31 29 29 0a 20 20 20 20 20 20 20 20 28 66 69 6e 2d 70 6f 73 20 28 6e (point)).1)).........(fin-pos.(n
25020 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 28 2d 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d umber-to-string.(-.(line-number-
25040 61 74 2d 70 6f 73 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 32 29 29 29 29 0a 20 20 20 20 28 66 at-pos.(point-max)).2)))).....(f
25060 6f 72 6d 61 74 20 22 20 25 64 20 2f 20 25 73 20 22 20 63 75 72 2d 70 6f 73 20 28 70 72 6f 70 65 ormat.".%d./.%s.".cur-pos.(prope
25080 72 74 69 7a 65 20 66 69 6e 2d 70 6f 73 20 27 66 61 63 65 20 27 62 6f 6c 64 29 29 29 29 0a 0a 28 rtize.fin-pos.'face.'bold))))..(
250a0 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 72 65 65 2d 73 70 dirvish-define-mode-line.free-sp
250c0 61 63 65 0a 20 20 22 41 6d 6f 75 6e 74 20 6f 66 20 66 72 65 65 20 73 70 61 63 65 20 6f 6e 20 60 ace..."Amount.of.free.space.on.`
250e0 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 27 73 20 66 69 6c 65 20 73 79 73 74 65 6d default-directory''s.file.system
25100 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 72 65 65 2d 73 70 61 63 65 20 28 6f 72 20 28 64 69 72 76 ."...(let.((free-space.(or.(dirv
25120 69 73 68 2d 70 72 6f 70 20 3a 66 72 65 65 2d 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 ish-prop.:free-space)...........
25140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 66 72 65 65 2d 64 69 73 6b 2d 73 70 61 ..............(get-free-disk-spa
25160 63 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 20 22 22 29 29 29 0a 20 20 20 20 ce.default-directory).""))).....
25180 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 66 72 65 65 2d 73 70 61 63 65 20 66 72 65 65 2d 73 (dirvish-prop.:free-space.free-s
251a0 70 61 63 65 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 25 73 20 22 20 28 70 72 6f pace).....(format.".%s.%s.".(pro
251c0 70 65 72 74 69 7a 65 20 66 72 65 65 2d 73 70 61 63 65 20 27 66 61 63 65 20 27 64 69 72 76 69 73 pertize.free-space.'face.'dirvis
251e0 68 2d 66 72 65 65 2d 73 70 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 h-free-space).............(prope
25200 72 74 69 7a 65 20 22 66 72 65 65 22 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f rtize."free".'face.'font-lock-do
25220 63 2d 66 61 63 65 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 c-face))))..(dirvish-define-mode
25240 2d 6c 69 6e 65 20 66 69 6c 65 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 0a 20 20 22 4e 75 6d 62 65 72 -line.file-link-number..."Number
25260 20 6f 66 20 6c 69 6e 6b 73 20 74 6f 20 66 69 6c 65 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 2d .of.links.to.file."...(dirvish--
25280 66 6f 72 6d 61 74 2d 66 69 6c 65 2d 61 74 74 72 20 27 6c 69 6e 6b 2d 6e 75 6d 62 65 72 29 29 0a format-file-attr.'link-number)).
252a0 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 69 6c 65 2d .(dirvish-define-mode-line.file-
252c0 75 73 65 72 0a 20 20 22 55 73 65 72 20 6e 61 6d 65 20 6f 66 20 66 69 6c 65 2e 22 0a 20 20 28 77 user..."User.name.of.file."...(w
252e0 68 65 6e 2d 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 hen-let*.((name.(dirvish-prop.:i
25300 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 74 72 73 20 28 64 69 72 ndex))...............(attrs.(dir
25320 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 6d 65 20 3a 62 75 69 6c 74 vish-attribute-cache.name.:built
25340 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 69 64 20 28 61 6e 64 20 61 74 74 in))...............(uid.(and.att
25360 72 73 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 75 73 65 72 2d 69 64 20 61 74 74 72 73 rs.(file-attribute-user-id.attrs
25380 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 61 6d 65 20 28 69 66 20 28 64 69 )))...............(uname.(if.(di
253a0 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 20 75 69 64 20 28 75 73 65 72 2d 6c 6f rvish-prop.:remote).uid.(user-lo
253c0 67 69 6e 2d 6e 61 6d 65 20 75 69 64 29 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 gin-name.uid)))).....(propertize
253e0 20 75 6e 61 6d 65 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 75 73 65 72 2d .uname.'face.'dirvish-file-user-
25400 69 64 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 id)))..(dirvish-define-mode-line
25420 20 66 69 6c 65 2d 67 72 6f 75 70 0a 20 20 22 47 72 6f 75 70 20 6e 61 6d 65 20 6f 66 20 66 69 6c .file-group..."Group.name.of.fil
25440 65 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 64 69 72 76 69 73 68 e."...(when-let*.((name.(dirvish
25460 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 74 -prop.:index))...............(at
25480 74 72 73 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 6e 61 6d trs.(dirvish-attribute-cache.nam
254a0 65 20 3a 62 75 69 6c 74 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 64 20 e.:builtin))...............(gid.
254c0 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 67 72 6f 75 70 2d 69 64 20 61 74 74 72 73 29 29 (file-attribute-group-id.attrs))
254e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 6e 61 6d 65 20 28 69 66 20 28 64 69 72 76 69 ...............(gname.(if.(dirvi
25500 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 20 67 69 64 20 28 67 72 6f 75 70 2d 6e 61 6d 65 sh-prop.:remote).gid.(group-name
25520 20 67 69 64 29 29 29 29 0a 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 67 6e 61 6d 65 20 27 .gid)))).....(propertize.gname.'
25540 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 66 69 6c 65 2d 67 72 6f 75 70 2d 69 64 29 29 29 0a 0a face.'dirvish-file-group-id)))..
25560 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 69 6c 65 2d 74 (dirvish-define-mode-line.file-t
25580 69 6d 65 0a 20 20 22 4c 61 73 74 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 20 6f 66 ime..."Last.modification.time.of
255a0 20 66 69 6c 65 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 64 69 72 .file."...(when-let*.((name.(dir
255c0 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 vish-prop.:index))..............
255e0 20 28 61 74 74 72 73 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 .(attrs.(dirvish-attribute-cache
25600 20 6e 61 6d 65 20 3a 62 75 69 6c 74 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 .name.:builtin))...............(
25620 66 2d 6d 74 69 6d 65 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d 6d 6f 64 69 66 69 63 61 f-mtime.(file-attribute-modifica
25640 74 69 6f 6e 2d 74 69 6d 65 20 61 74 74 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tion-time.attrs))...............
25660 28 74 69 6d 65 2d 73 74 72 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 (time-string................(if.
25680 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 20 66 2d 6d 74 69 6d 65 0a 20 (dirvish-prop.:remote).f-mtime..
256a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 2d 74 69 6d 65 2d 73 74 72 ................(format-time-str
256c0 69 6e 67 20 64 69 72 76 69 73 68 2d 74 69 6d 65 2d 66 6f 72 6d 61 74 2d 73 74 72 69 6e 67 20 66 ing.dirvish-time-format-string.f
256e0 2d 6d 74 69 6d 65 29 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 28 70 72 6f -mtime)))).....(format."%s".(pro
25700 70 65 72 74 69 7a 65 20 74 69 6d 65 2d 73 74 72 69 6e 67 20 27 66 61 63 65 20 27 64 69 72 76 69 pertize.time-string.'face.'dirvi
25720 73 68 2d 66 69 6c 65 2d 74 69 6d 65 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e sh-file-time))))..(dirvish-defin
25740 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 69 6c 65 2d 73 69 7a 65 0a 20 20 22 46 69 6c 65 20 73 69 e-mode-line.file-size..."File.si
25760 7a 65 20 6f 66 20 66 69 6c 65 73 20 6f 72 20 66 69 6c 65 20 63 6f 75 6e 74 20 6f 66 20 64 69 72 ze.of.files.or.file.count.of.dir
25780 65 63 74 6f 72 69 65 73 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 6e 61 6d 65 20 28 ectories."...(when-let*.((name.(
257a0 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 dirvish-prop.:index))...........
257c0 20 20 20 20 28 61 74 74 72 73 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 ....(attrs.(dirvish-attribute-ca
257e0 63 68 65 20 6e 61 6d 65 20 3a 62 75 69 6c 74 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 che.name.:builtin)).............
25800 20 20 28 73 69 7a 65 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6c 65 2d 61 74 74 72 2d 73 69 7a 65 ..(size.(dirvish--file-attr-size
25820 20 6e 61 6d 65 20 61 74 74 72 73 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 .name.attrs))).....(format."%s".
25840 28 70 72 6f 70 65 72 74 69 7a 65 20 73 69 7a 65 20 27 66 61 63 65 20 27 64 69 72 76 69 73 68 2d (propertize.size.'face.'dirvish-
25860 66 69 6c 65 2d 73 69 7a 65 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d file-size))))..(dirvish-define-m
25880 6f 64 65 2d 6c 69 6e 65 20 66 69 6c 65 2d 6d 6f 64 65 73 0a 20 20 22 46 69 6c 65 20 6d 6f 64 65 ode-line.file-modes..."File.mode
258a0 73 2c 20 61 73 20 61 20 73 74 72 69 6e 67 20 6f 66 20 74 65 6e 20 6c 65 74 74 65 72 73 20 6f 72 s,.as.a.string.of.ten.letters.or
258c0 20 64 61 73 68 65 73 20 61 73 20 69 6e 20 6c 73 20 2d 6c 2e 22 0a 20 20 28 64 69 72 76 69 73 68 .dashes.as.in.ls.-l."...(dirvish
258e0 2d 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 2d 61 74 74 72 20 27 6d 6f 64 65 73 29 29 0a 0a 28 64 69 --format-file-attr.'modes))..(di
25900 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 66 69 6c 65 2d 69 6e 6f 64 rvish-define-mode-line.file-inod
25920 65 2d 6e 75 6d 62 65 72 0a 20 20 22 46 69 6c 65 27 73 20 69 6e 6f 64 65 20 6e 75 6d 62 65 72 2c e-number..."File's.inode.number,
25940 20 61 73 20 61 20 6e 6f 6e 6e 65 67 61 74 69 76 65 20 69 6e 74 65 67 65 72 2e 22 0a 20 20 28 64 .as.a.nonnegative.integer."...(d
25960 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 2d 61 74 74 72 20 27 69 6e 6f 64 65 2d irvish--format-file-attr.'inode-
25980 6e 75 6d 62 65 72 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c number))..(dirvish-define-mode-l
259a0 69 6e 65 20 66 69 6c 65 2d 64 65 76 69 63 65 2d 6e 75 6d 62 65 72 0a 20 20 22 46 69 6c 65 73 79 ine.file-device-number..."Filesy
259c0 73 74 65 6d 20 64 65 76 69 63 65 20 6e 75 6d 62 65 72 2c 20 61 73 20 61 6e 20 69 6e 74 65 67 65 stem.device.number,.as.an.intege
259e0 72 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 66 69 6c 65 2d 61 74 74 72 r."...(dirvish--format-file-attr
25a00 20 27 64 65 76 69 63 65 2d 6e 75 6d 62 65 72 29 29 0a 0a 3b 3b 3b 3b 20 50 72 65 76 69 65 77 20 .'device-number))..;;;;.Preview.
25a20 64 69 73 70 61 74 63 68 65 72 73 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 dispatchers..(cl-defmethod.dirvi
25a40 73 68 2d 62 75 69 6c 64 2d 63 61 63 68 65 20 28 26 63 6f 6e 74 65 78 74 20 28 28 64 69 73 70 6c sh-build-cache.(&context.((displ
25a60 61 79 2d 67 72 61 70 68 69 63 2d 70 29 20 28 65 71 6c 20 74 29 29 29 0a 20 20 22 43 61 63 68 65 ay-graphic-p).(eql.t)))..."Cache
25a80 20 69 6d 61 67 65 2f 76 69 64 65 6f 2d 74 68 75 6d 62 6e 61 69 6c 20 77 68 65 6e 20 60 44 49 53 .image/video-thumbnail.when.`DIS
25aa0 50 4c 41 59 2d 47 52 41 50 48 49 43 2d 50 27 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 PLAY-GRAPHIC-P'."...(when-let*.(
25ac0 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 (dv.(dirvish-curr)).............
25ae0 20 20 28 28 6e 6f 74 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 29 ..((not.(dirvish-prop.:remote)))
25b00 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 ...............((car.(dv-layout.
25b20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 20 28 64 76 2d 70 72 65 dv)))...............(win.(dv-pre
25b40 76 69 65 77 2d 77 69 6e 64 6f 77 20 64 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 view-window.dv))...............(
25b60 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 77 69 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 (window-live-p.win))............
25b80 20 20 20 28 77 69 64 74 68 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 77 69 6e 29 29 0a 20 20 ...(width.(window-width.win))...
25ba0 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 73 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 6b ............(files.(hash-table-k
25bc0 65 79 73 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 29 29 0a 20 20 20 20 20 20 eys.dirvish--attrs-hash)).......
25be0 20 20 20 20 20 20 20 20 28 28 3c 20 28 6c 65 6e 67 74 68 20 66 69 6c 65 73 29 0a 20 20 20 20 20 ........((<.(length.files)......
25c00 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 63 61 72 20 64 69 72 76 69 73 68 2d 6d 65 .............(or.(car.dirvish-me
25c20 64 69 61 2d 61 75 74 6f 2d 63 61 63 68 65 2d 74 68 72 65 73 68 6f 6c 64 29 20 30 29 29 29 29 0a dia-auto-cache-threshold).0)))).
25c40 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 77 69 74 68 20 66 6e 73 20 3d 20 27 28 64 ....(cl-loop......with.fns.=.'(d
25c60 69 72 76 69 73 68 2d 69 6d 61 67 65 2d 64 70 20 64 69 72 76 69 73 68 2d 76 69 64 65 6f 2d 64 70 irvish-image-dp.dirvish-video-dp
25c80 20 64 69 72 76 69 73 68 2d 65 70 75 62 2d 64 70 29 0a 20 20 20 20 20 66 6f 72 20 66 69 6c 65 20 .dirvish-epub-dp)......for.file.
25ca0 69 6e 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 73 20 64 65 66 61 75 6c 74 2d 64 69 72 65 in.(directory-files.default-dire
25cc0 63 74 6f 72 79 20 74 29 0a 20 20 20 20 20 66 6f 72 20 65 78 74 20 3d 20 28 64 6f 77 6e 63 61 73 ctory.t)......for.ext.=.(downcas
25ce0 65 20 28 6f 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 29 e.(or.(file-name-extension.file)
25d00 20 22 22 29 29 0a 20 20 20 20 20 66 6f 72 20 28 63 6d 64 20 2e 20 61 72 67 73 29 20 3d 20 28 63 .""))......for.(cmd...args).=.(c
25d20 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 6e 20 69 6e 20 66 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 l-loop.for.fn.in.fns............
25d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 6b 20 2e 20 76 ......................for.(k...v
25d60 29 20 3d 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 66 69 6c 65 20 65 78 74 20 77 69 6e 20 64 76 29 ).=.(funcall.fn.file.ext.win.dv)
25d80 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 ................................
25da0 20 20 74 68 65 72 65 69 73 20 28 61 6e 64 20 28 65 71 20 6b 20 27 63 61 63 68 65 29 20 76 29 29 ..thereis.(and.(eq.k.'cache).v))
25dc0 0a 20 20 20 20 20 77 68 65 6e 20 63 6d 64 20 64 6f 20 28 70 75 73 68 20 28 63 6f 6e 73 20 28 66 ......when.cmd.do.(push.(cons.(f
25de0 6f 72 6d 61 74 20 22 25 73 2d 25 73 2d 69 6d 67 2d 63 61 63 68 65 22 20 66 69 6c 65 20 77 69 64 ormat."%s-%s-img-cache".file.wid
25e00 74 68 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 th).............................
25e20 20 28 6c 69 73 74 20 66 69 6c 65 20 77 69 64 74 68 20 63 6d 64 20 61 72 67 73 29 29 0a 20 20 20 .(list.file.width.cmd.args))....
25e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 6d 65 64 69 ....................dirvish-medi
25e60 61 2d 2d 63 61 63 68 65 2d 70 6f 6f 6c 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 a--cache-pool))))..(cl-defmethod
25e80 20 64 69 72 76 69 73 68 2d 63 6c 65 61 6e 2d 63 61 63 68 65 20 28 26 63 6f 6e 74 65 78 74 20 28 .dirvish-clean-cache.(&context.(
25ea0 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 20 28 65 71 6c 20 74 29 29 29 0a 20 20 (display-graphic-p).(eql.t)))...
25ec0 22 43 6c 65 61 6e 20 63 61 63 68 65 20 69 6d 61 67 65 73 20 66 6f 72 20 6d 61 72 6b 65 64 20 66 "Clean.cache.images.for.marked.f
25ee0 69 6c 65 73 20 77 68 65 6e 20 60 44 49 53 50 4c 41 59 2d 47 52 41 50 48 49 43 2d 50 27 2e 22 0a iles.when.`DISPLAY-GRAPHIC-P'.".
25f00 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 77 69 6e 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 ..(when-let*.((win.(dv-preview-w
25f20 69 6e 64 6f 77 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 indow.(dirvish-curr)))..........
25f40 20 20 20 20 20 28 73 69 7a 65 20 28 61 6e 64 20 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 77 .....(size.(and.(window-live-p.w
25f60 69 6e 29 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 7a 65 20 77 69 6e in).(dirvish-media--img-size.win
25f80 29 29 29 29 0a 20 20 20 20 28 63 6c 65 61 72 2d 69 6d 61 67 65 2d 63 61 63 68 65 29 0a 20 20 20 )))).....(clear-image-cache)....
25fa0 20 28 73 65 74 71 20 73 69 7a 65 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d .(setq.size.(dirvish-media--img-
25fc0 73 69 7a 65 20 77 69 6e 29 29 0a 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 69 6c 65 20 28 64 69 size.win)).....(dolist.(file.(di
25fe0 72 65 64 2d 67 65 74 2d 6d 61 72 6b 65 64 2d 66 69 6c 65 73 29 29 0a 20 20 20 20 20 20 28 6d 61 red-get-marked-files)).......(ma
26000 70 63 20 23 27 64 65 6c 65 74 65 2d 66 69 6c 65 20 28 66 69 6c 65 2d 65 78 70 61 6e 64 2d 77 69 pc.#'delete-file.(file-expand-wi
26020 6c 64 63 61 72 64 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 ldcards.........................
26040 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 61 74 68 0a 20 20 ...(dirvish-media--cache-path...
26060 20 20 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 20 28 ..........................file.(
26080 66 6f 72 6d 61 74 20 22 69 6d 61 67 65 73 2f 25 73 22 20 73 69 7a 65 29 20 22 2e 2a 22 20 74 29 format."images/%s".size).".*".t)
260a0 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 74 29 29 29 ............................t)))
260c0 29 29 0a 0a 28 63 6c 2d 64 65 66 67 65 6e 65 72 69 63 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 ))..(cl-defgeneric.dirvish-media
260e0 2d 6d 65 74 61 64 61 74 61 20 28 66 69 6c 65 29 0a 20 20 22 47 65 74 20 6d 65 64 69 61 20 66 69 -metadata.(file)..."Get.media.fi
26100 6c 65 20 46 49 4c 45 27 73 20 6d 65 74 61 64 61 74 61 2e 22 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 le.FILE's.metadata.")..(cl-defme
26120 74 68 6f 64 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 6d 65 74 61 64 61 74 61 20 28 28 66 69 thod.dirvish-media-metadata.((fi
26140 6c 65 20 28 68 65 61 64 20 69 6d 61 67 65 29 29 29 0a 20 20 22 47 65 74 20 6d 65 74 61 64 61 74 le.(head.image)))..."Get.metadat
26160 61 20 66 6f 72 20 69 6d 61 67 65 20 46 49 4c 45 2e 22 0a 20 20 28 6c 65 74 20 28 28 6d 69 6e 66 a.for.image.FILE."...(let.((minf
26180 6f 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 6d 65 74 61 64 61 74 61 2d 66 72 6f 6d 2d o.(dirvish-media--metadata-from-
261a0 6d 65 64 69 61 69 6e 66 6f 20 28 63 64 72 20 66 69 6c 65 29 29 29 29 0a 20 20 20 20 28 66 6f 72 mediainfo.(cdr.file)))).....(for
261c0 6d 61 74 20 22 25 73 25 73 5c 6e 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 mat."%s%s\n%s%s".............(di
261e0 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 27 28 22 49 6d rvish-media--group-heading.'("Im
26200 61 67 65 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 age")).............(dirvish-medi
26220 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 a--format-metadata..............
26240 6d 69 6e 66 6f 20 27 28 57 69 64 74 68 20 48 65 69 67 68 74 20 43 6f 6c 6f 72 2d 73 70 61 63 65 minfo.'(Width.Height.Color-space
26260 20 43 68 72 6f 6d 61 2d 73 75 62 73 61 6d 70 6c 69 6e 67 20 42 69 74 2d 64 65 70 74 68 20 43 6f .Chroma-subsampling.Bit-depth.Co
26280 6d 70 72 65 73 73 69 6f 6e 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 mpression-mode)).............(di
262a0 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 27 28 22 47 65 rvish-media--group-heading.'("Ge
262c0 6e 65 72 61 6c 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 neral")).............(dirvish-me
262e0 64 69 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 74 61 64 61 74 61 20 6d 69 6e 66 6f 20 27 28 46 75 6c dia--format-metadata.minfo.'(Ful
26300 6c 2d 6e 61 6d 65 20 46 6f 72 6d 61 74 20 46 69 6c 65 2d 73 69 7a 65 29 29 29 29 29 0a 0a 28 63 l-name.Format.File-size)))))..(c
26320 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 6d 65 74 61 64 61 l-defmethod.dirvish-media-metada
26340 74 61 20 28 28 66 69 6c 65 20 28 68 65 61 64 20 76 69 64 65 6f 29 29 29 0a 20 20 22 47 65 74 20 ta.((file.(head.video)))..."Get.
26360 6d 65 74 61 64 61 74 61 20 66 6f 72 20 76 69 64 65 6f 20 46 49 4c 45 2e 22 0a 20 20 28 6c 65 74 metadata.for.video.FILE."...(let
26380 20 28 28 6d 69 6e 66 6f 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 6d 65 74 61 64 61 74 .((minfo.(dirvish-media--metadat
263a0 61 2d 66 72 6f 6d 2d 6d 65 64 69 61 69 6e 66 6f 20 28 63 64 72 20 66 69 6c 65 29 29 29 29 0a 20 a-from-mediainfo.(cdr.file))))..
263c0 20 20 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 5c 6e 25 73 25 73 5c 6e 25 73 25 73 22 0a 20 20 ...(format."%s%s\n%s%s\n%s%s"...
263e0 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 67 72 6f 75 70 2d ..........(dirvish-media--group-
26400 68 65 61 64 69 6e 67 20 27 28 22 47 65 6e 65 72 61 6c 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 heading.'("General"))...........
26420 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 74 61 64 61 74 ..(dirvish-media--format-metadat
26440 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 66 6f 20 27 28 46 75 6c 6c 2d 6e 61 6d 65 a..............minfo.'(Full-name
26460 20 46 6f 72 6d 61 74 20 46 69 6c 65 2d 73 69 7a 65 20 44 75 72 61 74 69 6f 6e 29 29 0a 20 20 20 .Format.File-size.Duration))....
26480 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 67 72 6f 75 70 2d 68 .........(dirvish-media--group-h
264a0 65 61 64 69 6e 67 20 27 28 22 56 69 64 65 6f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 eading.'("Video")).............(
264c0 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 74 61 64 61 74 61 0a 20 dirvish-media--format-metadata..
264e0 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 66 6f 20 27 28 52 65 73 6f 6c 75 74 69 6f 6e 20 56 ............minfo.'(Resolution.V
26500 69 64 65 6f 2d 63 6f 64 65 63 20 46 72 61 6d 65 72 61 74 65 20 56 69 64 65 6f 2d 62 69 74 72 61 ideo-codec.Framerate.Video-bitra
26520 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d te)).............(dirvish-media-
26540 2d 67 72 6f 75 70 2d 68 65 61 64 69 6e 67 20 27 28 22 41 75 64 69 6f 22 29 29 0a 20 20 20 20 20 -group-heading.'("Audio"))......
26560 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 66 6f 72 6d 61 74 2d 6d 65 .......(dirvish-media--format-me
26580 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 66 6f 20 27 28 41 75 64 69 tadata..............minfo.'(Audi
265a0 6f 2d 63 6f 64 65 63 20 41 75 64 69 6f 2d 62 69 74 72 61 74 65 20 41 75 64 69 6f 2d 73 61 6d 70 o-codec.Audio-bitrate.Audio-samp
265c0 6c 69 6e 67 2d 72 61 74 65 20 41 75 64 69 6f 2d 63 68 61 6e 6e 65 6c 73 29 29 29 29 29 0a 0a 28 ling-rate.Audio-channels)))))..(
265e0 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 6d 65 74 61 64 cl-defmethod.dirvish-media-metad
26600 61 74 61 20 28 28 66 69 6c 65 20 28 68 65 61 64 20 70 64 66 29 29 29 0a 20 20 22 47 65 74 20 6d ata.((file.(head.pdf)))..."Get.m
26620 65 74 61 64 61 74 61 20 66 6f 72 20 70 64 66 20 46 49 4c 45 2e 22 0a 20 20 28 66 6f 72 6d 61 74 etadata.for.pdf.FILE."...(format
26640 20 22 25 73 25 73 22 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 67 72 6f 75 70 2d 68 65 ."%s%s".(dirvish-media--group-he
26660 61 64 69 6e 67 20 27 28 22 50 44 46 20 69 6e 66 6f 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 ading.'("PDF.info"))...........(
26680 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 6d 65 74 61 64 61 74 61 2d 66 72 6f 6d 2d 70 64 66 dirvish-media--metadata-from-pdf
266a0 69 6e 66 6f 20 28 63 64 72 20 66 69 6c 65 29 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f info.(cdr.file))))..(cl-defmetho
266c0 64 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 20 28 28 72 65 63 d.dirvish-preview-dispatch.((rec
266e0 69 70 65 20 28 68 65 61 64 20 69 6d 67 29 29 20 64 76 29 0a 20 20 22 49 6e 73 65 72 74 20 52 45 ipe.(head.img)).dv)..."Insert.RE
26700 43 49 50 45 20 61 73 20 61 6e 20 69 6d 61 67 65 20 61 74 20 70 72 65 76 69 65 77 20 77 69 6e 64 CIPE.as.an.image.at.preview.wind
26720 6f 77 20 6f 66 20 44 56 2e 22 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 64 69 72 76 69 73 68 ow.of.DV."...(let.((buf.(dirvish
26740 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 69 65 77 20 64 76 20 6e 69 6c 20 74 29 --util-buffer.'preview.dv.nil.t)
26760 29 0a 20 20 20 20 20 20 20 20 28 69 6d 67 20 28 63 64 72 20 72 65 63 69 70 65 29 29 29 0a 20 20 ).........(img.(cdr.recipe)))...
26780 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 20 ..(with-current-buffer.buf......
267a0 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 .(erase-buffer).(remove-overlays
267c0 29 0a 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f 64 65 20 2d 31 29 0a 20 20 20 20 ).......(font-lock-mode.-1).....
267e0 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 0a 20 20 20 20 20 20 28 61 64 64 2d 74 65 78 74 2d 70 ..(insert.".").......(add-text-p
26800 72 6f 70 65 72 74 69 65 73 20 31 20 32 20 60 28 64 69 73 70 6c 61 79 20 2c 69 6d 67 20 72 65 61 roperties.1.2.`(display.,img.rea
26820 72 2d 6e 6f 6e 73 74 69 63 6b 79 20 74 20 6b 65 79 6d 61 70 20 2c 69 6d 61 67 65 2d 6d 61 70 29 r-nonsticky.t.keymap.,image-map)
26840 29 0a 20 20 20 20 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 69 77 20 2e 20 2c 69 68 ).......(pcase-let.((`(,iw...,ih
26860 29 20 28 69 6d 61 67 65 2d 73 69 7a 65 20 69 6d 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 ).(image-size.img))).........(le
26880 74 2a 20 28 28 70 2d 77 69 6e 64 6f 77 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 t*.((p-window.(dv-preview-window
268a0 20 64 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 2d 70 61 64 20 28 6d 61 78 .dv))................(w-pad.(max
268c0 20 28 72 6f 75 6e 64 20 28 2f 20 28 2d 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 70 2d 77 69 .(round.(/.(-.(window-width.p-wi
268e0 6e 64 6f 77 29 20 69 77 29 20 32 29 29 20 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ndow).iw).2)).0))...............
26900 20 28 68 2d 70 61 64 20 28 6d 61 78 20 28 72 6f 75 6e 64 20 28 2f 20 28 2d 20 28 77 69 6e 64 6f .(h-pad.(max.(round.(/.(-.(windo
26920 77 2d 68 65 69 67 68 74 20 70 2d 77 69 6e 64 6f 77 29 20 69 68 29 20 32 29 29 20 30 29 29 29 0a w-height.p-window).ih).2)).0))).
26940 20 20 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 31 29 0a 20 20 20 20 20 20 20 20 ..........(goto-char.1).........
26960 20 20 28 69 6e 73 65 72 74 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 69 66 20 64 69 72 76 69 ..(insert.(make-string.(if.dirvi
26980 73 68 2d 73 68 6f 77 2d 6d 65 64 69 61 2d 70 72 6f 70 65 72 74 69 65 73 20 32 20 68 2d 70 61 64 sh-show-media-properties.2.h-pad
269a0 29 20 3f 5c 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 ).?\n)...................(make-s
269c0 74 72 69 6e 67 20 77 2d 70 61 64 20 3f 5c 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 tring.w-pad.?\s))...........(whe
269e0 6e 20 64 69 72 76 69 73 68 2d 73 68 6f 77 2d 6d 65 64 69 61 2d 70 72 6f 70 65 72 74 69 65 73 0a n.dirvish-show-media-properties.
26a00 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 62 65 67 20 28 70 72 6f 67 6e 20 28 ............(let*.((beg.(progn.(
26a20 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 20 28 70 6f 69 6e 74 29 29 29 goto-char.(point-max)).(point)))
26a40 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 77 69 74 68 2d ....................(file.(with-
26a60 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 64 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 current-buffer.(cdr.(dv-index.dv
26a80 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 28 64 ))............................(d
26aa0 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 irvish-prop.:index)))...........
26ac0 20 20 20 20 20 20 20 20 20 28 65 78 74 20 28 64 6f 77 6e 63 61 73 65 20 28 6f 72 20 28 66 69 6c .........(ext.(downcase.(or.(fil
26ae0 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 66 69 6c 65 29 20 22 22 29 29 29 0a 20 20 20 e-name-extension.file)."")))....
26b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 79 70 65 20 28 63 6f 6e 64 20 28 28 6d 65 ................(type.(cond.((me
26b20 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 69 6d 61 67 65 2d 65 78 74 73 29 20 27 69 6d mber.ext.dirvish-image-exts).'im
26b40 61 67 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 age)............................
26b60 20 20 20 20 28 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 76 69 64 65 6f 2d 65 ....((member.ext.dirvish-video-e
26b80 78 74 73 29 20 27 76 69 64 65 6f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 xts).'video)....................
26ba0 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6d 65 6d 71 20 27 70 64 66 2d 70 72 65 ............((and.(memq.'pdf-pre
26bc0 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 20 20 20 face............................
26be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d ................dirvish-preview-
26c00 64 69 73 70 61 74 63 68 65 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 dispatchers)....................
26c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 75 61 6c 20 65 78 74 20 22 70 64 ..................(equal.ext."pd
26c40 66 22 29 20 27 70 64 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 f").'pdf))......................
26c60 20 20 20 20 20 20 20 20 20 20 28 74 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 74 20 61 20 ..........(t.(user-error."Not.a.
26c80 6d 65 64 69 61 20 66 69 6c 65 22 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b media.file")))))...............;
26ca0 3b 20 65 6e 73 75 72 65 20 74 68 65 20 63 6f 6e 74 65 6e 74 20 69 73 20 68 69 67 68 65 72 20 74 ;.ensure.the.content.is.higher.t
26cc0 68 61 6e 20 74 68 65 20 77 69 6e 64 6f 77 20 68 65 69 67 68 74 20 74 6f 20 61 76 6f 69 64 0a 20 han.the.window.height.to.avoid..
26ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 75 6e 65 78 70 65 63 74 65 64 20 61 75 74 6f 20 .............;;.unexpected.auto.
26d00 73 63 72 6f 6c 6c 69 6e 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 scrolling...............(insert.
26d20 22 5c 6e 5c 6e 5c 6e 22 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 6d 65 74 61 64 61 74 61 "\n\n\n".(dirvish-media-metadata
26d40 20 28 63 6f 6e 73 20 74 79 70 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 .(cons.type.file))..............
26d60 20 20 20 20 20 20 20 20 20 28 6d 61 6b 65 2d 73 74 72 69 6e 67 20 28 2a 20 68 2d 70 61 64 20 32 .........(make-string.(*.h-pad.2
26d80 29 20 3f 5c 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 67 6e 2d 72 65 67 ).?\n))...............(align-reg
26da0 65 78 70 20 62 65 67 20 28 70 6f 69 6e 74 29 20 22 5c 5c 28 5c 5c 5c 74 5c 5c 29 5b 5e 5c 5c 5c exp.beg.(point)."\\(\\\t\\)[^\\\
26dc0 74 5c 5c 5c 6e 5d 2b 22 20 31 20 34 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 t\\\n]+".1.4.t)...............(g
26de0 6f 74 6f 2d 63 68 61 72 20 31 29 29 29 29 29 0a 20 20 20 20 20 20 62 75 66 29 29 29 0a 0a 28 63 oto-char.1))))).......buf)))..(c
26e00 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 l-defmethod.dirvish-preview-disp
26e20 61 74 63 68 20 28 28 72 65 63 69 70 65 20 28 68 65 61 64 20 63 61 63 68 65 29 29 20 64 76 29 0a atch.((recipe.(head.cache)).dv).
26e40 20 20 22 47 65 6e 65 72 61 74 65 20 63 61 63 68 65 20 69 6d 61 67 65 20 61 63 63 6f 72 64 69 6e .."Generate.cache.image.accordin
26e60 67 20 74 6f 20 52 45 43 49 50 45 20 61 6e 64 20 73 65 73 73 69 6f 6e 20 44 56 2e 22 0a 20 20 28 g.to.RECIPE.and.session.DV."...(
26e80 6c 65 74 2a 20 28 28 70 61 74 68 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 let*.((path.(dirvish-prop.:index
26ea0 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d ))..........(buf.(dirvish--util-
26ec0 62 75 66 66 65 72 20 27 70 72 65 76 69 65 77 20 64 76 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 buffer.'preview.dv.nil.t))......
26ee0 20 20 20 20 28 6e 61 6d 65 20 28 66 6f 72 6d 61 74 20 22 25 73 2d 25 73 2d 69 6d 67 2d 63 61 63 ....(name.(format."%s-%s-img-cac
26f00 68 65 22 20 70 61 74 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 he".path........................
26f20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 (window-width.(dv-preview-window
26f40 20 64 76 29 29 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 67 65 74 2d 70 72 6f 63 65 73 .dv))))).....(unless.(get-proces
26f60 73 20 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 6d 65 64 69 s.name).......(setq.dirvish-medi
26f80 61 2d 2d 63 61 63 68 65 2d 70 6f 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 65 74 a--cache-pool.............(delet
26fa0 65 20 28 61 73 73 6f 63 20 6e 61 6d 65 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 e.(assoc.name.dirvish-media--cac
26fc0 68 65 2d 70 6f 6f 6c 29 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 6f he-pool).dirvish-media--cache-po
26fe0 6f 6c 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 72 6f 63 20 28 61 70 70 6c 79 20 23 27 ol)).......(let.((proc.(apply.#'
27000 73 74 61 72 74 2d 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 start-process...................
27020 20 20 20 20 20 20 20 6e 61 6d 65 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 .......name.(dirvish--util-buffe
27040 72 20 22 69 6d 67 2d 63 61 63 68 65 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 r."img-cache")..................
27060 20 20 20 20 20 20 20 20 28 63 61 64 72 20 72 65 63 69 70 65 29 20 28 63 64 64 72 20 72 65 63 69 ........(cadr.recipe).(cddr.reci
27080 70 65 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 73 2d 70 75 74 20 70 72 6f 63 pe)))).........(process-put.proc
270a0 20 27 70 61 74 68 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 70 72 6f 63 65 73 .'path.path).........(set-proces
270c0 73 2d 73 65 6e 74 69 6e 65 6c 20 70 72 6f 63 20 23 27 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d s-sentinel.proc.#'dirvish-media-
270e0 2d 63 61 63 68 65 2d 73 65 6e 74 69 6e 65 6c 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 -cache-sentinel))).....(with-cur
27100 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 rent-buffer.buf.......(erase-buf
27120 66 65 72 29 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 20 20 28 69 6e fer).(remove-overlays).......(in
27140 73 65 72 74 20 22 20 5b 44 69 72 76 69 73 68 5d 20 47 65 6e 65 72 61 74 69 6e 67 20 69 6d 61 67 sert.".[Dirvish].Generating.imag
27160 65 20 63 61 63 68 65 2e 2e 2e 22 29 20 62 75 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 e.cache...").buf)))..(defun.dirv
27180 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 7a 65 20 28 77 69 6e 64 6f 77 20 26 6f 70 74 ish-media--img-size.(window.&opt
271a0 69 6f 6e 61 6c 20 68 65 69 67 68 74 29 0a 20 20 22 47 65 74 20 63 6f 72 72 65 73 70 6f 6e 64 69 ional.height)..."Get.correspondi
271c0 6e 67 20 69 6d 61 67 65 20 77 69 64 74 68 20 6f 72 20 48 45 49 47 48 54 20 69 6e 20 57 49 4e 44 ng.image.width.or.HEIGHT.in.WIND
271e0 4f 57 2e 22 0a 20 20 28 6c 65 74 20 28 28 73 69 7a 65 20 28 69 66 20 68 65 69 67 68 74 20 28 2a OW."...(let.((size.(if.height.(*
27200 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 63 61 6c 65 2d 68 20 28 77 69 6e .dirvish-media--img-scale-h.(win
27220 64 6f 77 2d 70 69 78 65 6c 2d 68 65 69 67 68 74 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 dow-pixel-height.window)).......
27240 20 20 20 20 20 20 20 20 20 20 28 6d 69 6e 20 28 2a 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d ..........(min.(*.dirvish-media-
27260 2d 69 6d 67 2d 73 63 61 6c 65 2d 77 20 28 77 69 6e 64 6f 77 2d 70 69 78 65 6c 2d 77 69 64 74 68 -img-scale-w.(window-pixel-width
27280 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 .window))......................d
272a0 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 6d 61 78 2d 77 69 64 74 68 29 29 29 29 0a irvish-media--img-max-width)))).
272c0 20 20 20 20 28 66 6c 6f 6f 72 20 73 69 7a 65 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 ....(floor.size)))..(dirvish-def
272e0 69 6e 65 2d 70 72 65 76 69 65 77 20 61 75 64 69 6f 20 28 66 69 6c 65 20 65 78 74 29 0a 20 20 22 ine-preview.audio.(file.ext)..."
27300 50 72 65 76 69 65 77 20 61 75 64 69 6f 20 66 69 6c 65 73 20 62 79 20 70 72 69 6e 74 69 6e 67 20 Preview.audio.files.by.printing.
27320 69 74 73 20 6d 65 74 61 64 61 74 61 2e 0a 52 65 71 75 69 72 65 3a 20 60 6d 65 64 69 61 69 6e 66 its.metadata..Require:.`mediainf
27340 6f 27 20 28 65 78 65 63 75 74 61 62 6c 65 29 22 0a 20 20 3a 72 65 71 75 69 72 65 20 28 22 6d 65 o'.(executable)"...:require.("me
27360 64 69 61 69 6e 66 6f 22 29 0a 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 diainfo")...(when.(member.ext.di
27380 72 76 69 73 68 2d 61 75 64 69 6f 2d 65 78 74 73 29 20 60 28 73 68 65 6c 6c 20 2e 20 28 22 6d 65 rvish-audio-exts).`(shell...("me
273a0 64 69 61 69 6e 66 6f 22 20 2c 66 69 6c 65 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 diainfo".,file))))..(dirvish-def
273c0 69 6e 65 2d 70 72 65 76 69 65 77 20 69 6d 61 67 65 20 28 66 69 6c 65 20 65 78 74 20 70 72 65 76 ine-preview.image.(file.ext.prev
273e0 69 65 77 2d 77 69 6e 64 6f 77 29 0a 20 20 22 50 72 65 76 69 65 77 20 69 6d 61 67 65 20 66 69 6c iew-window)..."Preview.image.fil
27400 65 73 2e 0a 52 65 71 75 69 72 65 3a 20 60 63 6f 6e 76 65 72 74 27 20 28 65 78 65 63 75 74 61 62 es..Require:.`convert'.(executab
27420 6c 65 20 66 72 6f 6d 20 60 69 6d 61 67 65 6d 61 67 69 63 6b 27 20 73 75 69 74 65 29 22 0a 20 20 le.from.`imagemagick'.suite)"...
27440 3a 72 65 71 75 69 72 65 20 28 22 63 6f 6e 76 65 72 74 22 29 0a 20 20 28 77 68 65 6e 20 28 6d 65 :require.("convert")...(when.(me
27460 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 69 6d 61 67 65 2d 65 78 74 73 29 0a 20 20 20 mber.ext.dirvish-image-exts)....
27480 20 28 6c 65 74 2a 20 28 28 77 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 .(let*.((w.(dirvish-media--img-s
274a0 69 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 ize.preview-window))............
274c0 28 68 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 7a 65 20 70 72 65 76 (h.(dirvish-media--img-size.prev
274e0 69 65 77 2d 77 69 6e 64 6f 77 20 27 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 iew-window.'height))............
27500 28 63 61 63 68 65 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 2d 70 61 74 (cache.(dirvish-media--cache-pat
27520 68 20 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 22 69 6d 61 67 65 73 2f 25 73 22 20 77 29 20 22 2e h.file.(format."images/%s".w).".
27540 6a 70 67 22 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 66 69 6c 65 2d 65 78 69 73 74 jpg"))).......(cond.((file-exist
27560 73 2d 70 20 63 61 63 68 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 69 6d 67 20 2e 20 s-p.cache)..............`(img...
27580 2c 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 63 61 63 68 65 20 6e 69 6c 20 6e 69 6c 20 3a 6d 61 ,(create-image.cache.nil.nil.:ma
275a0 78 2d 77 69 64 74 68 20 77 20 3a 6d 61 78 2d 68 65 69 67 68 74 20 68 29 29 29 0a 20 20 20 20 20 x-width.w.:max-height.h)))......
275c0 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 3c 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 2d .......((and.(<.(file-attribute-
275e0 73 69 7a 65 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 69 6c 65 29 29 20 32 35 30 size.(file-attributes.file)).250
27600 30 30 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 65 000)...................(member.e
27620 78 74 20 27 28 22 6a 70 67 22 20 22 6a 70 65 67 22 20 22 70 6e 67 22 20 22 69 63 6f 22 20 22 69 xt.'("jpg"."jpeg"."png"."ico"."i
27640 63 6e 73 22 20 22 62 6d 70 22 20 22 73 76 67 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 cns"."bmp"."svg"))).............
27660 20 60 28 69 6d 67 20 2e 20 2c 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 66 69 6c 65 20 6e 69 6c .`(img...,(create-image.file.nil
27680 20 6e 69 6c 20 3a 6d 61 78 2d 77 69 64 74 68 20 77 20 3a 6d 61 78 2d 68 65 69 67 68 74 20 68 29 .nil.:max-width.w.:max-height.h)
276a0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 63 61 63 68 65 20 2e 20 28 22 63 6f )).............(t.`(cache...("co
276c0 6e 76 65 72 74 22 20 2c 66 69 6c 65 20 22 2d 64 65 66 69 6e 65 22 20 22 6a 70 65 67 3a 65 78 74 nvert".,file."-define"."jpeg:ext
276e0 65 6e 74 3d 33 30 30 6b 62 22 20 22 2d 72 65 73 69 7a 65 22 0a 20 20 20 20 20 20 20 20 20 20 20 ent=300kb"."-resize"............
27700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e ...............,(number-to-strin
27720 67 20 77 29 20 2c 63 61 63 68 65 29 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 g.w).,cache)))))))..(dirvish-def
27740 69 6e 65 2d 70 72 65 76 69 65 77 20 67 69 66 20 28 66 69 6c 65 20 65 78 74 29 0a 20 20 22 50 72 ine-preview.gif.(file.ext)..."Pr
27760 65 76 69 65 77 20 67 69 66 20 69 6d 61 67 65 73 20 77 69 74 68 20 61 6e 69 6d 61 74 69 6f 6e 73 eview.gif.images.with.animations
27780 2e 22 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 65 78 74 20 22 67 69 66 22 29 0a 20 20 20 ."...(when.(equal.ext."gif")....
277a0 20 28 6c 65 74 20 28 28 67 69 66 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d .(let.((gif.(dirvish--find-file-
277c0 74 65 6d 70 6f 72 61 72 69 6c 79 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 temporarily.file))...........(ca
277e0 6c 6c 62 61 63 6b 20 28 6c 61 6d 62 64 61 20 28 72 63 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 llback.(lambda.(rcp)............
27800 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 75 66 20 28 63 64 72 ...........(when-let*.((buf.(cdr
27820 20 72 63 70 29 29 20 28 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 29 29 29 0a 20 20 .rcp)).((buffer-live-p.buf)))...
27840 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 63 75 72 72 ......................(with-curr
27860 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ent-buffer.buf..................
27880 20 20 20 20 20 20 20 20 20 28 69 6d 61 67 65 2d 61 6e 69 6d 61 74 65 20 28 67 65 74 2d 63 68 61 .........(image-animate.(get-cha
278a0 72 2d 70 72 6f 70 65 72 74 79 20 31 20 27 64 69 73 70 6c 61 79 29 29 29 29 29 29 29 0a 20 20 20 r-property.1.'display)))))))....
278c0 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 20 31 20 6e 69 6c 20 63 61 ...(run-with-idle-timer.1.nil.ca
278e0 6c 6c 62 61 63 6b 20 67 69 66 29 20 67 69 66 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 llback.gif).gif)))..(dirvish-def
27900 69 6e 65 2d 70 72 65 76 69 65 77 20 76 69 64 65 6f 20 28 66 69 6c 65 20 65 78 74 20 70 72 65 76 ine-preview.video.(file.ext.prev
27920 69 65 77 2d 77 69 6e 64 6f 77 29 0a 20 20 22 50 72 65 76 69 65 77 20 76 69 64 65 6f 20 66 69 6c iew-window)..."Preview.video.fil
27940 65 73 2e 0a 52 65 71 75 69 72 65 3a 20 60 66 66 6d 70 65 67 74 68 75 6d 62 6e 61 69 6c 65 72 27 es..Require:.`ffmpegthumbnailer'
27960 20 28 65 78 65 63 75 74 61 62 6c 65 29 22 0a 20 20 3a 72 65 71 75 69 72 65 20 28 22 66 66 6d 70 .(executable)"...:require.("ffmp
27980 65 67 74 68 75 6d 62 6e 61 69 6c 65 72 22 29 0a 20 20 28 77 68 65 6e 20 28 6d 65 6d 62 65 72 20 egthumbnailer")...(when.(member.
279a0 65 78 74 20 64 69 72 76 69 73 68 2d 76 69 64 65 6f 2d 65 78 74 73 29 0a 20 20 20 20 28 6c 65 74 ext.dirvish-video-exts).....(let
279c0 2a 20 28 28 77 69 64 74 68 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 *.((width.(dirvish-media--img-si
279e0 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 ze.preview-window))............(
27a00 68 65 69 67 68 74 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 7a 65 20 height.(dirvish-media--img-size.
27a20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 27 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 preview-window.'height))........
27a40 20 20 20 20 28 63 61 63 68 65 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 63 68 65 ....(cache.(dirvish-media--cache
27a60 2d 70 61 74 68 20 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 22 69 6d 61 67 65 73 2f 25 73 22 20 77 -path.file.(format."images/%s".w
27a80 69 64 74 68 29 20 22 2e 6a 70 67 22 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d idth).".jpg"))).......(if.(file-
27aa0 65 78 69 73 74 73 2d 70 20 63 61 63 68 65 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 69 6d 67 20 exists-p.cache)...........`(img.
27ac0 2e 20 2c 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 63 61 63 68 65 20 6e 69 6c 20 6e 69 6c 20 3a ..,(create-image.cache.nil.nil.:
27ae0 6d 61 78 2d 77 69 64 74 68 20 77 69 64 74 68 20 3a 6d 61 78 2d 68 65 69 67 68 74 20 68 65 69 67 max-width.width.:max-height.heig
27b00 68 74 29 29 0a 20 20 20 20 20 20 20 20 60 28 63 61 63 68 65 20 2e 20 28 22 66 66 6d 70 65 67 74 ht)).........`(cache...("ffmpegt
27b20 68 75 6d 62 6e 61 69 6c 65 72 22 20 22 2d 69 22 20 2c 66 69 6c 65 20 22 2d 6f 22 20 2c 63 61 63 humbnailer"."-i".,file."-o".,cac
27b40 68 65 20 22 2d 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 he."-s".........................
27b60 20 2c 28 6e 75 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 77 69 64 74 68 29 0a 20 20 20 20 20 .,(number-to-string.width)......
27b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 28 69 66 20 64 69 72 76 69 73 68 ....................,(if.dirvish
27ba0 2d 6d 65 64 69 61 2d 2d 65 6d 62 65 64 64 65 64 2d 76 69 64 65 6f 2d 74 68 75 6d 62 20 22 2d 6d -media--embedded-video-thumb."-m
27bc0 22 20 22 22 29 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 "."")))))))..(dirvish-define-pre
27be0 76 69 65 77 20 65 70 75 62 20 28 66 69 6c 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 0a view.epub.(file.preview-window).
27c00 20 20 22 50 72 65 76 69 65 77 20 65 70 75 62 20 66 69 6c 65 73 2e 0a 52 65 71 75 69 72 65 3a 20 .."Preview.epub.files..Require:.
27c20 60 65 70 75 62 2d 74 68 75 6d 62 6e 61 69 6c 65 72 27 20 28 65 78 65 63 75 74 61 62 6c 65 29 22 `epub-thumbnailer'.(executable)"
27c40 0a 20 20 3a 72 65 71 75 69 72 65 20 28 22 65 70 75 62 2d 74 68 75 6d 62 6e 61 69 6c 65 72 22 29 ...:require.("epub-thumbnailer")
27c60 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 65 78 74 20 22 65 70 75 62 22 29 0a 20 20 20 20 ...(when.(equal.ext."epub").....
27c80 28 6c 65 74 2a 20 28 28 77 69 64 74 68 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d (let*.((width.(dirvish-media--im
27ca0 67 2d 73 69 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 g-size.preview-window)).........
27cc0 20 20 20 28 68 65 69 67 68 74 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 ...(height.(dirvish-media--img-s
27ce0 69 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 27 68 65 69 67 68 74 29 29 0a 20 20 20 ize.preview-window.'height))....
27d00 20 20 20 20 20 20 20 20 28 63 61 63 68 65 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 ........(cache.(dirvish-media--c
27d20 61 63 68 65 2d 70 61 74 68 20 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 22 69 6d 61 67 65 73 2f 25 ache-path.file.(format."images/%
27d40 73 22 20 77 69 64 74 68 29 20 22 2e 6a 70 67 22 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 66 s".width).".jpg"))).......(if.(f
27d60 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 61 63 68 65 29 0a 20 20 20 20 20 20 20 20 20 20 60 28 ile-exists-p.cache)...........`(
27d80 69 6d 67 20 2e 20 2c 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 63 61 63 68 65 20 6e 69 6c 20 6e img...,(create-image.cache.nil.n
27da0 69 6c 20 3a 6d 61 78 2d 77 69 64 74 68 20 77 69 64 74 68 20 3a 6d 61 78 2d 68 65 69 67 68 74 20 il.:max-width.width.:max-height.
27dc0 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 60 28 63 61 63 68 65 20 2e 20 28 22 65 70 75 height)).........`(cache...("epu
27de0 62 2d 74 68 75 6d 62 6e 61 69 6c 65 72 22 20 2c 66 69 6c 65 20 2c 63 61 63 68 65 20 2c 28 6e 75 b-thumbnailer".,file.,cache.,(nu
27e00 6d 62 65 72 2d 74 6f 2d 73 74 72 69 6e 67 20 77 69 64 74 68 29 29 29 29 29 29 29 0a 0a 28 64 69 mber-to-string.width)))))))..(di
27e20 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 70 64 66 20 28 66 69 6c 65 20 65 rvish-define-preview.pdf.(file.e
27e40 78 74 29 0a 20 20 22 50 72 65 76 69 65 77 20 70 64 66 20 66 69 6c 65 73 2e 0a 52 65 71 75 69 72 xt)..."Preview.pdf.files..Requir
27e60 65 3a 20 60 70 64 66 2d 74 6f 6f 6c 73 27 20 28 45 6d 61 63 73 20 70 61 63 6b 61 67 65 29 22 0a e:.`pdf-tools'.(Emacs.package)".
27e80 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 65 78 74 20 22 70 64 66 22 29 0a 20 20 20 20 28 69 ..(when.(equal.ext."pdf").....(i
27ea0 66 20 28 66 65 61 74 75 72 65 70 20 27 70 64 66 2d 74 6f 6f 6c 73 29 20 28 64 69 72 76 69 73 68 f.(featurep.'pdf-tools).(dirvish
27ec0 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 20 66 69 6c 65 29 0a 20 20 --find-file-temporarily.file)...
27ee0 20 20 20 20 27 28 69 6e 66 6f 20 2e 20 22 45 6d 61 63 73 20 70 61 63 6b 61 67 65 20 27 70 64 66 ....'(info..."Emacs.package.'pdf
27f00 2d 74 6f 6f 6c 73 27 20 69 73 20 72 65 71 75 69 72 65 64 20 74 6f 20 70 72 65 76 69 65 77 20 70 -tools'.is.required.to.preview.p
27f20 64 66 20 64 6f 63 75 6d 65 6e 74 73 22 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 df.documents"))))..(dirvish-defi
27f40 6e 65 2d 70 72 65 76 69 65 77 20 70 64 66 2d 70 72 65 66 61 63 65 20 28 66 69 6c 65 20 65 78 74 ne-preview.pdf-preface.(file.ext
27f60 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 .preview-window)..."Display.the.
27f80 70 72 65 66 61 63 65 20 69 6d 61 67 65 20 61 73 20 70 72 65 76 69 65 77 20 66 6f 72 20 70 64 66 preface.image.as.preview.for.pdf
27fa0 20 66 69 6c 65 73 2e 22 0a 20 20 3a 72 65 71 75 69 72 65 20 28 22 70 64 66 74 6f 70 70 6d 22 29 .files."...:require.("pdftoppm")
27fc0 0a 20 20 28 77 68 65 6e 20 28 65 71 75 61 6c 20 65 78 74 20 22 70 64 66 22 29 0a 20 20 20 20 28 ...(when.(equal.ext."pdf").....(
27fe0 6c 65 74 2a 20 28 28 77 69 64 74 68 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 let*.((width.(dirvish-media--img
28000 2d 73 69 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 -size.preview-window))..........
28020 20 20 28 68 65 69 67 68 74 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 69 6d 67 2d 73 69 ..(height.(dirvish-media--img-si
28040 7a 65 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 27 68 65 69 67 68 74 29 29 0a 20 20 20 20 ze.preview-window.'height)).....
28060 20 20 20 20 20 20 20 28 63 61 63 68 65 20 28 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 2d 63 61 .......(cache.(dirvish-media--ca
28080 63 68 65 2d 70 61 74 68 20 66 69 6c 65 20 28 66 6f 72 6d 61 74 20 22 69 6d 61 67 65 73 2f 25 73 che-path.file.(format."images/%s
280a0 22 20 77 69 64 74 68 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 63 61 63 68 65 2d 6a 70 67 ".width)))............(cache-jpg
280c0 20 28 63 6f 6e 63 61 74 20 63 61 63 68 65 20 22 2e 6a 70 67 22 29 29 29 0a 20 20 20 20 20 20 28 .(concat.cache.".jpg"))).......(
280e0 69 66 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 63 61 63 68 65 2d 6a 70 67 29 0a 20 20 20 if.(file-exists-p.cache-jpg)....
28100 20 20 20 20 20 20 20 60 28 69 6d 67 20 2e 20 2c 28 63 72 65 61 74 65 2d 69 6d 61 67 65 20 63 61 .......`(img...,(create-image.ca
28120 63 68 65 2d 6a 70 67 20 6e 69 6c 20 6e 69 6c 20 3a 6d 61 78 2d 77 69 64 74 68 20 77 69 64 74 68 che-jpg.nil.nil.:max-width.width
28140 20 3a 6d 61 78 2d 68 65 69 67 68 74 20 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 60 28 .:max-height.height)).........`(
28160 63 61 63 68 65 20 2e 20 28 22 70 64 66 74 6f 70 70 6d 22 20 22 2d 6a 70 65 67 22 20 22 2d 66 22 cache...("pdftoppm"."-jpeg"."-f"
28180 20 22 31 22 20 22 2d 73 69 6e 67 6c 65 66 69 6c 65 22 20 2c 66 69 6c 65 20 2c 63 61 63 68 65 29 ."1"."-singlefile".,file.,cache)
281a0 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 61 )))))..(dirvish-define-preview.a
281c0 72 63 68 69 76 65 20 28 66 69 6c 65 20 65 78 74 29 0a 20 20 22 50 72 65 76 69 65 77 20 61 72 63 rchive.(file.ext)..."Preview.arc
281e0 68 69 76 65 20 66 69 6c 65 73 2e 0a 52 65 71 75 69 72 65 3a 20 60 7a 69 70 69 6e 66 6f 27 20 28 hive.files..Require:.`zipinfo'.(
28200 65 78 65 63 75 74 61 62 6c 65 29 0a 52 65 71 75 69 72 65 3a 20 60 74 61 72 27 20 28 65 78 65 63 executable).Require:.`tar'.(exec
28220 75 74 61 62 6c 65 29 22 0a 20 20 3a 72 65 71 75 69 72 65 20 28 22 7a 69 70 69 6e 66 6f 22 20 22 utable)"...:require.("zipinfo"."
28240 74 61 72 22 29 0a 20 20 28 63 6f 6e 64 20 28 28 65 71 75 61 6c 20 65 78 74 20 22 7a 69 70 22 29 tar")...(cond.((equal.ext."zip")
28260 20 60 28 73 68 65 6c 6c 20 2e 20 28 22 7a 69 70 69 6e 66 6f 22 20 2c 66 69 6c 65 29 29 29 0a 20 .`(shell...("zipinfo".,file)))..
28280 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 65 78 74 20 27 28 22 74 61 72 22 20 22 7a 73 74 .......((member.ext.'("tar"."zst
282a0 22 20 22 62 7a 32 22 20 22 62 7a 22 20 22 67 7a 22 20 22 78 7a 22 20 22 74 67 7a 22 29 29 0a 20 "."bz2"."bz"."gz"."xz"."tgz"))..
282c0 20 20 20 20 20 20 20 20 60 28 73 68 65 6c 6c 20 2e 20 28 22 74 61 72 22 20 22 2d 74 76 66 22 20 ........`(shell...("tar"."-tvf".
282e0 2c 66 69 6c 65 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 77 69 ,file)))))..(provide.'dirvish-wi
28300 64 67 65 74 73 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 77 69 64 67 65 74 73 2e 65 6c 20 65 6e dgets).;;;.dirvish-widgets.el.en
28320 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ds.here.........................
28340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
283a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
283c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
283e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28400 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2e 65 6c dirvish-20230519.1500/dirvish.el
28420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28460 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
28480 30 31 37 33 32 30 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 34 34 35 36 00 20 30 00 00 00 0173205.00000000000.014456..0...
284a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
284c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
284e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28500 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...................
28520 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...................
28540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
285a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
285c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
285e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
28600 3b 3b 3b 20 64 69 72 76 69 73 68 2e 65 6c 20 2d 2d 2d 20 41 20 6d 6f 64 65 72 6e 20 66 69 6c 65 ;;;.dirvish.el.---.A.modern.file
28620 20 6d 61 6e 61 67 65 72 20 62 61 73 65 64 20 6f 6e 20 64 69 72 65 64 20 6d 6f 64 65 20 2d 2a 2d .manager.based.on.dired.mode.-*-
28640 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 3b 3b 20 43 6f 70 79 72 .lexical-binding:.t.-*-.;;.Copyr
28660 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 0a 3b 3b 20 41 ight.(C).2021-2022.Alex.Lu..;;.A
28680 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e uthor.:.Alex.Lu.<https://github.
286a0 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e com/alexluigit>.;;.Version:.2.0.
286c0 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 53.;;.Keywords:.files,.convenien
286e0 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 ce.;;.Homepage:.https://github.c
28700 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 om/alexluigit/dirvish.;;.SPDX-Li
28720 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 cense-Identifier:.GPL-3.0-or-lat
28740 65 72 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 er.;;.Package-Requires:.((emacs.
28760 22 32 37 2e 31 22 29 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33 2e 37 22 29 29 0a 0a 3b 3b "27.1").(transient."0.3.7"))..;;
28780 20 54 68 69 73 20 66 69 6c 65 20 69 73 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 47 4e 55 20 45 6d .This.file.is.not.part.of.GNU.Em
287a0 61 63 73 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 3b 3b 20 41 20 6d 69 6e 69 6d acs...;;;.Commentary:.;;.A.minim
287c0 61 6c 69 73 74 69 63 20 79 65 74 20 76 65 72 73 61 74 69 6c 65 20 66 69 6c 65 20 6d 61 6e 61 67 alistic.yet.versatile.file.manag
287e0 65 72 20 62 61 73 65 64 20 6f 6e 20 44 69 72 65 64 2e 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 er.based.on.Dired..;;.This.packa
28800 67 65 20 67 69 76 65 73 20 44 69 72 65 64 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 66 65 61 ge.gives.Dired.the.following.fea
28820 74 75 72 65 73 3a 0a 3b 3b 0a 3b 3b 20 2d 20 4d 75 6c 74 69 70 6c 65 20 77 69 6e 64 6f 77 20 6c tures:.;;.;;.-.Multiple.window.l
28840 61 79 6f 75 74 73 0a 3b 3b 20 2d 20 41 6c 77 61 79 73 20 61 76 61 69 6c 61 62 6c 65 20 66 69 6c ayouts.;;.-.Always.available.fil
28860 65 20 70 72 65 76 69 65 77 0a 3b 3b 20 2d 20 49 73 6f 6c 61 74 65 64 20 73 65 73 73 69 6f 6e 73 e.preview.;;.-.Isolated.sessions
28880 0a 3b 3b 20 2d 20 41 20 6d 6f 64 65 72 6e 20 61 6e 64 20 63 6f 6d 70 6f 73 61 62 6c 65 20 75 73 .;;.-.A.modern.and.composable.us
288a0 65 72 20 69 6e 74 65 72 66 61 63 65 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 er.interface..;;;.Code:..(requir
288c0 65 20 27 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 65 20 27 74 72 61 6e 73 69 65 6e 74 29 0a 28 e.'dired).(require.'transient).(
288e0 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 61 6e 73 69 2d 63 6f 6c 6f 72 2d 61 70 70 6c declare-function.ansi-color-appl
28900 79 2d 6f 6e 2d 72 65 67 69 6f 6e 20 22 61 6e 73 69 2d 63 6f 6c 6f 72 22 29 0a 28 64 65 63 6c 61 y-on-region."ansi-color").(decla
28920 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 69 72 76 69 73 68 2d 66 64 2d 66 69 6e 64 20 22 64 69 72 re-function.dirvish-fd-find."dir
28940 76 69 73 68 2d 66 64 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 64 69 72 76 vish-fd").(declare-function.dirv
28960 69 73 68 2d 6e 6f 73 65 6c 65 63 74 2d 74 72 61 6d 70 20 22 64 69 72 76 69 73 68 2d 65 78 74 72 ish-noselect-tramp."dirvish-extr
28980 61 73 22 29 0a 0a 3b 3b 3b 3b 20 55 73 65 72 20 4f 70 74 69 6f 6e 73 0a 0a 28 64 65 66 67 72 6f as")..;;;;.User.Options..(defgro
289a0 75 70 20 64 69 72 76 69 73 68 20 6e 69 6c 20 22 41 20 62 65 74 74 65 72 20 44 69 72 65 64 2e 22 up.dirvish.nil."A.better.Dired."
289c0 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 .:group.'dired)..(defcustom.dirv
289e0 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 20 27 28 66 69 6c 65 2d 73 69 7a 65 29 0a 20 20 22 46 ish-attributes.'(file-size)..."F
28a00 69 6c 65 20 61 74 74 72 69 62 75 74 65 73 20 73 68 6f 77 69 6e 67 20 69 6e 20 66 69 6c 65 20 6c ile.attributes.showing.in.file.l
28a20 69 6e 65 73 2e 0a 44 69 72 76 69 73 68 20 73 68 69 70 73 20 77 69 74 68 20 74 68 65 73 65 20 61 ines..Dirvish.ships.with.these.a
28a40 74 74 72 69 62 75 74 65 73 3a 0a 0a 2d 20 60 73 75 62 74 72 65 65 2d 73 74 61 74 65 27 3a 20 41 ttributes:..-.`subtree-state':.A
28a60 20 69 6e 64 69 63 61 74 6f 72 20 66 6f 72 20 64 69 72 65 63 74 6f 72 79 20 65 78 70 61 6e 64 69 .indicator.for.directory.expandi
28a80 6e 67 20 73 74 61 74 65 2e 0a 2d 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 27 3a 20 46 69 6c ng.state..-.`all-the-icons':.Fil
28aa0 65 20 69 63 6f 6e 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f e.icons.provided.by.`all-the-ico
28ac0 6e 73 2e 65 6c 27 2e 0a 2d 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 3a 20 46 69 6c 65 20 69 63 6f ns.el'..-.`nerd-icons':.File.ico
28ae0 6e 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 60 6e 65 72 64 2d 69 63 6f 6e 73 2e 65 6c 27 2e 0a ns.provided.by.`nerd-icons.el'..
28b00 2d 20 60 76 73 63 6f 64 65 2d 69 63 6f 6e 27 3a 20 46 69 6c 65 20 69 63 6f 6e 73 20 70 72 6f 76 -.`vscode-icon':.File.icons.prov
28b20 69 64 65 64 20 62 79 20 60 76 73 63 6f 64 65 2d 69 63 6f 6e 2e 65 6c 27 2e 0a 2d 20 60 63 6f 6c ided.by.`vscode-icon.el'..-.`col
28b40 6c 61 70 73 65 27 3a 20 43 6f 6c 6c 61 70 73 65 20 75 6e 69 71 75 65 20 6e 65 73 74 65 64 20 70 lapse':.Collapse.unique.nested.p
28b60 61 74 68 73 2e 0a 2d 20 60 67 69 74 2d 6d 73 67 27 3a 20 41 70 70 65 6e 64 20 67 69 74 20 63 6f aths..-.`git-msg':.Append.git.co
28b80 6d 6d 69 74 20 6d 65 73 73 61 67 65 20 74 6f 20 66 69 6c 65 6e 61 6d 65 2e 0a 2d 20 60 76 63 2d mmit.message.to.filename..-.`vc-
28ba0 73 74 61 74 65 27 3a 20 54 68 65 20 76 65 72 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 73 74 61 74 state':.The.version.control.stat
28bc0 65 20 61 74 20 6c 65 66 74 20 66 72 69 6e 67 65 2e 0a 2d 20 60 66 69 6c 65 2d 73 69 7a 65 27 3a e.at.left.fringe..-.`file-size':
28be0 20 66 69 6c 65 20 73 69 7a 65 20 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 20 66 69 6c 65 20 63 .file.size.or.directories.file.c
28c00 6f 75 6e 74 20 61 74 20 72 69 67 68 74 20 66 72 69 6e 67 65 2e 0a 2d 20 60 66 69 6c 65 2d 74 69 ount.at.right.fringe..-.`file-ti
28c20 6d 65 27 3a 20 53 68 6f 77 20 66 69 6c 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 69 6d 65 me':.Show.file.modification.time
28c40 20 62 65 66 6f 72 65 20 74 68 65 20 60 66 69 6c 65 2d 73 69 7a 65 27 2e 22 0a 20 20 3a 67 72 6f .before.the.`file-size'."...:gro
28c60 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 73 79 6d 62 up.'dirvish.:type.'(repeat.(symb
28c80 6f 6c 20 3a 74 61 67 20 22 44 69 72 76 69 73 68 20 61 74 74 72 69 62 75 74 65 22 29 29 29 0a 0a ol.:tag."Dirvish.attribute")))..
28ca0 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 (defcustom.dirvish-preview-dispa
28cc0 74 63 68 65 72 73 20 27 28 69 6d 61 67 65 20 67 69 66 20 76 69 64 65 6f 20 61 75 64 69 6f 20 65 tchers.'(image.gif.video.audio.e
28ce0 70 75 62 20 61 72 63 68 69 76 65 20 70 64 66 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 70 72 65 76 pub.archive.pdf)..."List.of.prev
28d00 69 65 77 20 64 69 73 70 61 74 63 68 65 72 73 2e 0a 45 61 63 68 20 64 69 73 70 61 74 63 68 65 72 iew.dispatchers..Each.dispatcher
28d20 20 69 6e 20 74 68 69 73 20 6c 69 73 74 20 68 61 6e 64 6c 65 73 20 74 68 65 20 76 61 6c 69 64 61 .in.this.list.handles.the.valida
28d40 74 69 6f 6e 20 61 6e 64 20 70 72 65 76 69 65 77 0a 63 6f 6e 74 65 6e 74 20 67 65 6e 65 72 61 74 tion.and.preview.content.generat
28d60 69 6f 6e 20 66 6f 72 20 74 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 66 69 6c 65 74 79 ion.for.the.corresponding.filety
28d80 70 65 2e 0a 0a 54 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 63 6f 6e 74 61 69 6e 73 3a pe...The.default.value.contains:
28da0 0a 0a 2d 20 69 6d 61 67 65 3a 20 70 72 65 76 69 65 77 20 69 6d 61 67 65 20 66 69 6c 65 73 2c 20 ..-.image:.preview.image.files,.
28dc0 72 65 71 75 69 72 65 73 20 60 69 6d 61 67 65 6d 61 67 69 63 6b 27 2e 0a 2d 20 67 69 66 3a 20 70 requires.`imagemagick'..-.gif:.p
28de0 72 65 76 69 65 77 20 47 49 46 20 69 6d 61 67 65 20 66 69 6c 65 73 20 77 69 74 68 20 61 6e 69 6d review.GIF.image.files.with.anim
28e00 61 74 69 6f 6e 2e 0a 2d 20 76 69 64 65 6f 3a 20 70 72 65 76 69 65 77 20 76 69 64 65 6f 73 20 66 ation..-.video:.preview.videos.f
28e20 69 6c 65 73 20 77 69 74 68 20 74 68 75 6d 62 6e 61 69 6c 2c 20 72 65 71 75 69 72 65 73 20 60 66 iles.with.thumbnail,.requires.`f
28e40 66 6d 70 65 67 74 68 75 6d 62 6e 61 69 6c 65 72 27 2e 0a 2d 20 61 75 64 69 6f 3a 20 70 72 65 76 fmpegthumbnailer'..-.audio:.prev
28e60 69 65 77 20 61 75 64 69 6f 20 66 69 6c 65 73 20 77 69 74 68 20 6d 65 74 61 64 61 74 61 2c 20 72 iew.audio.files.with.metadata,.r
28e80 65 71 75 69 72 65 73 20 60 6d 65 64 69 61 69 6e 66 6f 27 2e 0a 2d 20 65 70 75 62 3a 20 70 72 65 equires.`mediainfo'..-.epub:.pre
28ea0 76 69 65 77 20 65 70 75 62 20 64 6f 63 75 6d 65 6e 74 73 2c 20 72 65 71 75 69 72 65 73 20 60 65 view.epub.documents,.requires.`e
28ec0 70 75 62 2d 74 68 75 6d 62 6e 61 69 6c 65 72 27 2e 0a 2d 20 70 64 66 3a 20 70 72 65 76 69 65 77 pub-thumbnailer'..-.pdf:.preview
28ee0 20 70 64 66 20 64 6f 63 75 6d 65 6e 74 73 20 76 69 61 20 60 70 64 66 2d 74 6f 6f 6c 73 27 2e 0a .pdf.documents.via.`pdf-tools'..
28f00 2d 20 61 72 63 68 69 76 65 3a 20 70 72 65 76 69 65 77 20 61 72 63 68 69 76 65 20 66 69 6c 65 73 -.archive:.preview.archive.files
28f20 20 73 75 63 68 20 61 73 20 2e 74 61 72 2c 20 2e 7a 69 70 2c 20 72 65 71 75 69 72 65 73 20 60 74 .such.as..tar,..zip,.requires.`t
28f40 61 72 27 20 2f 20 60 75 6e 7a 69 70 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 ar'./.`unzip'."...:group.'dirvis
28f60 68 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 20 28 73 79 6d 62 6f 6c 20 3a 74 61 67 20 22 44 h.:type.'(repeat.(symbol.:tag."D
28f80 69 72 76 69 73 68 20 70 72 65 76 69 65 77 20 6d 65 74 68 6f 64 73 22 29 29 29 0a 0a 28 64 65 66 irvish.preview.methods")))..(def
28fa0 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 61 62 6c 65 64 2d custom.dirvish-preview-disabled-
28fc0 65 78 74 73 20 27 28 22 69 73 6f 22 20 22 62 69 6e 22 20 22 65 78 65 22 20 22 67 70 67 22 20 22 exts.'("iso"."bin"."exe"."gpg"."
28fe0 65 6c 63 22 20 22 65 6c 6e 22 29 0a 20 20 22 44 6f 20 6e 6f 74 20 70 72 65 76 69 65 77 20 66 69 elc"."eln")..."Do.not.preview.fi
29000 6c 65 73 20 65 6e 64 20 77 69 74 68 20 74 68 65 73 65 20 65 78 74 65 6e 73 69 6f 6e 73 2e 22 0a les.end.with.these.extensions.".
29020 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 72 65 70 65 61 74 ..:group.'dirvish.:type.'(repeat
29040 20 28 73 74 72 69 6e 67 20 3a 74 61 67 20 22 46 69 6c 65 20 6e 61 6d 65 20 65 78 74 65 6e 73 69 .(string.:tag."File.name.extensi
29060 6f 6e 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 on")))..(defcustom.dirvish-previ
29080 65 77 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 0a 20 20 27 28 28 69 6e 68 69 62 69 74 2d 6d 65 73 73 ew-environment...'((inhibit-mess
290a0 61 67 65 20 2e 20 74 29 20 28 6e 6f 6e 2d 65 73 73 65 6e 74 69 61 6c 20 2e 20 74 29 20 28 64 65 age...t).(non-essential...t).(de
290c0 6c 61 79 2d 6d 6f 64 65 2d 68 6f 6f 6b 73 20 2e 20 74 29 0a 20 20 20 20 28 65 6e 61 62 6c 65 2d lay-mode-hooks...t).....(enable-
290e0 64 69 72 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 2e 20 6e 69 6c 29 20 28 65 6e 61 62 dir-local-variables...nil).(enab
29100 6c 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 2e 20 3a 73 61 66 65 29 29 0a 20 20 22 le-local-variables...:safe))..."
29120 56 61 72 69 61 62 6c 65 73 20 77 68 69 63 68 20 61 72 65 20 62 6f 75 6e 64 20 66 6f 72 20 64 65 Variables.which.are.bound.for.de
29140 66 61 75 6c 74 20 66 69 6c 65 20 70 72 65 76 69 65 77 20 64 69 73 70 61 74 63 68 65 72 2e 0a 43 fault.file.preview.dispatcher..C
29160 72 65 64 69 74 3a 20 63 6f 70 69 65 64 20 66 72 6f 6d 20 60 63 6f 6e 73 75 6c 74 2d 70 72 65 76 redit:.copied.from.`consult-prev
29180 69 65 77 2d 76 61 72 69 61 62 6c 65 73 27 20 69 6e 20 60 63 6f 6e 73 75 6c 74 2e 65 6c 27 2e 22 iew-variables'.in.`consult.el'."
291a0 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 61 6c 69 73 74 29 ...:group.'dirvish.:type.'alist)
291c0 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 63 61 63 68 65 2d 64 69 72 0a 20 ..(defcustom.dirvish-cache-dir..
291e0 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 64 69 72 76 69 73 68 2f 22 20 75 73 .(expand-file-name."dirvish/".us
29200 65 72 2d 65 6d 61 63 73 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 22 50 72 65 76 69 65 77 20 2f er-emacs-directory)..."Preview./
29220 20 74 68 75 6d 62 6e 61 69 6c 20 63 61 63 68 65 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 64 .thumbnail.cache.directory.for.d
29240 69 72 76 69 73 68 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 irvish."...:group.'dirvish.:type
29260 20 27 73 74 72 69 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 64 65 .'string)..(defcustom.dirvish-de
29280 66 61 75 6c 74 2d 6c 61 79 6f 75 74 20 27 28 31 20 30 2e 31 31 20 30 2e 35 35 29 0a 20 20 22 44 fault-layout.'(1.0.11.0.55)..."D
292a0 65 66 61 75 6c 74 20 6c 61 79 6f 75 74 20 72 65 63 69 70 65 20 66 6f 72 20 66 75 6c 6c 73 63 72 efault.layout.recipe.for.fullscr
292c0 65 65 6e 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 73 2e 0a 54 68 65 20 76 61 6c 75 65 20 een.Dirvish.sessions..The.value.
292e0 68 61 73 20 74 68 65 20 66 6f 72 6d 20 28 44 45 50 54 48 20 4d 41 58 2d 50 41 52 45 4e 54 2d 57 has.the.form.(DEPTH.MAX-PARENT-W
29300 49 44 54 48 20 50 52 45 56 49 45 57 2d 57 49 44 54 48 29 2e 0a 44 45 50 54 48 20 63 6f 6e 74 72 IDTH.PREVIEW-WIDTH)..DEPTH.contr
29320 6f 6c 73 20 74 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 77 69 6e 64 6f 77 73 20 64 69 73 70 6c 61 ols.the.number.of.windows.displa
29340 79 69 6e 67 20 70 61 72 65 6e 74 0a 64 69 72 65 63 74 6f 72 69 65 73 2e 20 20 49 74 20 63 61 6e ying.parent.directories...It.can
29360 20 62 65 20 30 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 6e 65 65 64 20 74 68 65 20 70 61 72 65 .be.0.if.you.don't.need.the.pare
29380 6e 74 0a 64 69 72 65 63 74 6f 72 69 65 73 2e 20 20 4d 41 58 2d 50 41 52 45 4e 54 2d 57 49 44 54 nt.directories...MAX-PARENT-WIDT
293a0 48 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 6d 61 78 20 77 69 64 74 68 20 61 6c 6c 6f 63 61 74 H.controls.the.max.width.allocat
293c0 65 64 0a 74 6f 20 65 61 63 68 20 70 61 72 65 6e 74 20 77 69 6e 64 6f 77 73 2e 20 20 50 52 45 56 ed.to.each.parent.windows...PREV
293e0 49 45 57 2d 57 49 44 54 48 20 63 6f 6e 74 72 6f 6c 73 20 74 68 65 20 77 69 64 74 68 0a 61 6c 6c IEW-WIDTH.controls.the.width.all
29400 6f 63 61 74 65 64 20 74 6f 20 70 72 65 76 69 65 77 20 77 69 6e 64 6f 77 2e 20 20 54 68 65 20 64 ocated.to.preview.window...The.d
29420 65 66 61 75 6c 74 20 76 61 6c 75 65 20 70 72 6f 76 69 64 65 73 20 61 0a 31 3a 33 3a 35 20 28 61 efault.value.provides.a.1:3:5.(a
29440 70 70 72 6f 78 69 6d 61 74 65 6c 79 29 20 70 61 6e 65 20 72 61 74 69 6f 2e 20 20 41 6c 73 6f 20 pproximately).pane.ratio...Also.
29460 73 65 65 0a 60 64 69 72 76 69 73 68 2d 6c 61 79 6f 75 74 2d 72 65 63 69 70 65 73 27 20 69 6e 20 see.`dirvish-layout-recipes'.in.
29480 60 64 69 72 76 69 73 68 2d 65 78 74 72 61 73 2e 65 6c 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 `dirvish-extras.el'."...:group.'
294a0 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 6c 69 73 74 20 28 69 6e 74 65 67 65 72 20 3a 74 dirvish.:type.'(list.(integer.:t
294c0 61 67 20 22 6e 75 6d 62 65 72 20 6f 66 20 70 61 72 65 6e 74 20 77 69 6e 64 6f 77 73 22 29 0a 20 ag."number.of.parent.windows")..
294e0 20 20 20 20 20 20 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
29500 6c 6f 61 74 20 3a 74 61 67 20 22 6d 61 78 20 77 69 64 74 68 20 6f 66 20 70 61 72 65 6e 74 20 77 loat.:tag."max.width.of.parent.w
29520 69 6e 64 6f 77 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 indows")........................
29540 20 20 20 20 20 20 20 20 28 66 6c 6f 61 74 20 3a 74 61 67 20 22 77 69 64 74 68 20 6f 66 20 70 72 ........(float.:tag."width.of.pr
29560 65 76 69 65 77 20 77 69 6e 64 6f 77 73 22 29 29 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 eview.windows")))..(defface.dirv
29580 69 73 68 2d 68 6c 2d 6c 69 6e 65 0a 20 20 27 28 28 74 20 3a 69 6e 68 65 72 69 74 20 68 69 67 68 ish-hl-line...'((t.:inherit.high
295a0 6c 69 67 68 74 20 3a 65 78 74 65 6e 64 20 74 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 44 69 light.:extend.t))..."Face.for.Di
295c0 72 76 69 73 68 20 6c 69 6e 65 20 68 69 67 68 6c 69 67 68 74 69 6e 67 2e 22 0a 20 20 3a 67 72 6f rvish.line.highlighting."...:gro
295e0 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 up.'dirvish)..(define-obsolete-v
29600 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6c 69 6e 65 ariable-alias.'dirvish-mode-line
29620 2d 70 6f 73 69 74 69 6f 6e 20 27 64 69 72 76 69 73 68 2d 75 73 65 2d 6d 6f 64 65 2d 6c 69 6e 65 -position.'dirvish-use-mode-line
29640 20 22 41 75 67 20 35 2c 20 32 30 32 32 22 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 ."Aug.5,.2022").(defcustom.dirvi
29660 73 68 2d 75 73 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f sh-use-mode-line.t..."Whether.to
29680 20 64 69 73 70 6c 61 79 20 6d 6f 64 65 20 6c 69 6e 65 20 69 6e 20 64 69 72 76 69 73 68 20 62 75 .display.mode.line.in.dirvish.bu
296a0 66 66 65 72 73 2e 0a 54 68 65 20 76 61 6c 69 64 20 76 61 6c 75 65 20 61 72 65 3a 0a 2d 20 6e 69 ffers..The.valid.value.are:.-.ni
296c0 6c 3a 20 68 69 64 65 20 6d 6f 64 65 20 6c 69 6e 65 20 69 6e 20 64 69 72 76 69 73 68 20 73 65 73 l:.hide.mode.line.in.dirvish.ses
296e0 73 69 6f 6e 73 0a 2d 20 67 6c 6f 62 61 6c 3a 20 64 69 73 70 6c 61 79 20 74 68 65 20 6d 6f 64 65 sions.-.global:.display.the.mode
29700 20 6c 69 6e 65 20 61 63 72 6f 73 73 20 61 6c 6c 20 70 61 6e 65 73 0a 2d 20 74 20 28 61 6e 64 20 .line.across.all.panes.-.t.(and.
29720 6f 74 68 65 72 73 29 3a 20 44 69 73 70 6c 61 79 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 61 others):.Display.the.mode.line.a
29740 63 72 6f 73 73 20 64 69 72 65 63 74 6f 72 79 20 70 61 6e 65 73 22 0a 20 20 3a 67 72 6f 75 70 20 cross.directory.panes"...:group.
29760 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 'dirvish...:type.'(choice.(const
29780 20 3a 74 61 67 20 22 44 6f 20 6e 6f 74 20 73 68 6f 77 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 .:tag."Do.not.show.the.mode.line
297a0 22 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a ".nil)..................(const.:
297c0 74 61 67 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 6d 6f 64 65 20 6c 69 6e 65 20 61 63 72 6f 73 tag."Display.the.mode.line.acros
297e0 73 20 64 69 72 65 63 74 6f 72 79 20 70 61 6e 65 73 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 s.directory.panes".t)...........
29800 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 4d 61 6b 65 20 74 68 65 20 6d 6f 64 .......(const.:tag."Make.the.mod
29820 65 20 6c 69 6e 65 20 73 70 61 6e 20 61 6c 6c 20 70 61 6e 65 73 22 20 67 6c 6f 62 61 6c 29 29 29 e.line.span.all.panes".global)))
29840 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 ..(define-obsolete-variable-alia
29860 73 20 27 64 69 72 76 69 73 68 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 70 6f 73 69 74 69 6f 6e 20 s.'dirvish-header-line-position.
29880 27 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 20 22 41 75 67 20 35 2c 'dirvish-use-header-line."Aug.5,
298a0 20 32 30 32 32 22 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 75 73 65 2d 68 .2022").(defcustom.dirvish-use-h
298c0 65 61 64 65 72 2d 6c 69 6e 65 20 74 0a 20 20 22 4c 69 6b 65 20 60 64 69 72 76 69 73 68 2d 75 73 eader-line.t..."Like.`dirvish-us
298e0 65 2d 6d 6f 64 65 2d 6c 69 6e 65 27 2c 20 62 75 74 20 66 6f 72 20 68 65 61 64 65 72 20 6c 69 6e e-mode-line',.but.for.header.lin
29900 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 73 79 6d e."...:group.'dirvish.:type.'sym
29920 62 6f 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6c 69 bol)..(defcustom.dirvish-mode-li
29940 6e 65 2d 68 65 69 67 68 74 20 33 30 0a 20 20 22 48 65 69 67 68 74 20 6f 66 20 44 69 72 76 69 73 ne-height.30..."Height.of.Dirvis
29960 68 27 73 20 6d 6f 64 65 20 6c 69 6e 65 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 h's.mode.line..The.value.should.
29980 62 65 20 61 20 63 6f 6e 73 20 63 65 6c 6c 20 28 48 2d 57 49 4e 20 2e 20 48 2d 46 52 41 4d 45 29 be.a.cons.cell.(H-WIN...H-FRAME)
299a0 2c 20 77 68 65 72 65 20 48 2d 57 49 4e 0a 61 6e 64 20 48 2d 46 52 41 4d 45 20 72 65 70 72 65 73 ,.where.H-WIN.and.H-FRAME.repres
299c0 65 6e 74 20 74 68 65 20 68 65 69 67 68 74 20 6f 66 20 6d 6f 64 65 20 6c 69 6e 65 20 69 6e 20 73 ent.the.height.of.mode.line.in.s
299e0 69 6e 67 6c 65 20 77 69 6e 64 6f 77 0a 73 74 61 74 65 20 61 6e 64 20 66 75 6c 6c 66 72 61 6d 65 ingle.window.state.and.fullframe
29a00 20 73 74 61 74 65 20 72 65 73 70 65 63 74 69 76 65 6c 79 2e 20 20 49 66 20 74 68 69 73 20 76 61 .state.respectively...If.this.va
29a20 6c 75 65 20 69 73 20 61 0a 69 6e 74 65 67 65 72 20 49 4e 54 2c 20 69 74 20 69 73 20 73 65 65 6e lue.is.a.integer.INT,.it.is.seen
29a40 20 61 73 20 61 20 73 68 6f 72 74 68 61 6e 64 20 66 6f 72 20 28 49 4e 54 20 2e 20 49 4e 54 29 2e .as.a.shorthand.for.(INT...INT).
29a60 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 68 "...:group.'dirvish...:type.'(ch
29a80 6f 69 63 65 20 69 6e 74 65 72 67 65 72 20 28 63 6f 6e 73 20 69 6e 74 65 67 65 72 20 69 6e 74 65 oice.interger.(cons.integer.inte
29aa0 67 65 72 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 68 65 61 64 65 ger)))..(defcustom.dirvish-heade
29ac0 72 2d 6c 69 6e 65 2d 68 65 69 67 68 74 20 33 30 0a 20 20 22 4c 69 6b 65 20 60 64 69 72 76 69 73 r-line-height.30..."Like.`dirvis
29ae0 68 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 68 65 69 67 68 74 27 2c 20 62 75 74 20 66 6f 72 20 68 65 61 h-mode-line-height',.but.for.hea
29b00 64 65 72 20 6c 69 6e 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 69 6e 74 65 der.line."...:type.'(choice.inte
29b20 72 67 65 72 20 28 63 6f 6e 73 20 69 6e 74 65 67 65 72 20 69 6e 74 65 67 65 72 29 29 29 0a 0a 28 rger.(cons.integer.integer)))..(
29b40 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d defcustom.dirvish-mode-line-form
29b60 61 74 0a 20 20 27 28 3a 6c 65 66 74 20 28 73 6f 72 74 20 6f 6d 69 74 20 73 79 6d 6c 69 6e 6b 29 at...'(:left.(sort.omit.symlink)
29b80 20 3a 72 69 67 68 74 20 28 69 6e 64 65 78 29 29 0a 20 20 22 4d 6f 64 65 20 6c 69 6e 65 20 53 45 .:right.(index))..."Mode.line.SE
29ba0 47 4d 45 4e 54 73 20 61 6c 69 67 6e 65 64 20 74 6f 20 6c 65 66 74 2f 72 69 67 68 74 20 72 65 73 GMENTs.aligned.to.left/right.res
29bc0 70 65 63 74 69 76 65 6c 79 2e 0a 48 65 72 65 20 61 72 65 20 61 6c 6c 20 74 68 65 20 70 72 65 64 pectively..Here.are.all.the.pred
29be0 65 66 69 6e 65 64 20 73 65 67 6d 65 6e 74 73 20 79 6f 75 20 63 61 6e 20 63 68 6f 6f 73 65 20 66 efined.segments.you.can.choose.f
29c00 72 6f 6d 3a 0a 0a 2a 20 42 61 73 69 63 73 20 28 66 72 6f 6d 20 60 64 69 72 76 69 73 68 2d 65 78 rom:..*.Basics.(from.`dirvish-ex
29c20 74 72 61 73 27 29 0a 60 70 61 74 68 27 3a 20 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 20 75 6e tras').`path':.directory.path.un
29c40 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 2e 0a 60 73 79 6d 6c 69 6e 6b 27 3a 20 74 61 72 67 65 der.the.cursor..`symlink':.targe
29c60 74 20 6f 66 20 73 79 6d 6c 69 6e 6b 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 2e 0a 60 t.of.symlink.under.the.cursor..`
29c80 73 6f 72 74 27 3a 20 73 6f 72 74 20 63 72 69 74 65 72 69 61 20 61 70 70 6c 69 65 64 20 69 6e 20 sort':.sort.criteria.applied.in.
29ca0 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 0a 60 6f 6d 69 74 27 3a 20 61 20 60 64 69 72 65 64 current.buffer..`omit':.a.`dired
29cc0 2d 6f 6d 69 74 2d 6d 6f 64 65 27 20 69 6e 64 69 63 61 74 6f 72 2e 0a 60 69 6e 64 65 78 27 3a 20 -omit-mode'.indicator..`index':.
29ce0 6c 69 6e 65 20 6e 75 6d 62 65 72 20 2f 20 74 6f 74 61 6c 20 6c 69 6e 65 20 63 6f 75 6e 74 2e 0a line.number./.total.line.count..
29d00 60 66 72 65 65 2d 73 70 61 63 65 27 3a 20 61 6d 6f 75 6e 74 20 6f 66 20 66 72 65 65 20 73 70 61 `free-space':.amount.of.free.spa
29d20 63 65 20 6f 6e 20 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 27 73 20 66 69 6c 65 ce.on.`default-directory''s.file
29d40 20 73 79 73 74 65 6d 2e 0a 4f 74 68 65 72 73 20 61 72 65 20 73 65 6c 66 2d 65 78 70 6c 61 6e 61 .system..Others.are.self-explana
29d60 74 6f 72 79 3a 0a 60 66 69 6c 65 2d 73 69 7a 65 27 2c 20 60 66 69 6c 65 2d 6d 6f 64 65 73 27 2c tory:.`file-size',.`file-modes',
29d80 20 60 66 69 6c 65 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 27 2c 20 60 66 69 6c 65 2d 75 73 65 72 27 .`file-link-number',.`file-user'
29da0 2c 0a 60 66 69 6c 65 2d 67 72 6f 75 70 27 2c 60 66 69 6c 65 2d 74 69 6d 65 27 2c 60 66 69 6c 65 ,.`file-group',`file-time',`file
29dc0 2d 69 6e 6f 64 65 2d 6e 75 6d 62 65 72 27 2c 60 66 69 6c 65 2d 64 65 76 69 63 65 2d 6e 75 6d 62 -inode-number',`file-device-numb
29de0 65 72 27 2e 0a 0a 2a 20 4d 69 73 63 73 0a 60 76 63 2d 69 6e 66 6f 27 3a 20 76 65 72 73 69 6f 6e er'...*.Miscs.`vc-info':.version
29e00 20 63 6f 6e 74 72 6f 6c 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 28 66 72 6f 6d 20 60 64 69 72 76 .control.information.(from.`dirv
29e20 69 73 68 2d 76 63 27 29 2e 0a 60 79 61 6e 6b 27 3a 20 66 69 6c 65 20 74 72 61 6e 73 66 65 72 20 ish-vc')..`yank':.file.transfer.
29e40 70 72 6f 67 72 65 73 73 20 28 66 72 6f 6d 20 60 64 69 72 76 69 73 68 2d 79 61 6e 6b 27 29 2e 0a progress.(from.`dirvish-yank')..
29e60 0a 53 65 74 20 69 74 20 74 6f 20 6e 69 6c 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c .Set.it.to.nil.to.use.the.defaul
29e80 74 20 60 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 t.`mode-line-format'."...:group.
29ea0 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 70 6c 69 73 74 29 0a 0a 28 64 65 66 63 75 73 74 'dirvish.:type.'plist)..(defcust
29ec0 6f 6d 20 64 69 72 76 69 73 68 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 0a 20 20 om.dirvish-header-line-format...
29ee0 27 28 3a 6c 65 66 74 20 28 70 61 74 68 29 20 3a 72 69 67 68 74 20 28 29 29 0a 20 20 22 4c 69 6b '(:left.(path).:right.())..."Lik
29f00 65 20 60 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 27 2c 20 62 75 e.`dirvish-mode-line-format',.bu
29f20 74 20 66 6f 72 20 68 65 61 64 65 72 20 6c 69 6e 65 20 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 t.for.header.line.."...:group.'d
29f40 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 70 6c 69 73 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d irvish.:type.'plist)..(defcustom
29f60 20 64 69 72 76 69 73 68 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 20 74 0a 20 20 22 57 68 65 74 68 .dirvish-hide-details.t..."Wheth
29f80 65 72 20 74 6f 20 68 69 64 65 20 64 65 74 61 69 6c 65 64 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 er.to.hide.detailed.information.
29fa0 6f 6e 20 73 65 73 73 69 6f 6e 20 73 74 61 72 74 75 70 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 on.session.startup."...:group.'d
29fc0 69 72 76 69 73 68 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 irvish.:type.'boolean)..(defcust
29fe0 6f 6d 20 64 69 72 76 69 73 68 2d 68 69 64 65 2d 63 75 72 73 6f 72 20 74 0a 20 20 22 57 68 65 74 om.dirvish-hide-cursor.t..."Whet
2a000 68 65 72 20 74 6f 20 68 69 64 65 20 63 75 72 73 6f 72 20 69 6e 20 64 69 72 76 69 73 68 20 62 75 her.to.hide.cursor.in.dirvish.bu
2a020 66 66 65 72 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 ffers."...:group.'dirvish.:type.
2a040 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 65 6d 61 'boolean)..(defconst.dirvish-ema
2a060 63 73 2d 62 69 6e 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 61 6e 64 20 69 6e 76 6f 63 61 74 69 cs-bin...(cond....((and.invocati
2a080 6f 6e 2d 64 69 72 65 63 74 6f 72 79 20 69 6e 76 6f 63 61 74 69 6f 6e 2d 6e 61 6d 65 29 0a 20 20 on-directory.invocation-name)...
2a0a0 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 74 20 28 66 69 6c ..(expand-file-name.(concat.(fil
2a0c0 65 2d 6e 61 6d 65 2d 61 73 2d 64 69 72 65 63 74 6f 72 79 20 69 6e 76 6f 63 61 74 69 6f 6e 2d 64 e-name-as-directory.invocation-d
2a0e0 69 72 65 63 74 6f 72 79 29 20 69 6e 76 6f 63 61 74 69 6f 6e 2d 6e 61 6d 65 29 29 29 0a 20 20 20 irectory).invocation-name)))....
2a100 28 28 65 71 20 73 79 73 74 65 6d 2d 74 79 70 65 20 27 64 61 72 77 69 6e 29 0a 20 20 20 20 22 2f ((eq.system-type.'darwin)....."/
2a120 41 70 70 6c 69 63 61 74 69 6f 6e 73 2f 45 6d 61 63 73 2e 61 70 70 2f 43 6f 6e 74 65 6e 74 73 2f Applications/Emacs.app/Contents/
2a140 4d 61 63 4f 53 2f 45 6d 61 63 73 22 29 0a 20 20 20 28 74 20 22 65 6d 61 63 73 22 29 29 29 0a 28 MacOS/Emacs")....(t."emacs"))).(
2a160 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 69 6d 61 67 65 2d 65 78 74 73 20 27 28 22 77 defconst.dirvish-image-exts.'("w
2a180 65 62 70 22 20 22 77 6d 66 22 20 22 70 63 78 22 20 22 78 69 66 22 20 22 77 62 6d 70 22 20 22 76 ebp"."wmf"."pcx"."xif"."wbmp"."v
2a1a0 74 66 22 20 22 74 61 70 22 20 22 73 31 6a 22 20 22 73 6a 70 22 20 22 73 6a 70 67 22 20 22 73 31 tf"."tap"."s1j"."sjp"."sjpg"."s1
2a1c0 67 22 20 22 73 67 69 22 20 22 73 67 69 66 22 20 22 73 31 6e 22 20 22 73 70 6e 22 20 22 73 70 6e g"."sgi"."sgif"."s1n"."spn"."spn
2a1e0 67 22 20 22 78 79 7a 65 22 20 22 72 67 62 65 22 20 22 68 64 72 22 20 22 62 31 36 22 20 22 6d 64 g"."xyze"."rgbe"."hdr"."b16"."md
2a200 69 22 20 22 61 70 6e 67 22 20 22 69 63 6f 22 20 22 70 67 62 22 20 22 72 6c 63 22 20 22 6d 6d 72 i"."apng"."ico"."pgb"."rlc"."mmr
2a220 22 20 22 66 73 74 22 20 22 66 70 78 22 20 22 66 62 73 22 20 22 64 78 66 22 20 22 64 77 67 22 20 "."fst"."fpx"."fbs"."dxf"."dwg".
2a240 22 64 6a 76 22 20 22 75 76 76 67 22 20 22 75 76 67 22 20 22 75 76 76 69 22 20 22 75 76 69 22 20 "djv"."uvvg"."uvg"."uvvi"."uvi".
2a260 22 61 7a 76 22 20 22 70 73 64 22 20 22 74 66 78 22 20 22 74 33 38 22 20 22 73 76 67 7a 22 20 22 "azv"."psd"."tfx"."t38"."svgz"."
2a280 73 76 67 22 20 22 70 74 69 22 20 22 62 74 66 22 20 22 62 74 69 66 22 20 22 6b 74 78 32 22 20 22 svg"."pti"."btf"."btif"."ktx2"."
2a2a0 6b 74 78 22 20 22 6a 78 73 73 22 20 22 6a 78 73 69 22 20 22 6a 78 73 63 22 20 22 6a 78 73 22 20 ktx"."jxss"."jxsi"."jxsc"."jxs".
2a2c0 22 6a 78 72 73 22 20 22 6a 78 72 61 22 20 22 6a 78 72 22 20 22 6a 78 6c 22 20 22 6a 70 66 22 20 "jxrs"."jxra"."jxr"."jxl"."jpf".
2a2e0 22 6a 70 78 22 20 22 6a 70 67 6d 22 20 22 6a 70 6d 22 20 22 6a 66 69 66 22 20 22 6a 68 63 22 20 "jpx"."jpgm"."jpm"."jfif"."jhc".
2a300 22 6a 70 68 22 20 22 6a 70 67 32 22 20 22 6a 70 32 22 20 22 6a 6c 73 22 20 22 68 73 6a 32 22 20 "jph"."jpg2"."jp2"."jls"."hsj2".
2a320 22 68 65 6a 32 22 20 22 68 65 69 66 73 22 20 22 68 65 69 66 22 20 22 68 65 69 63 73 22 20 22 68 "hej2"."heifs"."heif"."heics"."h
2a340 65 69 63 22 20 22 66 74 73 22 20 22 66 69 74 22 20 22 66 69 74 73 22 20 22 65 6d 66 22 20 22 64 eic"."fts"."fit"."fits"."emf"."d
2a360 72 6c 65 22 20 22 63 67 6d 22 20 22 64 69 62 22 20 22 62 6d 70 22 20 22 68 69 66 22 20 22 61 76 rle"."cgm"."dib"."bmp"."hif"."av
2a380 69 66 22 20 22 61 76 63 73 22 20 22 61 76 63 69 22 20 22 65 78 72 22 20 22 66 61 78 22 20 22 69 if"."avcs"."avci"."exr"."fax"."i
2a3a0 63 6f 6e 22 20 22 69 65 66 22 20 22 6a 70 67 22 20 22 6d 61 63 70 22 20 22 70 62 6d 22 20 22 70 con"."ief"."jpg"."macp"."pbm"."p
2a3c0 67 6d 22 20 22 70 69 63 74 22 20 22 70 6e 67 22 20 22 70 6e 6d 22 20 22 70 70 6d 22 20 22 72 61 gm"."pict"."png"."pnm"."ppm"."ra
2a3e0 73 22 20 22 72 67 62 22 20 22 74 67 61 22 20 22 74 69 66 22 20 22 74 69 66 66 22 20 22 78 62 6d s"."rgb"."tga"."tif"."tiff"."xbm
2a400 22 20 22 78 70 6d 22 20 22 78 77 64 22 20 22 6a 70 65 22 20 22 6a 70 65 67 22 20 22 63 72 32 22 "."xpm"."xwd"."jpe"."jpeg"."cr2"
2a420 20 22 61 72 77 22 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 68 2d 61 75 64 69 6f ."arw")).(defconst.dirvish-audio
2a440 2d 65 78 74 73 20 27 28 22 61 70 65 22 20 22 73 74 6d 22 20 22 73 33 6d 22 20 22 72 61 22 20 22 -exts.'("ape"."stm"."s3m"."ra"."
2a460 72 6d 22 20 22 72 61 6d 22 20 22 77 6d 61 22 20 22 77 61 78 22 20 22 6d 33 75 22 20 22 6d 65 64 rm"."ram"."wma"."wax"."m3u"."med
2a480 22 20 22 36 36 39 22 20 22 6d 74 6d 22 20 22 6d 31 35 22 20 22 75 6e 69 22 20 22 75 6c 74 22 20 "."669"."mtm"."m15"."uni"."ult".
2a4a0 22 6d 6b 61 22 20 22 66 6c 61 63 22 20 22 61 78 61 22 20 22 6b 61 72 22 20 22 6d 69 64 69 22 20 "mka"."flac"."axa"."kar"."midi".
2a4c0 22 6d 69 64 22 20 22 73 31 6d 22 20 22 73 6d 70 22 20 22 73 6d 70 33 22 20 22 72 69 70 22 20 22 "mid"."s1m"."smp"."smp3"."rip"."
2a4e0 6d 75 6c 74 69 74 72 61 63 6b 22 20 22 65 63 65 6c 70 39 36 30 30 22 20 22 65 63 65 6c 70 37 34 multitrack"."ecelp9600"."ecelp74
2a500 37 30 22 20 22 65 63 65 6c 70 34 38 30 30 22 20 22 76 62 6b 22 20 22 70 79 61 22 20 22 6c 76 70 70"."ecelp4800"."vbk"."pya"."lvp
2a520 22 20 22 70 6c 6a 22 20 22 64 74 73 68 64 22 20 22 64 74 73 22 20 22 6d 6c 70 22 20 22 65 6f 6c "."plj"."dtshd"."dts"."mlp"."eol
2a540 22 20 22 75 76 76 61 22 20 22 75 76 61 22 20 22 6b 6f 7a 22 20 22 78 68 65 22 20 22 6c 6f 61 73 "."uvva"."uva"."koz"."xhe"."loas
2a560 22 20 22 73 6f 66 61 22 20 22 73 6d 76 22 20 22 71 63 70 22 20 22 70 73 69 64 22 20 22 73 69 64 "."sofa"."smv"."qcp"."psid"."sid
2a580 22 20 22 73 70 78 22 20 22 6f 70 75 73 22 20 22 6f 67 67 22 20 22 6f 67 61 22 20 22 6d 70 31 22 "."spx"."opus"."ogg"."oga"."mp1"
2a5a0 20 22 6d 70 67 61 22 20 22 6d 34 61 22 20 22 6d 78 6d 66 22 20 22 6d 68 61 73 22 20 22 6c 31 36 ."mpga"."m4a"."mxmf"."mhas"."l16
2a5c0 22 20 22 6c 62 63 22 20 22 65 76 77 22 20 22 65 6e 77 22 20 22 65 76 62 22 20 22 65 76 63 22 20 "."lbc"."evw"."enw"."evb"."evc".
2a5e0 22 64 6c 73 22 20 22 6f 6d 67 22 20 22 61 61 33 22 20 22 61 74 33 22 20 22 61 74 78 22 20 22 61 "dls"."omg"."aa3"."at3"."atx"."a
2a600 61 6c 22 20 22 61 63 6e 22 20 22 61 77 62 22 20 22 61 6d 72 22 20 22 61 63 33 22 20 22 61 73 73 al"."acn"."awb"."amr"."ac3"."ass
2a620 22 20 22 61 61 63 22 20 22 61 64 74 73 22 20 22 37 32 36 22 20 22 61 62 73 22 20 22 61 69 66 22 "."aac"."adts"."726"."abs"."aif"
2a640 20 22 61 69 66 63 22 20 22 61 69 66 66 22 20 22 61 75 22 20 22 6d 70 32 22 20 22 6d 70 33 22 20 ."aifc"."aiff"."au"."mp2"."mp3".
2a660 22 6d 70 32 61 22 20 22 6d 70 61 22 20 22 6d 70 61 32 22 20 22 6d 70 65 67 61 22 20 22 73 6e 64 "mp2a"."mpa"."mpa2"."mpega"."snd
2a680 22 20 22 76 6f 78 22 20 22 77 61 76 22 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 69 73 "."vox"."wav")).(defconst.dirvis
2a6a0 68 2d 76 69 64 65 6f 2d 65 78 74 73 20 27 28 22 66 34 76 22 20 22 72 6d 76 62 22 20 22 77 76 78 h-video-exts.'("f4v"."rmvb"."wvx
2a6c0 22 20 22 77 6d 78 22 20 22 77 6d 76 22 20 22 77 6d 22 20 22 61 73 78 22 20 22 6d 6b 33 64 22 20 "."wmx"."wmv"."wm"."asx"."mk3d".
2a6e0 22 6d 6b 76 22 20 22 66 78 6d 22 20 22 66 6c 76 22 20 22 61 78 76 22 20 22 77 65 62 6d 22 20 22 "mkv"."fxm"."flv"."axv"."webm"."
2a700 76 69 76 22 20 22 79 74 22 20 22 73 31 71 22 20 22 73 6d 6f 22 20 22 73 6d 6f 76 22 20 22 73 73 viv"."yt"."s1q"."smo"."smov"."ss
2a720 77 22 20 22 73 73 77 66 22 20 22 73 31 34 22 20 22 73 31 31 22 20 22 73 6d 70 67 22 20 22 73 6d w"."sswf"."s14"."s11"."smpg"."sm
2a740 6b 22 20 22 62 6b 32 22 20 22 62 69 6b 22 20 22 6e 69 6d 22 20 22 70 79 76 22 20 22 6d 34 75 22 k"."bk2"."bik"."nim"."pyv"."m4u"
2a760 20 22 6d 78 75 22 20 22 66 76 74 22 20 22 64 76 62 22 20 22 75 76 76 76 22 20 22 75 76 76 22 20 ."mxu"."fvt"."dvb"."uvvv"."uvv".
2a780 22 75 76 76 73 22 20 22 75 76 73 22 20 22 75 76 76 70 22 20 22 75 76 70 22 20 22 75 76 76 75 22 "uvvs"."uvs"."uvvp"."uvp"."uvvu"
2a7a0 20 22 75 76 75 22 20 22 75 76 76 6d 22 20 22 75 76 6d 22 20 22 75 76 76 68 22 20 22 75 76 68 22 ."uvu"."uvvm"."uvm"."uvvh"."uvh"
2a7c0 20 22 6f 67 76 22 20 22 6d 32 76 22 20 22 6d 31 76 22 20 22 6d 34 76 22 20 22 6d 70 67 34 22 20 ."ogv"."m2v"."m1v"."m4v"."mpg4".
2a7e0 22 6d 70 34 22 20 22 6d 6a 70 32 22 20 22 6d 6a 32 22 20 22 6d 34 73 22 20 22 33 67 70 70 32 22 "mp4"."mjp2"."mj2"."m4s"."3gpp2"
2a800 20 22 33 67 32 22 20 22 33 67 70 70 22 20 22 33 67 70 22 20 22 61 76 69 22 20 22 6d 6f 76 22 20 ."3g2"."3gpp"."3gp"."avi"."mov".
2a820 22 6d 6f 76 69 65 22 20 22 6d 70 65 22 20 22 6d 70 65 67 22 20 22 6d 70 65 67 76 22 20 22 6d 70 "movie"."mpe"."mpeg"."mpegv"."mp
2a840 67 22 20 22 6d 70 76 22 20 22 71 74 22 20 22 76 62 73 22 29 29 0a 28 64 65 66 63 6f 6e 73 74 20 g"."mpv"."qt"."vbs")).(defconst.
2a860 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 65 78 74 73 20 28 61 70 70 65 6e 64 20 64 69 72 76 69 dirvish-media-exts.(append.dirvi
2a880 73 68 2d 69 6d 61 67 65 2d 65 78 74 73 20 64 69 72 76 69 73 68 2d 76 69 64 65 6f 2d 65 78 74 73 sh-image-exts.dirvish-video-exts
2a8a0 20 64 69 72 76 69 73 68 2d 61 75 64 69 6f 2d 65 78 74 73 20 27 28 22 70 64 66 22 20 22 65 70 75 .dirvish-audio-exts.'("pdf"."epu
2a8c0 62 22 20 22 67 69 66 22 29 29 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6f b"."gif"))).(defcustom.dirvish-o
2a8e0 70 65 6e 2d 77 69 74 68 2d 70 72 6f 67 72 61 6d 73 0a 20 20 28 6c 65 74 20 28 28 6d 70 76 20 28 pen-with-programs...(let.((mpv.(
2a900 6f 72 20 28 65 78 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 22 6d 70 76 22 29 20 22 6d 70 76 22 or.(executable-find."mpv")."mpv"
2a920 29 29 29 0a 20 20 20 20 60 28 28 2c 64 69 72 76 69 73 68 2d 61 75 64 69 6f 2d 65 78 74 73 20 2e ))).....`((,dirvish-audio-exts..
2a940 20 28 2c 6d 70 76 20 22 2d 2d 70 72 6f 66 69 6c 65 3d 62 75 69 6c 74 69 6e 2d 70 73 65 75 64 6f .(,mpv."--profile=builtin-pseudo
2a960 2d 67 75 69 22 20 22 25 66 22 29 29 0a 20 20 20 20 20 20 28 2c 64 69 72 76 69 73 68 2d 76 69 64 -gui"."%f")).......(,dirvish-vid
2a980 65 6f 2d 65 78 74 73 20 2e 20 28 2c 6d 70 76 20 22 25 66 22 29 29 29 29 0a 20 20 22 4f 70 65 6e eo-exts...(,mpv."%f"))))..."Open
2a9a0 20 63 65 72 74 61 69 6e 20 66 69 6c 65 20 74 79 70 65 73 20 75 73 69 6e 67 20 65 78 74 65 72 6e .certain.file.types.using.extern
2a9c0 61 6c 20 70 72 6f 67 72 61 6d 73 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 al.programs..The.value.should.be
2a9e0 20 61 6e 20 61 73 73 6f 63 69 61 74 69 6f 6e 20 6c 69 73 74 20 77 68 65 72 65 20 65 61 63 68 20 .an.association.list.where.each.
2aa00 65 6c 65 6d 65 6e 74 20 69 73 20 6f 66 0a 74 68 65 20 66 6f 72 6d 20 28 45 58 54 53 20 2e 20 28 element.is.of.the.form.(EXTS...(
2aa20 43 4d 44 20 2e 20 41 52 47 53 29 29 2e 20 20 45 58 54 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 CMD...ARGS))...EXTS.is.a.list.of
2aa40 20 66 69 6c 65 20 6e 61 6d 65 0a 65 78 74 65 6e 73 69 6f 6e 73 2e 20 20 57 68 65 6e 20 6f 70 65 .file.name.extensions...When.ope
2aa60 6e 69 6e 67 20 61 20 66 69 6c 65 20 77 68 6f 73 65 20 66 69 6c 65 6e 61 6d 65 20 65 6e 64 73 20 ning.a.file.whose.filename.ends.
2aa80 77 69 74 68 20 6f 6e 65 20 6f 66 0a 74 68 65 20 45 58 54 53 20 75 73 69 6e 67 20 60 64 69 72 65 with.one.of.the.EXTS.using.`dire
2aaa0 64 2d 66 69 6e 64 2d 66 69 6c 65 27 2c 20 61 20 73 75 62 70 72 6f 63 65 73 73 20 61 63 63 6f 72 d-find-file',.a.subprocess.accor
2aac0 64 69 6e 67 20 74 6f 20 43 4d 44 0a 61 6e 64 20 69 74 73 20 41 52 47 53 20 69 73 20 69 73 73 75 ding.to.CMD.and.its.ARGS.is.issu
2aae0 65 64 20 74 6f 20 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 65 78 74 65 72 6e 61 6c 6c 79 2e 20 ed.to.open.the.file.externally..
2ab00 20 54 68 65 20 73 70 65 63 69 61 6c 0a 70 6c 61 63 65 68 6f 6c 64 65 72 20 5c 22 25 66 5c 22 20 .The.special.placeholder.\"%f\".
2ab20 69 6e 20 74 68 65 20 41 52 47 53 20 69 73 20 72 65 70 6c 61 63 65 64 20 62 79 20 74 68 65 20 46 in.the.ARGS.is.replaced.by.the.F
2ab40 49 4c 45 4e 41 4d 45 20 61 74 0a 72 75 6e 74 69 6d 65 2e 20 20 53 65 74 20 69 74 20 74 6f 20 6e ILENAME.at.runtime...Set.it.to.n
2ab60 69 6c 20 64 69 73 61 62 6c 65 73 20 74 68 69 73 20 66 65 61 74 75 72 65 2e 22 0a 20 20 3a 67 72 il.disables.this.feature."...:gr
2ab80 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 61 6c 69 73 74 20 3a 6b 65 oup.'dirvish...:type.'(alist.:ke
2aba0 79 2d 74 79 70 65 20 28 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 20 3a 74 61 67 20 22 46 69 y-type.((repeat.string).:tag."Fi
2abc0 6c 65 20 65 78 74 65 6e 73 69 6f 6e 73 22 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 le.extensions").................
2abe0 3a 76 61 6c 75 65 2d 74 79 70 65 20 28 28 72 65 70 65 61 74 20 73 74 72 69 6e 67 29 20 3a 74 61 :value-type.((repeat.string).:ta
2ac00 67 20 22 45 78 74 65 72 6e 61 6c 20 63 6f 6d 6d 61 6e 64 20 61 6e 64 20 61 72 67 73 22 29 29 29 g."External.command.and.args")))
2ac20 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 72 65 75 73 65 2d 73 65 73 73 69 ..(defcustom.dirvish-reuse-sessi
2ac40 6f 6e 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 72 65 75 73 65 20 74 68 65 20 68 69 64 on.t..."Whether.to.reuse.the.hid
2ac60 64 65 6e 20 73 65 73 73 69 6f 6e 73 2e 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 44 69 72 76 69 73 den.sessions..If.non-nil,.Dirvis
2ac80 68 20 6b 65 65 70 73 20 74 68 65 20 73 65 73 73 69 6f 6e 27 73 20 6c 61 73 74 20 62 75 66 66 65 h.keeps.the.session's.last.buffe
2aca0 72 20 61 6c 69 76 65 20 6f 6e 0a 65 78 69 74 2e 20 20 54 68 65 20 68 69 64 64 65 6e 20 73 65 73 r.alive.on.exit...The.hidden.ses
2acc0 73 69 6f 6e 20 63 61 6e 20 62 65 20 72 65 75 73 65 64 20 69 6e 20 74 68 65 20 66 75 74 75 72 65 sion.can.be.reused.in.the.future
2ace0 20 62 79 20 63 6f 6d 6d 61 6e 64 0a 60 64 69 72 76 69 73 68 27 20 61 6e 64 20 66 72 69 65 6e 64 .by.command.`dirvish'.and.friend
2ad00 73 2e 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 5c 5c 3d 27 72 65 73 75 6d 65 2c 20 s...If.the.value.is.\\='resume,.
2ad20 64 69 72 76 69 73 68 0a 65 78 68 69 62 69 74 73 20 74 68 65 20 6c 61 73 74 20 65 6e 74 72 79 20 dirvish.exhibits.the.last.entry.
2ad40 6f 66 20 74 68 65 20 68 69 64 64 65 6e 20 73 65 73 73 69 6f 6e 20 75 6e 6c 65 73 73 20 74 68 65 of.the.hidden.session.unless.the
2ad60 20 50 41 54 48 0a 61 72 67 75 6d 65 6e 74 20 69 73 20 73 70 65 63 69 66 69 65 64 20 76 69 61 20 .PATH.argument.is.specified.via.
2ad80 70 72 6f 6d 70 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 prompt."...:group.'dirvish.:type
2ada0 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 44 6f 20 6e 6f 74 20 72 65 .'(choice.(const.:tag."Do.not.re
2adc0 75 73 65 20 74 68 65 20 73 65 73 73 69 6f 6e 2c 20 71 75 69 74 20 69 74 20 63 6f 6d 70 6c 65 74 use.the.session,.quit.it.complet
2ade0 65 6c 79 22 20 6e 69 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 ely".nil).......................
2ae00 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 52 65 75 73 65 20 74 68 ...........(const.:tag."Reuse.th
2ae20 65 20 73 65 73 73 69 6f 6e 20 61 6e 64 20 6f 70 65 6e 20 6e 65 77 20 70 61 74 68 20 77 68 65 6e e.session.and.open.new.path.when
2ae40 20 72 65 75 73 69 6e 67 22 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .reusing".t)....................
2ae60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 52 65 75 73 65 ..............(const.:tag."Reuse
2ae80 20 74 68 65 20 73 65 73 73 69 6f 6e 20 61 6e 64 20 72 65 73 75 6d 65 20 69 74 73 20 6c 61 73 74 .the.session.and.resume.its.last
2aea0 20 65 6e 74 72 79 20 77 68 65 6e 20 72 65 75 73 69 6e 67 22 20 72 65 73 75 6d 65 29 29 29 0a 0a .entry.when.reusing".resume)))..
2aec0 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 72 65 64 69 73 70 6c 61 79 2d 64 65 62 (defcustom.dirvish-redisplay-deb
2aee0 6f 75 6e 63 65 20 30 2e 30 32 0a 20 20 22 49 6e 70 75 74 20 64 65 62 6f 75 6e 63 65 20 66 6f 72 ounce.0.02..."Input.debounce.for
2af00 20 64 69 72 76 69 73 68 20 55 49 20 72 65 64 69 73 70 6c 61 79 2e 0a 54 68 65 20 55 49 20 6f 66 .dirvish.UI.redisplay..The.UI.of
2af20 20 64 69 72 76 69 73 68 20 69 73 20 72 65 66 72 65 73 68 65 64 20 6f 6e 6c 79 20 77 68 65 6e 20 .dirvish.is.refreshed.only.when.
2af40 74 68 65 72 65 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 6e 65 77 0a 69 6e 70 75 74 20 66 6f 72 there.has.not.been.new.input.for
2af60 20 60 64 69 72 76 69 73 68 2d 72 65 64 69 73 70 6c 61 79 2d 64 65 62 6f 75 6e 63 65 27 20 73 65 .`dirvish-redisplay-debounce'.se
2af80 63 6f 6e 64 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 conds."...:group.'dirvish.:type.
2afa0 27 66 6c 6f 61 74 29 0a 0a 28 63 6c 2d 64 65 66 67 65 6e 65 72 69 63 20 64 69 72 76 69 73 68 2d 'float)..(cl-defgeneric.dirvish-
2afc0 63 6c 65 61 6e 2d 63 61 63 68 65 20 28 29 20 22 43 6c 65 61 6e 20 63 61 63 68 65 20 66 6f 72 20 clean-cache.()."Clean.cache.for.
2afe0 73 65 6c 65 63 74 65 64 20 66 69 6c 65 73 2e 22 20 6e 69 6c 29 0a 28 63 6c 2d 64 65 66 67 65 6e selected.files.".nil).(cl-defgen
2b000 65 72 69 63 20 64 69 72 76 69 73 68 2d 62 75 69 6c 64 2d 63 61 63 68 65 20 28 29 20 22 42 75 69 eric.dirvish-build-cache.()."Bui
2b020 6c 64 20 63 61 63 68 65 20 66 6f 72 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 ld.cache.for.current.directory."
2b040 20 6e 69 6c 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 61 66 74 65 72 2d .nil)..(defcustom.dirvish-after-
2b060 72 65 76 65 72 74 2d 68 6f 6f 6b 20 27 28 64 69 72 76 69 73 68 2d 63 6c 65 61 6e 2d 63 61 63 68 revert-hook.'(dirvish-clean-cach
2b080 65 29 0a 20 20 22 45 78 65 63 75 74 65 64 20 61 66 74 65 72 20 60 72 65 76 65 72 74 2d 62 75 66 e)..."Executed.after.`revert-buf
2b0a0 66 65 72 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 fer'."...:group.'dirvish.:type.'
2b0c0 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d hook)..(defcustom.dirvish-setup-
2b0e0 68 6f 6f 6b 20 27 28 64 69 72 76 69 73 68 2d 62 75 69 6c 64 2d 63 61 63 68 65 29 0a 20 20 22 45 hook.'(dirvish-build-cache)..."E
2b100 78 65 63 75 74 65 64 20 61 66 74 65 72 20 74 68 65 20 44 69 72 65 64 20 62 75 66 66 65 72 20 69 xecuted.after.the.Dired.buffer.i
2b120 73 20 73 68 6f 77 65 64 20 75 70 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 s.showed.up."...:group.'dirvish.
2b140 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 :type.'hook)..(defcustom.dirvish
2b160 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 68 6f 6f 6b 20 27 28 64 69 72 76 69 73 68 2d 69 6e 73 65 72 -find-entry-hook.'(dirvish-inser
2b180 74 2d 65 6e 74 72 79 2d 68 29 0a 20 20 22 45 78 65 63 75 74 65 64 20 61 66 74 65 72 20 66 69 6e t-entry-h)..."Executed.after.fin
2b1a0 64 69 6e 67 20 61 20 65 6e 74 72 79 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 ding.a.entry."...:group.'dirvish
2b1c0 20 3a 74 79 70 65 20 27 68 6f 6f 6b 29 0a 0a 3b 3b 3b 3b 20 49 6e 74 65 72 6e 61 6c 20 76 61 72 .:type.'hook)..;;;;.Internal.var
2b1e0 69 61 62 6c 65 73 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 73 63 6f 70 65 73 20 27 iables..(defvar.dirvish-scopes.'
2b200 28 3a 66 72 61 6d 65 20 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 20 3a 74 61 62 20 74 61 62 2d (:frame.selected-frame.:tab.tab-
2b220 62 61 72 2d 2d 63 75 72 72 65 6e 74 2d 74 61 62 2d 69 6e 64 65 78 0a 20 20 20 20 20 20 20 20 20 bar--current-tab-index..........
2b240 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 65 72 73 70 20 67 65 .......................:persp.ge
2b260 74 2d 63 75 72 72 65 6e 74 2d 70 65 72 73 70 20 3a 70 65 72 73 70 65 63 74 69 76 65 20 70 65 72 t-current-persp.:perspective.per
2b280 73 70 2d 63 75 72 72 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 6c 69 62 72 61 72 sp-curr)).(defvar.dirvish-librar
2b2a0 69 65 73 0a 20 20 27 28 28 64 69 72 76 69 73 68 2d 77 69 64 67 65 74 73 20 20 70 61 74 68 20 73 ies...'((dirvish-widgets..path.s
2b2c0 79 6d 6c 69 6e 6b 20 73 6f 72 74 20 6f 6d 69 74 20 69 6e 64 65 78 20 66 72 65 65 2d 73 70 61 63 ymlink.sort.omit.index.free-spac
2b2e0 65 20 66 69 6c 65 2d 6c 69 6e 6b 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 e.file-link-number..............
2b300 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 75 73 65 72 20 66 69 6c 65 2d 67 72 6f 75 70 20 66 69 .........file-user.file-group.fi
2b320 6c 65 2d 74 69 6d 65 20 66 69 6c 65 2d 73 69 7a 65 20 66 69 6c 65 2d 6d 6f 64 65 73 0a 20 20 20 le-time.file-size.file-modes....
2b340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 69 6e 6f 64 65 2d 6e 75 ...................file-inode-nu
2b360 6d 62 65 72 20 66 69 6c 65 2d 64 65 76 69 63 65 2d 6e 75 6d 62 65 72 0a 20 20 20 20 20 20 20 20 mber.file-device-number.........
2b380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 75 64 69 6f 20 69 6d 61 67 65 20 67 69 66 20 76 69 ..............audio.image.gif.vi
2b3a0 64 65 6f 20 65 70 75 62 20 70 64 66 20 70 64 66 2d 70 72 65 66 61 63 65 20 61 72 63 68 69 76 65 deo.epub.pdf.pdf-preface.archive
2b3c0 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 76 63 20 20 20 20 20 20 20 76 63 2d 73 74 61 74 65 ).....(dirvish-vc.......vc-state
2b3e0 20 67 69 74 2d 6d 73 67 20 76 63 2d 64 69 66 66 20 76 63 2d 62 6c 61 6d 65 20 76 63 2d 6c 6f 67 .git-msg.vc-diff.vc-blame.vc-log
2b400 20 76 63 2d 69 6e 66 6f 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 69 63 6f 6e 73 20 20 20 20 .vc-info).....(dirvish-icons....
2b420 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 6e 65 72 64 2d 69 63 6f 6e 73 20 76 73 63 6f 64 65 2d all-the-icons.nerd-icons.vscode-
2b440 69 63 6f 6e 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 63 6f 6c 6c 61 70 73 65 20 63 6f 6c 6c icon).....(dirvish-collapse.coll
2b460 61 70 73 65 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 20 20 73 75 62 74 apse).....(dirvish-subtree..subt
2b480 72 65 65 2d 73 74 61 74 65 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 79 61 6e 6b 20 20 20 20 ree-state).....(dirvish-yank....
2b4a0 20 79 61 6e 6b 29 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6d 61 .yank))).(defvar.dirvish-mode-ma
2b4c0 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
2b4e0 61 70 29 29 29 0a 20 20 20 20 28 73 65 74 2d 6b 65 79 6d 61 70 2d 70 61 72 65 6e 74 20 6d 61 70 ap))).....(set-keymap-parent.map
2b500 20 64 69 72 65 64 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 .dired-mode-map).....(define-key
2b520 20 6d 61 70 20 28 6b 62 64 20 22 3f 22 29 20 27 64 69 72 76 69 73 68 2d 64 69 73 70 61 74 63 68 .map.(kbd."?").'dirvish-dispatch
2b540 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 71 22 29 20 ).....(define-key.map.(kbd."q").
2b560 27 64 69 72 76 69 73 68 2d 71 75 69 74 29 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 75 73 'dirvish-quit).map)..."Keymap.us
2b580 65 64 20 69 6e 20 64 69 72 76 69 73 68 20 62 75 66 66 65 72 73 2e 22 29 0a 28 64 65 66 76 61 72 ed.in.dirvish.buffers.").(defvar
2b5a0 20 64 69 72 76 69 73 68 2d 72 65 64 69 73 70 6c 61 79 2d 64 65 62 6f 75 6e 63 65 2d 74 69 6d 65 .dirvish-redisplay-debounce-time
2b5c0 72 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 79 20 r.nil).(defvar.dirvish--history.
2b5e0 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 72 65 73 65 74 2d 6b 65 79 77 nil).(defvar.dirvish--reset-keyw
2b600 6f 72 64 73 20 27 28 3a 66 72 65 65 2d 73 70 61 63 65 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 ords.'(:free-space.:content-begi
2b620 6e 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 73 65 6c 65 63 74 65 64 2d 77 69 n)).(defvar.dirvish--selected-wi
2b640 6e 64 6f 77 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d ndow.nil).(defvar.dirvish--mode-
2b660 6c 69 6e 65 2d 66 6d 74 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 68 line-fmt.nil).(defvar.dirvish--h
2b680 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 eader-line-fmt.nil).(defvar.dirv
2b6a0 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 ish--session-hash.(make-hash-tab
2b6c0 6c 65 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 70 61 72 65 6e 74 2d 68 61 73 le)).(defvar.dirvish--parent-has
2b6e0 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 74 20 23 27 65 71 75 61 6c h.(make-hash-table.:test.#'equal
2b700 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 6e 69 6c 29 0a 28 64 )).(defvar.dirvish--this.nil).(d
2b720 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 61 74 74 72 73 20 27 efvar.dirvish--available-attrs.'
2b740 28 29 29 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 2d 61 76 61 69 6c 61 62 6c 65 2d 70 ()).(defvar.dirvish--available-p
2b760 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 20 27 28 29 29 0a 28 64 65 66 76 61 72 20 review-dispatchers.'()).(defvar.
2b780 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 61 74 74 72 73 20 27 28 29 29 0a 28 64 65 66 dirvish--working-attrs.'()).(def
2b7a0 76 61 72 20 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 70 72 65 76 69 65 77 2d 64 69 73 var.dirvish--working-preview-dis
2b7c0 70 61 74 68 63 68 65 72 73 20 27 28 29 29 0a 28 64 65 66 76 61 72 20 69 6d 61 67 65 2d 64 69 72 pathchers.'()).(defvar.image-dir
2b7e0 65 64 2d 74 68 75 6d 62 6e 61 69 6c 2d 62 75 66 66 65 72 29 0a 28 64 65 66 76 61 72 2d 6c 6f 63 ed-thumbnail-buffer).(defvar-loc
2b800 61 6c 20 64 69 72 76 69 73 68 2d 2d 70 72 6f 70 73 20 27 28 29 29 0a 28 64 65 66 76 61 72 2d 6c al.dirvish--props.'()).(defvar-l
2b820 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 20 6e 69 6c 29 0a 0a 3b ocal.dirvish--attrs-hash.nil)..;
2b840 3b 3b 3b 20 4d 61 63 72 6f 73 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 76 69 73 68 2d 70 72 ;;;.Macros..(defmacro.dirvish-pr
2b860 6f 70 20 28 70 72 6f 70 20 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 52 65 74 72 69 76 65 20 op.(prop.&rest.body)..."Retrive.
2b880 50 52 4f 50 20 66 72 6f 6d 20 60 64 69 72 76 69 73 68 2d 2d 70 72 6f 70 73 27 2e 0a 53 65 74 20 PROP.from.`dirvish--props'..Set.
2b8a0 74 68 65 20 50 52 4f 50 20 77 69 74 68 20 42 4f 44 59 20 69 66 20 67 69 76 65 6e 2e 22 0a 20 20 the.PROP.with.BODY.if.given."...
2b8c0 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 29 0a 20 20 60 28 6c 65 74 (declare.(indent.defun))...`(let
2b8e0 2a 20 28 28 70 61 69 72 20 28 61 73 73 71 20 2c 70 72 6f 70 20 64 69 72 76 69 73 68 2d 2d 70 72 *.((pair.(assq.,prop.dirvish--pr
2b900 6f 70 73 29 29 20 28 76 61 6c 20 28 63 64 72 20 70 61 69 72 29 29 29 0a 20 20 20 20 20 2c 28 69 ops)).(val.(cdr.pair)))......,(i
2b920 66 20 62 6f 64 79 20 60 28 70 72 6f 67 31 20 28 73 65 74 71 20 76 61 6c 20 2c 40 62 6f 64 79 29 f.body.`(prog1.(setq.val.,@body)
2b940 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 70 61 69 72 20 28 73 65 74 ...................(if.pair.(set
2b960 63 64 72 20 28 61 73 73 71 20 2c 70 72 6f 70 20 64 69 72 76 69 73 68 2d 2d 70 72 6f 70 73 29 20 cdr.(assq.,prop.dirvish--props).
2b980 76 61 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 75 73 68 20 28 val).....................(push.(
2b9a0 63 6f 6e 73 20 2c 70 72 6f 70 20 76 61 6c 29 20 64 69 72 76 69 73 68 2d 2d 70 72 6f 70 73 29 29 cons.,prop.val).dirvish--props))
2b9c0 29 0a 20 20 20 20 20 20 20 20 60 76 61 6c 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 ).........`val)))..(defmacro.dir
2b9e0 76 69 73 68 2d 64 65 62 6f 75 6e 63 65 20 28 6c 61 62 65 6c 20 26 72 65 73 74 20 62 6f 64 79 29 vish-debounce.(label.&rest.body)
2ba00 0a 20 20 22 44 65 62 6f 75 6e 63 69 6e 67 20 74 68 65 20 65 78 65 63 75 74 69 6f 6e 20 6f 66 20 ..."Debouncing.the.execution.of.
2ba20 42 4f 44 59 20 75 6e 64 65 72 20 4c 41 42 45 4c 2e 0a 54 68 65 20 42 4f 44 59 20 72 75 6e 73 20 BODY.under.LABEL..The.BODY.runs.
2ba40 6f 6e 6c 79 20 77 68 65 6e 20 74 68 65 72 65 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 6e 65 77 only.when.there.has.not.been.new
2ba60 20 69 6e 70 75 74 20 66 6f 72 20 44 45 42 4f 55 4e 43 45 0a 73 65 63 6f 6e 64 73 2e 20 20 44 45 .input.for.DEBOUNCE.seconds...DE
2ba80 42 4f 55 4e 43 45 20 64 65 66 61 75 6c 74 73 20 74 6f 20 60 64 69 72 76 69 73 68 2d 72 65 64 69 BOUNCE.defaults.to.`dirvish-redi
2baa0 73 70 6c 61 79 2d 64 65 62 6f 75 6e 63 65 27 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e splay-debounce'."...(declare.(in
2bac0 64 65 6e 74 20 64 65 66 75 6e 29 29 0a 20 20 28 73 65 74 71 20 6c 61 62 65 6c 20 28 6f 72 20 6c dent.defun))...(setq.label.(or.l
2bae0 61 62 65 6c 20 22 72 65 64 69 73 70 6c 61 79 22 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 65 62 abel."redisplay"))...(let*.((deb
2bb00 6f 75 6e 63 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 ounce.(intern.(format."dirvish-%
2bb20 73 2d 64 65 62 6f 75 6e 63 65 22 20 6c 61 62 65 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 s-debounce".label)))..........(t
2bb40 69 6d 65 72 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 imer.(intern.(format."dirvish-%s
2bb60 2d 64 65 62 6f 75 6e 63 65 2d 74 69 6d 65 72 22 20 6c 61 62 65 6c 29 29 29 0a 20 20 20 20 20 20 -debounce-timer".label))).......
2bb80 20 20 20 28 66 6e 20 60 28 6c 61 6d 62 64 61 20 28 29 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 ...(fn.`(lambda.().(ignore-error
2bba0 73 20 2c 40 62 6f 64 79 29 29 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 s.,@body)))).....`(progn........
2bbc0 28 61 6e 64 20 28 74 69 6d 65 72 70 20 2c 74 69 6d 65 72 29 20 28 63 61 6e 63 65 6c 2d 74 69 6d (and.(timerp.,timer).(cancel-tim
2bbe0 65 72 20 2c 74 69 6d 65 72 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 2c 74 69 6d 65 72 20 er.,timer))........(setq.,timer.
2bc00 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 20 2c 64 65 62 6f 75 6e 63 65 20 6e (run-with-idle-timer.,debounce.n
2bc20 69 6c 20 2c 66 6e 29 29 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 76 69 73 68 2d 64 il.,fn)))))..(defmacro.dirvish-d
2bc40 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 28 6e 61 6d 65 20 64 6f 63 73 74 72 69 6e 67 20 efine-attribute.(name.docstring.
2bc60 26 72 65 73 74 20 62 6f 64 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 44 69 72 76 69 73 68 20 &rest.body)..."Define.a.Dirvish.
2bc80 61 74 74 72 69 62 75 74 65 20 4e 41 4d 45 2e 0a 41 6e 20 61 74 74 72 69 62 75 74 65 20 63 6f 6e attribute.NAME..An.attribute.con
2bca0 74 61 69 6e 73 20 61 20 70 61 69 72 20 6f 66 20 70 72 65 64 69 63 61 74 65 2f 72 65 6e 64 65 72 tains.a.pair.of.predicate/render
2bcc0 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 0a 74 68 61 74 20 61 72 65 20 62 65 69 6e 67 20 63 61 6c ing.functions.that.are.being.cal
2bce0 6c 65 64 20 6f 6e 20 60 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 27 2e 20 20 54 68 65 led.on.`post-command-hook'...The
2bd00 20 70 72 65 64 69 63 61 74 65 20 66 6e 0a 74 61 6b 65 73 20 63 75 72 72 65 6e 74 20 44 56 20 61 .predicate.fn.takes.current.DV.a
2bd20 73 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 20 69 73 20 65 78 65 63 75 74 65 64 20 6f 6e 63 65 2e s.argument.and.is.executed.once.
2bd40 20 20 57 68 65 6e 20 69 74 0a 65 76 61 6c 75 61 74 65 73 20 74 6f 20 74 2c 20 74 68 65 20 72 65 ..When.it.evaluates.to.t,.the.re
2bd60 6e 64 65 72 69 6e 67 20 66 6e 20 72 75 6e 73 20 42 4f 44 59 20 66 6f 72 20 65 76 65 72 79 20 6c ndering.fn.runs.BODY.for.every.l
2bd80 69 6e 65 20 77 69 74 68 0a 66 6f 6c 6c 6f 77 69 6e 67 20 61 72 67 75 6d 65 6e 74 73 3a 0a 0a 2d ine.with.following.arguments:..-
2bda0 20 60 66 2d 62 65 67 27 20 20 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 .`f-beg'...from.`dired-move-to-f
2bdc0 69 6c 65 6e 61 6d 65 27 0a 2d 20 60 66 2d 65 6e 64 27 20 20 20 66 72 6f 6d 20 60 64 69 72 65 64 ilename'.-.`f-end'...from.`dired
2bde0 2d 6d 6f 76 65 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 27 0a 2d 20 60 66 2d 73 -move-to-end-of-filename'.-.`f-s
2be00 74 72 27 20 20 20 66 72 6f 6d 20 28 60 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 27 20 46 tr'...from.(`buffer-substring'.F
2be20 2d 42 45 47 20 46 2d 45 4e 44 29 0a 2d 20 60 66 2d 6e 61 6d 65 27 20 20 66 72 6f 6d 20 60 64 69 -BEG.F-END).-.`f-name'..from.`di
2be40 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 27 0a 2d 20 60 66 2d 61 74 74 72 73 27 20 66 72 red-get-filename'.-.`f-attrs'.fr
2be60 6f 6d 20 60 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 27 0a 2d 20 60 66 2d 74 79 70 65 27 20 om.`file-attributes'.-.`f-type'.
2be80 20 66 72 6f 6d 20 60 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 27 20 61 6c 6f 6e 67 20 77 .from.`file-directory-p'.along.w
2bea0 69 74 68 20 60 66 69 6c 65 2d 73 79 6d 6c 69 6e 6b 2d 70 27 0a 2d 20 60 6c 2d 62 65 67 27 20 20 ith.`file-symlink-p'.-.`l-beg'..
2bec0 20 66 72 6f 6d 20 60 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 27 0a .from.`line-beginning-position'.
2bee0 2d 20 60 6c 2d 65 6e 64 27 20 20 20 66 72 6f 6d 20 60 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 -.`l-end'...from.`line-end-posit
2bf00 69 6f 6e 27 0a 2d 20 60 68 6c 2d 66 61 63 65 27 20 61 20 66 61 63 65 20 74 68 61 74 20 69 73 20 ion'.-.`hl-face'.a.face.that.is.
2bf20 6f 6e 6c 79 20 70 61 73 73 65 64 20 69 6e 20 6f 6e 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 0a 0a only.passed.in.on.current.line..
2bf40 44 4f 43 53 54 52 49 4e 47 20 69 73 20 74 68 65 20 64 6f 63 73 74 72 69 6e 67 20 66 6f 72 20 74 DOCSTRING.is.the.docstring.for.t
2bf60 68 65 20 61 74 74 72 69 62 75 74 65 2e 20 20 41 6e 20 6f 70 74 69 6f 6e 61 6c 0a 60 3a 77 69 64 he.attribute...An.optional.`:wid
2bf80 74 68 27 20 6b 65 79 77 6f 72 64 20 69 73 20 75 73 65 64 20 74 6f 20 64 65 63 6c 61 72 65 20 74 th'.keyword.is.used.to.declare.t
2bfa0 68 65 20 6c 65 6e 67 74 68 20 6f 66 20 74 68 65 20 61 74 74 72 69 62 75 74 65 2e 22 0a 20 20 28 he.length.of.the.attribute."...(
2bfc0 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 20 28 64 6f 63 2d 73 74 72 69 declare.(indent.defun).(doc-stri
2bfe0 6e 67 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 6f 76 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d ng.2))...(let.((ov.(intern.(form
2c000 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 6f 76 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 at."dirvish-%s-ov".name)))......
2c020 20 20 20 28 72 65 6e 64 65 72 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 ...(render.(intern.(format."dirv
2c040 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 25 73 2d 72 64 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 ish-attribute-%s-rd".name)))....
2c060 20 20 20 20 20 28 61 72 67 73 20 27 28 66 2d 62 65 67 20 66 2d 65 6e 64 20 66 2d 73 74 72 20 66 .....(args.'(f-beg.f-end.f-str.f
2c080 2d 6e 61 6d 65 20 66 2d 61 74 74 72 73 20 66 2d 74 79 70 65 20 6c 2d 62 65 67 20 6c 2d 65 6e 64 -name.f-attrs.f-type.l-beg.l-end
2c0a0 20 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 6f 70 74 69 6f 6e 73 29 0a 20 20 20 20 .hl-face)).........options).....
2c0c0 28 77 68 69 6c 65 20 28 6b 65 79 77 6f 72 64 70 20 28 63 61 72 20 62 6f 64 79 29 29 20 28 64 6f (while.(keywordp.(car.body)).(do
2c0e0 74 69 6d 65 73 20 28 5f 20 32 29 20 28 70 75 73 68 20 28 70 6f 70 20 62 6f 64 79 29 20 6f 70 74 times.(_.2).(push.(pop.body).opt
2c100 69 6f 6e 73 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 6f 70 74 69 6f 6e 73 20 28 72 65 76 65 72 ions))).....(setq.options.(rever
2c120 73 65 20 6f 70 74 69 6f 6e 73 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 se.options)).....`(progn........
2c140 28 61 64 64 2d 74 6f 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 27 64 69 72 76 69 73 68 2d 2d 61 (add-to-list.........'dirvish--a
2c160 76 61 69 6c 61 62 6c 65 2d 61 74 74 72 73 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 73 20 27 2c 6e vailable-attrs.........(cons.',n
2c180 61 6d 65 20 27 28 2c 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 6f 70 74 69 6f 6e 73 20 3a 69 ame.'(,(or.(plist-get.options.:i
2c1a0 6e 64 65 78 29 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 ndex).0)........................
2c1c0 2c 28 6f 72 20 28 70 6c 69 73 74 2d 67 65 74 20 6f 70 74 69 6f 6e 73 20 3a 77 69 64 74 68 29 20 ,(or.(plist-get.options.:width).
2c1e0 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 2c 28 6f 72 20 28 0)........................,(or.(
2c200 70 6c 69 73 74 2d 67 65 74 20 6f 70 74 69 6f 6e 73 20 3a 77 68 65 6e 29 20 74 29 0a 20 20 20 20 plist-get.options.:when).t).....
2c220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 72 65 6e 64 65 72 20 2c 6f 76 20 2c ...................,render.,ov.,
2c240 64 6f 63 73 74 72 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 28 64 65 66 75 6e 20 2c 72 65 6e 64 docstring)))........(defun.,rend
2c260 65 72 20 2c 61 72 67 73 20 28 69 67 6e 6f 72 65 20 2c 40 61 72 67 73 29 20 2c 40 62 6f 64 79 29 er.,args.(ignore.,@args).,@body)
2c280 29 29 29 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 )))..(defmacro.dirvish-attribute
2c2a0 2d 63 61 63 68 65 20 28 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 20 26 72 65 73 74 20 62 6f 64 -cache.(file.attribute.&rest.bod
2c2c0 79 29 0a 20 20 22 47 65 74 20 46 49 4c 45 27 73 20 41 54 54 52 49 42 55 54 45 20 66 72 6f 6d 20 y)..."Get.FILE's.ATTRIBUTE.from.
2c2e0 60 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 27 2e 0a 57 68 65 6e 20 74 68 65 20 `dirvish--attrs-hash'..When.the.
2c300 61 74 74 72 69 62 75 74 65 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 2c 20 73 65 74 20 69 74 attribute.does.not.exist,.set.it
2c320 20 77 69 74 68 20 42 4f 44 59 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 .with.BODY."...(declare.(indent.
2c340 64 65 66 75 6e 29 29 0a 20 20 60 28 6c 65 74 2a 20 28 28 6d 64 35 20 28 69 6e 74 65 72 6e 20 28 defun))...`(let*.((md5.(intern.(
2c360 73 65 63 75 72 65 2d 68 61 73 68 20 27 6d 64 35 20 2c 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 secure-hash.'md5.,file))).......
2c380 20 20 20 20 28 68 61 73 68 20 28 67 65 74 68 61 73 68 20 6d 64 35 20 64 69 72 76 69 73 68 2d 2d ....(hash.(gethash.md5.dirvish--
2c3a0 61 74 74 72 73 2d 68 61 73 68 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 61 63 68 65 64 20 28 attrs-hash))...........(cached.(
2c3c0 70 6c 69 73 74 2d 67 65 74 20 68 61 73 68 20 2c 61 74 74 72 69 62 75 74 65 29 29 0a 20 20 20 20 plist-get.hash.,attribute)).....
2c3e0 20 20 20 20 20 20 28 61 74 74 72 20 28 6f 72 20 63 61 63 68 65 64 20 2c 40 62 6f 64 79 29 29 29 ......(attr.(or.cached.,@body)))
2c400 0a 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 61 63 68 65 64 0a 20 20 20 20 20 20 20 28 70 75 74 ......(unless.cached........(put
2c420 68 61 73 68 20 6d 64 35 20 28 61 70 70 65 6e 64 20 68 61 73 68 20 28 6c 69 73 74 20 2c 61 74 74 hash.md5.(append.hash.(list.,att
2c440 72 69 62 75 74 65 20 61 74 74 72 29 29 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 ribute.attr)).dirvish--attrs-has
2c460 68 29 29 0a 20 20 20 20 20 61 74 74 72 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 61 63 72 6f 20 64 69 h))......attr))..(cl-defmacro.di
2c480 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 28 6e 61 6d 65 20 26 6f 70 74 69 rvish-define-preview.(name.&opti
2c4a0 6f 6e 61 6c 20 61 72 67 6c 69 73 74 20 64 6f 63 73 74 72 69 6e 67 20 26 72 65 73 74 20 62 6f 64 onal.arglist.docstring.&rest.bod
2c4c0 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 44 69 72 76 69 73 68 20 70 72 65 76 69 65 77 20 64 y)..."Define.a.Dirvish.preview.d
2c4e0 69 73 70 61 74 63 68 65 72 20 4e 41 4d 45 2e 0a 41 20 64 69 72 76 69 73 68 20 70 72 65 76 69 65 ispatcher.NAME..A.dirvish.previe
2c500 77 20 64 69 73 70 61 74 63 68 65 72 20 69 73 20 61 20 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 73 75 w.dispatcher.is.a.function.consu
2c520 6d 65 64 20 62 79 0a 20 60 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 med.by..`dirvish-preview-dispatc
2c540 68 27 20 77 68 69 63 68 20 74 61 6b 65 73 20 60 66 69 6c 65 27 20 28 66 69 6c 65 6e 61 6d 65 20 h'.which.takes.`file'.(filename.
2c560 75 6e 64 65 72 0a 20 74 68 65 20 63 75 72 73 6f 72 29 20 61 6e 64 20 60 70 72 65 76 69 65 77 2d under..the.cursor).and.`preview-
2c580 77 69 6e 64 6f 77 27 20 61 73 20 41 52 47 4c 49 53 54 2e 20 20 44 4f 43 53 54 52 49 4e 47 20 61 window'.as.ARGLIST...DOCSTRING.a
2c5a0 6e 64 20 42 4f 44 59 0a 20 69 73 20 74 68 65 20 64 6f 63 73 74 72 69 6e 67 20 61 6e 64 20 62 6f nd.BODY..is.the.docstring.and.bo
2c5c0 64 79 20 66 6f 72 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 28 64 65 63 6c 61 72 dy.for.this.function."...(declar
2c5e0 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 20 28 64 6f 63 2d 73 74 72 69 6e 67 20 33 29 29 e.(indent.defun).(doc-string.3))
2c600 0a 20 20 28 6c 65 74 2a 20 28 28 64 70 2d 6e 61 6d 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d ...(let*.((dp-name.(intern.(form
2c620 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 64 70 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 at."dirvish-%s-dp".name)))......
2c640 20 20 20 20 28 64 65 66 61 75 6c 74 2d 61 72 67 6c 69 73 74 20 27 28 66 69 6c 65 20 65 78 74 20 ....(default-arglist.'(file.ext.
2c660 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 64 76 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 67 preview-window.dv))..........(ig
2c680 6e 6f 72 65 2d 6c 69 73 74 20 28 63 6c 2d 73 65 74 2d 64 69 66 66 65 72 65 6e 63 65 20 64 65 66 nore-list.(cl-set-difference.def
2c6a0 61 75 6c 74 2d 61 72 67 6c 69 73 74 20 61 72 67 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 ault-arglist.arglist))..........
2c6c0 28 6b 65 79 77 6f 72 64 73 20 60 28 3a 64 6f 63 20 2c 64 6f 63 73 74 72 69 6e 67 29 29 29 0a 20 (keywords.`(:doc.,docstring)))..
2c6e0 20 20 20 28 77 68 69 6c 65 20 28 6b 65 79 77 6f 72 64 70 20 28 63 61 72 20 62 6f 64 79 29 29 20 ...(while.(keywordp.(car.body)).
2c700 28 64 6f 74 69 6d 65 73 20 28 5f 20 32 29 20 28 70 75 73 68 20 28 70 6f 70 20 62 6f 64 79 29 20 (dotimes.(_.2).(push.(pop.body).
2c720 6b 65 79 77 6f 72 64 73 29 29 29 0a 20 20 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 28 keywords))).....`(progn........(
2c740 61 64 64 2d 74 6f 2d 6c 69 73 74 0a 20 20 20 20 20 20 20 20 27 64 69 72 76 69 73 68 2d 2d 61 76 add-to-list.........'dirvish--av
2c760 61 69 6c 61 62 6c 65 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 20 28 63 6f 6e ailable-preview-dispatchers.(con
2c780 73 20 27 2c 6e 61 6d 65 20 27 2c 6b 65 79 77 6f 72 64 73 29 29 0a 20 20 20 20 20 20 20 28 64 65 s.',name.',keywords))........(de
2c7a0 66 75 6e 20 2c 64 70 2d 6e 61 6d 65 20 2c 64 65 66 61 75 6c 74 2d 61 72 67 6c 69 73 74 20 28 69 fun.,dp-name.,default-arglist.(i
2c7c0 67 6e 6f 72 65 20 2c 40 69 67 6e 6f 72 65 2d 6c 69 73 74 29 20 2c 40 62 6f 64 79 29 29 29 29 0a gnore.,@ignore-list).,@body)))).
2c7e0 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c .(defmacro.dirvish-define-mode-l
2c800 69 6e 65 20 28 6e 61 6d 65 20 26 6f 70 74 69 6f 6e 61 6c 20 64 6f 63 73 74 72 69 6e 67 20 26 72 ine.(name.&optional.docstring.&r
2c820 65 73 74 20 62 6f 64 79 29 0a 20 20 22 44 65 66 69 6e 65 20 61 20 6d 6f 64 65 20 6c 69 6e 65 20 est.body)..."Define.a.mode.line.
2c840 73 65 67 6d 65 6e 74 20 4e 41 4d 45 20 77 69 74 68 20 42 4f 44 59 20 61 6e 64 20 44 4f 43 53 54 segment.NAME.with.BODY.and.DOCST
2c860 52 49 4e 47 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 69 6e 64 65 6e 74 20 64 65 66 75 6e 29 RING."...(declare.(indent.defun)
2c880 20 28 64 6f 63 2d 73 74 72 69 6e 67 20 32 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 6c 2d 6e 61 6d .(doc-string.2))...(let.((ml-nam
2c8a0 65 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 6d 6c e.(intern.(format."dirvish-%s-ml
2c8c0 22 20 6e 61 6d 65 29 29 29 29 0a 20 20 20 20 60 28 64 65 66 75 6e 20 2c 6d 6c 2d 6e 61 6d 65 20 ".name)))).....`(defun.,ml-name.
2c8e0 28 64 76 29 20 2c 64 6f 63 73 74 72 69 6e 67 20 28 69 67 6e 6f 72 65 20 64 76 29 20 2c 40 62 6f (dv).,docstring.(ignore.dv).,@bo
2c900 64 79 29 29 29 0a 0a 3b 3b 3b 3b 20 48 65 6c 70 65 72 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 dy)))..;;;;.Helpers..(defun.dirv
2c920 69 73 68 2d 2d 68 69 64 65 2d 64 69 72 65 64 2d 68 65 61 64 65 72 20 28 29 0a 20 20 22 48 69 64 ish--hide-dired-header.()..."Hid
2c940 65 20 74 68 65 20 44 69 72 65 64 20 68 65 61 64 65 72 2e 22 0a 20 20 28 72 65 6d 6f 76 65 2d 6f e.the.Dired.header."...(remove-o
2c960 76 65 72 6c 61 79 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 29 20 27 64 69 72 verlays.(point-min).(point).'dir
2c980 65 64 2d 68 65 61 64 65 72 20 74 29 0a 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 ed-header.t)...(save-excursion..
2c9a0 20 20 20 28 6c 65 74 2a 20 28 28 62 65 67 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 ...(let*.((beg.(goto-char.(point
2c9c0 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d 66 69 6c 65 20 28 6e -min)))............(next-file.(n
2c9e0 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 20 62 65 67 20 27 ext-single-property-change.beg.'
2ca00 64 69 72 65 64 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 64 dired-filename))............(end
2ca20 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 .(or.(dirvish-prop.:content-begi
2ca40 6e 29 0a 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 6f 74 n).....................(and.(not
2ca60 20 6e 65 78 74 2d 66 69 6c 65 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 20 .next-file).(point-max))........
2ca80 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 28 67 6f 74 6f 2d 63 68 61 72 20 6e .............(progn.(goto-char.n
2caa0 65 78 74 2d 66 69 6c 65 29 20 28 6c 69 6e 65 2d 62 65 67 69 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 ext-file).(line-beginning-positi
2cac0 6f 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 20 28 6d 61 6b 65 2d 6f 76 65 72 6c on))))............(o.(make-overl
2cae0 61 79 20 62 65 67 20 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f ay.beg.end))).......(dirvish-pro
2cb00 70 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 20 65 6e 64 29 0a 20 20 20 20 20 20 28 6f 76 65 p.:content-begin.end).......(ove
2cb20 72 6c 61 79 2d 70 75 74 20 6f 20 27 64 69 72 65 64 2d 68 65 61 64 65 72 20 74 29 0a 20 20 20 20 rlay-put.o.'dired-header.t).....
2cb40 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 20 27 69 6e 76 69 73 69 62 6c 65 0a 20 20 20 20 ..(overlay-put.o.'invisible.....
2cb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 63 64 72 20 64 69 72 65 64 ...............(cond.((cdr.dired
2cb80 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 -subdir-alist).nil).............
2cba0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 .............(dirvish-use-header
2cbc0 2d 6c 69 6e 65 20 74 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 64 -line.t))))))..(defun.dirvish--d
2cbe0 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 28 62 75 66 66 65 72 20 61 6c 69 73 74 29 0a 20 20 22 isplay-buffer.(buffer.alist)..."
2cc00 54 72 79 20 64 69 73 70 6c 61 79 69 6e 67 20 42 55 46 46 45 52 20 77 69 74 68 20 41 4c 49 53 54 Try.displaying.BUFFER.with.ALIST
2cc20 2e 0a 54 68 69 73 20 73 70 6c 69 74 73 20 74 68 65 20 77 69 6e 64 6f 77 20 61 74 20 74 68 65 20 ..This.splits.the.window.at.the.
2cc40 64 65 73 69 67 6e 61 74 65 64 20 73 69 64 65 20 6f 66 20 74 68 65 20 66 72 61 6d 65 2e 0a 41 4c designated.side.of.the.frame..AL
2cc60 49 53 54 20 69 73 20 77 69 6e 64 6f 77 20 61 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 74 IST.is.window.arguments.passed.t
2cc80 6f 20 60 77 69 6e 64 6f 77 2d 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 27 2e 22 0a 20 20 28 o.`window--display-buffer'."...(
2cca0 6c 65 74 2a 20 28 28 73 69 64 65 20 28 63 64 72 20 28 61 73 73 71 20 27 73 69 64 65 20 61 6c 69 let*.((side.(cdr.(assq.'side.ali
2ccc0 73 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 st)))..........(window-configura
2cce0 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 28 tion-change-hook.nil)..........(
2cd00 77 69 64 74 68 20 28 6f 72 20 28 63 64 72 20 28 61 73 73 71 20 27 77 69 6e 64 6f 77 2d 77 69 64 width.(or.(cdr.(assq.'window-wid
2cd20 74 68 20 61 6c 69 73 74 29 29 20 30 2e 35 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 69 67 68 th.alist)).0.5))..........(heigh
2cd40 74 20 28 63 64 72 20 28 61 73 73 71 20 27 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 61 6c 69 73 t.(cdr.(assq.'window-height.alis
2cd60 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 69 7a 65 20 28 6f 72 20 68 65 69 67 68 74 20 28 t)))..........(size.(or.height.(
2cd80 63 65 69 6c 69 6e 67 20 28 2a 20 28 66 72 61 6d 65 2d 77 69 64 74 68 29 20 77 69 64 74 68 29 29 ceiling.(*.(frame-width).width))
2cda0 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 70 6c 69 74 2d 77 69 64 74 68 2d 74 68 72 65 73 68 6f ))..........(split-width-thresho
2cdc0 6c 64 20 30 29 0a 20 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 2d 77 69 6e 64 6f 77 2d 70 61 ld.0)..........(ignore-window-pa
2cde0 72 61 6d 65 74 65 72 73 20 74 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 77 69 6e 64 6f 77 rameters.t)..........(new-window
2ce00 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 6e 6f 2d 65 72 72 6f 72 20 6e 69 6c 20 73 69 7a 65 .(split-window-no-error.nil.size
2ce20 20 73 69 64 65 29 29 29 0a 20 20 20 20 28 77 69 6e 64 6f 77 2d 2d 64 69 73 70 6c 61 79 2d 62 75 .side))).....(window--display-bu
2ce40 66 66 65 72 20 62 75 66 66 65 72 20 6e 65 77 2d 77 69 6e 64 6f 77 20 27 77 69 6e 64 6f 77 20 61 ffer.buffer.new-window.'window.a
2ce60 6c 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 62 75 list)))..(defun.dirvish--kill-bu
2ce80 66 66 65 72 20 28 62 75 66 66 65 72 29 0a 20 20 22 4b 69 6c 6c 20 42 55 46 46 45 52 20 77 69 74 ffer.(buffer)..."Kill.BUFFER.wit
2cea0 68 6f 75 74 20 73 69 64 65 20 65 66 66 65 63 74 73 2e 22 0a 20 20 28 61 6e 64 20 28 62 75 66 66 hout.side.effects."...(and.(buff
2cec0 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 28 63 6c 2d 6c 65 74 er-live-p.buffer)........(cl-let
2cee0 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 75 6e 64 6f 2d 74 72 65 65 2d f.(((symbol-function.'undo-tree-
2cf00 73 61 76 65 2d 68 69 73 74 6f 72 79 2d 66 72 6f 6d 2d 68 6f 6f 6b 29 20 23 27 69 67 6e 6f 72 65 save-history-from-hook).#'ignore
2cf20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 )..................((symbol-func
2cf40 74 69 6f 6e 20 27 72 65 63 65 6e 74 66 2d 74 72 61 63 6b 2d 63 6c 6f 73 65 64 2d 66 69 6c 65 29 tion.'recentf-track-closed-file)
2cf60 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 6b 69 6c 6c 2d .#'ignore))..........(let.(kill-
2cf80 62 75 66 66 65 72 2d 71 75 65 72 79 2d 66 75 6e 63 74 69 6f 6e 73 29 20 28 6b 69 6c 6c 2d 62 75 buffer-query-functions).(kill-bu
2cfa0 66 66 65 72 20 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 ffer.buffer)))))..(defun.dirvish
2cfc0 2d 2d 67 65 74 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 --get-project-root.(&optional.di
2cfe0 72 65 63 74 6f 72 79 29 0a 20 20 22 47 65 74 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 20 70 61 74 rectory)..."Get.project.root.pat
2d000 68 20 6f 66 20 44 49 52 45 43 54 4f 52 59 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 h.of.DIRECTORY."...(when-let*.((
2d020 70 6a 20 28 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 20 6e 69 6c 20 64 69 72 65 63 74 6f 72 pj.(project-current.nil.director
2d040 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 6a 2d 72 6f 6f 74 20 28 63 61 72 20 y))...............(pj-root.(car.
2d060 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 20 28 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 73 (with-no-warnings.(project-roots
2d080 20 70 6a 29 29 29 29 29 0a 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 70 .pj))))).....(expand-file-name.p
2d0a0 6a 2d 72 6f 6f 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 67 65 74 2d 70 j-root)))..(defun.dirvish--get-p
2d0c0 61 72 65 6e 74 2d 70 61 74 68 20 28 70 61 74 68 29 0a 20 20 22 47 65 74 20 70 61 72 65 6e 74 20 arent-path.(path)..."Get.parent.
2d0e0 64 69 72 65 63 74 6f 72 79 20 6f 66 20 50 41 54 48 2e 22 0a 20 20 28 66 69 6c 65 2d 6e 61 6d 65 directory.of.PATH."...(file-name
2d100 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 -directory.(directory-file-name.
2d120 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 70 61 74 68 29 29 29 29 0a 0a 28 64 65 66 (expand-file-name.path))))..(def
2d140 75 6e 20 64 69 72 76 69 73 68 2d 2d 61 70 70 65 6e 64 2d 6d 65 74 61 64 61 74 61 20 28 6d 65 74 un.dirvish--append-metadata.(met
2d160 61 64 61 74 61 20 63 6f 6d 70 6c 65 74 69 6f 6e 73 29 0a 20 20 22 41 70 70 65 6e 64 20 4d 45 54 adata.completions)..."Append.MET
2d180 41 44 41 54 41 20 66 6f 72 20 6d 69 6e 69 62 75 66 66 65 72 20 43 4f 4d 50 4c 45 54 49 4f 4e 53 ADATA.for.minibuffer.COMPLETIONS
2d1a0 2e 22 0a 20 20 28 6c 65 74 20 28 28 65 6e 74 72 79 20 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 ."...(let.((entry.(if.(functionp
2d1c0 20 6d 65 74 61 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 .metadata)....................`(
2d1e0 6d 65 74 61 64 61 74 61 20 28 61 6e 6e 6f 74 61 74 69 6f 6e 2d 66 75 6e 63 74 69 6f 6e 20 2e 20 metadata.(annotation-function...
2d200 2c 6d 65 74 61 64 61 74 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 6d ,metadata))..................`(m
2d220 65 74 61 64 61 74 61 20 28 63 61 74 65 67 6f 72 79 20 2e 20 2c 6d 65 74 61 64 61 74 61 29 29 29 etadata.(category...,metadata)))
2d240 29 29 0a 20 20 20 20 28 6c 61 6d 62 64 61 20 28 73 74 72 69 6e 67 20 70 72 65 64 20 61 63 74 69 )).....(lambda.(string.pred.acti
2d260 6f 6e 29 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 61 63 74 69 6f 6e 20 27 6d 65 74 61 64 61 on).......(if.(eq.action.'metada
2d280 74 61 29 0a 20 20 20 20 20 20 20 20 20 20 65 6e 74 72 79 0a 20 20 20 20 20 20 20 20 28 63 6f 6d ta)...........entry.........(com
2d2a0 70 6c 65 74 65 2d 77 69 74 68 2d 61 63 74 69 6f 6e 20 61 63 74 69 6f 6e 20 63 6f 6d 70 6c 65 74 plete-with-action.action.complet
2d2c0 69 6f 6e 73 20 73 74 72 69 6e 67 20 70 72 65 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 ions.string.pred)))))..(defun.di
2d2e0 72 76 69 73 68 2d 2d 77 69 6e 64 6f 77 2d 73 65 6c 65 63 74 65 64 2d 70 20 28 64 76 29 0a 20 20 rvish--window-selected-p.(dv)...
2d300 22 52 65 74 75 72 6e 20 74 20 69 66 20 73 65 73 73 69 6f 6e 20 44 56 20 69 73 20 73 65 6c 65 63 "Return.t.if.session.DV.is.selec
2d320 74 65 64 2e 22 0a 20 20 28 65 71 20 28 69 66 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 ted."...(eq.(if.(car.(dv-layout.
2d340 64 76 29 29 20 28 64 76 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 20 28 66 72 61 6d 65 2d dv)).(dv-root-window.dv).(frame-
2d360 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 64 69 72 76 69 73 68 2d selected-window)).......dirvish-
2d380 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 -selected-window))..(defun.dirvi
2d3a0 73 68 2d 2d 73 63 6f 70 65 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 63 6f 6d 70 75 74 65 64 sh--scopes.()..."Return.computed
2d3c0 20 73 63 6f 70 65 73 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 64 69 72 76 69 73 68 2d 73 63 .scopes.according.to.`dirvish-sc
2d3e0 6f 70 65 73 27 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 6b 20 76 29 20 6f 6e 20 opes'."...(cl-loop.for.(k.v).on.
2d400 64 69 72 76 69 73 68 2d 73 63 6f 70 65 73 20 62 79 20 27 63 64 64 72 0a 20 20 20 20 20 20 20 20 dirvish-scopes.by.'cddr.........
2d420 20 20 20 61 70 70 65 6e 64 20 28 6c 69 73 74 20 6b 20 28 61 6e 64 20 28 66 75 6e 63 74 69 6f 6e ...append.(list.k.(and.(function
2d440 70 20 76 29 20 28 66 75 6e 63 61 6c 6c 20 76 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 p.v).(funcall.v)))))..(defun.dir
2d460 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 28 74 69 74 6c 65 vish--format-menu-heading.(title
2d480 20 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f 74 65 29 0a 20 20 22 46 6f 72 6d 61 74 20 54 49 54 4c 45 .&optional.note)..."Format.TITLE
2d4a0 20 61 73 20 61 20 6d 65 6e 75 20 68 65 61 64 69 6e 67 2e 0a 57 68 65 6e 20 4e 4f 54 45 20 69 73 .as.a.menu.heading..When.NOTE.is
2d4c0 20 6e 6f 6e 2d 6e 69 6c 2c 20 61 70 70 65 6e 64 20 69 74 20 74 68 65 20 6e 65 78 74 20 6c 69 6e .non-nil,.append.it.the.next.lin
2d4e0 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 6e 6f 2d 77 62 20 28 3d 20 28 66 72 61 6d 65 2d 62 6f 74 e."...(let.((no-wb.(=.(frame-bot
2d500 74 6f 6d 2d 64 69 76 69 64 65 72 2d 77 69 64 74 68 29 20 30 29 29 29 0a 20 20 20 20 28 66 6f 72 tom-divider-width).0))).....(for
2d520 6d 61 74 20 22 25 73 25 73 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 mat."%s%s%s".............(proper
2d540 74 69 7a 65 20 74 69 74 6c 65 20 27 66 61 63 65 20 60 28 3a 69 6e 68 65 72 69 74 20 64 69 72 65 tize.title.'face.`(:inherit.dire
2d560 64 2d 6d 61 72 6b 20 3a 6f 76 65 72 6c 69 6e 65 20 2c 6e 6f 2d 77 62 29 0a 20 20 20 20 20 20 20 d-mark.:overline.,no-wb)........
2d580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 20 27 28 28 68 65 69 .................'display.'((hei
2d5a0 67 68 74 20 31 2e 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 ght.1.1))).............(properti
2d5c0 7a 65 20 22 20 22 20 27 66 61 63 65 20 60 28 3a 69 6e 68 65 72 69 74 20 64 69 72 65 64 2d 6d 61 ze.".".'face.`(:inherit.dired-ma
2d5e0 72 6b 20 3a 6f 76 65 72 6c 69 6e 65 20 2c 6e 6f 2d 77 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 rk.:overline.,no-wb)............
2d600 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 73 70 6c 61 79 20 27 28 73 70 61 63 65 20 3a 61 .............'display.'(space.:a
2d620 6c 69 67 6e 2d 74 6f 20 72 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f lign-to.right)).............(pro
2d640 70 65 72 74 69 7a 65 20 28 69 66 20 6e 6f 74 65 20 28 63 6f 6e 63 61 74 20 22 5c 6e 22 20 6e 6f pertize.(if.note.(concat."\n".no
2d660 74 65 29 20 22 22 29 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 6f 63 2d 66 61 63 te)."").'face.'font-lock-doc-fac
2d680 65 29 29 29 29 0a 0a 3b 3b 3b 3b 20 43 6f 72 65 0a 0a 28 64 65 66 73 75 62 73 74 20 64 69 72 76 e))))..;;;;.Core..(defsubst.dirv
2d6a0 69 73 68 2d 63 75 72 72 20 28 29 0a 20 20 22 47 65 74 20 73 65 6c 65 63 74 65 64 20 44 69 72 76 ish-curr.()..."Get.selected.Dirv
2d6c0 69 73 68 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 28 67 65 74 68 61 73 68 20 28 64 69 72 76 69 73 ish.session."...(gethash.(dirvis
2d6e0 68 2d 70 72 6f 70 20 3a 64 76 29 20 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 h-prop.:dv).dirvish--session-has
2d700 68 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 h))..(defun.dirvish--util-buffer
2d720 20 28 74 79 70 65 20 26 6f 70 74 69 6f 6e 61 6c 20 64 76 20 6e 6f 2d 63 72 65 61 74 65 20 69 6e .(type.&optional.dv.no-create.in
2d740 68 69 62 69 74 2d 68 69 64 69 6e 67 29 0a 20 20 22 52 65 74 75 72 6e 20 73 65 73 73 69 6f 6e 20 hibit-hiding)..."Return.session.
2d760 44 56 27 73 20 75 74 69 6c 69 74 79 20 62 75 66 66 65 72 20 6f 66 20 54 59 50 45 20 28 64 65 66 DV's.utility.buffer.of.TYPE.(def
2d780 61 75 6c 74 73 20 74 6f 20 60 74 65 6d 70 27 29 2e 0a 49 66 20 4e 4f 2d 43 52 45 41 54 45 20 69 aults.to.`temp')..If.NO-CREATE.i
2d7a0 73 20 6e 6f 6e 2d 6e 69 6c 2c 20 64 6f 20 6e 6f 74 20 63 72 65 61 74 65 20 74 68 65 20 62 75 66 s.non-nil,.do.not.create.the.buf
2d7c0 66 65 72 2e 0a 49 66 20 49 4e 48 49 42 49 54 2d 48 49 44 49 4e 47 20 69 73 20 6e 6f 6e 2d 6e 69 fer..If.INHIBIT-HIDING.is.non-ni
2d7e0 6c 2c 20 64 6f 20 6e 6f 74 20 68 69 64 65 20 74 68 65 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c l,.do.not.hide.the.buffer."...(l
2d800 65 74 2a 20 28 28 69 64 20 28 69 66 20 64 76 20 28 66 6f 72 6d 61 74 20 22 2d 25 73 2a 22 20 28 et*.((id.(if.dv.(format."-%s*".(
2d820 64 76 2d 6e 61 6d 65 20 64 76 29 29 20 22 2a 22 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 61 6d dv-name.dv))."*"))..........(nam
2d840 65 20 28 66 6f 72 6d 61 74 20 22 25 73 2a 44 69 72 76 69 73 68 2d 25 73 25 73 22 20 28 69 66 20 e.(format."%s*Dirvish-%s%s".(if.
2d860 69 6e 68 69 62 69 74 2d 68 69 64 69 6e 67 20 22 22 20 22 20 22 29 20 74 79 70 65 20 69 64 29 29 inhibit-hiding."".".").type.id))
2d880 29 0a 20 20 20 20 28 69 66 20 6e 6f 2d 63 72 65 61 74 65 20 28 67 65 74 2d 62 75 66 66 65 72 20 ).....(if.no-create.(get-buffer.
2d8a0 6e 61 6d 65 29 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 29 name).(get-buffer-create.name)))
2d8c0 29 0a 0a 28 63 6c 2d 64 65 66 73 74 72 75 63 74 20 28 64 69 72 76 69 73 68 20 28 3a 63 6f 6e 63 )..(cl-defstruct.(dirvish.(:conc
2d8e0 2d 6e 61 6d 65 20 64 76 2d 29 29 0a 20 20 22 44 65 66 69 6e 65 20 64 69 72 76 69 73 68 20 64 61 -name.dv-))..."Define.dirvish.da
2d900 74 61 20 74 79 70 65 2e 22 0a 20 20 28 74 79 70 65 20 28 29 20 3a 64 6f 63 75 6d 65 6e 74 61 74 ta.type."...(type.().:documentat
2d920 69 6f 6e 20 22 69 73 20 74 68 65 20 28 54 59 50 45 20 46 49 58 45 44 2d 57 49 44 54 48 20 44 45 ion."is.the.(TYPE.FIXED-WIDTH.DE
2d940 44 49 43 41 54 45 44 20 52 4f 4f 54 2d 57 49 4e 2d 46 4e 20 46 49 4c 45 2d 4f 50 45 4e 2d 46 4e DICATED.ROOT-WIN-FN.FILE-OPEN-FN
2d960 29 20 73 74 72 75 63 74 2e 22 29 0a 20 20 28 6c 61 79 6f 75 74 20 28 63 6f 6e 73 20 6e 69 6c 20 ).struct.")...(layout.(cons.nil.
2d980 64 69 72 76 69 73 68 2d 64 65 66 61 75 6c 74 2d 6c 61 79 6f 75 74 29 20 3a 64 6f 63 75 6d 65 6e dirvish-default-layout).:documen
2d9a0 74 61 74 69 6f 6e 20 22 69 73 20 74 68 65 20 77 6f 72 6b 69 6e 67 20 6c 61 79 6f 75 74 73 2e 22 tation."is.the.working.layouts."
2d9c0 29 0a 20 20 28 6c 73 2d 73 77 69 74 63 68 65 73 20 64 69 72 65 64 2d 6c 69 73 74 69 6e 67 2d 73 )...(ls-switches.dired-listing-s
2d9e0 77 69 74 63 68 65 73 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 69 73 20 74 68 65 20 6c witches.:documentation."is.the.l
2da00 69 73 74 69 6e 67 20 73 77 69 74 63 68 65 73 2e 22 29 0a 20 20 28 72 6f 6f 74 2d 77 69 6e 64 6f isting.switches.")...(root-windo
2da20 77 20 6e 69 6c 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 69 73 20 74 68 65 20 6d 61 69 w.nil.:documentation."is.the.mai
2da40 6e 20 77 69 6e 64 6f 77 20 63 72 65 61 74 65 64 20 62 79 20 52 4f 4f 54 2d 57 49 4e 44 4f 57 2d n.window.created.by.ROOT-WINDOW-
2da60 46 4e 2e 22 29 0a 20 20 28 73 63 6f 70 65 73 20 28 29 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f FN.")...(scopes.().:documentatio
2da80 6e 20 22 61 72 65 20 74 68 65 20 5c 22 65 6e 76 69 72 6f 6e 6d 65 6e 74 73 5c 22 20 73 75 63 68 n."are.the.\"environments\".such
2daa0 20 61 73 20 69 6e 69 74 20 66 72 61 6d 65 20 6f 66 20 74 68 69 73 20 73 65 73 73 69 6f 6e 2e 22 .as.init.frame.of.this.session."
2dac0 29 0a 20 20 28 70 72 65 76 69 65 77 2d 62 75 66 66 65 72 73 20 28 29 20 3a 64 6f 63 75 6d 65 6e )...(preview-buffers.().:documen
2dae0 74 61 74 69 6f 6e 20 22 68 6f 6c 64 73 20 61 6c 6c 20 66 69 6c 65 20 70 72 65 76 69 65 77 20 62 tation."holds.all.file.preview.b
2db00 75 66 66 65 72 73 20 69 6e 20 74 68 69 73 20 73 65 73 73 69 6f 6e 2e 22 29 0a 20 20 28 70 72 65 uffers.in.this.session.")...(pre
2db20 76 69 65 77 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 view-window.nil.:documentation."
2db40 69 73 20 74 68 65 20 77 69 6e 64 6f 77 20 74 6f 20 64 69 73 70 6c 61 79 20 70 72 65 76 69 65 77 is.the.window.to.display.preview
2db60 20 62 75 66 66 65 72 2e 22 29 0a 20 20 28 6e 61 6d 65 20 28 63 6c 2d 67 65 6e 73 79 6d 29 20 3a .buffer.")...(name.(cl-gensym).:
2db80 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 69 73 20 61 6e 20 75 6e 69 71 75 65 20 73 79 6d 62 documentation."is.an.unique.symb
2dba0 6f 6c 20 66 6f 72 20 65 76 65 72 79 20 73 65 73 73 69 6f 6e 2e 22 29 0a 20 20 28 77 69 6e 63 6f ol.for.every.session.")...(winco
2dbc0 6e 66 20 28 63 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e nf.(current-window-configuration
2dbe0 29 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 69 73 20 74 68 65 20 73 61 76 65 64 20 77 ).:documentation."is.the.saved.w
2dc00 69 6e 64 6f 77 20 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 2e 22 29 0a 20 20 28 69 6e 64 65 78 20 indow.configuration.")...(index.
2dc20 28 29 20 3a 64 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 22 69 73 20 61 20 28 44 49 52 20 2e 20 43 ().:documentation."is.a.(DIR...C
2dc40 4f 52 52 45 53 50 4f 4e 44 49 4e 47 2d 42 55 46 46 45 52 29 20 63 6f 6e 73 20 6f 66 20 52 4f 4f ORRESPONDING-BUFFER).cons.of.ROO
2dc60 54 2d 57 49 4e 44 4f 57 2e 22 29 0a 20 20 28 72 6f 6f 74 73 20 28 29 20 3a 64 6f 63 75 6d 65 6e T-WINDOW.")...(roots.().:documen
2dc80 74 61 74 69 6f 6e 20 22 69 73 20 74 68 65 20 6c 69 73 74 20 6f 66 20 61 6c 6c 20 49 4e 44 45 58 tation."is.the.list.of.all.INDEX
2dca0 73 2e 22 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 72 65 75 73 s."))..(defun.dirvish--find-reus
2dcc0 61 62 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 74 79 70 65 29 0a 20 20 22 52 65 74 75 72 6e 20 able.(&optional.type)..."Return.
2dce0 74 68 65 20 66 69 72 73 74 20 6d 61 74 63 68 65 64 20 72 65 75 73 61 62 6c 65 20 73 65 73 73 69 the.first.matched.reusable.sessi
2dd00 6f 6e 20 77 69 74 68 20 54 59 50 45 2e 22 0a 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 72 on.with.TYPE."...(when.dirvish-r
2dd20 65 75 73 65 2d 73 65 73 73 69 6f 6e 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 73 euse-session.....(cl-loop.with.s
2dd40 63 6f 70 65 73 20 3d 20 28 64 69 72 76 69 73 68 2d 2d 73 63 6f 70 65 73 29 0a 20 20 20 20 20 20 copes.=.(dirvish--scopes).......
2dd60 20 20 20 20 20 20 20 66 6f 72 20 64 76 20 69 6e 20 28 68 61 73 68 2d 74 61 62 6c 65 2d 76 61 6c .......for.dv.in.(hash-table-val
2dd80 75 65 73 20 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 68 29 0a 20 20 20 20 20 ues.dirvish--session-hash)......
2dda0 20 20 20 20 20 20 20 20 77 68 65 6e 20 28 61 6e 64 20 28 65 71 20 74 79 70 65 20 28 63 61 72 20 ........when.(and.(eq.type.(car.
2ddc0 28 64 76 2d 74 79 70 65 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (dv-type.dv)))..................
2dde0 20 20 20 20 20 20 28 65 71 75 61 6c 20 28 64 76 2d 73 63 6f 70 65 73 20 64 76 29 20 73 63 6f 70 ......(equal.(dv-scopes.dv).scop
2de00 65 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 64 76 29 29 29 0a es))..............collect.dv))).
2de20 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 65 77 20 28 26 72 65 73 74 20 61 72 67 73 29 .(defun.dirvish-new.(&rest.args)
2de40 0a 20 20 22 43 72 65 61 74 65 20 61 6e 64 20 73 61 76 65 20 61 20 6e 65 77 20 64 69 72 76 69 73 ..."Create.and.save.a.new.dirvis
2de60 68 20 73 74 72 75 63 74 20 74 6f 20 60 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 h.struct.to.`dirvish--session-ha
2de80 73 68 27 2e 0a 41 52 47 53 20 69 73 20 61 20 6c 69 73 74 20 6f 66 20 6b 65 79 77 6f 72 64 20 61 sh'..ARGS.is.a.list.of.keyword.a
2dea0 72 67 75 6d 65 6e 74 73 20 66 6f 72 20 60 64 69 72 76 69 73 68 27 20 73 74 72 75 63 74 2e 22 0a rguments.for.`dirvish'.struct.".
2dec0 20 20 28 6c 65 74 20 28 73 6c 6f 74 73 20 6e 65 77 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 6b ..(let.(slots.new).....(while.(k
2dee0 65 79 77 6f 72 64 70 20 28 63 61 72 20 61 72 67 73 29 29 20 28 64 6f 74 69 6d 65 73 20 28 5f 20 eywordp.(car.args)).(dotimes.(_.
2df00 32 29 20 28 70 75 73 68 20 28 70 6f 70 20 61 72 67 73 29 20 73 6c 6f 74 73 29 29 29 0a 20 20 20 2).(push.(pop.args).slots)))....
2df20 20 28 73 65 74 71 20 6e 65 77 20 28 61 70 70 6c 79 20 23 27 6d 61 6b 65 2d 64 69 72 76 69 73 68 .(setq.new.(apply.#'make-dirvish
2df40 20 28 72 65 76 65 72 73 65 20 73 6c 6f 74 73 29 29 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 .(reverse.slots)).dirvish--this.
2df60 6e 65 77 29 0a 20 20 20 20 28 70 75 74 68 61 73 68 20 28 64 76 2d 6e 61 6d 65 20 6e 65 77 29 20 new).....(puthash.(dv-name.new).
2df80 6e 65 77 20 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 68 29 0a 20 20 20 20 28 new.dirvish--session-hash).....(
2dfa0 64 69 72 76 69 73 68 2d 2d 63 68 65 63 6b 2d 64 65 70 73 29 0a 20 20 20 20 28 64 69 72 76 69 73 dirvish--check-deps).....(dirvis
2dfc0 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 6e 65 77 29 20 6e 65 77 29 29 h--create-root-window.new).new))
2dfe0 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6b 69 6c 6c 20 28 64 76 29 0a 20 20 22 4b 69 ..(defun.dirvish-kill.(dv)..."Ki
2e000 6c 6c 20 74 68 65 20 64 69 72 76 69 73 68 20 69 6e 73 74 61 6e 63 65 20 44 56 2e 22 0a 20 20 28 ll.the.dirvish.instance.DV."...(
2e020 6c 65 74 20 28 28 69 6e 64 65 78 20 28 63 64 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 29 29 let.((index.(cdr.(dv-index.dv)))
2e040 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 ).....(if.(not.(car.(dv-layout.d
2e060 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 5f 64 20 2e 20 v))).........(cl-loop.for.(_d...
2e080 62 29 20 69 6e 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 20 77 68 65 6e 0a 20 20 20 20 20 20 20 b).in.(dv-roots.dv).when........
2e0a0 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f ..........(not.(get-buffer-windo
2e0c0 77 20 62 29 29 20 64 6f 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 29 0a 20 20 20 20 20 20 20 w.b)).do.(kill-buffer.b)........
2e0e0 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 28 73 65 74 66 20 28 64 76 2d 69 6e 64 65 ..........finally.(setf.(dv-inde
2e100 78 20 64 76 29 20 28 63 61 72 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 29 29 29 0a 20 20 20 20 x.dv).(car.(dv-roots.dv)))).....
2e120 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 0a ..(when.dirvish-use-header-line.
2e140 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 69 6e 64 ........(with-current-buffer.ind
2e160 65 78 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 ex...........(setq.header-line-f
2e180 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 29 29 ormat.dirvish--header-line-fmt))
2e1a0 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 5f 64 20 2e 20 62 29 20 69 6e ).......(cl-loop.for.(_d...b).in
2e1c0 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 68 .(dv-roots.dv)................wh
2e1e0 65 6e 20 28 6e 6f 74 20 28 65 71 20 62 20 69 6e 64 65 78 29 29 20 64 6f 20 28 6b 69 6c 6c 2d 62 en.(not.(eq.b.index)).do.(kill-b
2e200 75 66 66 65 72 20 62 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 77 63 6f 6e uffer.b)).......(when-let.((wcon
2e220 66 20 28 64 76 2d 77 69 6e 63 6f 6e 66 20 64 76 29 29 29 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d f.(dv-winconf.dv))).(set-window-
2e240 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 63 6f 6e 66 29 29 29 0a 20 20 20 20 28 6d 61 70 63 configuration.wconf))).....(mapc
2e260 20 23 27 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 64 76 2d 70 72 65 76 .#'dirvish--kill-buffer.(dv-prev
2e280 69 65 77 2d 62 75 66 66 65 72 73 20 64 76 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f iew-buffers.dv)).....(cl-loop.fo
2e2a0 72 20 62 20 69 6e 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 20 66 6f 72 20 62 6e 20 3d 20 28 62 r.b.in.(buffer-list).for.bn.=.(b
2e2c0 75 66 66 65 72 2d 6e 61 6d 65 20 62 29 20 77 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 uffer-name.b).when..............
2e2e0 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 66 6f 72 6d 61 74 20 22 20 3f 5c 5c 2a 44 69 (string-match-p.(format.".?\\*Di
2e300 72 76 69 73 68 2d 2e 2a 2d 25 73 5c 5c 2a 22 20 28 64 76 2d 6e 61 6d 65 20 64 76 29 29 20 62 6e rvish-.*-%s\\*".(dv-name.dv)).bn
2e320 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 64 69 72 76 69 73 68 2d 2d 6b 69 6c 6c )..............do.(dirvish--kill
2e340 2d 62 75 66 66 65 72 20 62 29 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 70 -buffer.b)).....(setq.dirvish--p
2e360 61 72 65 6e 74 2d 68 61 73 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 20 3a 74 65 73 arent-hash.(make-hash-table.:tes
2e380 74 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 64 69 72 76 69 73 68 2d 72 t.#'equal)).....(cond.(dirvish-r
2e3a0 65 75 73 65 2d 73 65 73 73 69 6f 6e 20 28 73 65 74 66 20 28 64 76 2d 77 69 6e 63 6f 6e 66 20 64 euse-session.(setf.(dv-winconf.d
2e3c0 76 29 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6d 61 70 63 20 28 70 63 61 v).nil))...........(t.(mapc.(pca
2e3e0 73 65 2d 6c 61 6d 62 64 61 20 28 60 28 2c 5f 20 2e 20 2c 62 29 29 20 28 6b 69 6c 6c 2d 62 75 66 se-lambda.(`(,_...,b)).(kill-buf
2e400 66 65 72 20 62 29 29 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 29 29 29 0a 20 20 20 20 28 73 65 fer.b)).(dv-roots.dv)))).....(se
2e420 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 tq.dirvish--this.nil)))..(defun.
2e440 64 69 72 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 28 64 76 29 dirvish--create-root-window.(dv)
2e460 0a 20 20 22 43 72 65 61 74 65 20 72 6f 6f 74 20 77 69 6e 64 6f 77 20 6f 66 20 44 56 2e 22 0a 20 ..."Create.root.window.of.DV."..
2e480 20 28 6c 65 74 2a 20 28 28 66 6e 20 28 6f 72 20 28 6e 74 68 20 33 20 28 64 76 2d 74 79 70 65 20 .(let*.((fn.(or.(nth.3.(dv-type.
2e4a0 64 76 29 29 20 27 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 20 28 77 dv)).'frame-selected-window)).(w
2e4c0 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 72 6f .(funcall.fn))).....(setf.(dv-ro
2e4e0 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 20 77 29 20 77 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 ot-window.dv).w).w))..(defun.dir
2e500 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d 64 70 73 2d 76 61 6c 69 64 61 74 65 20 28 26 6f 70 74 vish--preview-dps-validate.(&opt
2e520 69 6f 6e 61 6c 20 64 70 73 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 74 68 65 20 72 65 71 75 69 ional.dps)..."Check.if.the.requi
2e540 72 65 6d 65 6e 74 73 20 6f 66 20 64 69 73 70 61 74 63 68 65 72 73 20 44 50 53 20 61 72 65 20 6d rements.of.dispatchers.DPS.are.m
2e560 65 74 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 69 74 68 20 64 70 73 20 3d 20 28 6f 72 20 64 et."...(cl-loop.with.dps.=.(or.d
2e580 70 73 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 29 0a ps.dirvish-preview-dispatchers).
2e5a0 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 72 65 73 20 3d 20 28 70 72 6f 67 31 20 27 28 29 ...........with.res.=.(prog1.'()
2e5c0 20 28 72 65 71 75 69 72 65 20 27 72 65 63 65 6e 74 66 29 20 28 72 65 71 75 69 72 65 20 27 61 6e .(require.'recentf).(require.'an
2e5e0 73 69 2d 63 6f 6c 6f 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 66 6d 74 20 3d si-color))............with.fmt.=
2e600 20 22 5b 44 69 72 76 69 73 68 5d 3a 20 69 6e 73 74 61 6c 6c 20 27 25 73 27 20 65 78 65 63 75 74 ."[Dirvish]:.install.'%s'.execut
2e620 61 62 6c 65 20 74 6f 20 70 72 65 76 69 65 77 20 25 73 20 66 69 6c 65 73 2e 22 0a 20 20 20 20 20 able.to.preview.%s.files."......
2e640 20 20 20 20 20 20 66 6f 72 20 64 70 20 69 6e 20 28 61 70 70 65 6e 64 20 27 28 64 69 73 61 62 6c ......for.dp.in.(append.'(disabl
2e660 65 29 20 64 70 73 20 27 28 64 65 66 61 75 6c 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f e).dps.'(default))............fo
2e680 72 20 69 6e 66 6f 20 3d 20 28 61 6c 69 73 74 2d 67 65 74 20 64 70 20 64 69 72 76 69 73 68 2d 2d r.info.=.(alist-get.dp.dirvish--
2e6a0 61 76 61 69 6c 61 62 6c 65 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 29 0a 20 available-preview-dispatchers)..
2e6c0 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 72 65 71 75 69 72 65 6d 65 6e 74 73 20 3d 20 28 70 6c ..........for.requirements.=.(pl
2e6e0 69 73 74 2d 67 65 74 20 69 6e 66 6f 20 3a 72 65 71 75 69 72 65 29 0a 20 20 20 20 20 20 20 20 20 ist-get.info.:require)..........
2e700 20 20 66 6f 72 20 6d 65 74 20 3d 20 74 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 70 72 6f ..for.met.=.t............do.(pro
2e720 67 6e 20 28 64 6f 6c 69 73 74 20 28 70 6b 67 20 72 65 71 75 69 72 65 6d 65 6e 74 73 29 0a 20 20 gn.(dolist.(pkg.requirements)...
2e740 20 20 20 20 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 65 78 .....................(unless.(ex
2e760 65 63 75 74 61 62 6c 65 2d 66 69 6e 64 20 70 6b 67 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ecutable-find.pkg)..............
2e780 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 66 6d 74 20 70 6b 67 20 64 70 29 ............(message.fmt.pkg.dp)
2e7a0 20 28 73 65 74 71 20 6d 65 74 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .(setq.met.nil)))...............
2e7c0 20 20 20 20 20 20 20 28 77 68 65 6e 20 6d 65 74 20 28 70 75 73 68 20 28 69 6e 74 65 72 6e 20 28 .......(when.met.(push.(intern.(
2e7e0 66 6f 72 6d 61 74 20 22 64 69 72 76 69 73 68 2d 25 73 2d 64 70 22 20 64 70 29 29 20 72 65 73 29 format."dirvish-%s-dp".dp)).res)
2e800 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 20 72 65 74 75 72 6e 20 28 72 65 ))............finally.return.(re
2e820 76 65 72 73 65 20 72 65 73 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 61 74 verse.res)))..(defun.dirvish--at
2e840 74 72 73 2d 65 78 70 61 6e 64 20 28 61 74 74 72 73 29 0a 20 20 22 45 78 70 61 6e 64 20 41 54 54 trs-expand.(attrs)..."Expand.ATT
2e860 52 53 20 74 6f 20 60 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 61 74 74 72 73 27 2e 22 RS.to.`dirvish--working-attrs'."
2e880 0a 20 20 28 73 6f 72 74 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 61 74 74 72 20 69 6e 20 61 74 ...(sort.(cl-loop.for.attr.in.at
2e8a0 74 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 73 74 20 3d 20 28 trs..................for.lst.=.(
2e8c0 61 6c 69 73 74 2d 67 65 74 20 61 74 74 72 20 64 69 72 76 69 73 68 2d 2d 61 76 61 69 6c 61 62 6c alist-get.attr.dirvish--availabl
2e8e0 65 2d 61 74 74 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 69 e-attrs)..................for.(i
2e900 64 78 20 77 69 64 74 68 20 70 72 65 64 20 72 65 6e 64 65 72 20 6f 76 20 5f 29 20 3d 20 6c 73 74 dx.width.pred.render.ov._).=.lst
2e920 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6f 6c 6c 65 63 74 20 28 6c 69 73 74 20 ..................collect.(list.
2e940 69 64 78 20 28 65 76 61 6c 20 77 69 64 74 68 29 20 70 72 65 64 20 72 65 6e 64 65 72 20 6f 76 29 idx.(eval.width).pred.render.ov)
2e960 29 0a 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 61 20 62 29 20 28 3c 20 28 63 61 72 20 ).........(lambda.(a.b).(<.(car.
2e980 61 29 20 28 63 61 72 20 62 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d a).(car.b)))))..(defun.dirvish--
2e9a0 63 68 65 63 6b 2d 64 65 70 73 20 28 29 0a 20 20 22 52 65 6d 6f 76 65 20 69 6e 76 61 6c 69 64 20 check-deps.()..."Remove.invalid.
2e9c0 77 69 64 67 65 74 73 2c 20 72 61 69 73 65 20 77 61 72 6e 69 6e 67 73 20 66 6f 72 20 6d 69 73 73 widgets,.raise.warnings.for.miss
2e9e0 69 6e 67 20 64 65 70 65 6e 64 65 6e 63 69 65 73 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 ing.dependencies."...(cl-loop...
2ea00 20 77 69 74 68 20 28 6d 20 2e 20 68 29 20 3d 20 28 63 6f 6e 73 20 64 69 72 76 69 73 68 2d 6d 6f .with.(m...h).=.(cons.dirvish-mo
2ea20 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 68 65 61 64 65 72 2d 6c 69 de-line-format.dirvish-header-li
2ea40 6e 65 2d 66 6f 72 6d 61 74 29 0a 20 20 20 77 69 74 68 20 28 6d 6c 2d 6c 20 2e 20 6d 6c 2d 72 29 ne-format)....with.(ml-l...ml-r)
2ea60 20 3d 20 28 63 6f 6e 73 20 28 70 6c 69 73 74 2d 67 65 74 20 6d 20 3a 6c 65 66 74 29 20 28 70 6c .=.(cons.(plist-get.m.:left).(pl
2ea80 69 73 74 2d 67 65 74 20 6d 20 3a 72 69 67 68 74 29 29 0a 20 20 20 77 69 74 68 20 28 68 6c 2d 6c ist-get.m.:right))....with.(hl-l
2eaa0 20 2e 20 68 6c 2d 72 29 20 3d 20 28 63 6f 6e 73 20 28 70 6c 69 73 74 2d 67 65 74 20 68 20 3a 6c ...hl-r).=.(cons.(plist-get.h.:l
2eac0 65 66 74 29 20 28 70 6c 69 73 74 2d 67 65 74 20 68 20 3a 72 69 67 68 74 29 29 0a 20 20 20 77 69 eft).(plist-get.h.:right))....wi
2eae0 74 68 20 66 65 61 74 2d 72 65 71 73 20 3d 20 28 61 70 70 65 6e 64 20 64 69 72 76 69 73 68 2d 70 th.feat-reqs.=.(append.dirvish-p
2eb00 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 20 6d 6c 2d 6c 20 6d 6c 2d 72 20 68 6c 2d review-dispatchers.ml-l.ml-r.hl-
2eb20 6c 20 68 6c 2d 72 29 0a 20 20 20 77 69 74 68 20 61 74 74 72 73 20 3d 20 27 28 68 6c 2d 6c 69 6e l.hl-r)....with.attrs.=.'(hl-lin
2eb40 65 20 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 74 29 0a 20 20 20 66 6f 72 20 28 6c 69 62 20 2e 20 e.symlink-target)....for.(lib...
2eb60 66 65 61 74 29 20 69 6e 20 64 69 72 76 69 73 68 2d 6c 69 62 72 61 72 69 65 73 20 64 6f 0a 20 20 feat).in.dirvish-libraries.do...
2eb80 20 28 6c 65 74 20 28 28 6d 2d 61 74 74 72 20 28 63 6c 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e 20 .(let.((m-attr.(cl-intersection.
2eba0 66 65 61 74 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 29 29 0a 20 20 20 20 20 20 feat.dirvish-attributes)).......
2ebc0 20 20 20 28 66 65 61 74 2d 69 6e 2d 6c 69 62 20 28 63 6c 2d 69 6e 74 65 72 73 65 63 74 69 6f 6e ...(feat-in-lib.(cl-intersection
2ebe0 20 66 65 61 74 20 66 65 61 74 2d 72 65 71 73 29 29 29 0a 20 20 20 20 20 28 77 68 65 6e 20 28 6f .feat.feat-reqs)))......(when.(o
2ec00 72 20 6d 2d 61 74 74 72 20 66 65 61 74 2d 69 6e 2d 6c 69 62 29 20 28 72 65 71 75 69 72 65 20 6c r.m-attr.feat-in-lib).(require.l
2ec20 69 62 29 29 0a 20 20 20 20 20 28 61 6e 64 20 6d 2d 61 74 74 72 20 28 73 65 74 71 20 61 74 74 72 ib))......(and.m-attr.(setq.attr
2ec40 73 20 28 61 70 70 65 6e 64 20 61 74 74 72 73 20 6d 2d 61 74 74 72 29 29 29 29 0a 20 20 20 66 69 s.(append.attrs.m-attr))))....fi
2ec60 6e 61 6c 6c 79 0a 20 20 20 28 73 65 74 66 20 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d 6c 69 6e nally....(setf.dirvish--mode-lin
2ec80 65 2d 66 6d 74 20 28 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6d 74 2d 73 65 e-fmt.(dirvish--mode-line-fmt-se
2eca0 74 74 65 72 20 6d 6c 2d 6c 20 6d 6c 2d 72 29 29 0a 20 20 20 28 73 65 74 66 20 64 69 72 76 69 73 tter.ml-l.ml-r))....(setf.dirvis
2ecc0 68 2d 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 20 28 64 69 72 76 69 73 68 2d 2d 6d 6f 64 h--header-line-fmt.(dirvish--mod
2ece0 65 2d 6c 69 6e 65 2d 66 6d 74 2d 73 65 74 74 65 72 20 68 6c 2d 6c 20 68 6c 2d 72 20 74 29 29 0a e-line-fmt-setter.hl-l.hl-r.t)).
2ed00 20 20 20 28 73 65 74 66 20 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 70 72 65 76 69 65 ...(setf.dirvish--working-previe
2ed20 77 2d 64 69 73 70 61 74 68 63 68 65 72 73 20 28 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 w-dispathchers.(dirvish--preview
2ed40 2d 64 70 73 2d 76 61 6c 69 64 61 74 65 29 29 0a 20 20 20 28 73 65 74 66 20 64 69 72 76 69 73 68 -dps-validate))....(setf.dirvish
2ed60 2d 2d 77 6f 72 6b 69 6e 67 2d 61 74 74 72 73 20 28 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d --working-attrs.(dirvish--attrs-
2ed80 65 78 70 61 6e 64 20 61 74 74 72 73 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 expand.attrs))))..(defun.dirvish
2eda0 2d 2d 72 65 6e 64 65 72 2d 61 74 74 72 73 2d 31 20 28 68 65 69 67 68 74 20 77 69 64 74 68 20 70 --render-attrs-1.(height.width.p
2edc0 6f 73 20 72 65 6d 6f 74 65 20 66 6e 73 20 6f 76 20 61 6c 69 67 6e 2d 74 6f 29 0a 20 20 22 48 45 os.remote.fns.ov.align-to)..."HE
2ede0 49 47 48 54 20 57 49 44 54 48 20 50 4f 53 20 52 45 4d 4f 54 45 20 46 4e 53 20 4f 56 20 41 4c 49 IGHT.WIDTH.POS.REMOTE.FNS.OV.ALI
2ee00 47 4e 2d 54 4f 2e 22 0a 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 2d 20 30 20 68 65 69 GN-TO."...(forward-line.(-.0.hei
2ee20 67 68 74 29 29 0a 20 20 28 63 6c 2d 64 6f 74 69 6d 65 73 20 28 5f 20 28 2a 20 28 69 66 20 28 65 ght))...(cl-dotimes.(_.(*.(if.(e
2ee40 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 20 32 20 35 29 20 68 q.major-mode.'dired-mode).2.5).h
2ee60 65 69 67 68 74 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 65 6f 62 70 29 20 28 63 6c 2d 72 65 74 eight)).....(when.(eobp).(cl-ret
2ee80 75 72 6e 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 66 2d 62 65 67 20 28 64 69 72 65 64 2d 6d 6f urn)).....(let.((f-beg.(dired-mo
2eea0 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 2d 65 6e ve-to-filename))...........(f-en
2eec0 64 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 d.(dired-move-to-end-of-filename
2eee0 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 2d 62 65 67 20 28 6c 69 6e 65 2d 62 65 67 69 .t))...........(l-beg.(line-begi
2ef00 6e 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 20 28 6c 2d 65 6e 64 20 28 6c 69 6e 65 2d 65 6e nning-position)).(l-end.(line-en
2ef20 64 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 2d 77 69 64 20 30 29 d-position))...........(f-wid.0)
2ef40 20 66 2d 73 74 72 20 66 2d 6e 61 6d 65 20 66 2d 61 74 74 72 73 20 66 2d 74 79 70 65 20 68 6c 2d .f-str.f-name.f-attrs.f-type.hl-
2ef60 66 61 63 65 20 6c 65 66 74 20 72 69 67 68 74 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 68 6c 2d face.left.right).......(setq.hl-
2ef80 66 61 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 28 65 71 20 28 6f 72 20 66 2d face.............(and.(eq.(or.f-
2efa0 62 65 67 20 6c 2d 62 65 67 29 20 70 6f 73 29 20 64 69 72 76 69 73 68 2d 68 69 64 65 2d 63 75 72 beg.l-beg).pos).dirvish-hide-cur
2efc0 73 6f 72 20 27 64 69 72 76 69 73 68 2d 68 6c 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 28 77 68 sor.'dirvish-hl-line)).......(wh
2efe0 65 6e 20 66 2d 62 65 67 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 66 2d 73 74 72 20 28 62 75 en.f-beg.........(setq.f-str.(bu
2f000 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 66 2d 62 65 67 20 66 2d 65 6e 64 29 0a 20 20 20 20 ffer-substring.f-beg.f-end).....
2f020 20 20 20 20 20 20 20 20 20 20 66 2d 77 69 64 20 28 73 74 72 69 6e 67 2d 77 69 64 74 68 20 66 2d ..........f-wid.(string-width.f-
2f040 73 74 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 2d 6e 61 6d 65 20 28 63 6f 6e 63 61 str)...............f-name.(conca
2f060 74 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 20 66 2d 73 74 t.(dired-current-directory).f-st
2f080 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 2d 61 74 74 72 73 20 28 64 69 72 76 69 73 r)...............f-attrs.(dirvis
2f0a0 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 6d 65 20 3a 62 75 69 6c 74 69 h-attribute-cache.f-name.:builti
2f0c0 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 20 28 75 6e 6c 65 73 n.........................(unles
2f0e0 73 20 72 65 6d 6f 74 65 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 2d 6e 61 6d 65 s.remote.(file-attributes.f-name
2f100 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 2d 74 79 70 65 20 28 64 69 72 76 69 73 )))...............f-type.(dirvis
2f120 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 6d 65 20 3a 74 79 70 65 0a 20 h-attribute-cache.f-name.:type..
2f140 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 63 68 20 ......................(let.((ch.
2f160 28 70 72 6f 67 6e 20 28 62 61 63 6b 2d 74 6f 2d 69 6e 64 65 6e 74 61 74 69 6f 6e 29 20 28 63 68 (progn.(back-to-indentation).(ch
2f180 61 72 2d 61 66 74 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ar-after))))....................
2f1a0 20 20 20 20 20 20 60 28 2c 28 69 66 20 28 65 71 20 63 68 20 31 30 30 29 20 27 64 69 72 20 27 66 ......`(,(if.(eq.ch.100).'dir.'f
2f1c0 69 6c 65 29 20 2e 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 ile)...nil)))).........(unless.(
2f1e0 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 20 66 2d 62 65 67 20 27 6d 6f 75 73 65 2d 66 get-text-property.f-beg.'mouse-f
2f200 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 73 65 74 ace)...........(dired-insert-set
2f220 2d 70 72 6f 70 65 72 74 69 65 73 20 6c 2d 62 65 67 20 6c 2d 65 6e 64 29 29 29 0a 20 20 20 20 20 -properties.l-beg.l-end)))......
2f240 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 66 6f 72 20 66 6e 20 69 6e 20 28 69 66 20 66 .(cl-loop........for.fn.in.(if.f
2f260 2d 62 65 67 20 66 6e 73 20 27 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 68 6c 2d -beg.fns.'(dirvish-attribute-hl-
2f280 6c 69 6e 65 2d 72 64 29 29 0a 20 20 20 20 20 20 20 66 6f 72 20 28 6b 20 2e 20 76 29 20 3d 20 28 line-rd))........for.(k...v).=.(
2f2a0 66 75 6e 63 61 6c 6c 20 66 6e 20 66 2d 62 65 67 20 66 2d 65 6e 64 20 66 2d 73 74 72 20 66 2d 6e funcall.fn.f-beg.f-end.f-str.f-n
2f2c0 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 20 ame.............................
2f2e0 20 20 66 2d 61 74 74 72 73 20 66 2d 74 79 70 65 20 6c 2d 62 65 67 20 6c 2d 65 6e 64 20 68 6c 2d ..f-attrs.f-type.l-beg.l-end.hl-
2f300 66 61 63 65 29 0a 20 20 20 20 20 20 20 64 6f 20 28 70 63 61 73 65 20 6b 20 28 27 6f 76 20 28 6f face)........do.(pcase.k.('ov.(o
2f320 76 65 72 6c 61 79 2d 70 75 74 20 76 20 6f 76 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 verlay-put.v.ov.t)).............
2f340 20 20 20 20 20 28 27 6c 65 66 74 20 28 73 65 74 71 20 6c 65 66 74 20 28 63 6f 6e 63 61 74 20 76 .....('left.(setq.left.(concat.v
2f360 20 6c 65 66 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 27 72 69 67 68 .left)))..................('righ
2f380 74 20 28 73 65 74 71 20 72 69 67 68 74 20 28 63 6f 6e 63 61 74 20 76 20 72 69 67 68 74 29 29 29 t.(setq.right.(concat.v.right)))
2f3a0 29 0a 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 0a 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 28 )........finally........(prog1.(
2f3c0 75 6e 6c 65 73 73 20 28 6f 72 20 6c 65 66 74 20 72 69 67 68 74 29 20 28 63 6c 2d 72 65 74 75 72 unless.(or.left.right).(cl-retur
2f3e0 6e 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 6c 65 6e 31 20 28 6c 65 6e 67 74 n))..........(let*.((len1.(lengt
2f400 68 20 72 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 61 69 h.right)).................(remai
2f420 6e 20 28 2d 20 77 69 64 74 68 20 6c 65 6e 31 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 n.(-.width.len1.................
2f440 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 ...........(or.(get-text-propert
2f460 79 20 6c 2d 62 65 67 20 27 6c 69 6e 65 2d 70 72 65 66 69 78 29 20 30 29 29 29 0a 20 20 20 20 20 y.l-beg.'line-prefix).0)))......
2f480 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 6e 32 20 28 6d 69 6e 20 28 6c 65 6e 67 74 68 20 6c 65 ...........(len2.(min.(length.le
2f4a0 66 74 29 20 28 6d 61 78 20 30 20 28 2d 20 72 65 6d 61 69 6e 20 66 2d 77 69 64 20 31 29 29 29 29 ft).(max.0.(-.remain.f-wid.1))))
2f4c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 6c 20 28 6d 61 6b 65 2d 6f 76 65 72 .................(ovl.(make-over
2f4e0 6c 61 79 20 66 2d 65 6e 64 20 66 2d 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 lay.f-end.f-end))...............
2f500 20 20 28 72 2d 70 6f 73 20 28 69 66 20 28 3e 20 72 65 6d 61 69 6e 20 66 2d 77 69 64 29 20 6c 2d ..(r-pos.(if.(>.remain.f-wid).l-
2f520 65 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 28 6c 65 end..........................(le
2f540 74 20 28 28 65 6e 64 20 28 2b 20 66 2d 62 65 67 20 72 65 6d 61 69 6e 29 29 0a 20 20 20 20 20 20 t.((end.(+.f-beg.remain)).......
2f560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 66 66 73 65 74 .........................(offset
2f580 20 28 2d 20 66 2d 77 69 64 20 28 6c 65 6e 67 74 68 20 66 2d 73 74 72 29 29 29 29 0a 20 20 20 20 .(-.f-wid.(length.f-str)))).....
2f5a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 2d 20 65 6e 64 20 6f 66 .......................(-.end.of
2f5c0 66 73 65 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 70 65 63 20 60 fset)))).................(spec.`
2f5e0 28 73 70 61 63 65 20 3a 61 6c 69 67 6e 2d 74 6f 20 28 2d 20 72 69 67 68 74 2d 66 72 69 6e 67 65 (space.:align-to.(-.right-fringe
2f600 20 2c 6c 65 6e 31 20 2c 61 6c 69 67 6e 2d 74 6f 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 .,len1.,align-to))).............
2f620 20 20 20 20 28 73 70 63 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 64 69 73 70 6c 61 ....(spc.(propertize.".".'displa
2f640 79 20 73 70 65 63 20 27 66 61 63 65 20 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 y.spec.'face.hl-face))..........
2f660 20 20 20 20 20 20 20 28 6f 76 72 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 72 2d 70 6f 73 20 .......(ovr.(make-overlay.r-pos.
2f680 72 2d 70 6f 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 r-pos)))............(overlay-put
2f6a0 20 6f 76 6c 20 27 64 69 72 76 69 73 68 2d 6c 2d 65 6e 64 2d 6f 76 20 74 29 0a 20 20 20 20 20 20 .ovl.'dirvish-l-end-ov.t).......
2f6c0 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 6c 20 27 61 66 74 65 72 2d 73 74 72 .....(overlay-put.ovl.'after-str
2f6e0 69 6e 67 20 28 73 75 62 73 74 72 69 6e 67 20 28 6f 72 20 6c 65 66 74 20 22 22 29 20 30 20 6c 65 ing.(substring.(or.left."").0.le
2f700 6e 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 72 n2))............(overlay-put.ovr
2f720 20 27 64 69 72 76 69 73 68 2d 72 2d 65 6e 64 2d 6f 76 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 .'dirvish-r-end-ov.t)...........
2f740 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 72 20 27 61 66 74 65 72 2d 73 74 72 69 6e 67 20 .(overlay-put.ovr.'after-string.
2f760 28 63 6f 6e 63 61 74 20 73 70 63 20 72 69 67 68 74 29 29 29 29 29 29 0a 20 20 20 20 28 66 6f 72 (concat.spc.right)))))).....(for
2f780 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d ward-line.1)))..(defun.dirvish--
2f7a0 72 65 6e 64 65 72 2d 61 74 74 72 73 20 28 26 6f 70 74 69 6f 6e 61 6c 20 63 6c 65 61 72 29 0a 20 render-attrs.(&optional.clear)..
2f7c0 20 22 52 65 6e 64 65 72 20 6f 72 20 43 4c 45 41 52 20 61 74 74 72 69 62 75 74 65 73 20 69 6e 20 ."Render.or.CLEAR.attributes.in.
2f7e0 44 56 27 73 20 64 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 DV's.dirvish.buffer."...(cl-loop
2f800 20 77 69 74 68 20 72 65 6d 6f 74 65 20 3d 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 .with.remote.=.(dirvish-prop.:re
2f820 6d 6f 74 65 29 20 77 69 74 68 20 67 75 69 20 3d 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a mote).with.gui.=.(dirvish-prop.:
2f840 67 75 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 66 6e 73 20 3d 20 28 29 20 77 69 gui)............with.fns.=.().wi
2f860 74 68 20 68 65 69 67 68 74 20 3d 20 28 66 72 61 6d 65 2d 68 65 69 67 68 74 29 0a 20 20 20 20 20 th.height.=.(frame-height)......
2f880 20 20 20 20 20 20 77 69 74 68 20 72 65 6d 61 69 6e 20 3d 20 28 2d 20 28 77 69 6e 64 6f 77 2d 77 ......with.remain.=.(-.(window-w
2f8a0 69 64 74 68 29 20 28 69 66 20 67 75 69 20 31 20 32 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 idth).(if.gui.1.2))............f
2f8c0 6f 72 20 28 5f 20 77 69 64 74 68 20 70 72 65 64 20 72 65 6e 64 65 72 20 6f 76 29 20 69 6e 20 64 or.(_.width.pred.render.ov).in.d
2f8e0 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 61 74 74 72 73 0a 20 20 20 20 20 20 20 20 20 20 irvish--working-attrs...........
2f900 20 64 6f 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 .do.(remove-overlays.(point-min)
2f920 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 6f 76 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 77 68 .(point-max).ov.t)............wh
2f940 65 6e 20 28 65 76 61 6c 20 70 72 65 64 20 60 28 28 77 69 6e 2d 77 69 64 74 68 20 2e 20 2c 72 65 en.(eval.pred.`((win-width...,re
2f960 6d 61 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 73 65 74 71 20 72 65 6d 61 main)))............do.(setq.rema
2f980 69 6e 20 28 2d 20 72 65 6d 61 69 6e 20 77 69 64 74 68 29 29 20 28 70 75 73 68 20 72 65 6e 64 65 in.(-.remain.width)).(push.rende
2f9a0 72 20 66 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 69 6e 69 74 69 61 6c 6c 79 0a 20 20 20 20 r.fns)............initially.....
2f9c0 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 20 28 70 6f 69 6e 74 2d 6d .......(remove-overlays.(point-m
2f9e0 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 64 69 72 76 69 73 68 2d 6c 2d 65 6e 64 2d 6f in).(point-max).'dirvish-l-end-o
2fa00 76 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 v.t)............(remove-overlays
2fa20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 20 27 64 69 72 76 69 73 .(point-min).(point-max).'dirvis
2fa40 68 2d 72 2d 65 6e 64 2d 6f 76 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 66 69 6e 61 6c 6c 79 h-r-end-ov.t)............finally
2fa60 0a 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 69 6c 65 6e 74 2d 6d 6f 64 69 66 69 63 ............(with-silent-modific
2fa80 61 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 63 6c 65 61 ations..............(unless.clea
2faa0 72 0a 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 72 73 69 6f 6e r................(save-excursion
2fac0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 ..................(dirvish--rend
2fae0 65 72 2d 61 74 74 72 73 2d 31 20 68 65 69 67 68 74 20 72 65 6d 61 69 6e 20 28 70 6f 69 6e 74 29 er-attrs-1.height.remain.(point)
2fb00 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 ................................
2fb20 20 20 20 20 20 20 20 20 20 20 20 72 65 6d 6f 74 65 20 66 6e 73 20 6f 76 20 28 69 66 20 67 75 69 ...........remote.fns.ov.(if.gui
2fb40 20 30 20 32 29 29 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 41 64 76 69 63 65 73 0a 0a 28 64 65 66 75 .0.2)))))))..;;;;.Advices..(defu
2fb60 6e 20 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 28 26 6f 70 74 69 6f 6e 61 n.dirvish-find-entry-a.(&optiona
2fb80 6c 20 65 6e 74 72 79 29 0a 20 20 22 46 69 6e 64 20 45 4e 54 52 59 20 69 6e 20 63 75 72 72 65 6e l.entry)..."Find.ENTRY.in.curren
2fba0 74 20 64 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 2e 0a 45 4e 54 52 59 20 63 61 6e 20 62 65 20 t.dirvish.session..ENTRY.can.be.
2fbc0 61 20 66 69 6c 65 6e 61 6d 65 20 6f 72 20 61 20 73 74 72 69 6e 67 20 77 69 74 68 20 66 6f 72 6d a.filename.or.a.string.with.form
2fbe0 61 74 20 6f 66 0a 60 64 69 72 76 69 73 68 2d 66 64 2d 62 75 66 6e 61 6d 65 27 20 75 73 65 64 20 at.of.`dirvish-fd-bufname'.used.
2fc00 74 6f 20 71 75 65 72 79 20 6f 72 20 63 72 65 61 74 65 20 61 20 60 66 64 27 20 72 65 73 75 6c 74 to.query.or.create.a.`fd'.result
2fc20 0a 62 75 66 66 65 72 2c 20 69 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 66 69 6c 65 6e 61 6d 65 .buffer,.it.defaults.to.filename
2fc40 20 75 6e 64 65 72 20 74 68 65 20 63 75 72 73 6f 72 20 77 68 65 6e 20 69 74 20 69 73 20 6e 69 6c .under.the.cursor.when.it.is.nil
2fc60 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 65 6e 74 72 79 20 28 6f 72 20 65 6e 74 72 79 20 28 64 69 ."...(let*.((entry.(or.entry.(di
2fc80 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 red-get-filename.nil.t))).......
2fca0 20 20 20 28 62 75 66 66 65 72 20 28 63 6f 6e 64 20 28 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 ...(buffer.(cond.((string-prefix
2fcc0 2d 70 20 22 f0 9f 94 8d 22 20 65 6e 74 72 79 29 20 28 64 69 72 76 69 73 68 2d 66 64 2d 66 69 6e -p."....".entry).(dirvish-fd-fin
2fce0 64 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 20 20 20 20 20 20 d.entry)).......................
2fd00 20 28 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 65 6e 74 72 79 29 20 28 64 69 72 65 .((file-directory-p.entry).(dire
2fd20 64 2d 6e 6f 73 65 6c 65 63 74 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 d-noselect.entry))..............
2fd40 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 ..........((string-suffix-p."/".
2fd60 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 20 20 20 28 entry).........................(
2fd80 75 73 65 72 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 user-error......................
2fda0 20 20 20 20 28 63 6f 6e 63 61 74 20 65 6e 74 72 79 20 22 20 69 73 20 6e 6f 74 20 61 20 76 61 6c ....(concat.entry.".is.not.a.val
2fdc0 69 64 20 64 69 72 65 63 74 6f 72 79 22 29 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 62 75 66 66 id.directory")))))).....(if.buff
2fde0 65 72 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 29 0a 20 20 20 er.(switch-to-buffer.buffer)....
2fe00 20 20 20 28 6c 65 74 2a 20 28 28 65 78 74 20 28 64 6f 77 6e 63 61 73 65 20 28 6f 72 20 28 66 69 ...(let*.((ext.(downcase.(or.(fi
2fe20 6c 65 2d 6e 61 6d 65 2d 65 78 74 65 6e 73 69 6f 6e 20 65 6e 74 72 79 29 20 22 22 29 29 29 0a 20 le-name-extension.entry)."")))..
2fe40 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e ............(file.(expand-file-n
2fe60 61 6d 65 20 65 6e 74 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 65 73 ame.entry))..............(proces
2fe80 73 2d 63 6f 6e 6e 65 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 s-connection-type.nil)..........
2fea0 20 20 20 20 28 65 78 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ....(ex.(cl-loop................
2fec0 20 20 20 66 6f 72 20 28 65 78 74 73 20 2e 20 28 63 6d 64 20 2e 20 61 72 67 73 29 29 20 69 6e 20 ...for.(exts...(cmd...args)).in.
2fee0 64 69 72 76 69 73 68 2d 6f 70 65 6e 2d 77 69 74 68 2d 70 72 6f 67 72 61 6d 73 0a 20 20 20 20 20 dirvish-open-with-programs......
2ff00 20 20 20 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 61 6e 64 20 28 6e 6f 74 20 28 .............thereis.(and.(not.(
2ff20 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 dirvish-prop.:remote))..........
2ff40 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 65 63 75 74 61 62 6c ......................(executabl
2ff60 65 2d 66 69 6e 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 20 20 e-find.cmd).....................
2ff80 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 6d 62 65 72 20 65 78 74 20 65 78 74 73 29 0a 20 20 20 ...........(member.ext.exts)....
2ffa0 20 20 20 20 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 70 70 ............................(app
2ffc0 65 6e 64 20 28 6c 69 73 74 20 63 6d 64 29 20 61 72 67 73 29 29 29 29 29 0a 20 20 20 20 20 20 20 end.(list.cmd).args)))))........
2ffe0 20 28 69 66 20 65 78 20 28 61 70 70 6c 79 20 23 27 73 74 61 72 74 2d 70 72 6f 63 65 73 73 20 22 .(if.ex.(apply.#'start-process."
30000 22 20 6e 69 6c 20 22 6e 6f 68 75 70 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ".nil."nohup"...................
30020 20 20 20 20 28 63 6c 2d 73 75 62 73 74 69 74 75 74 65 20 66 69 6c 65 20 22 25 66 22 20 65 78 20 ....(cl-substitute.file."%f".ex.
30040 3a 74 65 73 74 20 27 73 74 72 69 6e 67 3d 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 2a :test.'string=))...........(let*
30060 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 20 28 66 6e 20 28 6e 74 68 20 34 .((dv.(dirvish-curr)).(fn.(nth.4
30080 20 28 64 76 2d 74 79 70 65 20 64 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 .(dv-type.dv)))).............(if
300a0 20 66 6e 20 28 66 75 6e 63 61 6c 6c 20 66 6e 29 20 28 64 69 72 76 69 73 68 2d 6b 69 6c 6c 20 64 .fn.(funcall.fn).(dirvish-kill.d
300c0 76 29 29 29 0a 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 29 29 v)))...........(find-file.file))
300e0 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 69 6e 73 65 72 74 2d 73 75 62 64 ))))..(defun.dirvish-insert-subd
30100 69 72 2d 61 20 28 64 69 72 6e 61 6d 65 20 26 72 65 73 74 20 5f 29 0a 20 20 22 53 65 74 75 70 20 ir-a.(dirname.&rest._)..."Setup.
30120 6e 65 77 6c 79 20 69 6e 73 65 72 74 65 64 20 73 75 62 64 69 72 20 44 49 52 4e 41 4d 45 20 66 6f newly.inserted.subdir.DIRNAME.fo
30140 72 20 74 68 69 73 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 69 72 76 69 r.this.Dirvish.buffer."...(dirvi
30160 73 68 2d 2d 68 69 64 65 2d 64 69 72 65 64 2d 68 65 61 64 65 72 29 0a 20 20 28 64 69 72 76 69 73 sh--hide-dired-header)...(dirvis
30180 68 2d 64 61 74 61 2d 66 6f 72 2d 64 69 72 20 64 69 72 6e 61 6d 65 20 28 63 75 72 72 65 6e 74 2d h-data-for-dir.dirname.(current-
301a0 62 75 66 66 65 72 29 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 77 64 buffer).nil))..(defun.dirvish-wd
301c0 69 72 65 64 2d 65 6e 74 65 72 2d 61 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 41 64 76 69 63 65 ired-enter-a.(&rest._)..."Advice
301e0 20 66 6f 72 20 60 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f .for.`wdired-change-to-wdired-mo
30200 64 65 27 2e 22 0a 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 68 69 64 65 2d 63 75 72 73 6f de'."...(when.dirvish-hide-curso
30220 72 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 r.(dired-move-to-end-of-filename
30240 20 74 29 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 63 75 72 73 6f 72 2d 74 79 70 65 20 27 .t))...(setq-local.cursor-type.'
30260 68 6f 6c 6c 6f 77 29 0a 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 70 20 27 65 76 69 6c 2d 6e 6f hollow)...(when.(boundp.'evil-no
30280 72 6d 61 6c 2d 73 74 61 74 65 2d 63 75 72 73 6f 72 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 rmal-state-cursor).....(setq-loc
302a0 61 6c 20 65 76 69 6c 2d 6e 6f 72 6d 61 6c 2d 73 74 61 74 65 2d 63 75 72 73 6f 72 20 27 68 6f 6c al.evil-normal-state-cursor.'hol
302c0 6c 6f 77 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 65 72 2d 61 74 74 72 73 20 27 low))...(dirvish--render-attrs.'
302e0 63 6c 65 61 72 29 0a 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 63 6f clear)...(remove-hook.'window-co
30300 6e 66 69 67 75 72 61 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 nfiguration-change-hook.#'dirvis
30320 68 2d 77 69 6e 63 6f 6e 66 2d 63 68 61 6e 67 65 2d 68 20 74 29 0a 20 20 28 72 65 6d 6f 76 65 2d h-winconf-change-h.t)...(remove-
30340 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 hook.'post-command-hook.#'dirvis
30360 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 20 74 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 h-update-body-h.t))..(defun.dirv
30380 69 73 68 2d 74 68 75 6d 62 2d 62 75 66 2d 61 20 28 66 6e 29 0a 20 20 22 41 64 76 69 63 65 20 66 ish-thumb-buf-a.(fn)..."Advice.f
303a0 6f 72 20 46 4e 20 60 69 6d 61 67 65 2d 64 69 72 65 64 2d 63 72 65 61 74 65 2d 74 68 75 6d 62 6e or.FN.`image-dired-create-thumbn
303c0 61 69 6c 2d 62 75 66 66 65 72 27 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 64 76 20 64 ail-buffer'."...(when-let.((dv.d
303e0 69 72 76 69 73 68 2d 2d 74 68 69 73 29 20 28 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f irvish--this).((dv-preview-windo
30400 77 20 64 76 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 w.dv))).....(dirvish--init-sessi
30420 6f 6e 20 64 76 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 on.dv).....(with-selected-window
30440 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 64 76 29 0a 20 20 20 20 20 20 28 73 .(dv-preview-window.dv).......(s
30460 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 69 6d 61 67 65 2d 64 69 72 65 64 2d 74 68 75 6d witch-to-buffer.image-dired-thum
30480 62 6e 61 69 6c 2d 62 75 66 66 65 72 29 29 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 20 28 66 75 bnail-buffer)))...(let.((buf.(fu
304a0 6e 63 61 6c 6c 20 66 6e 29 29 0a 20 20 20 20 20 20 20 20 28 66 75 6e 20 28 6c 61 6d 62 64 61 20 ncall.fn)).........(fun.(lambda.
304c0 28 29 20 28 6c 65 74 20 28 28 62 75 66 20 28 67 65 74 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 79 ().(let.((buf.(get-text-property
304e0 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 ................................
30500 28 70 6f 69 6e 74 29 20 27 61 73 73 6f 63 69 61 74 65 64 2d 64 69 72 65 64 2d 62 75 66 66 65 72 (point).'associated-dired-buffer
30520 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 61 6e 64 20 28 62 )))......................(and.(b
30540 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 uffer-live-p.buf)...............
30560 20 20 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 ............(with-current-buffer
30580 20 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 65 72 2d 61 74 74 72 73 29 29 29 29 29 .buf.(dirvish--render-attrs)))))
305a0 29 29 0a 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 62 75 66 20 )).....(with-current-buffer.buf.
305c0 28 61 64 64 2d 68 6f 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 66 75 6e (add-hook.'post-command-hook.fun
305e0 20 6e 69 6c 20 74 29 29 20 62 75 66 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 64 .nil.t)).buf))..(defun.dirvish-d
30600 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 2d 61 20 28 66 6e 20 64 69 72 20 26 6f 70 74 69 6f 6e 61 ired-noselect-a.(fn.dir.&optiona
30620 6c 20 66 6c 61 67 73 29 0a 20 20 22 52 65 74 75 72 6e 20 62 75 66 66 65 72 20 66 6f 72 20 44 49 l.flags)..."Return.buffer.for.DI
30640 52 20 77 69 74 68 20 46 4c 41 47 53 2c 20 46 4e 20 69 73 20 60 64 69 72 65 64 2d 6e 6f 73 65 6c R.with.FLAGS,.FN.is.`dired-nosel
30660 65 63 74 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6b 65 79 20 28 66 69 6c 65 2d 6e 61 6d 65 2d ect'."...(let*.((key.(file-name-
30680 61 73 2d 64 69 72 65 63 74 6f 72 79 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 as-directory.(expand-file-name.d
306a0 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 74 68 69 73 20 64 69 72 76 69 73 68 2d 2d 74 68 ir)))..........(this.dirvish--th
306c0 69 73 29 0a 20 20 20 20 20 20 20 20 20 28 64 76 20 28 69 66 20 28 61 6e 64 20 74 68 69 73 20 28 is)..........(dv.(if.(and.this.(
306e0 65 71 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 20 27 64 69 72 65 64 2d 6f 74 68 65 72 2d 66 72 61 eq.this-command.'dired-other-fra
30700 6d 65 29 29 20 28 64 69 72 76 69 73 68 2d 6e 65 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 me)).(dirvish-new)..............
30720 20 20 28 6f 72 20 74 68 69 73 20 28 63 61 72 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 72 ..(or.this.(car.(dirvish--find-r
30740 65 75 73 61 62 6c 65 29 29 20 28 64 69 72 76 69 73 68 2d 6e 65 77 29 29 29 29 0a 20 20 20 20 20 eusable)).(dirvish-new))))......
30760 20 20 20 20 28 62 6e 61 6d 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 ....(bname.buffer-file-name)....
30780 20 20 20 20 20 20 28 72 65 6d 6f 74 65 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 69 72 ......(remote.(file-remote-p.dir
307a0 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6c 61 67 73 20 28 6f 72 20 66 6c 61 67 73 20 28 64 76 ))..........(flags.(or.flags.(dv
307c0 2d 6c 73 2d 73 77 69 74 63 68 65 73 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 -ls-switches.dv)))..........(buf
307e0 66 65 72 20 28 61 6c 69 73 74 2d 67 65 74 20 6b 65 79 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 fer.(alist-get.key.(dv-roots.dv)
30800 20 6e 69 6c 20 6e 69 6c 20 23 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 .nil.nil.#'equal))..........(new
30820 2d 62 75 66 66 65 72 2d 70 20 28 6e 6f 74 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 69 66 -buffer-p.(not.buffer))).....(if
30840 20 74 68 69 73 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 6e 69 .this.(set-window-dedicated-p.ni
30860 6c 20 6e 69 6c 29 20 28 73 65 74 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 20 6e 69 l.nil).(setcar.(dv-layout.dv).ni
30880 6c 29 29 0a 20 20 20 20 28 77 68 65 6e 20 6e 65 77 2d 62 75 66 66 65 72 2d 70 0a 20 20 20 20 20 l)).....(when.new-buffer-p......
308a0 20 28 69 66 20 28 6e 6f 74 20 72 65 6d 6f 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 .(if.(not.remote)...........(let
308c0 20 28 28 64 69 72 65 64 2d 62 75 66 66 65 72 73 20 6e 69 6c 29 29 20 3b 20 64 69 73 61 62 6c 65 .((dired-buffers.nil)).;.disable
308e0 20 72 65 75 73 65 20 66 72 6f 6d 20 64 69 72 65 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 .reuse.from.dired.............(s
30900 65 74 71 20 62 75 66 66 65 72 20 28 61 70 70 6c 79 20 66 6e 20 28 6c 69 73 74 20 64 69 72 20 66 etq.buffer.(apply.fn.(list.dir.f
30920 6c 61 67 73 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 lags)))).........(require.'dirvi
30940 73 68 2d 65 78 74 72 61 73 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 62 75 66 66 65 72 20 sh-extras).........(setq.buffer.
30960 28 64 69 72 76 69 73 68 2d 6e 6f 73 65 6c 65 63 74 2d 74 72 61 6d 70 20 66 6e 20 64 69 72 20 66 (dirvish-noselect-tramp.fn.dir.f
30980 6c 61 67 73 20 72 65 6d 6f 74 65 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 lags.remote))).......(with-curre
309a0 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 20 28 64 69 72 76 69 73 68 2d 69 6e 69 74 2d 64 nt-buffer.buffer.(dirvish-init-d
309c0 69 72 65 64 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 ired-buffer)).......(push.(cons.
309e0 6b 65 79 20 62 75 66 66 65 72 29 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 29 0a 20 20 20 20 20 key.buffer).(dv-roots.dv))......
30a00 20 28 70 75 73 68 20 28 63 6f 6e 73 20 6b 65 79 20 62 75 66 66 65 72 29 20 64 69 72 65 64 2d 62 .(push.(cons.key.buffer).dired-b
30a20 75 66 66 65 72 73 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 uffers)).....(with-current-buffe
30a40 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 6e 65 77 2d 62 75 66 66 65 72 r.buffer.......(cond.(new-buffer
30a60 2d 70 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 6e 6f 74 20 72 -p.nil).............((and.(not.r
30a80 65 6d 6f 74 65 29 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 66 6c 61 67 73 20 64 69 72 65 64 2d 61 emote).(not.(equal.flags.dired-a
30aa0 63 74 75 61 6c 2d 73 77 69 74 63 68 65 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 ctual-switches)))..............(
30ac0 64 69 72 65 64 2d 73 6f 72 74 2d 6f 74 68 65 72 20 66 6c 61 67 73 29 29 0a 20 20 20 20 20 20 20 dired-sort-other.flags))........
30ae0 20 20 20 20 20 28 28 65 71 20 64 69 72 65 64 2d 61 75 74 6f 2d 72 65 76 65 72 74 2d 62 75 66 66 .....((eq.dired-auto-revert-buff
30b00 65 72 20 74 29 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 0a 09 20 20 20 20 28 28 66 75 er.t).(revert-buffer))......((fu
30b20 6e 63 74 69 6f 6e 70 20 64 69 72 65 64 2d 61 75 74 6f 2d 72 65 76 65 72 74 2d 62 75 66 66 65 72 nctionp.dired-auto-revert-buffer
30b40 29 0a 09 20 20 20 20 20 28 77 68 65 6e 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 65 64 2d 61 75 74 ).......(when.(funcall.dired-aut
30b60 6f 2d 72 65 76 65 72 74 2d 62 75 66 66 65 72 20 64 69 72 29 20 28 72 65 76 65 72 74 2d 62 75 66 o-revert-buffer.dir).(revert-buf
30b80 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 64 76 20 fer)))).......(dirvish-prop.:dv.
30ba0 28 64 76 2d 6e 61 6d 65 20 64 76 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f (dv-name.dv)).......(dirvish-pro
30bc0 70 20 3a 67 75 69 20 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 29 0a 20 20 20 20 p.:gui.(display-graphic-p)).....
30be0 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 20 72 65 6d 6f 74 65 29 0a ..(dirvish-prop.:remote.remote).
30c00 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 6f 6f 74 20 6b 65 79 29 0a 20 ......(dirvish-prop.:root.key)..
30c20 20 20 20 20 20 28 77 68 65 6e 20 62 6e 61 6d 65 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c .....(when.bname.(dired-goto-fil
30c40 65 20 62 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 69 6e 64 65 78 20 e.bname)).......(setf.(dv-index.
30c60 64 76 29 20 28 63 6f 6e 73 20 6b 65 79 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 72 75 dv).(cons.key.buffer)).......(ru
30c80 6e 2d 68 6f 6f 6b 2d 77 69 74 68 2d 61 72 67 73 20 27 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 n-hook-with-args.'dirvish-find-e
30ca0 6e 74 72 79 2d 68 6f 6f 6b 20 6b 65 79 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 62 75 66 66 ntry-hook.key.buffer).......buff
30cc0 65 72 29 29 29 0a 0a 3b 3b 3b 3b 20 48 6f 6f 6b 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 er)))..;;;;.Hooks..(defun.dirvis
30ce0 68 2d 61 70 70 6c 79 2d 61 6e 73 69 63 6f 6c 6f 72 2d 68 20 28 5f 77 69 6e 20 70 6f 73 29 0a 20 h-apply-ansicolor-h.(_win.pos)..
30d00 20 22 55 70 64 61 74 65 20 64 69 72 76 69 73 68 20 61 6e 73 69 63 6f 6c 6f 72 20 69 6e 20 70 72 ."Update.dirvish.ansicolor.in.pr
30d20 65 76 69 65 77 20 77 69 6e 64 6f 77 20 66 72 6f 6d 20 50 4f 53 2e 22 0a 20 20 28 61 6e 73 69 2d eview.window.from.POS."...(ansi-
30d40 63 6f 6c 6f 72 2d 61 70 70 6c 79 2d 6f 6e 2d 72 65 67 69 6f 6e 0a 20 20 20 28 67 6f 74 6f 2d 63 color-apply-on-region....(goto-c
30d60 68 61 72 20 70 6f 73 29 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 28 66 har.pos).(progn.(forward-line.(f
30d80 72 61 6d 65 2d 68 65 69 67 68 74 29 29 20 28 70 6f 69 6e 74 29 29 29 29 0a 0a 28 64 65 66 75 6e rame-height)).(point))))..(defun
30da0 20 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 20 28 26 6f 70 74 69 6f 6e 61 .dirvish-update-body-h.(&optiona
30dc0 6c 20 66 6f 72 63 65 29 0a 20 20 22 55 70 64 61 74 65 20 55 49 20 6f 66 20 63 75 72 72 65 6e 74 l.force)..."Update.UI.of.current
30de0 20 44 69 72 76 69 73 68 2e 0a 57 68 65 6e 20 46 4f 52 43 45 2c 20 65 6e 73 75 72 65 20 74 68 65 .Dirvish..When.FORCE,.ensure.the
30e00 20 70 72 65 76 69 65 77 20 67 65 74 20 72 65 66 72 65 73 68 65 64 2e 22 0a 20 20 28 77 68 65 6e .preview.get.refreshed."...(when
30e20 2d 6c 65 74 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a 20 20 20 20 28 -let.((dv.(dirvish-curr))).....(
30e40 63 6f 6e 64 20 28 28 6e 6f 74 20 64 69 72 76 69 73 68 2d 68 69 64 65 2d 63 75 72 73 6f 72 29 29 cond.((not.dirvish-hide-cursor))
30e60 0a 20 20 20 20 20 20 20 20 20 20 28 28 65 6f 62 70 29 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 ...........((eobp).(forward-line
30e80 20 2d 31 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 63 64 72 20 64 69 72 65 64 2d 73 75 62 64 .-1))...........((cdr.dired-subd
30ea0 69 72 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 20 28 62 6f 62 70 ir-alist))...........((and.(bobp
30ec0 29 20 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 29 0a 20 20 20 20 20 ).dirvish-use-header-line)......
30ee0 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a ......(goto-char.(dirvish-prop.:
30f00 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 64 69 72 76 content-begin)))).....(when.dirv
30f20 69 73 68 2d 68 69 64 65 2d 63 75 72 73 6f 72 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 ish-hide-cursor.(dired-move-to-f
30f40 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e 64 65 72 2d 61 ilename)).....(dirvish--render-a
30f60 74 74 72 73 29 0a 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 28 ttrs).....(when-let.((filename.(
30f80 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 dired-get-filename.nil.t))).....
30fa0 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 20 66 69 6c 65 6e 61 6d 65 29 ..(dirvish-prop.:index.filename)
30fc0 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 68 2d 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 .......(let.((h-buf.(dirvish--ut
30fe0 69 6c 2d 62 75 66 66 65 72 20 27 68 65 61 64 65 72 20 64 76 20 74 29 29 0a 20 20 20 20 20 20 20 il-buffer.'header.dv.t))........
31000 20 20 20 20 20 28 66 2d 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 .....(f-buf.(dirvish--util-buffe
31020 72 20 27 66 6f 6f 74 65 72 20 64 76 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 r.'footer.dv.t)).............(la
31040 73 74 2d 69 6e 64 65 78 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 6c 61 73 74 2d 69 6e 64 st-index.(dirvish-prop.:last-ind
31060 65 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 6c 61 73 ex))).........(dirvish-prop.:las
31080 74 2d 69 6e 64 65 78 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 t-index.filename).........(dirvi
310a0 73 68 2d 64 65 62 6f 75 6e 63 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6e sh-debounce.nil...........(if.(n
310c0 6f 74 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 ot.(car.(dv-layout.dv)))........
310e0 20 20 20 20 20 20 20 28 61 6e 64 20 28 3c 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 .......(and.(<.emacs-major-versi
31100 6f 6e 20 32 39 29 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 29 29 on.29).(force-mode-line-update))
31120 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 64 69 72 76 69 73 68 2d .............(when.(and.dirvish-
31140 75 73 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 66 2d 62 use-mode-line.(buffer-live-p.f-b
31160 75 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 uf))...............(with-current
31180 2d 62 75 66 66 65 72 20 66 2d 62 75 66 20 28 66 6f 72 63 65 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 75 -buffer.f-buf.(force-mode-line-u
311a0 70 64 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 pdate))).............(when.(and.
311c0 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 2d 6c 69 6e 65 20 28 62 75 66 66 65 72 2d dirvish-use-header-line.(buffer-
311e0 6c 69 76 65 2d 70 20 68 2d 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 live-p.h-buf))...............(wi
31200 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 68 2d 62 75 66 20 28 66 6f 72 63 65 2d 6d th-current-buffer.h-buf.(force-m
31220 6f 64 65 2d 6c 69 6e 65 2d 75 70 64 61 74 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ode-line-update))).............(
31240 77 68 65 6e 20 28 6f 72 20 66 6f 72 63 65 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 6c 61 73 74 2d when.(or.force.(not.(equal.last-
31260 69 6e 64 65 78 20 66 69 6c 65 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 index.filename)))...............
31280 28 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d 75 70 64 61 74 65 20 64 76 20 66 69 6c 65 (dirvish--preview-update.dv.file
312a0 6e 61 6d 65 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 69 6e 73 name))))))))..(defun.dirvish-ins
312c0 65 72 74 2d 65 6e 74 72 79 2d 68 20 28 65 6e 74 72 79 20 62 75 66 66 65 72 29 0a 20 20 22 41 64 ert-entry-h.(entry.buffer)..."Ad
312e0 64 20 45 4e 54 52 59 20 6f 72 20 42 55 46 46 45 52 20 6e 61 6d 65 20 74 6f 20 60 64 69 72 76 69 d.ENTRY.or.BUFFER.name.to.`dirvi
31300 73 68 2d 2d 68 69 73 74 6f 72 79 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 65 6e 74 72 79 20 28 69 sh--history'."...(let.((entry.(i
31320 66 20 28 73 74 72 69 6e 67 2d 70 72 65 66 69 78 2d 70 20 22 f0 9f 94 8d 22 20 65 6e 74 72 79 29 f.(string-prefix-p."....".entry)
31340 0a 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 6e 61 6d 65 ....................(buffer-name
31360 20 62 75 66 66 65 72 29 20 65 6e 74 72 79 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 .buffer).entry))).....(setq.dirv
31380 69 73 68 2d 2d 68 69 73 74 6f 72 79 20 28 73 65 71 2d 74 61 6b 65 20 28 70 75 73 68 20 65 6e 74 ish--history.(seq-take.(push.ent
313a0 72 79 20 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 79 29 20 32 30 30 29 29 29 29 0a 0a 28 64 ry.dirvish--history).200))))..(d
313c0 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 20 28 29 0a 20 20 efun.dirvish-kill-buffer-h.()...
313e0 22 52 65 6d 6f 76 65 20 62 75 66 66 65 72 20 66 72 6f 6d 20 73 65 73 73 69 6f 6e 27 73 20 62 75 "Remove.buffer.from.session's.bu
31400 66 66 65 72 20 6c 69 73 74 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 64 76 20 28 64 69 ffer.list."...(when-let.((dv.(di
31420 72 76 69 73 68 2d 63 75 72 72 29 29 20 28 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 rvish-curr)).(buf.(current-buffe
31440 72 29 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d r))).....(let.((win.(get-buffer-
31460 77 69 6e 64 6f 77 20 62 75 66 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 77 69 6e 64 6f window.buf))).......(when.(windo
31480 77 2d 6c 69 76 65 2d 70 20 77 69 6e 29 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 w-live-p.win).(set-window-dedica
314a0 74 65 64 2d 70 20 77 69 6e 20 6e 69 6c 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 72 ted-p.win.nil))).....(setf.(dv-r
314c0 6f 6f 74 73 20 64 76 29 20 28 63 6c 2d 72 65 6d 6f 76 65 2d 69 66 20 28 6c 61 6d 62 64 61 20 28 oots.dv).(cl-remove-if.(lambda.(
314e0 69 29 20 28 65 71 20 28 63 64 72 20 69 29 20 62 75 66 29 29 20 28 64 76 2d 72 6f 6f 74 73 20 64 i).(eq.(cdr.i).buf)).(dv-roots.d
31500 76 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 64 76 2d 72 6f 6f 74 73 20 64 76 29 0a 20 v))).....(unless.(dv-roots.dv)..
31520 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 6c 61 79 6f 75 74 20 28 63 61 72 20 28 64 76 .....(when-let.((layout.(car.(dv
31540 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 -layout.dv)))..................(
31560 77 63 6f 6e 66 20 28 64 76 2d 77 69 6e 63 6f 6e 66 20 64 76 29 29 0a 20 20 20 20 20 20 20 20 20 wconf.(dv-winconf.dv))..........
31580 20 20 20 20 20 20 20 20 28 28 65 71 20 62 75 66 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 ........((eq.buf.(window-buffer.
315a0 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 (selected-window))))).........(s
315c0 65 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 20 77 63 6f 6e 66 29 29 0a et-window-configuration.wconf)).
315e0 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 28 64 76 2d 6e 61 6d 65 20 64 76 29 20 64 69 72 76 ......(remhash.(dv-name.dv).dirv
31600 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 68 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f ish--session-hash).......(cl-loo
31620 70 20 66 6f 72 20 62 20 69 6e 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 20 66 6f 72 20 62 6e 20 p.for.b.in.(buffer-list).for.bn.
31640 3d 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 29 20 77 68 65 6e 0a 20 20 20 20 20 20 20 20 20 =.(buffer-name.b).when..........
31660 20 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 2d 70 20 28 66 6f 72 6d 61 74 20 22 20 ......(string-match-p.(format.".
31680 3f 5c 5c 2a 44 69 72 76 69 73 68 2d 2e 2a 2d 25 73 5c 5c 2a 22 20 28 64 76 2d 6e 61 6d 65 20 64 ?\\*Dirvish-.*-%s\\*".(dv-name.d
316a0 76 29 29 20 62 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 64 69 72 76 69 v)).bn)................do.(dirvi
316c0 73 68 2d 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 62 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 sh--kill-buffer.b)).......(setq.
316e0 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 dirvish--this.nil))))..(defun.di
31700 72 76 69 73 68 2d 73 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 20 28 26 6f 70 74 69 6f rvish-selection-change-h.(&optio
31720 6e 61 6c 20 5f 66 72 61 6d 65 2d 6f 72 2d 77 69 6e 64 6f 77 29 0a 20 20 22 53 61 76 65 20 63 75 nal._frame-or-window)..."Save.cu
31740 72 72 65 6e 74 20 73 65 73 73 69 6f 6e 20 74 6f 20 66 72 61 6d 65 20 70 61 72 61 6d 65 74 65 72 rrent.session.to.frame.parameter
31760 73 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 77 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d s."...(let*.((w.(frame-selected-
31780 77 69 6e 64 6f 77 29 29 20 28 62 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 29 29 20 28 window)).(b.(window-buffer.w)).(
317a0 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 dv.(dirvish-curr))).....(cond.((
317c0 61 6e 64 20 64 76 20 28 6d 69 6e 69 62 75 66 66 65 72 70 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 and.dv.(minibufferp.(window-buff
317e0 65 72 20 64 69 72 76 69 73 68 2d 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 29 0a 20 er.dirvish--selected-window)))..
31800 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 ..........(with-selected-window.
31820 28 64 69 72 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 (dirvish--create-root-window.dv)
31840 0a 20 20 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 ..............(switch-to-buffer.
31860 62 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 b)..............(dirvish--init-s
31880 65 73 73 69 6f 6e 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 63 74 69 76 65 2d ession.dv)))...........((active-
318a0 6d 69 6e 69 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 minibuffer-window))...........(t
318c0 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 64 76 29 29 29 0a 20 20 20 20 28 .(setq.dirvish--this.dv))).....(
318e0 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 29 setq.dirvish--selected-window.w)
31900 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 77 69 6e 63 6f 6e 66 2d 63 68 61 6e 67 ))..(defun.dirvish-winconf-chang
31920 65 2d 68 20 28 29 0a 20 20 22 52 65 73 74 6f 72 65 20 68 69 64 64 65 6e 20 73 65 73 73 69 6f 6e e-h.()..."Restore.hidden.session
31940 73 20 6f 6e 20 62 75 66 66 65 72 20 73 77 69 74 63 68 69 6e 67 2e 22 0a 20 20 28 6c 65 74 20 28 s.on.buffer.switching."...(let.(
31960 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a 20 20 20 20 28 73 65 74 66 20 28 (dv.(dirvish-curr))).....(setf.(
31980 64 76 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 dv-root-window.dv).(get-buffer-w
319a0 69 6e 64 6f 77 20 28 63 64 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 29 29 29 0a 20 20 20 20 indow.(cdr.(dv-index.dv)))).....
319c0 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 20 27 66 6f 72 63 65 2d 70 72 (dirvish-update-body-h.'force-pr
319e0 65 76 69 65 77 2d 75 70 64 61 74 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d eview-update)))..(defun.dirvish-
31a00 77 69 6e 62 75 66 2d 63 68 61 6e 67 65 2d 68 20 28 66 72 61 6d 65 2d 6f 72 2d 77 69 6e 64 6f 77 winbuf-change-h.(frame-or-window
31a20 29 0a 20 20 22 52 65 62 75 69 6c 64 20 6c 61 79 6f 75 74 20 6f 6e 63 65 20 62 75 66 66 65 72 20 )..."Rebuild.layout.once.buffer.
31a40 69 6e 20 46 52 41 4d 45 2d 4f 52 2d 57 49 4e 44 4f 57 20 63 68 61 6e 67 65 64 2e 22 0a 20 20 28 in.FRAME-OR-WINDOW.changed."...(
31a60 6c 65 74 20 28 28 77 69 6e 20 28 66 72 61 6d 65 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 let.((win.(frame-selected-window
31a80 20 66 72 61 6d 65 2d 6f 72 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 .frame-or-window))).....(with-cu
31aa0 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 69 6e 29 rrent-buffer.(window-buffer.win)
31ac0 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 .......(when-let.((dv.(dirvish-c
31ae0 75 72 72 29 29 29 20 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 64 76 urr))).(dirvish--init-session.dv
31b00 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 74 61 62 2d 6e 65 77 2d 70 6f )))))..(defun.dirvish-tab-new-po
31b20 73 74 2d 68 20 28 5f 74 61 62 29 0a 20 20 22 44 6f 20 6e 6f 74 20 72 65 75 73 65 20 73 65 73 73 st-h.(_tab)..."Do.not.reuse.sess
31b40 69 6f 6e 73 20 66 72 6f 6d 20 6f 74 68 65 72 20 74 61 62 73 2e 22 0a 20 20 28 73 65 74 71 20 64 ions.from.other.tabs."...(setq.d
31b60 69 72 76 69 73 68 2d 2d 74 68 69 73 20 6e 69 6c 29 29 0a 0a 3b 3b 3b 3b 20 50 72 65 76 69 65 77 irvish--this.nil))..;;;;.Preview
31b80 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 64 69 73 61 62 6c ..(dirvish-define-preview.disabl
31ba0 65 20 28 66 69 6c 65 20 65 78 74 29 0a 20 20 22 44 69 73 61 62 6c 65 20 70 72 65 76 69 65 77 20 e.(file.ext)..."Disable.preview.
31bc0 69 6e 20 73 6f 6d 65 20 63 61 73 65 73 2e 22 0a 20 20 28 63 6f 6e 64 0a 20 20 20 28 28 6e 6f 74 in.some.cases."...(cond....((not
31be0 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 66 69 6c 65 29 29 0a 20 20 20 20 60 28 69 6e 66 .(file-exists-p.file)).....`(inf
31c00 6f 20 2e 20 2c 28 66 6f 72 6d 61 74 20 22 25 73 20 64 6f 65 73 20 6e 6f 74 20 65 78 69 73 74 22 o...,(format."%s.does.not.exist"
31c20 20 66 69 6c 65 29 29 29 0a 20 20 20 28 28 6e 6f 74 20 28 66 69 6c 65 2d 72 65 61 64 61 62 6c 65 .file)))....((not.(file-readable
31c40 2d 70 20 66 69 6c 65 29 29 0a 20 20 20 20 60 28 69 6e 66 6f 20 2e 20 2c 28 66 6f 72 6d 61 74 20 -p.file)).....`(info...,(format.
31c60 22 25 73 20 69 73 20 6e 6f 74 20 72 65 61 64 61 62 6c 65 22 20 66 69 6c 65 29 29 29 0a 20 20 20 "%s.is.not.readable".file)))....
31c80 28 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 ((member.ext.dirvish-preview-dis
31ca0 61 62 6c 65 64 2d 65 78 74 73 29 0a 20 20 20 20 60 28 69 6e 66 6f 20 2e 20 2c 28 66 6f 72 6d 61 abled-exts).....`(info...,(forma
31cc0 74 20 22 50 72 65 76 69 65 77 20 66 6f 72 20 25 73 20 68 61 73 20 62 65 65 6e 20 64 69 73 61 62 t."Preview.for.%s.has.been.disab
31ce0 6c 65 64 22 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d led".file)))))..(defun.dirvish--
31d00 66 69 6e 64 2d 66 69 6c 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 20 28 6e 61 6d 65 29 0a 20 20 22 find-file-temporarily.(name)..."
31d20 4f 70 65 6e 20 66 69 6c 65 20 4e 41 4d 45 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 66 6f 72 20 70 Open.file.NAME.temporarily.for.p
31d40 72 65 76 69 65 77 2e 22 0a 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 6f 6c 2d 66 75 review."...(cl-letf.(((symbol-fu
31d60 6e 63 74 69 6f 6e 20 27 72 65 63 65 6e 74 66 2d 74 72 61 63 6b 2d 6f 70 65 6e 65 64 2d 66 69 6c nction.'recentf-track-opened-fil
31d80 65 29 20 23 27 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 79 6d 62 6f e).#'ignore).............((symbo
31da0 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 75 6e 64 6f 2d 74 72 65 65 2d 73 61 76 65 2d 68 69 73 74 6f l-function.'undo-tree-save-histo
31dc0 72 79 2d 66 72 6f 6d 2d 68 6f 6f 6b 29 20 23 27 69 67 6e 6f 72 65 29 0a 20 20 20 20 20 20 20 20 ry-from-hook).#'ignore).........
31de0 20 20 20 20 28 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 66 6c 79 63 68 65 63 6b 2d ....((symbol-function.'flycheck-
31e00 6d 6f 64 65 2d 6f 6e 2d 73 61 66 65 29 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 20 20 28 6c 65 mode-on-safe).#'ignore)).....(le
31e20 74 2a 20 28 28 76 63 2d 66 6f 6c 6c 6f 77 2d 73 79 6d 6c 69 6e 6b 73 20 74 29 0a 20 20 20 20 20 t*.((vc-follow-symlinks.t)......
31e40 20 20 20 20 20 20 28 76 61 72 73 20 28 6d 61 70 63 61 72 20 28 70 63 61 73 65 2d 6c 61 6d 62 64 ......(vars.(mapcar.(pcase-lambd
31e60 61 20 28 60 28 2c 6b 20 2e 20 2c 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 a.(`(,k...,v))..................
31e80 20 20 20 20 20 20 20 20 20 20 28 6c 69 73 74 20 6b 20 76 20 28 64 65 66 61 75 6c 74 2d 76 61 6c ..........(list.k.v.(default-val
31ea0 75 65 20 6b 29 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 6b 29 29 29 0a 20 20 20 20 20 20 20 ue.k).(symbol-value.k)))........
31ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 ..................dirvish-previe
31ee0 77 2d 65 6e 76 69 72 6f 6e 6d 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 20 w-environment))............(buf.
31f00 28 75 6e 77 69 6e 64 2d 70 72 6f 74 65 63 74 20 28 70 72 6f 67 6e 20 28 70 63 61 73 65 2d 64 6f (unwind-protect.(progn.(pcase-do
31f20 6c 69 73 74 20 28 60 28 2c 6b 20 2c 76 20 2e 20 2c 5f 29 20 76 61 72 73 29 0a 20 20 20 20 20 20 list.(`(,k.,v...,_).vars).......
31f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
31f60 20 20 20 28 73 65 74 2d 64 65 66 61 75 6c 74 20 6b 20 76 29 20 28 73 65 74 20 6b 20 76 29 29 0a ...(set-default.k.v).(set.k.v)).
31f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
31fa0 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 2d 6e 6f 73 65 6c 65 63 74 20 6e 61 6d 65 20 .......(find-file-noselect.name.
31fc0 27 6e 6f 77 61 72 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 63 61 'nowarn))...................(pca
31fe0 73 65 2d 64 6f 6c 69 73 74 20 28 60 28 2c 6b 20 2c 5f 20 2c 64 20 2c 76 29 20 76 61 72 73 29 0a se-dolist.(`(,k.,_.,d.,v).vars).
32000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 2d 64 65 66 61 75 6c 74 ....................(set-default
32020 20 6b 20 64 29 20 28 73 65 74 20 6b 20 76 29 29 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 .k.d).(set.k.v))))).......(cond.
32040 28 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 20 28 62 75 66 66 65 72 2d 6c 6f 63 61 6c 2d 76 61 ((ignore-errors.(buffer-local-va
32060 6c 75 65 20 27 73 6f 2d 6c 6f 6e 67 2d 64 65 74 65 63 74 65 64 2d 70 20 62 75 66 29 29 0a 20 20 lue.'so-long-detected-p.buf))...
32080 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 0a 20 20 20 ...........(kill-buffer.buf)....
320a0 20 20 20 20 20 20 20 20 20 20 60 28 69 6e 66 6f 20 2e 20 2c 28 66 6f 72 6d 61 74 20 22 46 69 6c ..........`(info...,(format."Fil
320c0 65 20 60 25 73 27 20 77 69 74 68 20 6c 6f 6e 67 20 6c 69 6e 65 73 20 6e 6f 74 20 70 72 65 76 69 e.`%s'.with.long.lines.not.previ
320e0 65 77 65 64 22 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 62 ewed".name))).............(t.`(b
32100 75 66 66 65 72 20 2e 20 2c 62 75 66 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 uffer...,buf))))))..(dirvish-def
32120 69 6e 65 2d 70 72 65 76 69 65 77 20 64 65 66 61 75 6c 74 20 28 66 69 6c 65 20 65 78 74 29 0a 20 ine-preview.default.(file.ext)..
32140 20 22 44 65 66 61 75 6c 74 20 70 72 65 76 69 65 77 20 64 69 73 70 61 74 63 68 65 72 20 66 6f 72 ."Default.preview.dispatcher.for
32160 20 46 49 4c 45 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 61 74 74 72 73 20 28 69 67 6e .FILE."...(when-let.((attrs.(ign
32180 6f 72 65 2d 65 72 72 6f 72 73 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 20 66 69 6c 65 ore-errors.(file-attributes.file
321a0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 69 7a 65 20 28 66 69 6c 65 2d 61 74 74 )))..............(size.(file-att
321c0 72 69 62 75 74 65 2d 73 69 7a 65 20 61 74 74 72 73 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 ribute-size.attrs))).....(cond.(
321e0 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 29 20 3b 20 64 65 66 61 75 6c (file-directory-p.file).;.defaul
32200 74 20 64 69 72 65 63 74 6f 72 79 20 70 72 65 76 69 65 77 65 72 0a 20 20 20 20 20 20 20 20 20 20 t.directory.previewer...........
32220 20 28 6c 65 74 2a 20 28 28 73 63 72 69 70 74 20 60 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 .(let*.((script.`(with-current-b
32240 75 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 20 20 uffer...........................
32260 20 20 20 20 20 28 70 72 6f 67 6e 20 28 73 65 74 71 20 69 6e 73 65 72 74 2d 64 69 72 65 63 74 6f .....(progn.(setq.insert-directo
32280 72 79 2d 70 72 6f 67 72 61 6d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ry-program......................
322a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 69 6e 73 65 72 74 2d 64 .......................,insert-d
322c0 69 72 65 63 74 6f 72 79 2d 70 72 6f 67 72 61 6d 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 irectory-program)...............
322e0 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 69 72 65 64 2d 6e ........................(dired-n
32300 6f 73 65 6c 65 63 74 20 2c 66 69 6c 65 20 22 2d 41 6c 47 68 22 29 29 0a 20 20 20 20 20 20 20 20 oselect.,file."-AlGh")).........
32320 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 73 74 72 .....................(buffer-str
32340 69 6e 67 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6d 64 20 28 66 ing)))...................(cmd.(f
32360 6f 72 6d 61 74 20 22 25 53 22 20 60 28 6d 65 73 73 61 67 65 20 22 5c 6e 25 73 22 20 2c 73 63 72 ormat."%S".`(message."\n%s".,scr
32380 69 70 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 64 69 72 65 64 20 2e 20 28 ipt))))..............`(dired...(
323a0 2c 64 69 72 76 69 73 68 2d 65 6d 61 63 73 2d 62 69 6e 20 22 2d 51 22 20 22 2d 62 61 74 63 68 22 ,dirvish-emacs-bin."-Q"."-batch"
323c0 20 22 2d 2d 65 76 61 6c 22 20 2c 63 6d 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 3e ."--eval".,cmd))))...........((>
323e0 20 73 69 7a 65 20 28 6f 72 20 6c 61 72 67 65 2d 66 69 6c 65 2d 77 61 72 6e 69 6e 67 2d 74 68 72 .size.(or.large-file-warning-thr
32400 65 73 68 6f 6c 64 20 31 30 30 30 30 30 30 30 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 69 eshold.10000000))............`(i
32420 6e 66 6f 20 2e 20 2c 28 66 6f 72 6d 61 74 20 22 46 69 6c 65 20 25 73 20 69 73 20 74 6f 6f 20 62 nfo...,(format."File.%s.is.too.b
32440 69 67 20 66 6f 72 20 6c 69 74 65 72 61 6c 20 70 72 65 76 69 65 77 2e 22 20 66 69 6c 65 29 29 29 ig.for.literal.preview.".file)))
32460 0a 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d ...........((member.ext.dirvish-
32480 6d 65 64 69 61 2d 65 78 74 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 60 28 69 6e 66 6f 20 2e 20 media-exts)............`(info...
324a0 22 50 72 65 76 69 65 77 20 64 69 73 61 62 6c 65 64 20 66 6f 72 20 6d 65 64 69 61 20 66 69 6c 65 "Preview.disabled.for.media.file
324c0 73 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 s"))...........(t.(dirvish--find
324e0 2d 66 69 6c 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 20 66 69 6c 65 29 29 29 29 29 0a 0a 28 63 6c -file-temporarily.file)))))..(cl
32500 2d 64 65 66 67 65 6e 65 72 69 63 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 -defgeneric.dirvish-preview-disp
32520 61 74 63 68 20 28 72 65 63 69 70 65 20 64 76 29 0a 20 20 22 52 65 74 75 72 6e 20 70 72 65 76 69 atch.(recipe.dv)..."Return.previ
32540 65 77 20 62 75 66 66 65 72 20 67 65 6e 65 72 61 74 65 64 20 61 63 63 6f 72 64 69 6e 67 20 74 6f ew.buffer.generated.according.to
32560 20 52 45 43 49 50 45 20 69 6e 20 73 65 73 73 69 6f 6e 20 44 56 2e 22 29 0a 0a 28 63 6c 2d 64 65 .RECIPE.in.session.DV.")..(cl-de
32580 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 fmethod.dirvish-preview-dispatch
325a0 20 28 28 72 65 63 69 70 65 20 28 68 65 61 64 20 69 6e 66 6f 29 29 20 64 76 29 0a 20 20 22 49 6e .((recipe.(head.info)).dv)..."In
325c0 73 65 72 74 20 69 6e 66 6f 20 73 74 72 69 6e 67 20 66 72 6f 6d 20 52 45 43 49 50 45 20 69 6e 74 sert.info.string.from.RECIPE.int
325e0 6f 20 44 56 27 73 20 70 72 65 76 69 65 77 20 62 75 66 66 65 72 2e 22 0a 20 20 28 6c 65 74 20 28 o.DV's.preview.buffer."...(let.(
32600 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 (buf.(dirvish--util-buffer.'prev
32620 69 65 77 20 64 76 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e iew.dv.nil.t))).....(with-curren
32640 74 2d 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 t-buffer.buf.......(erase-buffer
32660 29 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 29 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d ).(remove-overlays).(font-lock-m
32680 6f 64 65 20 2d 31 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 64 72 20 72 65 63 69 70 ode.-1).......(insert.(cdr.recip
326a0 65 29 29 20 62 75 66 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 e)).buf)))..(cl-defmethod.dirvis
326c0 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 20 28 28 72 65 63 69 70 65 20 28 68 65 61 h-preview-dispatch.((recipe.(hea
326e0 64 20 62 75 66 66 65 72 29 29 20 64 76 29 0a 20 20 22 55 73 65 20 70 61 79 6c 6f 61 64 20 6f 66 d.buffer)).dv)..."Use.payload.of
32700 20 52 45 43 49 50 45 20 61 73 20 70 72 65 76 69 65 77 20 62 75 66 66 65 72 20 6f 66 20 44 56 20 .RECIPE.as.preview.buffer.of.DV.
32720 64 69 72 65 63 74 6c 79 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 2d 62 75 66 20 28 64 69 72 76 69 directly."...(let.((p-buf.(dirvi
32740 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 69 65 77 20 64 76 20 6e 69 6c 20 sh--util-buffer.'preview.dv.nil.
32760 74 29 29 29 0a 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 70 2d t))).....(with-current-buffer.p-
32780 62 75 66 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 20 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c buf.(erase-buffer).(remove-overl
327a0 61 79 73 29 20 28 63 64 72 20 72 65 63 69 70 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 ays).(cdr.recipe))))..(defun.dir
327c0 76 69 73 68 2d 73 68 65 6c 6c 2d 70 72 65 76 69 65 77 2d 70 72 6f 63 2d 73 20 28 70 72 6f 63 20 vish-shell-preview-proc-s.(proc.
327e0 5f 65 78 69 74 63 6f 64 65 29 0a 20 20 22 41 20 73 65 6e 74 69 6e 65 6c 20 66 6f 72 20 64 69 72 _exitcode)..."A.sentinel.for.dir
32800 76 69 73 68 20 70 72 65 76 69 65 77 20 70 72 6f 63 65 73 73 2e 0a 57 68 65 6e 20 50 52 4f 43 20 vish.preview.process..When.PROC.
32820 66 69 6e 69 73 68 65 73 2c 20 66 69 6c 6c 20 70 72 65 76 69 65 77 20 62 75 66 66 65 72 20 77 69 finishes,.fill.preview.buffer.wi
32840 74 68 20 70 72 6f 63 65 73 73 20 72 65 73 75 6c 74 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 th.process.result."...(when-let.
32860 28 28 64 76 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 20 64 69 72 76 69 73 68 2d ((dv.(or.(dirvish-curr).dirvish-
32880 2d 74 68 69 73 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 -this))).....(with-current-buffe
328a0 72 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 69 65 77 r.(dirvish--util-buffer.'preview
328c0 20 64 76 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 20 .dv.nil.t).......(erase-buffer).
328e0 28 72 65 6d 6f 76 65 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 (remove-overlays).......(insert.
32900 28 77 69 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 (with-current-buffer.(process-bu
32920 66 66 65 72 20 70 72 6f 63 29 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e 67 29 29 29 0a 20 20 20 ffer.proc).(buffer-string)))....
32940 20 20 20 28 70 63 61 73 65 20 28 70 72 6f 63 65 73 73 2d 67 65 74 20 70 72 6f 63 20 27 63 6d 64 ...(pcase.(process-get.proc.'cmd
32960 2d 69 6e 66 6f 29 0a 20 20 20 20 20 20 20 20 28 27 73 68 65 6c 6c 20 28 66 6f 6e 74 2d 6c 6f 63 -info).........('shell.(font-loc
32980 6b 2d 6d 6f 64 65 20 2d 31 29 20 28 64 69 72 76 69 73 68 2d 61 70 70 6c 79 2d 61 6e 73 69 63 6f k-mode.-1).(dirvish-apply-ansico
329a0 6c 6f 72 2d 68 20 6e 69 6c 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 20 20 20 20 20 lor-h.nil.(point-min))).........
329c0 28 27 64 69 72 65 64 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 ('dired..........(setq-local.dir
329e0 65 64 2d 73 75 62 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 ed-subdir-alist.................
32a00 20 20 20 20 20 28 6c 69 73 74 20 28 63 6f 6e 73 20 28 63 61 72 20 28 64 76 2d 69 6e 64 65 78 20 .....(list.(cons.(car.(dv-index.
32a20 64 76 29 29 20 28 70 6f 69 6e 74 2d 6d 69 6e 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 20 20 dv)).(point-min-marker))).......
32a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 65 66 61 75 6c 74 ...............font-lock-default
32a60 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 64 69 72 65 64 2d 66 s......................'(dired-f
32a80 6f 6e 74 2d 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 74 20 6e 69 6c 20 6e 69 6c 20 62 65 67 69 ont-lock-keywords.t.nil.nil.begi
32aa0 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c nning-of-line))..........(font-l
32ac0 6f 63 6b 2d 6d 6f 64 65 20 31 29 0a 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 ock-mode.1)..........(run-hooks.
32ae0 27 64 69 72 76 69 73 68 2d 64 69 72 65 63 74 6f 72 79 2d 76 69 65 77 2d 6d 6f 64 65 2d 68 6f 6f 'dirvish-directory-view-mode-hoo
32b00 6b 29 29 29 29 29 0a 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 28 70 72 6f 63 65 73 73 2d 62 k)))))...(kill-buffer.(process-b
32b20 75 66 66 65 72 20 70 72 6f 63 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 72 uffer.proc)))..(defun.dirvish--r
32b40 75 6e 2d 73 68 65 6c 6c 2d 66 6f 72 2d 70 72 65 76 69 65 77 20 28 64 76 20 72 65 63 69 70 65 29 un-shell-for-preview.(dv.recipe)
32b60 0a 20 20 22 44 69 73 70 61 74 63 68 20 73 68 65 6c 6c 20 63 6d 64 20 77 69 74 68 20 52 45 43 49 ..."Dispatch.shell.cmd.with.RECI
32b80 50 45 20 66 6f 72 20 73 65 73 73 69 6f 6e 20 44 56 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 20 PE.for.session.DV."...(when-let.
32ba0 28 28 70 72 6f 63 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 67 65 74 2d ((proc.(get-buffer-process.(get-
32bc0 62 75 66 66 65 72 20 22 20 2a 44 69 72 76 69 73 68 2d 74 65 6d 70 2a 22 29 29 29 29 0a 20 20 20 buffer.".*Dirvish-temp*"))))....
32be0 20 28 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 29 29 0a 20 20 28 6c 65 74 20 28 .(delete-process.proc))...(let.(
32c00 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 76 (buf.(dirvish--util-buffer.'prev
32c20 69 65 77 20 64 76 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 63 20 28 6d 61 iew.dv.nil.t)).........(proc.(ma
32c40 6b 65 2d 70 72 6f 63 65 73 73 20 3a 6e 61 6d 65 20 22 73 68 2d 6f 75 74 22 20 3a 63 6f 6e 6e 65 ke-process.:name."sh-out".:conne
32c60 63 74 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ction-type.nil..................
32c80 20 20 20 20 20 20 20 20 20 20 20 3a 62 75 66 66 65 72 20 22 20 2a 44 69 72 76 69 73 68 2d 74 65 ...........:buffer.".*Dirvish-te
32ca0 6d 70 2a 22 20 3a 63 6f 6d 6d 61 6e 64 20 28 63 64 72 20 72 65 63 69 70 65 29 0a 20 20 20 20 20 mp*".:command.(cdr.recipe)......
32cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 6e 74 69 6e 65 6c .......................:sentinel
32ce0 20 27 64 69 72 76 69 73 68 2d 73 68 65 6c 6c 2d 70 72 65 76 69 65 77 2d 70 72 6f 63 2d 73 29 29 .'dirvish-shell-preview-proc-s))
32d00 29 0a 20 20 20 20 28 70 72 6f 63 65 73 73 2d 70 75 74 20 70 72 6f 63 20 27 63 6d 64 2d 69 6e 66 ).....(process-put.proc.'cmd-inf
32d20 6f 20 28 63 61 72 20 72 65 63 69 70 65 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e o.(car.recipe)).....(with-curren
32d40 74 2d 62 75 66 66 65 72 20 62 75 66 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 20 28 72 65 6d t-buffer.buf.(erase-buffer).(rem
32d60 6f 76 65 2d 6f 76 65 72 6c 61 79 73 29 20 62 75 66 29 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 ove-overlays).buf)))..(cl-defmet
32d80 68 6f 64 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 20 28 28 72 hod.dirvish-preview-dispatch.((r
32da0 65 63 69 70 65 20 28 68 65 61 64 20 73 68 65 6c 6c 29 29 20 64 76 29 0a 20 20 22 46 69 6c 6c 20 ecipe.(head.shell)).dv)..."Fill.
32dc0 44 56 27 73 20 70 72 65 76 69 65 77 20 62 75 66 66 65 72 20 77 69 74 68 20 6f 75 74 70 75 74 20 DV's.preview.buffer.with.output.
32de0 6f 66 20 73 68 20 63 6f 6d 6d 61 6e 64 20 66 72 6f 6d 20 52 45 43 49 50 45 2e 22 0a 20 20 28 64 of.sh.command.from.RECIPE."...(d
32e00 69 72 76 69 73 68 2d 2d 72 75 6e 2d 73 68 65 6c 6c 2d 66 6f 72 2d 70 72 65 76 69 65 77 20 64 76 irvish--run-shell-for-preview.dv
32e20 20 72 65 63 69 70 65 29 29 0a 0a 28 63 6c 2d 64 65 66 6d 65 74 68 6f 64 20 64 69 72 76 69 73 68 .recipe))..(cl-defmethod.dirvish
32e40 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 20 28 28 72 65 63 69 70 65 20 28 68 65 61 64 -preview-dispatch.((recipe.(head
32e60 20 64 69 72 65 64 29 29 20 64 76 29 0a 20 20 22 46 69 6c 6c 20 44 56 27 73 20 70 72 65 76 69 65 .dired)).dv)..."Fill.DV's.previe
32e80 77 20 62 75 66 66 65 72 20 77 69 74 68 20 6f 75 74 70 75 74 20 6f 66 20 73 68 20 63 6f 6d 6d 61 w.buffer.with.output.of.sh.comma
32ea0 6e 64 20 66 72 6f 6d 20 52 45 43 49 50 45 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 72 75 6e nd.from.RECIPE."...(dirvish--run
32ec0 2d 73 68 65 6c 6c 2d 66 6f 72 2d 70 72 65 76 69 65 77 20 64 76 20 72 65 63 69 70 65 29 29 0a 0a -shell-for-preview.dv.recipe))..
32ee0 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d 75 70 64 61 74 65 20 28 (defun.dirvish--preview-update.(
32f00 64 76 20 69 6e 64 65 78 29 0a 20 20 22 55 70 64 61 74 65 20 70 72 65 76 69 65 77 20 63 6f 6e 74 dv.index)..."Update.preview.cont
32f20 65 6e 74 20 6f 66 20 49 4e 44 45 58 20 66 6f 72 20 44 56 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 ent.of.INDEX.for.DV."...(when-le
32f40 74 2a 20 28 28 77 69 6e 64 6f 77 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 64 t*.((window.(dv-preview-window.d
32f60 76 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 77 69 6e 64 6f 77 2d 6c 69 76 65 2d v))...............((window-live-
32f80 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 69 67 2d 62 p.window))...............(orig-b
32fa0 75 66 73 20 28 62 75 66 66 65 72 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ufs.(buffer-list))..............
32fc0 20 28 65 78 74 20 28 64 6f 77 6e 63 61 73 65 20 28 6f 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 65 .(ext.(downcase.(or.(file-name-e
32fe0 78 74 65 6e 73 69 6f 6e 20 69 6e 64 65 78 29 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 xtension.index)."")))...........
33000 20 20 20 20 28 62 75 66 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 66 6e 20 69 6e 20 64 69 72 76 ....(buf.(cl-loop.for.fn.in.dirv
33020 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 68 63 68 65 72 ish--working-preview-dispathcher
33040 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 66 6f s.............................fo
33060 72 20 72 63 70 20 3d 20 28 66 75 6e 63 61 6c 6c 20 66 6e 20 69 6e 64 65 78 20 65 78 74 20 77 69 r.rcp.=.(funcall.fn.index.ext.wi
33080 6e 64 6f 77 20 64 76 29 20 74 68 65 72 65 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ndow.dv).thereis................
330a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 6e 64 20 72 63 70 20 28 64 69 72 76 69 73 68 2d 70 .............(and.rcp.(dirvish-p
330c0 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 20 72 63 70 20 64 76 29 29 29 29 29 0a 20 20 20 20 review-dispatch.rcp.dv))))).....
330e0 28 73 65 74 71 2d 6c 6f 63 61 6c 20 6f 74 68 65 72 2d 77 69 6e 64 6f 77 2d 73 63 72 6f 6c 6c 2d (setq-local.other-window-scroll-
33100 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 66 66 buffer.buf).....(set-window-buff
33120 65 72 20 77 69 6e 64 6f 77 20 62 75 66 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 71 er.window.buf).....(unless.(memq
33140 20 62 75 66 20 6f 72 69 67 2d 62 75 66 73 29 20 28 70 75 73 68 20 62 75 66 20 28 64 76 2d 70 72 .buf.orig-bufs).(push.buf.(dv-pr
33160 65 76 69 65 77 2d 62 75 66 66 65 72 73 20 64 76 29 29 29 29 29 0a 0a 3b 3b 3b 3b 20 42 75 69 6c eview-buffers.dv)))))..;;;;.Buil
33180 64 65 72 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 68 der..(dirvish-define-attribute.h
331a0 6c 2d 6c 69 6e 65 0a 20 20 22 48 69 67 68 6c 69 67 68 74 20 63 75 72 72 65 6e 74 20 6c 69 6e 65 l-line..."Highlight.current.line
331c0 2e 0a 54 68 69 73 20 61 74 74 72 69 62 75 74 65 20 69 73 20 65 6e 61 62 6c 65 64 20 77 68 65 6e ..This.attribute.is.enabled.when
331e0 20 60 64 69 72 76 69 73 68 2d 68 69 64 65 2d 63 75 72 73 6f 72 27 20 69 73 20 6e 6f 6e 2d 6e 69 .`dirvish-hide-cursor'.is.non-ni
33200 6c 2e 22 0a 20 20 28 77 68 65 6e 20 68 6c 2d 66 61 63 65 0a 20 20 20 20 28 6c 65 74 20 28 28 6f l."...(when.hl-face.....(let.((o
33220 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 6c 2d 62 65 67 20 28 31 2b 20 6c 2d 65 6e 64 29 v.(make-overlay.l-beg.(1+.l-end)
33240 29 29 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 66 61 63 65 20 ))).......(overlay-put.ov.'face.
33260 68 6c 2d 66 61 63 65 29 20 60 28 6f 76 20 2e 20 2c 6f 76 29 29 29 29 0a 0a 28 64 69 72 76 69 73 hl-face).`(ov...,ov))))..(dirvis
33280 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 h-define-attribute.symlink-targe
332a0 74 0a 20 20 22 48 69 64 65 20 73 79 6d 6c 69 6e 6b 20 74 61 72 67 65 74 2e 22 0a 20 20 3a 77 68 t..."Hide.symlink.target."...:wh
332c0 65 6e 20 28 6f 72 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 76 69 73 68 2d 64 en.(or.(eq.major-mode.'dirvish-d
332e0 69 72 65 63 74 6f 72 79 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 irectory-view-mode).............
33300 28 61 6e 64 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 0a 20 20 20 (and.dired-hide-details-mode....
33320 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 64 69 ..............(default-value.'di
33340 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 68 69 64 65 2d 73 79 6d 6c 69 6e 6b 2d 74 61 red-hide-details-hide-symlink-ta
33360 72 67 65 74 73 29 29 29 0a 20 20 28 77 68 65 6e 20 28 3c 20 28 2b 20 66 2d 65 6e 64 20 34 29 20 rgets)))...(when.(<.(+.f-end.4).
33380 6c 2d 65 6e 64 29 0a 20 20 20 20 28 6c 65 74 20 28 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c l-end).....(let.((ov.(make-overl
333a0 61 79 20 66 2d 65 6e 64 20 6c 2d 65 6e 64 29 29 29 0a 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 ay.f-end.l-end))).......(overlay
333c0 2d 70 75 74 20 6f 76 20 27 69 6e 76 69 73 69 62 6c 65 20 74 29 20 60 28 6f 76 20 2e 20 2c 6f 76 -put.ov.'invisible.t).`(ov...,ov
333e0 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d ))))..(defun.dirvish--mode-line-
33400 66 6d 74 2d 73 65 74 74 65 72 20 28 6c 65 66 74 20 72 69 67 68 74 20 26 6f 70 74 69 6f 6e 61 6c fmt-setter.(left.right.&optional
33420 20 68 65 61 64 65 72 29 0a 20 20 22 53 65 74 20 74 68 65 20 60 64 69 72 76 69 73 68 2d 2d 6d 6f .header)..."Set.the.`dirvish--mo
33440 64 65 2d 6c 69 6e 65 2d 66 6d 74 27 2e 0a 4c 45 46 54 20 61 6e 64 20 52 49 47 48 54 20 61 72 65 de-line-fmt'..LEFT.and.RIGHT.are
33460 20 73 65 67 6d 65 6e 74 73 20 61 6c 69 67 6e 65 64 20 74 6f 20 6c 65 66 74 2f 72 69 67 68 74 20 .segments.aligned.to.left/right.
33480 72 65 73 70 65 63 74 69 76 65 6c 79 2e 0a 49 66 20 48 45 41 44 45 52 2c 20 73 65 74 20 74 68 65 respectively..If.HEADER,.set.the
334a0 20 60 64 69 72 76 69 73 68 2d 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 27 20 69 6e 73 74 .`dirvish--header-line-fmt'.inst
334c0 65 61 64 2e 22 0a 20 20 28 63 6c 2d 6c 61 62 65 6c 73 20 28 28 65 78 70 61 6e 64 20 28 73 65 67 ead."...(cl-labels.((expand.(seg
334e0 6d 65 6e 74 73 29 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 ments).................(cl-loop.
33500 66 6f 72 20 73 20 69 6e 20 73 65 67 6d 65 6e 74 73 20 63 6f 6c 6c 65 63 74 0a 20 20 20 20 20 20 for.s.in.segments.collect.......
33520 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 70 20 ...................(if.(stringp.
33540 73 29 20 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 s).s............................
33560 60 28 3a 65 76 61 6c 20 28 2c 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 76 69 `(:eval.(,(intern.(format."dirvi
33580 73 68 2d 25 73 2d 6d 6c 22 20 73 29 29 20 64 76 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 sh-%s-ml".s)).dv)))))...........
335a0 20 20 20 20 28 67 65 74 2d 66 6f 6e 74 2d 73 63 61 6c 65 20 28 29 0a 20 20 20 20 20 20 20 20 20 ....(get-font-scale.()..........
335c0 20 20 20 20 20 20 20 28 6c 65 74 2a 20 28 28 66 61 63 65 20 28 69 66 20 68 65 61 64 65 72 20 27 .......(let*.((face.(if.header.'
335e0 68 65 61 64 65 72 2d 6c 69 6e 65 20 27 6d 6f 64 65 2d 6c 69 6e 65 2d 69 6e 61 63 74 69 76 65 29 header-line.'mode-line-inactive)
33600 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 64 65 66 75 61 6c )........................(defual
33620 74 20 28 66 61 63 65 2d 61 74 74 72 69 62 75 74 65 20 27 64 65 66 61 75 6c 74 20 3a 68 65 69 67 t.(face-attribute.'default.:heig
33640 68 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 28 6d 6c 2d ht))........................(ml-
33660 68 65 69 67 68 74 20 28 66 61 63 65 2d 61 74 74 72 69 62 75 74 65 20 66 61 63 65 20 3a 68 65 69 height.(face-attribute.face.:hei
33680 67 68 74 29 29 29 0a 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 ght)))...................(cond.(
336a0 28 66 6c 6f 61 74 70 20 6d 6c 2d 68 65 69 67 68 74 29 20 6d 6c 2d 68 65 69 67 68 74 29 0a 20 20 (floatp.ml-height).ml-height)...
336c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 69 6e 74 65 67 65 72 70 ......................((integerp
336e0 20 6d 6c 2d 68 65 69 67 68 74 29 20 28 2f 20 28 66 6c 6f 61 74 20 6d 6c 2d 68 65 69 67 68 74 29 .ml-height).(/.(float.ml-height)
33700 20 64 65 66 75 61 6c 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 .defualt))......................
33720 20 20 20 28 74 20 31 29 29 29 29 29 0a 20 20 20 20 60 28 28 3a 65 76 61 6c 0a 20 20 20 20 20 20 ...(t.1))))).....`((:eval.......
33740 20 28 6c 65 74 2a 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 0a 20 20 20 20 .(let*.((dv.(dirvish-curr)).....
33760 20 20 20 20 20 20 20 20 20 20 28 62 75 66 20 28 61 6e 64 20 28 63 61 72 20 28 64 76 2d 6c 61 79 ..........(buf.(and.(car.(dv-lay
33780 6f 75 74 20 64 76 29 29 20 28 63 64 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 29 29 29 0a 20 out.dv)).(cdr.(dv-index.dv))))..
337a0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 63 61 6c 65 20 2c 28 67 65 74 2d 66 6f 6e 74 2d 73 .............(scale.,(get-font-s
337c0 63 61 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 2d 77 69 64 74 68 20 cale))...............(win-width.
337e0 28 66 6c 6f 6f 72 20 28 2f 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 73 63 61 6c 65 29 29 (floor.(/.(window-width).scale))
33800 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 72 2d 6c 20 28 66 6f 72 6d 61 74 2d 6d )...............(str-l.(format-m
33820 6f 64 65 2d 6c 69 6e 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 ode-line.......................'
33840 2c 28 6f 72 20 28 65 78 70 61 6e 64 20 6c 65 66 74 29 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 ,(or.(expand.left).mode-line-for
33860 6d 61 74 29 20 6e 69 6c 20 6e 69 6c 20 62 75 66 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 mat).nil.nil.buf))..............
33880 20 28 73 74 72 2d 72 20 28 66 6f 72 6d 61 74 2d 6d 6f 64 65 2d 6c 69 6e 65 20 27 2c 28 65 78 70 .(str-r.(format-mode-line.',(exp
338a0 61 6e 64 20 72 69 67 68 74 29 20 6e 69 6c 20 6e 69 6c 20 62 75 66 29 29 0a 20 20 20 20 20 20 20 and.right).nil.nil.buf))........
338c0 20 20 20 20 20 20 20 28 6c 65 6e 2d 72 20 28 73 74 72 69 6e 67 2d 77 69 64 74 68 20 73 74 72 2d .......(len-r.(string-width.str-
338e0 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 0a 20 20 20 20 20 20 20 20 20 20 r)))..........(concat...........
33900 28 64 69 72 76 69 73 68 2d 2d 62 61 72 2d 69 6d 61 67 65 20 28 63 61 72 20 28 64 76 2d 6c 61 79 (dirvish--bar-image.(car.(dv-lay
33920 6f 75 74 20 64 76 29 29 20 2c 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 out.dv)).,header)...........(if.
33940 28 3c 20 28 2b 20 28 73 74 72 69 6e 67 2d 77 69 64 74 68 20 73 74 72 2d 6c 29 20 6c 65 6e 2d 72 (<.(+.(string-width.str-l).len-r
33960 29 20 77 69 6e 2d 77 69 64 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 2d 6c ).win-width)...............str-l
33980 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 72 69 6d 20 28 31 2d 20 28 2d 20 .............(let.((trim.(1-.(-.
339a0 77 69 6e 2d 77 69 64 74 68 20 6c 65 6e 2d 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 win-width.len-r)))).............
339c0 20 20 28 69 66 20 28 3e 3d 20 74 72 69 6d 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..(if.(>=.trim.0)...............
339e0 20 20 20 20 28 73 75 62 73 74 72 69 6e 67 20 73 74 72 2d 6c 20 30 20 28 6d 69 6e 20 74 72 69 6d ....(substring.str-l.0.(min.trim
33a00 20 28 31 2d 20 28 6c 65 6e 67 74 68 20 73 74 72 2d 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 .(1-.(length.str-l))))..........
33a20 20 20 20 20 20 20 20 22 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 ......."")))...........(properti
33a40 7a 65 0a 20 20 20 20 20 20 20 20 20 20 20 22 20 22 20 27 64 69 73 70 6c 61 79 0a 20 20 20 20 20 ze............".".'display......
33a60 20 20 20 20 20 20 60 28 28 73 70 61 63 65 20 3a 61 6c 69 67 6e 2d 74 6f 20 28 2d 20 28 2b 20 72 ......`((space.:align-to.(-.(+.r
33a80 69 67 68 74 20 72 69 67 68 74 2d 66 72 69 6e 67 65 20 72 69 67 68 74 2d 6d 61 72 67 69 6e 29 0a ight.right-fringe.right-margin).
33aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
33ac0 20 2c 28 63 65 69 6c 69 6e 67 20 28 2a 20 73 63 61 6c 65 20 28 73 74 72 69 6e 67 2d 77 69 64 74 .,(ceiling.(*.scale.(string-widt
33ae0 68 20 73 74 72 2d 72 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 73 74 72 2d 72 29 29 h.str-r)))))))...........str-r))
33b00 29 29 29 29 0a 0a 3b 3b 20 54 68 61 6e 6b 73 20 74 6f 20 60 64 6f 6f 6d 2d 6d 6f 64 65 6c 69 6e ))))..;;.Thanks.to.`doom-modelin
33b20 65 27 2e 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 62 61 72 2d 69 6d 61 67 65 20 28 66 e'..(defun.dirvish--bar-image.(f
33b40 75 6c 6c 73 63 72 65 65 6e 70 20 68 65 61 64 65 72 29 0a 20 20 22 43 72 65 61 74 65 20 61 20 62 ullscreenp.header)..."Create.a.b
33b60 61 72 20 69 6d 61 67 65 20 77 69 74 68 20 68 65 69 67 68 74 20 6f 66 20 60 64 69 72 76 69 73 68 ar.image.with.height.of.`dirvish
33b80 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 68 65 69 67 68 74 27 2e 0a 49 66 20 46 55 4c 4c 53 43 52 45 45 -mode-line-height'..If.FULLSCREE
33ba0 4e 50 2c 20 75 73 65 20 74 68 65 20 60 63 64 72 27 20 6f 66 20 74 68 65 20 76 61 6c 75 65 20 61 NP,.use.the.`cdr'.of.the.value.a
33bc0 73 20 68 65 69 67 68 74 2c 20 6f 74 68 65 72 77 69 73 65 0a 75 73 65 20 60 63 61 72 27 2e 20 20 s.height,.otherwise.use.`car'...
33be0 49 66 20 48 45 41 44 45 52 2c 20 75 73 65 20 60 64 69 72 76 69 73 68 2d 68 65 61 64 65 72 2d 6c If.HEADER,.use.`dirvish-header-l
33c00 69 6e 65 2d 68 65 69 67 68 74 27 20 69 6e 73 74 65 61 64 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 ine-height'.instead."...(when.(a
33c20 6e 64 20 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 20 28 69 6d 61 67 65 2d 74 79 nd.(display-graphic-p).(image-ty
33c40 70 65 2d 61 76 61 69 6c 61 62 6c 65 2d 70 20 27 70 62 6d 29 29 0a 20 20 20 20 28 6c 65 74 2a 20 pe-available-p.'pbm)).....(let*.
33c60 28 28 68 76 20 28 69 66 20 68 65 61 64 65 72 20 64 69 72 76 69 73 68 2d 68 65 61 64 65 72 2d 6c ((hv.(if.header.dirvish-header-l
33c80 69 6e 65 2d 68 65 69 67 68 74 20 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 68 65 69 ine-height.dirvish-mode-line-hei
33ca0 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 68 74 20 28 63 6f 6e 64 20 28 28 6e 75 6d ght))............(ht.(cond.((num
33cc0 62 65 72 70 20 68 76 29 20 68 76 29 20 28 66 75 6c 6c 73 63 72 65 65 6e 70 20 28 63 64 72 20 68 berp.hv).hv).(fullscreenp.(cdr.h
33ce0 76 29 29 20 28 74 20 28 63 61 72 20 68 76 29 29 29 29 29 0a 20 20 20 20 20 20 28 70 72 6f 70 65 v)).(t.(car.hv))))).......(prope
33d00 72 74 69 7a 65 0a 20 20 20 20 20 20 20 22 20 22 20 27 64 69 73 70 6c 61 79 0a 20 20 20 20 20 20 rtize........".".'display.......
33d20 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 28 63 72 65 61 74 65 .(ignore-errors..........(create
33d40 2d 69 6d 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 28 66 6f 72 6d 61 74 -image...........(concat.(format
33d60 20 22 50 31 5c 6e 25 69 20 25 69 5c 6e 22 20 32 20 68 74 29 20 28 6d 61 6b 65 2d 73 74 72 69 6e ."P1\n%i.%i\n".2.ht).(make-strin
33d80 67 20 28 2a 20 32 20 68 74 29 20 3f 31 29 20 22 5c 6e 22 29 0a 20 20 20 20 20 20 20 20 20 20 27 g.(*.2.ht).?1)."\n")...........'
33da0 70 62 6d 20 74 20 3a 66 6f 72 65 67 72 6f 75 6e 64 20 22 4e 6f 6e 65 22 20 3a 61 73 63 65 6e 74 pbm.t.:foreground."None".:ascent
33dc0 20 27 63 65 6e 74 65 72 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d .'center))))))..(defun.dirvish--
33de0 68 69 64 65 2d 63 75 72 73 6f 72 20 28 29 0a 20 20 22 48 69 64 65 20 63 75 72 73 6f 72 20 69 6e hide-cursor.()..."Hide.cursor.in
33e00 20 64 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 .dirvish.buffer."...(when.dirvis
33e20 68 2d 68 69 64 65 2d 63 75 72 73 6f 72 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 63 75 h-hide-cursor.....(setq-local.cu
33e40 72 73 6f 72 2d 74 79 70 65 20 6e 69 6c 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 61 6e 64 20 28 rsor-type.nil).....(cond.((and.(
33e60 62 6f 75 6e 64 70 20 27 65 76 69 6c 2d 6e 6f 72 6d 61 6c 2d 73 74 61 74 65 2d 63 75 72 73 6f 72 boundp.'evil-normal-state-cursor
33e80 29 20 28 66 65 61 74 75 72 65 70 20 27 65 76 69 6c 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 ).(featurep.'evil))............(
33ea0 73 65 74 71 2d 6c 6f 63 61 6c 20 65 76 69 6c 2d 6e 6f 72 6d 61 6c 2d 73 74 61 74 65 2d 63 75 72 setq-local.evil-normal-state-cur
33ec0 73 6f 72 20 27 28 62 61 72 20 2e 20 30 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 61 6e 64 sor.'(bar...0)))...........((and
33ee0 20 28 62 6f 75 6e 64 70 20 27 6d 65 6f 77 2d 63 75 72 73 6f 72 2d 74 79 70 65 2d 64 65 66 61 75 .(boundp.'meow-cursor-type-defau
33f00 6c 74 29 20 28 66 65 61 74 75 72 65 70 20 27 6d 65 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 lt).(featurep.'meow))...........
33f20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 6d 65 6f 77 2d 63 75 72 73 6f 72 2d 74 79 70 65 2d 6d 6f .(setq-local.meow-cursor-type-mo
33f40 74 69 6f 6e 20 6e 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 tion.nil........................
33f60 6d 65 6f 77 2d 63 75 72 73 6f 72 2d 74 79 70 65 2d 64 65 66 61 75 6c 74 20 6e 69 6c 29 29 29 29 meow-cursor-type-default.nil))))
33f80 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 73 65 74 75 70 2d 6d 6f 64 65 2d 6c 69 )..(defun.dirvish--setup-mode-li
33fa0 6e 65 20 28 6c 61 79 6f 75 74 29 0a 20 20 22 53 65 74 75 70 20 74 68 65 20 6d 6f 64 65 2f 68 65 ne.(layout)..."Setup.the.mode/he
33fc0 61 64 65 72 20 6c 69 6e 65 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 4c 41 59 4f 55 54 2e 22 0a ader.line.according.to.LAYOUT.".
33fe0 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 ..(setq.mode-line-format........
34000 20 28 75 6e 6c 65 73 73 20 28 6f 72 20 6c 61 79 6f 75 74 20 28 6e 6f 74 20 64 69 72 76 69 73 68 .(unless.(or.layout.(not.dirvish
34020 2d 75 73 65 2d 6d 6f 64 65 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 -use-mode-line))...........dirvi
34040 73 68 2d 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6d 74 29 0a 20 20 20 20 20 20 20 20 68 65 61 64 65 sh--mode-line-fmt).........heade
34060 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6f 72 r-line-format.........(cond.((or
34080 20 6c 61 79 6f 75 74 20 28 6e 6f 74 20 64 69 72 76 69 73 68 2d 75 73 65 2d 68 65 61 64 65 72 2d .layout.(not.dirvish-use-header-
340a0 6c 69 6e 65 29 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 6f 72 line)).nil)...............(t.(or
340c0 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 75 73 2d 68 65 61 64 65 72 29 20 64 69 72 76 .(dirvish-prop.:cus-header).dirv
340e0 69 73 68 2d 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 29 29 29 29 29 0a 0a 28 64 65 66 75 ish--header-line-fmt)))))..(defu
34100 6e 20 64 69 72 76 69 73 68 2d 72 65 76 65 72 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 69 67 6e 6f n.dirvish-revert.(&optional.igno
34120 72 65 2d 61 75 74 6f 20 5f 6e 6f 63 6f 6e 66 69 72 6d 29 0a 20 20 22 52 65 72 65 61 64 20 74 68 re-auto._noconfirm)..."Reread.th
34140 65 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 0a 57 68 65 6e 20 49 47 4e 4f 52 45 2d 41 55 e.Dirvish.buffer..When.IGNORE-AU
34160 54 4f 2c 20 72 65 66 72 65 73 68 20 66 69 6c 65 20 61 74 74 72 69 62 75 74 65 73 20 61 73 20 77 TO,.refresh.file.attributes.as.w
34180 65 6c 6c 2e 0a 44 69 72 76 69 73 68 20 73 65 74 73 20 60 72 65 76 65 72 74 2d 62 75 66 66 65 72 ell..Dirvish.sets.`revert-buffer
341a0 2d 66 75 6e 63 74 69 6f 6e 27 20 74 6f 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2e 22 0a 20 20 -function'.to.this.function."...
341c0 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 6f 6c 64 2d 69 6e 64 65 78 20 28 64 69 72 65 64 2d (dirvish-prop.:old-index.(dired-
341e0 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 20 74 29 29 0a 20 20 28 64 6f 6c 69 73 74 20 28 get-filename.nil.t))...(dolist.(
34200 6b 65 79 77 6f 72 64 20 64 69 72 76 69 73 68 2d 2d 72 65 73 65 74 2d 6b 65 79 77 6f 72 64 73 29 keyword.dirvish--reset-keywords)
34220 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 6b 65 79 77 6f 72 64 20 6e 69 6c 29 29 0a 20 20 28 .(dirvish-prop.keyword.nil))...(
34240 64 69 72 65 64 2d 72 65 76 65 72 74 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 68 69 64 65 2d 64 dired-revert)...(dirvish--hide-d
34260 69 72 65 64 2d 68 65 61 64 65 72 29 0a 20 20 28 77 68 65 6e 20 69 67 6e 6f 72 65 2d 61 75 74 6f ired-header)...(when.ignore-auto
34280 20 3b 20 6d 65 61 6e 69 6e 67 20 69 74 20 69 73 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 61 63 74 .;.meaning.it.is.called.interact
342a0 69 76 65 6c 79 20 66 72 6f 6d 20 75 73 65 72 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 ively.from.user.....(setq-local.
342c0 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 dirvish--attrs-hash.(make-hash-t
342e0 61 62 6c 65 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 64 61 74 61 2d 66 6f 72 2d 64 69 72 able)).....(dirvish-data-for-dir
34300 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 .default-directory.(current-buff
34320 65 72 29 20 74 29 29 0a 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 64 69 72 76 69 73 68 2d 61 66 er).t))...(run-hooks.'dirvish-af
34340 74 65 72 2d 72 65 76 65 72 74 2d 68 6f 6f 6b 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 ter-revert-hook))..(defun.dirvis
34360 68 2d 69 6e 69 74 2d 64 69 72 65 64 2d 62 75 66 66 65 72 20 28 29 0a 20 20 22 49 6e 69 74 69 61 h-init-dired-buffer.()..."Initia
34380 6c 69 7a 65 20 61 20 44 69 72 65 64 20 62 75 66 66 65 72 20 66 6f 72 20 64 69 72 76 69 73 68 2e lize.a.Dired.buffer.for.dirvish.
343a0 22 0a 20 20 28 77 68 65 6e 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 65 66 61 75 6c 74 "...(when.(file-remote-p.default
343c0 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 76 -directory).....(setq-local.dirv
343e0 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 68 63 68 65 72 ish--working-preview-dispathcher
34400 73 20 27 28 64 69 72 76 69 73 68 2d 74 72 61 6d 70 2d 64 70 29 29 29 0a 20 20 28 75 73 65 2d 6c s.'(dirvish-tramp-dp)))...(use-l
34420 6f 63 61 6c 2d 6d 61 70 20 64 69 72 76 69 73 68 2d 6d 6f 64 65 2d 6d 61 70 29 0a 20 20 28 64 69 ocal-map.dirvish-mode-map)...(di
34440 72 76 69 73 68 2d 2d 68 69 64 65 2d 63 75 72 73 6f 72 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d rvish--hide-cursor)...(dirvish--
34460 68 69 64 65 2d 64 69 72 65 64 2d 68 65 61 64 65 72 29 0a 20 20 28 61 6e 64 20 64 69 72 76 69 73 hide-dired-header)...(and.dirvis
34480 68 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 20 28 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 h-hide-details.(dired-hide-detai
344a0 6c 73 2d 6d 6f 64 65 20 74 29 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 ls-mode.t))...(setq-local.dirvis
344c0 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 20 28 6f 72 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 h--attrs-hash.(or.dirvish--attrs
344e0 2d 68 61 73 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 -hash.(make-hash-table))........
34500 20 20 20 20 20 20 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 23 27 .......revert-buffer-function.#'
34520 64 69 72 76 69 73 68 2d 72 65 76 65 72 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 61 62 dirvish-revert...............tab
34540 2d 62 61 72 2d 6e 65 77 2d 74 61 62 2d 63 68 6f 69 63 65 20 22 2a 73 63 72 61 74 63 68 2a 22 0a -bar-new-tab-choice."*scratch*".
34560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 ..............dired-hide-details
34580 2d 68 69 64 65 2d 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 74 73 20 6e 69 6c 0a 20 20 20 20 20 20 -hide-symlink-targets.nil.......
345a0 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 6b 69 6c 6c 2d 77 68 65 6e 2d 6f 70 65 6e 69 6e 67 2d ........dired-kill-when-opening-
345c0 6e 65 77 2d 64 69 72 65 64 2d 62 75 66 66 65 72 20 6e 69 6c 29 0a 20 20 28 61 64 64 2d 68 6f 6f new-dired-buffer.nil)...(add-hoo
345e0 6b 20 27 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e k.'window-buffer-change-function
34600 73 20 23 27 64 69 72 76 69 73 68 2d 77 69 6e 62 75 66 2d 63 68 61 6e 67 65 2d 68 20 6e 69 6c 20 s.#'dirvish-winbuf-change-h.nil.
34620 74 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 t)...(add-hook.'window-configura
34640 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 77 69 6e 63 6f tion-change-hook.#'dirvish-winco
34660 6e 66 2d 63 68 61 6e 67 65 2d 68 20 6e 69 6c 20 74 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 nf-change-h.nil.t)...(add-hook.'
34680 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 75 70 64 61 post-command-hook.#'dirvish-upda
346a0 74 65 2d 62 6f 64 79 2d 68 20 6e 69 6c 20 74 29 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 te-body-h.nil.t)...(add-hook.'ki
346c0 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 6b 69 6c 6c 2d 62 75 ll-buffer-hook.#'dirvish-kill-bu
346e0 66 66 65 72 2d 68 20 6e 69 6c 20 74 29 0a 20 20 28 73 65 74 2d 62 75 66 66 65 72 2d 6d 6f 64 69 ffer-h.nil.t)...(set-buffer-modi
34700 66 69 65 64 2d 70 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 63 72 fied-p.nil))..(defun.dirvish--cr
34720 65 61 74 65 2d 70 61 72 65 6e 74 2d 62 75 66 66 65 72 20 28 64 76 20 64 69 72 20 69 6e 64 65 78 eate-parent-buffer.(dv.dir.index
34740 20 6c 65 76 65 6c 29 0a 20 20 22 43 72 65 61 74 65 20 70 61 72 65 6e 74 20 62 75 66 66 65 72 20 .level)..."Create.parent.buffer.
34760 61 74 20 44 49 52 20 69 6e 20 44 56 20 73 65 6c 65 63 74 69 6e 67 20 66 69 6c 65 20 49 4e 44 45 at.DIR.in.DV.selecting.file.INDE
34780 58 2e 0a 4c 45 56 45 4c 20 69 73 20 74 68 65 20 64 65 70 74 68 20 6f 66 20 63 75 72 72 65 6e 74 X..LEVEL.is.the.depth.of.current
347a0 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 64 65 78 20 28 64 69 72 65 63 74 .window."...(let.((index.(direct
347c0 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 20 20 28 62 ory-file-name.index)).........(b
347e0 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 28 66 6f 72 6d 61 74 uf.(dirvish--util-buffer.(format
34800 20 22 70 61 72 65 6e 74 2d 25 73 22 20 6c 65 76 65 6c 29 20 64 76 20 6e 69 6c 20 74 29 29 0a 20 ."parent-%s".level).dv.nil.t))..
34820 20 20 20 20 20 20 20 28 73 74 72 20 28 6f 72 20 28 67 65 74 68 61 73 68 20 64 69 72 20 64 69 72 .......(str.(or.(gethash.dir.dir
34840 76 69 73 68 2d 2d 70 61 72 65 6e 74 2d 68 61 73 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 vish--parent-hash)..............
34860 20 20 20 20 28 6c 65 74 20 28 28 66 6c 61 67 73 20 64 69 72 65 64 2d 61 63 74 75 61 6c 2d 73 77 ....(let.((flags.dired-actual-sw
34880 69 74 63 68 65 73 29 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 itches))....................(wit
348a0 68 2d 74 65 6d 70 2d 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 64 69 72 65 h-temp-buffer.(dired-insert-dire
348c0 63 74 6f 72 79 20 64 69 72 20 66 6c 61 67 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ctory.dir.flags)................
348e0 20 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 73 74 ......................(buffer-st
34900 72 69 6e 67 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 61 74 74 72 73 20 28 61 70 70 65 6e 64 ring))))).........(attrs.(append
34920 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 68 6c 2d 6c 69 6e 65 20 73 79 6d 6c 69 .................'(hl-line.symli
34940 6e 6b 2d 74 61 72 67 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 64 nk-target).................(cond
34960 20 28 28 6d 65 6d 71 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 64 69 72 76 69 73 68 2d 61 .((memq.'all-the-icons.dirvish-a
34980 74 74 72 69 62 75 74 65 73 29 20 27 28 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 29 29 0a 20 20 20 ttributes).'(all-the-icons))....
349a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6d 65 6d 71 20 27 6e 65 72 64 2d ...................((memq.'nerd-
349c0 69 63 6f 6e 73 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 73 29 20 27 28 6e 65 72 64 icons.dirvish-attributes).'(nerd
349e0 2d 69 63 6f 6e 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 28 -icons)).......................(
34a00 28 6d 65 6d 71 20 27 76 73 63 6f 64 65 2d 69 63 6f 6e 20 64 69 72 76 69 73 68 2d 61 74 74 72 69 (memq.'vscode-icon.dirvish-attri
34a20 62 75 74 65 73 29 20 27 28 76 73 63 6f 64 65 2d 69 63 6f 6e 29 29 29 29 29 29 0a 20 20 20 20 28 butes).'(vscode-icon)))))).....(
34a40 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 20 20 28 64 with-current-buffer.buf.......(d
34a60 69 72 76 69 73 68 2d 64 69 72 65 63 74 6f 72 79 2d 76 69 65 77 2d 6d 6f 64 65 29 0a 20 20 20 20 irvish-directory-view-mode).....
34a80 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 64 76 20 28 64 76 2d 6e 61 6d 65 20 64 76 29 ..(dirvish-prop.:dv.(dv-name.dv)
34aa0 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 20 28 66 ).......(dirvish-prop.:remote.(f
34ac0 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 69 72 29 29 0a 20 20 20 20 20 20 28 70 75 74 68 61 73 ile-remote-p.dir)).......(puthas
34ae0 68 20 64 69 72 20 73 74 72 20 64 69 72 76 69 73 68 2d 2d 70 61 72 65 6e 74 2d 68 61 73 68 29 0a h.dir.str.dirvish--parent-hash).
34b00 20 20 20 20 20 20 28 65 72 61 73 65 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 73 65 74 71 ......(erase-buffer).......(setq
34b20 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 6e 69 6c 20 68 65 61 64 65 72 2d 6c 69 6e .mode-line-format.nil.header-lin
34b40 65 2d 66 6f 72 6d 61 74 20 6e 69 6c 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 e-format.nil).......(save-excurs
34b60 69 6f 6e 20 28 69 6e 73 65 72 74 20 73 74 72 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 2d 6c 6f ion.(insert.str)).......(setq-lo
34b80 63 61 6c 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 20 28 6c 69 73 74 20 28 63 6f cal.dired-subdir-alist.(list.(co
34ba0 6e 73 20 64 69 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 2d 6d 61 72 6b 65 72 29 29 29 0a 20 20 20 20 ns.dir.(point-min-marker))).....
34bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 64 65 66 61 75 6c 74 73 ..............font-lock-defaults
34be0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 64 69 72 65 64 2d 66 6f 6e 74 2d ...................'(dired-font-
34c00 6c 6f 63 6b 2d 6b 65 79 77 6f 72 64 73 20 74 20 6e 69 6c 20 6e 69 6c 20 62 65 67 69 6e 6e 69 6e lock-keywords.t.nil.nil.beginnin
34c20 67 2d 6f 66 2d 6c 69 6e 65 29 29 0a 20 20 20 20 20 20 28 66 6f 6e 74 2d 6c 6f 63 6b 2d 6d 6f 64 g-of-line)).......(font-lock-mod
34c40 65 20 31 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 2d 31 20 28 66 e.1).......(dired-goto-file-1.(f
34c60 69 6c 65 2d 6e 61 6d 65 2d 6e 6f 6e 64 69 72 65 63 74 6f 72 79 20 69 6e 64 65 78 29 20 69 6e 64 ile-name-nondirectory.index).ind
34c80 65 78 20 28 70 6f 69 6e 74 2d 6d 61 78 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d ex.(point-max)).......(dirvish--
34ca0 68 69 64 65 2d 63 75 72 73 6f 72 29 0a 20 20 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 hide-cursor).......(setq-local.d
34cc0 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 61 73 68 20 28 6d 61 6b 65 2d 68 61 73 68 2d 74 61 irvish--attrs-hash.(make-hash-ta
34ce0 62 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 2d ble)...................dirvish--
34d00 77 6f 72 6b 69 6e 67 2d 61 74 74 72 73 20 28 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 65 78 working-attrs.(dirvish--attrs-ex
34d20 70 61 6e 64 20 61 74 74 72 73 29 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 6e pand.attrs)).......(dirvish--ren
34d40 64 65 72 2d 61 74 74 72 73 29 20 62 75 66 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 der-attrs).buf)))..(defun.dirvis
34d60 68 2d 2d 63 72 65 61 74 65 2d 70 61 72 65 6e 74 2d 77 69 6e 64 6f 77 73 20 28 64 76 29 0a 20 20 h--create-parent-windows.(dv)...
34d80 22 43 72 65 61 74 65 20 61 6c 6c 20 64 69 72 76 69 73 68 20 70 61 72 65 6e 74 20 77 69 6e 64 6f "Create.all.dirvish.parent.windo
34da0 77 73 20 66 6f 72 20 44 56 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 63 75 72 72 65 6e 74 20 28 65 ws.for.DV."...(let*.((current.(e
34dc0 78 70 61 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 xpand-file-name.default-director
34de0 79 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 61 72 65 6e 74 20 28 64 69 72 76 69 73 68 2d 2d 67 y))..........(parent.(dirvish--g
34e00 65 74 2d 70 61 72 65 6e 74 2d 70 61 74 68 20 63 75 72 72 65 6e 74 29 29 0a 20 20 20 20 20 20 20 et-parent-path.current))........
34e20 20 20 28 70 61 72 65 6e 74 2d 64 69 72 73 20 28 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 65 70 ..(parent-dirs.())..........(dep
34e40 74 68 20 28 6f 72 20 28 63 61 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 20 30 29 29 th.(or.(caar.(dv-layout.dv)).0))
34e60 0a 20 20 20 20 20 20 20 20 20 28 69 20 30 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 73 ..........(i.0)).....(dirvish--s
34e80 65 74 75 70 2d 6d 6f 64 65 2d 6c 69 6e 65 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 etup-mode-line.(car.(dv-layout.d
34ea0 76 29 29 29 0a 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 20 28 66 69 78 65 64 20 28 6e 74 68 20 31 v))).....(when-let.(fixed.(nth.1
34ec0 20 28 64 76 2d 74 79 70 65 20 64 76 29 29 29 20 28 73 65 74 71 20 77 69 6e 64 6f 77 2d 73 69 7a .(dv-type.dv))).(setq.window-siz
34ee0 65 2d 66 69 78 65 64 20 66 69 78 65 64 29 29 0a 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d e-fixed.fixed)).....(set-window-
34f00 64 65 64 69 63 61 74 65 64 2d 70 0a 20 20 20 20 20 6e 69 6c 20 28 61 6e 64 20 28 6f 72 20 28 63 dedicated-p......nil.(and.(or.(c
34f20 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 20 28 6e 74 68 20 32 20 28 64 76 2d 74 79 ar.(dv-layout.dv)).(nth.2.(dv-ty
34f40 70 65 20 64 76 29 29 29 20 74 29 29 0a 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 66 72 69 pe.dv))).t)).....(set-window-fri
34f60 6e 67 65 73 20 6e 69 6c 20 31 20 31 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 3c nges.nil.1.1).....(while.(and.(<
34f80 20 69 20 64 65 70 74 68 29 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 63 75 72 72 65 6e 74 20 .i.depth).(not.(string=.current.
34fa0 70 61 72 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 69 6e 63 66 20 69 29 0a 20 20 20 20 parent))).......(cl-incf.i).....
34fc0 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 63 75 72 72 65 6e 74 20 70 61 72 65 6e 74 29 20 70 61 ..(push.(cons.current.parent).pa
34fe0 72 65 6e 74 2d 64 69 72 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 63 75 72 72 65 6e 74 20 28 rent-dirs).......(setq.current.(
35000 64 69 72 76 69 73 68 2d 2d 67 65 74 2d 70 61 72 65 6e 74 2d 70 61 74 68 20 63 75 72 72 65 6e 74 dirvish--get-parent-path.current
35020 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 70 61 72 65 6e 74 20 28 64 69 72 76 69 73 68 2d 2d )).......(setq.parent.(dirvish--
35040 67 65 74 2d 70 61 72 65 6e 74 2d 70 61 74 68 20 70 61 72 65 6e 74 29 29 29 0a 20 20 20 20 28 77 get-parent-path.parent))).....(w
35060 68 65 6e 20 28 3e 20 64 65 70 74 68 20 30 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 77 hen.(>.depth.0).......(cl-loop.w
35080 69 74 68 20 6c 61 79 6f 75 74 20 3d 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 ith.layout.=.(car.(dv-layout.dv)
350a0 29 20 77 69 74 68 20 70 61 72 65 6e 74 2d 77 69 64 74 68 20 3d 20 28 6e 74 68 20 31 20 6c 61 79 ).with.parent-width.=.(nth.1.lay
350c0 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 72 65 6d 61 69 6e 20 out)................with.remain.
350e0 3d 20 28 2d 20 31 20 28 6e 74 68 20 32 20 6c 61 79 6f 75 74 29 20 70 61 72 65 6e 74 2d 77 69 64 =.(-.1.(nth.2.layout).parent-wid
35100 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 77 69 74 68 20 77 69 64 74 68 20 3d 20 th)................with.width.=.
35120 28 6d 69 6e 20 28 2f 20 72 65 6d 61 69 6e 20 64 65 70 74 68 29 20 70 61 72 65 6e 74 2d 77 69 64 (min.(/.remain.depth).parent-wid
35140 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 6c 65 76 65 6c 20 66 72 6f th)................for.level.fro
35160 6d 20 31 20 66 6f 72 20 28 63 75 72 72 65 6e 74 20 2e 20 70 61 72 65 6e 74 29 20 69 6e 20 70 61 m.1.for.(current...parent).in.pa
35180 72 65 6e 74 2d 64 69 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 61 72 67 rent-dirs................for.arg
351a0 73 20 3d 20 60 28 28 73 69 64 65 20 2e 20 6c 65 66 74 29 20 28 69 6e 68 69 62 69 74 2d 73 61 6d s.=.`((side...left).(inhibit-sam
351c0 65 2d 77 69 6e 64 6f 77 20 2e 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 e-window...t)...................
351e0 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 20 2e 20 2c 77 69 64 74 68 ..........(window-width...,width
35200 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 77 ).............................(w
35220 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 73 20 2e 20 28 28 6e 6f 2d 6f 74 68 65 72 2d 77 69 indow-parameters...((no-other-wi
35240 6e 64 6f 77 20 2e 20 74 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 ndow...t))))................for.
35260 62 20 3d 20 28 64 69 72 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 70 61 72 65 6e 74 2d 62 75 66 66 b.=.(dirvish--create-parent-buff
35280 65 72 20 64 76 20 70 61 72 65 6e 74 20 63 75 72 72 65 6e 74 20 6c 65 76 65 6c 29 0a 20 20 20 20 er.dv.parent.current.level).....
352a0 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 77 20 3d 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 ...........for.w.=.(display-buff
352c0 65 72 20 62 20 60 28 64 69 72 76 69 73 68 2d 2d 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 2e er.b.`(dirvish--display-buffer..
352e0 20 2c 61 72 67 73 29 29 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 .,args)).do................(with
35300 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 -selected-window.w..............
35320 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 66 72 69 6e 67 65 73 20 6e 69 6c 20 31 20 31 29 ....(set-window-fringes.nil.1.1)
35340 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 20 74 29 29 29 29 .(set-window-dedicated-p.w.t))))
35360 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 75 74 69 6c 2d 62 75 ))..(defun.dirvish--init-util-bu
35380 66 66 65 72 73 20 28 64 76 29 0a 20 20 22 49 6e 69 74 69 61 6c 69 7a 65 20 75 74 69 6c 20 62 75 ffers.(dv)..."Initialize.util.bu
353a0 66 66 65 72 73 20 66 6f 72 20 44 56 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 ffers.for.DV."...(with-current-b
353c0 75 66 66 65 72 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 70 72 65 uffer.(dirvish--util-buffer.'pre
353e0 76 69 65 77 20 64 76 20 6e 69 6c 20 74 29 0a 20 20 20 20 28 66 75 6e 64 61 6d 65 6e 74 61 6c 2d view.dv.nil.t).....(fundamental-
35400 6d 6f 64 65 29 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 6e 69 6c mode).(setq.mode-line-format.nil
35420 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 6e 69 6c 29 0a 20 20 20 20 28 61 64 .header-line-format.nil).....(ad
35440 64 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 73 63 72 6f 6c 6c 2d 66 75 6e 63 74 69 6f 6e 73 20 d-hook.'window-scroll-functions.
35460 23 27 64 69 72 76 69 73 68 2d 61 70 70 6c 79 2d 61 6e 73 69 63 6f 6c 6f 72 2d 68 20 6e 69 6c 20 #'dirvish-apply-ansicolor-h.nil.
35480 74 29 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 64 69 72 76 t))...(with-current-buffer.(dirv
354a0 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 68 65 61 64 65 72 20 64 76 29 0a 20 20 20 ish--util-buffer.'header.dv)....
354c0 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 64 76 20 28 64 76 2d 6e 61 6d 65 20 64 76 29 29 .(dirvish-prop.:dv.(dv-name.dv))
354e0 0a 20 20 20 20 28 73 65 74 71 20 63 75 72 73 6f 72 2d 74 79 70 65 20 6e 69 6c 20 77 69 6e 64 6f .....(setq.cursor-type.nil.windo
35500 77 2d 73 69 7a 65 2d 66 69 78 65 64 20 27 68 65 69 67 68 74 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 w-size-fixed.'height.mode-line-f
35520 6f 72 6d 61 74 20 6e 69 6c 29 29 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 ormat.nil))...(with-current-buff
35540 65 72 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 66 6f 6f 74 65 72 er.(dirvish--util-buffer.'footer
35560 20 64 76 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 64 76 20 28 64 76 2d 6e .dv).....(dirvish-prop.:dv.(dv-n
35580 61 6d 65 20 64 76 29 29 0a 20 20 20 20 28 73 65 74 71 20 63 75 72 73 6f 72 2d 74 79 70 65 20 6e ame.dv)).....(setq.cursor-type.n
355a0 69 6c 20 77 69 6e 64 6f 77 2d 73 69 7a 65 2d 66 69 78 65 64 20 27 68 65 69 67 68 74 29 0a 20 20 il.window-size-fixed.'height)...
355c0 20 20 28 73 65 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 6e 69 6c 20 6d ..(setq.header-line-format.nil.m
355e0 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d 6c 69 ode-line-format.dirvish--mode-li
35600 6e 65 2d 66 6d 74 29 29 29 0a 0a 28 64 65 66 73 75 62 73 74 20 64 69 72 76 69 73 68 2d 2d 64 69 ne-fmt)))..(defsubst.dirvish--di
35620 72 2d 64 61 74 61 2d 67 65 74 74 65 72 20 28 64 69 72 29 0a 20 20 22 53 63 72 69 70 74 20 66 6f r-data-getter.(dir)..."Script.fo
35640 72 20 44 49 52 20 64 61 74 61 20 72 65 74 72 69 65 76 69 6e 67 2e 22 0a 20 20 60 28 77 69 74 68 r.DIR.data.retrieving."...`(with
35660 2d 74 65 6d 70 2d 62 75 66 66 65 72 0a 20 20 20 20 20 28 6c 65 74 20 28 28 68 61 73 68 20 28 6d -temp-buffer......(let.((hash.(m
35680 61 6b 65 2d 68 61 73 68 2d 74 61 62 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 6b 20 ake-hash-table))............(bk.
356a0 2c 28 61 6e 64 20 28 66 65 61 74 75 72 65 70 20 27 64 69 72 76 69 73 68 2d 76 63 29 0a 20 20 20 ,(and.(featurep.'dirvish-vc)....
356c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 ..................`(ignore-error
356e0 73 20 28 76 63 2d 72 65 73 70 6f 6e 73 69 62 6c 65 2d 62 61 63 6b 65 6e 64 20 2c 64 69 72 29 29 s.(vc-responsible-backend.,dir))
35700 29 29 29 0a 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 20 28 66 69 6c 65 20 28 64 69 72 65 63 74 )))........(dolist.(file.(direct
35720 6f 72 79 2d 66 69 6c 65 73 20 2c 64 69 72 20 74 20 6e 69 6c 20 74 29 29 0a 20 20 20 20 20 20 20 ory-files.,dir.t.nil.t))........
35740 20 20 28 6c 65 74 2a 20 28 28 61 74 74 72 73 20 28 66 69 6c 65 2d 61 74 74 72 69 62 75 74 65 73 ..(let*.((attrs.(file-attributes
35760 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 74 61 74 65 20 28 .file)).................(state.(
35780 61 6e 64 20 62 6b 20 28 76 63 2d 73 74 61 74 65 2d 72 65 66 72 65 73 68 20 66 69 6c 65 20 62 6b and.bk.(vc-state-refresh.file.bk
357a0 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 69 74 20 28 61 6e 64 20 28 65 ))).................(git.(and.(e
357c0 71 20 62 6b 20 27 47 69 74 29 20 3b 20 54 4f 44 4f 3a 20 72 65 66 61 63 74 6f 72 20 74 68 69 73 q.bk.'Git).;.TODO:.refactor.this
357e0 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 68 65 6c ...........................(shel
35800 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 20 20 20 l-command-to-string.............
35820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 20 22 67 69 74 20 6c 6f 67 20 ...............(format."git.log.
35840 2d 31 20 2d 2d 70 72 65 74 74 79 3d 25 25 73 20 25 73 22 0a 20 20 20 20 20 20 20 20 20 20 20 20 -1.--pretty=%%s.%s".............
35860 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 68 65 6c 6c 2d 71 75 .......................(shell-qu
35880 6f 74 65 2d 61 72 67 75 6d 65 6e 74 20 66 69 6c 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 ote-argument.file)))))..........
358a0 20 20 20 20 20 20 20 28 74 70 20 28 6e 74 68 20 30 20 61 74 74 72 73 29 29 29 0a 20 20 20 20 20 .......(tp.(nth.0.attrs)))......
358c0 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 74 20 74 ......(cond.............((eq.t.t
358e0 70 29 20 28 73 65 74 71 20 74 70 20 27 28 64 69 72 20 2e 20 6e 69 6c 29 29 29 0a 20 20 20 20 20 p).(setq.tp.'(dir...nil)))......
35900 20 20 20 20 20 20 20 28 74 70 20 28 73 65 74 71 20 74 70 20 60 28 2c 28 69 66 20 28 66 69 6c 65 .......(tp.(setq.tp.`(,(if.(file
35920 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 74 70 29 20 27 64 69 72 20 27 66 69 6c 65 29 20 2e 20 2c -directory-p.tp).'dir.'file)...,
35940 74 70 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 71 20 74 70 20 27 28 tp))).............(t.(setq.tp.'(
35960 66 69 6c 65 20 2e 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 70 75 74 68 61 file...nil))))............(putha
35980 73 68 20 28 69 6e 74 65 72 6e 20 28 73 65 63 75 72 65 2d 68 61 73 68 20 27 6d 64 35 20 66 69 6c sh.(intern.(secure-hash.'md5.fil
359a0 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 60 28 3a 62 75 69 6c 74 e)).....................`(:built
359c0 69 6e 20 2c 61 74 74 72 73 20 3a 74 79 70 65 20 2c 74 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 in.,attrs.:type.,tp.............
359e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 61 6e 64 20 73 74 61 74 65 20 ...................,@(and.state.
35a00 28 6c 69 73 74 20 3a 76 63 2d 73 74 61 74 65 20 73 74 61 74 65 29 29 0a 20 20 20 20 20 20 20 20 (list.:vc-state.state)).........
35a20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2c 40 28 61 6e 64 20 67 69 .......................,@(and.gi
35a40 74 20 28 6c 69 73 74 20 3a 67 69 74 2d 6d 73 67 20 67 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 t.(list.:git-msg.git))).........
35a60 20 20 20 20 20 20 20 20 20 20 20 20 68 61 73 68 29 29 29 0a 20 20 20 20 20 20 20 28 70 72 69 6e ............hash)))........(prin
35a80 31 20 28 63 6f 6e 73 20 62 6b 20 68 61 73 68 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 1.(cons.bk.hash).(current-buffer
35aa0 29 29 29 0a 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
35ac0 6f 70 65 72 74 69 65 73 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 operties.(point-min).(point-max)
35ae0 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 64 69 72 2d 64 61 74 61 2d 70 72 6f )))..(defun.dirvish-dir-data-pro
35b00 63 2d 73 20 28 70 72 6f 63 20 5f 65 78 69 74 29 0a 20 20 22 50 61 72 73 65 20 74 68 65 20 64 69 c-s.(proc._exit)..."Parse.the.di
35b20 72 65 63 74 6f 72 79 20 6d 65 74 61 64 61 74 61 20 66 72 6f 6d 20 50 52 4f 43 27 73 20 6f 75 74 rectory.metadata.from.PROC's.out
35b40 70 75 74 20 53 54 52 2e 22 0a 20 20 28 70 63 61 73 65 2d 6c 65 74 20 28 28 60 28 2c 62 75 66 20 put.STR."...(pcase-let.((`(,buf.
35b60 2e 20 2c 73 65 74 75 70 29 20 28 70 72 6f 63 65 73 73 2d 67 65 74 20 70 72 6f 63 20 27 6d 65 74 ..,setup).(process-get.proc.'met
35b80 61 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 60 28 2c 76 63 20 2e 20 2c 64 61 74 61 a))...............(`(,vc...,data
35ba0 29 20 28 77 69 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 ).(with-current-buffer.(process-
35bc0 62 75 66 66 65 72 20 70 72 6f 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 buffer.proc)....................
35be0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 61 64 20 28 62 75 66 66 65 72 2d 73 74 72 69 6e .............(read.(buffer-strin
35c00 67 29 29 29 29 29 0a 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 g))))).....(when.(buffer-live-p.
35c20 62 75 66 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 buf).......(with-current-buffer.
35c40 62 75 66 0a 20 20 20 20 20 20 20 20 28 6d 61 70 68 61 73 68 20 28 6c 61 6d 62 64 61 20 28 6b 20 buf.........(maphash.(lambda.(k.
35c60 76 29 20 28 70 75 74 68 61 73 68 20 6b 20 76 20 64 69 72 76 69 73 68 2d 2d 61 74 74 72 73 2d 68 v).(puthash.k.v.dirvish--attrs-h
35c80 61 73 68 29 29 20 64 61 74 61 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 73 65 74 75 70 0a ash)).data).........(when.setup.
35ca0 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 61 63 6b ..........(dirvish-prop.:vc-back
35cc0 65 6e 64 20 76 63 29 0a 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 68 6f 6f 6b 73 20 27 64 69 end.vc)...........(run-hooks.'di
35ce0 72 76 69 73 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e 6c 65 rvish-setup-hook)).........(unle
35d00 73 73 20 28 64 65 72 69 76 65 64 2d 6d 6f 64 65 2d 70 20 27 77 64 69 72 65 64 2d 6d 6f 64 65 29 ss.(derived-mode-p.'wdired-mode)
35d20 20 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 29 29 0a 20 20 28 .(dirvish-update-body-h)))))...(
35d40 64 65 6c 65 74 65 2d 70 72 6f 63 65 73 73 20 70 72 6f 63 29 0a 20 20 28 64 69 72 76 69 73 68 2d delete-process.proc)...(dirvish-
35d60 2d 6b 69 6c 6c 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 -kill-buffer.(process-buffer.pro
35d80 63 29 29 29 0a 0a 28 63 6c 2d 64 65 66 67 65 6e 65 72 69 63 20 64 69 72 76 69 73 68 2d 64 61 74 c)))..(cl-defgeneric.dirvish-dat
35da0 61 2d 66 6f 72 2d 64 69 72 20 28 64 69 72 20 62 75 66 66 65 72 20 73 65 74 75 70 29 0a 20 20 22 a-for-dir.(dir.buffer.setup)..."
35dc0 46 65 74 63 68 20 64 61 74 61 20 66 6f 72 20 66 69 6c 65 73 20 69 6e 20 44 49 52 2c 20 73 74 6f Fetch.data.for.files.in.DIR,.sto
35de0 72 65 64 20 6c 6f 63 61 6c 6c 79 20 69 6e 20 42 55 46 46 45 52 2e 0a 52 75 6e 20 60 64 69 72 76 red.locally.in.BUFFER..Run.`dirv
35e00 69 73 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 27 20 61 66 74 65 72 77 61 72 64 73 20 77 68 65 6e 20 ish-setup-hook'.afterwards.when.
35e20 53 45 54 55 50 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 62 75 66 SETUP.is.non-nil."...(let*.((buf
35e40 20 28 6d 61 6b 65 2d 74 65 6d 70 2d 6e 61 6d 65 20 22 64 69 72 2d 64 61 74 61 2d 22 29 29 0a 20 .(make-temp-name."dir-data-"))..
35e60 20 20 20 20 20 20 20 20 28 63 20 28 66 6f 72 6d 61 74 20 22 25 53 22 20 60 28 6d 65 73 73 61 67 ........(c.(format."%S".`(messag
35e80 65 20 22 25 73 22 20 2c 28 64 69 72 76 69 73 68 2d 2d 64 69 72 2d 64 61 74 61 2d 67 65 74 74 65 e."%s".,(dirvish--dir-data-gette
35ea0 72 20 64 69 72 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 63 20 28 6d 61 6b 65 2d 70 r.dir))))..........(proc.(make-p
35ec0 72 6f 63 65 73 73 20 3a 6e 61 6d 65 20 22 64 69 72 2d 64 61 74 61 22 20 3a 63 6f 6e 6e 65 63 74 rocess.:name."dir-data".:connect
35ee0 69 6f 6e 2d 74 79 70 65 20 6e 69 6c 20 3a 62 75 66 66 65 72 20 62 75 66 0a 20 20 20 20 20 20 20 ion-type.nil.:buffer.buf........
35f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 6f 6d 6d 61 6e 64 20 28 ......................:command.(
35f20 6c 69 73 74 20 64 69 72 76 69 73 68 2d 65 6d 61 63 73 2d 62 69 6e 20 22 2d 51 22 20 22 2d 62 61 list.dirvish-emacs-bin."-Q"."-ba
35f40 74 63 68 22 20 22 2d 2d 65 76 61 6c 22 20 63 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tch"."--eval".c)................
35f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 65 6e 74 69 6e 65 6c 20 27 64 69 72 76 69 73 68 ..............:sentinel.'dirvish
35f80 2d 64 69 72 2d 64 61 74 61 2d 70 72 6f 63 2d 73 29 29 29 0a 20 20 20 20 28 70 72 6f 63 65 73 73 -dir-data-proc-s))).....(process
35fa0 2d 70 75 74 20 70 72 6f 63 20 27 6d 65 74 61 20 28 63 6f 6e 73 20 62 75 66 66 65 72 20 73 65 74 -put.proc.'meta.(cons.buffer.set
35fc0 75 70 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 77 69 6e 64 6f 77 2d 73 up))))..(defun.dirvish--window-s
35fe0 70 6c 69 74 2d 6f 72 64 65 72 20 28 29 0a 20 20 22 43 6f 6d 70 75 74 65 20 74 68 65 20 77 69 6e plit-order.()..."Compute.the.win
36000 64 6f 77 20 73 70 6c 69 74 20 6f 72 64 65 72 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 77 65 69 67 dow.split.order."...(let*.((weig
36020 68 74 73 20 27 28 28 6e 69 6c 20 2e 20 30 29 20 28 74 20 2e 20 31 29 20 28 67 6c 6f 62 61 6c 20 hts.'((nil...0).(t...1).(global.
36040 2e 20 32 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6f 72 64 0a 20 20 20 20 20 20 20 20 20 20 27 ..2)))..........(ord...........'
36060 28 28 30 30 20 70 72 65 76 69 65 77 29 20 28 31 32 20 66 6f 6f 74 65 72 20 70 72 65 76 69 65 77 ((00.preview).(12.footer.preview
36080 20 68 65 61 64 65 72 29 20 28 32 31 20 68 65 61 64 65 72 20 70 72 65 76 69 65 77 20 66 6f 6f 74 .header).(21.header.preview.foot
360a0 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 32 30 20 68 65 61 64 65 72 20 70 72 65 76 69 er).............(20.header.previ
360c0 65 77 29 20 28 31 31 20 70 72 65 76 69 65 77 20 68 65 61 64 65 72 20 66 6f 6f 74 65 72 29 20 28 ew).(11.preview.header.footer).(
360e0 31 30 20 70 72 65 76 69 65 77 20 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 10.preview.header).............(
36100 30 31 20 70 72 65 76 69 65 77 20 66 6f 6f 74 65 72 29 20 28 30 32 20 66 6f 6f 74 65 72 20 70 72 01.preview.footer).(02.footer.pr
36120 65 76 69 65 77 29 20 28 32 32 20 66 6f 6f 74 65 72 20 68 65 61 64 65 72 20 70 72 65 76 69 65 77 eview).(22.footer.header.preview
36140 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 2d 70 6f 73 20 28 69 66 20 28 64 69 72 76 69 73 68 )))..........(h-pos.(if.(dirvish
36160 2d 70 72 6f 70 20 3a 67 6c 6f 62 61 6c 2d 68 65 61 64 65 72 29 20 32 0a 20 20 20 20 20 20 20 20 -prop.:global-header).2.........
36180 20 20 20 20 20 20 20 20 20 20 28 61 6c 69 73 74 2d 67 65 74 20 64 69 72 76 69 73 68 2d 75 73 65 ..........(alist-get.dirvish-use
361a0 2d 68 65 61 64 65 72 2d 6c 69 6e 65 20 77 65 69 67 68 74 73 29 29 29 0a 20 20 20 20 20 20 20 20 -header-line.weights))).........
361c0 20 28 6d 2d 70 6f 73 20 28 61 6c 69 73 74 2d 67 65 74 20 64 69 72 76 69 73 68 2d 75 73 65 2d 6d .(m-pos.(alist-get.dirvish-use-m
361e0 6f 64 65 2d 6c 69 6e 65 20 77 65 69 67 68 74 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 6b 65 79 ode-line.weights))..........(key
36200 20 28 73 74 72 69 6e 67 2d 74 6f 2d 6e 75 6d 62 65 72 20 28 66 6f 72 6d 61 74 20 22 25 73 25 73 .(string-to-number.(format."%s%s
36220 22 20 28 6f 72 20 68 2d 70 6f 73 20 31 29 20 28 6f 72 20 6d 2d 70 6f 73 20 31 29 29 29 29 29 0a ".(or.h-pos.1).(or.m-pos.1))))).
36240 20 20 20 20 28 63 64 72 20 28 61 73 73 71 20 6b 65 79 20 6f 72 64 29 29 29 29 0a 0a 28 64 65 66 ....(cdr.(assq.key.ord))))..(def
36260 75 6e 20 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 28 64 76 29 0a 20 20 un.dirvish--init-session.(dv)...
36280 22 42 75 69 6c 64 20 6c 61 79 6f 75 74 20 66 6f 72 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f "Build.layout.for.Dirvish.sessio
362a0 6e 20 44 56 2e 22 0a 20 20 28 73 65 74 66 20 28 64 76 2d 73 63 6f 70 65 73 20 64 76 29 20 28 64 n.DV."...(setf.(dv-scopes.dv).(d
362c0 69 72 76 69 73 68 2d 2d 73 63 6f 70 65 73 29 29 0a 20 20 28 73 65 74 66 20 28 64 76 2d 69 6e 64 irvish--scopes))...(setf.(dv-ind
362e0 65 78 20 64 76 29 20 28 63 6f 6e 73 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 6f 6f 74 ex.dv).(cons.(dirvish-prop.:root
36300 29 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 28 73 65 74 66 20 28 64 76 ).(current-buffer)))...(setf.(dv
36320 2d 77 69 6e 63 6f 6e 66 20 64 76 29 20 28 6f 72 20 28 64 76 2d 77 69 6e 63 6f 6e 66 20 64 76 29 -winconf.dv).(or.(dv-winconf.dv)
36340 20 28 63 75 72 72 65 6e 74 2d 77 69 6e 64 6f 77 2d 63 6f 6e 66 69 67 75 72 61 74 69 6f 6e 29 29 .(current-window-configuration))
36360 29 0a 20 20 28 6c 65 74 2a 20 28 28 6c 61 79 6f 75 74 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f )...(let*.((layout.(car.(dv-layo
36380 75 74 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 2d 61 72 67 73 20 60 28 28 70 72 65 ut.dv)))..........(w-args.`((pre
363a0 76 69 65 77 20 28 73 69 64 65 20 2e 20 72 69 67 68 74 29 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 view.(side...right).(window-widt
363c0 68 20 2e 20 2c 28 6e 74 68 20 32 20 6c 61 79 6f 75 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 h...,(nth.2.layout)))...........
363e0 20 20 20 20 20 20 20 20 20 28 68 65 61 64 65 72 20 28 73 69 64 65 20 2e 20 61 62 6f 76 65 29 20 .........(header.(side...above).
36400 28 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2e 20 2d 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 (window-height...-2)............
36420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 ................(window-paramete
36440 72 73 20 2e 20 28 28 6e 6f 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 2e 20 74 29 29 29 29 0a 20 rs...((no-other-window...t))))..
36460 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 6f 74 65 72 20 28 73 69 64 65 20 ..................(footer.(side.
36480 2e 20 62 65 6c 6f 77 29 20 28 77 69 6e 64 6f 77 2d 68 65 69 67 68 74 20 2e 20 2d 32 29 0a 20 20 ..below).(window-height...-2)...
364a0 20 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 69 6e 64 6f 77 .........................(window
364c0 2d 70 61 72 61 6d 65 74 65 72 73 20 2e 20 28 28 6e 6f 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 -parameters...((no-other-window.
364e0 2e 20 74 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 77 2d 6f 72 64 65 72 20 28 61 6e 64 ..t))))))..........(w-order.(and
36500 20 6c 61 79 6f 75 74 20 28 64 69 72 76 69 73 68 2d 2d 77 69 6e 64 6f 77 2d 73 70 6c 69 74 2d 6f .layout.(dirvish--window-split-o
36520 72 64 65 72 29 29 29 20 75 74 69 6c 2d 77 69 6e 64 6f 77 73 29 0a 20 20 20 20 28 73 65 74 71 20 rder))).util-windows).....(setq.
36540 64 69 72 76 69 73 68 2d 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 dirvish--selected-window.(select
36560 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 75 ed-window)).....(dirvish--init-u
36580 74 69 6c 2d 62 75 66 66 65 72 73 20 64 76 29 0a 20 20 20 20 28 77 68 65 6e 20 77 2d 6f 72 64 65 til-buffers.dv).....(when.w-orde
365a0 72 20 28 6c 65 74 20 28 28 69 67 6e 6f 72 65 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 r.(let.((ignore-window-parameter
365c0 73 20 74 29 29 20 28 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 29 29 29 0a 20 s.t)).(delete-other-windows)))..
365e0 20 20 20 28 64 6f 6c 69 73 74 20 28 70 61 6e 65 20 77 2d 6f 72 64 65 72 29 0a 20 20 20 20 20 20 ...(dolist.(pane.w-order).......
36600 28 6c 65 74 2a 20 28 28 62 75 66 20 28 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 (let*.((buf.(dirvish--util-buffe
36620 72 20 70 61 6e 65 20 64 76 20 6e 69 6c 20 28 65 71 20 70 61 6e 65 20 27 70 72 65 76 69 65 77 29 r.pane.dv.nil.(eq.pane.'preview)
36640 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 72 67 73 20 28 61 6c 69 73 74 2d 67 65 74 ))..............(args.(alist-get
36660 20 70 61 6e 65 20 77 2d 61 72 67 73 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e .pane.w-args))..............(win
36680 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 62 75 66 20 60 28 64 69 72 76 69 73 68 2d 2d .(display-buffer.buf.`(dirvish--
366a0 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 20 2e 20 2c 61 72 67 73 29 29 29 29 0a 20 20 20 20 20 display-buffer...,args))))......
366c0 20 20 20 28 63 6f 6e 64 20 28 28 65 71 20 70 61 6e 65 20 27 70 72 65 76 69 65 77 29 20 28 73 65 ...(cond.((eq.pane.'preview).(se
366e0 74 66 20 28 64 76 2d 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 64 76 29 20 77 69 6e 29 29 0a tf.(dv-preview-window.dv).win)).
36700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 ..............(t.(set-window-ded
36720 69 63 61 74 65 64 2d 70 20 77 69 6e 20 74 29 20 28 70 75 73 68 20 77 69 6e 20 75 74 69 6c 2d 77 icated-p.win.t).(push.win.util-w
36740 69 6e 64 6f 77 73 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 62 75 indows))).........(set-window-bu
36760 66 66 65 72 20 77 69 6e 20 62 75 66 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 63 72 ffer.win.buf))).....(dirvish--cr
36780 65 61 74 65 2d 70 61 72 65 6e 74 2d 77 69 6e 64 6f 77 73 20 64 76 29 0a 20 20 20 20 28 6c 65 74 eate-parent-windows.dv).....(let
367a0 20 28 28 68 2d 66 6d 74 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 75 73 2d .((h-fmt.(or.(dirvish-prop.:cus-
367c0 68 65 61 64 65 72 29 20 64 69 72 76 69 73 68 2d 2d 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6d 74 header).dirvish--header-line-fmt
367e0 29 29 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 ))).......(with-current-buffer.(
36800 64 69 72 76 69 73 68 2d 2d 75 74 69 6c 2d 62 75 66 66 65 72 20 27 68 65 61 64 65 72 20 64 76 29 dirvish--util-buffer.'header.dv)
36820 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 68 65 61 64 65 72 2d 6c 69 6e 65 2d 66 6f 72 6d 61 .........(setq.header-line-forma
36840 74 20 68 2d 66 6d 74 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 73 70 t.h-fmt)).......(when.(and.(disp
36860 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 20 28 3e 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 lay-graphic-p).(>.emacs-major-ve
36880 72 73 69 6f 6e 20 32 38 29 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 rsion.28)).........(let.((window
368a0 2d 73 61 66 65 2d 6d 69 6e 2d 68 65 69 67 68 74 20 30 29 20 28 77 69 6e 64 6f 77 2d 72 65 73 69 -safe-min-height.0).(window-resi
368c0 7a 65 2d 70 69 78 65 6c 77 69 73 65 20 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 6f 6c 69 ze-pixelwise.t))...........(doli
368e0 73 74 20 28 77 69 6e 20 75 74 69 6c 2d 77 69 6e 64 6f 77 73 29 20 28 66 69 74 2d 77 69 6e 64 6f st.(win.util-windows).(fit-windo
36900 77 2d 74 6f 2d 62 75 66 66 65 72 20 77 69 6e 20 32 20 31 29 29 29 29 0a 20 20 20 20 20 20 28 75 w-to-buffer.win.2.1)))).......(u
36920 6e 6c 65 73 73 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 61 63 68 65 64 29 0a 20 20 20 nless.(dirvish-prop.:cached)....
36940 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 64 61 74 61 2d 66 6f 72 2d 64 69 72 20 64 65 66 61 75 .....(dirvish-data-for-dir.defau
36960 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 74 29 lt-directory.(current-buffer).t)
36980 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 61 63 68 65 64 20 74 .........(dirvish-prop.:cached.t
369a0 29 29 29 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 64 76 29 29 ))).....(setq.dirvish--this.dv))
369c0 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 2d 72 65 75 73 65 2d 6f 72 2d 63 72 65 61 )..(defun.dirvish--reuse-or-crea
369e0 74 65 20 28 70 61 74 68 20 6c 61 79 6f 75 74 29 0a 20 20 22 46 69 6e 64 20 50 41 54 48 20 69 6e te.(path.layout)..."Find.PATH.in
36a00 20 61 20 64 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 20 61 6e 64 20 73 65 74 20 69 74 73 20 6c .a.dirvish.session.and.set.its.l
36a20 61 79 6f 75 74 20 77 69 74 68 20 4c 41 59 4f 55 54 2e 22 0a 20 20 28 6c 65 74 20 28 28 64 69 72 ayout.with.LAYOUT."...(let.((dir
36a40 20 28 6f 72 20 70 61 74 68 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 .(or.path.default-directory))...
36a60 20 20 20 20 20 20 28 64 76 20 28 6f 72 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 28 63 61 72 ......(dv.(or.dirvish--this.(car
36a80 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 72 65 75 73 61 62 6c 65 29 29 29 29 29 0a 20 20 .(dirvish--find-reusable)))))...
36aa0 20 20 28 63 6f 6e 64 20 28 64 76 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f ..(cond.(dv.(with-selected-windo
36ac0 77 20 28 64 69 72 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 w.(dirvish--create-root-window.d
36ae0 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 63 61 72 20 28 64 76 2d 6c v).................(setcar.(dv-l
36b00 61 79 6f 75 74 20 64 76 29 20 6c 61 79 6f 75 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ayout.dv).layout)...............
36b20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 64 76 29 0a 20 20 20 20 20 20 ..(setq.dirvish--this.dv).......
36b40 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 0a ..........(dirvish-find-entry-a.
36b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 70 61 74 68 20 28 6e .................(if.(or.path.(n
36b80 6f 74 20 28 65 71 20 64 69 72 76 69 73 68 2d 72 65 75 73 65 2d 73 65 73 73 69 6f 6e 20 27 72 65 ot.(eq.dirvish-reuse-session.'re
36ba0 73 75 6d 65 29 29 29 20 64 69 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 sume))).dir....................(
36bc0 63 61 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 car.(dv-index.dv))))............
36be0 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 69 6e 69 74 2d 73 65 73 73 69 6f 6e 20 64 76 29 29 .....(dirvish--init-session.dv))
36c00 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 69 72 76 69 73 68 2d 6e 65 77 20 3a 6c 61 79 )...........(t.(dirvish-new.:lay
36c20 6f 75 74 20 28 63 6f 6e 73 20 6c 61 79 6f 75 74 20 64 69 72 76 69 73 68 2d 64 65 66 61 75 6c 74 out.(cons.layout.dirvish-default
36c40 2d 6c 61 79 6f 75 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d -layout))..............(dirvish-
36c60 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 64 69 72 29 29 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 64 find-entry-a.dir)))))..(define-d
36c80 65 72 69 76 65 64 2d 6d 6f 64 65 20 64 69 72 76 69 73 68 2d 64 69 72 65 63 74 6f 72 79 2d 76 69 erived-mode.dirvish-directory-vi
36ca0 65 77 2d 6d 6f 64 65 0a 20 20 66 75 6e 64 61 6d 65 6e 74 61 6c 2d 6d 6f 64 65 20 22 44 69 72 76 ew-mode...fundamental-mode."Dirv
36cc0 69 73 68 2d 64 69 72 65 63 74 6f 72 79 2d 76 69 65 77 22 0a 20 20 22 4d 61 6a 6f 72 20 6d 6f 64 ish-directory-view"..."Major.mod
36ce0 65 20 66 6f 72 20 64 69 72 76 69 73 68 20 70 61 72 65 6e 74 20 62 75 66 66 65 72 73 2e 22 0a 20 e.for.dirvish.parent.buffers."..
36d00 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 69 6e 74 65 72 61 63 74 69 76 65 20 6e 69 .:group.'dirvish.:interactive.ni
36d20 6c 29 0a 0a 3b 3b 3b 3b 20 43 6f 6d 6d 61 6e 64 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 l)..;;;;.Commands..(defun.dirvis
36d40 68 2d 71 75 69 74 20 28 29 0a 20 20 22 51 75 69 74 20 63 75 72 72 65 6e 74 20 44 69 72 76 69 73 h-quit.()..."Quit.current.Dirvis
36d60 68 20 73 65 73 73 69 6f 6e 2e 0a 49 66 20 74 68 65 20 73 65 73 73 69 6f 6e 20 69 73 20 61 20 66 h.session..If.the.session.is.a.f
36d80 75 6c 6c 2d 66 72 61 6d 65 64 20 6f 6e 65 2c 20 74 68 65 20 77 69 6e 64 6f 77 20 6c 61 79 6f 75 ull-framed.one,.the.window.layou
36da0 74 20 69 73 0a 72 65 73 74 6f 72 65 64 2e 20 20 49 66 20 60 64 69 72 76 69 73 68 2d 72 65 75 73 t.is.restored...If.`dirvish-reus
36dc0 65 2d 73 65 73 73 69 6f 6e 27 20 69 73 20 6e 69 6c 2c 20 61 6c 6c 20 44 69 72 65 64 20 62 75 66 e-session'.is.nil,.all.Dired.buf
36de0 66 65 72 73 0a 69 6e 20 74 68 65 20 73 65 73 73 69 6f 6e 20 61 72 65 20 6b 69 6c 6c 65 64 2c 20 fers.in.the.session.are.killed,.
36e00 6f 74 68 65 72 77 69 73 65 20 6f 6e 6c 79 20 74 68 65 20 69 6e 76 69 73 69 62 6c 65 20 44 69 72 otherwise.only.the.invisible.Dir
36e20 65 64 0a 62 75 66 66 65 72 73 20 77 69 74 68 69 6e 20 74 68 65 20 73 65 73 73 69 6f 6e 20 61 72 ed.buffers.within.the.session.ar
36e40 65 20 6b 69 6c 6c 65 64 20 61 6e 64 20 74 68 65 20 44 69 72 65 64 20 62 75 66 66 65 72 28 73 29 e.killed.and.the.Dired.buffer(s)
36e60 20 69 6e 0a 74 68 65 20 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 20 61 72 65 20 62 75 72 69 .in.the.selected.window.are.buri
36e80 65 64 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 64 76 ed."...(interactive)...(let.((dv
36ea0 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 20 28 63 74 20 30 29 20 28 6c 73 74 20 28 77 69 .(dirvish-curr)).(ct.0).(lst.(wi
36ec0 6e 64 6f 77 2d 6c 69 73 74 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 6e 20 28 73 65 6c 65 63 74 ndow-list)).........(win.(select
36ee0 65 64 2d 77 69 6e 64 6f 77 29 29 20 28 66 72 61 6d 65 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 ed-window)).(frame.(selected-fra
36f00 6d 65 29 29 29 0a 20 20 20 20 28 64 69 72 76 69 73 68 2d 6b 69 6c 6c 20 64 76 29 0a 20 20 20 20 me))).....(dirvish-kill.dv).....
36f20 28 77 68 69 6c 65 20 28 61 6e 64 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 20 28 65 71 20 28 (while.(and.(dirvish-curr).(eq.(
36f40 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 20 77 69 6e 29 0a 20 20 20 20 20 20 20 20 20 20 selected-window).win)...........
36f60 20 20 20 20 20 20 28 3c 3d 20 28 63 6c 2d 69 6e 63 66 20 63 74 29 20 28 6c 65 6e 67 74 68 20 6c ......(<=.(cl-incf.ct).(length.l
36f80 73 74 29 29 29 0a 20 20 20 20 20 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 st))).......(quit-window)).....(
36fa0 75 6e 6c 65 73 73 20 28 65 71 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 20 66 72 61 6d unless.(eq.(selected-frame).fram
36fc0 65 29 20 28 64 65 6c 65 74 65 2d 66 72 61 6d 65 20 66 72 61 6d 65 29 29 29 29 0a 0a 3b 3b 3b 23 e).(delete-frame.frame))))..;;;#
36fe0 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 64 65 20 64 69 ##autoload.(define-minor-mode.di
37000 72 76 69 73 68 2d 6f 76 65 72 72 69 64 65 2d 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 22 4c 65 74 rvish-override-dired-mode..."Let
37020 20 44 69 72 76 69 73 68 20 74 61 6b 65 20 6f 76 65 72 20 44 69 72 65 64 20 67 6c 6f 62 61 6c 6c .Dirvish.take.over.Dired.globall
37040 79 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 67 6c 6f 62 61 6c 20 74 0a y."...:group.'dirvish.:global.t.
37060 20 20 28 6c 65 74 20 28 28 61 64 73 20 27 28 28 64 69 72 65 64 2d 66 69 6e 64 2d 66 69 6c 65 20 ..(let.((ads.'((dired-find-file.
37080 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 3a 6f 76 65 72 72 69 64 65 29 0a dirvish-find-entry-a.:override).
370a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 20 64 ...............(dired-noselect.d
370c0 69 72 76 69 73 68 2d 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 2d 61 20 3a 61 72 6f 75 6e 64 29 irvish-dired-noselect-a.:around)
370e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 69 6e 73 65 72 74 2d 73 75 ................(dired-insert-su
37100 62 64 69 72 20 64 69 72 76 69 73 68 2d 69 6e 73 65 72 74 2d 73 75 62 64 69 72 2d 61 20 3a 61 66 bdir.dirvish-insert-subdir-a.:af
37120 74 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6d 61 67 65 2d 64 69 72 65 64 ter)................(image-dired
37140 2d 63 72 65 61 74 65 2d 74 68 75 6d 62 6e 61 69 6c 2d 62 75 66 66 65 72 20 64 69 72 76 69 73 68 -create-thumbnail-buffer.dirvish
37160 2d 74 68 75 6d 62 2d 62 75 66 2d 61 20 3a 61 72 6f 75 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 -thumb-buf-a.:around)...........
37180 20 20 20 20 20 28 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f .....(wdired-change-to-wdired-mo
371a0 64 65 20 64 69 72 76 69 73 68 2d 77 64 69 72 65 64 2d 65 6e 74 65 72 2d 61 20 3a 61 66 74 65 72 de.dirvish-wdired-enter-a.:after
371c0 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d )................(wdired-change-
371e0 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 20 64 69 72 76 69 73 68 2d 69 6e 69 74 2d 64 69 72 65 64 to-dired-mode.dirvish-init-dired
37200 2d 62 75 66 66 65 72 20 3a 61 66 74 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 6c 2d 63 -buffer.:after))).........(sel-c
37220 68 20 23 27 64 69 72 76 69 73 68 2d 73 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 68 29 0a h.#'dirvish-selection-change-h).
37240 20 20 20 20 20 20 20 20 28 74 61 62 2d 70 6f 73 74 20 23 27 64 69 72 76 69 73 68 2d 74 61 62 2d ........(tab-post.#'dirvish-tab-
37260 6e 65 77 2d 70 6f 73 74 2d 68 29 29 0a 20 20 20 20 28 69 66 20 64 69 72 76 69 73 68 2d 6f 76 65 new-post-h)).....(if.dirvish-ove
37280 72 72 69 64 65 2d 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 20 rride-dired-mode.........(progn.
372a0 28 70 63 61 73 65 2d 64 6f 6c 69 73 74 20 28 60 28 2c 73 79 6d 20 2c 66 6e 20 2c 68 6f 77 29 20 (pcase-dolist.(`(,sym.,fn.,how).
372c0 61 64 73 29 20 28 61 64 76 69 63 65 2d 61 64 64 20 73 79 6d 20 68 6f 77 20 66 6e 29 29 0a 20 20 ads).(advice-add.sym.how.fn))...
372e0 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d 73 .............(add-hook.'window-s
37300 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 73 20 73 65 6c 2d 63 68 election-change-functions.sel-ch
37320 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 74 61 62 2d )................(add-hook.'tab-
37340 62 61 72 2d 74 61 62 2d 70 6f 73 74 2d 6f 70 65 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 74 61 62 2d bar-tab-post-open-functions.tab-
37360 70 6f 73 74 29 29 0a 20 20 20 20 20 20 28 70 63 61 73 65 2d 64 6f 6c 69 73 74 20 28 60 28 2c 73 post)).......(pcase-dolist.(`(,s
37380 79 6d 20 2c 66 6e 29 20 61 64 73 29 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 73 79 6d 20 ym.,fn).ads).(advice-remove.sym.
373a0 66 6e 29 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 77 69 6e 64 6f 77 2d fn)).......(remove-hook.'window-
373c0 73 65 6c 65 63 74 69 6f 6e 2d 63 68 61 6e 67 65 2d 66 75 6e 63 74 69 6f 6e 73 20 73 65 6c 2d 63 selection-change-functions.sel-c
373e0 68 29 0a 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 74 61 62 2d 62 61 72 2d 74 h).......(remove-hook.'tab-bar-t
37400 61 62 2d 70 6f 73 74 2d 6f 70 65 6e 2d 66 75 6e 63 74 69 6f 6e 73 20 74 61 62 2d 70 6f 73 74 29 ab-post-open-functions.tab-post)
37420 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 64 69 72 76 69 )))..;;;###autoload.(defun.dirvi
37440 73 68 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 74 68 29 0a 20 20 22 53 74 61 72 74 20 61 20 66 sh.(&optional.path)..."Start.a.f
37460 75 6c 6c 20 66 72 61 6d 65 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 20 77 69 74 68 20 6f ull.frame.Dirvish.session.with.o
37480 70 74 69 6f 6e 61 6c 20 50 41 54 48 2e 0a 49 66 20 63 61 6c 6c 65 64 20 77 69 74 68 20 5c 5c 5b ptional.PATH..If.called.with.\\[
374a0 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 73 5d 2c 20 70 72 6f 6d 70 74 20 66 6f 72 universal-arguments],.prompt.for
374c0 20 50 41 54 48 2c 0a 6f 74 68 65 72 77 69 73 65 20 69 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 .PATH,.otherwise.it.defaults.to.
374e0 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 6e 74 65 72 61 63 `default-directory'."...(interac
37500 74 69 76 65 20 28 6c 69 73 74 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 tive.(list.(and.current-prefix-a
37520 72 67 20 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 44 69 72 76 69 73 68 rg.(read-directory-name."Dirvish
37540 3a 20 22 29 29 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 75 73 65 2d 6f 72 2d 63 72 65 :."))))...(dirvish--reuse-or-cre
37560 61 74 65 20 70 61 74 68 20 64 69 72 76 69 73 68 2d 64 65 66 61 75 6c 74 2d 6c 61 79 6f 75 74 29 ate.path.dirvish-default-layout)
37580 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 64 69 72 76 69 73 68 )..;;;###autoload.(defun.dirvish
375a0 2d 64 77 69 6d 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 74 68 29 0a 20 20 22 53 74 61 72 74 20 -dwim.(&optional.path)..."Start.
375c0 61 20 66 75 6c 6c 66 72 61 6d 65 20 73 65 73 73 69 6f 6e 20 6f 6e 6c 79 20 77 68 65 6e 20 60 6f a.fullframe.session.only.when.`o
375e0 6e 65 2d 77 69 6e 64 6f 77 2d 70 27 2e 0a 49 66 20 63 61 6c 6c 65 64 20 77 69 74 68 20 5c 5c 5b ne-window-p'..If.called.with.\\[
37600 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 73 5d 2c 20 70 72 6f 6d 70 74 20 66 6f 72 universal-arguments],.prompt.for
37620 20 50 41 54 48 2c 0a 6f 74 68 65 72 77 69 73 65 20 69 74 20 64 65 66 61 75 6c 74 73 20 74 6f 20 .PATH,.otherwise.it.defaults.to.
37640 60 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 27 2e 0a 49 66 20 60 6f 6e 65 2d 77 69 6e `default-directory'..If.`one-win
37660 64 6f 77 2d 70 27 20 72 65 74 75 72 6e 73 20 6e 69 6c 2c 20 6f 70 65 6e 20 50 41 54 48 20 75 73 dow-p'.returns.nil,.open.PATH.us
37680 69 6e 67 20 72 65 67 75 6c 61 72 20 44 69 72 65 64 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 ing.regular.Dired."...(interacti
376a0 76 65 20 28 6c 69 73 74 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 ve.(list.(and.current-prefix-arg
376c0 20 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 44 69 72 76 69 73 68 3a 20 .(read-directory-name."Dirvish:.
376e0 22 29 29 29 29 0a 20 20 28 64 69 72 76 69 73 68 2d 2d 72 65 75 73 65 2d 6f 72 2d 63 72 65 61 74 "))))...(dirvish--reuse-or-creat
37700 65 0a 20 20 20 70 61 74 68 20 28 69 66 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 28 63 61 72 e....path.(if.dirvish--this.(car
37720 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 29 29 0a 20 20 20 20 .(dv-layout.dirvish--this)).....
37740 20 20 20 20 20 20 28 61 6e 64 20 28 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 29 20 64 69 72 76 69 73 ......(and.(one-window-p).dirvis
37760 68 2d 64 65 66 61 75 6c 74 2d 6c 61 79 6f 75 74 29 29 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 h-default-layout))))..(transient
37780 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 64 69 73 70 61 74 63 68 20 -define-prefix.dirvish-dispatch.
377a0 28 29 0a 20 20 22 4d 61 69 6e 20 6d 65 6e 75 20 66 6f 72 20 44 69 72 65 64 2f 44 69 72 76 69 73 ()..."Main.menu.for.Dired/Dirvis
377c0 68 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 h."...[:description....(lambda.(
377e0 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 0a ).(dirvish--format-menu-heading.
37800 20 20 20 20 20 20 20 20 20 20 22 44 69 72 76 69 73 68 20 6d 61 69 6e 20 6d 65 6e 75 22 0a 20 20 .........."Dirvish.main.menu"...
37820 20 20 20 20 20 20 20 20 22 50 72 65 73 73 20 3f 20 74 6f 20 73 65 65 20 6d 6f 72 65 20 69 6e 66 ........"Press.?.to.see.more.inf
37840 6f 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 20 6d 65 6e 75 22 29 29 0a 20 20 20 22 54 72 o.for.the.current.menu"))...."Tr
37860 61 6e 73 69 65 6e 74 20 63 6f 6d 6d 61 6e 64 73 22 0a 20 20 20 28 22 61 22 20 22 51 75 69 63 6b ansient.commands"....("a"."Quick
37880 20 61 63 63 65 73 73 22 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b .access"...........dirvish-quick
378a0 2d 61 63 63 65 73 73 29 0a 20 20 20 28 22 68 22 20 22 47 6f 20 74 6f 20 68 69 73 74 6f 72 79 20 -access)....("h"."Go.to.history.
378c0 65 6e 74 72 69 65 73 22 20 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6d 65 6e 75 29 0a entries"..dirvish-history-menu).
378e0 20 20 20 28 22 73 22 20 22 53 6f 72 74 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 22 20 20 20 ...("s"."Sort.current.buffer"...
37900 20 64 69 72 76 69 73 68 2d 71 75 69 63 6b 73 6f 72 74 29 0a 20 20 20 28 22 6c 22 20 22 53 65 74 .dirvish-quicksort)....("l"."Set
37920 75 70 20 6c 69 73 74 69 6e 67 20 73 77 69 74 63 68 65 73 22 20 64 69 72 76 69 73 68 2d 6c 73 2d up.listing.switches".dirvish-ls-
37940 73 77 69 74 63 68 65 73 2d 6d 65 6e 75 29 0a 20 20 20 28 22 66 22 20 22 53 65 74 75 70 20 66 64 switches-menu)....("f"."Setup.fd
37960 2d 66 69 6e 64 20 73 77 69 74 63 68 65 73 22 20 64 69 72 76 69 73 68 2d 66 64 2d 73 77 69 74 63 -find.switches".dirvish-fd-switc
37980 68 65 73 2d 6d 65 6e 75 0a 20 20 20 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 hes-menu.....:if.(lambda.().(dir
379a0 76 69 73 68 2d 70 72 6f 70 20 3a 66 64 2d 61 72 67 6c 69 73 74 29 29 29 0a 20 20 20 28 22 6d 22 vish-prop.:fd-arglist)))....("m"
379c0 20 22 4d 61 6e 61 67 65 20 6d 61 72 6b 73 22 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 ."Manage.marks"...........dirvis
379e0 68 2d 6d 61 72 6b 2d 6d 65 6e 75 29 0a 20 20 20 28 22 65 22 20 22 4d 61 6e 61 67 65 20 65 6d 65 h-mark-menu)....("e"."Manage.eme
37a00 72 67 65 64 20 67 72 6f 75 70 73 22 20 20 64 69 72 76 69 73 68 2d 65 6d 65 72 67 65 2d 6d 65 6e rged.groups"..dirvish-emerge-men
37a20 75 29 0a 20 20 20 28 22 74 22 20 22 4d 61 6e 61 67 65 20 73 75 62 74 72 65 65 73 22 20 20 20 20 u)....("t"."Manage.subtrees"....
37a40 20 20 20 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 6d 65 6e 75 29 0a 20 20 20 28 22 72 ....dirvish-subtree-menu)....("r
37a60 22 20 22 52 65 6e 61 6d 65 20 66 69 6c 65 73 22 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 "."Rename.files"...........dirvi
37a80 73 68 2d 72 65 6e 61 6d 69 6e 67 2d 6d 65 6e 75 29 0a 20 20 20 28 22 76 22 20 22 56 65 72 73 69 sh-renaming-menu)....("v"."Versi
37aa0 6f 6e 20 63 6f 6e 74 72 6f 6c 20 73 79 73 74 65 6d 22 20 64 69 72 76 69 73 68 2d 76 63 2d 6d 65 on.control.system".dirvish-vc-me
37ac0 6e 75 29 0a 20 20 20 28 22 79 22 20 22 59 61 6e 6b 20 6d 61 72 6b 65 64 20 66 69 6c 65 73 22 20 nu)....("y"."Yank.marked.files".
37ae0 20 20 20 20 20 64 69 72 76 69 73 68 2d 79 61 6e 6b 2d 6d 65 6e 75 29 0a 20 20 20 28 22 69 22 20 .....dirvish-yank-menu)....("i".
37b00 22 47 65 74 20 66 69 6c 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 22 20 20 20 64 69 72 76 69 73 68 "Get.file.information"...dirvish
37b20 2d 66 69 6c 65 2d 69 6e 66 6f 2d 6d 65 6e 75 29 0a 20 20 20 22 22 20 22 41 63 74 69 6f 6e 73 20 -file-info-menu)....""."Actions.
37b40 7c 20 45 73 73 65 6e 74 69 61 6c 20 63 6f 6d 6d 61 6e 64 73 22 0a 20 20 20 28 22 2f 22 20 22 50 |.Essential.commands"....("/"."P
37b60 65 72 66 6f 72 6d 20 66 64 20 73 65 61 72 63 68 22 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 66 erform.fd.search"......dirvish-f
37b80 64 29 0a 20 20 20 28 22 40 22 20 22 46 69 6e 64 20 61 6c 6c 20 64 69 72 73 20 62 79 20 66 64 22 d)....("@"."Find.all.dirs.by.fd"
37ba0 20 20 20 20 64 69 72 76 69 73 68 2d 66 64 2d 6a 75 6d 70 29 0a 20 20 20 28 22 6e 22 20 22 4c 69 ....dirvish-fd-jump)....("n"."Li
37bc0 76 65 20 6e 61 72 72 6f 77 69 6e 67 22 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 6e 61 ve.narrowing".........dirvish-na
37be0 72 72 6f 77 29 0a 20 20 20 28 22 75 22 20 22 55 73 65 72 20 69 6e 74 65 72 66 61 63 65 20 73 65 rrow)....("u"."User.interface.se
37c00 74 75 70 22 20 20 20 64 69 72 76 69 73 68 2d 73 65 74 75 70 2d 6d 65 6e 75 29 0a 20 20 20 28 22 tup"...dirvish-setup-menu)....("
37c20 63 22 20 22 44 69 72 65 64 20 63 68 65 61 74 73 68 65 65 74 22 20 20 20 20 20 20 20 64 69 72 76 c"."Dired.cheatsheet".......dirv
37c40 69 73 68 2d 64 69 72 65 64 2d 63 68 65 61 74 73 68 65 65 74 29 5d 29 0a 0a 28 70 72 6f 76 69 64 ish-dired-cheatsheet)])..(provid
37c60 65 20 27 64 69 72 76 69 73 68 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2e 65 6c 20 65 6e 64 73 20 e.'dirvish).;;;.dirvish.el.ends.
37c80 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 here............................
37ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37e00 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 76 63 dirvish-20230519.1500/dirvish-vc
37e20 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .el.............................
37e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37e60 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
37e80 30 30 31 36 32 31 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 30 35 34 00 20 30 00 00 00 0016210.00000000000.015054..0...
37ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37f00 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...................
37f20 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...................
37f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
37fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
38000 3b 3b 3b 20 64 69 72 76 69 73 68 2d 76 63 2e 65 6c 20 2d 2d 2d 20 56 65 72 73 69 6f 6e 2d 63 6f ;;;.dirvish-vc.el.---.Version-co
38020 6e 74 72 6f 6c 20 69 6e 74 65 67 72 61 74 69 6f 6e 20 66 6f 72 20 44 69 72 76 69 73 68 20 2d 2a ntrol.integration.for.Dirvish.-*
38040 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 -.lexical-binding:.t.-*-..;;.Cop
38060 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 yright.(C).2021-2022.Alex.Lu.;;.
38080 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 Author.:.Alex.Lu.<https://github
380a0 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 .com/alexluigit>.;;.Version:.2.0
380c0 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 .53.;;.Keywords:.files,.convenie
380e0 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e nce.;;.Homepage:.https://github.
38100 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c com/alexluigit/dirvish.;;.SPDX-L
38120 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 icense-Identifier:.GPL-3.0-or-la
38140 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 53 68 6f 77 20 76 65 ter..;;;.Commentary:..;;.Show.ve
38160 72 73 69 6f 6e 2d 63 6f 6e 74 72 6f 6c 20 69 6e 66 6f 20 73 75 63 68 20 61 73 20 67 69 74 20 63 rsion-control.info.such.as.git.c
38180 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 20 61 74 20 72 6f 6f 74 20 77 69 6e 64 6f 77 20 61 6e 64 ommit.message.at.root.window.and
381a0 20 67 69 74 0a 3b 3b 20 64 69 66 66 20 61 74 20 70 72 65 76 69 65 77 20 77 69 6e 64 6f 77 20 69 .git.;;.diff.at.preview.window.i
381c0 6e 20 44 69 72 76 69 73 68 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 n.Dirvish...;;;.Code:..(require.
381e0 27 64 69 72 76 69 73 68 29 0a 28 64 65 66 69 6e 65 2d 66 72 69 6e 67 65 2d 62 69 74 6d 61 70 20 'dirvish).(define-fringe-bitmap.
38200 27 64 69 72 76 69 73 68 2d 76 63 2d 67 75 74 74 65 72 20 5b 32 35 30 5d 20 6e 69 6c 20 6e 69 6c 'dirvish-vc-gutter.[250].nil.nil
38220 20 27 28 63 65 6e 74 65 72 20 72 65 70 65 61 74 65 64 29 29 0a 0a 28 64 65 66 63 6c 61 73 73 20 .'(center.repeated))..(defclass.
38240 64 69 72 76 69 73 68 2d 76 63 2d 70 72 65 76 69 65 77 20 28 74 72 61 6e 73 69 65 6e 74 2d 73 77 dirvish-vc-preview.(transient-sw
38260 69 74 63 68 65 73 29 20 28 29 0a 20 20 22 43 6c 61 73 73 20 66 6f 72 20 64 69 72 76 69 73 68 20 itches).()..."Class.for.dirvish.
38280 76 63 2d 2a 20 70 72 65 76 69 65 77 20 64 69 73 70 61 74 63 68 65 72 73 2e 22 29 0a 0a 28 64 65 vc-*.preview.dispatchers.")..(de
382a0 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 76 63 2d 73 74 61 74 65 2d 66 61 63 65 2d 61 6c fcustom.dirvish-vc-state-face-al
382c0 69 73 74 0a 20 20 27 28 28 75 70 2d 74 6f 2d 64 61 74 65 20 20 20 20 20 20 20 2e 20 6e 69 6c 29 ist...'((up-to-date.........nil)
382e0 0a 20 20 20 20 28 65 64 69 74 65 64 20 20 20 20 20 20 20 20 20 20 20 2e 20 76 63 2d 65 64 69 74 .....(edited.............vc-edit
38300 65 64 2d 73 74 61 74 65 29 0a 20 20 20 20 28 61 64 64 65 64 20 20 20 20 20 20 20 20 20 20 20 20 ed-state).....(added............
38320 2e 20 76 63 2d 6c 6f 63 61 6c 6c 79 2d 61 64 64 65 64 2d 73 74 61 74 65 29 0a 20 20 20 20 28 72 ..vc-locally-added-state).....(r
38340 65 6d 6f 76 65 64 20 20 20 20 20 20 20 20 20 20 2e 20 76 63 2d 72 65 6d 6f 76 65 64 2d 73 74 61 emoved............vc-removed-sta
38360 74 65 29 0a 20 20 20 20 28 6d 69 73 73 69 6e 67 20 20 20 20 20 20 20 20 20 20 2e 20 76 63 2d 6d te).....(missing............vc-m
38380 69 73 73 69 6e 67 2d 73 74 61 74 65 29 0a 20 20 20 20 28 6e 65 65 64 73 2d 6d 65 72 67 65 20 20 issing-state).....(needs-merge..
383a0 20 20 20 20 2e 20 64 69 72 76 69 73 68 2d 76 63 2d 6e 65 65 64 73 2d 6d 65 72 67 65 2d 66 61 63 ......dirvish-vc-needs-merge-fac
383c0 65 29 0a 20 20 20 20 28 63 6f 6e 66 6c 69 63 74 20 20 20 20 20 20 20 20 20 2e 20 76 63 2d 63 6f e).....(conflict...........vc-co
383e0 6e 66 6c 69 63 74 2d 73 74 61 74 65 29 0a 20 20 20 20 28 75 6e 6c 6f 63 6b 65 64 2d 63 68 61 6e nflict-state).....(unlocked-chan
38400 67 65 73 20 2e 20 76 63 2d 6c 6f 63 6b 65 64 2d 73 74 61 74 65 29 0a 20 20 20 20 28 6e 65 65 64 ges...vc-locked-state).....(need
38420 73 2d 75 70 64 61 74 65 20 20 20 20 20 2e 20 76 63 2d 6e 65 65 64 73 2d 75 70 64 61 74 65 2d 73 s-update.......vc-needs-update-s
38440 74 61 74 65 29 0a 20 20 20 20 28 69 67 6e 6f 72 65 64 20 20 20 20 20 20 20 20 20 20 2e 20 64 69 tate).....(ignored............di
38460 72 65 64 2d 69 67 6e 6f 72 65 64 29 0a 20 20 20 20 28 75 6e 72 65 67 69 73 74 65 72 65 64 20 20 red-ignored).....(unregistered..
38480 20 20 20 2e 20 64 69 72 76 69 73 68 2d 76 63 2d 75 6e 72 65 67 69 73 74 65 72 65 64 2d 66 61 63 .....dirvish-vc-unregistered-fac
384a0 65 29 29 0a 20 20 22 41 6c 69 73 74 20 6f 66 20 28 56 43 2d 53 54 41 54 45 20 2e 20 46 41 43 45 e))..."Alist.of.(VC-STATE...FACE
384c0 29 2e 0a 54 68 69 73 20 76 61 6c 75 65 20 69 73 20 63 6f 6e 73 75 6d 65 64 20 62 79 20 60 76 63 )..This.value.is.consumed.by.`vc
384e0 2d 73 74 61 74 65 27 20 61 74 74 72 69 62 75 74 65 20 69 6e 20 44 69 72 76 69 73 68 2e 20 20 46 -state'.attribute.in.Dirvish...F
38500 41 43 45 0a 69 73 20 74 68 65 20 66 61 63 65 20 75 73 65 64 20 66 6f 72 20 74 68 61 74 20 56 43 ACE.is.the.face.used.for.that.VC
38520 2d 53 54 41 54 45 2e 20 20 53 65 65 20 60 76 63 2d 73 74 61 74 65 27 20 69 6e 20 28 69 6e 0a 76 -STATE...See.`vc-state'.in.(in.v
38540 63 2d 68 6f 6f 6b 73 2e 65 6c 29 20 66 6f 72 20 64 65 74 61 69 6c 20 65 78 70 6c 61 6e 61 74 69 c-hooks.el).for.detail.explanati
38560 6f 6e 20 6f 66 20 74 68 65 73 65 20 73 74 61 74 65 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 on.of.these.states."...:group.'d
38580 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 61 6c 69 73 74 20 3a 6b 65 79 2d 74 79 70 65 irvish...:type.'(alist.:key-type
385a0 20 73 79 6d 62 6f 6c 20 3a 76 61 6c 75 65 2d 74 79 70 65 20 27 28 73 79 6d 62 6f 6c 20 3a 74 61 .symbol.:value-type.'(symbol.:ta
385c0 67 20 22 46 61 63 65 22 29 29 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 76 63 g."Face")))..(defface.dirvish-vc
385e0 2d 6e 65 65 64 73 2d 6d 65 72 67 65 2d 66 61 63 65 0a 20 20 27 28 28 28 28 62 61 63 6b 67 72 6f -needs-merge-face...'((((backgro
38600 75 6e 64 20 64 61 72 6b 29 29 20 28 3a 62 61 63 6b 67 72 6f 75 6e 64 20 22 23 35 30 30 66 32 39 und.dark)).(:background."#500f29
38620 22 29 29 0a 20 20 20 20 28 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 3a 62 ")).....(t...................(:b
38640 61 63 6b 67 72 6f 75 6e 64 20 22 23 65 66 63 62 63 66 22 29 29 29 0a 20 20 22 46 61 63 65 20 75 ackground."#efcbcf")))..."Face.u
38660 73 65 64 20 66 6f 72 20 60 6e 65 65 64 73 2d 6d 65 72 67 65 27 20 76 63 20 73 74 61 74 65 20 69 sed.for.`needs-merge'.vc.state.i
38680 6e 20 74 68 65 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 n.the.Dirvish.buffer."...:group.
386a0 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 73 68 2d 76 63 2d 75 'dirvish)..(defface.dirvish-vc-u
386c0 6e 72 65 67 69 73 74 65 72 65 64 2d 66 61 63 65 0a 20 20 27 28 28 74 20 28 3a 69 6e 68 65 72 69 nregistered-face...'((t.(:inheri
386e0 74 20 66 6f 6e 74 2d 6c 6f 63 6b 2d 63 6f 6e 73 74 61 6e 74 2d 66 61 63 65 29 29 29 0a 20 20 22 t.font-lock-constant-face)))..."
38700 46 61 63 65 20 75 73 65 64 20 66 6f 72 20 60 75 6e 72 65 67 69 73 74 65 72 65 64 27 20 76 63 20 Face.used.for.`unregistered'.vc.
38720 73 74 61 74 65 20 69 6e 20 74 68 65 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 state.in.the.Dirvish.buffer."...
38740 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 66 61 63 65 20 64 69 72 76 69 :group.'dirvish)..(defface.dirvi
38760 73 68 2d 67 69 74 2d 63 6f 6d 6d 69 74 2d 6d 65 73 73 61 67 65 2d 66 61 63 65 0a 20 20 27 28 28 sh-git-commit-message-face...'((
38780 74 20 28 3a 69 6e 68 65 72 69 74 20 64 69 72 65 64 2d 69 67 6e 6f 72 65 64 20 3a 75 6e 64 65 72 t.(:inherit.dired-ignored.:under
387a0 6c 69 6e 65 20 6e 69 6c 20 3a 62 61 63 6b 67 72 6f 75 6e 64 20 75 6e 73 70 65 63 69 66 69 65 64 line.nil.:background.unspecified
387c0 29 29 29 0a 20 20 22 46 61 63 65 20 66 6f 72 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 20 6f )))..."Face.for.commit.message.o
387e0 76 65 72 6c 61 79 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 verlays."...:group.'dirvish)..(d
38800 65 66 76 61 72 20 76 63 2d 64 69 72 2d 70 72 6f 63 65 73 73 2d 62 75 66 66 65 72 29 0a 0a 28 63 efvar.vc-dir-process-buffer)..(c
38820 6c 2d 64 65 66 6d 65 74 68 6f 64 20 74 72 61 6e 73 69 65 6e 74 2d 69 6e 66 69 78 2d 73 65 74 20 l-defmethod.transient-infix-set.
38840 28 28 6f 62 6a 20 64 69 72 76 69 73 68 2d 76 63 2d 70 72 65 76 69 65 77 29 20 76 61 6c 75 65 29 ((obj.dirvish-vc-preview).value)
38860 0a 20 20 22 53 65 74 20 72 65 6c 65 76 61 6e 74 20 76 61 6c 75 65 20 69 6e 20 44 49 52 56 49 53 ..."Set.relevant.value.in.DIRVIS
38880 48 2d 56 43 2d 50 52 45 56 49 45 57 20 69 6e 73 74 61 6e 63 65 20 4f 42 4a 20 74 6f 20 56 41 4c H-VC-PREVIEW.instance.OBJ.to.VAL
388a0 55 45 2e 22 0a 20 20 28 6f 73 65 74 20 6f 62 6a 20 76 61 6c 75 65 20 76 61 6c 75 65 29 0a 20 20 UE."...(oset.obj.value.value)...
388c0 28 6c 65 74 2a 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 0a 20 20 20 20 20 (let*.((dv.(dirvish-curr))......
388e0 20 20 20 20 28 62 75 66 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 ....(buf.(current-buffer))......
38900 20 20 20 20 28 6f 6c 64 2d 6c 61 79 6f 75 74 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 ....(old-layout.(car.(dv-layout.
38920 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 6c 61 79 6f 75 74 20 28 75 6e 6c 65 dv)))..........(new-layout.(unle
38940 73 73 20 6f 6c 64 2d 6c 61 79 6f 75 74 20 28 63 64 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 ss.old-layout.(cdr.(dv-layout.dv
38960 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 64 70 73 20 28 73 65 71 2d 64 69 66 66 ))))..........(new-dps.(seq-diff
38980 65 72 65 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 erence....................dirvis
389a0 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 20 27 28 76 63 2d 64 69 66 66 20 h-preview-dispatchers.'(vc-diff.
389c0 76 63 2d 6c 6f 67 20 76 63 2d 62 6c 61 6d 65 29 29 29 29 0a 20 20 20 20 28 77 68 65 6e 20 76 61 vc-log.vc-blame)))).....(when.va
389e0 6c 75 65 20 28 70 75 73 68 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 25 73 22 20 76 lue.(push.(intern.(format."%s".v
38a00 61 6c 75 65 29 29 20 6e 65 77 2d 64 70 73 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c alue)).new-dps)).....(setq-local
38a20 20 64 69 72 76 69 73 68 2d 2d 77 6f 72 6b 69 6e 67 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 .dirvish--working-preview-dispat
38a40 68 63 68 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d hchers.................(dirvish-
38a60 2d 70 72 65 76 69 65 77 2d 64 70 73 2d 76 61 6c 69 64 61 74 65 20 6e 65 77 2d 64 70 73 29 29 0a -preview-dps-validate.new-dps)).
38a80 20 20 20 20 28 69 66 20 28 6e 6f 74 20 6e 65 77 2d 6c 61 79 6f 75 74 29 0a 20 20 20 20 20 20 20 ....(if.(not.new-layout)........
38aa0 20 28 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d 75 70 64 61 74 65 20 64 76 20 28 64 69 .(dirvish--preview-update.dv.(di
38ac0 72 76 69 73 68 2d 70 72 6f 70 20 3a 69 6e 64 65 78 29 29 0a 20 20 20 20 20 20 28 71 75 69 74 2d rvish-prop.:index)).......(quit-
38ae0 77 69 6e 64 6f 77 20 6e 69 6c 20 28 64 76 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 29 0a window.nil.(dv-root-window.dv)).
38b00 20 20 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 74 72 61 6e 73 69 65 6e 74 2d 2d ......(delete-window.transient--
38b20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 73 65 74 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 window).......(setcar.(dv-layout
38b40 20 64 76 29 20 6e 65 77 2d 6c 61 79 6f 75 74 29 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 .dv).new-layout).......(switch-t
38b60 6f 2d 62 75 66 66 65 72 20 62 75 66 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 69 6e o-buffer.buf).......(dirvish--in
38b80 69 74 2d 73 65 73 73 69 6f 6e 20 64 76 29 29 29 29 0a 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 it-session.dv))))..(transient-de
38ba0 66 69 6e 65 2d 69 6e 66 69 78 20 64 69 72 76 69 73 68 2d 76 63 2d 70 72 65 76 69 65 77 2d 69 66 fine-infix.dirvish-vc-preview-if
38bc0 78 20 28 29 0a 20 20 3a 64 65 73 63 72 69 70 74 69 6f 6e 20 22 50 72 65 76 69 65 77 20 73 74 79 x.()...:description."Preview.sty
38be0 6c 65 22 0a 20 20 3a 63 6c 61 73 73 20 27 64 69 72 76 69 73 68 2d 76 63 2d 70 72 65 76 69 65 77 le"...:class.'dirvish-vc-preview
38c00 0a 20 20 3a 61 72 67 75 6d 65 6e 74 2d 66 6f 72 6d 61 74 20 22 76 63 2d 25 73 22 0a 20 20 3a 61 ...:argument-format."vc-%s"...:a
38c20 72 67 75 6d 65 6e 74 2d 72 65 67 65 78 70 20 22 5c 5c 28 76 63 2d 5c 5c 28 6c 6f 67 5c 5c 7c 64 rgument-regexp."\\(vc-\\(log\\|d
38c40 69 66 66 5c 5c 7c 62 6c 61 6d 65 5c 5c 29 5c 5c 29 22 0a 20 20 3a 63 68 6f 69 63 65 73 20 27 28 iff\\|blame\\)\\)"...:choices.'(
38c60 22 6c 6f 67 22 20 22 64 69 66 66 22 20 22 62 6c 61 6d 65 22 29 29 0a 0a 28 64 69 72 76 69 73 68 "log"."diff"."blame"))..(dirvish
38c80 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 76 63 2d 73 74 61 74 65 0a 20 20 22 54 68 -define-attribute.vc-state..."Th
38ca0 65 20 76 65 72 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 73 74 61 74 65 20 61 74 20 6c 65 66 74 20 e.version.control.state.at.left.
38cc0 66 72 69 6e 67 65 2e 22 0a 20 20 3a 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 76 69 73 68 2d 70 fringe."...:when.(and.(dirvish-p
38ce0 72 6f 70 20 3a 76 63 2d 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f rop.:vc-backend)..............(o
38d00 72 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 66 72 69 6e 67 65 73 20 6e 69 6c 20 35 20 31 29 20 74 r.(set-window-fringes.nil.5.1).t
38d20 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 73 74 61 74 65 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 ))...(let*.((state.(dirvish-attr
38d40 69 62 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 6d 65 20 3a 76 63 2d 73 74 61 74 65 29 29 0a 20 ibute-cache.f-name.:vc-state))..
38d60 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 61 6c 69 73 74 2d 67 65 74 20 73 74 61 74 65 20 64 ........(face.(alist-get.state.d
38d80 69 72 76 69 73 68 2d 76 63 2d 73 74 61 74 65 2d 66 61 63 65 2d 61 6c 69 73 74 29 29 0a 20 20 20 irvish-vc-state-face-alist))....
38da0 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 20 28 61 6e 64 20 66 61 63 65 20 60 28 6c 65 66 74 2d ......(display.(and.face.`(left-
38dc0 66 72 69 6e 67 65 20 64 69 72 76 69 73 68 2d 76 63 2d 67 75 74 74 65 72 20 2e 20 2c 28 63 6f 6e fringe.dirvish-vc-gutter...,(con
38de0 73 20 66 61 63 65 20 6e 69 6c 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 67 75 74 74 65 72 2d s.face.nil))))..........(gutter-
38e00 73 74 72 20 28 61 6e 64 20 64 69 73 70 6c 61 79 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 21 22 str.(and.display.(propertize."!"
38e20 20 27 64 69 73 70 6c 61 79 20 64 69 73 70 6c 61 79 29 29 29 20 6f 76 29 0a 20 20 20 20 28 77 68 .'display.display))).ov).....(wh
38e40 65 6e 20 67 75 74 74 65 72 2d 73 74 72 0a 20 20 20 20 20 20 28 70 72 6f 67 31 20 60 28 6f 76 20 en.gutter-str.......(prog1.`(ov.
38e60 2e 20 2c 28 73 65 74 71 20 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 66 2d 62 65 67 20 ..,(setq.ov.(make-overlay.f-beg.
38e80 66 2d 62 65 67 29 29 29 0a 20 20 20 20 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 f-beg))).........(overlay-put.ov
38ea0 20 27 62 65 66 6f 72 65 2d 73 74 72 69 6e 67 20 67 75 74 74 65 72 2d 73 74 72 29 29 29 29 29 0a .'before-string.gutter-str))))).
38ec0 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 67 69 74 2d 6d .(dirvish-define-attribute.git-m
38ee0 73 67 0a 20 20 22 41 70 70 65 6e 64 20 67 69 74 20 63 6f 6d 6d 69 74 20 6d 65 73 73 61 67 65 20 sg..."Append.git.commit.message.
38f00 74 6f 20 66 69 6c 65 6e 61 6d 65 2e 22 0a 20 20 3a 69 6e 64 65 78 20 31 0a 20 20 3a 77 68 65 6e to.filename."...:index.1...:when
38f20 20 28 61 6e 64 20 28 65 71 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 61 63 6b .(and.(eq.(dirvish-prop.:vc-back
38f40 65 6e 64 29 20 27 47 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 64 69 end).'Git)..............(not.(di
38f60 72 76 69 73 68 2d 70 72 6f 70 20 3a 72 65 6d 6f 74 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 rvish-prop.:remote))............
38f80 20 20 28 3e 20 77 69 6e 2d 77 69 64 74 68 20 36 35 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 69 6e ..(>.win-width.65))...(let*.((in
38fa0 66 6f 20 28 64 69 72 76 69 73 68 2d 61 74 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 fo.(dirvish-attribute-cache.f-na
38fc0 6d 65 20 3a 67 69 74 2d 6d 73 67 29 29 0a 20 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 6f 72 me.:git-msg))..........(face.(or
38fe0 20 68 6c 2d 66 61 63 65 20 27 64 69 72 76 69 73 68 2d 67 69 74 2d 63 6f 6d 6d 69 74 2d 6d 65 73 .hl-face.'dirvish-git-commit-mes
39000 73 61 67 65 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 74 72 20 28 63 6f 6e 63 61 sage-face))..........(str.(conca
39020 74 20 28 73 75 62 73 74 72 69 6e 67 20 28 63 6f 6e 63 61 74 20 22 20 20 22 20 69 6e 66 6f 29 20 t.(substring.(concat."..".info).
39040 30 20 2d 31 29 20 22 20 22 29 29 29 0a 20 20 20 20 28 61 64 64 2d 66 61 63 65 2d 74 65 78 74 2d 0.-1)."."))).....(add-face-text-
39060 70 72 6f 70 65 72 74 79 20 30 20 28 6c 65 6e 67 74 68 20 73 74 72 29 20 66 61 63 65 20 74 20 73 property.0.(length.str).face.t.s
39080 74 72 29 0a 20 20 20 20 60 28 6c 65 66 74 20 2e 20 2c 73 74 72 29 29 29 0a 0a 28 64 69 72 76 69 tr).....`(left...,str)))..(dirvi
390a0 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 76 63 2d 64 69 66 66 20 28 65 78 74 29 0a sh-define-preview.vc-diff.(ext).
390c0 20 20 22 55 73 65 20 6f 75 74 70 75 74 20 6f 66 20 60 76 63 2d 64 69 66 66 27 20 61 73 20 70 72 .."Use.output.of.`vc-diff'.as.pr
390e0 65 76 69 65 77 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 76 69 73 68 2d 70 72 eview."...(when.(and.(dirvish-pr
39100 6f 70 20 3a 76 63 2d 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f op.:vc-backend)..............(no
39120 74 20 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 61 2d 65 78 74 73 t.(member.ext.dirvish-media-exts
39140 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 ))..............(cl-letf.(((symb
39160 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 29 20 23 27 69 67 ol-function.'pop-to-buffer).#'ig
39180 6e 6f 72 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 28 28 73 nore)........................((s
391a0 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 6d 65 73 73 61 67 65 29 20 23 27 69 67 6e 6f 72 ymbol-function.'message).#'ignor
391c0 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 64 69 66 66 29 29 29 0a 20 e))................(vc-diff)))..
391e0 20 20 20 27 28 62 75 66 66 65 72 20 2e 20 22 2a 76 63 2d 64 69 66 66 2a 22 29 29 29 0a 0a 28 64 ...'(buffer..."*vc-diff*")))..(d
39200 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 76 63 2d 6c 6f 67 20 28 29 0a irvish-define-preview.vc-log.().
39220 20 20 22 55 73 65 20 6f 75 74 70 75 74 20 6f 66 20 60 76 63 2d 70 72 69 6e 74 2d 6c 6f 67 27 20 .."Use.output.of.`vc-print-log'.
39240 61 73 20 70 72 65 76 69 65 77 2e 22 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 28 64 69 72 76 69 as.preview."...(when.(and.(dirvi
39260 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 61 63 6b 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 sh-prop.:vc-backend)............
39280 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 27 70 ..(cl-letf.(((symbol-function.'p
392a0 6f 70 2d 74 6f 2d 62 75 66 66 65 72 29 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 20 20 20 20 20 op-to-buffer).#'ignore))........
392c0 20 20 20 20 20 20 20 20 28 70 72 6f 67 31 20 74 20 28 76 63 2d 70 72 69 6e 74 2d 6c 6f 67 29 29 ........(prog1.t.(vc-print-log))
392e0 29 29 0a 20 20 20 20 27 28 62 75 66 66 65 72 20 2e 20 22 2a 76 63 2d 63 68 61 6e 67 65 2d 6c 6f )).....'(buffer..."*vc-change-lo
39300 67 2a 22 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 70 72 65 76 69 65 77 20 g*")))..(dirvish-define-preview.
39320 76 63 2d 62 6c 61 6d 65 20 28 66 69 6c 65 20 65 78 74 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f vc-blame.(file.ext.preview-windo
39340 77 20 64 76 29 0a 20 20 22 55 73 65 20 6f 75 74 70 75 74 20 6f 66 20 60 76 63 2d 61 6e 6e 6f 74 w.dv)..."Use.output.of.`vc-annot
39360 61 74 65 27 20 28 66 69 6c 65 29 20 6f 72 20 60 76 63 2d 64 69 72 27 20 28 64 69 72 29 20 61 73 ate'.(file).or.`vc-dir'.(dir).as
39380 20 70 72 65 76 69 65 77 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 6b 20 28 64 69 .preview."...(when-let*.((bk.(di
393a0 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d 62 61 63 6b 65 6e 64 29 29 0a 20 20 20 20 20 20 20 rvish-prop.:vc-backend))........
393c0 20 20 20 20 20 20 20 28 6f 72 69 67 2d 62 75 66 6c 69 73 74 20 28 62 75 66 66 65 72 2d 6c 69 73 .......(orig-buflist.(buffer-lis
393e0 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 t))...............(display-buffe
39400 72 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 28 28 22 5c 5c 2a 5c 5c r-alist................'(("\\*\\
39420 28 41 6e 6e 6f 74 61 74 65 20 5c 5c 7c 76 63 2d 64 69 72 5c 5c 29 2e 2a 5c 5c 2a 22 0a 20 20 20 (Annotate.\\|vc-dir\\).*\\*"....
39440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 73 ...............(display-buffer-s
39460 61 6d 65 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 64 69 ame-window))))).....(if.(file-di
39480 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 rectory-p.file).........(with-se
394a0 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 0a 20 20 20 lected-window.preview-window....
394c0 20 20 20 20 20 20 20 28 76 63 2d 64 69 72 20 66 69 6c 65 20 62 6b 29 0a 20 20 20 20 20 20 20 20 .......(vc-dir.file.bk).........
394e0 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 76 63 2d 64 69 72 2d 70 72 6f 63 65 73 73 2d 62 75 66 ..(cl-pushnew.vc-dir-process-buf
39500 66 65 72 20 28 64 76 2d 70 72 65 76 69 65 77 2d 62 75 66 66 65 72 73 20 64 76 29 29 0a 20 20 20 fer.(dv-preview-buffers.dv))....
39520 20 20 20 20 20 20 20 60 28 62 75 66 66 65 72 20 2e 20 2c 28 63 75 72 72 65 6e 74 2d 62 75 66 66 .......`(buffer...,(current-buff
39540 65 72 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 61 er))).......(when-let*.((file.(a
39560 6e 64 20 28 6e 6f 74 20 28 6d 65 6d 62 65 72 20 65 78 74 20 64 69 72 76 69 73 68 2d 6d 65 64 69 nd.(not.(member.ext.dirvish-medi
39580 61 2d 65 78 74 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 a-exts))........................
395a0 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 71 20 28 76 63 2d 73 74 61 74 65 20 66 69 6c 65 20 ......(not.(memq.(vc-state.file.
395c0 62 6b 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 bk).............................
395e0 20 20 20 20 20 20 20 20 20 20 20 20 27 28 75 6e 72 65 67 69 73 74 65 72 65 64 20 69 67 6e 6f 72 ............'(unregistered.ignor
39600 65 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 20 20 ed)))...........................
39620 20 20 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 62 ...file))...................(f-b
39640 75 66 20 28 63 64 72 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 66 69 6c 65 2d 74 65 6d 70 uf.(cdr.(dirvish--find-file-temp
39660 6f 72 61 72 69 6c 79 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 orarily.file))).................
39680 20 20 28 28 62 75 66 66 65 72 70 20 66 2d 62 75 66 29 29 29 0a 20 20 20 20 20 20 20 20 28 75 6e ..((bufferp.f-buf))).........(un
396a0 6c 65 73 73 20 28 6d 65 6d 71 20 66 2d 62 75 66 20 6f 72 69 67 2d 62 75 66 6c 69 73 74 29 0a 20 less.(memq.f-buf.orig-buflist)..
396c0 20 20 20 20 20 20 20 20 20 28 70 75 73 68 20 66 2d 62 75 66 20 28 64 76 2d 70 72 65 76 69 65 77 .........(push.f-buf.(dv-preview
396e0 2d 62 75 66 66 65 72 73 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c -buffers.dv))).........(with-sel
39700 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 70 72 65 76 69 65 77 2d 77 69 6e 64 6f 77 0a 20 20 20 20 ected-window.preview-window.....
39720 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 66 2d 62 75 66 ......(with-current-buffer.f-buf
39740 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 65 74 66 20 28 28 28 73 79 6d 62 6f 6c 2d .............(cl-letf.(((symbol-
39760 66 75 6e 63 74 69 6f 6e 20 27 6d 65 73 73 61 67 65 29 20 23 27 69 67 6e 6f 72 65 29 29 0a 20 20 function.'message).#'ignore))...
39780 20 20 20 20 20 20 20 20 20 20 20 20 28 76 63 2d 61 6e 6e 6f 74 61 74 65 20 66 69 6c 65 20 6e 69 ............(vc-annotate.file.ni
397a0 6c 20 27 66 75 6c 6c 73 63 61 6c 65 20 6e 69 6c 20 6e 69 6c 20 62 6b 29 29 0a 20 20 20 20 20 20 l.'fullscale.nil.nil.bk)).......
397c0 20 20 20 20 20 20 28 63 6c 2d 70 75 73 68 6e 65 77 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 ......(cl-pushnew.(window-buffer
397e0 29 20 28 64 76 2d 70 72 65 76 69 65 77 2d 62 75 66 66 65 72 73 20 64 76 29 29 0a 20 20 20 20 20 ).(dv-preview-buffers.dv))......
39800 20 20 20 20 20 20 20 60 28 62 75 66 66 65 72 20 2e 20 2c 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 .......`(buffer...,(window-buffe
39820 72 29 29 29 29 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 6d 6f 64 65 2d r))))))))..(dirvish-define-mode-
39840 6c 69 6e 65 20 76 63 2d 69 6e 66 6f 0a 20 20 22 56 65 72 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 line.vc-info..."Version.control.
39860 69 6e 66 6f 20 73 75 63 68 20 61 73 20 67 69 74 20 62 72 61 6e 63 68 2e 22 0a 20 20 28 77 68 65 info.such.as.git.branch."...(whe
39880 6e 2d 6c 65 74 2a 20 28 28 28 3e 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 33 30 29 29 0a n-let*.(((>.(window-width).30)).
398a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6b 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 ..............(bk.(dirvish-prop.
398c0 3a 76 63 2d 62 61 63 6b 65 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6d 6c 2d :vc-backend))...............(ml-
398e0 73 74 72 20 28 76 63 2d 63 61 6c 6c 2d 62 61 63 6b 65 6e 64 20 62 6b 20 27 6d 6f 64 65 2d 6c 69 str.(vc-call-backend.bk.'mode-li
39900 6e 65 2d 73 74 72 69 6e 67 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 ne-string.default-directory))...
39920 20 20 20 20 20 20 20 20 20 20 20 20 28 62 6b 2d 73 74 72 20 28 66 6f 72 6d 61 74 20 22 25 73 3a ............(bk-str.(format."%s:
39940 22 20 62 6b 29 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 25 73 20 22 0a 20 20 ".bk))).....(format.".%s.%s."...
39960 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a 65 20 62 6b 2d 73 74 72 20 27 66 61 ..........(propertize.bk-str.'fa
39980 63 65 20 27 62 6f 6c 64 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 70 65 72 74 69 7a ce.'bold).............(propertiz
399a0 65 20 28 73 75 62 73 74 72 69 6e 67 20 6d 6c 2d 73 74 72 20 28 6c 65 6e 67 74 68 20 62 6b 2d 73 e.(substring.ml-str.(length.bk-s
399c0 74 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 66 61 tr)).........................'fa
399e0 63 65 20 27 66 6f 6e 74 2d 6c 6f 63 6b 2d 62 75 69 6c 74 69 6e 2d 66 61 63 65 29 29 29 29 0a 0a ce.'font-lock-builtin-face))))..
39a00 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 ;;;###autoload.(autoload.'dirvis
39a20 68 2d 76 63 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 76 63 22 20 6e 69 6c 20 74 29 0a 28 74 h-vc-menu."dirvish-vc".nil.t).(t
39a40 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 76 69 73 68 2d 76 ransient-define-prefix.dirvish-v
39a60 63 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 65 6c 70 20 6d 65 6e 75 20 66 6f 72 20 66 65 61 74 75 c-menu.()..."Help.menu.for.featu
39a80 72 65 73 20 69 6e 20 60 64 69 72 76 69 73 68 2d 76 63 27 2e 22 0a 20 20 3a 69 6e 69 74 2d 76 61 res.in.`dirvish-vc'."...:init-va
39aa0 6c 75 65 0a 20 20 28 6c 61 6d 62 64 61 20 28 6f 29 20 28 6f 73 65 74 20 6f 20 76 61 6c 75 65 20 lue...(lambda.(o).(oset.o.value.
39ac0 28 6d 61 70 63 61 72 20 28 6c 61 6d 62 64 61 20 28 64 29 20 28 66 6f 72 6d 61 74 20 22 25 73 22 (mapcar.(lambda.(d).(format."%s"
39ae0 20 64 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 .d))............................
39b00 20 20 20 20 64 69 72 76 69 73 68 2d 70 72 65 76 69 65 77 2d 64 69 73 70 61 74 63 68 65 72 73 29 ....dirvish-preview-dispatchers)
39b20 29 29 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 ))...[:description....(lambda.()
39b40 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 20 22 .(dirvish--format-menu-heading."
39b60 56 65 72 73 69 6f 6e 20 63 6f 6e 74 72 6f 6c 20 63 6f 6d 6d 61 6e 64 73 22 29 29 0a 20 20 20 28 Version.control.commands"))....(
39b80 22 76 22 20 64 69 72 76 69 73 68 2d 76 63 2d 70 72 65 76 69 65 77 2d 69 66 78 0a 20 20 20 20 3a "v".dirvish-vc-preview-ifx.....:
39ba0 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 63 2d if.(lambda.().(dirvish-prop.:vc-
39bc0 62 61 63 6b 65 6e 64 29 29 29 0a 20 20 20 28 22 6e 22 20 22 44 6f 20 74 68 65 20 6e 65 78 74 20 backend)))....("n"."Do.the.next.
39be0 61 63 74 69 6f 6e 22 20 64 69 72 65 64 2d 76 63 2d 6e 65 78 74 2d 61 63 74 69 6f 6e 0a 20 20 20 action".dired-vc-next-action....
39c00 20 3a 69 66 20 28 6c 61 6d 62 64 61 20 28 29 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 76 .:if.(lambda.().(dirvish-prop.:v
39c20 63 2d 62 61 63 6b 65 6e 64 29 29 29 0a 20 20 20 28 22 63 22 20 22 43 72 65 61 74 65 20 72 65 70 c-backend)))....("c"."Create.rep
39c40 6f 22 20 76 63 2d 63 72 65 61 74 65 2d 72 65 70 6f 29 5d 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 o".vc-create-repo)])..(provide.'
39c60 64 69 72 76 69 73 68 2d 76 63 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 76 63 2e 65 6c 20 65 6e dirvish-vc).;;;.dirvish-vc.el.en
39c80 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ds.here.........................
39ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39e00 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 70 6b dirvish-20230519.1500/dirvish-pk
39e20 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 g.el............................
39e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39e60 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
39e80 30 30 30 30 37 36 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 32 33 37 00 20 30 00 00 00 0000767.00000000000.015237..0...
39ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39f00 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...................
39f20 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...................
39f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
39fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a000 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 64 69 72 76 69 73 68 22 20 22 32 30 32 33 30 (define-package."dirvish"."20230
3a020 35 31 39 2e 31 35 30 30 22 20 22 41 20 6d 6f 64 65 72 6e 20 66 69 6c 65 20 6d 61 6e 61 67 65 72 519.1500"."A.modern.file.manager
3a040 20 62 61 73 65 64 20 6f 6e 20 64 69 72 65 64 20 6d 6f 64 65 22 0a 20 20 27 28 28 65 6d 61 63 73 .based.on.dired.mode"...'((emacs
3a060 20 22 32 37 2e 31 22 29 0a 20 20 20 20 28 74 72 61 6e 73 69 65 6e 74 20 22 30 2e 33 2e 37 22 29 ."27.1").....(transient."0.3.7")
3a080 29 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 31 31 39 66 39 66 35 39 61 36 31 38 62 62 37 62 34 37 36 )...:commit."119f9f59a618bb7b476
3a0a0 63 39 33 65 39 61 62 31 64 37 35 34 32 63 35 63 31 64 66 34 31 22 20 3a 61 75 74 68 6f 72 73 0a c93e9ab1d7542c5c1df41".:authors.
3a0c0 20 20 27 28 28 22 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f ..'(("Alex.Lu.<https://github.co
3a0e0 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 0a m/alexluigit>"))...:maintainers.
3a100 20 20 27 28 28 22 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f ..'(("Alex.Lu.<https://github.co
3a120 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 0a 20 m/alexluigit>"))...:maintainer..
3a140 20 27 28 22 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f .'("Alex.Lu.<https://github.com/
3a160 61 6c 65 78 6c 75 69 67 69 74 3e 22 29 0a 20 20 3a 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 22 66 alexluigit>")...:keywords...'("f
3a180 69 6c 65 73 22 20 22 63 6f 6e 76 65 6e 69 65 6e 63 65 22 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 iles"."convenience")...:url."htt
3a1a0 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 ps://github.com/alexluigit/dirvi
3a1c0 73 68 22 29 0a 3b 3b 20 4c 6f 63 61 6c 20 56 61 72 69 61 62 6c 65 73 3a 0a 3b 3b 20 6e 6f 2d 62 sh").;;.Local.Variables:.;;.no-b
3a1e0 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 0a 3b 3b 20 45 6e 64 3a 0a 00 00 00 00 00 00 00 00 00 yte-compile:.t.;;.End:..........
3a200 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 69 63 dirvish-20230519.1500/dirvish-ic
3a220 6f 6e 73 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ons.el..........................
3a240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a260 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
3a280 30 30 31 33 35 37 36 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 35 37 33 00 20 30 00 00 00 0013576.00000000000.015573..0...
3a2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a300 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...................
3a320 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...................
3a340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3a400 3b 3b 3b 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 73 2e 65 6c 20 2d 2d 2d 20 49 63 6f 6e 20 73 75 ;;;.dirvish-icons.el.---.Icon.su
3a420 70 70 6f 72 74 20 66 6f 72 20 44 69 72 76 69 73 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 pport.for.Dirvish.-*-.lexical-bi
3a440 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 nding:.t.-*-..;;.Copyright.(C).2
3a460 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 021-2022.Alex.Lu.;;.Author.:.Ale
3a480 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 x.Lu.<https://github.com/alexlui
3a4a0 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f git>.;;.Version:.2.0.53.;;.Keywo
3a4c0 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 rds:.files,.convenience.;;.Homep
3a4e0 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 age:.https://github.com/alexluig
3a500 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 it/dirvish.;;.SPDX-License-Ident
3a520 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d ifier:.GPL-3.0-or-later..;;;.Com
3a540 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 49 6e 74 65 67 72 61 74 65 20 60 61 6c 6c 2d 74 68 65 2d mentary:..;;.Integrate.`all-the-
3a560 69 63 6f 6e 73 27 2c 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 2c 20 61 6e 64 20 60 76 73 63 6f 64 icons',.`nerd-icons',.and.`vscod
3a580 65 2d 69 63 6f 6e 27 20 77 69 74 68 20 44 69 72 76 69 73 68 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a e-icon'.with.Dirvish...;;;.Code:
3a5a0 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e ..(declare-function.all-the-icon
3a5c0 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 22 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 22 29 s-icon-for-file."all-the-icons")
3a5e0 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 .(declare-function.all-the-icons
3a600 2d 69 63 6f 6e 2d 66 6f 72 2d 64 69 72 20 22 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 22 29 0a 28 -icon-for-dir."all-the-icons").(
3a620 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 6e 65 72 64 2d 69 63 6f 6e 73 2d 69 63 6f 6e declare-function.nerd-icons-icon
3a640 2d 66 6f 72 2d 66 69 6c 65 20 22 6e 65 72 64 2d 69 63 6f 6e 73 22 29 0a 28 64 65 63 6c 61 72 65 -for-file."nerd-icons").(declare
3a660 2d 66 75 6e 63 74 69 6f 6e 20 6e 65 72 64 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 64 69 -function.nerd-icons-icon-for-di
3a680 72 20 22 6e 65 72 64 2d 69 63 6f 6e 73 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f r."nerd-icons").(declare-functio
3a6a0 6e 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 63 61 6e 2d 73 63 61 6c 65 2d 69 6d 61 67 65 2d 70 20 n.vscode-icon-can-scale-image-p.
3a6c0 22 76 73 63 6f 64 65 2d 69 63 6f 6e 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e "vscode-icon").(declare-function
3a6e0 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 66 69 6c 65 20 22 76 73 63 6f 64 65 2d 69 63 6f 6e 22 29 .vscode-icon-file."vscode-icon")
3a700 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 .(declare-function.vscode-icon-d
3a720 69 72 2d 65 78 69 73 74 73 2d 70 20 22 76 73 63 6f 64 65 2d 69 63 6f 6e 22 29 0a 28 64 65 63 6c ir-exists-p."vscode-icon").(decl
3a740 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 63 72 65 61 74 65 2d are-function.vscode-icon-create-
3a760 69 6d 61 67 65 20 22 76 73 63 6f 64 65 2d 69 63 6f 6e 22 29 0a 28 64 65 66 76 61 72 20 76 73 63 image."vscode-icon").(defvar.vsc
3a780 6f 64 65 2d 69 63 6f 6e 2d 73 69 7a 65 29 0a 28 64 65 66 76 61 72 20 76 73 63 6f 64 65 2d 69 63 ode-icon-size).(defvar.vscode-ic
3a7a0 6f 6e 2d 64 69 72 2d 61 6c 69 73 74 29 0a 28 64 65 66 76 61 72 20 76 73 63 6f 64 65 2d 69 63 6f on-dir-alist).(defvar.vscode-ico
3a7c0 6e 2d 64 69 72 29 0a 28 72 65 71 75 69 72 65 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 20 6e n-dir).(require.'all-the-icons.n
3a7e0 69 6c 20 74 29 0a 28 72 65 71 75 69 72 65 20 27 76 73 63 6f 64 65 2d 69 63 6f 6e 20 6e 69 6c 20 il.t).(require.'vscode-icon.nil.
3a800 74 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 76 61 72 20 64 t).(require.'dirvish)..(defvar.d
3a820 69 72 76 69 73 68 2d 2d 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 irvish--vscode-icon-directory...
3a840 28 63 6f 6e 63 61 74 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 76 73 63 6f 64 65 2d 69 63 6f (concat.(and.(boundp.'vscode-ico
3a860 6e 2d 64 69 72 29 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 69 72 29 0a 20 20 20 20 20 20 20 20 n-dir).vscode-icon-dir).........
3a880 20 20 28 69 66 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 76 73 63 6f 64 65 2d 69 63 6f 6e ..(if.(and.(fboundp.'vscode-icon
3a8a0 2d 63 61 6e 2d 73 63 61 6c 65 2d 69 6d 61 67 65 2d 70 29 20 28 76 73 63 6f 64 65 2d 69 63 6f 6e -can-scale-image-p).(vscode-icon
3a8c0 2d 63 61 6e 2d 73 63 61 6c 65 2d 69 6d 61 67 65 2d 70 29 29 20 22 31 32 38 2f 22 20 22 32 33 2f -can-scale-image-p))."128/"."23/
3a8e0 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 2d 64 65 ")))..(defcustom.dirvish-icon-de
3a900 6c 69 6d 69 74 65 72 20 22 20 22 0a 20 20 22 41 20 73 74 72 69 6e 67 20 61 74 74 61 63 68 65 64 limiter."."..."A.string.attached
3a920 20 74 6f 20 74 68 65 20 69 63 6f 6e 20 28 66 6f 72 20 62 6f 74 68 20 62 61 63 6b 65 6e 64 73 29 .to.the.icon.(for.both.backends)
3a940 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 73 74 72 69 ."...:group.'dirvish.:type.'stri
3a960 6e 67 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d ng)..(defcustom.dirvish-all-the-
3a980 69 63 6f 6e 73 2d 6f 66 66 73 65 74 20 30 2e 30 31 0a 20 20 22 49 63 6f 6e 27 73 20 76 65 72 74 icons-offset.0.01..."Icon's.vert
3a9a0 69 63 61 6c 20 6f 66 66 73 65 74 20 75 73 65 64 20 66 6f 72 20 60 61 6c 6c 2d 74 68 65 2d 69 63 ical.offset.used.for.`all-the-ic
3a9c0 6f 6e 73 27 20 62 61 63 6b 65 6e 64 2e 0a 53 65 74 20 69 74 20 74 6f 20 6e 69 6c 20 74 6f 20 75 ons'.backend..Set.it.to.nil.to.u
3a9e0 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 6f 66 66 73 65 74 20 66 72 6f 6d 20 60 61 6c 6c 2d se.the.default.offset.from.`all-
3aa00 74 68 65 2d 69 63 6f 6e 73 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a the-icons'."...:group.'dirvish.:
3aa20 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 6c 6f 61 74 20 6e 69 6c 29 29 29 0a 0a 28 64 65 type.'(choice.(float.nil)))..(de
3aa40 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 68 65 fcustom.dirvish-all-the-icons-he
3aa60 69 67 68 74 20 6e 69 6c 0a 20 20 22 49 63 6f 6e 20 68 65 69 67 68 74 20 75 73 65 64 20 66 6f 72 ight.nil..."Icon.height.used.for
3aa80 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 27 20 62 61 63 6b 65 6e 64 2e 0a 54 68 65 20 68 65 .`all-the-icons'.backend..The.he
3aaa0 69 67 68 74 20 6f 66 20 74 68 65 20 69 63 6f 6e 20 69 73 20 73 63 61 6c 65 64 20 74 6f 20 74 68 ight.of.the.icon.is.scaled.to.th
3aac0 69 73 20 76 61 6c 75 65 20 28 74 72 79 20 30 2e 38 29 2e 0a 53 65 74 20 69 74 20 74 6f 20 6e 69 is.value.(try.0.8)..Set.it.to.ni
3aae0 6c 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 68 65 69 67 68 74 20 66 72 6f 6d l.to.use.the.default.height.from
3ab00 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 .`all-the-icons'."...:group.'dir
3ab20 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 6c 6f 61 74 20 6e 69 6c 29 29 vish.:type.'(choice.(float.nil))
3ab40 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 )..(defcustom.dirvish-all-the-ic
3ab60 6f 6e 73 2d 70 61 6c 65 74 74 65 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 0a 20 20 22 43 6f ons-palette.'all-the-icons..."Co
3ab80 6c 6f 72 69 6e 67 20 73 74 79 6c 65 20 75 73 65 64 20 66 6f 72 20 66 69 6c 65 20 60 61 6c 6c 2d loring.style.used.for.file.`all-
3aba0 74 68 65 2d 69 63 6f 6e 73 27 20 62 61 63 6b 65 6e 64 2e 0a 56 61 6c 75 65 73 20 61 72 65 20 69 the-icons'.backend..Values.are.i
3abc0 6e 74 65 72 70 72 65 74 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2d 20 61 6c 6c 2d 74 68 65 nterpreted.as.follows:.-.all-the
3abe0 2d 69 63 6f 6e 73 2c 20 6d 65 61 6e 69 6e 67 20 6c 65 74 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f -icons,.meaning.let.`all-the-ico
3ac00 6e 73 2e 65 6c 27 20 74 6f 20 64 6f 20 74 68 65 20 63 6f 6c 6f 72 69 6e 67 2e 0a 2d 20 41 20 66 ns.el'.to.do.the.coloring..-.A.f
3ac20 61 63 65 20 74 68 61 74 20 69 73 20 75 73 65 64 20 66 6f 72 20 61 6c 6c 20 74 68 65 20 69 63 6f ace.that.is.used.for.all.the.ico
3ac40 6e 73 2e 0a 2d 20 6e 69 6c 2c 20 69 6e 68 65 72 69 74 20 66 61 63 65 20 61 74 20 70 6f 69 6e 74 ns..-.nil,.inherit.face.at.point
3ac60 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f ."...:group.'dirvish.:type.'(cho
3ac80 69 63 65 20 66 61 63 65 20 73 79 6d 62 6f 6c 20 6e 69 6c 29 29 0a 0a 28 64 65 66 63 75 73 74 6f ice.face.symbol.nil))..(defcusto
3aca0 6d 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 2d 6f 66 66 73 65 74 20 30 2e 30 30 m.dirvish-nerd-icons-offset.0.00
3acc0 0a 20 20 22 49 63 6f 6e 27 73 20 76 65 72 74 69 63 61 6c 20 6f 66 66 73 65 74 20 75 73 65 64 20 ..."Icon's.vertical.offset.used.
3ace0 66 6f 72 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 20 62 61 63 6b 65 6e 64 2e 0a 53 65 74 20 69 74 for.`nerd-icons'.backend..Set.it
3ad00 20 74 6f 20 6e 69 6c 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 6f 66 66 73 65 .to.nil.to.use.the.default.offse
3ad20 74 20 66 72 6f 6d 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 t.from.`nerd-icons'."...:group.'
3ad40 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 6c 6f 61 74 20 6e 69 dirvish.:type.'(choice.(float.ni
3ad60 6c 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 l)))..(defcustom.dirvish-nerd-ic
3ad80 6f 6e 73 2d 68 65 69 67 68 74 20 6e 69 6c 0a 20 20 22 49 63 6f 6e 20 68 65 69 67 68 74 20 75 73 ons-height.nil..."Icon.height.us
3ada0 65 64 20 66 6f 72 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 20 62 61 63 6b 65 6e 64 2e 0a 54 68 65 ed.for.`nerd-icons'.backend..The
3adc0 20 68 65 69 67 68 74 20 6f 66 20 74 68 65 20 69 63 6f 6e 20 69 73 20 73 63 61 6c 65 64 20 74 6f .height.of.the.icon.is.scaled.to
3ade0 20 74 68 69 73 20 76 61 6c 75 65 20 28 74 72 79 20 30 2e 38 29 2e 0a 53 65 74 20 69 74 20 74 6f .this.value.(try.0.8)..Set.it.to
3ae00 20 6e 69 6c 20 74 6f 20 75 73 65 20 74 68 65 20 64 65 66 61 75 6c 74 20 68 65 69 67 68 74 20 66 .nil.to.use.the.default.height.f
3ae20 72 6f 6d 20 60 6e 65 72 64 2d 69 63 6f 6e 73 27 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 rom.`nerd-icons'."...:group.'dir
3ae40 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 66 6c 6f 61 74 20 6e 69 6c 29 29 vish.:type.'(choice.(float.nil))
3ae60 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 )..(defcustom.dirvish-nerd-icons
3ae80 2d 70 61 6c 65 74 74 65 20 27 6e 65 72 64 2d 69 63 6f 6e 73 0a 20 20 22 43 6f 6c 6f 72 69 6e 67 -palette.'nerd-icons..."Coloring
3aea0 20 73 74 79 6c 65 20 75 73 65 64 20 66 6f 72 20 66 69 6c 65 20 60 6e 65 72 64 2d 69 63 6f 6e 73 .style.used.for.file.`nerd-icons
3aec0 27 20 62 61 63 6b 65 6e 64 2e 0a 56 61 6c 75 65 73 20 61 72 65 20 69 6e 74 65 72 70 72 65 74 65 '.backend..Values.are.interprete
3aee0 64 20 61 73 20 66 6f 6c 6c 6f 77 73 3a 0a 2d 20 6e 65 72 64 2d 69 63 6f 6e 73 2c 20 6d 65 61 6e d.as.follows:.-.nerd-icons,.mean
3af00 69 6e 67 20 6c 65 74 20 60 6e 65 72 64 2d 69 63 6f 6e 73 2e 65 6c 27 20 74 6f 20 64 6f 20 74 68 ing.let.`nerd-icons.el'.to.do.th
3af20 65 20 63 6f 6c 6f 72 69 6e 67 2e 0a 2d 20 41 20 66 61 63 65 20 74 68 61 74 20 69 73 20 75 73 65 e.coloring..-.A.face.that.is.use
3af40 64 20 66 6f 72 20 61 6c 6c 20 74 68 65 20 69 63 6f 6e 73 2e 0a 2d 20 6e 69 6c 2c 20 69 6e 68 65 d.for.all.the.icons..-.nil,.inhe
3af60 72 69 74 20 66 61 63 65 20 61 74 20 70 6f 69 6e 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 rit.face.at.point."...:group.'di
3af80 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 66 61 63 65 20 73 79 6d 62 6f 6c rvish.:type.'(choice.face.symbol
3afa0 20 6e 69 6c 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 76 73 63 6f 64 .nil))..(defcustom.dirvish-vscod
3afc0 65 2d 69 63 6f 6e 2d 73 69 7a 65 20 33 32 0a 20 20 22 49 63 6f 6e 20 28 69 6d 61 67 65 20 70 69 e-icon-size.32..."Icon.(image.pi
3afe0 78 65 6c 29 20 73 69 7a 65 20 75 73 65 64 20 66 6f 72 20 60 76 73 63 6f 64 65 2d 69 63 6f 6e 27 xel).size.used.for.`vscode-icon'
3b000 20 62 61 63 6b 65 6e 64 2e 0a 54 68 65 20 76 61 6c 75 65 20 73 68 6f 75 6c 64 20 62 65 20 61 20 .backend..The.value.should.be.a.
3b020 69 6e 74 65 67 65 72 20 62 65 74 77 65 65 6e 20 32 33 20 74 6f 20 31 32 38 2e 22 0a 20 20 3a 67 integer.between.23.to.128."...:g
3b040 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 29 0a 0a 28 roup.'dirvish.:type.'integer)..(
3b060 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 61 6c 6c 2d 74 68 65 dirvish-define-attribute.all-the
3b080 2d 69 63 6f 6e 73 0a 20 20 22 46 69 6c 65 20 69 63 6f 6e 73 20 70 72 6f 76 69 64 65 64 20 62 79 -icons..."File.icons.provided.by
3b0a0 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2e 65 6c 27 2e 22 0a 20 20 3a 77 69 64 74 68 20 28 .`all-the-icons.el'."...:width.(
3b0c0 2b 20 28 6c 65 6e 67 74 68 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 2d 64 65 6c 69 6d 69 74 65 72 +.(length.dirvish-icon-delimiter
3b0e0 29 20 32 29 0a 20 20 28 6c 65 74 2a 20 28 28 6f 66 66 73 65 74 20 60 28 3a 76 2d 61 64 6a 75 73 ).2)...(let*.((offset.`(:v-adjus
3b100 74 20 2c 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 6f 66 66 73 65 74 29 t.,dirvish-all-the-icons-offset)
3b120 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 69 67 68 74 20 60 28 3a 68 65 69 67 68 74 20 2c 64 69 )..........(height.`(:height.,di
3b140 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 68 65 69 67 68 74 29 29 0a 20 20 20 rvish-all-the-icons-height))....
3b160 20 20 20 20 20 20 28 66 61 63 65 20 28 63 6f 6e 64 20 28 68 6c 2d 66 61 63 65 20 60 28 3a 66 61 ......(face.(cond.(hl-face.`(:fa
3b180 63 65 20 2c 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ce.,hl-face))...................
3b1a0 20 20 20 28 28 65 71 20 64 69 72 76 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 70 61 ...((eq.dirvish-all-the-icons-pa
3b1c0 6c 65 74 74 65 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 29 20 6e 69 6c 29 0a 20 20 20 20 20 lette.'all-the-icons).nil)......
3b1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 3a 66 61 63 65 20 2c 64 69 72 76 ................(t.`(:face.,dirv
3b200 69 73 68 2d 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 70 61 6c 65 74 74 65 29 29 29 29 0a 20 20 ish-all-the-icons-palette))))...
3b220 20 20 20 20 20 20 20 28 69 63 6f 6e 2d 61 74 74 72 73 20 28 61 70 70 65 6e 64 20 66 61 63 65 20 .......(icon-attrs.(append.face.
3b240 6f 66 66 73 65 74 20 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 20 28 offset.height))..........(icon.(
3b260 69 66 20 28 65 71 20 28 63 61 72 20 66 2d 74 79 70 65 29 20 27 64 69 72 29 0a 20 20 20 20 20 20 if.(eq.(car.f-type).'dir).......
3b280 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 61 6c 6c 2d 74 68 65 2d 69 63 .............(apply.#'all-the-ic
3b2a0 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 64 69 72 20 66 2d 6e 61 6d 65 20 69 63 6f 6e 2d 61 74 74 ons-icon-for-dir.f-name.icon-att
3b2c0 72 73 29 0a 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 61 6c rs)..................(apply.#'al
3b2e0 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 66 2d 73 74 72 20 l-the-icons-icon-for-file.f-str.
3b300 69 63 6f 6e 2d 61 74 74 72 73 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 2d 73 74 72 icon-attrs)))..........(icon-str
3b320 20 28 63 6f 6e 63 61 74 20 69 63 6f 6e 20 28 70 72 6f 70 65 72 74 69 7a 65 20 64 69 72 76 69 73 .(concat.icon.(propertize.dirvis
3b340 68 2d 69 63 6f 6e 2d 64 65 6c 69 6d 69 74 65 72 20 27 66 61 63 65 20 68 6c 2d 66 61 63 65 29 29 h-icon-delimiter.'face.hl-face))
3b360 29 0a 20 20 20 20 20 20 20 20 20 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 28 31 2d )..........(ov.(make-overlay.(1-
3b380 20 66 2d 62 65 67 29 20 66 2d 62 65 67 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 .f-beg).f-beg))).....(overlay-pu
3b3a0 74 20 6f 76 20 27 61 66 74 65 72 2d 73 74 72 69 6e 67 20 69 63 6f 6e 2d 73 74 72 29 0a 20 20 20 t.ov.'after-string.icon-str)....
3b3c0 20 60 28 6f 76 20 2e 20 2c 6f 76 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d .`(ov...,ov)))..(dirvish-define-
3b3e0 61 74 74 72 69 62 75 74 65 20 6e 65 72 64 2d 69 63 6f 6e 73 0a 20 20 22 46 69 6c 65 20 69 63 6f attribute.nerd-icons..."File.ico
3b400 6e 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 60 6e 65 72 64 2d 69 63 6f 6e 73 2e 65 6c 27 2e 22 ns.provided.by.`nerd-icons.el'."
3b420 0a 20 20 3a 77 69 64 74 68 20 28 2b 20 28 6c 65 6e 67 74 68 20 64 69 72 76 69 73 68 2d 69 63 6f ...:width.(+.(length.dirvish-ico
3b440 6e 2d 64 65 6c 69 6d 69 74 65 72 29 20 32 29 0a 20 20 28 6c 65 74 2a 20 28 28 6f 66 66 73 65 74 n-delimiter).2)...(let*.((offset
3b460 20 60 28 3a 76 2d 61 64 6a 75 73 74 20 2c 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 .`(:v-adjust.,dirvish-nerd-icons
3b480 2d 6f 66 66 73 65 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 68 65 69 67 68 74 20 60 28 3a 68 65 -offset))..........(height.`(:he
3b4a0 69 67 68 74 20 2c 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 2d 68 65 69 67 68 74 29 ight.,dirvish-nerd-icons-height)
3b4c0 29 0a 20 20 20 20 20 20 20 20 20 28 66 61 63 65 20 28 63 6f 6e 64 20 28 68 6c 2d 66 61 63 65 20 )..........(face.(cond.(hl-face.
3b4e0 60 28 3a 66 61 63 65 20 2c 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 `(:face.,hl-face))..............
3b500 20 20 20 20 20 20 20 20 28 28 65 71 20 64 69 72 76 69 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 2d ........((eq.dirvish-nerd-icons-
3b520 70 61 6c 65 74 74 65 20 27 6e 65 72 64 2d 69 63 6f 6e 73 29 20 6e 69 6c 29 0a 20 20 20 20 20 20 palette.'nerd-icons).nil).......
3b540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 20 60 28 3a 66 61 63 65 20 2c 64 69 72 76 69 ...............(t.`(:face.,dirvi
3b560 73 68 2d 6e 65 72 64 2d 69 63 6f 6e 73 2d 70 61 6c 65 74 74 65 29 29 29 29 0a 20 20 20 20 20 20 sh-nerd-icons-palette)))).......
3b580 20 20 20 28 69 63 6f 6e 2d 61 74 74 72 73 20 28 61 70 70 65 6e 64 20 66 61 63 65 20 6f 66 66 73 ...(icon-attrs.(append.face.offs
3b5a0 65 74 20 68 65 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 20 28 69 66 20 28 et.height))..........(icon.(if.(
3b5c0 65 71 20 28 63 61 72 20 66 2d 74 79 70 65 29 20 27 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 eq.(car.f-type).'dir)...........
3b5e0 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 6e 65 72 64 2d 69 63 6f 6e 73 2d 69 63 6f .........(apply.#'nerd-icons-ico
3b600 6e 2d 66 6f 72 2d 64 69 72 20 66 2d 6e 61 6d 65 20 69 63 6f 6e 2d 61 74 74 72 73 29 0a 20 20 20 n-for-dir.f-name.icon-attrs)....
3b620 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 23 27 6e 65 72 64 2d 69 63 6f 6e ..............(apply.#'nerd-icon
3b640 73 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 66 2d 73 74 72 20 69 63 6f 6e 2d 61 74 74 72 73 s-icon-for-file.f-str.icon-attrs
3b660 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 63 6f 6e 2d 73 74 72 20 28 63 6f 6e 63 61 74 20 69 )))..........(icon-str.(concat.i
3b680 63 6f 6e 20 28 70 72 6f 70 65 72 74 69 7a 65 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 2d 64 65 6c con.(propertize.dirvish-icon-del
3b6a0 69 6d 69 74 65 72 20 27 66 61 63 65 20 68 6c 2d 66 61 63 65 29 29 29 0a 20 20 20 20 20 20 20 20 imiter.'face.hl-face))).........
3b6c0 20 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 28 31 2d 20 66 2d 62 65 67 29 20 66 2d .(ov.(make-overlay.(1-.f-beg).f-
3b6e0 62 65 67 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 61 66 74 65 beg))).....(overlay-put.ov.'afte
3b700 72 2d 73 74 72 69 6e 67 20 69 63 6f 6e 2d 73 74 72 29 0a 20 20 20 20 60 28 6f 76 20 2e 20 2c 6f r-string.icon-str).....`(ov...,o
3b720 76 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d 64 65 66 69 6e 65 2d 61 74 74 72 69 62 75 74 65 20 v)))..(dirvish-define-attribute.
3b740 76 73 63 6f 64 65 2d 69 63 6f 6e 0a 20 20 22 46 69 6c 65 20 69 63 6f 6e 73 20 70 72 6f 76 69 64 vscode-icon..."File.icons.provid
3b760 65 64 20 62 79 20 60 76 73 63 6f 64 65 2d 69 63 6f 6e 2e 65 6c 27 2e 22 0a 20 20 3a 77 69 64 74 ed.by.`vscode-icon.el'."...:widt
3b780 68 20 28 31 2b 20 28 6c 65 6e 67 74 68 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 2d 64 65 6c 69 6d h.(1+.(length.dirvish-icon-delim
3b7a0 69 74 65 72 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 73 69 7a iter))...(let*.((vscode-icon-siz
3b7c0 65 20 64 69 72 76 69 73 68 2d 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 73 69 7a 65 29 0a 20 20 20 20 e.dirvish-vscode-icon-size).....
3b7e0 20 20 20 20 20 28 69 63 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 61 74 .....(icon...........(dirvish-at
3b800 74 72 69 62 75 74 65 2d 63 61 63 68 65 20 66 2d 6e 61 6d 65 20 3a 76 73 63 6f 64 65 2d 69 63 6f tribute-cache.f-name.:vscode-ico
3b820 6e 0a 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 n.............(let.((default-dir
3b840 65 63 74 6f 72 79 20 64 69 72 76 69 73 68 2d 2d 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 69 72 65 ectory.dirvish--vscode-icon-dire
3b860 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 63 ctory))...............(if.(eq.(c
3b880 61 72 20 66 2d 74 79 70 65 29 20 27 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ar.f-type).'dir)................
3b8a0 20 20 20 28 6c 65 74 2a 20 28 28 62 61 73 65 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 73 61 6e 73 2d ...(let*.((base.(file-name-sans-
3b8c0 65 78 74 65 6e 73 69 6f 6e 20 66 2d 73 74 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 extension.f-str))...............
3b8e0 20 20 20 20 20 20 20 20 20 20 20 28 69 2d 62 61 73 65 20 28 6f 72 20 28 63 64 72 20 28 61 73 73 ...........(i-base.(or.(cdr.(ass
3b900 6f 63 20 62 61 73 65 20 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 69 72 2d 61 6c 69 73 74 29 29 0a oc.base.vscode-icon-dir-alist)).
3b920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ................................
3b940 20 20 20 20 20 62 61 73 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .....base)).....................
3b960 20 20 20 20 20 28 69 2d 70 61 74 68 20 28 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 64 69 72 2d 65 78 .....(i-path.(vscode-icon-dir-ex
3b980 69 73 74 73 2d 70 20 69 2d 62 61 73 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ists-p.i-base)))................
3b9a0 20 20 20 20 20 28 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 63 72 65 61 74 65 2d 69 6d 61 67 65 0a 20 .....(vscode-icon-create-image..
3b9c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 69 2d 70 61 74 68 20 28 ....................(or.i-path.(
3b9e0 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 22 64 65 66 61 75 6c 74 5f 66 6f 6c 64 65 72 expand-file-name."default_folder
3ba00 2e 70 6e 67 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 73 63 6f 64 .png")))).................(vscod
3ba20 65 2d 69 63 6f 6e 2d 66 69 6c 65 20 66 2d 6e 61 6d 65 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 e-icon-file.f-name))))).........
3ba40 20 28 6f 76 20 28 6d 61 6b 65 2d 6f 76 65 72 6c 61 79 20 28 31 2d 20 66 2d 62 65 67 29 20 66 2d .(ov.(make-overlay.(1-.f-beg).f-
3ba60 62 65 67 29 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 64 69 73 70 beg))).....(overlay-put.ov.'disp
3ba80 6c 61 79 20 69 63 6f 6e 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 20 27 62 lay.icon).....(overlay-put.ov.'b
3baa0 65 66 6f 72 65 2d 73 74 72 69 6e 67 20 28 70 72 6f 70 65 72 74 69 7a 65 20 22 20 22 20 27 66 61 efore-string.(propertize.".".'fa
3bac0 63 65 20 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 28 6f 76 65 72 6c 61 79 2d 70 75 74 20 6f 76 ce.hl-face)).....(overlay-put.ov
3bae0 20 27 61 66 74 65 72 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 .'after-string..................
3bb00 28 70 72 6f 70 65 72 74 69 7a 65 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 2d 64 65 6c 69 6d 69 74 (propertize.dirvish-icon-delimit
3bb20 65 72 20 27 66 61 63 65 20 68 6c 2d 66 61 63 65 29 29 0a 20 20 20 20 60 28 6f 76 20 2e 20 2c 6f er.'face.hl-face)).....`(ov...,o
3bb40 76 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 69 63 6f 6e 73 29 0a 3b v)))..(provide.'dirvish-icons).;
3bb60 3b 3b 20 64 69 72 76 69 73 68 2d 69 63 6f 6e 73 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 ;;.dirvish-icons.el.ends.here...
3bb80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bbc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bbe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bc00 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 6e 61 dirvish-20230519.1500/dirvish-na
3bc20 72 72 6f 77 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 rrow.el.........................
3bc40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bc60 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
3bc80 30 30 31 31 31 33 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 37 35 31 00 20 30 00 00 00 0011131.00000000000.015751..0...
3bca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bcc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bd00 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...................
3bd20 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...................
3bd40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bd60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bd80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bda0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bdc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3bde0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3be00 3b 3b 3b 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2e 65 6c 20 2d 2d 2d 20 4c 69 76 65 2d 6e ;;;.dirvish-narrow.el.---.Live-n
3be20 61 72 72 6f 77 69 6e 67 20 6f 66 20 73 65 61 72 63 68 20 72 65 73 75 6c 74 73 20 66 6f 72 20 44 arrowing.of.search.results.for.D
3be40 69 72 76 69 73 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a irvish.-*-.lexical-binding:.t.-*
3be60 2d 0a 0a 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c -..;;.Copyright.(C).2021-2022.Al
3be80 65 78 20 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 ex.Lu.;;.Author.:.Alex.Lu.<https
3bea0 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 ://github.com/alexluigit>.;;.Ver
3bec0 73 69 6f 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c sion:.2.0.53.;;.Keywords:.files,
3bee0 20 63 6f 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a .convenience.;;.Homepage:.https:
3bf00 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a //github.com/alexluigit/dirvish.
3bf20 3b 3b 20 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d ;;.SPDX-License-Identifier:.GPL-
3bf40 33 2e 30 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3.0-or-later..;;;.Commentary:..;
3bf60 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 73 20 6c 69 76 65 20 66 69 6c ;.This.package.provides.live.fil
3bf80 74 65 72 69 6e 67 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 44 69 72 76 69 73 68 20 62 75 66 66 65 tering.of.files.in.Dirvish.buffe
3bfa0 72 73 2e 20 20 49 74 20 69 73 20 61 0a 3b 3b 20 73 74 72 69 70 70 65 64 2d 64 6f 77 6e 20 76 65 rs...It.is.a.;;.stripped-down.ve
3bfc0 72 73 69 6f 6e 20 6f 66 20 60 64 69 72 65 64 2d 6e 61 72 72 6f 77 27 2e 0a 0a 3b 3b 3b 20 43 6f rsion.of.`dired-narrow'...;;;.Co
3bfe0 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 28 64 65 63 6c 61 72 65 de:..(require.'dirvish).(declare
3c000 2d 66 75 6e 63 74 69 6f 6e 20 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 72 65 76 65 72 -function.dirvish-subtree--rever
3c020 74 20 22 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 22 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d t."dirvish-subtree")..(defcustom
3c040 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 72 65 67 65 78 2d 62 75 69 6c 64 65 72 0a 20 20 .dirvish-narrow-regex-builder...
3c060 28 69 66 20 28 66 75 6e 63 74 69 6f 6e 70 20 27 6f 72 64 65 72 6c 65 73 73 2d 70 61 74 74 65 72 (if.(functionp.'orderless-patter
3c080 6e 2d 63 6f 6d 70 69 6c 65 72 29 0a 20 20 20 20 20 20 23 27 6f 72 64 65 72 6c 65 73 73 2d 70 61 n-compiler).......#'orderless-pa
3c0a0 74 74 65 72 6e 2d 63 6f 6d 70 69 6c 65 72 0a 20 20 20 20 23 27 73 70 6c 69 74 2d 73 74 72 69 6e ttern-compiler.....#'split-strin
3c0c0 67 29 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 74 6f 20 63 6f 6d 70 6f 73 65 20 74 g)..."Function.used.to.compose.t
3c0e0 68 65 20 72 65 67 65 78 20 6c 69 73 74 20 66 6f 72 20 6e 61 72 72 6f 77 69 6e 67 2e 0a 54 68 65 he.regex.list.for.narrowing..The
3c100 20 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 74 68 65 20 69 6e 70 75 74 20 73 74 72 69 6e 67 .function.takes.the.input.string
3c120 20 61 73 20 69 74 73 20 73 6f 6c 65 20 61 72 67 75 6d 65 6e 74 20 61 6e 64 0a 73 68 6f 75 6c 64 .as.its.sole.argument.and.should
3c140 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 72 65 67 75 6c 61 72 20 65 78 70 72 65 73 .return.a.list.of.regular.expres
3c160 73 69 6f 6e 73 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 sions."...:group.'dirvish.:type.
3c180 27 66 75 6e 63 74 69 6f 6e 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 6e 'function)..(defcustom.dirvish-n
3c1a0 61 72 72 6f 77 2d 64 65 62 6f 75 6e 63 65 20 30 2e 32 0a 20 20 22 4c 69 6b 65 20 60 64 69 72 76 arrow-debounce.0.2..."Like.`dirv
3c1c0 69 73 68 2d 72 65 64 69 73 70 6c 61 79 2d 64 65 62 6f 75 6e 63 65 27 2c 20 62 75 74 20 75 73 65 ish-redisplay-debounce',.but.use
3c1e0 64 20 66 6f 72 20 6e 61 72 72 6f 77 69 6e 67 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 d.for.narrowing."...:group.'dirv
3c200 69 73 68 20 3a 74 79 70 65 20 27 66 6c 6f 61 74 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 ish.:type.'float)..(defvar.dirvi
3c220 73 68 2d 6e 61 72 72 6f 77 2d 64 65 62 6f 75 6e 63 65 2d 74 69 6d 65 72 20 6e 69 6c 29 0a 28 64 sh-narrow-debounce-timer.nil).(d
3c240 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 73 75 62 64 efvar-local.dirvish-narrow--subd
3c260 69 72 2d 61 6c 69 73 74 20 27 28 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 61 ir-alist.'())..(defun.dirvish-na
3c280 72 72 6f 77 2d 2d 62 75 69 6c 64 2d 69 6e 64 69 63 65 73 20 28 29 0a 20 20 22 55 70 64 61 74 65 rrow--build-indices.()..."Update
3c2a0 20 74 68 65 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 20 62 61 73 65 64 20 6f 6e 20 74 68 65 .the.Dirvish.buffer.based.on.the
3c2c0 20 69 6e 70 75 74 20 6f 66 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 28 73 65 .input.of.the.minibuffer."...(se
3c2e0 74 71 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 20 tq.dirvish-narrow--subdir-alist.
3c300 27 28 29 29 0a 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 '())...(when.(bound-and-true-p.d
3c320 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 6f 76 65 72 6c 61 79 73 29 0a 20 20 20 20 28 64 irvish-subtree--overlays).....(d
3c340 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 2d 72 65 76 65 72 74 20 74 29 29 0a 20 20 28 73 61 irvish-subtree--revert.t))...(sa
3c360 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 ve-excursion.....(with-current-b
3c380 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 uffer.(window-buffer.(minibuffer
3c3a0 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f -selected-window)).......(cl-loo
3c3c0 70 20 66 6f 72 20 28 64 69 72 20 2e 20 62 65 67 29 20 69 6e 20 64 69 72 65 64 2d 73 75 62 64 69 p.for.(dir...beg).in.dired-subdi
3c3e0 72 2d 61 6c 69 73 74 20 64 6f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 r-alist.do................(dirvi
3c400 73 68 2d 6e 61 72 72 6f 77 2d 2d 69 6e 64 65 78 2d 73 75 62 64 69 72 20 64 69 72 20 62 65 67 29 sh-narrow--index-subdir.dir.beg)
3c420 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 75 70 64 61 ))))..(defun.dirvish-narrow-upda
3c440 74 65 2d 68 20 28 29 0a 20 20 22 55 70 64 61 74 65 20 74 68 65 20 44 69 72 76 69 73 68 20 62 75 te-h.()..."Update.the.Dirvish.bu
3c460 66 66 65 72 20 62 61 73 65 64 20 6f 6e 20 74 68 65 20 69 6e 70 75 74 20 6f 66 20 74 68 65 20 6d ffer.based.on.the.input.of.the.m
3c480 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 28 64 69 72 76 69 73 68 2d 64 65 62 6f 75 6e 63 65 20 inibuffer."...(dirvish-debounce.
3c4a0 6e 61 72 72 6f 77 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 69 6e 70 75 74 20 28 6d 69 6e 69 62 75 narrow.....(let*.((input.(minibu
3c4c0 66 66 65 72 2d 63 6f 6e 74 65 6e 74 73 2d 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 29 29 0a 20 20 ffer-contents-no-properties))...
3c4e0 20 20 20 20 20 20 20 20 20 28 72 65 67 65 78 2d 6c 69 73 74 20 28 66 75 6e 63 61 6c 6c 20 64 69 .........(regex-list.(funcall.di
3c500 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 72 65 67 65 78 2d 62 75 69 6c 64 65 72 20 69 6e 70 75 74 rvish-narrow-regex-builder.input
3c520 29 29 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 ))).......(with-current-buffer.(
3c540 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 6c 65 63 74 window-buffer.(minibuffer-select
3c560 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 ed-window)).........(save-excurs
3c580 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 64 78 20 66 ion...........(cl-loop.for.idx.f
3c5a0 72 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 64 69 rom.0....................for.(di
3c5c0 72 20 2e 20 70 6f 73 29 20 69 6e 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 0a 20 r...pos).in.dired-subdir-alist..
3c5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 64 69 72 76 69 73 68 2d 6e 61 ..................do.(dirvish-na
3c600 72 72 6f 77 2d 2d 66 69 6c 74 65 72 2d 73 75 62 64 69 72 20 64 69 72 20 70 6f 73 20 72 65 67 65 rrow--filter-subdir.dir.pos.rege
3c620 78 2d 6c 69 73 74 20 69 64 78 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 75 x-list.idx))).........(dirvish-u
3c640 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 pdate-body-h)))))..(defun.dirvis
3c660 68 2d 6e 61 72 72 6f 77 2d 2d 72 65 76 65 72 74 20 28 29 0a 20 20 22 52 65 76 65 72 74 20 44 69 h-narrow--revert.()..."Revert.Di
3c680 72 76 69 73 68 20 62 75 66 66 65 72 20 77 69 74 68 20 65 6d 70 74 79 20 6e 61 72 72 6f 77 69 6e rvish.buffer.with.empty.narrowin
3c6a0 67 20 66 69 6c 74 65 72 2e 22 0a 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 69 64 78 20 66 72 g.filter."...(cl-loop.for.idx.fr
3c6c0 6f 6d 20 30 0a 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 20 28 64 69 72 20 2e 20 70 6f 73 29 20 om.0............for.(dir...pos).
3c6e0 69 6e 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 in.dired-subdir-alist...........
3c700 20 64 6f 20 28 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 66 69 6c 74 65 72 2d 73 75 62 64 .do.(dirvish-narrow--filter-subd
3c720 69 72 20 64 69 72 20 70 6f 73 20 6e 69 6c 20 69 64 78 29 29 29 0a 0a 28 63 6c 2d 64 65 66 75 6e ir.dir.pos.nil.idx)))..(cl-defun
3c740 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 69 6e 64 65 78 2d 73 75 62 64 69 72 20 28 73 .dirvish-narrow--index-subdir.(s
3c760 75 62 64 69 72 20 62 65 67 29 0a 20 20 22 46 69 6c 74 65 72 20 74 68 65 20 53 55 42 44 49 52 20 ubdir.beg)..."Filter.the.SUBDIR.
3c780 66 72 6f 6d 20 42 45 47 20 74 6f 20 45 4e 44 2e 22 0a 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 62 from.BEG.to.END."...(goto-char.b
3c7a0 65 67 29 0a 20 20 28 6c 65 74 20 28 28 65 6e 64 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d 6d eg)...(let.((end.(dired-subdir-m
3c7c0 61 78 29 29 20 66 69 6c 65 73 29 0a 20 20 20 20 28 77 68 69 6c 65 20 28 3c 20 28 70 6f 69 6e 74 ax)).files).....(while.(<.(point
3c7e0 29 20 65 6e 64 29 0a 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 66 2d 62 65 67 20 ).end).......(when-let*.((f-beg.
3c800 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 0a 20 20 20 20 20 20 (dired-move-to-filename)).......
3c820 20 20 20 20 20 20 20 20 20 20 20 20 28 66 2d 65 6e 64 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 ............(f-end.(dired-move-t
3c840 6f 2d 65 6e 64 2d 6f 66 2d 66 69 6c 65 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 o-end-of-filename)).............
3c860 20 20 20 20 20 20 28 66 2d 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 73 75 62 73 74 72 69 6e 67 2d ......(f-name.(buffer-substring-
3c880 6e 6f 2d 70 72 6f 70 65 72 74 69 65 73 20 66 2d 62 65 67 20 66 2d 65 6e 64 29 29 0a 20 20 20 20 no-properties.f-beg.f-end)).....
3c8a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 2d 62 65 67 20 28 6c 69 6e 65 2d 62 65 67 69 6e ..............(l-beg.(line-begin
3c8c0 6e 69 6e 67 2d 70 6f 73 69 74 69 6f 6e 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ning-position)).................
3c8e0 20 20 28 6c 2d 65 6e 64 20 28 31 2b 20 28 6c 69 6e 65 2d 65 6e 64 2d 70 6f 73 69 74 69 6f 6e 29 ..(l-end.(1+.(line-end-position)
3c900 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 2d 73 74 72 20 28 62 75 66 ))...................(l-str.(buf
3c920 66 65 72 2d 73 75 62 73 74 72 69 6e 67 20 6c 2d 62 65 67 20 6c 2d 65 6e 64 29 29 29 0a 20 20 20 fer-substring.l-beg.l-end)))....
3c940 20 20 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 66 2d 6e 61 6d 65 20 6c 2d 73 74 72 29 20 66 .....(push.(cons.f-name.l-str).f
3c960 69 6c 65 73 29 29 0a 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 0a 20 iles)).......(forward-line.1))..
3c980 20 20 20 28 70 75 73 68 20 28 63 6f 6e 73 20 73 75 62 64 69 72 20 28 72 65 76 65 72 73 65 20 66 ...(push.(cons.subdir.(reverse.f
3c9a0 69 6c 65 73 29 29 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 73 75 62 64 69 72 2d 61 6c iles)).dirvish-narrow--subdir-al
3c9c0 69 73 74 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 66 ist)))..(defun.dirvish-narrow--f
3c9e0 69 6c 74 65 72 2d 73 75 62 64 69 72 20 28 64 69 72 20 70 6f 73 20 72 65 67 65 78 73 20 69 64 78 ilter-subdir.(dir.pos.regexs.idx
3ca00 29 0a 20 20 22 46 69 6c 74 65 72 20 74 68 65 20 73 75 62 64 69 72 20 44 49 52 20 69 6e 20 50 4f )..."Filter.the.subdir.DIR.in.PO
3ca20 53 20 77 69 74 68 20 52 45 47 45 58 53 2e 0a 49 44 58 20 74 68 65 20 69 6e 64 65 78 20 6f 66 20 S.with.REGEXS..IDX.the.index.of.
3ca40 44 49 52 20 69 6e 20 60 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 27 2e 22 0a 20 20 DIR.in.`dired-subdir-alist'."...
3ca60 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 28 6c 65 74 2a 20 28 28 66 69 6c 65 73 20 (goto-char.pos)...(let*.((files.
3ca80 28 61 6c 69 73 74 2d 67 65 74 20 64 69 72 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 73 (alist-get.dir.dirvish-narrow--s
3caa0 75 62 64 69 72 2d 61 6c 69 73 74 20 6e 69 6c 20 6e 69 6c 20 23 27 65 71 75 61 6c 29 29 0a 20 20 ubdir-alist.nil.nil.#'equal))...
3cac0 20 20 20 20 20 20 20 28 65 6e 64 20 28 2d 20 28 64 69 72 65 64 2d 73 75 62 64 69 72 2d 6d 61 78 .......(end.(-.(dired-subdir-max
3cae0 29 20 28 69 66 20 28 65 71 20 69 64 78 20 30 29 20 30 20 31 29 29 29 0a 20 20 20 20 20 20 20 20 ).(if.(eq.idx.0).0.1))).........
3cb00 20 28 6f 66 66 73 65 74 20 28 31 2d 20 28 6c 69 6e 65 2d 6e 75 6d 62 65 72 2d 61 74 2d 70 6f 73 .(offset.(1-.(line-number-at-pos
3cb20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 29 29 29 .(dirvish-prop.:content-begin)))
3cb40 29 0a 20 20 20 20 20 20 20 20 20 28 62 65 67 20 28 70 72 6f 67 6e 20 28 66 6f 72 77 61 72 64 2d )..........(beg.(progn.(forward-
3cb60 6c 69 6e 65 20 6f 66 66 73 65 74 29 20 28 70 6f 69 6e 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 line.offset).(point)))..........
3cb80 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 72 65 buffer-read-only).....(delete-re
3cba0 67 69 6f 6e 20 62 65 67 20 65 6e 64 29 0a 20 20 20 20 28 69 66 20 28 6e 6f 74 20 72 65 67 65 78 gion.beg.end).....(if.(not.regex
3cbc0 73 29 0a 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 5f 20 2e 20 6c 69 6e s).........(cl-loop.for.(_...lin
3cbe0 65 29 20 69 6e 20 66 69 6c 65 73 20 64 6f 20 28 69 6e 73 65 72 74 20 6c 69 6e 65 29 29 0a 20 20 e).in.files.do.(insert.line))...
3cc00 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 6f 72 20 28 66 69 6c 65 20 2e 20 6c 69 6e 65 29 20 69 ....(cl-loop.for.(file...line).i
3cc20 6e 20 66 69 6c 65 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 6e 6c 65 73 73 20 28 63 n.files................unless.(c
3cc40 6c 2d 6c 6f 6f 70 20 66 6f 72 20 72 65 67 65 78 20 69 6e 20 72 65 67 65 78 73 0a 20 20 20 20 20 l-loop.for.regex.in.regexs......
3cc60 20 20 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 65 72 65 69 ..........................therei
3cc80 73 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 6d 61 74 63 68 20 72 65 67 65 78 20 66 69 6c 65 29 s.(not.(string-match.regex.file)
3cca0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 6f 20 28 69 6e 73 65 72 74 20 6c 69 6e ))................do.(insert.lin
3ccc0 65 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 6d 69 e)))))..(defun.dirvish-narrow-mi
3cce0 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 20 28 29 0a 20 20 22 4d 69 6e 69 62 75 66 66 65 nibuffer-setup-h.()..."Minibuffe
3cd00 72 20 73 65 74 75 70 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 6e 61 r.setup.function.for.`dirvish-na
3cd20 72 72 6f 77 27 2e 22 0a 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 rrow'."...(with-current-buffer.(
3cd40 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 6c 65 63 74 window-buffer.(minibuffer-select
3cd60 65 64 2d 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 64 69 72 76 ed-window)).....(goto-char.(dirv
3cd80 69 73 68 2d 70 72 6f 70 20 3a 63 6f 6e 74 65 6e 74 2d 62 65 67 69 6e 29 29 0a 20 20 20 20 28 64 ish-prop.:content-begin)).....(d
3cda0 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 0a 20 20 28 61 64 64 2d 68 6f irvish-update-body-h))...(add-ho
3cdc0 6f 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d ok.'post-command-hook.#'dirvish-
3cde0 6e 61 72 72 6f 77 2d 75 70 64 61 74 65 2d 68 20 6e 69 6c 20 74 29 29 0a 0a 3b 3b 3b 23 23 23 61 narrow-update-h.nil.t))..;;;###a
3ce00 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 20 28 29 utoload.(defun.dirvish-narrow.()
3ce20 0a 20 20 22 4e 61 72 72 6f 77 20 61 20 44 69 72 76 69 73 68 20 62 75 66 66 65 72 20 74 6f 20 74 ..."Narrow.a.Dirvish.buffer.to.t
3ce40 68 65 20 66 69 6c 65 73 20 6d 61 74 63 68 69 6e 67 20 61 20 72 65 67 65 78 2e 22 0a 20 20 28 69 he.files.matching.a.regex."...(i
3ce60 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 62 nteractive)...(dirvish-narrow--b
3ce80 75 69 6c 64 2d 69 6e 64 69 63 65 73 29 0a 20 20 28 77 68 65 6e 20 28 6d 69 6e 69 62 75 66 66 65 uild-indices)...(when.(minibuffe
3cea0 72 70 29 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 60 25 73 27 20 63 61 6c 6c 65 64 20 69 6e 73 rp).(user-error."`%s'.called.ins
3cec0 69 64 65 20 74 68 65 20 6d 69 6e 69 62 75 66 66 65 72 22 20 74 68 69 73 2d 63 6f 6d 6d 61 6e 64 ide.the.minibuffer".this-command
3cee0 29 29 0a 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 66 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 ))...(let.((old-f.(dirvish-prop.
3cf00 3a 69 6e 64 65 78 29 29 20 66 69 6e 61 6c 2d 69 6e 70 75 74 29 0a 20 20 20 20 28 6d 69 6e 69 62 :index)).final-input).....(minib
3cf20 75 66 66 65 72 2d 77 69 74 68 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d uffer-with-setup-hook.#'dirvish-
3cf40 6e 61 72 72 6f 77 2d 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 74 75 70 2d 68 0a 20 20 20 20 20 20 narrow-minibuffer-setup-h.......
3cf60 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 20 28 73 65 74 71 20 (unwind-protect...........(setq.
3cf80 66 69 6e 61 6c 2d 69 6e 70 75 74 20 28 72 65 61 64 2d 66 72 6f 6d 2d 6d 69 6e 69 62 75 66 66 65 final-input.(read-from-minibuffe
3cfa0 72 20 22 46 6f 63 75 73 20 6f 6e 20 66 69 6c 65 73 3a 20 22 29 29 0a 20 20 20 20 20 20 20 20 28 r."Focus.on.files:.")).........(
3cfc0 77 68 65 6e 20 28 3d 20 28 6c 65 6e 67 74 68 20 66 69 6e 61 6c 2d 69 6e 70 75 74 29 20 30 29 20 when.(=.(length.final-input).0).
3cfe0 28 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 2d 2d 72 65 76 65 72 74 29 29 0a 20 20 20 20 20 20 (dirvish-narrow--revert)).......
3d000 20 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 6f 6c 64 2d 66 29 29 29 29 29 0a 0a 28 ..(dired-goto-file.old-f)))))..(
3d020 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 6e 61 72 72 6f 77 29 0a 3b 3b 3b 20 64 69 72 provide.'dirvish-narrow).;;;.dir
3d040 76 69 73 68 2d 6e 61 72 72 6f 77 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 00 00 vish-narrow.el.ends.here........
3d060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d0a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d1a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d200 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 68 69 dirvish-20230519.1500/dirvish-hi
3d220 73 74 6f 72 79 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 story.el........................
3d240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d260 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
3d280 30 30 30 36 32 33 35 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 31 35 33 00 20 30 00 00 00 0006235.00000000000.016153..0...
3d2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d300 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...................
3d320 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...................
3d340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3d400 3b 3b 3b 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2e 65 6c 20 2d 2d 2d 20 48 69 73 74 6f ;;;.dirvish-history.el.---.Histo
3d420 72 79 20 6e 61 76 69 67 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 44 69 72 76 69 73 ry.navigation.commands.in.Dirvis
3d440 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b 3b h.-*-.lexical-binding:.t.-*-..;;
3d460 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c 75 .Copyright.(C).2021-2022.Alex.Lu
3d480 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 69 .;;.Author.:.Alex.Lu.<https://gi
3d4a0 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a thub.com/alexluigit>.;;.Version:
3d4c0 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e 76 .2.0.53.;;.Keywords:.files,.conv
3d4e0 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 enience.;;.Homepage:.https://git
3d500 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 50 hub.com/alexluigit/dirvish.;;.SP
3d520 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d 6f DX-License-Identifier:.GPL-3.0-o
3d540 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 48 69 73 r-later..;;;.Commentary:..;;.His
3d560 74 6f 72 79 20 6e 61 76 69 67 61 74 69 6f 6e 20 63 6f 6d 6d 61 6e 64 73 20 69 6e 20 44 69 72 76 tory.navigation.commands.in.Dirv
3d580 69 73 68 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 ish...;;;.Code:..(require.'dirvi
3d5a0 73 68 29 0a 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 61 sh)..(define-obsolete-function-a
3d5c0 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 73 68 6f 77 2d 68 69 73 74 6f 72 79 20 23 27 64 69 72 lias.'dirvish-show-history.#'dir
3d5e0 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6a 75 6d 70 20 22 4a 75 6e 20 30 38 2c 20 32 30 32 32 22 vish-history-jump."Jun.08,.2022"
3d600 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 61 6c 69 61 ).(define-obsolete-function-alia
3d620 73 20 27 64 69 72 76 69 73 68 2d 6f 74 68 65 72 2d 62 75 66 66 65 72 20 23 27 64 69 72 76 69 73 s.'dirvish-other-buffer.#'dirvis
3d640 68 2d 68 69 73 74 6f 72 79 2d 6c 61 73 74 20 22 4a 75 6e 20 30 38 2c 20 32 30 32 32 22 29 0a 28 h-history-last."Jun.08,.2022").(
3d660 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 27 define-obsolete-function-alias.'
3d680 64 69 72 76 69 73 68 2d 67 6f 2d 66 6f 72 77 61 72 64 2d 68 69 73 74 6f 72 79 20 23 27 64 69 72 dirvish-go-forward-history.#'dir
3d6a0 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 67 6f 2d 66 6f 72 77 61 72 64 20 22 4a 75 6e 20 30 38 2c vish-history-go-forward."Jun.08,
3d6c0 20 32 30 32 32 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 .2022").(define-obsolete-functio
3d6e0 6e 2d 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 67 6f 2d 62 61 63 6b 77 61 72 64 2d 68 69 73 n-alias.'dirvish-go-backward-his
3d700 74 6f 72 79 20 23 27 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 67 6f 2d 62 61 63 6b 77 61 tory.#'dirvish-history-go-backwa
3d720 72 64 20 22 4a 75 6e 20 30 38 2c 20 32 30 32 32 22 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f rd."Jun.08,.2022")..;;;###autolo
3d740 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6a 75 6d 70 20 28 ad.(defun.dirvish-history-jump.(
3d760 29 0a 20 20 22 4f 70 65 6e 20 61 20 74 61 72 67 65 74 20 64 69 72 65 63 74 6f 72 79 20 66 72 6f )..."Open.a.target.directory.fro
3d780 6d 20 60 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 79 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 m.`dirvish--history'."...(intera
3d7a0 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 ctive)...(unless.dirvish--histor
3d7c0 79 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 5b 65 72 72 6f 72 5d 3a 20 6e y.(user-error."Dirvish[error]:.n
3d7e0 6f 20 68 69 73 74 6f 72 79 20 65 6e 74 72 69 65 73 22 29 29 0a 20 20 28 6c 65 74 2a 20 28 28 65 o.history.entries"))...(let*.((e
3d800 6e 74 72 69 65 73 20 28 64 69 72 76 69 73 68 2d 2d 61 70 70 65 6e 64 2d 6d 65 74 61 64 61 74 61 ntries.(dirvish--append-metadata
3d820 20 27 66 69 6c 65 20 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 79 29 29 0a 20 20 20 20 20 20 .'file.dirvish--history)).......
3d840 20 20 20 28 72 65 73 75 6c 74 20 28 63 6f 6d 70 6c 65 74 69 6e 67 2d 72 65 61 64 20 22 52 65 63 ...(result.(completing-read."Rec
3d860 65 6e 74 6c 79 20 76 69 73 69 74 65 64 3a 20 22 20 65 6e 74 72 69 65 73 29 29 29 0a 20 20 20 20 ently.visited:.".entries))).....
3d880 20 20 28 77 68 65 6e 20 72 65 73 75 6c 74 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 ..(when.result.(dirvish-find-ent
3d8a0 72 79 2d 61 20 72 65 73 75 6c 74 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a ry-a.result))))..;;;###autoload.
3d8c0 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6c 61 73 74 20 28 29 0a 20 (defun.dirvish-history-last.()..
3d8e0 20 22 53 77 69 74 63 68 20 74 6f 20 74 68 65 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 76 69 ."Switch.to.the.most.recently.vi
3d900 73 69 74 65 64 20 64 69 72 76 69 73 68 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 sited.dirvish.buffer."...(intera
3d920 63 74 69 76 65 29 0a 20 20 28 75 6e 6c 65 73 73 20 64 69 72 76 69 73 68 2d 2d 68 69 73 74 6f 72 ctive)...(unless.dirvish--histor
3d940 79 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 44 69 72 76 69 73 68 5b 65 72 72 6f 72 5d 3a 20 6e y.(user-error."Dirvish[error]:.n
3d960 6f 20 68 69 73 74 6f 72 79 20 65 6e 74 72 69 65 73 22 29 29 0a 20 20 28 6c 65 74 20 28 28 6d 61 o.history.entries"))...(let.((ma
3d980 74 63 68 0a 20 20 20 20 20 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 20 20 20 20 20 20 20 tch..........(cl-loop...........
3d9a0 77 69 74 68 20 6c 6f 63 61 6c 2d 65 6e 74 72 69 65 73 20 3d 20 28 6d 61 70 63 61 72 20 23 27 63 with.local-entries.=.(mapcar.#'c
3d9c0 61 72 20 28 64 76 2d 72 6f 6f 74 73 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 0a 20 20 ar.(dv-roots.(dirvish-curr)))...
3d9e0 20 20 20 20 20 20 20 20 66 6f 72 20 65 6e 74 72 79 20 69 6e 20 64 69 72 76 69 73 68 2d 2d 68 69 ........for.entry.in.dirvish--hi
3da00 73 74 6f 72 79 0a 20 20 20 20 20 20 20 20 20 20 74 68 65 72 65 69 73 20 28 61 6e 64 20 28 6d 65 story...........thereis.(and.(me
3da20 6d 62 65 72 20 65 6e 74 72 79 20 6c 6f 63 61 6c 2d 65 6e 74 72 69 65 73 29 0a 20 20 20 20 20 20 mber.entry.local-entries).......
3da40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 65 71 75 61 6c 20 65 6e 74 .................(not.(equal.ent
3da60 72 79 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 29 29 20 65 ry.(dired-current-directory))).e
3da80 6e 74 72 79 29 29 29 29 0a 20 20 20 20 28 61 6e 64 20 6d 61 74 63 68 20 28 64 69 72 76 69 73 68 ntry)))).....(and.match.(dirvish
3daa0 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 6d 61 74 63 68 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 -find-entry-a.match))))..;;;###a
3dac0 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 67 utoload.(defun.dirvish-history-g
3dae0 6f 2d 66 6f 72 77 61 72 64 20 28 61 72 67 29 0a 20 20 22 4e 61 76 69 67 61 74 65 20 74 6f 20 6e o-forward.(arg)..."Navigate.to.n
3db00 65 78 74 20 41 52 47 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 68 69 73 74 6f 72 79 2e 0a 41 52 ext.ARG.directory.in.history..AR
3db20 47 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 G.defaults.to.1."...(interactive
3db40 20 22 5e 70 22 29 0a 20 20 28 6c 65 74 2a 20 28 28 64 76 20 28 6f 72 20 28 64 69 72 76 69 73 68 ."^p")...(let*.((dv.(or.(dirvish
3db60 2d 63 75 72 72 29 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 4e 6f 74 20 69 6e 20 61 20 64 69 72 -curr).(user-error."Not.in.a.dir
3db80 76 69 73 68 20 73 65 73 73 69 6f 6e 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 73 20 vish.session")))..........(dirs.
3dba0 28 72 65 76 65 72 73 65 20 28 6d 61 70 63 61 72 20 23 27 63 61 72 20 28 64 76 2d 72 6f 6f 74 73 (reverse.(mapcar.#'car.(dv-roots
3dbc0 20 64 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6c 65 6e 20 28 6c 65 6e 67 74 68 20 64 69 .dv))))..........(len.(length.di
3dbe0 72 73 29 29 0a 20 20 20 20 20 20 20 20 20 28 69 64 78 20 28 63 6c 2d 70 6f 73 69 74 69 6f 6e 20 rs))..........(idx.(cl-position.
3dc00 28 63 61 72 20 28 64 76 2d 69 6e 64 65 78 20 64 76 29 29 20 64 69 72 73 20 3a 74 65 73 74 20 23 (car.(dv-index.dv)).dirs.:test.#
3dc20 27 65 71 75 61 6c 29 29 0a 20 20 20 20 20 20 20 20 20 28 6e 65 77 2d 69 64 78 20 28 2b 20 69 64 'equal))..........(new-idx.(+.id
3dc40 78 20 61 72 67 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 28 3e 3d 20 6e 65 77 2d 69 64 78 20 x.arg))).....(cond.((>=.new-idx.
3dc60 6c 65 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e len)............(dirvish-find-en
3dc80 74 72 79 2d 61 20 28 6e 74 68 20 28 2d 20 6c 65 6e 20 31 29 20 64 69 72 73 29 29 0a 20 20 20 20 try-a.(nth.(-.len.1).dirs)).....
3dca0 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 69 72 76 69 73 68 3a 20 72 65 61 63 68 65 .......(message."Dirvish:.reache
3dcc0 64 20 74 68 65 20 65 6e 64 20 6f 66 20 68 69 73 74 6f 72 79 22 29 29 0a 20 20 20 20 20 20 20 20 d.the.end.of.history")).........
3dce0 20 20 28 28 3c 20 6e 65 77 2d 69 64 78 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 ..((<.new-idx.0)............(dir
3dd00 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 28 6e 74 68 20 30 20 64 69 72 73 29 29 0a vish-find-entry-a.(nth.0.dirs)).
3dd20 20 20 20 20 20 20 20 20 20 20 20 28 6d 65 73 73 61 67 65 20 22 44 69 72 76 69 73 68 3a 20 72 65 ...........(message."Dirvish:.re
3dd40 61 63 68 65 64 20 74 68 65 20 62 65 67 69 6e 6e 69 6e 67 20 6f 66 20 68 69 73 74 6f 72 79 22 29 ached.the.beginning.of.history")
3dd60 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 )...........(t.(dirvish-find-ent
3dd80 72 79 2d 61 20 28 6e 74 68 20 6e 65 77 2d 69 64 78 20 64 69 72 73 29 29 29 29 29 29 0a 0a 3b 3b ry-a.(nth.new-idx.dirs))))))..;;
3dda0 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 68 69 73 74 ;###autoload.(defun.dirvish-hist
3ddc0 6f 72 79 2d 67 6f 2d 62 61 63 6b 77 61 72 64 20 28 61 72 67 29 0a 20 20 22 4e 61 76 69 67 61 74 ory-go-backward.(arg)..."Navigat
3dde0 65 20 74 6f 20 70 72 65 76 69 6f 75 73 20 41 52 47 20 64 69 72 65 63 74 6f 72 79 20 69 6e 20 68 e.to.previous.ARG.directory.in.h
3de00 69 73 74 6f 72 79 2e 0a 41 52 47 20 64 65 66 61 75 6c 74 73 20 74 6f 20 31 2e 22 0a 20 20 28 69 istory..ARG.defaults.to.1."...(i
3de20 6e 74 65 72 61 63 74 69 76 65 20 22 5e 70 22 29 0a 20 20 28 64 69 72 76 69 73 68 2d 68 69 73 74 nteractive."^p")...(dirvish-hist
3de40 6f 72 79 2d 67 6f 2d 66 6f 72 77 61 72 64 20 28 2d 20 30 20 61 72 67 29 29 29 0a 0a 3b 3b 3b 23 ory-go-forward.(-.0.arg)))..;;;#
3de60 23 23 61 75 74 6f 6c 6f 61 64 20 28 61 75 74 6f 6c 6f 61 64 20 27 64 69 72 76 69 73 68 2d 68 69 ##autoload.(autoload.'dirvish-hi
3de80 73 74 6f 72 79 2d 6d 65 6e 75 20 22 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 22 20 6e 69 6c story-menu."dirvish-history".nil
3dea0 20 74 29 0a 28 74 72 61 6e 73 69 65 6e 74 2d 64 65 66 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 .t).(transient-define-prefix.dir
3dec0 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6d 65 6e 75 20 28 29 0a 20 20 22 48 65 6c 70 20 6d 65 6e vish-history-menu.()..."Help.men
3dee0 75 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 2a 27 20 63 6f 6d 6d 61 6e u.for.`dirvish-history-*'.comman
3df00 64 73 2e 22 0a 20 20 5b 3a 64 65 73 63 72 69 70 74 69 6f 6e 0a 20 20 20 28 6c 61 6d 62 64 61 20 ds."...[:description....(lambda.
3df20 28 29 20 28 64 69 72 76 69 73 68 2d 2d 66 6f 72 6d 61 74 2d 6d 65 6e 75 2d 68 65 61 64 69 6e 67 ().(dirvish--format-menu-heading
3df40 20 22 47 6f 20 74 6f 20 68 69 73 74 6f 72 79 20 65 6e 74 72 69 65 73 22 29 29 0a 20 20 20 28 22 ."Go.to.history.entries"))....("
3df60 66 22 20 22 46 6f 72 77 61 72 64 20 68 69 73 74 6f 72 79 22 20 20 20 20 20 20 20 20 64 69 72 76 f"."Forward.history"........dirv
3df80 69 73 68 2d 68 69 73 74 6f 72 79 2d 67 6f 2d 66 6f 72 77 61 72 64 20 3a 74 72 61 6e 73 69 65 6e ish-history-go-forward.:transien
3dfa0 74 20 74 29 0a 20 20 20 28 22 62 22 20 22 42 61 63 6b 77 61 72 64 20 68 69 73 74 6f 72 79 22 20 t.t)....("b"."Backward.history".
3dfc0 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 67 6f 2d 62 61 63 6b 77 61 72 ......dirvish-history-go-backwar
3dfe0 64 20 3a 74 72 61 6e 73 69 65 6e 74 20 74 29 0a 20 20 20 28 22 6c 22 20 22 47 6f 20 74 6f 20 6d d.:transient.t)....("l"."Go.to.m
3e000 6f 73 74 20 72 65 63 65 6e 74 20 75 73 65 64 22 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 ost.recent.used".dirvish-history
3e020 2d 6c 61 73 74 29 0a 20 20 20 28 22 61 22 20 22 41 63 63 65 73 73 20 68 69 73 74 6f 72 79 20 65 -last)....("a"."Access.history.e
3e040 6e 74 72 69 65 73 22 20 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2d 6a 75 6d 70 29 5d 29 0a ntries".dirvish-history-jump)]).
3e060 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 29 0a 3b 3b 3b 20 .(provide.'dirvish-history).;;;.
3e080 64 69 72 76 69 73 68 2d 68 69 73 74 6f 72 79 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 dirvish-history.el.ends.here....
3e0a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e0c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e0e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e1a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e1c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e1e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e200 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 70 65 dirvish-20230519.1500/dirvish-pe
3e220 65 6b 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ek.el...........................
3e240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e260 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
3e280 30 30 31 30 34 33 37 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 33 37 35 00 20 30 00 00 00 0010437.00000000000.015375..0...
3e2a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e2c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e2e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e300 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...................
3e320 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...................
3e340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e3c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e3e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3e400 3b 3b 3b 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2e 65 6c 20 2d 2d 2d 20 4d 69 6e 69 62 75 66 66 ;;;.dirvish-peek.el.---.Minibuff
3e420 65 72 20 66 69 6c 65 20 70 72 65 76 69 65 77 20 70 6f 77 65 72 65 64 20 62 79 20 44 69 72 76 69 er.file.preview.powered.by.Dirvi
3e440 73 68 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a 3b sh.-*-.lexical-binding:.t.-*-..;
3e460 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 4c ;.Copyright.(C).2021-2022.Alex.L
3e480 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f 67 u.;;.Author.:.Alex.Lu.<https://g
3e4a0 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f 6e ithub.com/alexluigit>.;;.Version
3e4c0 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f 6e :.2.0.53.;;.Keywords:.files,.con
3e4e0 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 venience.;;.Homepage:.https://gi
3e500 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 53 thub.com/alexluigit/dirvish.;;.S
3e520 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 2d PDX-License-Identifier:.GPL-3.0-
3e540 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 60 64 or-later..;;;.Commentary:..;;.`d
3e560 69 72 76 69 73 68 2d 70 65 65 6b 2d 6d 6f 64 65 27 20 67 69 76 65 73 20 79 6f 75 20 66 69 6c 65 irvish-peek-mode'.gives.you.file
3e580 20 70 72 65 76 69 65 77 20 77 68 65 6e 20 6e 61 72 72 6f 77 69 6e 67 20 63 61 6e 64 69 64 61 74 .preview.when.narrowing.candidat
3e5a0 65 73 20 75 73 69 6e 67 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a es.using.minibuffer...;;;.Code:.
3e5c0 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 76 65 72 74 69 63 6f 2d 2d 63 61 6e 64 .(declare-function.vertico--cand
3e5e0 69 64 61 74 65 20 22 76 65 72 74 69 63 6f 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 idate."vertico").(declare-functi
3e600 6f 6e 20 73 65 6c 65 63 74 72 75 6d 2d 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 20 22 73 65 6c on.selectrum--get-candidate."sel
3e620 65 63 74 72 75 6d 22 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 73 65 6c 65 63 ectrum").(declare-function.selec
3e640 74 72 75 6d 2d 2d 67 65 74 2d 66 75 6c 6c 20 22 73 65 6c 65 63 74 72 75 6d 22 29 0a 28 64 65 66 trum--get-full."selectrum").(def
3e660 76 61 72 20 73 65 6c 65 63 74 72 75 6d 2d 2d 63 75 72 72 65 6e 74 2d 63 61 6e 64 69 64 61 74 65 var.selectrum--current-candidate
3e680 2d 69 6e 64 65 78 29 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 69 76 79 2d 73 74 -index).(declare-function.ivy-st
3e6a0 61 74 65 2d 63 75 72 72 65 6e 74 20 22 69 76 79 22 29 0a 28 64 65 66 76 61 72 20 69 76 79 2d 6c ate-current."ivy").(defvar.ivy-l
3e6c0 61 73 74 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 76 69 73 68 29 0a 28 72 65 71 75 69 72 65 ast).(require.'dirvish).(require
3e6e0 20 27 66 69 6e 64 2d 66 75 6e 63 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 .'find-func)..(defcustom.dirvish
3e700 2d 70 65 65 6b 2d 63 61 6e 64 69 64 61 74 65 2d 66 65 74 63 68 65 72 20 6e 69 6c 0a 20 20 22 46 -peek-candidate-fetcher.nil..."F
3e720 75 6e 63 74 69 6f 6e 20 74 6f 20 67 65 74 20 63 75 72 72 65 6e 74 20 63 61 6e 64 69 64 61 74 65 unction.to.get.current.candidate
3e740 20 69 6e 20 6d 69 6e 69 62 75 66 66 65 72 2e 0a 49 66 20 74 68 69 73 20 76 61 6c 75 65 20 69 73 .in.minibuffer..If.this.value.is
3e760 20 6e 69 6c 2c 20 61 20 63 61 6e 64 69 64 61 74 65 20 66 65 74 63 68 65 72 20 66 75 6e 63 74 69 .nil,.a.candidate.fetcher.functi
3e780 6f 6e 20 69 73 0a 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 63 68 6f 6f 73 65 64 20 61 63 63 6f on.is.automatically.choosed.acco
3e7a0 72 64 69 6e 67 20 74 6f 20 79 6f 75 72 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 72 61 6d 65 77 6f rding.to.your.completion.framewo
3e7c0 72 6b 0a 62 65 69 6e 67 20 75 73 65 64 20 61 74 20 72 75 6e 74 69 6d 65 2e 22 0a 20 20 3a 67 72 rk.being.used.at.runtime."...:gr
3e7e0 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 66 75 6e 63 oup.'dirvish.:type.'(choice.func
3e800 74 69 6f 6e 20 6e 69 6c 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 70 tion.nil))..(defcustom.dirvish-p
3e820 65 65 6b 2d 63 61 74 65 67 6f 72 69 65 73 20 27 28 66 69 6c 65 20 70 72 6f 6a 65 63 74 2d 66 69 eek-categories.'(file.project-fi
3e840 6c 65 20 6c 69 62 72 61 72 79 29 0a 20 20 22 4d 69 6e 69 62 75 66 66 65 72 20 6d 65 74 61 64 61 le.library)..."Minibuffer.metada
3e860 74 61 20 63 61 74 65 67 6f 72 69 65 73 20 74 6f 20 73 68 6f 77 20 66 69 6c 65 20 70 72 65 76 69 ta.categories.to.show.file.previ
3e880 65 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 6c 69 ew."...:group.'dirvish.:type.'li
3e8a0 73 74 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 61 6e 64 2d st)..(defvar.dirvish-peek--cand-
3e8c0 66 65 74 63 68 65 72 20 6e 69 6c 29 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 70 65 65 6b fetcher.nil).(defun.dirvish-peek
3e8e0 2d 2d 70 72 65 70 61 72 65 2d 63 61 6e 64 2d 66 65 74 63 68 65 72 20 28 29 0a 20 20 22 53 65 74 --prepare-cand-fetcher.()..."Set
3e900 20 63 61 6e 64 69 64 61 74 65 20 66 65 74 63 68 65 72 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 .candidate.fetcher.according.to.
3e920 63 75 72 72 65 6e 74 20 63 6f 6d 70 6c 65 74 69 6f 6e 20 66 72 61 6d 65 77 6f 72 6b 2e 22 0a 20 current.completion.framework."..
3e940 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 61 6e 64 2d 66 65 74 63 68 65 .(setq.dirvish-peek--cand-fetche
3e960 72 0a 20 20 20 20 20 20 20 20 28 63 6f 6e 64 20 28 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 63 61 r.........(cond.(dirvish-peek-ca
3e980 6e 64 69 64 61 74 65 2d 66 65 74 63 68 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 ndidate-fetcher................d
3e9a0 69 72 76 69 73 68 2d 70 65 65 6b 2d 63 61 6e 64 69 64 61 74 65 2d 66 65 74 63 68 65 72 29 0a 20 irvish-peek-candidate-fetcher)..
3e9c0 20 20 20 20 20 20 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 .............((bound-and-true-p.
3e9e0 76 65 72 74 69 63 6f 2d 6d 6f 64 65 29 20 23 27 76 65 72 74 69 63 6f 2d 2d 63 61 6e 64 69 64 61 vertico-mode).#'vertico--candida
3ea00 74 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 te)...............((bound-and-tr
3ea20 75 65 2d 70 20 73 65 6c 65 63 74 72 75 6d 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 ue-p.selectrum-mode)............
3ea40 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ....(lambda.()..................
3ea60 28 73 65 6c 65 63 74 72 75 6d 2d 2d 67 65 74 2d 66 75 6c 6c 0a 20 20 20 20 20 20 20 20 20 20 20 (selectrum--get-full............
3ea80 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 72 75 6d 2d 2d 67 65 74 2d 63 61 6e 64 69 64 61 74 65 .......(selectrum--get-candidate
3eaa0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 65 6c 65 63 74 72 75 6d 2d 2d 63 ....................selectrum--c
3eac0 75 72 72 65 6e 74 2d 63 61 6e 64 69 64 61 74 65 2d 69 6e 64 65 78 29 29 29 29 0a 20 20 20 20 20 urrent-candidate-index))))......
3eae0 20 20 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 69 76 79 2d .........((bound-and-true-p.ivy-
3eb00 6d 6f 64 65 29 20 28 6c 61 6d 62 64 61 20 28 29 20 28 69 76 79 2d 73 74 61 74 65 2d 63 75 72 72 mode).(lambda.().(ivy-state-curr
3eb20 65 6e 74 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 28 28 ent.ivy-last)))...............((
3eb40 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 69 63 6f 6d 70 6c 65 74 65 2d 6d 6f 64 65 29 bound-and-true-p.icomplete-mode)
3eb60 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 20 28 63 61 72 20 ................(lambda.().(car.
3eb80 63 6f 6d 70 6c 65 74 69 6f 6e 2d 61 6c 6c 2d 73 6f 72 74 65 64 2d 63 6f 6d 70 6c 65 74 69 6f 6e completion-all-sorted-completion
3eba0 73 29 29 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 s))))))..(defvar.dirvish-peek--c
3ebc0 75 72 72 2d 63 61 74 65 67 6f 72 79 20 6e 69 6c 29 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 urr-category.nil).(defun.dirvish
3ebe0 2d 70 65 65 6b 2d 73 65 74 75 70 2d 68 20 28 29 0a 20 20 22 43 72 65 61 74 65 20 64 69 72 76 69 -peek-setup-h.()..."Create.dirvi
3ec00 73 68 20 6d 69 6e 69 62 75 66 66 65 72 20 70 72 65 76 69 65 77 20 77 69 6e 64 6f 77 2e 0a 54 68 sh.minibuffer.preview.window..Th
3ec20 65 20 77 69 6e 64 6f 77 20 69 73 20 63 72 65 61 74 65 64 20 6f 6e 6c 79 20 77 68 65 6e 20 6d 65 e.window.is.created.only.when.me
3ec40 74 61 64 61 74 61 20 69 6e 20 63 75 72 72 65 6e 74 20 6d 69 6e 69 62 75 66 66 65 72 20 69 73 0a tadata.in.current.minibuffer.is.
3ec60 6f 6e 65 20 6f 66 20 63 61 74 65 67 6f 72 69 65 73 20 69 6e 20 60 64 69 72 76 69 73 68 2d 70 65 one.of.categories.in.`dirvish-pe
3ec80 65 6b 2d 63 61 74 65 67 6f 72 69 65 73 27 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 6d 65 74 61 20 ek-categories'."...(let*.((meta.
3eca0 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 (ignore-errors..................
3ecc0 28 63 6f 6d 70 6c 65 74 69 6f 6e 2d 6d 65 74 61 64 61 74 61 0a 20 20 20 20 20 20 20 20 20 20 20 (completion-metadata............
3ece0 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 6f 70 .......(buffer-substring-no-prop
3ed00 65 72 74 69 65 73 20 28 66 69 65 6c 64 2d 62 65 67 69 6e 6e 69 6e 67 29 20 28 70 6f 69 6e 74 29 erties.(field-beginning).(point)
3ed20 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 69 6e 69 62 75 66 66 65 72 2d 63 )...................minibuffer-c
3ed40 6f 6d 70 6c 65 74 69 6f 6e 2d 74 61 62 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ompletion-table.................
3ed60 20 20 6d 69 6e 69 62 75 66 66 65 72 2d 63 6f 6d 70 6c 65 74 69 6f 6e 2d 70 72 65 64 69 63 61 74 ..minibuffer-completion-predicat
3ed80 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 63 61 74 65 67 6f 72 79 20 28 63 6f 6d 70 6c 65 74 e)))..........(category.(complet
3eda0 69 6f 6e 2d 6d 65 74 61 64 61 74 61 2d 67 65 74 20 6d 65 74 61 20 27 63 61 74 65 67 6f 72 79 29 ion-metadata-get.meta.'category)
3edc0 29 0a 20 20 20 20 20 20 20 20 20 28 70 2d 63 61 74 65 67 6f 72 79 20 28 61 6e 64 20 28 6d 65 6d )..........(p-category.(and.(mem
3ede0 71 20 63 61 74 65 67 6f 72 79 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 63 61 74 65 67 6f 72 69 q.category.dirvish-peek-categori
3ee00 65 73 29 20 63 61 74 65 67 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 6e 65 77 2d 64 76 29 0a es).category))..........new-dv).
3ee20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 75 72 72 2d 63 61 74 ....(setq.dirvish-peek--curr-cat
3ee40 65 67 6f 72 79 20 70 2d 63 61 74 65 67 6f 72 79 29 0a 20 20 20 20 28 77 68 65 6e 20 70 2d 63 61 egory.p-category).....(when.p-ca
3ee60 74 65 67 6f 72 79 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 70 72 65 70 tegory.......(dirvish-peek--prep
3ee80 61 72 65 2d 63 61 6e 64 2d 66 65 74 63 68 65 72 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f are-cand-fetcher).......(add-hoo
3eea0 6b 20 27 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 70 k.'post-command-hook.#'dirvish-p
3eec0 65 65 6b 2d 75 70 64 61 74 65 2d 68 20 39 30 20 74 29 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f eek-update-h.90.t).......(add-ho
3eee0 6f 6b 20 27 6d 69 6e 69 62 75 66 66 65 72 2d 65 78 69 74 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 ok.'minibuffer-exit-hook.#'dirvi
3ef00 73 68 2d 70 65 65 6b 2d 65 78 69 74 2d 68 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 28 75 6e 6c sh-peek-exit-h.nil.t).......(unl
3ef20 65 73 73 20 28 61 6e 64 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 28 64 76 2d 70 72 65 76 69 ess.(and.dirvish--this.(dv-previ
3ef40 65 77 2d 77 69 6e 64 6f 77 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 29 29 0a 20 20 20 20 20 20 ew-window.dirvish--this)).......
3ef60 20 20 28 73 65 74 71 20 6e 65 77 2d 64 76 20 28 64 69 72 76 69 73 68 2d 6e 65 77 20 3a 74 79 70 ..(setq.new-dv.(dirvish-new.:typ
3ef80 65 20 27 28 70 65 65 6b 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 66 20 28 64 76 2d 70 72 e.'(peek))).........(setf.(dv-pr
3efa0 65 76 69 65 77 2d 77 69 6e 64 6f 77 20 6e 65 77 2d 64 76 29 0a 20 20 20 20 20 20 20 20 20 20 20 eview-window.new-dv)............
3efc0 20 20 20 28 6f 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 ...(or.(minibuffer-selected-wind
3efe0 6f 77 29 20 28 6e 65 78 74 2d 77 69 6e 64 6f 77 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 ow).(next-window)))))))..(defun.
3f000 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 75 70 64 61 74 65 2d 68 20 28 29 0a 20 20 22 48 6f 6f 6b dirvish-peek-update-h.()..."Hook
3f020 20 66 6f 72 20 60 70 6f 73 74 2d 63 6f 6d 6d 61 6e 64 2d 68 6f 6f 6b 27 20 74 6f 20 75 70 64 61 .for.`post-command-hook'.to.upda
3f040 74 65 20 70 65 65 6b 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 te.peek.window."...(when-let*.((
3f060 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 75 72 72 2d 63 61 74 65 67 6f 72 79 29 0a 20 20 20 dirvish-peek--curr-category)....
3f080 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6e 64 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 76 69 73 ...........(cand.(funcall.dirvis
3f0a0 68 2d 70 65 65 6b 2d 2d 63 61 6e 64 2d 66 65 74 63 68 65 72 29 29 29 0a 20 20 20 20 28 70 63 61 h-peek--cand-fetcher))).....(pca
3f0c0 73 65 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 2d 63 75 72 72 2d 63 61 74 65 67 6f 72 79 0a 20 se.dirvish-peek--curr-category..
3f0e0 20 20 20 20 20 28 27 66 69 6c 65 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 65 .....('file........(setq.cand.(e
3f100 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 63 61 6e 64 29 29 29 0a 20 20 20 20 20 20 28 27 xpand-file-name.cand))).......('
3f120 70 72 6f 6a 65 63 74 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 28 73 65 74 71 20 63 61 6e 64 20 28 project-file........(setq.cand.(
3f140 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 20 20 expand-file-name................
3f160 20 20 20 20 63 61 6e 64 20 28 6f 72 20 28 64 69 72 76 69 73 68 2d 2d 67 65 74 2d 70 72 6f 6a 65 ....cand.(or.(dirvish--get-proje
3f180 63 74 2d 72 6f 6f 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 ct-root)........................
3f1a0 20 20 20 20 20 28 63 61 72 20 28 6d 69 6e 69 62 75 66 66 65 72 2d 68 69 73 74 6f 72 79 2d 76 61 .....(car.(minibuffer-history-va
3f1c0 6c 75 65 29 29 29 29 29 29 0a 20 20 20 20 20 20 28 27 6c 69 62 72 61 72 79 0a 20 20 20 20 20 20 lue)))))).......('library.......
3f1e0 20 28 73 65 74 71 20 63 61 6e 64 20 28 66 69 6c 65 2d 74 72 75 65 6e 61 6d 65 0a 20 20 20 20 20 .(setq.cand.(file-truename......
3f200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 69 67 6e 6f 72 65 2d 65 72 72 6f 72 73 ..............(or.(ignore-errors
3f220 20 28 66 69 6e 64 2d 6c 69 62 72 61 72 79 2d 6e 61 6d 65 20 63 61 6e 64 29 29 20 22 22 29 29 29 .(find-library-name.cand))."")))
3f240 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 63 61 )).....(unless.(file-remote-p.ca
3f260 6e 64 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 64 65 62 6f 75 6e 63 65 20 6e 69 6c 20 nd).......(dirvish-debounce.nil.
3f280 28 64 69 72 76 69 73 68 2d 2d 70 72 65 76 69 65 77 2d 75 70 64 61 74 65 20 64 69 72 76 69 73 68 (dirvish--preview-update.dirvish
3f2a0 2d 2d 74 68 69 73 20 63 61 6e 64 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 --this.cand)))))..(defun.dirvish
3f2c0 2d 70 65 65 6b 2d 65 78 69 74 2d 68 20 28 29 0a 20 20 22 48 6f 6f 6b 20 66 6f 72 20 60 6d 69 6e -peek-exit-h.()..."Hook.for.`min
3f2e0 69 62 75 66 66 65 72 2d 65 78 69 74 2d 68 6f 6f 6b 27 20 74 6f 20 64 65 73 74 72 6f 79 20 70 65 ibuffer-exit-hook'.to.destroy.pe
3f300 65 6b 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 28 64 6f 6c 69 73 74 20 28 64 76 20 28 68 61 73 68 ek.session."...(dolist.(dv.(hash
3f320 2d 74 61 62 6c 65 2d 76 61 6c 75 65 73 20 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 -table-values.dirvish--session-h
3f340 61 73 68 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 65 71 20 28 63 61 72 20 28 64 76 2d 74 79 70 ash)).....(when.(eq.(car.(dv-typ
3f360 65 20 64 76 29 29 20 27 70 65 65 6b 29 0a 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6b 69 6c e.dv)).'peek).......(dirvish-kil
3f380 6c 20 64 76 29 0a 20 20 20 20 20 20 28 72 65 6d 68 61 73 68 20 28 64 76 2d 6e 61 6d 65 20 64 76 l.dv).......(remhash.(dv-name.dv
3f3a0 29 20 64 69 72 76 69 73 68 2d 2d 73 65 73 73 69 6f 6e 2d 68 61 73 68 29 29 29 29 0a 0a 3b 3b 3b ).dirvish--session-hash))))..;;;
3f3c0 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 64 65 20 64 ###autoload.(define-minor-mode.d
3f3e0 69 72 76 69 73 68 2d 70 65 65 6b 2d 6d 6f 64 65 0a 20 20 22 53 68 6f 77 20 66 69 6c 65 20 70 72 irvish-peek-mode..."Show.file.pr
3f400 65 76 69 65 77 20 77 68 65 6e 20 6e 61 72 72 6f 77 69 6e 67 20 63 61 6e 64 69 64 61 74 65 73 20 eview.when.narrowing.candidates.
3f420 75 73 69 6e 67 20 6d 69 6e 69 62 75 66 66 65 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 using.minibuffer."...:group.'dir
3f440 76 69 73 68 20 3a 67 6c 6f 62 61 6c 20 74 0a 20 20 28 69 66 20 64 69 72 76 69 73 68 2d 70 65 65 vish.:global.t...(if.dirvish-pee
3f460 6b 2d 6d 6f 64 65 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6d 69 6e 69 62 75 66 66 k-mode.......(add-hook.'minibuff
3f480 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 73 65 74 er-setup-hook.#'dirvish-peek-set
3f4a0 75 70 2d 68 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6d 69 6e 69 62 75 66 66 up-h).....(remove-hook.'minibuff
3f4c0 65 72 2d 73 65 74 75 70 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 70 65 65 6b 2d 73 65 74 er-setup-hook.#'dirvish-peek-set
3f4e0 75 70 2d 68 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 70 65 65 6b 29 up-h)))..(provide.'dirvish-peek)
3f500 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 70 65 65 6b 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 .;;;.dirvish-peek.el.ends.here..
3f520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f5a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f5c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f5e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f600 64 69 72 76 69 73 68 2d 32 30 32 33 30 35 31 39 2e 31 35 30 30 2f 64 69 72 76 69 73 68 2d 73 69 dirvish-20230519.1500/dirvish-si
3f620 64 65 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 de.el...........................
3f640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f660 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
3f680 30 30 31 37 31 30 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 35 33 37 31 00 20 30 00 00 00 0017102.00000000000.015371..0...
3f6a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f6c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f6e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f700 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...................
3f720 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...................
3f740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f7a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f7c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f7e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
3f800 3b 3b 3b 20 64 69 72 76 69 73 68 2d 73 69 64 65 2e 65 6c 20 2d 2d 2d 20 54 6f 67 67 6c 65 20 44 ;;;.dirvish-side.el.---.Toggle.D
3f820 69 72 76 69 73 68 20 69 6e 20 73 69 64 65 20 77 69 6e 64 6f 77 20 6c 69 6b 65 20 74 72 65 65 6d irvish.in.side.window.like.treem
3f840 61 63 73 20 2d 2a 2d 20 6c 65 78 69 63 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 74 20 2d 2a 2d 0a 0a acs.-*-.lexical-binding:.t.-*-..
3f860 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 32 30 32 31 2d 32 30 32 32 20 41 6c 65 78 20 ;;.Copyright.(C).2021-2022.Alex.
3f880 4c 75 0a 3b 3b 20 41 75 74 68 6f 72 20 3a 20 41 6c 65 78 20 4c 75 20 3c 68 74 74 70 73 3a 2f 2f Lu.;;.Author.:.Alex.Lu.<https://
3f8a0 67 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 3e 0a 3b 3b 20 56 65 72 73 69 6f github.com/alexluigit>.;;.Versio
3f8c0 6e 3a 20 32 2e 30 2e 35 33 0a 3b 3b 20 4b 65 79 77 6f 72 64 73 3a 20 66 69 6c 65 73 2c 20 63 6f n:.2.0.53.;;.Keywords:.files,.co
3f8e0 6e 76 65 6e 69 65 6e 63 65 0a 3b 3b 20 48 6f 6d 65 70 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 nvenience.;;.Homepage:.https://g
3f900 69 74 68 75 62 2e 63 6f 6d 2f 61 6c 65 78 6c 75 69 67 69 74 2f 64 69 72 76 69 73 68 0a 3b 3b 20 ithub.com/alexluigit/dirvish.;;.
3f920 53 50 44 58 2d 4c 69 63 65 6e 73 65 2d 49 64 65 6e 74 69 66 69 65 72 3a 20 47 50 4c 2d 33 2e 30 SPDX-License-Identifier:.GPL-3.0
3f940 2d 6f 72 2d 6c 61 74 65 72 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 6e 74 61 72 79 3a 0a 0a 3b 3b 20 54 -or-later..;;;.Commentary:..;;.T
3f960 6f 67 67 6c 65 20 44 69 72 76 69 73 68 20 69 6e 20 73 69 64 65 20 77 69 6e 64 6f 77 20 6c 69 6b oggle.Dirvish.in.side.window.lik
3f980 65 20 74 72 65 65 6d 61 63 73 2e 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 e.treemacs...;;;.Code:..(require
3f9a0 20 27 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 .'dirvish-subtree)..(defcustom.d
3f9c0 69 72 76 69 73 68 2d 73 69 64 65 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 0a 20 20 27 28 28 73 irvish-side-display-alist...'((s
3f9e0 69 64 65 20 2e 20 6c 65 66 74 29 20 28 73 6c 6f 74 20 2e 20 2d 31 29 29 0a 20 20 22 44 69 73 70 ide...left).(slot...-1))..."Disp
3fa00 6c 61 79 20 61 6c 69 73 74 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 73 69 64 65 27 20 77 69 6e lay.alist.for.`dirvish-side'.win
3fa20 64 6f 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 61 dow."...:group.'dirvish.:type.'a
3fa40 6c 69 73 74 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 77 list)..(defcustom.dirvish-side-w
3fa60 69 64 74 68 20 33 35 0a 20 20 22 57 69 64 74 68 20 6f 66 20 74 68 65 20 60 64 69 72 76 69 73 68 idth.35..."Width.of.the.`dirvish
3fa80 2d 73 69 64 65 27 20 62 75 66 66 65 72 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 -side'.buffer."...:type.'integer
3faa0 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 .:group.'dirvish)..(defcustom.di
3fac0 72 76 69 73 68 2d 73 69 64 65 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 73 0a 20 20 27 rvish-side-window-parameters...'
3fae0 28 28 6e 6f 2d 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 20 2e 20 74 29 20 28 ((no-delete-other-windows...t).(
3fb00 6e 6f 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 20 2e 20 74 29 29 0a 20 20 22 57 69 6e 64 6f 77 20 no-other-window...t))..."Window.
3fb20 70 61 72 61 6d 65 74 65 72 73 20 66 6f 72 20 60 64 69 72 76 69 73 68 2d 73 69 64 65 27 20 77 69 parameters.for.`dirvish-side'.wi
3fb40 6e 64 6f 77 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 ndow."...:group.'dirvish.:type.'
3fb60 61 6c 69 73 74 29 0a 0a 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c alist)..(define-obsolete-variabl
3fb80 65 2d 61 6c 69 61 73 20 27 64 69 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d e-alias.'dirvish-side-open-file-
3fba0 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 20 27 64 69 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 window-function.'dirvish-side-op
3fbc0 65 6e 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 20 22 53 65 70 20 32 33 2c 20 32 30 32 32 22 29 0a 28 en-file-action."Sep.23,.2022").(
3fbe0 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 defcustom.dirvish-side-open-file
3fc00 2d 61 63 74 69 6f 6e 20 27 6d 72 75 0a 20 20 22 54 68 65 20 61 63 74 69 6f 6e 20 6f 66 20 68 6f -action.'mru..."The.action.of.ho
3fc20 77 20 74 6f 20 6f 70 65 6e 20 61 20 66 69 6c 65 20 69 6e 20 73 69 64 65 20 77 69 6e 64 6f 77 2e w.to.open.a.file.in.side.window.
3fc40 0a 54 68 65 20 76 61 6c 75 65 20 63 61 6e 20 62 65 20 6f 6e 65 20 6f 66 3a 0a 0a 2d 20 5c 5c 3d .The.value.can.be.one.of:..-.\\=
3fc60 27 6d 72 75 20 20 20 20 2d 20 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 69 6e 20 74 68 65 20 6d 'mru....-.open.the.file.in.the.m
3fc80 6f 73 74 2d 72 65 63 65 6e 74 2d 75 73 65 64 20 77 69 6e 64 6f 77 2e 0a 2d 20 5c 5c 3d 27 73 70 ost-recent-used.window..-.\\='sp
3fca0 6c 69 74 20 20 2d 20 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 62 65 6c 6f 77 20 74 68 65 20 6d lit..-.open.the.file.below.the.m
3fcc0 72 75 20 77 69 6e 64 6f 77 2e 0a 2d 20 5c 5c 3d 27 76 73 70 6c 69 74 20 2d 20 6f 70 65 6e 20 74 ru.window..-.\\='vsplit.-.open.t
3fce0 68 65 20 66 69 6c 65 20 69 6e 20 61 20 76 65 72 74 69 63 61 6c 20 73 70 6c 69 74 20 77 69 6e 64 he.file.in.a.vertical.split.wind
3fd00 6f 77 2e 0a 2d 20 61 20 66 75 6e 63 74 69 6f 6e 20 74 68 61 74 20 72 65 74 75 72 6e 73 20 61 20 ow..-.a.function.that.returns.a.
3fd20 74 61 72 67 65 74 20 77 69 6e 64 6f 77 20 66 6f 72 20 74 68 65 20 66 69 6c 65 20 62 75 66 66 65 target.window.for.the.file.buffe
3fd40 72 2c 0a 20 20 73 75 63 68 20 61 73 20 60 61 63 65 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 27 r,...such.as.`ace-select-window'
3fd60 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 0a 20 20 3a 74 79 70 65 20 27 28 63 ."...:group.'dirvish...:type.'(c
3fd80 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 hoice.(const.:tag."open.the.file
3fda0 20 69 6e 20 74 68 65 20 6d 6f 73 74 2d 72 65 63 65 6e 74 2d 75 73 65 64 20 77 69 6e 64 6f 77 22 .in.the.most-recent-used.window"
3fdc0 20 6d 72 75 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 3a 74 .mru)..................(const.:t
3fde0 61 67 20 22 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 62 65 6c 6f 77 20 74 68 65 20 6d 72 75 20 ag."open.the.file.below.the.mru.
3fe00 77 69 6e 64 6f 77 22 20 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 window".split)..................
3fe20 28 63 6f 6e 73 74 20 3a 74 61 67 20 22 6f 70 65 6e 20 74 68 65 20 66 69 6c 65 20 69 6e 20 61 20 (const.:tag."open.the.file.in.a.
3fe40 76 65 72 74 69 63 61 6c 20 73 70 6c 69 74 20 77 69 6e 64 6f 77 22 20 76 73 70 6c 69 74 29 0a 20 vertical.split.window".vsplit)..
3fe60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 20 3a 74 61 67 20 22 ................(function.:tag."
3fe80 63 75 73 74 6f 6d 20 66 75 6e 63 74 69 6f 6e 22 29 29 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 custom.function")))..(defcustom.
3fea0 64 69 72 76 69 73 68 2d 73 69 64 65 2d 61 75 74 6f 2d 63 6c 6f 73 65 20 6e 69 6c 0a 20 20 22 57 dirvish-side-auto-close.nil..."W
3fec0 68 65 74 68 65 72 20 74 6f 20 61 75 74 6f 20 63 6c 6f 73 65 20 74 68 65 20 73 69 64 65 20 73 65 hether.to.auto.close.the.side.se
3fee0 73 73 69 6f 6e 20 61 66 74 65 72 20 6f 70 65 6e 69 6e 67 20 61 20 66 69 6c 65 2e 22 0a 20 20 3a ssion.after.opening.a.file."...:
3ff00 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a group.'dirvish.:type.'boolean)..
3ff20 28 64 65 66 69 6e 65 2d 6f 62 73 6f 6c 65 74 65 2d 76 61 72 69 61 62 6c 65 2d 61 6c 69 61 73 20 (define-obsolete-variable-alias.
3ff40 27 64 69 72 76 69 73 68 2d 73 69 64 65 2d 66 6f 6c 6c 6f 77 2d 62 75 66 66 65 72 2d 66 69 6c 65 'dirvish-side-follow-buffer-file
3ff60 20 27 64 69 72 76 69 73 68 2d 73 69 64 65 2d 61 75 74 6f 2d 65 78 70 61 6e 64 20 22 53 65 70 20 .'dirvish-side-auto-expand."Sep.
3ff80 31 35 2c 20 32 30 32 32 22 29 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 76 69 73 68 2d 73 69 15,.2022").(defcustom.dirvish-si
3ffa0 64 65 2d 61 75 74 6f 2d 65 78 70 61 6e 64 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 61 de-auto-expand.t..."Whether.to.a
3ffc0 75 74 6f 20 65 78 70 61 6e 64 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 6f 66 uto.expand.parent.directories.of
3ffe0 20 63 75 72 72 65 6e 74 20 66 69 6c 65 2e 0a 49 66 20 6e 6f 6e 2d 6e 69 6c 2c 20 65 78 70 61 6e .current.file..If.non-nil,.expan
40000 64 20 61 6c 6c 20 74 68 65 20 70 61 72 65 6e 74 20 64 69 72 65 63 74 6f 72 69 65 73 20 6f 66 20 d.all.the.parent.directories.of.
40020 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 27 73 0a 66 69 6c 65 6e 61 6d 65 20 75 6e 74 69 6c 20 current.buffer's.filename.until.
40040 74 68 65 20 70 72 6f 6a 65 63 74 20 72 6f 6f 74 20 77 68 65 6e 20 6f 70 65 6e 69 6e 67 20 61 20 the.project.root.when.opening.a.
40060 73 69 64 65 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 76 69 73 68 side.session."...:group.'dirvish
40080 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 29 0a 0a 28 64 65 66 63 6f 6e 73 74 20 64 69 72 76 .:type.'boolean)..(defconst.dirv
400a0 69 73 68 2d 73 69 64 65 2d 68 65 61 64 65 72 20 28 64 69 72 76 69 73 68 2d 2d 6d 6f 64 65 2d 6c ish-side-header.(dirvish--mode-l
400c0 69 6e 65 2d 66 6d 74 2d 73 65 74 74 65 72 20 27 28 70 72 6f 6a 65 63 74 29 20 6e 69 6c 20 74 29 ine-fmt-setter.'(project).nil.t)
400e0 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 66 69 6c 65 2d 6f 70 65 6e )..(defun.dirvish-side-file-open
40100 2d 66 6e 20 28 29 0a 20 20 22 43 61 6c 6c 65 64 20 62 65 66 6f 72 65 20 6f 70 65 6e 69 6e 67 20 -fn.()..."Called.before.opening.
40120 61 20 66 69 6c 65 20 69 6e 20 73 69 64 65 20 73 65 73 73 69 6f 6e 73 2e 22 0a 20 20 28 6c 65 74 a.file.in.side.sessions."...(let
40140 2a 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 20 28 6c 61 79 6f 75 74 20 28 *.((dv.(dirvish-curr)).(layout.(
40160 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 6d car.(dv-layout.dv)))..........(m
40180 72 75 20 28 67 65 74 2d 6d 72 75 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 6e 69 6c 20 74 29 29 29 0a ru.(get-mru-window.nil.nil.t))).
401a0 20 20 20 20 28 69 66 20 6c 61 79 6f 75 74 20 28 64 69 72 76 69 73 68 2d 6b 69 6c 6c 20 64 76 29 ....(if.layout.(dirvish-kill.dv)
401c0 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 61 75 74 6f 2d 63 .......(when.dirvish-side-auto-c
401e0 6c 6f 73 65 0a 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 6b 69 6c 6c 20 64 76 29 0a 20 lose.........(dirvish-kill.dv)..
40200 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 76 69 73 68 2d 72 65 75 73 65 2d 73 65 73 73 69 .......(when.dirvish-reuse-sessi
40220 6f 6e 20 28 71 75 69 74 2d 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 20 20 28 73 65 6c 65 63 74 on.(quit-window))).......(select
40240 2d 77 69 6e 64 6f 77 20 28 63 6f 6e 64 20 28 28 66 75 6e 63 74 69 6f 6e 70 20 64 69 72 76 69 73 -window.(cond.((functionp.dirvis
40260 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 h-side-open-file-action)........
40280 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 64 69 .....................(funcall.di
402a0 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 29 29 0a 20 20 rvish-side-open-file-action))...
402c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 64 69 .........................((eq.di
402e0 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 20 27 6d 72 75 rvish-side-open-file-action.'mru
40300 29 20 6d 72 75 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 ).mru)..........................
40320 20 20 28 28 65 71 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d 61 63 ..((eq.dirvish-side-open-file-ac
40340 74 69 6f 6e 20 27 73 70 6c 69 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 tion.'split)....................
40360 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d .........(with-selected-window.m
40380 72 75 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f 77 2d 62 65 6c 6f 77 29 29 29 0a 20 20 20 20 20 20 ru.(split-window-below))).......
403a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 65 71 20 64 69 72 76 69 73 .....................((eq.dirvis
403c0 68 2d 73 69 64 65 2d 6f 70 65 6e 2d 66 69 6c 65 2d 61 63 74 69 6f 6e 20 27 76 73 70 6c 69 74 29 h-side-open-file-action.'vsplit)
403e0 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 77 69 .............................(wi
40400 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 6d 72 75 20 28 73 70 6c 69 74 2d 77 69 th-selected-window.mru.(split-wi
40420 6e 64 6f 77 2d 72 69 67 68 74 29 29 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 ndow-right))))))))..(defun.dirvi
40440 73 68 2d 73 69 64 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 2d 66 6e 20 28 29 0a 20 20 22 43 72 65 sh-side-root-window-fn.()..."Cre
40460 61 74 65 20 72 6f 6f 74 20 77 69 6e 64 6f 77 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 64 69 ate.root.window.according.to.`di
40480 72 76 69 73 68 2d 73 69 64 65 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 27 2e 22 0a 20 20 28 6c rvish-side-display-alist'."...(l
404a0 65 74 20 28 28 77 69 6e 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 69 6e 2d 73 69 64 65 et.((win.(display-buffer-in-side
404c0 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d -window...............(dirvish--
404e0 75 74 69 6c 2d 62 75 66 66 65 72 20 22 74 65 6d 70 22 29 20 64 69 72 76 69 73 68 2d 73 69 64 65 util-buffer."temp").dirvish-side
40500 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 29 29 29 0a 20 20 20 20 28 63 6c 2d 6c 6f 6f 70 20 66 -display-alist))).....(cl-loop.f
40520 6f 72 20 28 6b 65 79 20 2e 20 76 61 6c 75 65 29 20 69 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 or.(key...value).in.dirvish-side
40540 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 -window-parameters..............
40560 64 6f 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 20 77 69 6e 20 6b 65 79 do.(set-window-parameter.win.key
40580 20 76 61 6c 75 65 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 .value)).....(with-selected-wind
405a0 6f 77 20 77 69 6e 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 20 28 6d 61 78 20 64 69 72 76 69 ow.win.......(let.((w.(max.dirvi
405c0 73 68 2d 73 69 64 65 2d 77 69 64 74 68 20 77 69 6e 64 6f 77 2d 6d 69 6e 2d 77 69 64 74 68 29 29 sh-side-width.window-min-width))
405e0 20 77 69 6e 64 6f 77 2d 73 69 7a 65 2d 66 69 78 65 64 29 0a 20 20 20 20 20 20 20 20 28 63 6f 6e .window-size-fixed).........(con
40600 64 20 28 28 3e 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 77 29 0a 20 20 20 20 20 20 20 20 d.((>.(window-width).w).........
40620 20 20 20 20 20 20 20 28 73 68 72 69 6e 6b 2d 77 69 6e 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c .......(shrink-window-horizontal
40640 6c 79 20 20 28 2d 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 77 29 29 29 0a 20 20 20 20 20 ly..(-.(window-width).w)))......
40660 20 20 20 20 20 20 20 20 20 28 28 3c 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 77 29 0a 20 .........((<.(window-width).w)..
40680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 6e 6c 61 72 67 65 2d 77 69 6e 64 6f 77 2d 68 6f ..............(enlarge-window-ho
406a0 72 69 7a 6f 6e 74 61 6c 6c 79 20 28 2d 20 77 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 29 29 rizontally.(-.w.(window-width)))
406c0 29 29 29 29 0a 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 29 29 29 0a 0a )))).....(select-window.win)))..
406e0 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 73 65 73 73 69 6f 6e 2d 76 69 73 (defun.dirvish-side--session-vis
40700 69 62 6c 65 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 72 6f 6f 74 20 77 69 6e ible-p.()..."Return.the.root.win
40720 64 6f 77 20 6f 66 20 76 69 73 69 62 6c 65 20 73 69 64 65 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 dow.of.visible.side.session."...
40740 28 63 6c 2d 6c 6f 6f 70 0a 20 20 20 66 6f 72 20 77 20 69 6e 20 28 77 69 6e 64 6f 77 2d 6c 69 73 (cl-loop....for.w.in.(window-lis
40760 74 29 0a 20 20 20 66 6f 72 20 62 20 3d 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 65 72 20 77 29 0a t)....for.b.=.(window-buffer.w).
40780 20 20 20 66 6f 72 20 64 76 20 3d 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 ...for.dv.=.(with-current-buffer
407a0 20 62 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 0a 20 20 20 74 68 65 72 65 69 73 20 28 61 .b.(dirvish-curr))....thereis.(a
407c0 6e 64 20 64 76 20 28 65 71 20 27 73 69 64 65 20 28 63 61 72 20 28 64 76 2d 74 79 70 65 20 64 76 nd.dv.(eq.'side.(car.(dv-type.dv
407e0 29 29 29 20 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 61 ))).w)))..(defun.dirvish-side--a
40800 75 74 6f 2d 6a 75 6d 70 20 28 29 0a 20 20 22 53 65 6c 65 63 74 20 6c 61 74 65 73 74 20 62 75 66 uto-jump.()..."Select.latest.buf
40820 66 65 72 20 66 69 6c 65 20 69 6e 20 74 68 65 20 76 69 73 69 62 6c 65 20 60 64 69 72 76 69 73 68 fer.file.in.the.visible.`dirvish
40840 2d 73 69 64 65 27 20 73 65 73 73 69 6f 6e 2e 22 0a 20 20 28 72 75 6e 2d 77 69 74 68 2d 74 69 6d -side'.session."...(run-with-tim
40860 65 72 0a 20 20 20 30 2e 35 20 6e 69 6c 0a 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 er....0.5.nil....(lambda.().....
40880 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 28 6e 6f 74 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 .(when-let*.(((not.dirvish--this
408a0 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 20 28 6f 72 20 28 64 69 ))..................(dir.(or.(di
408c0 72 76 69 73 68 2d 2d 67 65 74 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 20 64 65 66 61 75 6c 74 rvish--get-project-root).default
408e0 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 -directory))..................(w
40900 69 6e 20 28 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 73 65 73 73 69 6f 6e 2d 76 69 73 69 62 6c in.(dirvish-side--session-visibl
40920 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 76 20 28 77 69 74 68 e-p))..................(dv.(with
40940 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 20 28 64 69 72 76 69 73 68 2d 63 75 -selected-window.win.(dirvish-cu
40960 72 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e 6f 74 20 28 61 63 rr)))..................((not.(ac
40980 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 0a 20 20 20 20 20 20 tive-minibuffer-window))).......
409a0 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d ...........(file.buffer-file-nam
409c0 65 29 29 0a 20 20 20 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 e))........(with-selected-window
409e0 20 77 69 6e 0a 20 20 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 .win..........(when.dir.........
40a00 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 64 76 29 0a 20 20 20 20 20 ...(setq.dirvish--this.dv)......
40a20 20 20 20 20 20 20 28 6c 65 74 20 28 62 75 66 66 65 72 2d 6c 69 73 74 2d 75 70 64 61 74 65 2d 68 ......(let.(buffer-list-update-h
40a40 6f 6f 6b 29 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 64 69 72 29 29 ook).(dirvish-find-entry-a.dir))
40a60 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 61 75 74 ............(if.dirvish-side-aut
40a80 6f 2d 65 78 70 61 6e 64 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 72 65 65 2d 65 78 70 61 6e 64 o-expand.(dirvish-subtree-expand
40aa0 2d 74 6f 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 6f -to.file)..............(dired-go
40ac0 74 6f 2d 66 69 6c 65 20 66 69 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 to-file.file))............(dirvi
40ae0 73 68 2d 70 72 6f 70 20 3a 63 75 73 2d 68 65 61 64 65 72 20 27 64 69 72 76 69 73 68 2d 73 69 64 sh-prop.:cus-header.'dirvish-sid
40b00 65 2d 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 2d 73 e-header)............(dirvish--s
40b20 65 74 75 70 2d 6d 6f 64 65 2d 6c 69 6e 65 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 etup-mode-line.(car.(dv-layout.d
40b40 76 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 75 70 64 61 74 65 2d v)))............(dirvish-update-
40b60 62 6f 64 79 2d 68 29 29 0a 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d body-h))..........(setq.dirvish-
40b80 2d 74 68 69 73 20 6e 69 6c 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d -this.nil))))))..(defun.dirvish-
40ba0 73 69 64 65 2d 2d 6e 65 77 20 28 70 61 74 68 29 0a 20 20 22 4f 70 65 6e 20 61 20 73 69 64 65 20 side--new.(path)..."Open.a.side.
40bc0 73 65 73 73 69 6f 6e 20 69 6e 20 50 41 54 48 2e 22 0a 20 20 28 6c 65 74 2a 20 28 28 62 6e 61 6d session.in.PATH."...(let*.((bnam
40be0 65 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 64 76 e.buffer-file-name)..........(dv
40c00 20 28 6f 72 20 28 63 61 72 20 28 64 69 72 76 69 73 68 2d 2d 66 69 6e 64 2d 72 65 75 73 61 62 6c .(or.(car.(dirvish--find-reusabl
40c20 65 20 27 73 69 64 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 e.'side))..................(dirv
40c40 69 73 68 2d 6e 65 77 20 3a 74 79 70 65 20 27 28 73 69 64 65 20 77 69 64 74 68 20 64 65 64 69 63 ish-new.:type.'(side.width.dedic
40c60 61 74 65 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 ated............................
40c80 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 72 6f 6f 74 2d 77 69 6e ...........dirvish-side-root-win
40ca0 64 6f 77 2d 66 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 20 20 dow-fn..........................
40cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 66 69 6c 65 2d 6f .............dirvish-side-file-o
40ce0 70 65 6e 2d 66 6e 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 72 2d 77 69 6e 20 28 64 76 2d 72 pen-fn))))..........(r-win.(dv-r
40d00 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 29 29 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 77 69 oot-window.dv))).....(unless.(wi
40d20 6e 64 6f 77 2d 6c 69 76 65 2d 70 20 72 2d 77 69 6e 29 20 28 73 65 74 71 20 72 2d 77 69 6e 20 28 ndow-live-p.r-win).(setq.r-win.(
40d40 64 69 72 76 69 73 68 2d 2d 63 72 65 61 74 65 2d 72 6f 6f 74 2d 77 69 6e 64 6f 77 20 64 76 29 29 dirvish--create-root-window.dv))
40d60 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 72 2d 77 69 ).....(with-selected-window.r-wi
40d80 6e 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 76 69 73 68 2d 2d 74 68 69 73 20 64 76 29 0a n.......(setq.dirvish--this.dv).
40da0 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 66 69 6e 64 2d 65 6e 74 72 79 2d 61 20 70 61 74 68 ......(dirvish-find-entry-a.path
40dc0 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 20 28 28 6e 6f 74 20 62 6e 61 6d 65 29 20 6e 69 6c 29 0a ).......(cond.((not.bname).nil).
40de0 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 69 64 65 2d 61 75 74 6f 2d 65 ............(dirvish-side-auto-e
40e00 78 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 73 75 62 74 xpand..............(dirvish-subt
40e20 72 65 65 2d 65 78 70 61 6e 64 2d 74 6f 20 62 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 ree-expand-to.bname))...........
40e40 20 20 28 74 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 62 6e 61 6d 65 29 29 29 0a 20 ..(t.(dired-goto-file.bname)))..
40e60 20 20 20 20 20 28 64 69 72 76 69 73 68 2d 70 72 6f 70 20 3a 63 75 73 2d 68 65 61 64 65 72 20 27 .....(dirvish-prop.:cus-header.'
40e80 64 69 72 76 69 73 68 2d 73 69 64 65 2d 68 65 61 64 65 72 29 0a 20 20 20 20 20 20 28 64 69 72 76 dirvish-side-header).......(dirv
40ea0 69 73 68 2d 75 70 64 61 74 65 2d 62 6f 64 79 2d 68 29 29 29 29 0a 0a 28 64 69 72 76 69 73 68 2d ish-update-body-h))))..(dirvish-
40ec0 64 65 66 69 6e 65 2d 6d 6f 64 65 2d 6c 69 6e 65 20 70 72 6f 6a 65 63 74 0a 20 20 22 52 65 74 75 define-mode-line.project..."Retu
40ee0 72 6e 20 61 20 73 74 72 69 6e 67 20 73 68 6f 77 69 6e 67 20 63 75 72 72 65 6e 74 20 70 72 6f 6a rn.a.string.showing.current.proj
40f00 65 63 74 2e 22 0a 20 20 28 6c 65 74 20 28 28 70 72 6f 6a 65 63 74 20 28 64 69 72 76 69 73 68 2d ect."...(let.((project.(dirvish-
40f20 2d 67 65 74 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 29 0a 20 20 20 20 20 20 20 20 28 66 61 63 -get-project-root)).........(fac
40f40 65 20 28 69 66 20 28 64 69 72 76 69 73 68 2d 2d 77 69 6e 64 6f 77 2d 73 65 6c 65 63 74 65 64 2d e.(if.(dirvish--window-selected-
40f60 70 20 64 76 29 20 27 64 69 72 65 64 2d 68 65 61 64 65 72 20 27 73 68 61 64 6f 77 29 29 29 0a 20 p.dv).'dired-header.'shadow)))..
40f80 20 20 20 28 69 66 20 70 72 6f 6a 65 63 74 0a 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 72 6f ...(if.project.........(setq.pro
40fa0 6a 65 63 74 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 62 61 73 65 20 28 64 69 72 65 63 74 6f 72 79 2d ject.(file-name-base.(directory-
40fc0 66 69 6c 65 2d 6e 61 6d 65 20 70 72 6f 6a 65 63 74 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 file-name.project))).......(setq
40fe0 20 70 72 6f 6a 65 63 74 20 22 2d 22 29 29 0a 20 20 20 20 28 66 6f 72 6d 61 74 20 22 20 25 73 20 .project."-")).....(format.".%s.
41000 25 73 22 0a 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 50 72 6f %s".............(propertize."Pro
41020 6a 65 63 74 3a 22 20 27 66 61 63 65 20 66 61 63 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 ject:".'face.face).............(
41040 70 72 6f 70 65 72 74 69 7a 65 20 70 72 6f 6a 65 63 74 20 27 66 61 63 65 20 27 66 6f 6e 74 2d 6c propertize.project.'face.'font-l
41060 6f 63 6b 2d 73 74 72 69 6e 67 2d 66 61 63 65 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c ock-string-face))))..;;;###autol
41080 6f 61 64 0a 28 64 65 66 69 6e 65 2d 6d 69 6e 6f 72 2d 6d 6f 64 65 20 64 69 72 76 69 73 68 2d 73 oad.(define-minor-mode.dirvish-s
410a0 69 64 65 2d 66 6f 6c 6c 6f 77 2d 6d 6f 64 65 0a 20 20 22 54 6f 67 67 6c 65 20 60 64 69 72 76 69 ide-follow-mode..."Toggle.`dirvi
410c0 73 68 2d 73 69 64 65 2d 66 6f 6c 6c 6f 77 2d 6d 6f 64 65 27 2e 0a 57 68 65 6e 20 65 6e 61 62 6c sh-side-follow-mode'..When.enabl
410e0 65 64 20 74 68 65 20 76 69 73 69 62 6c 65 20 73 69 64 65 20 73 65 73 73 69 6f 6e 20 77 69 6c 6c ed.the.visible.side.session.will
41100 20 73 65 6c 65 63 74 20 74 68 65 20 63 75 72 72 65 6e 74 0a 62 75 66 66 65 72 27 73 20 66 69 6c .select.the.current.buffer's.fil
41120 65 6e 61 6d 65 2e 20 20 49 74 20 77 69 6c 6c 20 61 6c 73 6f 20 76 69 73 69 74 73 20 74 68 65 20 ename...It.will.also.visits.the.
41140 6c 61 74 65 73 74 20 60 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 27 0a 61 66 74 65 72 20 73 77 69 74 latest.`project-root'.after.swit
41160 63 68 69 6e 67 20 74 6f 20 61 20 6e 65 77 20 70 72 6f 6a 65 63 74 2e 22 0a 20 20 3a 69 6e 69 74 ching.to.a.new.project."...:init
41180 2d 76 61 6c 75 65 20 6e 69 6c 20 3a 67 6c 6f 62 61 6c 20 74 20 3a 67 72 6f 75 70 20 27 64 69 72 -value.nil.:global.t.:group.'dir
411a0 76 69 73 68 0a 20 20 28 69 66 20 64 69 72 76 69 73 68 2d 73 69 64 65 2d 66 6f 6c 6c 6f 77 2d 6d vish...(if.dirvish-side-follow-m
411c0 6f 64 65 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 62 75 66 66 65 72 2d 6c 69 73 74 ode.......(add-hook.'buffer-list
411e0 2d 75 70 64 61 74 65 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 61 75 74 -update-hook.#'dirvish-side--aut
41200 6f 2d 6a 75 6d 70 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 62 75 66 66 65 72 o-jump).....(remove-hook.'buffer
41220 2d 6c 69 73 74 2d 75 70 64 61 74 65 2d 68 6f 6f 6b 20 23 27 64 69 72 76 69 73 68 2d 73 69 64 65 -list-update-hook.#'dirvish-side
41240 2d 2d 61 75 74 6f 2d 6a 75 6d 70 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 --auto-jump)))..;;;###autoload.(
41260 64 65 66 75 6e 20 64 69 72 76 69 73 68 2d 73 69 64 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 70 61 defun.dirvish-side.(&optional.pa
41280 74 68 29 0a 20 20 22 54 6f 67 67 6c 65 20 61 20 44 69 72 76 69 73 68 20 73 65 73 73 69 6f 6e 20 th)..."Toggle.a.Dirvish.session.
412a0 61 74 20 74 68 65 20 73 69 64 65 20 77 69 6e 64 6f 77 2e 0a 0a 2d 20 49 66 20 74 68 65 20 63 75 at.the.side.window...-.If.the.cu
412c0 72 72 65 6e 74 20 77 69 6e 64 6f 77 20 69 73 20 61 20 73 69 64 65 20 73 65 73 73 69 6f 6e 20 77 rrent.window.is.a.side.session.w
412e0 69 6e 64 6f 77 2c 20 68 69 64 65 20 69 74 2e 0a 2d 20 49 66 20 61 20 73 69 64 65 20 73 65 73 73 indow,.hide.it..-.If.a.side.sess
41300 69 6f 6e 20 69 73 20 76 69 73 69 62 6c 65 2c 20 73 65 6c 65 63 74 20 69 74 2e 0a 2d 20 49 66 20 ion.is.visible,.select.it..-.If.
41320 61 20 73 69 64 65 20 73 65 73 73 69 6f 6e 20 65 78 69 73 74 73 20 62 75 74 20 69 73 20 6e 6f 74 a.side.session.exists.but.is.not
41340 20 76 69 73 69 62 6c 65 2c 20 73 68 6f 77 20 69 74 2e 0a 2d 20 49 66 20 74 68 65 72 65 20 69 73 .visible,.show.it..-.If.there.is
41360 20 6e 6f 20 73 69 64 65 20 73 65 73 73 69 6f 6e 20 65 78 69 73 74 73 2c 63 72 65 61 74 65 20 61 .no.side.session.exists,create.a
41380 20 6e 65 77 20 6f 6e 65 20 77 69 74 68 20 50 41 54 48 2e 0a 0a 49 66 20 63 61 6c 6c 65 64 20 77 .new.one.with.PATH...If.called.w
413a0 69 74 68 20 5c 5c 5b 75 6e 69 76 65 72 73 61 6c 2d 61 72 67 75 6d 65 6e 74 73 5d 2c 20 70 72 6f ith.\\[universal-arguments],.pro
413c0 6d 70 74 20 66 6f 72 20 50 41 54 48 2c 0a 6f 74 68 65 72 77 69 73 65 20 69 74 20 64 65 66 61 75 mpt.for.PATH,.otherwise.it.defau
413e0 6c 74 73 20 74 6f 20 60 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 27 2e 22 0a 20 20 28 69 6e lts.to.`project-current'."...(in
41400 74 65 72 61 63 74 69 76 65 20 28 6c 69 73 74 20 28 61 6e 64 20 63 75 72 72 65 6e 74 2d 70 72 65 teractive.(list.(and.current-pre
41420 66 69 78 2d 61 72 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 fix-arg.........................
41440 20 20 28 72 65 61 64 2d 64 69 72 65 63 74 6f 72 79 2d 6e 61 6d 65 20 22 4f 70 65 6e 20 73 69 64 ..(read-directory-name."Open.sid
41460 65 74 72 65 65 3a 20 22 29 29 29 29 0a 20 20 28 6c 65 74 20 28 28 66 75 6c 6c 66 72 61 6d 65 70 etree:."))))...(let.((fullframep
41480 20 28 77 68 65 6e 2d 6c 65 74 20 28 28 64 76 20 28 64 69 72 76 69 73 68 2d 63 75 72 72 29 29 29 .(when-let.((dv.(dirvish-curr)))
414a0 20 28 63 61 72 20 28 64 76 2d 6c 61 79 6f 75 74 20 64 76 29 29 29 29 0a 20 20 20 20 20 20 20 20 .(car.(dv-layout.dv)))).........
414c0 28 76 69 73 69 62 6c 65 20 28 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 73 65 73 73 69 6f 6e 2d (visible.(dirvish-side--session-
414e0 76 69 73 69 62 6c 65 2d 70 29 29 0a 20 20 20 20 20 20 20 20 28 70 61 74 68 20 28 6f 72 20 70 61 visible-p)).........(path.(or.pa
41500 74 68 20 28 64 69 72 76 69 73 68 2d 2d 67 65 74 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 20 64 th.(dirvish--get-project-root).d
41520 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a 20 20 20 20 28 63 6f 6e 64 20 28 66 efault-directory))).....(cond.(f
41540 75 6c 6c 66 72 61 6d 65 70 20 28 75 73 65 72 2d 65 72 72 6f 72 20 22 43 61 6e 20 6e 6f 74 20 63 ullframep.(user-error."Can.not.c
41560 72 65 61 74 65 20 73 69 64 65 20 73 65 73 73 69 6f 6e 20 68 65 72 65 22 29 29 0a 20 20 20 20 20 reate.side.session.here"))......
41580 20 20 20 20 20 28 28 65 71 20 76 69 73 69 62 6c 65 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 .....((eq.visible.(selected-wind
415a0 6f 77 29 29 20 28 64 69 72 76 69 73 68 2d 71 75 69 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 ow)).(dirvish-quit))...........(
415c0 76 69 73 69 62 6c 65 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 76 69 73 69 62 6c 65 29 29 visible.(select-window.visible))
415e0 0a 20 20 20 20 20 20 20 20 20 20 28 74 20 28 64 69 72 76 69 73 68 2d 73 69 64 65 2d 2d 6e 65 77 ...........(t.(dirvish-side--new
41600 20 70 61 74 68 29 29 29 29 29 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 76 69 73 68 2d 73 69 .path)))))..(provide.'dirvish-si
41620 64 65 29 0a 3b 3b 3b 20 64 69 72 76 69 73 68 2d 73 69 64 65 2e 65 6c 20 65 6e 64 73 20 68 65 72 de).;;;.dirvish-side.el.ends.her
41640 65 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e...............................
41660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
416a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
416c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
416e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
417a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
417c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
417e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
418a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
418c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
418e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
419a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
419c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
419e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
41fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
420a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
420c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
420e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
421a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
421c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
421e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
422a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
422c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
422e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
423a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
423c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
423e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
424a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
424c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
424e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
425a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
425c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
425e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
426a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
426c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
426e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
427a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
427c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
427e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
428a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
428c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
428e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
429a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
429c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
429e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42a00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42a20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42a40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42a60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42a80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42aa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ac0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ae0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42b00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42b20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42b40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42b60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ba0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42bc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42be0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42c00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42c20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42c40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42c60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42c80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ca0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42cc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ce0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42d00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42d20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42d40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42d60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42d80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42da0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42dc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42de0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42e00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42e20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42e40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42e60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42e80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ea0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ec0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42ee0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42f00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42f20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42f40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42f60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42f80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
42fe0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
430a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
430c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
430e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
431a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
431c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
431e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
432a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
432c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
432e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
433a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
433c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
433e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
434a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
434c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
434e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
435a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
435c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
435e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
436a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
436c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
436e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
43780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
437a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
437c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
437e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................................
generated by cgit v1.2.3 (git 2.25.1) at 2025-10-26 19:28:33 +0000