| ofs | hex dump | ascii |
|---|
| 0000 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 32 30 32 34 30 33 32 30 2e 31 39 35 32 2f 00 00 00 00 | dired-sidebar-20240320.1952/.... |
| 0020 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0040 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0060 | 00 00 00 00 30 30 30 30 37 35 35 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000755.0000000.0000000.0000 |
| 0080 | 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 33 35 30 34 00 20 35 00 00 00 | 0000000.00000000000.013504..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 65 64 2d 73 69 64 65 62 61 72 2d 32 30 32 34 30 33 32 30 2e 31 39 35 32 2f 64 69 72 65 | dired-sidebar-20240320.1952/dire |
| 0220 | 64 2d 73 69 64 65 62 61 72 2d 70 6b 67 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | d-sidebar-pkg.el................ |
| 0240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0260 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0280 | 30 30 30 30 37 36 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 33 31 31 00 20 30 00 00 00 | 0000763.00000000000.017311..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 | 28 64 65 66 69 6e 65 2d 70 61 63 6b 61 67 65 20 22 64 69 72 65 64 2d 73 69 64 65 62 61 72 22 20 | (define-package."dired-sidebar". |
| 0420 | 22 32 30 32 34 30 33 32 30 2e 31 39 35 32 22 20 22 54 72 65 65 20 62 72 6f 77 73 65 72 20 6c 65 | "20240320.1952"."Tree.browser.le |
| 0440 | 76 65 72 61 67 69 6e 67 20 64 69 72 65 64 22 0a 20 20 27 28 28 65 6d 61 63 73 20 22 32 35 2e 31 | veraging.dired"...'((emacs."25.1 |
| 0460 | 22 29 0a 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 22 30 2e 30 2e 31 22 29 29 0a | ").....(dired-subtree."0.0.1")). |
| 0480 | 20 20 3a 63 6f 6d 6d 69 74 20 22 35 37 33 36 35 38 30 32 31 66 64 36 65 36 63 66 30 33 32 64 37 | ..:commit."573658021fd6e6cf032d7 |
| 04a0 | 38 39 64 65 32 39 61 63 61 34 65 35 64 64 32 35 38 66 64 22 20 3a 61 75 74 68 6f 72 73 0a 20 20 | 89de29aca4e5dd258fd".:authors... |
| 04c0 | 27 28 28 22 4a 61 6d 65 73 20 4e 67 75 79 65 6e 22 20 2e 20 22 6a 61 6d 65 73 40 6a 6f 6a 6f 6a | '(("James.Nguyen"..."james@jojoj |
| 04e0 | 61 6d 65 73 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 73 0a 20 20 27 28 28 | ames.com"))...:maintainers...'(( |
| 0500 | 22 4a 61 6d 65 73 20 4e 67 75 79 65 6e 22 20 2e 20 22 6a 61 6d 65 73 40 6a 6f 6a 6f 6a 61 6d 65 | "James.Nguyen"..."james@jojojame |
| 0520 | 73 2e 63 6f 6d 22 29 29 0a 20 20 3a 6d 61 69 6e 74 61 69 6e 65 72 0a 20 20 27 28 22 4a 61 6d 65 | s.com"))...:maintainer...'("Jame |
| 0540 | 73 20 4e 67 75 79 65 6e 22 20 2e 20 22 6a 61 6d 65 73 40 6a 6f 6a 6f 6a 61 6d 65 73 2e 63 6f 6d | s.Nguyen"..."james@jojojames.com |
| 0560 | 22 29 0a 20 20 3a 6b 65 79 77 6f 72 64 73 0a 20 20 27 28 22 64 69 72 65 64 22 20 22 66 69 6c 65 | ")...:keywords...'("dired"."file |
| 0580 | 73 22 20 22 74 6f 6f 6c 73 22 29 0a 20 20 3a 75 72 6c 20 22 68 74 74 70 73 3a 2f 2f 67 69 74 68 | s"."tools")...:url."https://gith |
| 05a0 | 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 65 62 61 72 22 29 | ub.com/jojojames/dired-sidebar") |
| 05c0 | 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 79 74 65 2d | .;;.Local.Variables:.;;.no-byte- |
| 05e0 | 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 00 00 00 00 | compile:.t.;;.End:.............. |
| 0600 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 32 30 32 34 30 33 32 30 2e 31 39 35 32 2f 64 69 72 65 | dired-sidebar-20240320.1952/dire |
| 0620 | 64 2d 73 69 64 65 62 61 72 2e 65 6c 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | d-sidebar.el.................... |
| 0640 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0660 | 00 00 00 00 30 30 30 30 36 34 34 00 30 30 30 30 30 30 30 00 30 30 30 30 30 30 30 00 30 30 30 30 | ....0000644.0000000.0000000.0000 |
| 0680 | 30 31 33 35 33 33 33 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 35 33 34 00 20 30 00 00 00 | 0135333.00000000000.016534..0... |
| 06a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 06e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0700 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0720 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0740 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0760 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0780 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 07e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0800 | 3b 3b 3b 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2e 65 6c 20 2d 2d 2d 20 54 72 65 65 20 62 72 | ;;;.dired-sidebar.el.---.Tree.br |
| 0820 | 6f 77 73 65 72 20 6c 65 76 65 72 61 67 69 6e 67 20 64 69 72 65 64 20 2d 2a 2d 20 6c 65 78 69 63 | owser.leveraging.dired.-*-.lexic |
| 0840 | 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 74 20 | al-binding:.t.-*-..;;.Copyright. |
| 0860 | 28 43 29 20 32 30 32 31 20 4a 61 6d 65 73 20 4e 67 75 79 65 6e 0a 0a 3b 3b 20 41 75 74 68 6f 72 | (C).2021.James.Nguyen..;;.Author |
| 0880 | 3a 20 4a 61 6d 65 73 20 4e 67 75 79 65 6e 20 3c 6a 61 6d 65 73 40 6a 6f 6a 6f 6a 61 6d 65 73 2e | :.James.Nguyen.<james@jojojames. |
| 08a0 | 63 6f 6d 3e 0a 3b 3b 20 4d 61 69 6e 74 61 69 6e 65 72 3a 20 4a 61 6d 65 73 20 4e 67 75 79 65 6e | com>.;;.Maintainer:.James.Nguyen |
| 08c0 | 20 3c 6a 61 6d 65 73 40 6a 6f 6a 6f 6a 61 6d 65 73 2e 63 6f 6d 3e 0a 3b 3b 20 55 52 4c 3a 20 68 | .<james@jojojames.com>.;;.URL:.h |
| 08e0 | 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 | ttps://github.com/jojojames/dire |
| 0900 | 64 2d 73 69 64 65 62 61 72 0a 3b 3b 20 56 65 72 73 69 6f 6e 3a 20 30 2e 30 2e 31 0a 3b 3b 20 50 | d-sidebar.;;.Version:.0.0.1.;;.P |
| 0920 | 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 3a 20 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 | ackage-Requires:.((emacs."25.1") |
| 0940 | 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 20 22 30 2e 30 2e 31 22 29 29 0a 3b 3b 20 4b 65 79 | .(dired-subtree."0.0.1")).;;.Key |
| 0960 | 77 6f 72 64 73 3a 20 64 69 72 65 64 2c 20 66 69 6c 65 73 2c 20 74 6f 6f 6c 73 0a 3b 3b 20 48 6f | words:.dired,.files,.tools.;;.Ho |
| 0980 | 6d 65 50 61 67 65 3a 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a | mePage:.https://github.com/jojoj |
| 09a0 | 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 65 62 61 72 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 | ames/dired-sidebar..;;.This.prog |
| 09c0 | 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 61 6e 20 72 65 | ram.is.free.software;.you.can.re |
| 09e0 | 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 3b 3b 20 69 | distribute.it.and/or.modify.;;.i |
| 0a00 | 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e | t.under.the.terms.of.the.GNU.Gen |
| 0a20 | 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c 69 73 68 65 64 | eral.Public.License.as.published |
| 0a40 | 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 61 74 | .by.;;.the.Free.Software.Foundat |
| 0a60 | 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 65 20 4c 69 63 | ion,.either.version.3.of.the.Lic |
| 0a80 | 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e 29 20 61 6e 79 | ense,.or.;;.(at.your.option).any |
| 0aa0 | 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 6f 67 72 61 6d | .later.version...;;.This.program |
| 0ac0 | 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 20 74 68 61 74 | .is.distributed.in.the.hope.that |
| 0ae0 | 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 57 49 54 48 4f | .it.will.be.useful,.;;.but.WITHO |
| 0b00 | 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 6e 20 74 68 | UT.ANY.WARRANTY;.without.even.th |
| 0b20 | 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 52 43 48 41 4e | e.implied.warranty.of.;;.MERCHAN |
| 0b40 | 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 54 49 43 | TABILITY.or.FITNESS.FOR.A.PARTIC |
| 0b60 | 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 4e 55 20 47 65 | ULAR.PURPOSE...See.the.;;.GNU.Ge |
| 0b80 | 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f 72 65 20 64 65 | neral.Public.License.for.more.de |
| 0ba0 | 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 72 65 63 65 69 | tails...;;.You.should.have.recei |
| 0bc0 | 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 | ved.a.copy.of.the.GNU.General.Pu |
| 0be0 | 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 | blic.License.;;.along.with.this. |
| 0c00 | 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 | program...If.not,.see.<http://ww |
| 0c20 | 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 43 6f 6d 6d 65 | w.gnu.org/licenses/>...;;;.Comme |
| 0c40 | 6e 74 61 72 79 3a 0a 3b 3b 20 54 68 69 73 20 70 61 63 6b 61 67 65 20 70 72 6f 76 69 64 65 73 20 | ntary:.;;.This.package.provides. |
| 0c60 | 61 20 74 72 65 65 20 62 72 6f 77 73 65 72 20 73 69 6d 69 6c 61 72 20 74 6f 20 60 6e 65 6f 74 72 | a.tree.browser.similar.to.`neotr |
| 0c80 | 65 65 27 20 6f 72 20 60 74 72 65 65 6d 61 63 73 27 0a 3b 3b 20 62 75 74 20 6c 65 76 65 72 61 67 | ee'.or.`treemacs'.;;.but.leverag |
| 0ca0 | 65 73 20 60 64 69 72 65 64 27 20 74 6f 20 64 6f 20 74 68 65 20 6a 6f 62 20 6f 66 20 64 69 73 70 | es.`dired'.to.do.the.job.of.disp |
| 0cc0 | 6c 61 79 2e 0a 0a 3b 3b 20 28 75 73 65 2d 70 61 63 6b 61 67 65 20 64 69 72 65 64 2d 73 69 64 65 | lay...;;.(use-package.dired-side |
| 0ce0 | 62 61 72 0a 3b 3b 20 20 20 3a 62 69 6e 64 20 28 28 22 43 2d 78 20 43 2d 6e 22 20 2e 20 64 69 72 | bar.;;...:bind.(("C-x.C-n"...dir |
| 0d00 | 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 29 29 0a 3b 3b 20 20 | ed-sidebar-toggle-sidebar)).;;.. |
| 0d20 | 20 3a 65 6e 73 75 72 65 20 6e 69 6c 0a 3b 3b 20 20 20 3a 63 6f 6d 6d 61 6e 64 73 20 28 64 69 72 | .:ensure.nil.;;...:commands.(dir |
| 0d40 | 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 29 29 0a 0a 3b 3b 3b | ed-sidebar-toggle-sidebar))..;;; |
| 0d60 | 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 | .Code:..(require.'dired).(requir |
| 0d80 | 65 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d | e.'dired-subtree).(eval-when-com |
| 0da0 | 70 69 6c 65 20 28 72 65 71 75 69 72 65 20 27 73 75 62 72 2d 78 29 29 20 3b 20 60 69 66 2d 6c 65 | pile.(require.'subr-x)).;.`if-le |
| 0dc0 | 74 2a 27 20 61 6e 64 20 60 77 68 65 6e 2d 6c 65 74 2a 27 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 | t*'.and.`when-let*'..(declare-fu |
| 0de0 | 6e 63 74 69 6f 6e 20 62 75 66 66 65 72 2d 66 61 63 65 2d 6d 6f 64 65 2d 69 6e 76 6f 6b 65 20 22 | nction.buffer-face-mode-invoke." |
| 0e00 | 66 61 63 65 2d 72 65 6d 61 70 22 29 0a 0a 3b 3b 20 43 6f 6d 70 61 74 69 62 69 6c 69 74 79 0a 0a | face-remap")..;;.Compatibility.. |
| 0e20 | 28 65 76 61 6c 2d 61 6e 64 2d 63 6f 6d 70 69 6c 65 0a 20 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 | (eval-and-compile...(with-no-war |
| 0e40 | 6e 69 6e 67 73 0a 20 20 20 20 28 69 66 20 28 76 65 72 73 69 6f 6e 3c 20 65 6d 61 63 73 2d 76 65 | nings.....(if.(version<.emacs-ve |
| 0e60 | 72 73 69 6f 6e 20 22 32 36 22 29 0a 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 | rsion."26").........(progn...... |
| 0e80 | 20 20 20 20 20 28 64 65 66 61 6c 69 61 73 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 | .....(defalias.'dired-sidebar-if |
| 0ea0 | 2d 6c 65 74 2a 20 23 27 69 66 2d 6c 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 6c | -let*.#'if-let)...........(defal |
| 0ec0 | 69 61 73 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 23 27 77 | ias.'dired-sidebar-when-let*.#'w |
| 0ee0 | 68 65 6e 2d 6c 65 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 2d 70 75 74 | hen-let)...........(function-put |
| 0f00 | 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 2d 6c 65 74 2a 20 27 6c 69 73 70 2d 69 | .#'dired-sidebar-if-let*.'lisp-i |
| 0f20 | 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 32 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 75 6e | ndent-function.2)...........(fun |
| 0f40 | 63 74 69 6f 6e 2d 70 75 74 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c | ction-put.#'dired-sidebar-when-l |
| 0f60 | 65 74 2a 20 27 6c 69 73 70 2d 69 6e 64 65 6e 74 2d 66 75 6e 63 74 69 6f 6e 20 31 29 29 0a 20 20 | et*.'lisp-indent-function.1))... |
| 0f80 | 20 20 20 20 28 64 65 66 61 6c 69 61 73 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 2d | ....(defalias.'dired-sidebar-if- |
| 0fa0 | 6c 65 74 2a 20 23 27 69 66 2d 6c 65 74 2a 29 0a 20 20 20 20 20 20 28 64 65 66 61 6c 69 61 73 20 | let*.#'if-let*).......(defalias. |
| 0fc0 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 23 27 77 68 65 6e 2d | 'dired-sidebar-when-let*.#'when- |
| 0fe0 | 6c 65 74 2a 29 29 29 29 0a 0a 3b 3b 20 43 75 73 74 6f 6d 69 7a 61 74 69 6f 6e 73 0a 0a 28 64 65 | let*))))..;;.Customizations..(de |
| 1000 | 66 67 72 6f 75 70 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 20 6e 69 6c 0a 20 20 22 41 20 6d 61 | fgroup.dired-sidebar.nil..."A.ma |
| 1020 | 6a 6f 72 20 6d 6f 64 65 20 6c 65 76 65 72 61 67 69 6e 67 20 60 64 69 72 65 64 2d 6d 6f 64 65 27 | jor.mode.leveraging.`dired-mode' |
| 1040 | 20 74 6f 20 64 69 73 70 6c 61 79 20 61 20 66 69 6c 65 73 79 73 74 65 6d 20 69 6e 20 61 20 74 72 | .to.display.a.filesystem.in.a.tr |
| 1060 | 65 65 0a 6c 61 79 6f 75 74 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 66 69 6c 65 73 29 0a 0a 28 64 | ee.layout."...:group.'files)..(d |
| 1080 | 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 63 75 73 74 6f | efcustom.dired-sidebar-use-custo |
| 10a0 | 6d 2d 66 6f 6e 74 20 6e 69 6c 0a 20 20 22 53 68 6f 77 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | m-font.nil..."Show.`dired-sideba |
| 10c0 | 72 27 20 77 69 74 68 20 63 75 73 74 6f 6d 20 66 6f 6e 74 2e 0a 0a 54 68 69 73 20 66 61 63 65 20 | r'.with.custom.font...This.face. |
| 10e0 | 63 61 6e 20 62 65 20 63 75 73 74 6f 6d 69 7a 65 64 20 75 73 69 6e 67 20 60 64 69 72 65 64 2d 73 | can.be.customized.using.`dired-s |
| 1100 | 69 64 65 62 61 72 2d 66 61 63 65 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a | idebar-face'."...:type.'boolean. |
| 1120 | 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 66 61 | ..:group.'dired-sidebar)..(deffa |
| 1140 | 63 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 61 63 65 20 6e 69 6c 0a 20 20 22 46 61 63 | ce.dired-sidebar-face.nil..."Fac |
| 1160 | 65 20 75 73 65 64 20 62 79 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 66 6f 72 20 63 75 | e.used.by.`dired-sidebar'.for.cu |
| 1180 | 73 74 6f 6d 20 66 6f 6e 74 2e 0a 0a 54 68 69 73 20 6f 6e 6c 79 20 74 61 6b 65 73 20 65 66 66 65 | stom.font...This.only.takes.effe |
| 11a0 | 63 74 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 63 75 73 74 6f 6d 2d | ct.if.`dired-sidebar-use-custom- |
| 11c0 | 66 6f 6e 74 27 20 69 73 20 74 72 75 65 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d | font'.is.true."...:group.'dired- |
| 11e0 | 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 | sidebar)..(defcustom.dired-sideb |
| 1200 | 61 72 2d 75 73 65 2d 63 75 73 74 6f 6d 2d 6d 6f 64 65 6c 69 6e 65 20 74 0a 20 20 22 53 68 6f 77 | ar-use-custom-modeline.t..."Show |
| 1220 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 77 69 74 68 20 63 75 73 74 6f 6d 20 6d 6f 64 | .`dired-sidebar'.with.custom.mod |
| 1240 | 65 6c 69 6e 65 2e 0a 0a 54 68 69 73 20 75 73 65 73 20 66 6f 72 6d 61 74 20 73 70 65 63 69 66 69 | eline...This.uses.format.specifi |
| 1260 | 65 64 20 62 79 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 | ed.by.`dired-sidebar-mode-line-f |
| 1280 | 6f 72 6d 61 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f | ormat'."...:type.'boolean...:gro |
| 12a0 | 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 | up.'dired-sidebar)..(defcustom.d |
| 12c0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 0a 20 20 | ired-sidebar-mode-line-format... |
| 12e0 | 27 28 22 25 65 22 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 72 6f 6e 74 2d 73 70 61 63 65 0a 20 20 20 | '("%e".mode-line-front-space.... |
| 1300 | 20 6d 6f 64 65 2d 6c 69 6e 65 2d 62 75 66 66 65 72 2d 69 64 65 6e 74 69 66 69 63 61 74 69 6f 6e | .mode-line-buffer-identification |
| 1320 | 0a 20 20 20 20 22 20 22 20 20 6d 6f 64 65 2d 6c 69 6e 65 2d 65 6e 64 2d 73 70 61 63 65 73 29 0a | ....."."..mode-line-end-spaces). |
| 1340 | 20 20 22 4d 6f 64 65 20 6c 69 6e 65 20 66 6f 72 6d 61 74 20 66 6f 72 20 60 64 69 72 65 64 2d 73 | .."Mode.line.format.for.`dired-s |
| 1360 | 69 64 65 62 61 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 74 0a 20 20 3a 67 72 6f 75 70 | idebar'."...:type.'list...:group |
| 1380 | 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 | .'dired-sidebar)..(defcustom.dir |
| 13a0 | 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 69 63 6f 6e 73 0a 20 20 22 2a 54 68 65 20 | ed-sidebar-theme.'icons..."*The. |
| 13c0 | 74 72 65 65 20 73 74 79 6c 65 20 74 6f 20 64 69 73 70 6c 61 79 2e 0a 60 61 73 63 69 69 27 20 69 | tree.style.to.display..`ascii'.i |
| 13e0 | 73 20 74 68 65 20 73 69 6d 70 6c 65 73 74 20 73 74 79 6c 65 2c 20 69 74 20 77 69 6c 6c 20 75 73 | s.the.simplest.style,.it.will.us |
| 1400 | 65 20 2b 2f 2d 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68 65 20 66 6f 6c 64 20 73 74 61 74 65 2c | e.+/-.to.display.the.fold.state, |
| 1420 | 0a 69 74 20 69 73 20 73 75 69 74 61 62 6c 65 20 66 6f 72 20 74 65 72 6d 69 6e 61 6c 2e 0a 60 69 | .it.is.suitable.for.terminal..`i |
| 1440 | 63 6f 6e 73 27 20 75 73 65 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 27 2e 0a 60 6e 65 72 64 | cons'.use.`all-the-icons'..`nerd |
| 1460 | 27 20 75 73 65 20 74 68 65 20 6e 65 72 64 74 72 65 65 20 69 6e 64 65 6e 74 61 74 69 6f 6e 20 6d | '.use.the.nerdtree.indentation.m |
| 1480 | 6f 64 65 20 61 6e 64 20 61 72 72 6f 77 2e 0a 60 6e 6f 6e 65 27 20 75 73 65 20 6e 6f 20 74 68 65 | ode.and.arrow..`none'.use.no.the |
| 14a0 | 6d 65 2e 0a 60 76 73 63 6f 64 65 27 20 75 73 65 20 60 76 73 63 6f 64 65 27 20 69 63 6f 6e 73 2e | me..`vscode'.use.`vscode'.icons. |
| 14c0 | 0a 0a 54 68 69 73 20 6f 6e 6c 79 20 74 61 6b 65 73 20 65 66 66 65 63 74 20 69 66 20 6f 6e 20 61 | ..This.only.takes.effect.if.on.a |
| 14e0 | 20 6c 6f 63 61 6c 20 63 6f 6e 6e 65 63 74 69 6f 6e 2e 20 28 65 2e 67 2e 20 4e 6f 74 20 54 72 61 | .local.connection..(e.g..Not.Tra |
| 1500 | 6d 70 29 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 0a 20 20 3a | mp)"...:group.'dired-sidebar...: |
| 1520 | 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 20 61 73 63 69 69 29 0a 20 20 20 20 | type.'(choice.(const.ascii)..... |
| 1540 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 69 63 6f 6e 73 29 0a 20 20 20 20 20 | .............(const.icons)...... |
| 1560 | 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 6e 65 72 64 29 0a 20 20 20 20 20 20 20 | ............(const.nerd)........ |
| 1580 | 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 6e 6f 6e 65 29 0a 20 20 20 20 20 20 20 20 20 | ..........(const.none).......... |
| 15a0 | 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 76 73 63 6f 64 65 29 29 29 0a 0a 28 64 65 66 63 75 | ........(const.vscode)))..(defcu |
| 15c0 | 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 64 74 68 20 33 35 0a 20 20 22 57 | stom.dired-sidebar-width.35..."W |
| 15e0 | 69 64 74 68 20 6f 66 20 74 68 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 | idth.of.the.`dired-sidebar'.buff |
| 1600 | 65 72 2e 0a 54 68 69 73 20 6f 70 74 69 6f 6e 20 64 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 65 66 | er..This.option.does.not.have.ef |
| 1620 | 66 65 63 74 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 73 69 7a 65 2d 6f 6e | fect.if.`dired-sidebar-resize-on |
| 1640 | 2d 6f 70 65 6e 27 20 69 73 20 6e 69 6c 2e 0a 49 66 20 79 6f 75 20 73 65 74 20 60 64 69 72 65 64 | -open'.is.nil..If.you.set.`dired |
| 1660 | 2d 73 69 64 65 62 61 72 2d 72 65 73 69 7a 65 2d 6f 6e 2d 6f 70 65 6e 27 20 74 6f 20 6e 69 6c 2c | -sidebar-resize-on-open'.to.nil, |
| 1680 | 20 79 6f 75 20 63 61 6e 20 63 75 73 74 6f 6d 69 7a 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | .you.can.customize.`dired-sideba |
| 16a0 | 72 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 27 0a 74 6f 20 63 6f 6e 74 72 6f 6c 20 74 68 65 20 | r-display-alist'.to.control.the. |
| 16c0 | 77 69 64 74 68 20 61 6e 79 77 61 79 2e 22 0a 20 20 3a 74 79 70 65 20 27 69 6e 74 65 67 65 72 0a | width.anyway."...:type.'integer. |
| 16e0 | 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 | ..:group.'dired-sidebar)..(defcu |
| 1700 | 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 6e 64 6f 77 2d 66 69 78 65 64 20 | stom.dired-sidebar-window-fixed. |
| 1720 | 27 77 69 64 74 68 0a 20 20 22 57 68 65 74 68 65 72 20 74 68 65 20 77 69 64 74 68 20 6f 72 20 68 | 'width..."Whether.the.width.or.h |
| 1740 | 65 69 67 68 74 20 6f 66 20 74 68 65 20 73 69 64 65 62 61 72 20 77 69 6e 64 6f 77 20 73 68 6f 75 | eight.of.the.sidebar.window.shou |
| 1760 | 6c 64 20 62 65 20 66 69 78 65 64 20 28 74 6f 20 70 72 65 76 65 6e 74 20 66 72 6f 6d 20 72 65 73 | ld.be.fixed.(to.prevent.from.res |
| 1780 | 69 7a 69 6e 67 29 2e 22 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 63 65 20 28 63 6f 6e 73 74 | izing)."...:type.'(choice.(const |
| 17a0 | 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 77 69 | .nil)..................(const.wi |
| 17c0 | 64 74 68 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 68 65 69 | dth)..................(const.hei |
| 17e0 | 67 68 74 29 29 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a | ght))...:group.'dired-sidebar).. |
| 1800 | 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 | (defcustom.dired-sidebar-refresh |
| 1820 | 2d 6f 6e 2d 70 72 6f 6a 65 63 74 2d 73 77 69 74 63 68 20 74 0a 20 20 22 52 65 66 72 65 73 68 20 | -on-project-switch.t..."Refresh. |
| 1840 | 73 69 64 65 62 61 72 20 77 68 65 6e 20 60 70 72 6f 6a 65 63 74 69 6c 65 27 20 6f 72 20 60 70 72 | sidebar.when.`projectile'.or.`pr |
| 1860 | 6f 6a 65 63 74 27 20 63 68 61 6e 67 65 73 20 70 72 6f 6a 65 63 74 73 2e 22 0a 20 20 3a 74 79 70 | oject'.changes.projects."...:typ |
| 1880 | 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 | e.'boolean...:group.'dired-sideb |
| 18a0 | 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 | ar)..(defcustom.dired-sidebar-sh |
| 18c0 | 6f 75 6c 64 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 20 6e 69 6c 0a 20 20 22 52 65 66 72 65 73 68 20 | ould-follow-file.nil..."Refresh. |
| 18e0 | 73 69 64 65 62 61 72 20 74 6f 20 6d 61 74 63 68 20 63 75 72 72 65 6e 74 20 66 69 6c 65 2e 22 0a | sidebar.to.match.current.file.". |
| 1900 | 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 | ..:type.'boolean...:group.'dired |
| 1920 | 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 | -sidebar)..(defcustom.dired-side |
| 1940 | 62 61 72 2d 73 6b 69 70 2d 73 75 62 74 72 65 65 2d 70 61 72 65 6e 74 20 74 0a 20 20 22 57 68 65 | bar-skip-subtree-parent.t..."Whe |
| 1960 | 74 68 65 72 20 74 6f 20 73 6b 69 70 20 73 75 62 74 72 65 65 20 70 61 72 65 6e 74 20 64 69 72 65 | ther.to.skip.subtree.parent.dire |
| 1980 | 63 74 6f 72 79 20 77 68 65 6e 20 6a 75 6d 70 69 6e 67 20 75 70 2e 22 0a 20 20 3a 74 79 70 65 20 | ctory.when.jumping.up."...:type. |
| 19a0 | 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 | 'boolean...:group.'dired-sidebar |
| 19c0 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f 70 2d | )..(defcustom.dired-sidebar-pop- |
| 19e0 | 74 6f 2d 73 69 64 65 62 61 72 2d 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 20 74 0a 20 20 22 57 | to-sidebar-on-toggle-open.t..."W |
| 1a00 | 68 65 74 68 65 72 20 74 6f 20 6a 75 6d 70 20 74 6f 20 73 69 64 65 62 61 72 20 75 70 6f 6e 20 74 | hether.to.jump.to.sidebar.upon.t |
| 1a20 | 6f 67 67 6c 69 6e 67 20 6f 70 65 6e 2e 0a 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 69 6e 20 63 | oggling.open...This.is.used.in.c |
| 1a40 | 6f 6e 6a 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 | onjunction.with.`dired-sidebar-t |
| 1a60 | 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 | oggle-sidebar'."...:type.'boolea |
| 1a80 | 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 | n...:group.'dired-sidebar)..(def |
| 1aa0 | 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 | custom.dired-sidebar-follow-file |
| 1ac0 | 2d 61 74 2d 70 6f 69 6e 74 2d 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 20 74 0a 20 20 22 57 68 | -at-point-on-toggle-open.t..."Wh |
| 1ae0 | 65 74 68 65 72 20 74 6f 20 72 65 63 75 72 73 69 76 65 6c 79 20 63 79 63 6c 65 20 74 68 65 20 73 | ether.to.recursively.cycle.the.s |
| 1b00 | 75 62 74 72 65 65 20 61 6e 64 20 70 75 74 20 70 6f 69 6e 74 20 6f 6e 20 66 69 6c 65 2e 0a 0a 53 | ubtree.and.put.point.on.file...S |
| 1b20 | 69 6d 69 6c 61 72 20 74 6f 20 60 64 69 72 65 64 2d 6a 75 6d 70 27 2e 20 20 54 68 69 73 20 6d 6f | imilar.to.`dired-jump'...This.mo |
| 1b40 | 76 65 73 20 70 6f 69 6e 74 20 69 6e 73 69 64 65 20 73 69 64 65 62 61 72 20 62 75 66 66 65 72 0a | ves.point.inside.sidebar.buffer. |
| 1b60 | 74 6f 20 77 68 65 72 65 20 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 2d 66 69 6c 65 20 69 73 20 | to.where.current-buffer-file.is. |
| 1b80 | 5c 28 69 66 20 69 74 20 65 78 69 73 74 73 5c 29 20 62 75 74 20 64 6f 65 73 20 6e 6f 74 20 6e 65 | \(if.it.exists\).but.does.not.ne |
| 1ba0 | 63 65 73 73 61 72 69 6c 79 0a 73 65 6c 65 63 74 20 74 68 65 20 73 69 64 65 62 61 72 20 77 69 6e | cessarily.select.the.sidebar.win |
| 1bc0 | 64 6f 77 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 | dow."...:type.'boolean...:group. |
| 1be0 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 | 'dired-sidebar)..(defcustom.dire |
| 1c00 | 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6d 61 67 69 74 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 | d-sidebar-use-magit-integration. |
| 1c20 | 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 69 6e 74 65 67 72 61 74 65 20 77 69 74 68 20 60 | t..."Whether.to.integrate.with.` |
| 1c40 | 6d 61 67 69 74 2d 6d 6f 64 65 27 2e 0a 0a 57 68 65 6e 20 74 72 75 65 3a 0a 0a 57 68 65 6e 20 66 | magit-mode'...When.true:..When.f |
| 1c60 | 69 6e 64 69 6e 67 20 66 69 6c 65 20 74 6f 20 70 6f 69 6e 74 20 61 74 20 66 6f 72 0a 60 64 69 72 | inding.file.to.point.at.for.`dir |
| 1c80 | 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 2d | ed-sidebar-follow-file-at-point- |
| 1ca0 | 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 27 2c 20 75 73 65 20 66 69 6c 65 20 61 74 20 70 6f 69 | on-toggle-open',.use.file.at.poi |
| 1cc0 | 6e 74 0a 69 6e 20 60 6d 61 67 69 74 27 20 62 75 66 66 65 72 2e 0a 0a 57 68 65 6e 20 66 69 6e 64 | nt.in.`magit'.buffer...When.find |
| 1ce0 | 69 6e 67 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 69 64 65 62 61 72 2c 20 | ing.root.directory.for.sidebar,. |
| 1d00 | 75 73 65 20 64 69 72 65 63 74 6f 72 79 20 73 70 65 63 69 66 69 65 64 20 62 79 20 60 6d 61 67 69 | use.directory.specified.by.`magi |
| 1d20 | 74 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 | t'."...:type.'boolean...:group.' |
| 1d40 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 | dired-sidebar)..(defcustom.dired |
| 1d60 | 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 74 65 72 6d 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 6e 69 | -sidebar-use-term-integration.ni |
| 1d80 | 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 69 6e 74 65 67 72 61 74 65 20 77 69 74 68 20 60 | l..."Whether.to.integrate.with.` |
| 1da0 | 74 65 72 6d 2d 6d 6f 64 65 27 2e 0a 0a 57 68 65 6e 20 74 72 75 65 3a 0a 0a 57 68 65 6e 20 66 69 | term-mode'...When.true:..When.fi |
| 1dc0 | 6e 64 69 6e 67 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 20 66 6f 72 20 73 69 64 65 62 61 72 | nding.root.directory.for.sidebar |
| 1de0 | 2c 20 75 73 65 20 50 57 44 20 6f 66 20 60 74 65 72 6d 2d 6d 6f 64 65 27 2e 20 54 68 69 73 20 69 | ,.use.PWD.of.`term-mode'..This.i |
| 1e00 | 73 20 74 75 72 6e 65 64 0a 6f 66 66 20 62 79 20 64 65 66 61 75 6c 74 20 64 75 65 20 74 6f 20 74 | s.turned.off.by.default.due.to.t |
| 1e20 | 68 65 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 20 6e 61 74 75 72 65 20 6f 66 20 67 65 74 74 69 6e | he.experimental.nature.of.gettin |
| 1e40 | 67 20 74 68 65 20 50 57 44 20 66 72 6f 6d 20 74 68 65 0a 74 65 72 6d 69 6e 61 6c 2e 0a 0a 4c 6f | g.the.PWD.from.the.terminal...Lo |
| 1e60 | 6f 6b 20 61 74 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 65 72 6d 2d 67 65 74 2d 70 77 | ok.at.`dired-sidebar-term-get-pw |
| 1e80 | 64 27 20 66 6f 72 20 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 | d'.for.implementation."...:type. |
| 1ea0 | 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 | 'boolean...:group.'dired-sidebar |
| 1ec0 | 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d | )..(defcustom.dired-sidebar-use- |
| 1ee0 | 77 64 69 72 65 64 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 | wdired-integration.t..."Whether. |
| 1f00 | 74 6f 20 69 6e 74 65 67 72 61 74 65 20 77 69 74 68 20 60 77 64 69 72 65 64 27 2e 22 0a 20 20 3a | to.integrate.with.`wdired'."...: |
| 1f20 | 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 | type.'boolean...:group.'dired-si |
| 1f40 | 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 | debar)..(defcustom.dired-sidebar |
| 1f60 | 2d 63 79 63 6c 65 2d 73 75 62 74 72 65 65 2d 6f 6e 2d 63 6c 69 63 6b 20 74 0a 20 20 22 57 68 65 | -cycle-subtree-on-click.t..."Whe |
| 1f80 | 74 68 65 72 20 74 6f 20 63 79 63 6c 65 20 73 75 62 74 72 65 65 20 6f 6e 20 63 6c 69 63 6b 2e 22 | ther.to.cycle.subtree.on.click." |
| 1fa0 | 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 | ...:type.'boolean...:group.'dire |
| 1fc0 | 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 | d-sidebar)..(defcustom.dired-sid |
| 1fe0 | 65 62 61 72 2d 64 65 6c 61 79 2d 61 75 74 6f 2d 72 65 76 65 72 74 2d 75 70 64 61 74 65 73 20 74 | ebar-delay-auto-revert-updates.t |
| 2000 | 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 64 65 6c 61 79 20 61 75 74 6f 6d 61 74 69 63 61 6c | ..."Whether.to.delay.automatical |
| 2020 | 6c 79 20 72 65 76 65 72 74 69 6e 67 20 62 75 66 66 65 72 2e 0a 0a 57 68 65 6e 20 74 72 75 65 2c | ly.reverting.buffer...When.true, |
| 2040 | 20 6f 6e 6c 79 20 61 6c 6c 6f 77 20 66 75 6e 63 74 69 6f 6e 20 60 61 75 74 6f 2d 72 65 76 65 72 | .only.allow.function.`auto-rever |
| 2060 | 74 2d 6d 6f 64 65 27 20 74 6f 20 75 70 64 61 74 65 20 65 76 65 72 79 0a 60 64 69 72 64 2d 73 69 | t-mode'.to.update.every.`dird-si |
| 2080 | 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 2d 69 64 6c 65 2d 64 65 6c | debar-stale-buffer-time-idle-del |
| 20a0 | 61 79 27 20 73 65 63 6f 6e 64 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 | ay'.seconds."...:type.'boolean.. |
| 20c0 | 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 | .:group.'dired-sidebar)..(defcus |
| 20e0 | 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 | tom.dired-sidebar-stale-buffer-t |
| 2100 | 69 6d 65 2d 69 64 6c 65 2d 64 65 6c 61 79 20 31 2e 35 0a 20 20 22 54 68 65 20 74 69 6d 65 20 69 | ime-idle-delay.1.5..."The.time.i |
| 2120 | 6e 20 69 64 6c 65 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63 68 | n.idle.seconds.to.wait.before.ch |
| 2140 | 65 63 6b 69 6e 67 20 69 66 20 62 75 66 66 65 72 20 69 73 20 73 74 61 6c 65 2e 22 0a 20 20 3a 74 | ecking.if.buffer.is.stale."...:t |
| 2160 | 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 | ype.'number...:group.'dired-side |
| 2180 | 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | bar)..(defcustom.dired-sidebar-f |
| 21a0 | 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 69 64 6c 65 2d 64 65 6c 61 79 20 32 0a 20 20 22 54 68 65 20 74 | ollow-file-idle-delay.2..."The.t |
| 21c0 | 69 6d 65 20 69 6e 20 69 64 6c 65 20 73 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f | ime.in.idle.seconds.to.wait.befo |
| 21e0 | 72 65 20 63 68 65 63 6b 69 6e 67 20 69 66 20 73 69 64 65 62 61 72 20 73 68 6f 75 6c 64 0a 66 6f | re.checking.if.sidebar.should.fo |
| 2200 | 6c 6c 6f 77 20 66 69 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 3a 67 | llow.file."...:type.'number...:g |
| 2220 | 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d | roup.'dired-sidebar)..(defcustom |
| 2240 | 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 74 65 2d 64 65 6c 61 79 20 | .dired-sidebar-tui-update-delay. |
| 2260 | 30 2e 30 32 0a 20 20 22 54 68 65 20 74 69 6d 65 20 69 6e 20 69 64 6c 65 20 73 65 63 6f 6e 64 73 | 0.02..."The.time.in.idle.seconds |
| 2280 | 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 75 70 64 61 74 69 6e 67 20 74 75 69 20 69 6e 74 | .to.wait.before.updating.tui.int |
| 22a0 | 65 72 66 61 63 65 2e 0a 0a 54 68 69 73 20 6f 6e 6c 79 20 74 61 6b 65 73 20 65 66 66 65 63 74 20 | erface...This.only.takes.effect. |
| 22c0 | 69 66 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 27 20 69 73 20 64 69 73 61 | if.`all-the-icons-dired'.is.disa |
| 22e0 | 62 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 3a 67 72 6f 75 70 20 | bled."...:type.'number...:group. |
| 2300 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 | 'dired-sidebar)..(defcustom.dire |
| 2320 | 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 6f 6e 2d 73 70 65 63 69 61 6c 2d 63 6f 6d | d-sidebar-refresh-on-special-com |
| 2340 | 6d 61 6e 64 73 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 74 72 69 | mands.t..."Whether.or.not.to.tri |
| 2360 | 67 67 65 72 20 61 75 74 6f 2d 72 65 76 65 72 74 20 61 66 74 65 72 20 63 65 72 74 61 69 6e 20 66 | gger.auto-revert.after.certain.f |
| 2380 | 75 6e 63 74 69 6f 6e 73 2e 0a 0a 57 61 72 6e 69 6e 67 3a 20 54 68 69 73 20 69 73 20 69 6d 70 6c | unctions...Warning:.This.is.impl |
| 23a0 | 65 6d 65 6e 74 65 64 20 62 79 20 61 64 76 69 73 69 6e 67 20 73 70 65 63 69 66 69 63 20 64 69 72 | emented.by.advising.specific.dir |
| 23c0 | 65 64 20 66 75 6e 63 74 69 6f 6e 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a | ed.functions."...:type.'boolean. |
| 23e0 | 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 | ..:group.'dired-sidebar)..(defcu |
| 2400 | 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 61 62 6c 65 2d 64 69 72 65 64 | stom.dired-sidebar-disable-dired |
| 2420 | 2d 63 6f 6c 6c 61 70 73 65 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f | -collapse.t..."Whether.or.not.to |
| 2440 | 20 64 69 73 61 62 6c 65 20 60 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 27 20 69 66 20 69 74 27 | .disable.`dired-collapse'.if.it' |
| 2460 | 73 20 65 6e 61 62 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a | s.enabled."...:type.'boolean...: |
| 2480 | 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f | group.'dired-sidebar)..(defcusto |
| 24a0 | 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 70 65 63 69 61 6c 2d 72 65 66 72 65 73 68 2d | m.dired-sidebar-special-refresh- |
| 24c0 | 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 64 69 72 65 64 2d 64 6f 2d 64 65 6c 65 74 65 0a 20 20 20 | commands...'(dired-do-delete.... |
| 24e0 | 20 64 69 72 65 64 2d 64 6f 2d 72 65 6e 61 6d 65 0a 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 63 6f | .dired-do-rename.....dired-do-co |
| 2500 | 70 79 0a 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 66 6c 61 67 67 65 64 2d 64 65 6c 65 74 65 0a 20 | py.....dired-do-flagged-delete.. |
| 2520 | 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 0a 20 20 20 20 28 64 | ...dired-create-directory.....(d |
| 2540 | 65 6c 65 74 65 2d 66 69 6c 65 20 2e 20 35 29 0a 20 20 20 20 28 73 61 76 65 2d 62 75 66 66 65 72 | elete-file...5).....(save-buffer |
| 2560 | 20 2e 20 35 29 0a 20 20 20 20 6d 61 67 69 74 2d 66 6f 72 6d 61 74 2d 70 61 74 63 68 29 0a 20 20 | ...5).....magit-format-patch)... |
| 2580 | 22 41 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 77 69 6c 6c 20 74 72 | "A.list.of.commands.that.will.tr |
| 25a0 | 69 67 67 65 72 20 61 20 72 65 66 72 65 73 68 20 6f 66 20 74 68 65 20 73 69 64 65 62 61 72 2e 0a | igger.a.refresh.of.the.sidebar.. |
| 25c0 | 0a 54 68 65 20 63 6f 6d 6d 61 6e 64 20 63 61 6e 20 62 65 20 61 6e 20 61 6c 69 73 74 20 77 69 74 | .The.command.can.be.an.alist.wit |
| 25e0 | 68 20 74 68 65 20 43 44 52 20 6f 66 20 74 68 65 20 61 6c 69 73 74 20 62 65 69 6e 67 20 74 68 65 | h.the.CDR.of.the.alist.being.the |
| 2600 | 20 61 6d 6f 75 6e 74 20 6f 66 20 74 69 6d 65 0a 74 6f 20 77 61 69 74 20 74 6f 20 72 65 66 72 65 | .amount.of.time.to.wait.to.refre |
| 2620 | 73 68 20 74 68 65 20 73 69 64 65 62 61 72 20 61 66 74 65 72 20 74 68 65 20 43 41 52 20 6f 66 20 | sh.the.sidebar.after.the.CAR.of. |
| 2640 | 74 68 65 20 61 6c 69 73 74 20 69 73 20 63 61 6c 6c 65 64 2e 0a 0a 53 65 74 20 74 68 69 73 20 74 | the.alist.is.called...Set.this.t |
| 2660 | 6f 20 6e 69 6c 20 6f 72 20 73 65 74 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 | o.nil.or.set.`dired-sidebar-refr |
| 2680 | 65 73 68 2d 6f 6e 2d 73 70 65 63 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 27 20 74 6f 20 6e 69 6c 0a | esh-on-special-commands'.to.nil. |
| 26a0 | 74 6f 20 64 69 73 61 62 6c 65 20 61 75 74 6f 6d 61 74 69 63 20 72 65 66 72 65 73 68 20 77 68 65 | to.disable.automatic.refresh.whe |
| 26c0 | 6e 20 61 20 73 70 65 63 69 61 6c 20 63 6f 6d 6d 61 6e 64 20 69 73 20 74 72 69 67 67 65 72 65 64 | n.a.special.command.is.triggered |
| 26e0 | 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 74 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 | ."...:type.'list...:group.'dired |
| 2700 | 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 | -sidebar)..(defcustom.dired-side |
| 2720 | 62 61 72 2d 74 6f 67 67 6c 65 2d 68 69 64 64 65 6e 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 62 | bar-toggle-hidden-commands...'(b |
| 2740 | 61 6c 61 6e 63 65 2d 77 69 6e 64 6f 77 73 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 63 6f 6d | alance-windows)..."A.list.of.com |
| 2760 | 6d 61 6e 64 73 20 74 68 61 74 20 77 6f 6e 27 74 20 77 6f 72 6b 20 77 68 65 6e 20 60 64 69 72 65 | mands.that.won't.work.when.`dire |
| 2780 | 64 2d 73 69 64 65 62 61 72 27 20 69 73 20 76 69 73 69 62 6c 65 2e 0a 0a 57 68 65 6e 20 74 68 65 | d-sidebar'.is.visible...When.the |
| 27a0 | 20 63 6f 6d 6d 61 6e 64 20 69 73 20 74 72 69 67 67 65 72 65 64 2c 20 60 64 69 72 65 64 2d 73 69 | .command.is.triggered,.`dired-si |
| 27c0 | 64 65 62 61 72 27 20 77 69 6c 6c 20 68 69 64 65 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 75 6e 74 | debar'.will.hide.temporarily.unt |
| 27e0 | 69 6c 0a 63 6f 6d 6d 61 6e 64 20 69 73 20 63 6f 6d 70 6c 65 74 65 64 2e 0a 0a 54 68 69 73 20 66 | il.command.is.completed...This.f |
| 2800 | 75 6e 63 74 69 6f 6e 61 6c 69 74 79 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 75 73 69 6e | unctionality.is.implemented.usin |
| 2820 | 67 20 61 64 76 69 63 65 2e 0a 0a 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 20 74 6f 20 64 69 | g.advice...Set.this.to.nil.to.di |
| 2840 | 73 61 62 6c 65 20 74 68 69 73 20 61 64 76 69 63 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 | sable.this.advice."...:type.'lis |
| 2860 | 74 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 | t...:group.'dired-sidebar)..(def |
| 2880 | 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 74 65 72 6e 61 74 65 2d 73 | custom.dired-sidebar-alternate-s |
| 28a0 | 65 6c 65 63 74 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 23 27 64 69 72 65 64 2d | elect-window-function...#'dired- |
| 28c0 | 73 69 64 65 62 61 72 2d 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 6e 61 74 65 2d 73 65 6c 65 63 74 | sidebar-default-alternate-select |
| 28e0 | 2d 77 69 6e 64 6f 77 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 77 68 65 6e | -window..."Function.to.call.when |
| 2900 | 20 75 73 69 6e 67 20 61 6c 74 65 72 6e 61 74 69 76 65 20 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 | .using.alternative.window.select |
| 2920 | 69 6f 6e 2e 0a 0a 41 6c 74 65 72 6e 61 74 69 76 65 20 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 69 | ion...Alternative.window.selecti |
| 2940 | 6f 6e 20 69 73 20 75 73 65 64 20 77 68 65 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | on.is.used.when.`dired-sidebar-f |
| 2960 | 69 6e 64 2d 66 69 6c 65 27 20 69 73 20 63 61 6c 6c 65 64 0a 77 69 74 68 20 61 20 70 72 65 66 69 | ind-file'.is.called.with.a.prefi |
| 2980 | 78 20 61 72 67 20 6f 72 20 77 68 65 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e | x.arg.or.when.`dired-sidebar-fin |
| 29a0 | 64 2d 66 69 6c 65 2d 61 6c 74 27 20 69 73 20 63 61 6c 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 | d-file-alt'.is.called."...:type. |
| 29c0 | 27 66 75 6e 63 74 69 6f 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 | 'function...:group.'dired-sideba |
| 29e0 | 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 63 | r)..(defcustom.dired-sidebar-rec |
| 2a00 | 65 6e 74 65 72 2d 63 75 72 73 6f 72 2d 6f 6e 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 20 74 0a 20 20 | enter-cursor-on-follow-file.t... |
| 2a20 | 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 63 65 6e 74 65 72 20 63 75 72 73 6f 72 | "Whether.or.not.to.center.cursor |
| 2a40 | 20 77 68 65 6e 20 70 6f 69 6e 74 69 6e 67 20 61 74 20 66 69 6c 65 2e 22 0a 20 20 3a 74 79 70 65 | .when.pointing.at.file."...:type |
| 2a60 | 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 | .'boolean...:group.'dired-sideba |
| 2a80 | 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 73 | r)..(defcustom.dired-sidebar-res |
| 2aa0 | 69 7a 65 2d 6f 6e 2d 6f 70 65 6e 20 74 0a 20 20 22 57 68 65 6e 20 64 69 72 65 64 20 73 69 64 65 | ize-on-open.t..."When.dired.side |
| 2ac0 | 62 61 72 20 77 69 6e 64 6f 77 20 69 73 20 73 68 6f 77 65 64 2c 20 61 75 74 6f 6d 61 74 69 63 61 | bar.window.is.showed,.automatica |
| 2ae0 | 6c 6c 79 20 61 64 6a 75 73 74 20 69 74 73 20 77 69 64 74 68 20 61 63 63 6f 72 64 69 6e 67 20 74 | lly.adjust.its.width.according.t |
| 2b00 | 6f 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 64 74 68 27 22 0a 20 20 3a 74 79 70 65 | o.`dired-sidebar-width'"...:type |
| 2b20 | 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 | .'boolean...:group.'dired-sideba |
| 2b40 | 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 63 | r)..(defcustom.dired-sidebar-rec |
| 2b60 | 65 6e 74 65 72 2d 63 75 72 73 6f 72 2d 6f 6e 2d 74 75 69 2d 75 70 64 61 74 65 20 6e 69 6c 0a 20 | enter-cursor-on-tui-update.nil.. |
| 2b80 | 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 63 65 6e 74 65 72 20 63 75 72 73 6f | ."Whether.or.not.to.center.curso |
| 2ba0 | 72 20 77 68 65 6e 20 75 70 64 61 74 69 6e 67 20 74 75 69 20 69 6e 74 65 72 66 61 63 65 2e 22 0a | r.when.updating.tui.interface.". |
| 2bc0 | 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 | ..:type.'boolean...:group.'dired |
| 2be0 | 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 | -sidebar)..(defcustom.dired-side |
| 2c00 | 62 61 72 2d 64 69 73 70 6c 61 79 2d 61 75 74 6f 72 65 76 65 72 74 2d 6d 65 73 73 61 67 65 73 20 | bar-display-autorevert-messages. |
| 2c20 | 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 64 69 73 70 6c 61 79 | nil..."Whether.or.not.to.display |
| 2c40 | 20 60 61 75 74 6f 72 65 76 65 72 74 27 20 6d 65 73 73 61 67 65 73 2e 22 0a 20 20 3a 74 79 70 65 | .`autorevert'.messages."...:type |
| 2c60 | 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 | .'boolean...:group.'dired-sideba |
| 2c80 | 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6f 70 65 | r)..(defcustom.dired-sidebar-ope |
| 2ca0 | 6e 2d 66 69 6c 65 2d 69 6e 2d 6d 6f 73 74 2d 72 65 63 65 6e 74 6c 79 2d 75 73 65 64 2d 77 69 6e | n-file-in-most-recently-used-win |
| 2cc0 | 64 6f 77 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 6f 70 65 6e 20 | dow.t..."Whether.or.not.to.open. |
| 2ce0 | 66 69 6c 65 73 20 69 6e 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 75 73 65 64 20 77 69 6e 64 | files.in.most.recently.used.wind |
| 2d00 | 6f 77 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 | ow."...:type.'boolean...:group.' |
| 2d20 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 | dired-sidebar)..(defcustom.dired |
| 2d40 | 2d 73 69 64 65 62 61 72 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 | -sidebar-subtree-line-prefix.dir |
| 2d60 | 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 22 54 68 65 20 6c 69 | ed-subtree-line-prefix..."The.li |
| 2d80 | 6e 65 20 70 72 65 66 69 78 20 74 6f 20 75 73 65 20 77 68 65 6e 20 73 75 62 74 72 65 65 20 69 73 | ne.prefix.to.use.when.subtree.is |
| 2da0 | 20 63 79 63 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f | .cycled."...:type.'string...:gro |
| 2dc0 | 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 | up.'dired-sidebar)..(defcustom.d |
| 2de0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 20 27 28 28 73 69 | ired-sidebar-display-alist.'((si |
| 2e00 | 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 41 6c 69 73 74 | de...left).(slot...-1))..."Alist |
| 2e20 | 20 75 73 65 64 20 69 6e 20 60 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 69 6e 2d 73 69 64 65 | .used.in.`display-buffer-in-side |
| 2e40 | 2d 77 69 6e 64 6f 77 27 2e 0a 0a 65 2e 67 2e 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d | -window'...e.g..(display-buffer- |
| 2e60 | 69 6e 2d 73 69 64 65 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 20 27 28 28 73 69 64 65 20 2e 20 | in-side-window.buffer.'((side... |
| 2e80 | 6c 65 66 74 29 20 28 73 6c 6f 74 20 2e 20 2d 31 29 29 29 22 0a 20 20 3a 74 79 70 65 20 27 61 6c | left).(slot...-1)))"...:type.'al |
| 2ea0 | 69 73 74 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 | ist...:group.'dired-sidebar)..(d |
| 2ec0 | 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 6c 6f 73 65 2d 73 69 64 | efcustom.dired-sidebar-close-sid |
| 2ee0 | 65 62 61 72 2d 6f 6e 2d 66 69 6c 65 2d 6f 70 65 6e 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 | ebar-on-file-open.nil..."Whether |
| 2f00 | 20 6f 72 20 6e 6f 74 20 74 6f 20 63 6c 6f 73 65 20 73 69 64 65 62 61 72 20 77 68 65 6e 20 60 64 | .or.not.to.close.sidebar.when.`d |
| 2f20 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 27 20 69 73 20 63 61 6c 6c 65 | ired-sidebar-find-file'.is.calle |
| 2f40 | 64 2e 0a 0a 54 68 69 73 20 62 65 68 61 76 69 6f 72 20 6f 6e 6c 79 20 74 72 69 67 67 65 72 73 20 | d...This.behavior.only.triggers. |
| 2f60 | 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 27 20 69 73 20 | if.`dired-sidebar-find-file'.is. |
| 2f80 | 74 72 69 67 67 65 72 65 64 20 6f 6e 0a 61 20 66 69 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 | triggered.on.a.file."...:type.'b |
| 2fa0 | 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a | oolean...:group.'dired-sidebar). |
| 2fc0 | 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 63 6f 6e 2d 73 | .(defcustom.dired-sidebar-icon-s |
| 2fe0 | 63 61 6c 65 20 2e 31 38 0a 20 20 22 54 68 65 20 73 63 61 6c 65 20 6f 66 20 69 63 6f 6e 73 20 5c | cale..18..."The.scale.of.icons.\ |
| 3000 | 28 63 75 72 72 65 6e 74 6c 79 20 6f 6e 6c 79 20 61 70 70 6c 69 65 73 20 74 6f 20 76 73 63 6f 64 | (currently.only.applies.to.vscod |
| 3020 | 65 20 74 68 65 6d 65 2e 5c 29 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d 62 65 72 0a 20 20 3a | e.theme.\)."...:type.'number...: |
| 3040 | 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f | group.'dired-sidebar)..(defcusto |
| 3060 | 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6e 6f 2d 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d | m.dired-sidebar-no-delete-other- |
| 3080 | 77 69 6e 64 6f 77 73 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f | windows.nil..."Whether.or.not.to |
| 30a0 | 20 61 64 64 20 60 6e 6f 2d 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 27 20 70 61 | .add.`no-delete-other-window'.pa |
| 30c0 | 72 61 6d 65 74 65 72 20 74 6f 20 77 69 6e 64 6f 77 2e 0a 0a 49 66 20 74 68 69 73 20 69 73 20 74 | rameter.to.window...If.this.is.t |
| 30e0 | 72 75 65 2c 20 77 68 65 6e 20 63 61 6c 6c 69 6e 67 20 60 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d | rue,.when.calling.`delete-other- |
| 3100 | 77 69 6e 64 6f 77 73 27 2c 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 77 69 6e 64 6f 77 | windows',.`dired-sidebar'.window |
| 3120 | 0a 77 69 6c 6c 20 63 6f 6e 74 69 6e 75 65 20 73 68 6f 77 69 6e 67 2e 0a 0a 46 6f 72 20 6d 6f 72 | .will.continue.showing...For.mor |
| 3140 | 65 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 2c 20 6c 6f 6f 6b 20 75 70 20 60 64 65 6c 65 74 65 2d 6f | e.information,.look.up.`delete-o |
| 3160 | 74 68 65 72 2d 77 69 6e 64 6f 77 73 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | ther-windows'."...:type.'boolean |
| 3180 | 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 0a 28 64 65 66 | ...:group.'dired-sidebar)...(def |
| 31a0 | 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6f 6e 65 2d 69 6e 73 | custom.dired-sidebar-use-one-ins |
| 31c0 | 74 61 6e 63 65 20 6e 69 6c 0a 20 20 22 4f 6e 6c 79 20 73 68 6f 77 20 6f 6e 65 20 62 75 66 66 65 | tance.nil..."Only.show.one.buffe |
| 31e0 | 72 20 69 6e 73 74 61 6e 63 65 20 66 6f 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 20 66 6f 72 | r.instance.for.dired-sidebar.for |
| 3200 | 20 65 61 63 68 20 66 72 61 6d 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 | .each.frame."...:type.'boolean.. |
| 3220 | 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 28 64 65 66 63 75 73 | .:group.'dired-sidebar)..(defcus |
| 3240 | 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 72 65 6d 6f 74 65 | tom.dired-sidebar-display-remote |
| 3260 | 2d 69 63 6f 6e 73 20 6e 69 6c 0a 20 20 22 53 68 6f 77 20 69 63 6f 6e 73 20 66 6f 72 20 72 65 6d | -icons.nil..."Show.icons.for.rem |
| 3280 | 6f 74 65 20 64 69 72 65 63 74 6f 72 69 65 73 2e 20 6e 69 6c 20 62 79 20 64 65 66 61 75 6c 74 20 | ote.directories..nil.by.default. |
| 32a0 | 66 6f 72 20 70 65 72 66 6f 72 6d 61 6e 63 65 20 72 65 61 73 6f 6e 73 2e 22 0a 20 20 3a 74 79 70 | for.performance.reasons."...:typ |
| 32c0 | 65 20 27 62 6f 6f 6c 65 61 6e 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 | e.'boolean...:group.'dired-sideb |
| 32e0 | 61 72 29 0a 0a 28 64 65 66 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 6c | ar)..(defcustom.dired-sidebar-bl |
| 3300 | 6f 63 6b 2d 69 63 6f 6e 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 73 20 27 28 61 6c 6c 2d 74 68 65 | ock-icon-display-modes.'(all-the |
| 3320 | 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 22 4c 69 73 74 20 6f 66 20 6d 6f | -icons-dired-mode)..."List.of.mo |
| 3340 | 64 65 73 20 69 6e 20 60 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 27 20 74 68 61 74 20 70 72 | des.in.`dired-mode-hook'.that.pr |
| 3360 | 65 76 65 6e 74 73 20 69 63 6f 6e 20 64 69 73 70 6c 61 79 2e 0a 0a 53 65 65 20 68 74 74 70 73 3a | events.icon.display...See.https: |
| 3380 | 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 | //github.com/jojojames/dired-sid |
| 33a0 | 65 62 61 72 2f 69 73 73 75 65 73 2f 34 33 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 74 0a 20 | ebar/issues/43."...:type.'list.. |
| 33c0 | 20 3a 67 72 6f 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 0a 3b 3b 20 49 6e 74 65 | .:group.'dired-sidebar)..;;.Inte |
| 33e0 | 72 6e 61 6c 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 61 73 65 | rnal..(defvar.dired-sidebar-base |
| 3400 | 64 69 72 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 6c 6f 61 64 2d 66 69 | dir.(file-name-directory.load-fi |
| 3420 | 6c 65 2d 6e 61 6d 65 29 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 | le-name)..."Store.the.directory. |
| 3440 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2e 65 6c 20 77 61 73 20 6c 6f 61 64 65 64 20 66 72 6f 6d | dired-sidebar.el.was.loaded.from |
| 3460 | 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 63 6f 6e 73 | .")..(defvar.dired-sidebar-icons |
| 3480 | 2d 64 69 72 20 28 66 6f 72 6d 61 74 20 22 25 73 69 63 6f 6e 73 2f 22 20 64 69 72 65 64 2d 73 69 | -dir.(format."%sicons/".dired-si |
| 34a0 | 64 65 62 61 72 2d 62 61 73 65 64 69 72 29 0a 20 20 22 53 74 6f 72 65 20 74 68 65 20 69 63 6f 6e | debar-basedir)..."Store.the.icon |
| 34c0 | 73 20 64 69 72 65 63 74 6f 72 79 20 6f 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 22 | s.directory.of.`dired-sidebar'." |
| 34e0 | 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 69 73 74 20 27 | )..(defvar.dired-sidebar-alist.' |
| 3500 | 28 29 0a 20 20 22 41 6e 20 61 6c 69 73 74 20 74 68 61 74 20 6d 61 70 73 20 66 72 6f 6d 20 66 72 | ()..."An.alist.that.maps.from.fr |
| 3520 | 61 6d 65 20 74 6f 20 63 75 72 72 65 6e 74 6c 79 20 6f 70 65 6e 65 64 20 60 64 69 72 65 64 2d 73 | ame.to.currently.opened.`dired-s |
| 3540 | 69 64 65 62 61 72 27 20 62 75 66 66 65 72 2e 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c | idebar'.buffer.")..(defvar-local |
| 3560 | 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 | .dired-sidebar-stale-buffer-time |
| 3580 | 72 20 6e 69 6c 0a 20 20 22 54 69 6d 65 72 20 75 73 65 64 20 66 6f 72 20 73 65 74 74 69 6e 67 20 | r.nil..."Timer.used.for.setting. |
| 35a0 | 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 68 65 63 6b 2d 66 6f 72 2d 73 74 61 6c 65 2d 62 | `dired-sidebar-check-for-stale-b |
| 35c0 | 75 66 66 65 72 2d 70 27 2e 0a 0a 54 68 69 73 20 69 73 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 2e | uffer-p'...This.is.buffer.local. |
| 35e0 | 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ")..(defvar-local.dired-sidebar- |
| 3600 | 66 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 74 69 6d 65 72 20 6e 69 6c 0a 20 20 22 54 69 6d 65 72 20 75 | follow-file-timer.nil..."Timer.u |
| 3620 | 73 65 64 20 77 68 65 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 75 6c 64 2d 66 | sed.when.`dired-sidebar-should-f |
| 3640 | 6f 6c 6c 6f 77 2d 66 69 6c 65 27 20 69 73 20 74 72 75 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 2d | ollow-file'.is.true.")..(defvar- |
| 3660 | 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 68 65 63 6b 2d 66 6f 72 2d 73 74 | local.dired-sidebar-check-for-st |
| 3680 | 61 6c 65 2d 62 75 66 66 65 72 2d 70 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 63 | ale-buffer-p.nil..."Whether.to.c |
| 36a0 | 68 65 63 6b 20 69 66 20 62 75 66 66 65 72 20 69 73 20 73 74 61 6c 65 2e 0a 0a 57 68 65 6e 20 74 | heck.if.buffer.is.stale...When.t |
| 36c0 | 68 69 73 20 69 73 20 74 72 75 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 | his.is.true.`dired-sidebar-buffe |
| 36e0 | 72 2d 73 74 61 6c 65 2d 70 27 0a 77 69 6c 6c 20 63 68 65 63 6b 20 69 66 20 62 75 66 66 65 72 20 | r-stale-p'.will.check.if.buffer. |
| 3700 | 69 73 20 73 74 61 6c 65 20 74 68 72 6f 75 67 68 20 60 61 75 74 6f 2d 72 65 76 65 72 74 2d 6d 6f | is.stale.through.`auto-revert-mo |
| 3720 | 64 65 27 2e 22 29 0a 0a 3b 3b 20 4d 6f 64 65 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 65 64 | de'.")..;;.Mode..(defmacro.dired |
| 3740 | 2d 73 69 64 65 62 61 72 2d 77 69 74 68 2d 6e 6f 2d 64 65 64 69 63 61 74 69 6f 6e 20 28 26 72 65 | -sidebar-with-no-dedication.(&re |
| 3760 | 73 74 20 62 6f 64 79 29 0a 20 20 22 52 75 6e 20 42 4f 44 59 20 61 66 74 65 72 20 75 6e 64 65 64 | st.body)..."Run.BODY.after.unded |
| 3780 | 69 63 61 74 69 6e 67 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 | icating.window."...(declare.(deb |
| 37a0 | 75 67 20 28 26 72 65 73 74 20 66 6f 72 6d 29 29 29 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 | ug.(&rest.form)))...`(progn..... |
| 37c0 | 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f | .(let.((window.(get-buffer-windo |
| 37e0 | 77 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 | w.(current-buffer))))........(se |
| 3800 | 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 64 6f 77 20 6e 69 6c 29 | t-window-dedicated-p.window.nil) |
| 3820 | 0a 20 20 20 20 20 20 20 2c 40 62 6f 64 79 0a 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f | ........,@body........(set-windo |
| 3840 | 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 64 6f 77 20 74 29 29 29 29 0a 0a 28 64 65 66 | w-dedicated-p.window.t))))..(def |
| 3860 | 76 61 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 | var.dired-sidebar-mode-map...(le |
| 3880 | 74 20 28 28 6d 61 70 20 28 6d 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 | t.((map.(make-sparse-keymap))).. |
| 38a0 | 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 54 41 42 22 29 20 27 | ...(define-key.map.(kbd."TAB").' |
| 38c0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 29 0a 20 20 | dired-sidebar-subtree-toggle)... |
| 38e0 | 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 74 61 62 5d 20 27 64 69 72 65 64 2d 73 | ..(define-key.map.[tab].'dired-s |
| 3900 | 69 64 65 62 61 72 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 29 0a 20 20 20 20 28 64 65 66 69 | idebar-subtree-toggle).....(defi |
| 3920 | 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6d 22 29 20 27 64 69 72 65 64 2d 73 69 | ne-key.map.(kbd."C-m").'dired-si |
| 3940 | 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 | debar-find-file).....(define-key |
| 3960 | 20 6d 61 70 20 28 6b 62 64 20 22 52 45 54 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | .map.(kbd."RET").'dired-sidebar- |
| 3980 | 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 | find-file).....(define-key.map.( |
| 39a0 | 6b 62 64 20 22 3c 72 65 74 75 72 6e 3e 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | kbd."<return>").'dired-sidebar-f |
| 39c0 | 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5e | ind-file).....(define-key.map."^ |
| 39e0 | 22 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 | ".'dired-sidebar-up-directory).. |
| 3a00 | 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 2d 22 20 27 64 69 72 65 64 2d 73 69 | ...(define-key.map."-".'dired-si |
| 3a20 | 64 65 62 61 72 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d | debar-up-directory).....(define- |
| 3a40 | 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 43 2d 6f 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 | key.map.(kbd."C-o").'dired-sideb |
| 3a60 | 61 72 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 6c 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 | ar-find-file-alt).....(define-ke |
| 3a80 | 79 20 6d 61 70 20 5b 6d 6f 75 73 65 2d 32 5d 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d | y.map.[mouse-2].'dired-sidebar-m |
| 3aa0 | 6f 75 73 65 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 2d 6f 72 2d 66 69 6e 64 2d 66 69 6c 65 29 | ouse-subtree-cycle-or-find-file) |
| 3ac0 | 0a 20 20 20 20 6d 61 70 29 0a 20 20 22 4b 65 79 6d 61 70 20 75 73 65 64 20 66 6f 72 20 73 79 6d | .....map)..."Keymap.used.for.sym |
| 3ae0 | 62 6f 6c 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 65 | bol.`dired-sidebar-mode'.")..(de |
| 3b00 | 66 69 6e 65 2d 64 65 72 69 76 65 64 2d 6d 6f 64 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | fine-derived-mode.dired-sidebar- |
| 3b20 | 6d 6f 64 65 20 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 22 44 69 72 65 64 2d 73 69 64 65 62 61 72 | mode.dired-mode..."Dired-sidebar |
| 3b40 | 22 0a 20 20 22 41 20 6d 61 6a 6f 72 20 6d 6f 64 65 20 74 68 61 74 20 70 75 74 73 20 60 64 69 72 | "..."A.major.mode.that.puts.`dir |
| 3b60 | 65 64 27 20 69 6e 20 61 20 73 69 64 65 62 61 72 2e 22 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 | ed'.in.a.sidebar."...:group.'dir |
| 3b80 | 65 64 2d 73 69 64 65 62 61 72 0a 0a 20 20 3b 3b 20 48 61 63 6b 20 66 6f 72 20 68 74 74 70 73 3a | ed-sidebar....;;.Hack.for.https: |
| 3ba0 | 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 | //github.com/jojojames/dired-sid |
| 3bc0 | 65 62 61 72 2f 69 73 73 75 65 73 2f 31 38 2e 0a 20 20 3b 3b 20 57 6f 75 6c 64 20 62 65 20 6f 70 | ebar/issues/18....;;.Would.be.op |
| 3be0 | 65 6e 20 74 6f 20 61 20 62 65 74 74 65 72 20 66 69 78 2e 2e 2e 0a 20 20 3b 3b 20 60 64 69 72 65 | en.to.a.better.fix......;;.`dire |
| 3c00 | 64 2d 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 27 20 69 6e 20 45 6d 61 63 73 20 32 35 20 28 | d-remember-hidden'.in.Emacs.25.( |
| 3c20 | 74 65 72 6d 69 6e 61 6c 3f 29 20 73 65 65 6d 73 20 74 6f 20 74 68 72 6f 77 0a 20 20 3b 3b 20 61 | terminal?).seems.to.throw...;;.a |
| 3c40 | 6e 20 65 72 72 6f 72 20 75 70 6f 6e 20 63 61 6c 6c 69 6e 67 20 60 67 6f 74 6f 2d 63 68 61 72 27 | n.error.upon.calling.`goto-char' |
| 3c60 | 2e 0a 20 20 28 77 68 65 6e 20 28 3c 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f | ....(when.(<=.emacs-major-versio |
| 3c80 | 6e 20 32 35 29 0a 20 20 20 20 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 | n.25).....(defun.dired-sidebar-r |
| 3ca0 | 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 2d 68 61 63 6b 20 28 66 20 26 72 65 73 74 20 61 72 67 | emember-hidden-hack.(f.&rest.arg |
| 3cc0 | 73 29 0a 20 20 20 20 20 20 22 52 65 74 75 72 6e 20 6e 69 6c 20 66 6f 72 20 60 64 69 72 65 64 2d | s)......."Return.nil.for.`dired- |
| 3ce0 | 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 27 2e 0a 0a 57 6f 72 6b 73 20 61 72 6f 75 6e 64 20 | remember-hidden'...Works.around. |
| 3d00 | 6d 61 72 6b 65 72 20 70 6f 69 6e 74 69 6e 67 20 74 6f 20 77 72 6f 6e 67 20 62 75 66 66 65 72 20 | marker.pointing.to.wrong.buffer. |
| 3d20 | 69 6e 20 45 6d 61 63 73 20 32 35 2e 22 0a 20 20 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f | in.Emacs.25.".......(if.(eq.majo |
| 3d40 | 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 29 0a 20 20 20 20 | r-mode.'dired-sidebar-mode)..... |
| 3d60 | 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 | ......nil.........(apply.f.args) |
| 3d80 | 29 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 64 69 72 65 64 2d 72 65 6d | )).....(advice-remove.'dired-rem |
| 3da0 | 65 6d 62 65 72 2d 68 69 64 64 65 6e 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 6d 65 | ember-hidden.'dired-sidebar-reme |
| 3dc0 | 6d 62 65 72 2d 68 69 64 64 65 6e 2d 68 61 63 6b 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 | mber-hidden-hack).....(advice-ad |
| 3de0 | 64 20 27 64 69 72 65 64 2d 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 20 3a 61 72 6f 75 6e 64 | d.'dired-remember-hidden.:around |
| 3e00 | 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 2d | .'dired-sidebar-remember-hidden- |
| 3e20 | 68 61 63 6b 29 29 0a 0a 20 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 64 65 62 62 75 67 73 2e 67 6e 75 | hack))....;;.https://debbugs.gnu |
| 3e40 | 2e 6f 72 67 2f 63 67 69 2f 62 75 67 72 65 70 6f 72 74 2e 63 67 69 3f 62 75 67 3d 33 32 33 39 32 | .org/cgi/bugreport.cgi?bug=32392 |
| 3e60 | 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 77 64 69 72 65 | ...(when.dired-sidebar-use-wdire |
| 3e80 | 64 2d 69 6e 74 65 67 72 61 74 69 6f 6e 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 | d-integration.....(advice-remove |
| 3ea0 | 20 27 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 | .'wdired-change-to-dired-mode... |
| 3ec0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | .................'dired-sidebar- |
| 3ee0 | 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 | wdired-change-to-dired-mode-advi |
| 3f00 | 63 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 77 64 69 72 65 64 2d 63 | ce).....(advice-remove.'wdired-c |
| 3f20 | 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 | hange-to-wdired-mode............ |
| 3f40 | 20 20 20 20 20 20 20 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 | ........'dired-sidebar-wdired-ch |
| 3f60 | 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 29 0a 0a 20 20 20 | ange-to-wdired-mode-advice)..... |
| 3f80 | 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 64 | .(advice-add.'wdired-change-to-d |
| 3fa0 | 69 72 65 64 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 6f 75 6e | ired-mode.................:aroun |
| 3fc0 | 64 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 | d.'dired-sidebar-wdired-change-t |
| 3fe0 | 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 | o-dired-mode-advice).....(advice |
| 4000 | 2d 61 64 64 20 27 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 | -add.'wdired-change-to-wdired-mo |
| 4020 | 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 6f 75 6e 64 20 27 64 69 72 65 | de.................:around.'dire |
| 4040 | 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 | d-sidebar-wdired-change-to-wdire |
| 4060 | 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 29 29 0a 0a 20 20 28 73 65 74 71 20 77 69 6e 64 6f 77 2d | d-mode-advice))....(setq.window- |
| 4080 | 73 69 7a 65 2d 66 69 78 65 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 6e 64 6f 77 2d | size-fixed.dired-sidebar-window- |
| 40a0 | 66 69 78 65 64 29 0a 0a 20 20 3b 3b 20 4d 61 74 63 68 20 62 61 63 6b 67 72 6f 75 6e 64 73 2e 0a | fixed)....;;.Match.backgrounds.. |
| 40c0 | 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 73 65 2d | ..(setq-local.dired-subtree-use- |
| 40e0 | 62 61 63 6b 67 72 6f 75 6e 64 73 20 6e 69 6c 29 0a 0a 20 20 3b 3b 20 60 64 69 72 65 64 2d 73 75 | backgrounds.nil)....;;.`dired-su |
| 4100 | 62 74 72 65 65 27 27 73 20 6c 69 6e 65 20 70 72 65 66 69 78 20 69 73 20 64 65 74 65 72 6d 69 6e | btree''s.line.prefix.is.determin |
| 4120 | 65 64 20 62 79 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 20 20 28 73 65 74 71 2d 6c | ed.by.`dired-sidebar'....(setq-l |
| 4140 | 6f 63 61 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 64 | ocal.dired-subtree-line-prefix.d |
| 4160 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 | ired-sidebar-subtree-line-prefix |
| 4180 | 29 0a 0a 20 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a | )....;;.https://github.com/jojoj |
| 41a0 | 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 65 62 61 72 2f 69 73 73 75 65 73 2f 37 0a 20 20 3b 3b | ames/dired-sidebar/issues/7...;; |
| 41c0 | 20 53 79 6d 6c 69 6e 6b 73 20 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 63 6f 72 72 65 63 | .Symlinks.are.displayed.incorrec |
| 41e0 | 74 6c 79 20 77 68 65 6e 20 74 68 65 73 65 20 74 68 72 65 65 20 74 68 69 6e 67 73 20 68 61 70 70 | tly.when.these.three.things.happ |
| 4200 | 65 6e 2e 0a 20 20 3b 3b 20 31 2e 20 60 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d | en....;;.1..`dired-hide-details- |
| 4220 | 6d 6f 64 65 27 20 69 73 20 6f 6e 2e 0a 20 20 3b 3b 20 32 2e 20 60 64 69 72 65 64 2d 73 75 62 74 | mode'.is.on....;;.2..`dired-subt |
| 4240 | 72 65 65 27 20 74 6f 67 67 6c 65 73 20 61 20 73 79 6d 6c 69 6e 6b 20 66 6f 6c 64 65 72 20 76 69 | ree'.toggles.a.symlink.folder.vi |
| 4260 | 61 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 27 2e 0a 20 20 3b 3b 20 33 | a.`dired-subtree-toggle'....;;.3 |
| 4280 | 2e 20 60 64 69 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 | ..`dired-hide-details-hide-symli |
| 42a0 | 6e 6b 2d 74 61 72 67 65 74 73 27 20 69 73 20 73 65 74 20 74 6f 20 74 72 75 65 2e 0a 20 20 3b 3b | nk-targets'.is.set.to.true....;; |
| 42c0 | 20 53 69 6e 63 65 20 77 65 20 75 73 65 20 62 6f 74 68 20 31 20 26 20 32 2c 20 64 69 73 61 62 6c | .Since.we.use.both.1.&.2,.disabl |
| 42e0 | 65 20 33 20 74 6f 20 61 76 6f 69 64 20 74 68 65 20 69 73 73 75 65 2e 0a 20 20 3b 3b 20 54 68 69 | e.3.to.avoid.the.issue....;;.Thi |
| 4300 | 73 20 6e 65 65 64 73 20 74 6f 20 62 65 20 73 65 74 20 74 6f 20 6e 69 6c 20 62 65 66 6f 72 65 20 | s.needs.to.be.set.to.nil.before. |
| 4320 | 60 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 27 20 69 73 20 63 61 6c | `dired-hide-details-mode'.is.cal |
| 4340 | 6c 65 64 2e 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 | led....(setq-local.dired-hide-de |
| 4360 | 74 61 69 6c 73 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 29 0a | tails-hide-symlink-targets.nil). |
| 4380 | 0a 20 20 3b 3b 20 55 73 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 27 | ...;;.Use.`dired-sidebar-revert' |
| 43a0 | 20 69 6e 73 74 65 61 64 20 74 68 61 74 20 77 72 61 70 73 20 60 64 69 72 65 64 2d 72 65 76 65 72 | .instead.that.wraps.`dired-rever |
| 43c0 | 74 27 2e 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d | t'....(setq-local.revert-buffer- |
| 43e0 | 66 75 6e 63 74 69 6f 6e 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 29 0a | function.'dired-sidebar-revert). |
| 4400 | 0a 20 20 3b 3b 20 57 65 20 64 6f 6e 27 74 20 77 61 6e 74 20 65 78 74 72 61 20 64 65 74 61 69 6c | ...;;.We.don't.want.extra.detail |
| 4420 | 73 20 69 6e 20 74 68 65 20 73 69 64 65 62 61 72 2e 0a 20 20 28 64 69 72 65 64 2d 68 69 64 65 2d | s.in.the.sidebar....(dired-hide- |
| 4440 | 64 65 74 61 69 6c 73 2d 6d 6f 64 65 29 0a 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 64 69 72 65 | details-mode)....(when.(and.dire |
| 4460 | 64 2d 73 69 64 65 62 61 72 2d 64 69 73 61 62 6c 65 2d 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 | d-sidebar-disable-dired-collapse |
| 4480 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 64 69 72 65 64 2d 63 6f | ..............(fboundp.'dired-co |
| 44a0 | 6c 6c 61 70 73 65 2d 6d 6f 64 65 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 | llapse-mode)).....(add-hook.'dir |
| 44c0 | 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 | ed-mode-hook...............(lamb |
| 44e0 | 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 6f 75 | da.().................(when.(bou |
| 4500 | 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 2d 6d 6f 64 | nd-and-true-p.dired-collapse-mod |
| 4520 | 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 2d 63 6f 6c 6c | e)...................(dired-coll |
| 4540 | 61 70 73 65 2d 6d 6f 64 65 20 2d 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 | apse-mode.-1)))...............:a |
| 4560 | 70 70 65 6e 64 20 3a 6c 6f 63 61 6c 29 29 0a 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 0a 20 20 20 | ppend.:local))....(when.(and.... |
| 4580 | 20 20 20 20 20 20 28 6e 6f 74 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 70 6c 61 79 | ......(not.dired-sidebar-display |
| 45a0 | 2d 61 75 74 6f 72 65 76 65 72 74 2d 6d 65 73 73 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 | -autorevert-messages)..........( |
| 45c0 | 62 6f 75 6e 64 70 20 27 61 75 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f 73 65 29 29 0a 20 20 | boundp.'auto-revert-verbose))... |
| 45e0 | 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 61 75 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f 73 | ..(setq-local.auto-revert-verbos |
| 4600 | 65 20 6e 69 6c 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 | e.nil))....(when.dired-sidebar-d |
| 4620 | 65 6c 61 79 2d 61 75 74 6f 2d 72 65 76 65 72 74 2d 75 70 64 61 74 65 73 0a 20 20 20 20 28 73 65 | elay-auto-revert-updates.....(se |
| 4640 | 74 71 2d 6c 6f 63 61 6c 20 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 66 75 6e 63 74 69 6f 6e 20 23 | tq-local.buffer-stale-function.# |
| 4660 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 29 0a 20 | 'dired-sidebar-buffer-stale-p).. |
| 4680 | 20 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e | ...(let.((current-buffer.(curren |
| 46a0 | 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 69 | t-buffer))).......(setq.dired-si |
| 46c0 | 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 | debar-stale-buffer-timer........ |
| 46e0 | 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 | .....(run-with-idle-timer....... |
| 4700 | 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 | .......dired-sidebar-stale-buffe |
| 4720 | 72 2d 74 69 6d 65 2d 69 64 6c 65 2d 64 65 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 | r-time-idle-delay..............t |
| 4740 | 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 3b 3b 20 | .(lambda.()..................;;. |
| 4760 | 4f 6e 6c 79 20 64 6f 20 61 20 63 68 65 63 6b 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | Only.do.a.check.if.`dired-sideba |
| 4780 | 72 27 20 62 75 66 66 65 72 20 69 73 20 69 6e 20 74 68 65 20 66 6f 72 65 67 72 6f 75 6e 64 2e 0a | r'.buffer.is.in.the.foreground.. |
| 47a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 | .................(when.(get-buff |
| 47c0 | 65 72 2d 77 69 6e 64 6f 77 20 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 | er-window.current-buffer)....... |
| 47e0 | 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 66 65 | .............(with-current-buffe |
| 4800 | 72 20 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | r.current-buffer................ |
| 4820 | 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 68 65 63 6b 2d | ......(setq.dired-sidebar-check- |
| 4840 | 66 6f 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 70 20 74 29 29 29 29 29 29 0a 0a 20 20 20 20 | for-stale-buffer-p.t))))))...... |
| 4860 | 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 0a 20 20 | ..(add-hook.'kill-buffer-hook... |
| 4880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 | ..............(lambda.()........ |
| 48a0 | 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 74 69 6d 65 72 70 20 64 69 72 65 64 2d 73 | ...........(when.(timerp.dired-s |
| 48c0 | 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 29 0a 20 20 20 20 20 | idebar-stale-buffer-timer)...... |
| 48e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 64 69 72 | ...............(cancel-timer.dir |
| 4900 | 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 29 29 29 | ed-sidebar-stale-buffer-timer))) |
| 4920 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 29 0a 0a 20 20 28 77 68 | .................nil.t)))....(wh |
| 4940 | 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 6f 6e 2d 73 70 65 63 | en.dired-sidebar-refresh-on-spec |
| 4960 | 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 20 28 6d 61 70 63 0a 20 20 20 20 20 28 6c 61 6d | ial-commands.....(mapc......(lam |
| 4980 | 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 78 29 0a 20 20 20 | bda.(x)........(if.(consp.x).... |
| 49a0 | 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6f 6d 6d 61 6e 64 20 28 63 61 72 20 78 29 29 0a | ........(let.((command.(car.x)). |
| 49c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 6c 61 79 20 28 63 64 72 20 78 29 29 | .................(delay.(cdr.x)) |
| 49e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 0a 20 20 20 20 20 | )..............(advice-add...... |
| 4a00 | 20 20 20 20 20 20 20 20 20 63 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | .........command...............: |
| 4a20 | 61 66 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 6c 69 61 73 20 28 69 | after...............(defalias.(i |
| 4a40 | 6e 74 65 72 6e 20 28 66 6f 72 6d 61 74 20 22 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 | ntern.(format."dired-sidebar-ref |
| 4a60 | 72 65 73 68 2d 61 66 74 65 72 2d 25 53 22 20 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 | resh-after-%S".command))........ |
| 4a80 | 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(function.............. |
| 4aa0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 26 72 65 73 74 20 5f 29 0a 20 20 20 20 20 20 20 20 20 20 | ....(lambda.(&rest._)........... |
| 4ac0 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 0a 20 20 20 | .........(let.((timer-symbol.... |
| 4ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 0a 20 | .......................(intern.. |
| 4b00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 | ..........................(forma |
| 4b20 | 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 22 64 | t............................."d |
| 4b40 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 25 53 2d 74 69 6d 65 72 22 20 63 | ired-sidebar-refresh-%S-timer".c |
| 4b60 | 6f 6d 6d 61 6e 64 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ommand))))...................... |
| 4b80 | 28 77 68 65 6e 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 | (when.(and.(boundp.timer-symbol) |
| 4ba0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| 4bc0 | 20 28 74 69 6d 65 72 70 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 74 69 6d 65 72 2d 73 79 6d | .(timerp.(symbol-value.timer-sym |
| 4be0 | 62 6f 6c 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 | bol)))........................(c |
| 4c00 | 61 6e 63 65 6c 2d 74 69 6d 65 72 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 74 69 6d 65 72 2d | ancel-timer.(symbol-value.timer- |
| 4c20 | 73 79 6d 62 6f 6c 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 | symbol)))......................( |
| 4c40 | 73 65 74 66 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 | setf.......................(symb |
| 4c60 | 6f 6c 2d 76 61 6c 75 65 20 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 | ol-value.timer-symbol).......... |
| 4c80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 | .............(run-with-idle-time |
| 4ca0 | 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 64 65 6c 61 79 0a 20 | r........................delay.. |
| 4cc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 | ......................nil....... |
| 4ce0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 | .................#'dired-sidebar |
| 4d00 | 2d 72 65 66 72 65 73 68 2d 62 75 66 66 65 72 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 | -refresh-buffer))))))))......... |
| 4d20 | 20 28 61 64 76 69 63 65 2d 61 64 64 20 78 20 3a 61 66 74 65 72 20 23 27 64 69 72 65 64 2d 73 69 | .(advice-add.x.:after.#'dired-si |
| 4d40 | 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 64 69 72 | debar-refresh-buffer)))......dir |
| 4d60 | 65 64 2d 73 69 64 65 62 61 72 2d 73 70 65 63 69 61 6c 2d 72 65 66 72 65 73 68 2d 63 6f 6d 6d 61 | ed-sidebar-special-refresh-comma |
| 4d80 | 6e 64 73 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 | nds))....(when.dired-sidebar-tog |
| 4da0 | 67 6c 65 2d 68 69 64 64 65 6e 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 20 20 28 6d 61 70 63 0a 20 20 | gle-hidden-commands.....(mapc... |
| 4dc0 | 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 | ...(lambda.(x)........(advice-ad |
| 4de0 | 64 20 78 20 3a 61 72 6f 75 6e 64 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 64 76 69 | d.x.:around.#'dired-sidebar-advi |
| 4e00 | 63 65 2d 68 69 64 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 29 29 0a 20 20 20 20 20 64 69 72 65 64 | ce-hide-temporarily))......dired |
| 4e20 | 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 68 69 64 64 65 6e 2d 63 6f 6d 6d 61 6e 64 73 29 | -sidebar-toggle-hidden-commands) |
| 4e40 | 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 63 75 73 | )....(when.dired-sidebar-use-cus |
| 4e60 | 74 6f 6d 2d 66 6f 6e 74 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d | tom-font.....(dired-sidebar-set- |
| 4e80 | 66 6f 6e 74 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 | font))....(when.dired-sidebar-us |
| 4ea0 | 65 2d 63 75 73 74 6f 6d 2d 6d 6f 64 65 6c 69 6e 65 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 | e-custom-modeline.....(dired-sid |
| 4ec0 | 65 62 61 72 2d 73 65 74 2d 6d 6f 64 65 2d 6c 69 6e 65 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 | ebar-set-mode-line))....(when.di |
| 4ee0 | 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 6f 6e 2d 70 72 6f 6a 65 63 74 2d 73 | red-sidebar-refresh-on-project-s |
| 4f00 | 77 69 74 63 68 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 70 72 6f 6a 65 63 74 2d 66 | witch.....(advice-add.'project-f |
| 4f20 | 69 6e 64 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 66 74 65 72 20 | ind-file.................:after. |
| 4f40 | 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 29 0a 20 20 20 | #'dired-sidebar-follow-file).... |
| 4f60 | 20 28 61 64 64 2d 68 6f 6f 6b 20 27 70 72 6f 6a 65 63 74 69 6c 65 2d 61 66 74 65 72 2d 73 77 69 | .(add-hook.'projectile-after-swi |
| 4f80 | 74 63 68 2d 70 72 6f 6a 65 63 74 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 | tch-project-hook...............# |
| 4fa0 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 29 29 0a 0a 20 20 | 'dired-sidebar-follow-file)).... |
| 4fc0 | 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 75 6c 64 2d 66 6f 6c 6c 6f | (when.dired-sidebar-should-follo |
| 4fe0 | 77 2d 66 69 6c 65 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | w-file.....(setq.dired-sidebar-f |
| 5000 | 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d | ollow-file-timer...........(run- |
| 5020 | 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 | with-idle-timer............dired |
| 5040 | 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 69 64 6c 65 2d 64 65 6c 61 79 0a | -sidebar-follow-file-idle-delay. |
| 5060 | 20 20 20 20 20 20 20 20 20 20 20 74 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c | ...........t.#'dired-sidebar-fol |
| 5080 | 6c 6f 77 2d 66 69 6c 65 29 29 29 0a 0a 20 20 3b 3b 20 54 68 69 73 20 63 6f 6d 6d 65 6e 74 20 69 | low-file)))....;;.This.comment.i |
| 50a0 | 73 20 74 61 6b 65 6e 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 72 65 61 64 69 6e 27 2e 0a 20 20 3b | s.taken.from.`dired-readin'....; |
| 50c0 | 3b 20 42 65 67 69 6e 20 2d 2d 2d 20 43 6f 70 69 65 64 20 63 6f 6d 6d 65 6e 74 20 66 72 6f 6d 20 | ;.Begin.---.Copied.comment.from. |
| 50e0 | 64 69 72 65 64 2e 65 6c 2e 0a 20 20 3b 3b 20 4d 75 73 74 20 66 69 72 73 74 20 6d 61 6b 65 20 61 | dired.el....;;.Must.first.make.a |
| 5100 | 6c 69 73 74 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 61 6e 64 20 73 65 74 20 69 74 20 74 6f 20 | list.buffer.local.and.set.it.to. |
| 5120 | 6e 69 6c 20 62 65 63 61 75 73 65 0a 20 20 3b 3b 20 64 69 72 65 64 2d 62 75 69 6c 64 2d 73 75 62 | nil.because...;;.dired-build-sub |
| 5140 | 64 69 72 2d 61 6c 69 73 74 20 77 69 6c 6c 20 63 61 6c 6c 20 64 69 72 65 64 2d 63 6c 65 61 72 2d | dir-alist.will.call.dired-clear- |
| 5160 | 61 6c 69 73 74 20 66 69 72 73 74 0a 20 20 3b 3b 20 45 6e 64 20 2d 2d 2d 20 43 6f 70 69 65 64 20 | alist.first...;;.End.---.Copied. |
| 5180 | 63 6f 6d 6d 65 6e 74 20 66 72 6f 6d 20 64 69 72 65 64 2e 65 6c 2e 0a 20 20 28 73 65 74 71 2d 6c | comment.from.dired.el....(setq-l |
| 51a0 | 6f 63 61 6c 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 20 6e 69 6c 29 0a 20 20 28 | ocal.dired-subdir-alist.nil)...( |
| 51c0 | 64 69 72 65 64 2d 62 75 69 6c 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 0a 0a 20 20 28 64 69 | dired-build-subdir-alist)....(di |
| 51e0 | 72 65 64 2d 75 6e 61 64 76 65 72 74 69 73 65 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 | red-unadvertise.(dired-current-d |
| 5200 | 69 72 65 63 74 6f 72 79 29 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 | irectory))...(dired-sidebar-upda |
| 5220 | 74 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 | te-buffer-name)...(dired-sidebar |
| 5240 | 2d 75 70 64 61 74 65 2d 73 74 61 74 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a | -update-state.(current-buffer)). |
| 5260 | 0a 20 20 3b 3b 20 4d 6f 76 65 20 73 65 74 74 69 6e 67 20 74 68 65 6d 65 20 75 6e 74 69 6c 20 74 | ...;;.Move.setting.theme.until.t |
| 5280 | 68 65 20 65 6e 64 20 61 66 74 65 72 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 68 61 73 | he.end.after.`dired-sidebar'.has |
| 52a0 | 20 73 65 74 20 75 70 0a 20 20 3b 3b 20 69 74 73 20 64 69 72 65 63 74 6f 72 79 20 73 74 72 75 63 | .set.up...;;.its.directory.struc |
| 52c0 | 74 75 72 65 2e 0a 20 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f | ture....;;.https://github.com/jo |
| 52e0 | 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 65 62 61 72 2f 69 73 73 75 65 73 2f 32 39 0a | jojames/dired-sidebar/issues/29. |
| 5300 | 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 61 6e 2d 64 69 73 70 6c | ..(when.(dired-sidebar-can-displ |
| 5320 | 61 79 2d 69 63 6f 6e 73 29 0a 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 64 69 72 65 64 | ay-icons).....(cond......((dired |
| 5340 | 2d 73 69 64 65 62 61 72 2d 75 73 69 6e 67 2d 74 75 69 2d 70 29 0a 20 20 20 20 20 20 28 64 69 72 | -sidebar-using-tui-p).......(dir |
| 5360 | 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 75 70 2d 74 75 69 29 29 0a 20 20 20 20 20 28 28 61 6e | ed-sidebar-setup-tui))......((an |
| 5380 | 64 20 28 65 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 69 63 6f 6e 73 | d.(eq.dired-sidebar-theme.'icons |
| 53a0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 | )............(display-graphic-p) |
| 53c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f | ............(or.............(fbo |
| 53e0 | 75 6e 64 70 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 0a | undp.'all-the-icons-dired-mode). |
| 5400 | 20 20 20 20 20 20 20 20 20 20 20 20 28 61 75 74 6f 6c 6f 61 64 70 20 28 73 79 6d 62 6f 6c 2d 66 | ............(autoloadp.(symbol-f |
| 5420 | 75 6e 63 74 69 6f 6e 20 27 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 | unction.'all-the-icons-dired-mod |
| 5440 | 65 29 29 29 29 0a 20 20 20 20 20 20 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 0a 20 20 | e)))).......(with-no-warnings... |
| 5460 | 20 20 20 20 20 20 28 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 | ......(all-the-icons-dired-mode) |
| 5480 | 29 29 0a 20 20 20 20 20 28 3a 64 65 66 61 75 6c 74 20 3a 6e 6f 2d 74 68 65 6d 65 29 29 29 29 0a | ))......(:default.:no-theme)))). |
| 54a0 | 0a 3b 3b 20 55 73 65 72 20 49 6e 74 65 72 66 61 63 65 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f | .;;.User.Interface..;;;###autolo |
| 54c0 | 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 73 | ad.(defun.dired-sidebar-toggle-s |
| 54e0 | 69 64 65 62 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 72 29 0a 20 20 22 54 6f 67 67 6c 65 | idebar.(&optional.dir)..."Toggle |
| 5500 | 20 74 68 65 20 70 72 6f 6a 65 63 74 20 65 78 70 6c 6f 72 65 72 20 77 69 6e 64 6f 77 2e 0a 4f 70 | .the.project.explorer.window..Op |
| 5520 | 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 44 49 52 20 55 73 65 20 44 49 52 20 61 73 20 73 | tional.argument.DIR.Use.DIR.as.s |
| 5540 | 69 64 65 62 61 72 20 72 6f 6f 74 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 57 69 74 68 20 | idebar.root.if.available...With. |
| 5560 | 75 6e 69 76 65 72 73 61 6c 20 61 72 67 75 6d 65 6e 74 2c 20 75 73 65 20 63 75 72 72 65 6e 74 20 | universal.argument,.use.current. |
| 5580 | 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 | directory."...(interactive)...(i |
| 55a0 | 66 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 | f.(dired-sidebar-showing-sidebar |
| 55c0 | 2d 70 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 68 69 64 65 2d 73 69 | -p).......(dired-sidebar-hide-si |
| 55e0 | 64 65 62 61 72 29 0a 20 20 20 20 28 6c 65 74 2a 20 28 28 6f 6c 64 2d 62 75 66 66 65 72 20 28 64 | debar).....(let*.((old-buffer.(d |
| 5600 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 66 72 | ired-sidebar-buffer.(selected-fr |
| 5620 | 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 74 6f 2d 73 68 6f 77 20 | ame)))............(file-to-show. |
| 5640 | 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 66 69 6c 65 2d 74 6f 2d 73 68 6f 77 29 | (dired-sidebar-get-file-to-show) |
| 5660 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 2d 74 6f 2d 73 68 6f 77 20 28 6f 72 20 64 69 | )............(dir-to-show.(or.di |
| 5680 | 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 28 77 | r.............................(w |
| 56a0 | 68 65 6e 20 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 | hen.current-prefix-arg.......... |
| 56c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c | .....................(expand-fil |
| 56e0 | 65 2d 6e 61 6d 65 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 | e-name.default-directory))...... |
| 5700 | 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 73 69 | .......................(dired-si |
| 5720 | 64 65 62 61 72 2d 67 65 74 2d 64 69 72 2d 74 6f 2d 73 68 6f 77 29 29 29 0a 20 20 20 20 20 20 20 | debar-get-dir-to-show)))........ |
| 5740 | 20 20 20 20 28 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 | ....(sidebar-buffer.(dired-sideb |
| 5760 | 61 72 2d 67 65 74 2d 6f 72 2d 63 72 65 61 74 65 2d 62 75 66 66 65 72 20 64 69 72 2d 74 6f 2d 73 | ar-get-or-create-buffer.dir-to-s |
| 5780 | 68 6f 77 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 | how))).......(dired-sidebar-show |
| 57a0 | 2d 73 69 64 65 62 61 72 20 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 | -sidebar.sidebar-buffer).......( |
| 57c0 | 77 68 65 6e 20 28 61 6e 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6f 6e 65 2d | when.(and.dired-sidebar-use-one- |
| 57e0 | 69 6e 73 74 61 6e 63 65 20 6f 6c 64 2d 62 75 66 66 65 72 20 28 6e 6f 74 20 28 65 71 20 73 69 64 | instance.old-buffer.(not.(eq.sid |
| 5800 | 65 62 61 72 2d 62 75 66 66 65 72 20 6f 6c 64 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 | ebar-buffer.old-buffer)))....... |
| 5820 | 20 20 28 6b 69 6c 6c 2d 62 75 66 66 65 72 20 6f 6c 64 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 | ..(kill-buffer.old-buffer))..... |
| 5840 | 20 20 28 69 66 20 28 61 6e 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d | ..(if.(and.dired-sidebar-follow- |
| 5860 | 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 2d 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 0a 20 20 20 | file-at-point-on-toggle-open.... |
| 5880 | 20 20 20 20 20 20 20 20 20 20 20 20 66 69 6c 65 2d 74 6f 2d 73 68 6f 77 29 0a 20 20 20 20 20 20 | ............file-to-show)....... |
| 58a0 | 20 20 20 20 28 69 66 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f 70 2d 74 6f 2d 73 69 64 | ....(if.dired-sidebar-pop-to-sid |
| 58c0 | 65 62 61 72 2d 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | ebar-on-toggle-open............. |
| 58e0 | 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f 69 6e 74 2d 61 74 2d 66 69 6c 65 20 66 | ..(dired-sidebar-point-at-file.f |
| 5900 | 69 6c 65 2d 74 6f 2d 73 68 6f 77 20 64 69 72 2d 74 6f 2d 73 68 6f 77 29 0a 20 20 20 20 20 20 20 | ile-to-show.dir-to-show)........ |
| 5920 | 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 28 73 65 6c 65 | .....(with-selected-window.(sele |
| 5940 | 63 74 65 64 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 | cted-window)...............(dire |
| 5960 | 64 2d 73 69 64 65 62 61 72 2d 70 6f 69 6e 74 2d 61 74 2d 66 69 6c 65 20 66 69 6c 65 2d 74 6f 2d | d-sidebar-point-at-file.file-to- |
| 5980 | 73 68 6f 77 20 64 69 72 2d 74 6f 2d 73 68 6f 77 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 | show.dir-to-show))).........(whe |
| 59a0 | 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f 70 2d 74 6f 2d 73 69 64 65 62 61 72 2d 6f | n.dired-sidebar-pop-to-sidebar-o |
| 59c0 | 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d | n-toggle-open...........(pop-to- |
| 59e0 | 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 29 | buffer.(dired-sidebar-buffer)))) |
| 5a00 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f 69 6e 74 2d | )))..(defun.dired-sidebar-point- |
| 5a20 | 61 74 2d 66 69 6c 65 20 28 6e 61 6d 65 20 72 6f 6f 74 29 0a 20 20 22 54 72 79 20 74 6f 20 70 6f | at-file.(name.root)..."Try.to.po |
| 5a40 | 69 6e 74 20 61 74 20 4e 41 4d 45 20 66 72 6f 6d 20 73 69 64 65 62 61 72 2e 0a 0a 4b 65 65 70 20 | int.at.NAME.from.sidebar...Keep. |
| 5a60 | 60 64 69 72 65 64 27 20 70 6f 69 6e 74 65 64 20 61 74 20 52 4f 4f 54 20 77 68 69 6c 65 20 63 79 | `dired'.pointed.at.ROOT.while.cy |
| 5a80 | 63 6c 69 6e 67 20 64 69 72 65 63 74 6f 72 69 65 73 20 75 6e 74 69 6c 0a 4e 41 4d 45 20 69 73 20 | cling.directories.until.NAME.is. |
| 5aa0 | 66 6f 75 6e 64 20 69 6e 20 52 4f 4f 54 20 70 61 74 68 2e 0a 0a 54 68 69 73 20 69 73 20 64 65 70 | found.in.ROOT.path...This.is.dep |
| 5ac0 | 65 6e 64 65 6e 74 20 6f 6e 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 27 2e | endent.on.`dired-subtree-cycle'. |
| 5ae0 | 22 0a 20 20 28 6c 65 74 20 28 28 73 69 64 65 62 61 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 | "...(let.((sidebar.(dired-sideba |
| 5b00 | 72 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 72 20 73 | r-buffer))).....(pop-to-buffer.s |
| 5b20 | 69 64 65 62 61 72 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 20 6e 61 6d 65 0a 20 20 20 20 | idebar).....(when.(and.name..... |
| 5b40 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 68 65 63 6b 69 6e 67 20 66 6f 72 20 61 20 70 72 69 | ...........;;.Checking.for.a.pri |
| 5b60 | 76 61 74 65 20 6d 65 74 68 6f 64 2e 20 2a 73 68 72 75 67 2a 0a 20 20 20 20 20 20 20 20 20 20 20 | vate.method..*shrug*............ |
| 5b80 | 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d | ....(fboundp.'dired-subtree--is- |
| 5ba0 | 65 78 70 61 6e 64 65 64 2d 70 29 29 0a 20 20 20 20 20 20 28 70 6f 70 2d 74 6f 2d 62 75 66 66 65 | expanded-p)).......(pop-to-buffe |
| 5bc0 | 72 20 73 69 64 65 62 61 72 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 30 29 0a 20 | r.sidebar).......(goto-char.0).. |
| 5be0 | 20 20 20 20 20 28 6c 65 74 2a 20 28 28 70 61 74 68 20 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 | .....(let*.((path.root)......... |
| 5c00 | 20 20 20 20 20 3b 3b 20 49 6d 61 67 69 6e 65 20 72 6f 6f 74 20 69 73 20 2f 72 6f 6f 74 2f 76 61 | .....;;.Imagine.root.is./root/va |
| 5c20 | 72 2f 20 61 6e 64 20 6e 61 6d 65 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 2f | r/.and.name.is..............;;./ |
| 5c40 | 72 6f 6f 74 2f 76 61 72 2f 61 2f 62 2f 63 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | root/var/a/b/c...............;;. |
| 5c60 | 54 68 69 73 20 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 27 5c 28 22 61 | This.will.return.a.list.of.'\("a |
| 5c80 | 22 20 22 62 22 20 22 63 22 5c 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 73 20 | "."b"."c"\)...............(dirs. |
| 5ca0 | 28 77 68 65 6e 20 28 63 61 64 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6e 61 6d 65 20 72 | (when.(cadr.(split-string.name.r |
| 5cc0 | 6f 6f 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 28 73 70 6c 69 | oot))......................(spli |
| 5ce0 | 74 2d 73 74 72 69 6e 67 20 28 63 61 64 72 20 28 73 70 6c 69 74 2d 73 74 72 69 6e 67 20 6e 61 6d | t-string.(cadr.(split-string.nam |
| 5d00 | 65 20 72 6f 6f 74 29 29 20 22 2f 22 29 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 6f 6c 69 73 74 | e.root))."/")))).........(dolist |
| 5d20 | 20 28 64 69 72 20 64 69 72 73 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 72 61 69 6c 69 6e | .(dir.dirs)...........;;.Trailin |
| 5d40 | 67 20 60 24 27 20 69 73 20 65 73 73 65 6e 74 69 61 6c 20 74 6f 20 61 76 6f 69 64 20 6d 61 74 63 | g.`$'.is.essential.to.avoid.matc |
| 5d60 | 68 69 6e 67 20 74 68 65 20 6d 6f 64 69 66 69 63 61 74 69 6f 6e 20 64 61 74 65 0a 20 20 20 20 20 | hing.the.modification.date...... |
| 5d80 | 20 20 20 20 20 3b 3b 20 66 69 65 6c 64 73 20 6f 66 20 74 68 65 20 75 6e 64 65 72 6c 79 69 6e 67 | .....;;.fields.of.the.underlying |
| 5da0 | 20 60 6c 73 27 20 70 72 6f 63 65 73 73 0a 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 | .`ls'.process...........(let.((p |
| 5dc0 | 61 74 68 2d 72 65 67 65 78 20 28 63 6f 6e 63 61 74 20 22 5e 2e 2a 5b 5b 3a 73 70 61 63 65 3a 5d | ath-regex.(concat."^.*[[:space:] |
| 5de0 | 5d 22 20 28 72 65 67 65 78 70 2d 71 75 6f 74 65 20 64 69 72 29 20 22 24 22 29 29 29 0a 20 20 20 | ]".(regexp-quote.dir)."$"))).... |
| 5e00 | 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 61 74 68 20 28 63 6f 6e 63 61 74 20 70 61 74 68 | .........(setq.path.(concat.path |
| 5e20 | 20 64 69 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 72 65 67 | .dir)).............(if.(file-reg |
| 5e40 | 75 6c 61 72 2d 70 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | ular-p.path).................;;. |
| 5e60 | 54 72 79 20 74 6f 20 75 73 65 20 60 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 27 20 74 6f 20 | Try.to.use.`dired-goto-file'.to. |
| 5e80 | 67 6f 20 74 6f 20 74 68 65 20 63 6f 72 72 65 63 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | go.to.the.correct............... |
| 5ea0 | 20 20 3b 3b 20 66 69 6c 65 2e 20 49 66 20 74 68 61 74 20 66 61 69 6c 73 2c 20 6a 75 73 74 20 73 | ..;;.file..If.that.fails,.just.s |
| 5ec0 | 65 61 72 63 68 20 66 6f 72 20 74 68 65 20 74 65 78 74 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 | earch.for.the.text.............. |
| 5ee0 | 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 28 66 69 | ....(let.((default-directory.(fi |
| 5f00 | 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 70 61 74 68 29 29 29 0a 20 20 20 20 20 20 | le-name-directory.path)))....... |
| 5f20 | 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d | ............(unless.(dired-goto- |
| 5f40 | 66 69 6c 65 20 70 61 74 68 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | file.path).....................( |
| 5f60 | 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.............. |
| 5f80 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 49 74 27 73 20 68 61 72 64 20 74 6f 20 67 65 74 20 74 | ...........;;.It's.hard.to.get.t |
| 5fa0 | 68 69 73 20 72 69 67 68 74 20 73 6f 20 6a 75 73 74 20 75 73 69 6e 67 20 61 0a 20 20 20 20 20 20 | his.right.so.just.using.a....... |
| 5fc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 65 75 72 69 73 74 69 63 20 77 | ..................;;.heuristic.w |
| 5fe0 | 69 6c 6c 20 67 65 74 20 39 30 25 20 6f 66 20 74 68 65 20 77 61 79 20 74 68 65 72 65 2e 0a 20 20 | ill.get.90%.of.the.way.there.... |
| 6000 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4d 61 6b 69 6e 67 20 | ......................;;.Making. |
| 6020 | 73 75 72 65 20 74 68 65 72 65 27 73 20 61 20 73 70 61 63 65 20 69 6e 20 66 72 6f 6e 74 20 6f 66 | sure.there's.a.space.in.front.of |
| 6040 | 20 74 68 65 20 6e 61 6d 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .the.name....................... |
| 6060 | 20 20 3b 3b 20 73 6b 69 70 73 20 6d 61 74 63 68 65 73 20 74 68 61 74 20 63 6f 6e 74 61 69 6e 73 | ..;;.skips.matches.that.contains |
| 6080 | 20 74 68 65 20 6e 61 6d 65 20 61 73 20 61 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .the.name.as.a.................. |
| 60a0 | 20 20 20 20 20 20 20 3b 3b 20 73 75 62 73 74 72 69 6e 67 20 77 68 69 63 68 20 69 73 20 70 72 6f | .......;;.substring.which.is.pro |
| 60c0 | 62 61 62 6c 79 20 67 6f 6f 64 20 65 6e 6f 75 67 68 2e 2e 2e 0a 20 20 20 20 20 20 20 20 20 20 20 | bably.good.enough............... |
| 60e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 | .............(re-search-forward. |
| 6100 | 70 61 74 68 2d 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | path-regex)..................... |
| 6120 | 20 20 3b 3b 20 53 6f 6d 65 74 69 6d 65 73 20 60 64 69 72 65 64 27 20 67 65 74 73 20 6f 75 74 20 | ..;;.Sometimes.`dired'.gets.out. |
| 6140 | 6f 66 20 73 79 6e 63 20 77 69 74 68 20 74 68 65 20 66 69 6c 65 2e 0a 20 20 20 20 20 20 20 20 20 | of.sync.with.the.file........... |
| 6160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 66 72 65 73 68 20 74 68 65 20 62 75 66 66 | .............;;.Refresh.the.buff |
| 6180 | 65 72 20 61 6e 64 20 74 72 79 20 74 68 65 20 73 65 61 72 63 68 20 61 67 61 69 6e 2e 0a 20 20 20 | er.and.try.the.search.again..... |
| 61a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 6e 65 20 77 61 79 20 74 6f | ...................;;.One.way.to |
| 61c0 | 20 72 65 70 72 6f 64 75 63 65 20 74 68 69 73 3a 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .reproduce.this:................ |
| 61e0 | 20 20 20 20 20 20 20 3b 3b 20 31 2e 20 4f 70 65 6e 20 66 69 6c 65 20 41 20 61 73 20 62 75 66 66 | .......;;.1..Open.file.A.as.buff |
| 6200 | 65 72 20 42 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 32 | er.B........................;;.2 |
| 6220 | 2e 20 44 65 6c 65 74 65 20 66 69 6c 65 20 41 20 69 6e 20 60 64 69 72 65 64 27 2e 0a 20 20 20 20 | ..Delete.file.A.in.`dired'...... |
| 6240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 33 2e 20 48 69 64 65 20 60 64 69 | ..................;;.3..Hide.`di |
| 6260 | 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | red-sidebar'.................... |
| 6280 | 20 20 20 20 3b 3b 20 34 2e 20 53 61 76 65 20 62 75 66 66 65 72 20 42 2e 0a 20 20 20 20 20 20 20 | ....;;.4..Save.buffer.B......... |
| 62a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 35 2e 20 52 65 2d 6f 70 65 6e 20 60 64 69 | ...............;;.5..Re-open.`di |
| 62c0 | 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | red-sidebar'.................... |
| 62e0 | 20 20 20 20 28 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 | ....(error...................... |
| 6300 | 20 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ..(revert-buffer)............... |
| 6320 | 20 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 70 61 74 68 | .........(re-search-forward.path |
| 6340 | 2d 72 65 67 65 78 20 6e 69 6c 20 3a 6e 6f 2d 65 72 72 6f 72 29 29 29 29 29 0a 20 20 20 20 20 20 | -regex.nil.:no-error)))))....... |
| 6360 | 20 20 20 20 20 20 20 20 28 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 64 20 70 61 74 68 2d | ........(re-search-forward.path- |
| 6380 | 72 65 67 65 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 68 65 63 6b 20 69 66 | regex)...............;;.Check.if |
| 63a0 | 20 73 75 62 74 72 65 65 20 68 61 73 20 61 6c 72 65 61 64 79 20 62 65 65 6e 20 65 78 70 61 6e 64 | .subtree.has.already.been.expand |
| 63c0 | 65 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 42 61 73 69 63 61 6c 6c 79 2c 20 | ed................;;.Basically,. |
| 63e0 | 77 65 27 72 65 20 75 73 69 6e 67 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 | we're.using.`dired-subtree-cycle |
| 6400 | 27 20 6d 6f 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 6c 69 6b 65 20 64 69 72 | '.more...............;;.like.dir |
| 6420 | 65 64 2d 73 75 62 74 72 65 65 2d 65 78 70 61 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ed-subtree-expand............... |
| 6440 | 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d 65 | .(when.(not.(dired-subtree--is-e |
| 6460 | 78 70 61 6e 64 65 64 2d 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 54 | xpanded-p)).................;;.T |
| 6480 | 68 69 73 20 77 69 6c 6c 20 70 72 6f 62 61 62 6c 79 20 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 | his.will.probably.throw.an.error |
| 64a0 | 20 77 68 65 6e 20 74 72 79 69 6e 67 20 74 6f 20 65 78 70 61 6e 64 0a 20 20 20 20 20 20 20 20 20 | .when.trying.to.expand.......... |
| 64c0 | 20 20 20 20 20 20 20 3b 3b 20 64 69 72 65 63 74 6f 72 69 65 73 20 74 68 61 74 20 68 61 76 65 20 | .......;;.directories.that.have. |
| 64e0 | 62 65 65 6e 20 63 6f 6c 6c 61 70 73 65 64 20 62 79 20 60 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 | been.collapsed.by.`dired-collaps |
| 6500 | 65 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 | e'..................(dired-subtr |
| 6520 | 65 65 2d 63 79 63 6c 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 71 20 70 | ee-cycle))...............(setq.p |
| 6540 | 61 74 68 20 28 63 6f 6e 63 61 74 20 70 61 74 68 20 22 2f 22 29 29 29 29 29 29 0a 20 20 20 20 20 | ath.(concat.path."/"))))))...... |
| 6560 | 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 63 65 6e 74 65 72 2d 63 75 | .(when.dired-sidebar-recenter-cu |
| 6580 | 72 73 6f 72 2d 6f 6e 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 0a 20 20 20 20 20 20 20 20 28 72 65 63 | rsor-on-follow-file.........(rec |
| 65a0 | 65 6e 74 65 72 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 | enter.nil)).......(dired-sidebar |
| 65c0 | 2d 72 65 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f | -redisplay-icons))))..;;;###auto |
| 65e0 | 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 | load.(defun.dired-sidebar-toggle |
| 6600 | 2d 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 4c 69 | -with-current-directory.()..."Li |
| 6620 | 6b 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 | ke.`dired-sidebar-toggle-sidebar |
| 6640 | 27 20 62 75 74 20 75 73 65 20 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 | '.but.use.current-directory."... |
| 6660 | 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 70 | (interactive)...(let.((current-p |
| 6680 | 72 65 66 69 78 2d 61 72 67 20 27 28 34 29 29 29 20 3b 20 43 2d 75 0a 20 20 20 20 28 63 61 6c 6c | refix-arg.'(4))).;.C-u.....(call |
| 66a0 | 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 | -interactively.#'dired-sidebar-t |
| 66c0 | 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 | oggle-sidebar)))..;;;###autoload |
| 66e0 | 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 2d 73 69 64 65 62 | .(defun.dired-sidebar-show-sideb |
| 6700 | 61 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 62 29 0a 20 20 22 53 68 6f 77 20 73 69 64 65 62 61 72 | ar.(&optional.b)..."Show.sidebar |
| 6720 | 20 64 69 73 70 6c 61 79 69 6e 67 20 62 75 66 66 65 72 20 42 2e 22 0a 20 20 28 69 6e 74 65 72 61 | .displaying.buffer.B."...(intera |
| 6740 | 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 6f 72 20 62 0a 20 20 20 | ctive)...(let.((buffer.(or.b.... |
| 6760 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 4f 6e 6c 79 20 65 78 70 65 63 74 20 | .................;;.Only.expect. |
| 6780 | 74 68 69 73 20 74 6f 20 62 65 20 68 69 74 20 77 68 65 6e 20 63 61 6c 6c 65 64 20 69 6e 74 65 72 | this.to.be.hit.when.called.inter |
| 67a0 | 61 63 74 69 76 65 6c 79 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 | actively......................(d |
| 67c0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 6f 72 2d 63 72 65 61 74 65 2d 62 75 66 66 65 | ired-sidebar-get-or-create-buffe |
| 67e0 | 72 0a 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 73 69 | r......................(dired-si |
| 6800 | 64 65 62 61 72 2d 67 65 74 2d 64 69 72 2d 74 6f 2d 73 68 6f 77 29 29 29 29 29 0a 20 20 20 20 28 | debar-get-dir-to-show))))).....( |
| 6820 | 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 69 6e 2d 73 69 64 65 2d 77 69 6e 64 6f 77 20 62 75 | display-buffer-in-side-window.bu |
| 6840 | 66 66 65 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 | ffer.dired-sidebar-display-alist |
| 6860 | 29 0a 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d | ).....(let.((window.(get-buffer- |
| 6880 | 77 69 6e 64 6f 77 20 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 | window.buffer))).......(when.dir |
| 68a0 | 65 64 2d 73 69 64 65 62 61 72 2d 6e 6f 2d 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f | ed-sidebar-no-delete-other-windo |
| 68c0 | 77 73 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 70 61 72 61 6d 65 74 65 72 | ws.........(set-window-parameter |
| 68e0 | 20 77 69 6e 64 6f 77 20 27 6e 6f 2d 64 65 6c 65 74 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 73 | .window.'no-delete-other-windows |
| 6900 | 20 74 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 | .t)).......(set-window-dedicated |
| 6920 | 2d 70 20 77 69 6e 64 6f 77 20 74 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 | -p.window.t).......(when.dired-s |
| 6940 | 69 64 65 62 61 72 2d 72 65 73 69 7a 65 2d 6f 6e 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 28 77 | idebar-resize-on-open.........(w |
| 6960 | 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 | ith-selected-window.window...... |
| 6980 | 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 2d 73 69 7a 65 2d 66 69 78 65 64 29 29 0a | .....(let.((window-size-fixed)). |
| 69a0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 77 | ............(dired-sidebar-set-w |
| 69c0 | 69 64 74 68 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 64 74 68 29 29 29 29 29 0a 20 20 | idth.dired-sidebar-width)))))... |
| 69e0 | 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 20 | ..(with-current-buffer.buffer... |
| 6a00 | 20 20 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 73 69 | ....(if.(eq.major-mode.'dired-si |
| 6a20 | 64 65 62 61 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 62 75 69 | debar-mode)...........(dired-bui |
| 6a40 | 6c 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d | ld-subdir-alist).........(dired- |
| 6a60 | 73 69 64 65 62 61 72 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 | sidebar-mode))).....(dired-sideb |
| 6a80 | 61 72 2d 75 70 64 61 74 65 2d 73 74 61 74 65 20 62 75 66 66 65 72 29 29 29 0a 0a 3b 3b 3b 23 23 | ar-update-state.buffer)))..;;;## |
| 6aa0 | 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 68 | #autoload.(defun.dired-sidebar-h |
| 6ac0 | 69 64 65 2d 73 69 64 65 62 61 72 20 28 29 0a 20 20 22 48 69 64 65 20 74 68 65 20 73 69 64 65 62 | ide-sidebar.()..."Hide.the.sideb |
| 6ae0 | 61 72 20 69 6e 20 74 68 65 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e | ar.in.the.selected.frame."...(in |
| 6b00 | 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e | teractive)...(dired-sidebar-when |
| 6b20 | 2d 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 | -let*.((buffer.(dired-sidebar-bu |
| 6b40 | 66 66 65 72 29 29 29 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 77 69 6e 64 6f 77 20 28 67 65 74 2d | ffer))).....(delete-window.(get- |
| 6b60 | 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 64 69 72 65 | buffer-window.buffer)).....(dire |
| 6b80 | 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 74 65 2d 73 74 61 74 65 20 6e 69 6c 29 29 29 0a 0a 3b | d-sidebar-update-state.nil)))..; |
| 6ba0 | 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 | ;;###autoload.(defun.dired-sideb |
| 6bc0 | 61 72 2d 6a 75 6d 70 2d 74 6f 2d 73 69 64 65 62 61 72 20 28 29 0a 20 20 22 4a 75 6d 70 20 74 6f | ar-jump-to-sidebar.()..."Jump.to |
| 6be0 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 20 69 66 20 69 74 20 69 73 | .`dired-sidebar'.buffer.if.it.is |
| 6c00 | 20 73 68 6f 77 69 6e 67 2e 0a 0a 49 66 20 69 74 27 73 20 6e 6f 74 20 73 68 6f 77 69 6e 67 2c 20 | .showing...If.it's.not.showing,. |
| 6c20 | 61 63 74 20 61 73 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 73 69 64 | act.as.`dired-sidebar-toggle-sid |
| 6c40 | 65 62 61 72 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 69 66 20 28 64 | ebar'."...(interactive)...(if.(d |
| 6c60 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 2d 70 29 0a | ired-sidebar-showing-sidebar-p). |
| 6c80 | 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 28 67 65 74 | ......(select-window........(get |
| 6ca0 | 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 | -buffer-window.(dired-sidebar-bu |
| 6cc0 | 66 66 65 72 20 28 73 65 6c 65 63 74 65 64 2d 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 63 61 | ffer.(selected-frame)))).....(ca |
| 6ce0 | 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 | ll-interactively.#'dired-sidebar |
| 6d00 | 2d 74 6f 67 67 6c 65 2d 73 69 64 65 62 61 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 | -toggle-sidebar)))..(defun.dired |
| 6d20 | 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 20 28 26 6f 70 74 69 6f 6e 61 6c 20 64 69 | -sidebar-find-file.(&optional.di |
| 6d40 | 72 29 0a 20 20 22 57 72 61 70 70 65 72 20 6f 76 65 72 20 60 64 69 72 65 64 2d 66 69 6e 64 2d 66 | r)..."Wrapper.over.`dired-find-f |
| 6d60 | 69 6c 65 27 2e 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 20 44 49 52 20 46 69 6e 65 | ile'..Optional.argument.DIR.Fine |
| 6d80 | 20 66 69 6c 65 20 75 73 69 6e 67 20 44 49 52 20 6f 66 20 61 76 61 69 6c 61 62 6c 65 2e 0a 0a 57 | .file.using.DIR.of.available...W |
| 6da0 | 69 74 68 20 70 72 65 66 69 78 20 61 72 67 75 6d 65 6e 74 2c 20 75 73 65 20 60 64 69 72 65 64 2d | ith.prefix.argument,.use.`dired- |
| 6dc0 | 73 69 64 65 62 61 72 2d 61 6c 74 65 72 6e 61 74 65 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 2d | sidebar-alternate-select-window- |
| 6de0 | 66 75 6e 63 74 69 6f 6e 27 20 66 6f 72 0a 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 69 6f 6e 2e 22 | function'.for.window.selection." |
| 6e00 | 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 66 69 6e 64 2d 66 | ...(interactive)...(let.((find-f |
| 6e20 | 69 6c 65 2d 72 75 6e 2d 64 69 72 65 64 20 74 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d | ile-run-dired.t).........(dired- |
| 6e40 | 66 69 6c 65 2d 6e 61 6d 65 20 28 6f 72 20 64 69 72 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c | file-name.(or.dir.(dired-get-fil |
| 6e60 | 65 2d 66 6f 72 2d 76 69 73 69 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 | e-for-visit))).........(select-w |
| 6e80 | 69 74 68 2d 61 6c 74 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 20 63 75 72 72 65 6e 74 2d | ith-alt-window-function.current- |
| 6ea0 | 70 72 65 66 69 78 2d 61 72 67 29 29 0a 20 20 20 20 28 69 66 20 28 61 6e 64 20 28 66 69 6c 65 2d | prefix-arg)).....(if.(and.(file- |
| 6ec0 | 64 69 72 65 63 74 6f 72 79 2d 70 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 | directory-p.dired-file-name).... |
| 6ee0 | 20 20 20 20 20 20 20 20 20 20 3b 3b 20 46 6f 72 20 22 2e 22 20 6f 70 65 6e 20 61 20 66 75 6c 6c | ..........;;.For.".".open.a.full |
| 6f00 | 2d 62 6c 6f 77 6e 20 64 69 72 65 64 20 62 75 66 66 65 72 2c 20 73 69 6e 63 65 20 74 68 65 20 64 | -blown.dired.buffer,.since.the.d |
| 6f20 | 69 72 65 63 74 6f 72 79 20 69 73 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 61 6c 72 65 | irectory.is..............;;.alre |
| 6f40 | 61 64 79 20 6f 70 65 6e 20 69 6e 20 74 68 65 20 73 69 64 65 62 61 72 2e 0a 20 20 20 20 20 20 20 | ady.open.in.the.sidebar......... |
| 6f60 | 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 3d 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 6e | ......(not.(string=.(file-name-n |
| 6f80 | 6f 6e 64 69 72 65 63 74 6f 72 79 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 | ondirectory.dired-file-name).... |
| 6fa0 | 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 2e 22 29 29 29 0a 20 | ........................"."))).. |
| 6fc0 | 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 74 68 2d 6e 6f 2d 64 65 | .......(dired-sidebar-with-no-de |
| 6fe0 | 64 69 63 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 2d 6e 61 6d | dication..........(let.((buf-nam |
| 7000 | 65 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 6e 61 6d 65 0a 20 20 20 | e.(dired-sidebar-buffer-name.... |
| 7020 | 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 65 64 2d 66 69 6c | .......................dired-fil |
| 7040 | 65 2d 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 64 69 72 65 64 2d | e-name)))............(if.(dired- |
| 7060 | 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 65 78 69 73 74 73 2d 70 20 62 75 66 2d 6e 61 6d 65 | sidebar-buffer-exists-p.buf-name |
| 7080 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 | )................(progn......... |
| 70a0 | 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 62 75 66 2d 6e | .........(switch-to-buffer.buf-n |
| 70c0 | 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 | ame)..................(dired-sid |
| 70e0 | 65 62 61 72 2d 75 70 64 61 74 65 2d 73 74 61 74 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 | ebar-update-state.(current-buffe |
| 7100 | 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 64 69 72 65 64 | r)))..............(if.(and.dired |
| 7120 | 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6f 6e 65 2d 69 6e 73 74 61 6e 63 65 20 28 66 69 6c 65 2d | -sidebar-use-one-instance.(file- |
| 7140 | 64 69 72 65 63 74 6f 72 79 2d 70 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 | directory-p.dired-file-name))... |
| 7160 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 61 6c 74 65 72 6e 61 74 65 2d 66 | ...............(find-alternate-f |
| 7180 | 69 6c 65 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 | ile.dired-file-name)............ |
| 71a0 | 20 20 20 20 3b 3b 20 43 6f 70 69 65 64 20 66 72 6f 6d 20 60 64 69 72 65 64 2d 66 69 6e 64 2d 66 | ....;;.Copied.from.`dired-find-f |
| 71c0 | 69 6c 65 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 | ile'.................(find-file. |
| 71e0 | 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | dired-file-name))..............( |
| 7200 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | dired-sidebar-mode)............. |
| 7220 | 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 74 65 2d 73 74 61 74 65 20 28 63 75 | .(dired-sidebar-update-state.(cu |
| 7240 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 20 20 20 20 20 20 3b 3b 20 53 65 6c 65 63 | rrent-buffer))))).......;;.Selec |
| 7260 | 74 20 74 68 65 20 73 69 64 65 62 61 72 20 77 69 6e 64 6f 77 20 73 6f 20 74 68 61 74 20 60 6e 65 | t.the.sidebar.window.so.that.`ne |
| 7280 | 78 74 2d 77 69 6e 64 6f 77 27 20 69 73 20 63 6f 6e 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 3b | xt-window'.is.consistent.......; |
| 72a0 | 3b 20 69 6e 20 70 69 63 6b 69 6e 67 20 74 68 65 20 77 69 6e 64 6f 77 20 6e 65 78 74 20 74 6f 20 | ;.in.picking.the.window.next.to. |
| 72c0 | 74 68 65 20 73 69 64 65 62 61 72 2e 0a 20 20 20 20 20 20 3b 3b 20 54 68 69 73 20 69 73 20 75 73 | the.sidebar........;;.This.is.us |
| 72e0 | 65 66 75 6c 20 66 6f 72 20 77 68 65 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e | eful.for.when.`dired-sidebar-fin |
| 7300 | 64 2d 66 69 6c 65 27 20 69 73 20 63 61 6c 6c 65 64 0a 20 20 20 20 20 20 3b 3b 20 66 72 6f 6d 20 | d-file'.is.called.......;;.from. |
| 7320 | 61 20 62 75 66 66 65 72 20 74 68 61 74 20 69 73 20 6e 6f 74 20 61 6c 72 65 61 64 79 20 69 6e 20 | a.buffer.that.is.not.already.in. |
| 7340 | 74 68 65 20 73 69 64 65 62 61 72 20 62 75 66 66 65 72 2e 0a 20 20 20 20 20 20 3b 3b 20 65 2e 67 | the.sidebar.buffer........;;.e.g |
| 7360 | 2e 20 41 20 6d 6f 75 73 65 20 63 6c 69 63 6b 20 65 76 65 6e 74 2e 0a 20 20 20 20 20 20 28 73 77 | ..A.mouse.click.event........(sw |
| 7380 | 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 | itch-to-buffer.(dired-sidebar-bu |
| 73a0 | 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 6e 64 6f 77 0a 20 20 20 20 20 | ffer)).......(let.((window...... |
| 73c0 | 20 20 20 20 20 20 20 20 28 69 66 20 73 65 6c 65 63 74 2d 77 69 74 68 2d 61 6c 74 2d 77 69 6e 64 | ........(if.select-with-alt-wind |
| 73e0 | 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 | ow-function..................(fu |
| 7400 | 6e 63 61 6c 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 74 65 72 6e 61 74 65 2d 73 65 | ncall.dired-sidebar-alternate-se |
| 7420 | 6c 65 63 74 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 | lect-window-function)........... |
| 7440 | 20 20 20 20 20 28 69 66 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6f 70 65 6e 2d 66 69 6c 65 | .....(if.dired-sidebar-open-file |
| 7460 | 2d 69 6e 2d 6d 6f 73 74 2d 72 65 63 65 6e 74 6c 79 2d 75 73 65 64 2d 77 69 6e 64 6f 77 0a 20 20 | -in-most-recently-used-window... |
| 7480 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 67 65 74 2d 6d 72 75 2d 77 69 6e 64 6f 77 | .................(get-mru-window |
| 74a0 | 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 | .nil.nil.t)..................(ne |
| 74c0 | 78 74 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 68 74 74 70 73 3a | xt-window))))).........;;.https: |
| 74e0 | 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d 73 69 64 | //github.com/jojojames/dired-sid |
| 7500 | 65 62 61 72 2f 69 73 73 75 65 73 2f 35 35 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 | ebar/issues/55.........(if.(or.( |
| 7520 | 6e 75 6c 6c 20 77 69 6e 64 6f 77 29 20 28 77 69 6e 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 | null.window).(window-dedicated-p |
| 7540 | 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 | .window)).............(select-wi |
| 7560 | 6e 64 6f 77 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f 77 20 28 6e 65 78 74 2d 77 69 6e 64 6f 77 29 | ndow.(split-window.(next-window) |
| 7580 | 20 6e 69 6c 20 27 72 69 67 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d | .nil.'right))...........(select- |
| 75a0 | 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 29 29 0a 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c | window.window))).......(find-fil |
| 75c0 | 65 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 | e.dired-file-name).......(when.d |
| 75e0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 6c 6f 73 65 2d 73 69 64 65 62 61 72 2d 6f 6e 2d 66 69 | ired-sidebar-close-sidebar-on-fi |
| 7600 | 6c 65 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 68 | le-open.........(dired-sidebar-h |
| 7620 | 69 64 65 2d 73 69 64 65 62 61 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 | ide-sidebar)))))..(defun.dired-s |
| 7640 | 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 2d 61 6c 74 20 28 29 0a 20 20 22 4c 69 6b 65 20 | idebar-find-file-alt.()..."Like. |
| 7660 | 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 27 20 62 75 74 20 73 65 | `dired-sidebar-find-file'.but.se |
| 7680 | 6c 65 63 74 20 77 69 6e 64 6f 77 20 77 69 74 68 20 61 6c 74 65 72 61 74 65 20 6d 65 74 68 6f 64 | lect.window.with.alterate.method |
| 76a0 | 2e 0a 0a 53 65 6c 65 63 74 20 61 6c 74 65 72 6e 61 74 65 20 77 69 6e 64 6f 77 20 75 73 69 6e 67 | ...Select.alternate.window.using |
| 76c0 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 74 65 72 6e 61 74 65 2d 73 65 6c 65 63 74 | .`dired-sidebar-alternate-select |
| 76e0 | 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 27 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 | -window-function'."...(interacti |
| 7700 | 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 20 | ve)...(let.((current-prefix-arg. |
| 7720 | 27 28 34 29 29 29 20 3b 20 43 2d 75 0a 20 20 20 20 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 | '(4))).;.C-u.....(call-interacti |
| 7740 | 76 65 6c 79 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 29 29 29 | vely.'dired-sidebar-find-file))) |
| 7760 | 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 2d 64 69 72 65 63 74 | ..(defun.dired-sidebar-up-direct |
| 7780 | 6f 72 79 20 28 29 0a 20 20 22 57 72 61 70 70 65 72 20 6f 76 65 72 20 60 64 69 72 65 64 2d 75 70 | ory.()..."Wrapper.over.`dired-up |
| 77a0 | 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 65 29 0a 20 20 | -directory'."...(interactive)... |
| 77c0 | 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 69 74 68 2d 6e 6f 2d 64 65 64 69 63 61 74 69 6f | (dired-sidebar-with-no-dedicatio |
| 77e0 | 6e 0a 20 20 20 3b 3b 20 49 66 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 27 20 69 73 20 75 73 | n....;;.If.`dired-subtree'.is.us |
| 7800 | 65 64 2c 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 20 69 73 | ed,.`dired-current-directory'.is |
| 7820 | 20 72 65 64 65 66 69 6e 65 64 2e 0a 20 20 20 3b 3b 20 53 6f 20 6d 6f 76 65 20 70 6f 69 6e 74 20 | .redefined.....;;.So.move.point. |
| 7840 | 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 20 62 75 66 66 65 72 20 74 6f 20 67 65 74 20 | to.the.top.of.the.buffer.to.get. |
| 7860 | 74 68 65 20 61 63 74 75 61 6c 20 64 69 72 65 63 74 6f 72 79 20 61 6e 64 0a 20 20 20 3b 3b 20 6e | the.actual.directory.and....;;.n |
| 7880 | 6f 74 20 74 68 65 20 6f 6e 65 20 61 74 20 70 6f 69 6e 74 2e 0a 20 20 20 28 77 68 65 6e 20 64 69 | ot.the.one.at.point.....(when.di |
| 78a0 | 72 65 64 2d 73 69 64 65 62 61 72 2d 73 6b 69 70 2d 73 75 62 74 72 65 65 2d 70 61 72 65 6e 74 0a | red-sidebar-skip-subtree-parent. |
| 78c0 | 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 | .....(goto-char.(point-min)))... |
| 78e0 | 20 28 6c 65 74 2a 20 28 28 64 69 72 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 | .(let*.((dir.(dired-current-dire |
| 7900 | 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 70 20 28 66 69 6c 65 2d 6e 61 6d 65 | ctory))...........(up.(file-name |
| 7920 | 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. |
| 7940 | 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 75 70 2d 6e 61 6d 65 20 28 64 69 72 65 64 | dir)))...........(up-name.(dired |
| 7960 | 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 75 70 29 29 29 0a 20 20 20 20 20 | -sidebar-buffer-name.up)))...... |
| 7980 | 28 69 66 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 65 78 69 73 74 73 | (if.(dired-sidebar-buffer-exists |
| 79a0 | 2d 70 20 75 70 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 | -p.up-name)..........(progn..... |
| 79c0 | 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 75 70 2d 6e 61 6d 65 | .......(switch-to-buffer.up-name |
| 79e0 | 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 | )............(dired-sidebar-upda |
| 7a00 | 74 65 2d 73 74 61 74 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 | te-state.(current-buffer)))..... |
| 7a20 | 20 20 20 28 69 66 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6f 6e 65 2d 69 6e 73 | ...(if.dired-sidebar-use-one-ins |
| 7a40 | 74 61 6e 63 65 0a 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 61 6c 74 65 72 6e 61 74 65 | tance............(find-alternate |
| 7a60 | 2d 66 69 6c 65 20 22 2e 2e 22 29 0a 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 75 70 2d 64 | -file."..")..........(dired-up-d |
| 7a80 | 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 | irectory))........(dired-sidebar |
| 7aa0 | 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 | -mode)........(dired-sidebar-upd |
| 7ac0 | 61 74 65 2d 73 74 61 74 65 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 | ate-state.(current-buffer))).... |
| 7ae0 | 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 20 75 70 29 29 0a | ..(let.((default-directory.up)). |
| 7b00 | 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 6f 74 6f 2d 66 69 6c 65 20 64 69 72 29 29 29 29 29 | .......(dired-goto-file.dir))))) |
| 7b20 | 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 75 73 65 2d 73 75 62 | ..(defun.dired-sidebar-mouse-sub |
| 7b40 | 74 72 65 65 2d 63 79 63 6c 65 2d 6f 72 2d 66 69 6e 64 2d 66 69 6c 65 20 28 65 76 65 6e 74 29 0a | tree-cycle-or-find-file.(event). |
| 7b60 | 20 20 22 48 61 6e 64 6c 65 20 61 20 6d 6f 75 73 65 20 63 6c 69 63 6b 20 45 56 45 4e 54 20 69 6e | .."Handle.a.mouse.click.EVENT.in |
| 7b80 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 0a 46 6f 72 20 64 69 72 65 63 74 6f 72 69 | .`dired-sidebar'...For.directori |
| 7ba0 | 65 73 2c 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 79 63 6c 65 2d 73 75 62 74 | es,.if.`dired-sidebar-cycle-subt |
| 7bc0 | 72 65 65 2d 6f 6e 2d 63 6c 69 63 6b 27 20 69 73 20 74 72 75 65 2c 0a 63 79 63 6c 65 20 74 68 65 | ree-on-click'.is.true,.cycle.the |
| 7be0 | 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 4f 74 68 65 72 77 69 73 65 2c 20 62 65 68 61 76 65 73 20 | .directory...Otherwise,.behaves. |
| 7c00 | 74 68 65 20 73 61 6d 65 20 61 73 20 69 66 20 75 73 65 72 20 63 6c 69 63 6b 65 64 20 6f 6e 20 61 | the.same.as.if.user.clicked.on.a |
| 7c20 | 20 66 69 6c 65 2e 0a 0a 46 6f 72 20 66 69 6c 65 73 2c 20 75 73 65 20 60 64 69 72 65 64 2d 73 69 | .file...For.files,.use.`dired-si |
| 7c40 | 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 27 2e 0a 0a 54 68 69 73 20 75 73 65 73 20 74 68 65 | debar-find-file'...This.uses.the |
| 7c60 | 20 73 61 6d 65 20 63 6f 64 65 20 61 73 20 60 64 69 72 65 64 2d 6d 6f 75 73 65 2d 66 69 6e 64 2d | .same.code.as.`dired-mouse-find- |
| 7c80 | 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 27 20 74 6f 20 66 69 6e 64 0a 74 68 65 20 72 | file-other-window'.to.find.the.r |
| 7ca0 | 65 6c 65 76 61 6e 74 20 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 20 63 6c 69 63 6b 65 64 20 6f | elevant.file-directory.clicked.o |
| 7cc0 | 6e 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 | n.by.the.mouse."...(interactive. |
| 7ce0 | 22 65 22 29 0a 20 20 28 6c 65 74 20 28 77 69 6e 64 6f 77 20 70 6f 73 20 66 69 6c 65 29 0a 20 20 | "e")...(let.(window.pos.file)... |
| 7d00 | 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 73 65 74 71 20 77 69 | ..(save-excursion.......(setq.wi |
| 7d20 | 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 | ndow.(posn-window.(event-end.eve |
| 7d40 | 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 | nt)).............pos.(posn-point |
| 7d60 | 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 | .(event-end.event))).......(if.( |
| 7d80 | 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 | not.(windowp.window))........... |
| 7da0 | 28 65 72 72 6f 72 20 22 4e 6f 20 66 69 6c 65 20 63 68 6f 73 65 6e 22 29 29 0a 20 20 20 20 20 20 | (error."No.file.chosen"))....... |
| 7dc0 | 28 73 65 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 64 6f | (set-buffer.(window-buffer.windo |
| 7de0 | 77 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 | w)).......(goto-char.pos)....... |
| 7e00 | 28 73 65 74 71 20 66 69 6c 65 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 2d 66 6f 72 2d 76 | (setq.file.(dired-get-file-for-v |
| 7e20 | 69 73 69 74 29 29 29 0a 20 20 20 20 3b 3b 20 54 68 65 72 65 27 73 20 61 20 66 6c 69 63 6b 65 72 | isit))).....;;.There's.a.flicker |
| 7e40 | 20 64 6f 69 6e 67 20 74 68 69 73 20 62 75 74 20 69 74 20 64 6f 65 73 6e 27 74 20 73 65 65 6d 20 | .doing.this.but.it.doesn't.seem. |
| 7e60 | 6c 69 6b 65 0a 20 20 20 20 3b 3b 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 | like.....;;.`dired-subtree-cycle |
| 7e80 | 27 20 77 6f 72 6b 73 20 77 69 74 68 6f 75 74 20 66 69 72 73 74 20 73 65 6c 65 63 74 69 6e 67 20 | '.works.without.first.selecting. |
| 7ea0 | 74 68 65 20 77 69 6e 64 6f 77 2e 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 | the.window......(with-selected-w |
| 7ec0 | 69 6e 64 6f 77 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 69 66 20 28 61 6e 64 20 64 69 72 65 | indow.window.......(if.(and.dire |
| 7ee0 | 64 2d 73 69 64 65 62 61 72 2d 63 79 63 6c 65 2d 73 75 62 74 72 65 65 2d 6f 6e 2d 63 6c 69 63 6b | d-sidebar-cycle-subtree-on-click |
| 7f00 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d | ................(file-directory- |
| 7f20 | 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 | p.file)................(not.(str |
| 7f40 | 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2e 22 20 66 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 | ing-suffix-p.".".file)))........ |
| 7f60 | 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 29 0a 20 20 20 20 20 20 20 | ...(dired-subtree-cycle)........ |
| 7f80 | 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 29 | .(dired-sidebar-find-file.file)) |
| 7fa0 | 29 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 64 69 73 70 6c 61 79 2d 69 63 | ))...(dired-sidebar-redisplay-ic |
| 7fc0 | 6f 6e 73 29 29 0a 0a 3b 3b 20 48 65 6c 70 65 72 73 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d | ons))..;;.Helpers..(defun.dired- |
| 7fe0 | 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 65 78 69 73 74 73 2d 70 20 28 62 75 66 66 65 72 2d | sidebar-buffer-exists-p.(buffer- |
| 8000 | 6e 61 6d 65 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 61 20 60 64 69 72 65 64 2d 73 69 64 65 62 | name)..."Check.if.a.`dired-sideb |
| 8020 | 61 72 27 20 62 75 66 66 65 72 20 65 78 69 73 74 73 20 66 6f 72 20 42 55 46 46 45 52 2d 4e 41 4d | ar'.buffer.exists.for.BUFFER-NAM |
| 8040 | 45 2e 22 0a 20 20 28 67 65 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a | E."...(get-buffer.buffer-name)). |
| 8060 | 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 69 64 65 62 61 72 2d 72 6f | .(defun.dired-sidebar-sidebar-ro |
| 8080 | 6f 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 64 69 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 | ot.()..."Return.directory.using. |
| 80a0 | 60 70 72 6f 6a 65 63 74 69 6c 65 27 2c 20 60 70 72 6f 6a 65 63 74 27 20 6f 72 20 63 75 72 72 65 | `projectile',.`project'.or.curre |
| 80c0 | 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 69 66 20 28 66 65 61 74 75 72 65 70 20 27 | nt.directory."...(if.(featurep.' |
| 80e0 | 70 72 6f 6a 65 63 74 69 6c 65 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 | projectile).......(condition-cas |
| 8100 | 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 70 72 | e.nil...........(if.(fboundp.'pr |
| 8120 | 6f 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 | ojectile-project-root).......... |
| 8140 | 20 20 20 20 20 28 6f 72 20 28 70 72 6f 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f | .....(or.(projectile-project-roo |
| 8160 | 74 29 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 20 20 | t).default-directory)........... |
| 8180 | 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 20 20 20 20 28 65 72 | ..default-directory).........(er |
| 81a0 | 72 6f 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 3b 3b 20 55 | ror.default-directory)).....;;.U |
| 81c0 | 73 65 20 60 70 72 6f 6a 65 63 74 27 20 69 66 20 60 70 72 6f 6a 65 63 74 69 6c 65 27 20 69 73 20 | se.`project'.if.`projectile'.is. |
| 81e0 | 6e 6f 74 20 6c 6f 61 64 65 64 20 79 65 74 2e 0a 20 20 20 20 3b 3b 20 60 70 72 6f 6a 65 63 74 69 | not.loaded.yet......;;.`projecti |
| 8200 | 6c 65 27 20 69 73 20 61 20 62 69 67 20 70 61 63 6b 61 67 65 20 61 6e 64 20 74 61 6b 65 73 20 61 | le'.is.a.big.package.and.takes.a |
| 8220 | 20 77 68 69 6c 65 20 74 6f 20 6c 6f 61 64 20 73 6f 20 69 74 27 73 20 62 65 74 74 65 72 0a 20 20 | .while.to.load.so.it's.better... |
| 8240 | 20 20 3b 3b 20 74 6f 20 64 65 66 65 72 20 6c 6f 61 64 69 6e 67 20 69 74 20 61 73 20 6c 6f 6e 67 | ..;;.to.defer.loading.it.as.long |
| 8260 | 20 61 73 20 70 6f 73 73 69 62 6c 65 20 28 75 6e 74 69 6c 20 74 68 65 20 75 73 65 72 20 63 68 6f | .as.possible.(until.the.user.cho |
| 8280 | 6f 73 65 73 29 2e 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 2d 6c 65 74 | oses)......(dired-sidebar-if-let |
| 82a0 | 2a 20 28 28 70 72 20 28 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 29 29 29 0a 20 20 20 20 20 | *.((pr.(project-current)))...... |
| 82c0 | 20 20 20 3b 3b 20 49 74 20 63 61 6e 20 68 61 70 70 65 6e 2c 20 61 74 20 6c 65 61 73 74 20 69 6e | ...;;.It.can.happen,.at.least.in |
| 82e0 | 20 45 6d 61 63 73 20 32 37 2e 31 2c 20 74 68 61 74 0a 20 20 20 20 20 20 20 20 3b 3b 20 60 70 72 | .Emacs.27.1,.that.........;;.`pr |
| 8300 | 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 60 20 67 69 76 65 20 61 20 6e 6f 6e 2d 6e 69 6c 20 72 65 | oject-current`.give.a.non-nil.re |
| 8320 | 73 75 6c 74 2c 20 77 68 69 6c 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 60 70 72 6f 6a 65 63 74 2d | sult,.while.........;;.`project- |
| 8340 | 72 6f 6f 74 60 20 69 73 20 75 6e 64 65 66 69 6e 65 64 2e 20 46 61 6c 6c 62 61 63 6b 20 74 6f 20 | root`.is.undefined..Fallback.to. |
| 8360 | 61 73 73 75 6d 69 6e 67 20 74 68 61 74 20 74 68 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 64 69 72 | assuming.that.the.........;;.dir |
| 8380 | 65 63 74 6f 72 79 20 70 61 72 74 20 6f 66 20 60 70 72 6f 6a 65 63 74 2d 63 75 72 72 65 6e 74 60 | ectory.part.of.`project-current` |
| 83a0 | 20 69 73 20 74 68 65 20 72 6f 6f 74 2e 20 53 65 65 0a 20 20 20 20 20 20 20 20 3b 3b 20 68 74 74 | .is.the.root..See.........;;.htt |
| 83c0 | 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 6a 6f 6a 6f 6a 61 6d 65 73 2f 64 69 72 65 64 2d | ps://github.com/jojojames/dired- |
| 83e0 | 73 69 64 65 62 61 72 2f 69 73 73 75 65 73 2f 37 33 20 66 6f 72 0a 20 20 20 20 20 20 20 20 3b 3b | sidebar/issues/73.for.........;; |
| 8400 | 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 | .more.details..........(if.(fbou |
| 8420 | 6e 64 70 20 27 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 | ndp.'project-root).............( |
| 8440 | 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 20 70 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 | project-root.pr)...........(cdr. |
| 8460 | 70 72 29 29 0a 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a | pr)).......default-directory))). |
| 8480 | 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 6e 61 6d | .(defun.dired-sidebar-buffer-nam |
| 84a0 | 65 20 28 64 69 72 29 0a 20 20 22 52 65 74 75 72 6e 20 6e 61 6d 65 20 6f 66 20 60 64 69 72 65 64 | e.(dir)..."Return.name.of.`dired |
| 84c0 | 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 20 67 69 76 65 6e 20 44 49 52 2e 22 0a 20 20 28 | -sidebar'.buffer.given.DIR."...( |
| 84e0 | 6c 65 74 20 28 28 62 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 73 74 72 69 | let.((b.(cond.............((stri |
| 8500 | 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2e 2e 22 20 64 69 72 29 0a 20 20 20 20 20 20 20 20 20 20 | ng-suffix-p."..".dir)........... |
| 8520 | 20 20 20 3b 3b 20 7e 2f 2e 65 6d 61 63 73 2e 64 2f 65 6c 70 61 2f 2e 2e 20 2d 3e 20 7e 2f 2e 65 | ...;;.~/.emacs.d/elpa/...->.~/.e |
| 8540 | 6d 61 63 73 2e 64 2f 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6c 65 2d 6e 61 6d 65 2d | macs.d/..............(file-name- |
| 8560 | 64 69 72 65 63 74 6f 72 79 20 28 73 75 62 73 74 72 69 6e 67 20 64 69 72 20 30 20 28 2d 20 28 6c | directory.(substring.dir.0.(-.(l |
| 8580 | 65 6e 67 74 68 20 64 69 72 29 20 33 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 6e | ength.dir).3)))).............((n |
| 85a0 | 6f 74 20 28 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2f 22 20 64 69 72 29 29 0a 20 20 | ot.(string-suffix-p."/".dir))... |
| 85c0 | 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 63 61 74 20 64 69 72 20 22 2f 22 29 29 0a 20 20 20 | ...........(concat.dir."/")).... |
| 85e0 | 20 20 20 20 20 20 20 20 20 28 3a 64 65 66 61 75 6c 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | .........(:default.............. |
| 8600 | 64 69 72 29 29 29 29 0a 20 20 20 20 28 63 6f 6e 63 61 74 20 22 3a 22 20 28 61 62 62 72 65 76 69 | dir)))).....(concat.":".(abbrevi |
| 8620 | 61 74 65 2d 66 69 6c 65 2d 6e 61 6d 65 20 62 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 | ate-file-name.b))))..(defun.dire |
| 8640 | 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 6f 72 2d 63 72 65 61 74 65 2d 62 75 66 66 65 72 20 28 | d-sidebar-get-or-create-buffer.( |
| 8660 | 72 6f 6f 74 29 0a 20 20 22 47 65 74 20 6f 72 20 63 72 65 61 74 65 20 61 20 60 64 69 72 65 64 2d | root)..."Get.or.create.a.`dired- |
| 8680 | 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 20 6d 61 74 63 68 69 6e 67 20 52 4f 4f 54 2e 22 0a | sidebar'.buffer.matching.ROOT.". |
| 86a0 | 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 6e 61 6d 65 20 28 64 | ..(interactive)...(let.((name.(d |
| 86c0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 72 6f 6f 74 29 29 29 | ired-sidebar-buffer-name.root))) |
| 86e0 | 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 2d 6c 65 74 2a 20 28 28 65 78 | .....(dired-sidebar-if-let*.((ex |
| 8700 | 69 73 74 69 6e 67 2d 62 75 66 66 65 72 20 28 67 65 74 2d 62 75 66 66 65 72 20 6e 61 6d 65 29 29 | isting-buffer.(get-buffer.name)) |
| 8720 | 29 0a 20 20 20 20 20 20 20 20 65 78 69 73 74 69 6e 67 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 | ).........existing-buffer....... |
| 8740 | 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 20 72 6f | (let.((buffer.(dired-noselect.ro |
| 8760 | 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 3b 3b 20 57 68 65 6e 20 6f 70 65 6e 69 6e 67 20 61 20 | ot))).........;;.When.opening.a. |
| 8780 | 73 69 64 65 62 61 72 20 77 68 69 6c 65 20 69 6e 20 61 20 64 69 72 65 64 20 62 75 66 66 65 72 20 | sidebar.while.in.a.dired.buffer. |
| 87a0 | 74 68 61 74 20 6d 61 74 63 68 65 73 0a 20 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 73 69 64 65 | that.matches.........;;.the.side |
| 87c0 | 62 61 72 27 73 20 72 6f 6f 74 20 64 69 72 65 63 74 6f 72 79 2e 0a 20 20 20 20 20 20 20 20 28 69 | bar's.root.directory..........(i |
| 87e0 | 66 20 28 65 71 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 20 62 75 66 66 65 72 29 0a 20 | f.(eq.(current-buffer).buffer).. |
| 8800 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d | ...........;;.https://github.com |
| 8820 | 2f 46 75 63 6f 31 2f 64 69 72 65 64 2d 68 61 63 6b 73 2f 69 73 73 75 65 73 2f 31 30 32 0a 20 20 | /Fuco1/dired-hacks/issues/102... |
| 8840 | 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 6d 65 6d 62 65 72 20 27 64 69 72 65 64 2d 63 6f 6c | ..........(if.(member.'dired-col |
| 8860 | 6c 61 70 73 65 2d 6d 6f 64 65 20 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 20 20 | lapse-mode.dired-mode-hook)..... |
| 8880 | 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............(progn.............. |
| 88a0 | 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f | .....(remove-hook.'dired-mode-ho |
| 88c0 | 6f 6b 20 27 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 | ok.'dired-collapse-mode)........ |
| 88e0 | 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 63 6c 6f 6e 65 20 28 63 6c 6f 6e 65 2d 62 | ...........(let.((clone.(clone-b |
| 8900 | 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 | uffer))).....................(ad |
| 8920 | 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 63 | d-hook.'dired-mode-hook.'dired-c |
| 8940 | 6f 6c 6c 61 70 73 65 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 | ollapse-mode)................... |
| 8960 | 20 20 63 6c 6f 6e 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 6e 65 2d 62 | ..clone))...............(clone-b |
| 8980 | 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 20 20 20 20 3b 3b 20 52 65 6e 61 6d 65 20 74 68 65 20 | uffer))...........;;.Rename.the. |
| 89a0 | 62 75 66 66 65 72 20 67 65 6e 65 72 61 74 65 64 20 62 79 20 60 64 69 72 65 64 2d 6e 6f 73 65 6c | buffer.generated.by.`dired-nosel |
| 89c0 | 65 63 74 27 2e 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 73 74 72 69 | ect'............(when.(not.(stri |
| 89e0 | 6e 67 2d 65 71 75 61 6c 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 20 62 75 66 66 65 72 29 20 6e 61 | ng-equal.(buffer-name.buffer).na |
| 8a00 | 6d 65 29 29 0a 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 | me)).............(with-current-b |
| 8a20 | 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6e 61 | uffer.buffer...............(rena |
| 8a40 | 6d 65 2d 62 75 66 66 65 72 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 66 | me-buffer.name)))...........buff |
| 8a60 | 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 | er)))))..(defun.dired-sidebar-se |
| 8a80 | 74 2d 66 6f 6e 74 20 28 29 0a 20 20 22 43 75 73 74 6f 6d 69 7a 65 20 66 6f 6e 74 20 69 6e 20 60 | t-font.()..."Customize.font.in.` |
| 8aa0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 0a 53 65 74 20 66 6f 6e 74 20 74 6f 20 61 20 76 | dired-sidebar'...Set.font.to.a.v |
| 8ac0 | 61 72 69 61 62 6c 65 20 77 69 64 74 68 20 28 70 72 6f 70 6f 72 74 69 6f 6e 61 6c 29 20 69 6e 20 | ariable.width.(proportional).in. |
| 8ae0 | 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | the.current.buffer."...(interact |
| 8b00 | 69 76 65 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 62 75 66 66 65 72 2d 66 61 63 65 2d 6d | ive)...(setq-local.buffer-face-m |
| 8b20 | 6f 64 65 2d 66 61 63 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 61 63 65 29 0a 20 20 28 | ode-face.dired-sidebar-face)...( |
| 8b40 | 62 75 66 66 65 72 2d 66 61 63 65 2d 6d 6f 64 65 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 | buffer-face-mode))..(defun.dired |
| 8b60 | 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 6d 6f 64 65 2d 6c 69 6e 65 20 28 29 0a 20 20 22 43 75 73 | -sidebar-set-mode-line.()..."Cus |
| 8b80 | 74 6f 6d 69 7a 65 20 6d 6f 64 65 6c 69 6e 65 20 69 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | tomize.modeline.in.`dired-sideba |
| 8ba0 | 72 27 2e 22 0a 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 20 64 69 | r'."...(setq.mode-line-format.di |
| 8bc0 | 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 2d 6c 69 6e 65 2d 66 6f 72 6d 61 74 29 29 0a 0a | red-sidebar-mode-line-format)).. |
| 8be0 | 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 77 69 64 74 68 20 28 | (defun.dired-sidebar-set-width.( |
| 8c00 | 77 69 64 74 68 29 0a 20 20 22 53 65 74 20 74 68 65 20 77 69 64 74 68 20 6f 66 20 74 68 65 20 62 | width)..."Set.the.width.of.the.b |
| 8c20 | 75 66 66 65 72 20 74 6f 20 57 49 44 54 48 20 77 68 65 6e 20 69 74 20 69 73 20 63 72 65 61 74 65 | uffer.to.WIDTH.when.it.is.create |
| 8c40 | 64 2e 22 0a 20 20 3b 3b 20 43 6f 70 69 65 64 20 66 72 6f 6d 20 60 74 72 65 65 6d 61 63 73 2d 2d | d."...;;.Copied.from.`treemacs-- |
| 8c60 | 73 65 74 2d 77 69 64 74 68 27 20 61 73 20 77 65 6c 6c 20 61 73 20 60 6e 65 6f 74 72 65 65 27 2e | set-width'.as.well.as.`neotree'. |
| 8c80 | 0a 20 20 28 75 6e 6c 65 73 73 20 28 6f 6e 65 2d 77 69 6e 64 6f 77 2d 70 29 0a 20 20 20 20 28 6c | ...(unless.(one-window-p).....(l |
| 8ca0 | 65 74 20 28 28 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 | et.((window-size-fixed)......... |
| 8cc0 | 20 20 28 77 20 28 6d 61 78 20 77 69 64 74 68 20 77 69 6e 64 6f 77 2d 6d 69 6e 2d 77 69 64 74 68 | ..(w.(max.width.window-min-width |
| 8ce0 | 29 29 29 0a 20 20 20 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 20 20 28 28 3e 20 28 77 69 6e 64 | ))).......(cond........((>.(wind |
| 8d00 | 6f 77 2d 77 69 64 74 68 29 20 77 29 0a 20 20 20 20 20 20 20 20 28 73 68 72 69 6e 6b 2d 77 69 6e | ow-width).w).........(shrink-win |
| 8d20 | 64 6f 77 2d 68 6f 72 69 7a 6f 6e 74 61 6c 6c 79 20 20 28 2d 20 28 77 69 6e 64 6f 77 2d 77 69 64 | dow-horizontally..(-.(window-wid |
| 8d40 | 74 68 29 20 77 29 29 29 0a 20 20 20 20 20 20 20 28 28 3c 20 28 77 69 6e 64 6f 77 2d 77 69 64 74 | th).w)))........((<.(window-widt |
| 8d60 | 68 29 20 77 29 0a 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 | h).w).........(enlarge-window-ho |
| 8d80 | 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))) |
| 8da0 | 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 | )))))..(defun.dired-sidebar-upda |
| 8dc0 | 74 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 62 75 66 66 | te-buffer-name.()..."Change.buff |
| 8de0 | 65 72 20 6e 61 6d 65 20 74 6f 20 61 76 6f 69 64 20 63 6f 6c 6c 69 73 69 6f 6e 20 77 69 74 68 20 | er.name.to.avoid.collision.with. |
| 8e00 | 72 65 67 75 6c 61 72 20 60 64 69 72 65 64 27 20 62 75 66 66 65 72 73 2e 22 0a 20 20 28 72 65 6e | regular.`dired'.buffers."...(ren |
| 8e20 | 61 6d 65 2d 62 75 66 66 65 72 0a 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 | ame-buffer....(dired-sidebar-buf |
| 8e40 | 66 65 72 2d 6e 61 6d 65 20 28 64 69 72 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 | fer-name.(dired-current-director |
| 8e60 | 79 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 64 61 | y))))..(defun.dired-sidebar-upda |
| 8e80 | 74 65 2d 73 74 61 74 65 20 28 62 75 66 66 65 72 20 26 6f 70 74 69 6f 6e 61 6c 20 66 29 0a 20 20 | te-state.(buffer.&optional.f)... |
| 8ea0 | 22 55 70 64 61 74 65 20 63 75 72 72 65 6e 74 20 73 74 61 74 65 20 77 69 74 68 20 42 55 46 46 45 | "Update.current.state.with.BUFFE |
| 8ec0 | 52 20 66 6f 72 20 73 69 64 65 62 61 72 20 69 6e 20 46 20 6f 72 20 73 65 6c 65 63 74 65 64 20 66 | R.for.sidebar.in.F.or.selected.f |
| 8ee0 | 72 61 6d 65 2e 22 0a 20 20 28 6c 65 74 20 28 28 66 72 61 6d 65 20 28 6f 72 20 66 20 28 73 65 6c | rame."...(let.((frame.(or.f.(sel |
| 8f00 | 65 63 74 65 64 2d 66 72 61 6d 65 29 29 29 29 0a 20 20 20 20 28 69 66 20 28 61 73 73 71 20 66 72 | ected-frame)))).....(if.(assq.fr |
| 8f20 | 61 6d 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 69 73 74 29 0a 20 20 20 20 20 20 20 | ame.dired-sidebar-alist)........ |
| 8f40 | 20 28 73 65 74 63 64 72 20 28 61 73 73 71 20 66 72 61 6d 65 20 64 69 72 65 64 2d 73 69 64 65 62 | .(setcdr.(assq.frame.dired-sideb |
| 8f60 | 61 72 2d 61 6c 69 73 74 29 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 60 28 | ar-alist).buffer).......(push.`( |
| 8f80 | 2c 66 72 61 6d 65 20 2e 20 2c 62 75 66 66 65 72 29 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ,frame...,buffer).dired-sidebar- |
| 8fa0 | 61 6c 69 73 74 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | alist))))..(defun.dired-sidebar- |
| 8fc0 | 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 29 0a | showing-sidebar-p.(&optional.f). |
| 8fe0 | 20 20 22 57 68 65 74 68 65 72 20 46 20 6f 72 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 20 69 | .."Whether.F.or.selected.frame.i |
| 9000 | 73 20 73 68 6f 77 69 6e 67 20 61 20 73 69 64 65 62 61 72 2e 0a 0a 43 68 65 63 6b 20 69 66 20 46 | s.showing.a.sidebar...Check.if.F |
| 9020 | 20 6f 72 20 73 65 6c 65 63 74 65 64 20 66 72 61 6d 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 73 69 | .or.selected.frame.contains.a.si |
| 9040 | 64 65 62 61 72 20 61 6e 64 20 72 65 74 75 72 6e 0a 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 20 62 | debar.and.return.corresponding.b |
| 9060 | 75 66 66 65 72 20 69 66 20 62 75 66 66 65 72 20 68 61 73 20 61 20 77 69 6e 64 6f 77 20 61 74 74 | uffer.if.buffer.has.a.window.att |
| 9080 | 61 63 68 65 64 20 74 6f 20 69 74 2e 0a 0a 52 65 74 75 72 6e 20 62 75 66 66 65 72 20 69 66 20 73 | ached.to.it...Return.buffer.if.s |
| 90a0 | 6f 2e 22 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 | o."...(dired-sidebar-when-let*.( |
| 90c0 | 28 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 20 66 29 | (buffer.(dired-sidebar-buffer.f) |
| 90e0 | 29 29 0a 20 20 20 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 | )).....(get-buffer-window.buffer |
| 9100 | 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 | )))..(defun.dired-sidebar-buffer |
| 9120 | 20 28 26 6f 70 74 69 6f 6e 61 6c 20 66 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 | .(&optional.f)..."Return.the.cur |
| 9140 | 72 65 6e 74 20 73 69 64 65 62 61 72 20 62 75 66 66 65 72 20 69 6e 20 46 20 6f 72 20 73 65 6c 65 | rent.sidebar.buffer.in.F.or.sele |
| 9160 | 63 74 65 64 20 66 72 61 6d 65 2e 0a 0a 54 68 69 73 20 63 61 6e 20 72 65 74 75 72 6e 20 6e 69 6c | cted.frame...This.can.return.nil |
| 9180 | 20 69 66 20 74 68 65 20 62 75 66 66 65 72 20 68 61 73 20 62 65 65 6e 20 6b 69 6c 6c 65 64 2e 22 | .if.the.buffer.has.been.killed." |
| 91a0 | 0a 20 20 28 6c 65 74 2a 20 28 28 66 72 61 6d 65 20 28 6f 72 20 66 20 28 73 65 6c 65 63 74 65 64 | ...(let*.((frame.(or.f.(selected |
| 91c0 | 2d 66 72 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 61 6c 69 73 | -frame)))..........(buffer.(alis |
| 91e0 | 74 2d 67 65 74 20 66 72 61 6d 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 69 73 74 29 | t-get.frame.dired-sidebar-alist) |
| 9200 | 29 29 0a 20 20 20 20 3b 3b 20 54 68 65 20 62 75 66 66 65 72 20 63 61 6e 20 62 65 20 6b 69 6c 6c | )).....;;.The.buffer.can.be.kill |
| 9220 | 65 64 20 66 6f 72 20 61 20 76 61 72 69 65 74 79 20 6f 66 20 72 65 61 73 6f 6e 73 2e 0a 20 20 20 | ed.for.a.variety.of.reasons..... |
| 9240 | 20 3b 3b 20 54 68 69 73 20 73 69 64 65 20 65 66 66 65 63 74 20 69 73 20 6b 69 6e 64 20 6f 66 20 | .;;.This.side.effect.is.kind.of. |
| 9260 | 6d 65 73 73 79 20 62 75 74 20 69 74 27 73 20 74 68 65 20 73 69 6d 70 6c 65 73 74 20 70 6c 61 63 | messy.but.it's.the.simplest.plac |
| 9280 | 65 0a 20 20 20 20 3b 3b 20 74 6f 20 70 75 74 20 74 68 65 20 63 6c 65 61 6e 20 75 70 20 63 6f 64 | e.....;;.to.put.the.clean.up.cod |
| 92a0 | 65 20 66 6f 72 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 69 73 74 27 2e 0a 20 20 20 | e.for.`dired-sidebar-alist'..... |
| 92c0 | 20 28 69 66 20 28 62 75 66 66 65 72 2d 6c 69 76 65 2d 70 20 62 75 66 66 65 72 29 0a 20 20 20 20 | .(if.(buffer-live-p.buffer)..... |
| 92e0 | 20 20 20 20 62 75 66 66 65 72 0a 20 20 20 20 20 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 77 77 77 2e | ....buffer.......;;.https://www. |
| 9300 | 67 6e 75 2e 6f 72 67 2f 73 6f 66 74 77 61 72 65 2f 65 6d 61 63 73 2f 6d 61 6e 75 61 6c 2f 68 74 | gnu.org/software/emacs/manual/ht |
| 9320 | 6d 6c 5f 6e 6f 64 65 2f 65 6c 69 73 70 2f 41 73 73 6f 63 69 61 74 69 6f 6e 2d 4c 69 73 74 73 2e | ml_node/elisp/Association-Lists. |
| 9340 | 68 74 6d 6c 0a 20 20 20 20 20 20 3b 3b 20 44 6f 63 75 6d 65 6e 74 61 74 69 6f 6e 20 66 6f 72 20 | html.......;;.Documentation.for. |
| 9360 | 60 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 27 2e 0a 20 20 20 20 20 20 3b 3b 20 57 68 61 74 | `assq-delete-all'........;;.What |
| 9380 | 20 6b 69 6e 64 20 6f 66 20 41 50 49 20 69 73 20 74 68 69 73 3f 3f 20 3a 28 29 0a 20 20 20 20 20 | .kind.of.API.is.this??.:()...... |
| 93a0 | 20 3b 3b 20 57 68 79 20 64 6f 65 73 20 69 74 20 6f 6e 6c 79 20 6d 6f 64 69 66 79 20 27 6f 66 74 | .;;.Why.does.it.only.modify.'oft |
| 93c0 | 65 6e 27 20 61 6e 64 20 6e 6f 74 20 27 61 6c 77 61 79 73 27 3f 20 c2 af 5c 5f 28 e3 83 84 29 5f | en'.and.not.'always'?...\_(...)_ |
| 93e0 | 2f c2 af 0a 20 20 20 20 20 20 3b 3b 20 49 74 20 72 65 74 75 72 6e 73 20 74 68 65 20 73 68 6f 72 | /.........;;.It.returns.the.shor |
| 9400 | 74 65 6e 65 64 20 61 6c 69 73 74 2c 20 61 6e 64 20 6f 66 74 65 6e 20 6d 6f 64 69 66 69 65 73 20 | tened.alist,.and.often.modifies. |
| 9420 | 74 68 65 20 6f 72 69 67 69 6e 61 6c 20 6c 69 73 74 0a 20 20 20 20 20 20 3b 3b 20 73 74 72 75 63 | the.original.list.......;;.struc |
| 9440 | 74 75 72 65 20 6f 66 20 61 6c 69 73 74 2e 0a 20 20 20 20 20 20 3b 3b 20 46 6f 72 20 63 6f 72 72 | ture.of.alist........;;.For.corr |
| 9460 | 65 63 74 20 72 65 73 75 6c 74 73 2c 20 75 73 65 20 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 | ect.results,.use.the.return.valu |
| 9480 | 65 20 6f 66 20 61 73 73 71 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 72 61 74 68 65 72 0a 20 20 20 20 | e.of.assq-delete-all.rather..... |
| 94a0 | 20 20 3b 3b 20 74 68 61 6e 20 6c 6f 6f 6b 69 6e 67 20 61 74 20 74 68 65 20 73 61 76 65 64 20 76 | ..;;.than.looking.at.the.saved.v |
| 94c0 | 61 6c 75 65 20 6f 66 20 61 6c 69 73 74 2e 0a 20 20 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 | alue.of.alist........(setq.dired |
| 94e0 | 2d 73 69 64 65 62 61 72 2d 61 6c 69 73 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 61 73 73 71 | -sidebar-alist.............(assq |
| 9500 | 2d 64 65 6c 65 74 65 2d 61 6c 6c 20 66 72 61 6d 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | -delete-all.frame.dired-sidebar- |
| 9520 | 61 6c 69 73 74 29 29 0a 20 20 20 20 20 20 6e 69 6c 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 | alist)).......nil)))..(defun.dir |
| 9540 | 65 64 2d 73 69 64 65 62 61 72 2d 73 77 69 74 63 68 2d 74 6f 2d 64 69 72 20 28 64 69 72 29 0a 20 | ed-sidebar-switch-to-dir.(dir).. |
| 9560 | 20 22 55 70 64 61 74 65 20 62 75 66 66 65 72 20 77 69 74 68 20 44 49 52 20 61 73 20 72 6f 6f 74 | ."Update.buffer.with.DIR.as.root |
| 9580 | 2e 22 0a 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 69 6e | ."...(when.(dired-sidebar-showin |
| 95a0 | 67 2d 73 69 64 65 62 61 72 2d 70 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 | g-sidebar-p).....(let.((buffer.( |
| 95c0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 6f 72 2d 63 72 65 61 74 65 2d 62 75 66 66 | dired-sidebar-get-or-create-buff |
| 95e0 | 65 72 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 | er.dir))).......(dired-sidebar-s |
| 9600 | 68 6f 77 2d 73 69 64 65 62 61 72 20 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 | how-sidebar.buffer))))..(defun.d |
| 9620 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 20 28 26 6f 70 | ired-sidebar-buffer-stale-p.(&op |
| 9640 | 74 69 6f 6e 61 6c 20 6e 6f 63 6f 6e 66 69 72 6d 29 0a 20 20 22 57 72 61 70 70 65 72 20 6f 76 65 | tional.noconfirm)..."Wrapper.ove |
| 9660 | 72 20 60 64 69 72 65 64 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 27 2e 0a 0a 43 68 65 63 6b | r.`dired-buffer-stale-p'...Check |
| 9680 | 20 69 66 20 62 75 66 66 65 72 20 69 73 20 73 74 61 6c 65 20 6f 6e 6c 79 20 69 66 20 60 64 69 72 | .if.buffer.is.stale.only.if.`dir |
| 96a0 | 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 2d 69 64 6c | ed-sidebar-stale-buffer-time-idl |
| 96c0 | 65 2d 64 65 6c 61 79 27 0a 0a 68 61 73 20 65 6c 61 70 73 65 64 2e 0a 0a 4f 70 74 69 6f 6e 61 6c | e-delay'..has.elapsed...Optional |
| 96e0 | 20 61 72 67 75 6d 65 6e 74 20 4e 4f 43 4f 4e 46 49 52 4d 20 50 61 73 73 20 4e 4f 43 4f 4e 46 49 | .argument.NOCONFIRM.Pass.NOCONFI |
| 9700 | 52 4d 20 6f 6e 20 74 6f 20 60 64 69 72 65 64 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 27 2e | RM.on.to.`dired-buffer-stale-p'. |
| 9720 | 22 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 68 65 63 6b 2d 66 6f | "...(when.dired-sidebar-check-fo |
| 9740 | 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 70 0a 20 20 20 20 28 73 65 74 71 20 64 69 72 65 64 | r-stale-buffer-p.....(setq.dired |
| 9760 | 2d 73 69 64 65 62 61 72 2d 63 68 65 63 6b 2d 66 6f 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d | -sidebar-check-for-stale-buffer- |
| 9780 | 70 20 6e 69 6c 29 0a 20 20 20 20 28 64 69 72 65 64 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 | p.nil).....(dired-buffer-stale-p |
| 97a0 | 20 6e 6f 63 6f 6e 66 69 72 6d 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 | .noconfirm)))..(defun.dired-side |
| 97c0 | 62 61 72 2d 72 65 66 72 65 73 68 2d 62 75 66 66 65 72 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 | bar-refresh-buffer.(&rest._)..." |
| 97e0 | 52 65 66 72 65 73 68 20 73 69 64 65 62 61 72 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 69 72 65 | Refresh.sidebar.buffer."...(dire |
| 9800 | 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 73 69 64 65 62 61 72 20 28 64 | d-sidebar-when-let*.((sidebar.(d |
| 9820 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 77 69 74 68 | ired-sidebar-buffer))).....(with |
| 9840 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 73 69 64 65 62 61 72 0a 20 20 20 20 20 20 28 6c | -current-buffer.sidebar.......(l |
| 9860 | 65 74 20 28 28 61 75 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f 73 65 20 6e 69 6c 29 29 0a 20 | et.((auto-revert-verbose.nil)).. |
| 9880 | 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 20 61 75 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f | .......(ignore.auto-revert-verbo |
| 98a0 | 73 65 29 20 3b 3b 20 4d 61 6b 65 20 62 79 74 65 20 63 6f 6d 70 69 6c 65 72 20 68 61 70 70 79 2e | se).;;.Make.byte.compiler.happy. |
| 98c0 | 0a 20 20 20 20 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 | .........(revert-buffer)))))..(d |
| 98e0 | 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 20 28 | efun.dired-sidebar-follow-file.( |
| 9900 | 26 72 65 73 74 20 5f 29 0a 20 20 22 46 6f 6c 6c 6f 77 20 6e 65 77 20 66 69 6c 65 2e 0a 0a 54 68 | &rest._)..."Follow.new.file...Th |
| 9920 | 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 73 69 64 65 62 61 72 20 77 69 6c 6c 20 62 65 20 64 65 | e.root.of.the.sidebar.will.be.de |
| 9940 | 74 65 72 6d 69 6e 65 64 20 62 79 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 64 | termined.by.`dired-sidebar-get-d |
| 9960 | 69 72 2d 74 6f 2d 73 68 6f 77 27 0a 61 6e 64 20 74 68 65 20 66 69 6c 65 20 66 6f 6c 6c 6f 77 65 | ir-to-show'.and.the.file.followe |
| 9980 | 64 20 69 73 20 77 69 6c 6c 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 60 64 69 72 65 | d.is.will.be.determined.by.`dire |
| 99a0 | 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 66 69 6c 65 2d 74 6f 2d 73 68 6f 77 27 2c 0a 0a 62 6f | d-sidebar-get-file-to-show',..bo |
| 99c0 | 74 68 20 61 63 63 6f 75 6e 74 69 6e 67 20 66 6f 72 20 74 68 65 20 63 75 72 72 65 6e 74 6c 79 20 | th.accounting.for.the.currently. |
| 99e0 | 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 | selected.window."...(when.(dired |
| 9a00 | 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 2d 70 29 0a 20 20 20 20 | -sidebar-showing-sidebar-p)..... |
| 9a20 | 3b 3b 20 57 72 61 70 20 69 6e 20 60 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 | ;;.Wrap.in.`with-selected-window |
| 9a40 | 27 20 62 65 63 61 75 73 65 20 77 65 20 64 6f 6e 27 74 20 77 61 6e 74 20 74 6f 20 70 6f 70 20 74 | '.because.we.don't.want.to.pop.t |
| 9a60 | 6f 0a 20 20 20 20 3b 3b 20 74 68 65 20 73 69 64 65 62 61 72 20 62 75 66 66 65 72 2e 0a 20 20 20 | o.....;;.the.sidebar.buffer..... |
| 9a80 | 20 3b 3b 20 57 65 20 61 6c 73 6f 20 6e 65 65 64 20 74 6f 20 70 69 63 6b 20 74 68 65 20 63 6f 72 | .;;.We.also.need.to.pick.the.cor |
| 9aa0 | 72 65 63 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 73 6f 20 74 68 61 74 0a 20 20 20 | rect.selected-window.so.that.... |
| 9ac0 | 20 3b 3b 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 64 69 72 2d 74 6f 2d 73 68 | .;;.`dired-sidebar-get-dir-to-sh |
| 9ae0 | 6f 77 27 20 63 61 6e 20 67 65 74 20 74 68 65 20 63 6f 72 72 65 63 74 20 72 6f 6f 74 20 74 6f 20 | ow'.can.get.the.correct.root.to. |
| 9b00 | 63 68 61 6e 67 65 20 74 6f 2e 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 | change.to......(with-selected-wi |
| 9b20 | 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 28 6c 65 | ndow.(selected-window).......(le |
| 9b40 | 74 20 28 28 72 6f 6f 74 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 64 69 72 2d | t.((root.(dired-sidebar-get-dir- |
| 9b60 | 74 6f 2d 73 68 6f 77 29 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 | to-show))).........(dired-sideba |
| 9b80 | 72 2d 73 77 69 74 63 68 2d 74 6f 2d 64 69 72 20 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 28 77 | r-switch-to-dir.root).........(w |
| 9ba0 | 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 61 74 | hen.dired-sidebar-follow-file-at |
| 9bc0 | 2d 70 6f 69 6e 74 2d 6f 6e 2d 74 6f 67 67 6c 65 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 20 20 | -point-on-toggle-open........... |
| 9be0 | 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 66 69 6c 65 20 | (dired-sidebar-when-let*.((file. |
| 9c00 | 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 66 69 6c 65 2d 74 6f 2d 73 68 6f 77 29 | (dired-sidebar-get-file-to-show) |
| 9c20 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 70 6f | )).............(dired-sidebar-po |
| 9c40 | 69 6e 74 2d 61 74 2d 66 69 6c 65 20 66 69 6c 65 20 72 6f 6f 74 29 29 29 29 29 29 29 0a 0a 28 64 | int-at-file.file.root)))))))..(d |
| 9c60 | 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 | efun.dired-sidebar-default-alter |
| 9c80 | 6e 61 74 65 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 29 0a 20 20 22 44 65 66 61 75 6c 74 | nate-select-window.()..."Default |
| 9ca0 | 20 66 75 6e 63 74 69 6f 6e 20 66 6f 72 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 6c 74 | .function.for.`dired-sidebar-alt |
| 9cc0 | 65 72 6e 61 74 65 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 27 2e 22 | ernate-select-window-function'." |
| 9ce0 | 0a 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 61 77 2d 73 65 6c 65 63 74 29 0a 20 20 20 20 | ...(if.(fboundp.'aw-select)..... |
| 9d00 | 20 20 28 61 77 2d 73 65 6c 65 63 74 20 22 53 65 6c 65 63 74 20 57 69 6e 64 6f 77 22 29 0a 20 20 | ..(aw-select."Select.Window")... |
| 9d20 | 20 20 28 6e 65 78 74 2d 77 69 6e 64 6f 77 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d | ..(next-window)))..(defun.dired- |
| 9d40 | 73 69 64 65 62 61 72 2d 67 65 74 2d 64 69 72 2d 74 6f 2d 73 68 6f 77 20 28 29 0a 20 20 22 52 65 | sidebar-get-dir-to-show.()..."Re |
| 9d60 | 74 75 72 6e 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | turn.the.directory.`dired-sideba |
| 9d80 | 72 27 20 73 68 6f 75 6c 64 20 6f 70 65 6e 20 74 6f 2e 22 0a 20 20 28 65 78 70 61 6e 64 2d 66 69 | r'.should.open.to."...(expand-fi |
| 9da0 | 6c 65 2d 6e 61 6d 65 0a 20 20 20 28 63 6f 6e 64 0a 20 20 20 20 28 28 61 6e 64 20 28 64 65 72 69 | le-name....(cond.....((and.(deri |
| 9dc0 | 76 65 64 2d 6d 6f 64 65 2d 70 20 27 6d 61 67 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 | ved-mode-p.'magit-mode)......... |
| 9de0 | 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 6d 61 67 69 74 2d 69 6e 74 65 67 72 | ..dired-sidebar-use-magit-integr |
| 9e00 | 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 6d 61 67 69 74 2d | ation...........(fboundp.'magit- |
| 9e20 | 74 6f 70 6c 65 76 65 6c 29 29 0a 20 20 20 20 20 28 6d 61 67 69 74 2d 74 6f 70 6c 65 76 65 6c 29 | toplevel))......(magit-toplevel) |
| 9e40 | 29 0a 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 74 65 72 6d | ).....((and.(eq.major-mode.'term |
| 9e60 | 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 | -mode)...........dired-sidebar-u |
| 9e80 | 73 65 2d 74 65 72 6d 2d 69 6e 74 65 67 72 61 74 69 6f 6e 29 0a 20 20 20 20 20 28 64 69 72 65 64 | se-term-integration)......(dired |
| 9ea0 | 2d 73 69 64 65 62 61 72 2d 74 65 72 6d 2d 67 65 74 2d 70 77 64 29 29 0a 20 20 20 20 28 28 61 6e | -sidebar-term-get-pwd)).....((an |
| 9ec0 | 64 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 65 29 29 0a 20 | d.(eq.major-mode.'dired-mode)).. |
| 9ee0 | 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 28 61 6e 64 | ....default-directory).....((and |
| 9f00 | 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 69 62 75 66 66 65 72 2d 6d 6f 64 65 29 0a 20 | .(eq.major-mode.'ibuffer-mode).. |
| 9f20 | 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 69 62 75 66 66 65 72 2d 63 75 72 72 65 | .........(fboundp.'ibuffer-curre |
| 9f40 | 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 28 69 62 75 66 66 65 72 2d 63 75 | nt-buffer)...........(ibuffer-cu |
| 9f60 | 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 | rrent-buffer))......(let.((buffe |
| 9f80 | 72 2d 61 74 2d 70 6f 69 6e 74 20 28 69 62 75 66 66 65 72 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 | r-at-point.(ibuffer-current-buff |
| 9fa0 | 65 72 29 29 29 0a 20 20 20 20 20 20 20 28 69 66 20 28 66 62 6f 75 6e 64 70 20 27 69 62 75 66 66 | er)))........(if.(fboundp.'ibuff |
| 9fc0 | 65 72 2d 70 72 6f 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 | er-projectile-root)............( |
| 9fe0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 69 66 2d 6c 65 74 2a 20 28 28 69 62 75 66 66 65 72 2d | dired-sidebar-if-let*.((ibuffer- |
| a000 | 70 72 6f 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | projectile-root................. |
| a020 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 62 75 66 66 65 72 2d 70 72 6f | ....................(ibuffer-pro |
| a040 | 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 20 62 75 66 66 65 72 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a | jectile-root.buffer-at-point))). |
| a060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 64 72 20 69 62 75 66 66 65 72 2d 70 72 6f 6a | ...............(cdr.ibuffer-proj |
| a080 | 65 63 74 69 6c 65 2d 72 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d | ectile-root)..............(with- |
| a0a0 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 2d 61 74 2d 70 6f 69 6e 74 0a 20 | current-buffer.buffer-at-point.. |
| a0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 | ..............default-directory) |
| a0e0 | 29 0a 20 20 20 20 20 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 | )..........(with-current-buffer. |
| a100 | 62 75 66 66 65 72 2d 61 74 2d 70 6f 69 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 64 65 66 61 75 | buffer-at-point............defau |
| a120 | 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 29 0a 20 20 20 20 28 3a 64 65 66 61 75 6c 74 0a 20 | lt-directory)))).....(:default.. |
| a140 | 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 69 64 65 62 61 72 2d 72 6f 6f 74 29 | ....(dired-sidebar-sidebar-root) |
| a160 | 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d 66 | ))))..(defun.dired-sidebar-get-f |
| a180 | 69 6c 65 2d 74 6f 2d 73 68 6f 77 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 66 69 6c | ile-to-show.()..."Return.the.fil |
| a1a0 | 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 73 68 6f 75 6c 64 20 6f 70 65 6e 20 74 6f | e.`dired-sidebar'.should.open.to |
| a1c0 | 2e 0a 0a 54 68 69 73 20 6d 61 79 20 72 65 74 75 72 6e 20 6e 69 6c 20 69 66 20 74 68 65 72 65 27 | ...This.may.return.nil.if.there' |
| a1e0 | 73 20 6e 6f 20 73 75 69 74 61 62 6c 65 20 66 69 6c 65 20 74 6f 20 73 68 6f 77 2e 22 0a 20 20 28 | s.no.suitable.file.to.show."...( |
| a200 | 63 6f 6e 64 0a 20 20 20 28 28 61 6e 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d | cond....((and.dired-sidebar-use- |
| a220 | 6d 61 67 69 74 2d 69 6e 74 65 67 72 61 74 69 6f 6e 0a 20 20 20 20 20 20 20 20 20 28 64 65 72 69 | magit-integration..........(deri |
| a240 | 76 65 64 2d 6d 6f 64 65 2d 70 20 27 6d 61 67 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 | ved-mode-p.'magit-mode)......... |
| a260 | 20 28 66 62 6f 75 6e 64 70 20 27 6d 61 67 69 74 2d 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 29 0a | .(fboundp.'magit-file-at-point). |
| a280 | 20 20 20 20 20 20 20 20 20 28 6d 61 67 69 74 2d 66 69 6c 65 2d 61 74 2d 70 6f 69 6e 74 29 29 0a | .........(magit-file-at-point)). |
| a2a0 | 20 20 20 20 28 65 78 70 61 6e 64 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 6d 61 67 69 74 2d 66 69 6c | ....(expand-file-name.(magit-fil |
| a2c0 | 65 2d 61 74 2d 70 6f 69 6e 74 29 29 29 0a 20 20 20 28 28 61 6e 64 20 28 65 71 20 6d 61 6a 6f 72 | e-at-point)))....((and.(eq.major |
| a2e0 | 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 29 0a 20 20 20 20 3b 3b 20 4e 6f 74 20 73 | -mode.'dired-mode)).....;;.Not.s |
| a300 | 75 72 65 20 69 66 20 60 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 27 20 69 73 20 6d | ure.if.`dired-get-filename'.is.m |
| a320 | 6f 72 65 20 61 70 70 72 6f 70 72 69 61 74 65 2e 0a 20 20 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d | ore.appropriate......(condition- |
| a340 | 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 | case.nil.........(dired-get-file |
| a360 | 2d 66 6f 72 2d 76 69 73 69 74 29 0a 20 20 20 20 20 20 28 65 72 72 6f 72 20 6e 69 6c 29 29 29 0a | -for-visit).......(error.nil))). |
| a380 | 20 20 20 28 28 61 6e 64 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 69 62 75 66 66 65 72 | ...((and.(eq.major-mode.'ibuffer |
| a3a0 | 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 69 62 75 66 66 65 | -mode)..........(fboundp.'ibuffe |
| a3c0 | 72 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 66 | r-current-buffer)).....(let.((bf |
| a3e0 | 2d 6e 61 6d 65 20 28 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 69 62 75 66 66 65 72 | -name.(buffer-file-name.(ibuffer |
| a400 | 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 28 61 6e 64 20 62 | -current-buffer)))).......(and.b |
| a420 | 66 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 62 66 2d 6e 61 6d 65 29 20 62 | f-name.(file-exists-p.bf-name).b |
| a440 | 66 2d 6e 61 6d 65 29 29 29 0a 20 20 20 28 3a 64 65 66 61 75 6c 74 0a 20 20 20 20 28 61 6e 64 20 | f-name)))....(:default.....(and. |
| a460 | 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 20 28 66 69 6c 65 2d 65 78 69 73 74 73 2d 70 20 | buffer-file-name.(file-exists-p. |
| a480 | 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 6d 65 29 20 62 75 66 66 65 72 2d 66 69 6c 65 2d 6e 61 | buffer-file-name).buffer-file-na |
| a4a0 | 6d 65 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 65 72 | me))))..(defun.dired-sidebar-ter |
| a4c0 | 6d 2d 67 65 74 2d 70 77 64 20 28 29 0a 20 20 22 47 65 74 20 63 75 72 72 65 6e 74 20 64 69 72 65 | m-get-pwd.()..."Get.current.dire |
| a4e0 | 63 74 6f 72 79 20 6f 66 20 60 74 65 72 6d 2d 6d 6f 64 65 27 2e 0a 0a 54 68 69 73 20 69 73 20 73 | ctory.of.`term-mode'...This.is.s |
| a500 | 6f 6d 65 77 68 61 74 20 65 78 70 65 72 69 6d 65 6e 74 61 6c 2f 68 61 63 6b 79 2e 22 0a 20 20 28 | omewhat.experimental/hacky."...( |
| a520 | 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e | interactive)...(condition-case.n |
| a540 | 69 6c 0a 20 20 20 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 | il.......(progn.........(forward |
| a560 | 2d 70 61 72 61 67 72 61 70 68 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e | -paragraph).........(when.(fboun |
| a580 | 64 70 20 27 74 65 72 6d 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 29 0a 20 20 20 20 20 20 | dp.'term-previous-prompt)....... |
| a5a0 | 20 20 20 20 28 74 65 72 6d 2d 70 72 65 76 69 6f 75 73 2d 70 72 6f 6d 70 74 20 31 29 29 0a 20 20 | ....(term-previous-prompt.1))... |
| a5c0 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 74 65 72 6d 2d 73 69 6d 70 6c | ......(when.(fboundp.'term-simpl |
| a5e0 | 65 2d 73 65 6e 64 29 0a 20 20 20 20 20 20 20 20 20 20 28 74 65 72 6d 2d 73 69 6d 70 6c 65 2d 73 | e-send)...........(term-simple-s |
| a600 | 65 6e 64 20 28 67 65 74 2d 62 75 66 66 65 72 2d 70 72 6f 63 65 73 73 20 28 63 75 72 72 65 6e 74 | end.(get-buffer-process.(current |
| a620 | 2d 62 75 66 66 65 72 29 29 20 22 70 77 64 22 29 29 0a 20 20 20 20 20 20 20 20 28 73 6c 65 65 70 | -buffer))."pwd")).........(sleep |
| a640 | 2d 66 6f 72 20 30 20 35 30 29 0a 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 | -for.0.50).........(forward-line |
| a660 | 20 31 29 0a 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 65 73 75 6c 74 20 28 73 74 72 69 6e | .1).........(let.((result.(strin |
| a680 | 67 2d 74 72 69 6d 20 28 74 68 69 6e 67 2d 61 74 2d 70 6f 69 6e 74 20 27 6c 69 6e 65 29 29 29 29 | g-trim.(thing-at-point.'line)))) |
| a6a0 | 0a 20 20 20 20 20 20 20 20 20 20 28 6b 69 6c 6c 2d 77 68 6f 6c 65 2d 6c 69 6e 65 29 0a 20 20 20 | ...........(kill-whole-line).... |
| a6c0 | 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 29 0a 20 20 20 20 20 20 20 | .......(forward-line.-1)........ |
| a6e0 | 20 20 20 28 6b 69 6c 6c 2d 77 68 6f 6c 65 2d 6c 69 6e 65 29 0a 20 20 20 20 20 20 20 20 20 20 72 | ...(kill-whole-line)...........r |
| a700 | 65 73 75 6c 74 29 29 0a 20 20 20 20 28 65 72 72 6f 72 0a 20 20 20 20 20 64 65 66 61 75 6c 74 2d | esult)).....(error......default- |
| a720 | 64 69 72 65 63 74 6f 72 79 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 | directory)))..(defun.dired-sideb |
| a740 | 61 72 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 20 28 29 0a 20 20 22 57 72 61 70 70 65 72 20 | ar-subtree-toggle.()..."Wrapper. |
| a760 | 6f 76 65 72 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 27 20 74 68 61 74 | over.`dired-subtree-toggle'.that |
| a780 | 20 61 63 63 6f 75 6e 74 73 20 66 6f 72 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 | .accounts.for.`all-the-icons-dir |
| a7a0 | 65 64 27 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 65 64 2d 73 | ed'."...(interactive)...(dired-s |
| a7c0 | 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ubtree-toggle)...(dired-sidebar- |
| a7e0 | 72 65 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d | redisplay-icons))..(defun.dired- |
| a800 | 73 69 64 65 62 61 72 2d 72 65 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 20 28 29 0a 20 20 22 52 65 | sidebar-redisplay-icons.()..."Re |
| a820 | 64 69 73 70 6c 61 79 20 69 63 6f 6e 20 74 68 65 6d 65 73 20 75 6e 6c 65 73 73 20 6f 76 65 72 20 | display.icon.themes.unless.over. |
| a840 | 54 52 41 4d 50 2e 22 0a 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 | TRAMP."...(when.(dired-sidebar-c |
| a860 | 61 6e 2d 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 29 0a 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 | an-display-icons).....(when.(and |
| a880 | 20 28 65 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 69 63 6f 6e 73 29 | .(eq.dired-sidebar-theme.'icons) |
| a8a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 61 6c 6c 2d 74 68 | ................(fboundp.'all-th |
| a8c0 | 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 20 3b | e-icons-dired--refresh)).......; |
| a8e0 | 3b 20 52 65 66 72 65 73 68 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 27 2e | ;.Refresh.`all-the-icons-dired'. |
| a900 | 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 29 0a 20 20 | .......(dired-sidebar-revert)... |
| a920 | 20 20 20 20 28 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 2d 72 65 66 72 65 73 | ....(all-the-icons-dired--refres |
| a940 | 68 29 29 0a 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 69 | h)).....(when.(dired-sidebar-usi |
| a960 | 6e 67 2d 74 75 69 2d 70 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 | ng-tui-p).......(dired-sidebar-t |
| a980 | 75 69 2d 75 70 64 61 74 65 2d 77 69 74 68 2d 64 65 6c 61 79 29 29 29 29 0a 0a 28 64 65 66 75 6e | ui-update-with-delay))))..(defun |
| a9a0 | 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 64 76 69 63 65 2d 68 69 64 65 2d 74 65 6d 70 6f | .dired-sidebar-advice-hide-tempo |
| a9c0 | 72 61 72 69 6c 79 20 28 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 41 20 66 75 6e 63 74 | rarily.(f.&rest.args)..."A.funct |
| a9e0 | 69 6f 6e 20 6d 65 61 6e 74 20 74 6f 20 62 65 20 75 73 65 64 20 77 69 74 68 20 61 64 76 69 63 65 | ion.meant.to.be.used.with.advice |
| aa00 | 20 74 6f 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 68 69 64 65 20 69 74 73 65 6c 66 2e 0a 0a 54 68 | .to.temporarily.hide.itself...Th |
| aa20 | 69 73 20 66 75 6e 63 74 69 6f 6e 20 68 69 64 65 73 20 74 68 65 20 73 69 64 65 62 61 72 20 62 65 | is.function.hides.the.sidebar.be |
| aa40 | 66 6f 72 65 20 65 78 65 63 75 74 69 6e 67 20 46 20 61 6e 64 20 74 68 65 6e 20 72 65 73 68 6f 77 | fore.executing.F.and.then.reshow |
| aa60 | 73 20 69 74 73 65 6c 66 0a 61 66 74 65 72 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 64 69 72 | s.itself.after."...(if.(not.(dir |
| aa80 | 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 2d 70 29 29 0a 20 | ed-sidebar-showing-sidebar-p)).. |
| aaa0 | 20 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 | .....(apply.f.args).....(let.((s |
| aac0 | 69 64 65 62 61 72 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 0a | idebar.(dired-sidebar-buffer))). |
| aae0 | 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 68 69 64 65 2d 73 69 64 65 62 61 | ......(dired-sidebar-hide-sideba |
| ab00 | 72 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 64 | r).......(apply.f.args).......(d |
| ab20 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 77 2d 73 69 64 65 62 61 72 20 73 69 64 65 62 61 | ired-sidebar-show-sidebar.sideba |
| ab40 | 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 61 6e 2d | r))))..(defun.dired-sidebar-can- |
| ab60 | 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 77 68 65 74 68 | display-icons.()..."Return.wheth |
| ab80 | 65 72 20 6f 72 20 6e 6f 74 20 69 63 6f 6e 73 20 73 68 6f 75 6c 64 20 62 65 20 64 69 73 70 6c 61 | er.or.not.icons.should.be.displa |
| aba0 | 79 65 64 2e 22 0a 20 20 28 61 6e 64 0a 20 20 20 28 6f 72 0a 20 20 20 20 64 69 72 65 64 2d 73 69 | yed."...(and....(or.....dired-si |
| abc0 | 64 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 72 65 6d 6f 74 65 2d 69 63 6f 6e 73 0a 20 20 20 20 28 | debar-display-remote-icons.....( |
| abe0 | 6e 6f 74 20 28 66 69 6c 65 2d 72 65 6d 6f 74 65 2d 70 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 | not.(file-remote-p.default-direc |
| ac00 | 74 6f 72 79 29 29 29 0a 20 20 20 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 28 6d 6f | tory)))....(cl-every.(lambda.(mo |
| ac20 | 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 68 65 63 6b 20 61 67 61 69 | de)................;;.Check.agai |
| ac40 | 6e 73 74 20 74 68 65 20 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 60 64 69 72 65 64 2d | nst.the.default.value.of.`dired- |
| ac60 | 6d 6f 64 65 2d 68 6f 6f 6b 27 20 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b | mode-hook'.here................; |
| ac80 | 3b 20 73 69 6e 63 65 20 77 65 20 6d 61 64 65 20 69 74 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 | ;.since.we.made.it.buffer.local. |
| aca0 | 65 61 72 6c 69 65 72 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 | earlier.................(not.(me |
| acc0 | 6d 71 20 6d 6f 64 65 20 28 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 27 64 69 72 65 64 2d 6d 6f | mq.mode.(default-value.'dired-mo |
| ace0 | 64 65 2d 68 6f 6f 6b 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 | de-hook))))..............dired-s |
| ad00 | 69 64 65 62 61 72 2d 62 6c 6f 63 6b 2d 69 63 6f 6e 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 73 29 | idebar-block-icon-display-modes) |
| ad20 | 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ))..;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ad40 | 3b 20 54 65 78 74 20 55 73 65 72 20 49 6e 74 65 72 66 61 63 65 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;.Text.User.Interface.;;;;;;;;;; |
| ad60 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 28 64 65 66 76 61 72 2d 6c 6f | ;;;;;;;;;;;;;;;;;;;;..(defvar-lo |
| ad80 | 63 61 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 64 69 73 70 | cal.dired-sidebar-tui-dired-disp |
| ada0 | 6c 61 79 65 64 20 6e 69 6c 0a 20 20 22 46 6c 61 67 73 20 77 68 65 74 68 65 72 20 69 63 6f 6e 73 | layed.nil..."Flags.whether.icons |
| adc0 | 20 68 61 76 65 20 62 65 65 6e 20 61 64 64 65 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 | .have.been.added.")..(defun.dire |
| ade0 | 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 72 65 73 65 74 20 28 26 6f 70 74 69 | d-sidebar-tui-dired-reset.(&opti |
| ae00 | 6f 6e 61 6c 20 5f 61 72 67 20 5f 6e 6f 63 6f 6e 66 69 72 6d 29 0a 20 20 22 46 75 6e 63 74 69 6f | onal._arg._noconfirm)..."Functio |
| ae20 | 6e 20 75 73 65 64 20 61 73 20 61 64 76 69 63 65 20 77 68 65 6e 20 72 65 64 69 73 70 6c 61 79 69 | n.used.as.advice.when.redisplayi |
| ae40 | 6e 67 20 62 75 66 66 65 72 2e 22 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d | ng.buffer."...(setq-local.dired- |
| ae60 | 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 64 69 73 70 6c 61 79 65 64 20 6e 69 6c 29 | sidebar-tui-dired-displayed.nil) |
| ae80 | 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 | )..(defun.dired-sidebar-tui-dire |
| aea0 | 64 2d 64 69 73 70 6c 61 79 20 28 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 69 63 6f 6e | d-display.()..."Display.the.icon |
| aec0 | 73 20 6f 66 20 66 69 6c 65 73 20 69 6e 20 61 20 64 69 72 65 64 20 62 75 66 66 65 72 2e 22 0a 20 | s.of.files.in.a.dired.buffer.".. |
| aee0 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 74 20 28 61 6e | .(interactive)...(when.(or.t.(an |
| af00 | 64 20 28 6e 6f 74 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 64 | d.(not.dired-sidebar-tui-dired-d |
| af20 | 69 73 70 6c 61 79 65 64 29 20 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 29 0a 20 | isplayed).dired-subdir-alist)).. |
| af40 | 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 | ...(setq-local.dired-sidebar-tui |
| af60 | 2d 64 69 72 65 64 2d 64 69 73 70 6c 61 79 65 64 20 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 | -dired-displayed.t).....(let.((i |
| af80 | 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 | nhibit-read-only.t)...........(c |
| afa0 | 6f 6c 6c 61 70 73 69 62 6c 65 2d 69 63 6f 6e 20 28 69 66 20 28 65 71 20 64 69 72 65 64 2d 73 69 | ollapsible-icon.(if.(eq.dired-si |
| afc0 | 64 65 62 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 20 22 e2 96 be 22 20 22 2d 22 29 29 0a 20 | debar-theme.'nerd)."..."."-")).. |
| afe0 | 20 20 20 20 20 20 20 20 20 28 65 78 70 61 6e 64 61 62 6c 65 2d 69 63 6f 6e 20 28 69 66 20 28 65 | .........(expandable-icon.(if.(e |
| b000 | 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 20 22 e2 96 | q.dired-sidebar-theme.'nerd).".. |
| b020 | b8 22 20 22 2b 22 29 29 29 0a 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | ."."+"))).......(save-excursion. |
| b040 | 20 20 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a | ........(goto-char.(point-min)). |
| b060 | 20 20 20 20 20 20 20 20 28 77 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 | ........(while.(not.(eobp))..... |
| b080 | 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e | ......(when.(dired-move-to-filen |
| b0a0 | 61 6d 65 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 6f 76 65 | ame.nil).............(dired-move |
| b0c0 | 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 | -to-filename).............(let.( |
| b0e0 | 28 66 69 6c 65 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 27 76 65 72 62 61 | (file.(dired-get-filename.'verba |
| b100 | 74 69 6d 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | tim.t)))...............(unless.( |
| b120 | 6d 65 6d 62 65 72 20 66 69 6c 65 20 27 28 22 2e 22 20 22 2e 2e 22 29 29 0a 20 20 20 20 20 20 20 | member.file.'(".".".."))........ |
| b140 | 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 28 64 69 72 65 64 2d | .........(let.((filename.(dired- |
| b160 | 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 20 20 20 20 | get-filename.nil.t)))........... |
| b180 | 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 | ........(if.(eq.dired-sidebar-th |
| b1a0 | 65 6d 65 20 27 76 73 63 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | eme.'vscode).................... |
| b1c0 | 20 20 20 28 70 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ...(progn....................... |
| b1e0 | 20 20 28 72 65 71 75 69 72 65 20 27 76 73 63 6f 64 65 2d 69 63 6f 6e 29 0a 20 20 20 20 20 20 20 | ..(require.'vscode-icon)........ |
| b200 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 | .................(when.(fboundp. |
| b220 | 27 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 | 'vscode-icon-for-file).......... |
| b240 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 69 6d 61 67 65 0a 20 | .................(insert-image.. |
| b260 | 20 20 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 76 73 63 6f 64 | ..........................(vscod |
| b280 | 65 2d 69 63 6f 6e 2d 66 6f 72 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 20 22 20 22 29 29 0a | e-icon-for-file.filename).".")). |
| b2a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 | ........................(insert. |
| b2c0 | 22 20 22 29 29 0a 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 66 | ".")).....................(if.(f |
| b2e0 | 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 | ile-directory-p.filename)....... |
| b300 | 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 65 64 2d 73 75 62 | ..................(if.(dired-sub |
| b320 | 74 72 65 65 2d 2d 69 73 2d 65 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | tree--is-expanded-p)............ |
| b340 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6f 6e 63 61 74 | .................(insert.(concat |
| b360 | 20 63 6f 6c 6c 61 70 73 69 62 6c 65 2d 69 63 6f 6e 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 | .collapsible-icon."."))......... |
| b380 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6f 6e 63 61 | ..................(insert.(conca |
| b3a0 | 74 20 65 78 70 61 6e 64 61 62 6c 65 2d 69 63 6f 6e 20 22 20 22 29 29 29 0a 20 20 20 20 20 20 20 | t.expandable-icon.".")))........ |
| b3c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 69 66 20 28 65 71 20 64 | ...............(insert.(if.(eq.d |
| b3e0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 20 22 20 20 22 20 22 | ired-sidebar-theme.'nerd).".."." |
| b400 | 22 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e | "))))))))...........(forward-lin |
| b420 | 65 20 31 29 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | e.1))))))..(defun.dired-sidebar- |
| b440 | 74 75 69 2d 75 70 64 61 74 65 2d 77 69 74 68 2d 64 65 6c 61 79 20 28 26 72 65 73 74 20 5f 29 0a | tui-update-with-delay.(&rest._). |
| b460 | 20 20 22 55 70 64 61 74 65 20 74 75 69 20 69 6e 74 65 72 66 61 63 65 20 61 66 74 65 72 20 61 20 | .."Update.tui.interface.after.a. |
| b480 | 64 65 6c 61 79 2e 22 0a 20 20 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a 20 | delay."...(run-with-idle-timer.. |
| b4a0 | 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 74 65 2d 64 65 6c 61 79 | ..dired-sidebar-tui-update-delay |
| b4c0 | 20 6e 69 6c 0a 20 20 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 | .nil....#'dired-sidebar-tui-upda |
| b4e0 | 74 65 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 75 | te))..(defun.dired-sidebar-tui-u |
| b500 | 70 64 61 74 65 20 28 29 0a 20 20 22 57 6f 72 6b 68 6f 72 73 65 20 66 75 6e 63 74 69 6f 6e 20 74 | pdate.()..."Workhorse.function.t |
| b520 | 6f 20 75 70 64 61 74 65 20 74 75 69 20 69 6e 74 65 72 66 61 63 65 2e 22 0a 20 20 28 64 69 72 65 | o.update.tui.interface."...(dire |
| b540 | 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 64 69 | d-sidebar-when-let*.((buffer.(di |
| b560 | 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d | red-sidebar-buffer))).....(with- |
| b580 | 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 28 64 69 72 | current-buffer.buffer.......(dir |
| b5a0 | 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 | ed-sidebar-revert).......(when.d |
| b5c0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 63 65 6e 74 65 72 2d 63 75 72 73 6f 72 2d 6f 6e 2d | ired-sidebar-recenter-cursor-on- |
| b5e0 | 74 75 69 2d 75 70 64 61 74 65 0a 20 20 20 20 20 20 20 20 28 72 65 63 65 6e 74 65 72 29 29 29 29 | tui-update.........(recenter)))) |
| b600 | 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 20 28 | )..(defun.dired-sidebar-revert.( |
| b620 | 26 72 65 73 74 20 5f 29 0a 20 20 22 57 72 61 70 70 65 72 20 61 72 6f 75 6e 64 20 60 64 69 72 65 | &rest._)..."Wrapper.around.`dire |
| b640 | 64 2d 72 65 76 65 72 74 27 20 62 75 74 20 73 61 76 65 73 20 77 69 6e 64 6f 77 20 70 6f 73 69 74 | d-revert'.but.saves.window.posit |
| b660 | 69 6f 6e 2e 22 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a | ion."...(dired-sidebar-when-let* |
| b680 | 20 28 28 77 69 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 0a 20 20 20 | .((window.(get-buffer-window.... |
| b6a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ................................ |
| b6c0 | 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 | ..(dired-sidebar-buffer))))..... |
| b6e0 | 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 0a 20 20 20 | (with-selected-window.window.... |
| b700 | 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 28 77 69 6e 64 | ...(let.((old-window-start.(wind |
| b720 | 6f 77 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 64 69 72 65 64 | ow-start))).........(when.(dired |
| b740 | 2d 73 69 64 65 62 61 72 2d 75 73 69 6e 67 2d 74 75 69 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 | -sidebar-using-tui-p)........... |
| b760 | 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 72 65 73 65 74 2d 69 6e 2d 73 69 64 65 | (dired-sidebar-tui-reset-in-side |
| b780 | 62 61 72 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 72 65 76 65 72 74 29 0a 20 20 20 | bar)).........(dired-revert).... |
| b7a0 | 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 20 77 69 6e 64 6f 77 20 6f 6c | .....(set-window-start.window.ol |
| b7c0 | 64 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 | d-window-start)))))..(defun.dire |
| b7e0 | 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 72 65 73 65 74 2d 69 6e 2d 73 69 64 65 62 61 72 20 28 | d-sidebar-tui-reset-in-sidebar.( |
| b800 | 26 72 65 73 74 20 5f 29 0a 20 20 22 52 75 6e 73 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | &rest._)..."Runs.`dired-sidebar- |
| b820 | 74 75 69 2d 64 69 72 65 64 2d 72 65 73 65 74 27 20 69 6e 20 63 75 72 72 65 6e 74 20 60 64 69 72 | tui-dired-reset'.in.current.`dir |
| b840 | 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 2e 22 0a 20 20 28 64 69 72 65 64 2d 73 69 | ed-sidebar'.buffer."...(dired-si |
| b860 | 64 65 62 61 72 2d 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 64 69 72 65 64 2d | debar-when-let*.((buffer.(dired- |
| b880 | 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 63 75 72 72 | sidebar-buffer))).....(with-curr |
| b8a0 | 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 64 69 72 65 64 2d 73 | ent-buffer.buffer.......(dired-s |
| b8c0 | 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 72 65 73 65 74 29 29 29 29 0a 0a 28 64 65 66 | idebar-tui-dired-reset))))..(def |
| b8e0 | 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 75 70 2d 74 75 69 20 28 29 0a 20 20 | un.dired-sidebar-setup-tui.()... |
| b900 | 22 53 65 74 73 20 75 70 20 74 65 78 74 20 75 73 65 72 20 69 6e 74 65 72 66 61 63 65 20 66 6f 72 | "Sets.up.text.user.interface.for |
| b920 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 0a 54 68 69 73 20 69 73 20 75 73 65 64 20 | .`dired-sidebar'...This.is.used. |
| b940 | 69 6e 20 70 6c 61 63 65 20 6f 66 20 60 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 27 20 74 6f 20 61 | in.place.of.`all-the-icons'.to.a |
| b960 | 64 64 20 64 69 72 65 63 74 6f 72 79 20 69 6e 64 69 63 61 74 6f 72 73 2e 0a 0a 65 2e 67 2e 20 2b | dd.directory.indicators...e.g..+ |
| b980 | 20 61 6e 64 20 2d 2e 22 0a 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 61 66 74 65 | .and.-."...(add-hook.'dired-afte |
| b9a0 | 72 2d 72 65 61 64 69 6e 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 27 64 69 72 65 64 | r-readin-hook.............'dired |
| b9c0 | 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 64 69 72 65 64 2d 64 69 73 70 6c 61 79 20 3a 61 70 70 65 | -sidebar-tui-dired-display.:appe |
| b9e0 | 6e 64 20 3a 6c 6f 63 61 6c 29 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 | nd.:local)...(setq-local.dired-s |
| ba00 | 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 | ubtree-line-prefix.dired-sidebar |
| ba20 | 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 29 0a 20 20 28 64 69 72 65 64 2d 62 | -subtree-line-prefix)...(dired-b |
| ba40 | 75 69 6c 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 | uild-subdir-alist)...(dired-side |
| ba60 | 62 61 72 2d 72 65 76 65 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 | bar-revert))..(defun.dired-sideb |
| ba80 | 61 72 2d 75 73 69 6e 67 2d 74 75 69 2d 70 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 74 20 69 66 | ar-using-tui-p.()..."Return.t.if |
| baa0 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 27 20 69 73 20 75 73 69 6e 67 20 | .`dired-sidebar-theme'.is.using. |
| bac0 | 74 75 69 20 63 6f 64 65 20 70 61 74 68 2e 22 0a 20 20 28 6f 72 0a 20 20 20 28 65 71 20 64 69 72 | tui.code.path."...(or....(eq.dir |
| bae0 | 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 61 73 63 69 69 29 0a 20 20 20 28 65 71 20 | ed-sidebar-theme.'ascii)....(eq. |
| bb00 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 0a 20 20 20 28 65 | dired-sidebar-theme.'nerd)....(e |
| bb20 | 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 76 73 63 6f 64 65 29 29 29 | q.dired-sidebar-theme.'vscode))) |
| bb40 | 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 20 | ..;;;;;;;;;;;;;;;;;;;;;;;;;;;;;. |
| bb60 | 54 65 78 74 20 55 73 65 72 20 49 6e 74 65 72 66 61 63 65 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | Text.User.Interface.;;;;;;;;;;;; |
| bb80 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ;;;;;;;;;;;;;;;;;;..;;;;;;;;;;;; |
| bba0 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 20 60 77 64 69 72 65 64 27 20 48 61 63 6b 20 | ;;;;;;;;;;;;;;;;;.`wdired'.Hack. |
| bbc0 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.. |
| bbe0 | 3b 3b 20 68 74 74 70 73 3a 2f 2f 64 65 62 62 75 67 73 2e 67 6e 75 2e 6f 72 67 2f 63 67 69 2f 62 | ;;.https://debbugs.gnu.org/cgi/b |
| bc00 | 75 67 72 65 70 6f 72 74 2e 63 67 69 3f 62 75 67 3d 33 32 33 39 32 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b | ugreport.cgi?bug=32392..;;;;;;;; |
| bc20 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 20 60 77 64 69 72 65 64 27 20 48 | ;;;;;;;;;;;;;;;;;;;;;.`wdired'.H |
| bc40 | 61 63 6b 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ack.;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| bc60 | 3b 3b 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ;;..(defvar-local.dired-sidebar- |
| bc80 | 77 64 69 72 65 64 2d 74 72 61 63 6b 69 6e 67 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6e 69 6c 0a 20 | wdired-tracking-major-mode.nil.. |
| bca0 | 20 22 54 72 61 63 6b 20 63 75 72 72 65 6e 74 20 60 6d 61 6a 6f 72 2d 6d 6f 64 65 27 20 77 68 65 | ."Track.current.`major-mode'.whe |
| bcc0 | 6e 20 74 6f 67 67 6c 69 6e 67 20 74 6f 20 60 77 64 69 72 65 64 27 2e 22 29 0a 0a 28 64 65 66 75 | n.toggling.to.`wdired'.")..(defu |
| bce0 | 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f | n.dired-sidebar-wdired-change-to |
| bd00 | 2d 64 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 20 28 66 20 26 72 65 73 74 20 61 72 67 73 | -dired-mode-advice.(f.&rest.args |
| bd20 | 29 0a 20 20 22 41 64 76 69 63 65 20 66 6f 72 20 60 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 | )..."Advice.for.`wdired-change-t |
| bd40 | 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 27 2e 22 0a 20 20 28 69 66 20 28 65 71 20 64 69 72 65 64 2d | o-dired-mode'."...(if.(eq.dired- |
| bd60 | 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 74 72 61 63 6b 69 6e 67 2d 6d 61 6a 6f 72 2d 6d 6f | sidebar-wdired-tracking-major-mo |
| bd80 | 64 65 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 28 64 | de.'dired-sidebar-mode).......(d |
| bda0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 64 69 | ired-sidebar-wdired-change-to-di |
| bdc0 | 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 29 29 0a 0a | red-mode).....(apply.f.args))).. |
| bde0 | 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 65 64 2d 63 68 61 6e | (defun.dired-sidebar-wdired-chan |
| be00 | 67 65 2d 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 20 28 29 0a 20 20 22 43 68 61 6e 67 65 20 74 68 | ge-to-dired-mode.()..."Change.th |
| be20 | 65 20 6d 6f 64 65 20 62 61 63 6b 20 74 6f 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2e 0a 0a 54 | e.mode.back.to.dired-sidebar...T |
| be40 | 68 69 73 20 69 73 20 61 6e 20 65 78 61 63 74 20 63 6f 70 79 20 6f 66 20 60 77 64 69 72 65 64 2d | his.is.an.exact.copy.of.`wdired- |
| be60 | 63 68 61 6e 67 65 2d 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 27 20 62 75 74 20 63 68 61 6e 67 65 | change-to-dired-mode'.but.change |
| be80 | 73 20 74 68 65 0a 60 6d 61 6a 6f 72 2d 6d 6f 64 65 27 20 74 6f 20 60 64 69 72 65 64 2d 73 69 64 | s.the.`major-mode'.to.`dired-sid |
| bea0 | 65 62 61 72 2d 6d 6f 64 65 27 20 69 6e 73 74 65 61 64 20 6f 66 20 60 64 69 72 65 64 2d 6d 6f 64 | ebar-mode'.instead.of.`dired-mod |
| bec0 | 65 27 2e 22 0a 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 64 2d 6f 6e 6c 79 20 | e'."...(let.((inhibit-read-only. |
| bee0 | 74 29 29 0a 20 20 20 20 28 72 65 6d 6f 76 65 2d 74 65 78 74 2d 70 72 6f 70 65 72 74 69 65 73 0a | t)).....(remove-text-properties. |
| bf00 | 20 20 20 20 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 20 28 70 6f 69 6e 74 2d 6d 61 78 29 0a 20 20 20 | .....(point-min).(point-max).... |
| bf20 | 20 20 27 28 66 72 6f 6e 74 2d 73 74 69 63 6b 79 20 6e 69 6c 20 72 65 61 72 2d 6e 6f 6e 73 74 69 | ..'(front-sticky.nil.rear-nonsti |
| bf40 | 63 6b 79 20 6e 69 6c 20 72 65 61 64 2d 6f 6e 6c 79 20 6e 69 6c 20 6b 65 79 6d 61 70 20 6e 69 6c | cky.nil.read-only.nil.keymap.nil |
| bf60 | 29 29 29 0a 20 20 28 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 64 69 72 65 64 2d 6d 6f 64 65 2d | )))...(use-local-map.dired-mode- |
| bf80 | 6d 61 70 29 0a 20 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 0a | map)...(force-mode-line-update). |
| bfa0 | 20 20 28 73 65 74 71 20 62 75 66 66 65 72 2d 72 65 61 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 28 73 | ..(setq.buffer-read-only.t)...(s |
| bfc0 | 65 74 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f | etq.major-mode.'dired-sidebar-mo |
| bfe0 | 64 65 29 0a 20 20 28 73 65 74 71 20 6d 6f 64 65 2d 6e 61 6d 65 20 22 44 69 72 65 64 2d 73 69 64 | de)...(setq.mode-name."Dired-sid |
| c000 | 65 62 61 72 22 29 0a 20 20 28 64 69 72 65 64 2d 61 64 76 65 72 74 69 73 65 29 0a 20 20 28 72 65 | ebar")...(dired-advertise)...(re |
| c020 | 6d 6f 76 65 2d 68 6f 6f 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 20 27 77 64 69 | move-hook.'kill-buffer-hook.'wdi |
| c040 | 72 65 64 2d 63 68 65 63 6b 2d 6b 69 6c 6c 2d 62 75 66 66 65 72 20 74 29 0a 20 20 28 73 65 74 20 | red-check-kill-buffer.t)...(set. |
| c060 | 28 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 27 72 65 76 65 72 74 2d 62 75 66 | (make-local-variable.'revert-buf |
| c080 | 66 65 72 2d 66 75 6e 63 74 69 6f 6e 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 | fer-function).'dired-sidebar-rev |
| c0a0 | 65 72 74 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 | ert))..(defun.dired-sidebar-wdir |
| c0c0 | 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 20 | ed-change-to-wdired-mode-advice. |
| c0e0 | 28 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 46 6f 72 77 61 72 64 20 74 6f 20 60 77 64 | (f.&rest.args)..."Forward.to.`wd |
| c100 | 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f 64 65 27 2e 0a 0a 60 77 | ired-change-to-wdired-mode'...`w |
| c120 | 64 69 72 65 64 27 20 65 78 70 65 63 74 65 64 20 74 68 65 20 60 6d 61 6a 6f 72 2d 6d 6f 64 65 27 | dired'.expected.the.`major-mode' |
| c140 | 20 74 6f 20 62 65 20 60 64 69 72 65 64 2d 6d 6f 64 65 27 20 66 69 72 73 74 2e 0a 0a 54 72 61 63 | .to.be.`dired-mode'.first...Trac |
| c160 | 6b 20 74 68 65 20 63 75 72 72 65 6e 74 20 60 6d 61 6a 6f 72 2d 6d 6f 64 65 27 20 61 6e 64 20 72 | k.the.current.`major-mode'.and.r |
| c180 | 65 76 65 72 74 20 74 6f 20 74 68 61 74 20 75 70 6f 6e 20 65 78 69 74 69 6e 67 20 60 77 64 69 72 | evert.to.that.upon.exiting.`wdir |
| c1a0 | 65 64 27 2e 22 0a 20 20 28 73 65 74 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 64 69 72 | ed'."...(setq.dired-sidebar-wdir |
| c1c0 | 65 64 2d 74 72 61 63 6b 69 6e 67 2d 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 61 6a 6f 72 2d 6d 6f 64 | ed-tracking-major-mode.major-mod |
| c1e0 | 65 29 0a 20 20 28 69 66 20 28 65 71 20 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d | e)...(if.(eq.major-mode.'dired-m |
| c200 | 6f 64 65 29 0a 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 0a 20 20 20 20 28 6c | ode).......(apply.f.args).....(l |
| c220 | 65 74 20 28 28 6d 61 6a 6f 72 2d 6d 6f 64 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 29 29 0a 20 20 | et.((major-mode.'dired-mode))... |
| c240 | 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b | ....(apply.f.args))))..;;;;;;;;; |
| c260 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 20 60 77 64 69 72 65 64 27 20 48 61 | ;;;;;;;;;;;;;;;;;;;;.`wdired'.Ha |
| c280 | 63 6b 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | ck.;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| c2a0 | 3b 0a 0a 28 70 72 6f 76 69 64 65 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 29 0a 3b 3b 3b 20 | ;..(provide.'dired-sidebar).;;;. |
| c2c0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2e 65 6c 20 65 6e 64 73 20 68 65 72 65 0a 00 00 00 00 00 | dired-sidebar.el.ends.here...... |
| c2e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c300 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c320 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c3e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c400 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c420 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c440 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c460 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c480 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c4e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c500 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c520 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c620 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c680 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c720 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 | ................................ |