| ofs | hex dump | ascii |
|---|
| 0000 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 32 30 32 35 30 32 31 32 2e 36 32 39 2f 00 00 00 00 00 | dired-sidebar-20250212.629/..... |
| 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 34 32 35 00 20 35 00 00 00 | 0000000.00000000000.013425..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 35 30 32 31 32 2e 36 32 39 2f 64 69 72 65 64 | dired-sidebar-20250212.629/dired |
| 0220 | 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 00 | -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 37 32 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 37 32 33 32 00 20 30 00 00 00 | 0000772.00000000000.017232..0... |
| 02a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 02e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0300 | 00 75 73 74 61 72 20 20 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .ustar...root................... |
| 0320 | 00 00 00 00 00 00 00 00 00 72 6f 6f 74 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | .........root................... |
| 0340 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0360 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0380 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 03e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 0400 | 3b 3b 20 2d 2a 2d 20 6e 6f 2d 62 79 74 65 2d 63 6f 6d 70 69 6c 65 3a 20 74 3b 20 6c 65 78 69 63 | ;;.-*-.no-byte-compile:.t;.lexic |
| 0420 | 61 6c 2d 62 69 6e 64 69 6e 67 3a 20 6e 69 6c 20 2d 2a 2d 0a 28 64 65 66 69 6e 65 2d 70 61 63 6b | al-binding:.nil.-*-.(define-pack |
| 0440 | 61 67 65 20 22 64 69 72 65 64 2d 73 69 64 65 62 61 72 22 20 22 32 30 32 35 30 32 31 32 2e 36 32 | age."dired-sidebar"."20250212.62 |
| 0460 | 39 22 0a 20 20 22 54 72 65 65 20 62 72 6f 77 73 65 72 20 6c 65 76 65 72 61 67 69 6e 67 20 64 69 | 9"..."Tree.browser.leveraging.di |
| 0480 | 72 65 64 2e 22 0a 20 20 27 28 28 65 6d 61 63 73 20 20 20 20 20 20 20 20 20 22 32 35 2e 31 22 29 | red."...'((emacs........."25.1") |
| 04a0 | 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 0a 20 20 20 | .....(dired-subtree."0.0.1").... |
| 04c0 | 20 28 63 6f 6d 70 61 74 20 20 20 20 20 20 20 20 22 33 30 2e 30 2e 30 2e 30 22 29 29 0a 20 20 3a | .(compat........"30.0.0.0"))...: |
| 04e0 | 75 72 6c 20 22 68 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 | url."https://github.com/jojojame |
| 0500 | 73 2f 64 69 72 65 64 2d 73 69 64 65 62 61 72 22 0a 20 20 3a 63 6f 6d 6d 69 74 20 22 33 62 63 38 | s/dired-sidebar"...:commit."3bc8 |
| 0520 | 39 32 37 65 64 34 64 31 34 61 30 31 37 65 65 66 63 37 35 64 35 61 66 36 35 30 32 32 33 34 33 65 | 927ed4d14a017eefc75d5af65022343e |
| 0540 | 32 61 63 31 22 0a 20 20 3a 72 65 76 64 65 73 63 20 22 33 62 63 38 39 32 37 65 64 34 64 31 22 0a | 2ac1"...:revdesc."3bc8927ed4d1". |
| 0560 | 20 20 3a 6b 65 79 77 6f 72 64 73 20 27 28 22 64 69 72 65 64 22 20 22 66 69 6c 65 73 22 20 22 74 | ..:keywords.'("dired"."files"."t |
| 0580 | 6f 6f 6c 73 22 29 0a 20 20 3a 61 75 74 68 6f 72 73 20 27 28 28 22 4a 61 6d 65 73 20 4e 67 75 79 | ools")...:authors.'(("James.Nguy |
| 05a0 | 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 22 29 29 0a 20 20 | en"..."james@jojojames.com"))... |
| 05c0 | 3a 6d 61 69 6e 74 61 69 6e 65 72 73 20 27 28 28 22 4a 61 6d 65 73 20 4e 67 75 79 65 6e 22 20 2e | :maintainers.'(("James.Nguyen".. |
| 05e0 | 20 22 6a 61 6d 65 73 40 6a 6f 6a 6f 6a 61 6d 65 73 2e 63 6f 6d 22 29 29 29 0a 00 00 00 00 00 00 | ."james@jojojames.com")))....... |
| 0600 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 32 30 32 35 30 32 31 32 2e 36 32 39 2f 64 69 72 65 64 | dired-sidebar-20250212.629/dired |
| 0620 | 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 00 | -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 34 32 34 31 00 30 30 30 30 30 30 30 30 30 30 30 00 30 31 36 34 35 32 00 20 30 00 00 00 | 0134241.00000000000.016452..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 50 61 63 6b 61 67 65 2d 56 65 72 73 69 6f 6e 3a 20 32 30 | d-sidebar.;;.Package-Version:.20 |
| 0920 | 32 35 30 32 31 32 2e 36 32 39 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 76 69 73 69 6f 6e 3a 20 | 250212.629.;;.Package-Revision:. |
| 0940 | 33 62 63 38 39 32 37 65 64 34 64 31 0a 3b 3b 20 50 61 63 6b 61 67 65 2d 52 65 71 75 69 72 65 73 | 3bc8927ed4d1.;;.Package-Requires |
| 0960 | 3a 20 28 28 65 6d 61 63 73 20 22 32 35 2e 31 22 29 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 | :.((emacs."25.1").(dired-subtree |
| 0980 | 20 22 30 2e 30 2e 31 22 29 20 28 63 6f 6d 70 61 74 20 22 33 30 2e 30 2e 30 2e 30 22 29 29 0a 3b | ."0.0.1").(compat."30.0.0.0")).; |
| 09a0 | 3b 20 4b 65 79 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 | ;.Keywords:.dired,.files,.tools. |
| 09c0 | 3b 3b 20 48 6f 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 | ;;.HomePage:.https://github.com/ |
| 09e0 | 6a 6f 6a 6f 6a 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 | jojojames/dired-sidebar..;;.This |
| 0a00 | 20 70 72 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f 75 20 63 | .program.is.free.software;.you.c |
| 0a20 | 61 6e 20 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 | an.redistribute.it.and/or.modify |
| 0a40 | 0a 3b 3b 20 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 20 47 4e | .;;.it.under.the.terms.of.the.GN |
| 0a60 | 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 75 62 6c | U.General.Public.License.as.publ |
| 0a80 | 69 73 68 65 64 20 62 79 0a 3b 3b 20 74 68 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 46 6f | ished.by.;;.the.Free.Software.Fo |
| 0aa0 | 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 74 68 | undation,.either.version.3.of.th |
| 0ac0 | 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a 3b 3b 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f 6e | e.License,.or.;;.(at.your.option |
| 0ae0 | 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 73 69 6f 6e 2e 0a 0a 3b 3b 20 54 68 69 73 20 70 72 | ).any.later.version...;;.This.pr |
| 0b00 | 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 | ogram.is.distributed.in.the.hope |
| 0b20 | 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 3b 3b 20 62 75 74 20 | .that.it.will.be.useful,.;;.but. |
| 0b40 | 57 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 | WITHOUT.ANY.WARRANTY;.without.ev |
| 0b60 | 65 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 3b 3b 20 4d 45 | en.the.implied.warranty.of.;;.ME |
| 0b80 | 52 43 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 | RCHANTABILITY.or.FITNESS.FOR.A.P |
| 0ba0 | 41 52 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 0a 3b 3b 20 47 | ARTICULAR.PURPOSE...See.the.;;.G |
| 0bc0 | 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f 72 20 6d 6f | NU.General.Public.License.for.mo |
| 0be0 | 72 65 20 64 65 74 61 69 6c 73 2e 0a 0a 3b 3b 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 76 65 20 | re.details...;;.You.should.have. |
| 0c00 | 72 65 63 65 69 76 65 64 20 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 | received.a.copy.of.the.GNU.Gener |
| 0c20 | 61 6c 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 0a 3b 3b 20 61 6c 6f 6e 67 20 77 69 74 68 20 | al.Public.License.;;.along.with. |
| 0c40 | 74 68 69 73 20 70 72 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 73 65 65 20 3c 68 74 74 70 | this.program...If.not,.see.<http |
| 0c60 | 3a 2f 2f 77 77 77 2e 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 2f 3e 2e 0a 0a 3b 3b 3b 20 | ://www.gnu.org/licenses/>...;;;. |
| 0c80 | 43 6f 6d 6d 65 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 | Commentary:.;;.This.package.prov |
| 0ca0 | 69 64 65 73 20 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 | ides.a.tree.browser.similar.to.` |
| 0cc0 | 6e 65 6f 74 72 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 | neotree'.or.`treemacs'.;;.but.le |
| 0ce0 | 76 65 72 61 67 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 | verages.`dired'.to.do.the.job.of |
| 0d00 | 20 64 69 73 70 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 | .display...;;.(use-package.dired |
| 0d20 | 2d 73 69 64 65 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 | -sidebar.;;...:bind.(("C-x.C-n". |
| 0d40 | 2e 20 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 29 29 | ..dired-sidebar-toggle-sidebar)) |
| 0d60 | 0a 3b 3b 20 20 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 | .;;...:ensure.nil.;;...:commands |
| 0d80 | 20 28 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 29 29 | .(dired-sidebar-toggle-sidebar)) |
| 0da0 | 0a 0a 3b 3b 3b 20 43 6f 64 65 3a 0a 0a 28 72 65 71 75 69 72 65 20 27 63 6f 6d 70 61 74 29 0a 28 | ..;;;.Code:..(require.'compat).( |
| 0dc0 | 72 65 71 75 69 72 65 20 27 64 69 72 65 64 29 0a 28 72 65 71 75 69 72 65 20 27 64 69 72 65 64 2d | require.'dired).(require.'dired- |
| 0de0 | 73 75 62 74 72 65 65 29 0a 28 65 76 61 6c 2d 77 68 65 6e 2d 63 6f 6d 70 69 6c 65 20 28 72 65 71 | subtree).(eval-when-compile.(req |
| 0e00 | 75 69 72 65 20 27 73 75 62 72 2d 78 29 29 20 3b 20 60 69 66 2d 6c 65 74 2a 27 20 61 6e 64 20 60 | uire.'subr-x)).;.`if-let*'.and.` |
| 0e20 | 77 68 65 6e 2d 6c 65 74 2a 27 0a 0a 28 64 65 63 6c 61 72 65 2d 66 75 6e 63 74 69 6f 6e 20 62 75 | when-let*'..(declare-function.bu |
| 0e40 | 66 66 65 72 2d 66 61 63 65 2d 6d 6f 64 65 2d 69 6e 76 6f 6b 65 20 22 66 61 63 65 2d 72 65 6d 61 | ffer-face-mode-invoke."face-rema |
| 0e60 | 70 22 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 66 67 72 6f 75 | p")..;;.Customizations..(defgrou |
| 0e80 | 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 6a 6f 72 20 6d | p.dired-sidebar.nil..."A.major.m |
| 0ea0 | 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 20 74 6f 20 64 | ode.leveraging.`dired-mode'.to.d |
| 0ec0 | 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 65 65 0a 6c 61 | isplay.a.filesystem.in.a.tree.la |
| 0ee0 | 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 65 66 63 75 73 | yout."...:group.'files)..(defcus |
| 0f00 | 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 6d 2d 66 6f 6e | tom.dired-sidebar-use-custom-fon |
| 0f20 | 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 72 27 20 77 69 | t.nil..."Show.`dired-sidebar'.wi |
| 0f40 | 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 63 61 6e 20 62 | th.custom.font...This.face.can.b |
| 0f60 | 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 69 64 65 62 61 | e.customized.using.`dired-sideba |
| 0f80 | 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 20 20 3a 67 72 | r-face'."...:type.'boolean...:gr |
| 0fa0 | 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 63 65 20 64 69 | oup.'dired-sidebar)..(defface.di |
| 0fc0 | 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 65 20 75 73 65 | red-sidebar-face.nil..."Face.use |
| 0fe0 | 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 73 74 6f 6d 20 | d.by.`dired-sidebar'.for.custom. |
| 1000 | 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 63 74 20 69 66 | font...This.only.takes.effect.if |
| 1020 | 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 66 6f 6e 74 27 | .`dired-sidebar-use-custom-font' |
| 1040 | 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 73 69 64 65 62 | .is.true."...:group.'dired-sideb |
| 1060 | 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 75 73 | ar)..(defcustom.dired-sidebar-us |
| 1080 | 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 20 60 64 69 72 | e-custom-modeline.t..."Show.`dir |
| 10a0 | 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 65 6c 69 6e 65 | ed-sidebar'.with.custom.modeline |
| 10c0 | 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 65 64 20 62 79 | ...This.uses.format.specified.by |
| 10e0 | 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 6f 72 6d 61 74 | .`dired-sidebar-mode-line-format |
| 1100 | 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 64 | '."...:type.'boolean...:group.'d |
| 1120 | 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 2d | ired-sidebar)..(defcustom.dired- |
| 1140 | 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 27 28 22 25 65 | sidebar-mode-line-format...'("%e |
| 1160 | 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 20 6d 6f 64 65 | ".mode-line-front-space.....mode |
| 1180 | 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 0a 20 20 20 20 | -line-buffer-identification..... |
| 11a0 | 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 20 20 22 4d 6f | "."..mode-line-end-spaces)..."Mo |
| 11c0 | 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 69 64 65 62 61 | de.line.format.for.`dired-sideba |
| 11e0 | 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 20 27 64 69 72 | r'."...:type.'list...:group.'dir |
| 1200 | 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 2d 73 69 | ed-sidebar)..(defcustom.dired-si |
| 1220 | 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 74 72 65 65 20 | debar-theme.'icons..."*The.tree. |
| 1240 | 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 73 20 74 68 65 | style.to.display..`ascii'.is.the |
| 1260 | 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 65 20 2b 2f 2d | .simplest.style,.it.will.use.+/- |
| 1280 | 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 0a 69 74 20 69 | .to.display.the.fold.state,.it.i |
| 12a0 | 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 63 6f 6e 73 27 | s.suitable.for.terminal..`icons' |
| 12c0 | 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 27 20 75 73 65 | .use.`all-the-icons'..`nerd'.use |
| 12e0 | 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 6f 64 65 20 61 | .the.nerdtree.indentation.mode.a |
| 1300 | 6e 64 20 61 72 72 6f 77 2e 0a 60 6e 65 72 64 2d 69 63 6f 6e 73 27 20 75 73 65 73 20 68 74 74 70 | nd.arrow..`nerd-icons'.uses.http |
| 1320 | 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 72 79 61 6e 6f 61 73 69 73 2f 6e 65 72 64 2d 66 6f | s://github.com/ryanoasis/nerd-fo |
| 1340 | 6e 74 73 0a 60 6e 6f 6e 65 27 20 75 73 65 20 6e 6f 20 74 68 65 6d 65 2e 0a 60 76 73 63 6f 64 65 | nts.`none'.use.no.theme..`vscode |
| 1360 | 27 20 75 73 65 20 60 76 73 63 6f 64 65 27 20 69 63 6f 6e 73 2e 0a 0a 54 68 69 73 20 6f 6e 6c 79 | '.use.`vscode'.icons...This.only |
| 1380 | 20 74 61 6b 65 73 20 65 66 66 65 63 74 20 69 66 20 6f 6e 20 61 20 6c 6f 63 61 6c 20 63 6f 6e 6e | .takes.effect.if.on.a.local.conn |
| 13a0 | 65 63 74 69 6f 6e 2e 20 28 65 2e 67 2e 20 4e 6f 74 20 54 72 61 6d 70 29 22 0a 20 20 3a 67 72 6f | ection..(e.g..Not.Tramp)"...:gro |
| 13c0 | 75 70 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 0a 20 20 3a 74 79 70 65 20 27 28 63 68 6f 69 | up.'dired-sidebar...:type.'(choi |
| 13e0 | 63 65 20 28 63 6f 6e 73 74 20 61 73 63 69 69 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ce.(const.ascii)................ |
| 1400 | 20 20 28 63 6f 6e 73 74 20 69 63 6f 6e 73 29 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 | ..(const.icons).;;.https://githu |
| 1420 | 62 2e 63 6f 6d 2f 6a 74 62 6d 33 37 2f 61 6c 6c 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 | b.com/jtbm37/all-the-icons-dired |
| 1440 | 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 6e 65 72 64 29 0a 20 | ..................(const.nerd).. |
| 1460 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 63 6f 6e 73 74 20 6e 65 72 64 2d 69 63 6f 6e | ................(const.nerd-icon |
| 1480 | 73 29 20 3b 3b 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 72 61 69 6e 73 74 6f | s).;;.https://github.com/rainsto |
| 14a0 | 72 6d 73 74 75 64 69 6f 2f 6e 65 72 64 2d 69 63 6f 6e 73 2e 65 6c 0a 20 20 20 20 20 20 20 20 20 | rmstudio/nerd-icons.el.......... |
| 14c0 | 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 20 20 | ........(const.none)............ |
| 14e0 | 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 73 74 | ......(const.vscode)))..(defcust |
| 1500 | 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 69 64 | om.dired-sidebar-width.35..."Wid |
| 1520 | 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 65 72 | th.of.the.`dired-sidebar'.buffer |
| 1540 | 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 66 65 | ..This.option.does.not.have.effe |
| 1560 | 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 2d 6f | ct.if.`dired-sidebar-resize-on-o |
| 1580 | 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 2d 73 | pen'.is.nil..If.you.set.`dired-s |
| 15a0 | 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 20 79 | idebar-resize-on-open'.to.nil,.y |
| 15c0 | 6f 75 20 63 61 6e 20 63 75 73 74 6f 6d 69 7a 65 0a 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ou.can.customize.`dired-sidebar- |
| 15e0 | 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 77 69 | display-alist'.to.control.the.wi |
| 1600 | 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 20 20 | dth.anyway."...:type.'integer... |
| 1620 | 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 74 | :group.'dired-sidebar)..(defcust |
| 1640 | 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 27 77 | om.dired-sidebar-window-fixed.'w |
| 1660 | 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 65 69 | idth..."Whether.the.width.or.hei |
| 1680 | 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 6c 64 | ght.of.the.sidebar.window.should |
| 16a0 | 20 62 65 20 66 69 78 65 64 0a 28 74 6f 20 70 72 65 76 65 6e 74 20 66 72 6f 6d 20 72 65 73 69 7a | .be.fixed.(to.prevent.from.resiz |
| 16c0 | 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 20 6e | ing)."...:type.'(choice.(const.n |
| 16e0 | 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 64 74 | il)..................(const.widt |
| 1700 | 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 67 68 | h)..................(const.heigh |
| 1720 | 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 28 64 | t))...:group.'dired-sidebar)..(d |
| 1740 | 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 2d 6f | efcustom.dired-sidebar-refresh-o |
| 1760 | 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 73 69 | n-project-switch.t..."Refresh.si |
| 1780 | 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 6f 6a | debar.when.`projectile'.or.`proj |
| 17a0 | 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 65 20 | ect'.changes.projects."...:type. |
| 17c0 | 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 |
| 17e0 | 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 6f 75 | )..(defcustom.dired-sidebar-shou |
| 1800 | 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 73 69 | ld-follow-file.nil..."Refresh.si |
| 1820 | 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 20 20 | debar.to.match.current.file."... |
| 1840 | 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 2d 73 | :type.'boolean...:group.'dired-s |
| 1860 | 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 61 | idebar)..(defcustom.dired-sideba |
| 1880 | 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 74 68 | r-skip-subtree-parent.t..."Wheth |
| 18a0 | 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 63 74 | er.to.skip.subtree.parent.direct |
| 18c0 | 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 27 62 | ory.when.jumping.up."...:type.'b |
| 18e0 | 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). |
| 1900 | 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 74 6f | .(defcustom.dired-sidebar-pop-to |
| 1920 | 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 68 65 | -sidebar-on-toggle-open.t..."Whe |
| 1940 | 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 6f 67 | ther.to.jump.to.sidebar.upon.tog |
| 1960 | 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 6f 6e | gling.open...This.is.used.in.con |
| 1980 | 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 6f 67 | junction.with.`dired-sidebar-tog |
| 19a0 | 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 6e 0a | gle-sidebar'."...:type.'boolean. |
| 19c0 | 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 |
| 19e0 | 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 2d 61 | stom.dired-sidebar-follow-file-a |
| 1a00 | 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 65 74 | t-point-on-toggle-open.t..."Whet |
| 1a20 | 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 75 62 | her.to.recursively.cycle.the.sub |
| 1a40 | 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 69 6d | tree.and.put.point.on.file...Sim |
| 1a60 | 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 76 65 | ilar.to.`dired-jump'...This.move |
| 1a80 | 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 74 6f | s.point.inside.sidebar.buffer.to |
| 1aa0 | 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 5c 28 | .where.current-buffer-file.is.\( |
| 1ac0 | 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 63 65 | if.it.exists\).but.does.not.nece |
| 1ae0 | 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 64 6f | ssarily.select.the.sidebar.windo |
| 1b00 | 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 64 | w."...:type.'boolean...:group.'d |
| 1b20 | 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 2d | ired-sidebar)..(defcustom.dired- |
| 1b40 | 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 74 0a | sidebar-use-magit-integration.t. |
| 1b60 | 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 6d 61 | .."Whether.to.integrate.with.`ma |
| 1b80 | 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 69 6e | git-mode'...When.true:..When.fin |
| 1ba0 | 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 65 64 | ding.file.to.point.at.for.`dired |
| 1bc0 | 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 6f 6e | -sidebar-follow-file-at-point-on |
| 1be0 | 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 6e 74 | -toggle-open',.use.file.at.point |
| 1c00 | 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 69 6e | .in.`magit'.buffer...When.findin |
| 1c20 | 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 75 73 | g.root.directory.for.sidebar,.us |
| 1c40 | 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 74 27 | e.directory.specified.by.`magit' |
| 1c60 | 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 64 69 | ."...:type.'boolean...:group.'di |
| 1c80 | 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 2d 73 | red-sidebar)..(defcustom.dired-s |
| 1ca0 | 69 64 65 62 61 72 2d 75 73 65 2d 6f 6d 69 74 2d 6d 6f 64 65 2d 69 6e 74 65 67 72 61 74 69 6f 6e | idebar-use-omit-mode-integration |
| 1cc0 | 20 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 | .t..."Whether.to.integrate.with. |
| 1ce0 | 60 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 27 2e 0a 0a 57 68 65 6e 20 74 72 75 65 3a 20 41 | `dired-omit-mode'...When.true:.A |
| 1d00 | 74 74 65 6d 70 74 20 74 6f 20 68 61 6e 64 6c 65 20 60 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 | ttempt.to.handle.`dired-omit-mod |
| 1d20 | 65 27 20 61 72 6f 75 6e 64 0a 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 27 20 | e'.around.`dired-subtree-cycle'. |
| 1d40 | 61 6e 64 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 27 2e 22 0a 20 20 3a | and.`dired-subtree-toggle'."...: |
| 1d60 | 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 |
| 1d80 | 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 |
| 1da0 | 2d 75 73 65 2d 74 65 72 6d 2d 69 6e 74 65 67 72 61 74 69 6f 6e 20 6e 69 6c 0a 20 20 22 57 68 65 | -use-term-integration.nil..."Whe |
| 1dc0 | 74 68 65 72 20 74 6f 20 69 6e 74 65 67 72 61 74 65 20 77 69 74 68 20 60 74 65 72 6d 2d 6d 6f 64 | ther.to.integrate.with.`term-mod |
| 1de0 | 65 27 2e 0a 0a 57 68 65 6e 20 74 72 75 65 3a 0a 0a 57 68 65 6e 20 66 69 6e 64 69 6e 67 20 72 6f | e'...When.true:..When.finding.ro |
| 1e00 | 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 75 73 65 20 50 57 | ot.directory.for.sidebar,.use.PW |
| 1e20 | 44 20 6f 66 20 60 74 65 72 6d 2d 6d 6f 64 65 27 2e 20 54 68 69 73 20 69 73 20 74 75 72 6e 65 64 | D.of.`term-mode'..This.is.turned |
| 1e40 | 0a 6f 66 66 20 62 79 20 64 65 66 61 75 6c 74 20 64 75 65 20 74 6f 20 74 68 65 20 65 78 70 65 72 | .off.by.default.due.to.the.exper |
| 1e60 | 69 6d 65 6e 74 61 6c 20 6e 61 74 75 72 65 20 6f 66 20 67 65 74 74 69 6e 67 20 74 68 65 20 50 57 | imental.nature.of.getting.the.PW |
| 1e80 | 44 20 66 72 6f 6d 20 74 68 65 0a 74 65 72 6d 69 6e 61 6c 2e 0a 0a 4c 6f 6f 6b 20 61 74 20 60 64 | D.from.the.terminal...Look.at.`d |
| 1ea0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 65 72 6d 2d 67 65 74 2d 70 77 64 27 20 66 6f 72 20 69 | ired-sidebar-term-get-pwd'.for.i |
| 1ec0 | 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 6e | mplementation."...:type.'boolean |
| 1ee0 | 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 63 | ...:group.'dired-sidebar)..(defc |
| 1f00 | 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 77 64 69 72 65 64 2d 69 | ustom.dired-sidebar-use-wdired-i |
| 1f20 | 6e 74 65 67 72 61 74 69 6f 6e 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 69 6e 74 65 67 | ntegration.t..."Whether.to.integ |
| 1f40 | 72 61 74 65 20 77 69 74 68 20 60 77 64 69 72 65 64 27 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f | rate.with.`wdired'."...:type.'bo |
| 1f60 | 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 0a | olean...:group.'dired-sidebar).. |
| 1f80 | 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 63 79 63 6c 65 2d 73 | (defcustom.dired-sidebar-cycle-s |
| 1fa0 | 75 62 74 72 65 65 2d 6f 6e 2d 63 6c 69 63 6b 20 74 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 | ubtree-on-click.t..."Whether.to. |
| 1fc0 | 63 79 63 6c 65 20 73 75 62 74 72 65 65 20 6f 6e 20 63 6c 69 63 6b 2e 22 0a 20 20 3a 74 79 70 65 | cycle.subtree.on.click."...:type |
| 1fe0 | 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 |
| 2000 | 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 64 65 6c | r)..(defcustom.dired-sidebar-del |
| 2020 | 61 79 2d 61 75 74 6f 2d 72 65 76 65 72 74 2d 75 70 64 61 74 65 73 20 74 0a 20 20 22 57 68 65 74 | ay-auto-revert-updates.t..."Whet |
| 2040 | 68 65 72 20 74 6f 20 64 65 6c 61 79 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 72 65 76 65 72 | her.to.delay.automatically.rever |
| 2060 | 74 69 6e 67 20 62 75 66 66 65 72 2e 0a 0a 57 68 65 6e 20 74 72 75 65 2c 20 6f 6e 6c 79 20 61 6c | ting.buffer...When.true,.only.al |
| 2080 | 6c 6f 77 20 66 75 6e 63 74 69 6f 6e 20 60 61 75 74 6f 2d 72 65 76 65 72 74 2d 6d 6f 64 65 27 20 | low.function.`auto-revert-mode'. |
| 20a0 | 74 6f 20 75 70 64 61 74 65 20 65 76 65 72 79 0a 60 64 69 72 64 2d 73 69 64 65 62 61 72 2d 73 74 | to.update.every.`dird-sidebar-st |
| 20c0 | 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 2d 69 64 6c 65 2d 64 65 6c 61 79 27 20 73 65 63 6f | ale-buffer-time-idle-delay'.seco |
| 20e0 | 6e 64 73 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 | nds."...:type.'boolean...:group. |
| 2100 | 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 |
| 2120 | 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 65 | d-sidebar-stale-buffer-time-idle |
| 2140 | 2d 64 65 6c 61 79 20 31 2e 35 0a 20 20 22 54 68 65 20 74 69 6d 65 20 69 6e 20 69 64 6c 65 20 73 | -delay.1.5..."The.time.in.idle.s |
| 2160 | 65 63 6f 6e 64 73 20 74 6f 20 77 61 69 74 20 62 65 66 6f 72 65 20 63 68 65 63 6b 69 6e 67 20 69 | econds.to.wait.before.checking.i |
| 2180 | 66 20 62 75 66 66 65 72 20 69 73 20 73 74 61 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 6e 75 6d | f.buffer.is.stale."...:type.'num |
| 21a0 | 62 65 72 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 | ber...:group.'dired-sidebar)..(d |
| 21c0 | 65 66 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 | efcustom.dired-sidebar-follow-fi |
| 21e0 | 6c 65 2d 69 64 6c 65 2d 64 65 6c 61 79 20 32 0a 20 20 22 54 68 65 20 74 69 6d 65 20 69 6e 20 69 | le-idle-delay.2..."The.time.in.i |
| 2200 | 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 65 63 6b | dle.seconds.to.wait.before.check |
| 2220 | 69 6e 67 20 69 66 20 73 69 64 65 62 61 72 20 73 68 6f 75 6c 64 0a 66 6f 6c 6c 6f 77 20 66 69 6c | ing.if.sidebar.should.follow.fil |
| 2240 | 65 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 27 64 69 | e."...:type.'number...:group.'di |
| 2260 | 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 2d 73 | red-sidebar)..(defcustom.dired-s |
| 2280 | 69 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 74 65 2d 64 65 6c 61 79 20 30 2e 30 32 0a 20 20 22 | idebar-tui-update-delay.0.02..." |
| 22a0 | 54 68 65 20 74 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 | The.time.in.idle.seconds.to.wait |
| 22c0 | 20 62 65 66 6f 72 65 20 75 70 64 61 74 69 6e 67 20 74 75 69 20 69 6e 74 65 72 66 61 63 65 2e 0a | .before.updating.tui.interface.. |
| 22e0 | 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 60 61 6c 6c 2d | .This.only.takes.effect.if.`all- |
| 2300 | 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 27 20 69 73 20 64 69 73 61 62 6c 65 64 2e 22 0a 20 | the-icons-dired'.is.disabled.".. |
| 2320 | 20 3a 74 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 | .:type.'number...:group.'dired-s |
| 2340 | 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 61 | idebar)..(defcustom.dired-sideba |
| 2360 | 72 2d 72 65 66 72 65 73 68 2d 6f 6e 2d 73 70 65 63 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 20 74 0a | r-refresh-on-special-commands.t. |
| 2380 | 20 20 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 74 72 69 67 67 65 72 20 61 75 74 | .."Whether.or.not.to.trigger.aut |
| 23a0 | 6f 2d 72 65 76 65 72 74 20 61 66 74 65 72 20 63 65 72 74 61 69 6e 20 66 75 6e 63 74 69 6f 6e 73 | o-revert.after.certain.functions |
| 23c0 | 2e 0a 0a 57 61 72 6e 69 6e 67 3a 20 54 68 69 73 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 | ...Warning:.This.is.implemented. |
| 23e0 | 62 79 20 61 64 76 69 73 69 6e 67 20 73 70 65 63 69 66 69 63 20 64 69 72 65 64 20 66 75 6e 63 74 | by.advising.specific.dired.funct |
| 2400 | 69 6f 6e 73 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 | ions."...:type.'boolean...:group |
| 2420 | 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 |
| 2440 | 65 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 | ed-sidebar-disable-dired-collaps |
| 2460 | 65 20 74 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 61 62 6c 65 | e.t..."Whether.or.not.to.disable |
| 2480 | 20 60 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 27 20 69 66 20 69 74 27 73 20 65 6e 61 62 6c 65 | .`dired-collapse'.if.it's.enable |
| 24a0 | 64 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 64 | d."...:type.'boolean...:group.'d |
| 24c0 | 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 2d | ired-sidebar)..(defcustom.dired- |
| 24e0 | 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 6e 64 73 | sidebar-special-refresh-commands |
| 2500 | 0a 20 20 27 28 64 69 72 65 64 2d 64 6f 2d 64 65 6c 65 74 65 0a 20 20 20 20 64 69 72 65 64 2d 64 | ...'(dired-do-delete.....dired-d |
| 2520 | 6f 2d 72 65 6e 61 6d 65 0a 20 20 20 20 64 69 72 65 64 2d 64 6f 2d 63 6f 70 79 0a 20 20 20 20 64 | o-rename.....dired-do-copy.....d |
| 2540 | 69 72 65 64 2d 64 6f 2d 66 6c 61 67 67 65 64 2d 64 65 6c 65 74 65 0a 20 20 20 20 64 69 72 65 64 | ired-do-flagged-delete.....dired |
| 2560 | 2d 63 72 65 61 74 65 2d 64 69 72 65 63 74 6f 72 79 0a 20 20 20 20 28 64 65 6c 65 74 65 2d 66 69 | -create-directory.....(delete-fi |
| 2580 | 6c 65 20 2e 20 35 29 0a 20 20 20 20 28 73 61 76 65 2d 62 75 66 66 65 72 20 2e 20 35 29 0a 20 20 | le...5).....(save-buffer...5)... |
| 25a0 | 20 20 6d 61 67 69 74 2d 66 6f 72 6d 61 74 2d 70 61 74 63 68 29 0a 20 20 22 41 20 6c 69 73 74 20 | ..magit-format-patch)..."A.list. |
| 25c0 | 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 74 68 61 74 20 77 69 6c 6c 20 74 72 69 67 67 65 72 20 61 20 | of.commands.that.will.trigger.a. |
| 25e0 | 72 65 66 72 65 73 68 20 6f 66 20 74 68 65 20 73 69 64 65 62 61 72 2e 0a 0a 54 68 65 20 63 6f 6d | refresh.of.the.sidebar...The.com |
| 2600 | 6d 61 6e 64 20 63 61 6e 20 62 65 20 61 6e 20 61 6c 69 73 74 20 77 69 74 68 20 74 68 65 20 43 44 | mand.can.be.an.alist.with.the.CD |
| 2620 | 52 20 6f 66 20 74 68 65 20 61 6c 69 73 74 20 62 65 69 6e 67 20 74 68 65 20 61 6d 6f 75 6e 74 20 | R.of.the.alist.being.the.amount. |
| 2640 | 6f 66 20 74 69 6d 65 0a 74 6f 20 77 61 69 74 20 74 6f 20 72 65 66 72 65 73 68 20 74 68 65 20 73 | of.time.to.wait.to.refresh.the.s |
| 2660 | 69 64 65 62 61 72 20 61 66 74 65 72 20 74 68 65 20 43 41 52 20 6f 66 20 74 68 65 20 61 6c 69 73 | idebar.after.the.CAR.of.the.alis |
| 2680 | 74 20 69 73 20 63 61 6c 6c 65 64 2e 0a 0a 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 20 6f 72 | t.is.called...Set.this.to.nil.or |
| 26a0 | 20 73 65 74 20 60 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 | .set.`dired-sidebar-refresh-on-s |
| 26c0 | 70 65 63 69 61 6c 2d 63 6f 6d 6d 61 6e 64 73 27 20 74 6f 20 6e 69 6c 0a 74 6f 20 64 69 73 61 62 | pecial-commands'.to.nil.to.disab |
| 26e0 | 6c 65 20 61 75 74 6f 6d 61 74 69 63 20 72 65 66 72 65 73 68 20 77 68 65 6e 20 61 20 73 70 65 63 | le.automatic.refresh.when.a.spec |
| 2700 | 69 61 6c 20 63 6f 6d 6d 61 6e 64 20 69 73 20 74 72 69 67 67 65 72 65 64 2e 22 0a 20 20 3a 74 79 | ial.command.is.triggered."...:ty |
| 2720 | 70 65 20 27 6c 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 | pe.'list...:group.'dired-sidebar |
| 2740 | 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 74 6f 67 67 | )..(defcustom.dired-sidebar-togg |
| 2760 | 6c 65 2d 68 69 64 64 65 6e 2d 63 6f 6d 6d 61 6e 64 73 0a 20 20 27 28 62 61 6c 61 6e 63 65 2d 77 | le-hidden-commands...'(balance-w |
| 2780 | 69 6e 64 6f 77 73 29 0a 20 20 22 41 20 6c 69 73 74 20 6f 66 20 63 6f 6d 6d 61 6e 64 73 20 74 68 | indows)..."A.list.of.commands.th |
| 27a0 | 61 74 20 77 6f 6e 27 74 20 77 6f 72 6b 20 77 68 65 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | at.won't.work.when.`dired-sideba |
| 27c0 | 72 27 20 69 73 20 76 69 73 69 62 6c 65 2e 0a 0a 57 68 65 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 | r'.is.visible...When.the.command |
| 27e0 | 20 69 73 20 74 72 69 67 67 65 72 65 64 2c 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 77 | .is.triggered,.`dired-sidebar'.w |
| 2800 | 69 6c 6c 20 68 69 64 65 20 74 65 6d 70 6f 72 61 72 69 6c 79 20 75 6e 74 69 6c 0a 63 6f 6d 6d 61 | ill.hide.temporarily.until.comma |
| 2820 | 6e 64 20 69 73 20 63 6f 6d 70 6c 65 74 65 64 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 61 | nd.is.completed...This.functiona |
| 2840 | 6c 69 74 79 20 69 73 20 69 6d 70 6c 65 6d 65 6e 74 65 64 20 75 73 69 6e 67 20 61 64 76 69 63 65 | lity.is.implemented.using.advice |
| 2860 | 2e 0a 0a 53 65 74 20 74 68 69 73 20 74 6f 20 6e 69 6c 20 74 6f 20 64 69 73 61 62 6c 65 20 74 68 | ...Set.this.to.nil.to.disable.th |
| 2880 | 69 73 20 61 64 76 69 63 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 6c 69 73 74 0a 20 20 3a 67 72 6f | is.advice."...:type.'list...:gro |
| 28a0 | 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 |
| 28c0 | 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 2d 77 69 | ired-sidebar-alternate-select-wi |
| 28e0 | 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ndow-function...#'dired-sidebar- |
| 2900 | 64 65 66 61 75 6c 74 2d 61 6c 74 65 72 6e 61 74 65 2d 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 0a | default-alternate-select-window. |
| 2920 | 20 20 22 46 75 6e 63 74 69 6f 6e 20 74 6f 20 63 61 6c 6c 20 77 68 65 6e 20 75 73 69 6e 67 20 61 | .."Function.to.call.when.using.a |
| 2940 | 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 6f 6e 2e 0a 0a 41 6c | lternative.window.selection...Al |
| 2960 | 74 65 72 6e 61 74 69 76 65 20 77 69 6e 64 6f 77 20 73 65 6c 65 63 74 69 6f 6e 20 69 73 20 75 73 | ternative.window.selection.is.us |
| 2980 | 65 64 20 77 68 65 6e 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 | ed.when.`dired-sidebar-find-file |
| 29a0 | 27 20 69 73 20 63 61 6c 6c 65 64 0a 77 69 74 68 20 61 20 70 72 65 66 69 78 20 61 72 67 20 6f 72 | '.is.called.with.a.prefix.arg.or |
| 29c0 | 20 77 68 65 6e 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 2d 61 | .when.`dired-sidebar-find-file-a |
| 29e0 | 6c 74 27 20 69 73 20 63 61 6c 6c 65 64 2e 22 0a 20 20 3a 74 79 70 65 20 27 66 75 6e 63 74 69 6f | lt'.is.called."...:type.'functio |
| 2a00 | 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 |
| 2a20 | 63 75 73 74 6f 6d 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 | custom.dired-sidebar-recenter-cu |
| 2a40 | 72 73 6f 72 2d 6f 6e 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 20 74 0a 20 20 22 57 68 65 74 68 65 72 | rsor-on-follow-file.t..."Whether |
| 2a60 | 20 6f 72 20 6e 6f 74 20 74 6f 20 63 65 6e 74 65 72 20 63 75 72 73 6f 72 20 77 68 65 6e 20 70 6f | .or.not.to.center.cursor.when.po |
| 2a80 | 69 6e 74 69 6e 67 20 61 74 20 66 69 6c 65 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 | inting.at.file."...:type.'boolea |
| 2aa0 | 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 |
| 2ac0 | 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 73 69 7a 65 2d 6f 6e 2d 6f | custom.dired-sidebar-resize-on-o |
| 2ae0 | 70 65 6e 20 74 0a 20 20 22 57 68 65 6e 20 64 69 72 65 64 20 73 69 64 65 62 61 72 20 77 69 6e 64 | pen.t..."When.dired.sidebar.wind |
| 2b00 | 6f 77 20 69 73 20 73 68 6f 77 65 64 2c 20 61 75 74 6f 6d 61 74 69 63 61 6c 6c 79 20 61 64 6a 75 | ow.is.showed,.automatically.adju |
| 2b20 | 73 74 20 69 74 73 20 77 69 64 74 68 0a 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 60 64 69 72 65 64 | st.its.width.according.to.`dired |
| 2b40 | 2d 73 69 64 65 62 61 72 2d 77 69 64 74 68 27 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 | -sidebar-width'"...:type.'boolea |
| 2b60 | 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 |
| 2b80 | 63 75 73 74 6f 6d 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 | custom.dired-sidebar-recenter-cu |
| 2ba0 | 72 73 6f 72 2d 6f 6e 2d 74 75 69 2d 75 70 64 61 74 65 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 | rsor-on-tui-update.nil..."Whethe |
| 2bc0 | 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 20 77 68 65 6e 20 75 | r.or.not.to.center.cursor.when.u |
| 2be0 | 70 64 61 74 69 6e 67 20 74 75 69 20 69 6e 74 65 72 66 61 63 65 2e 22 0a 20 20 3a 74 79 70 65 20 | pdating.tui.interface."...:type. |
| 2c00 | 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 |
| 2c20 | 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 64 69 73 70 | )..(defcustom.dired-sidebar-disp |
| 2c40 | 6c 61 79 2d 61 75 74 6f 72 65 76 65 72 74 2d 6d 65 73 73 61 67 65 73 20 6e 69 6c 0a 20 20 22 57 | lay-autorevert-messages.nil..."W |
| 2c60 | 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 64 69 73 70 6c 61 79 20 60 61 75 74 6f 72 65 | hether.or.not.to.display.`autore |
| 2c80 | 76 65 72 74 27 20 6d 65 73 73 61 67 65 73 2e 22 0a 20 20 3a 74 79 70 65 20 27 62 6f 6f 6c 65 61 | vert'.messages."...:type.'boolea |
| 2ca0 | 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 |
| 2cc0 | 63 75 73 74 6f 6d 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6f 70 65 6e 2d 66 69 6c 65 2d 69 | custom.dired-sidebar-open-file-i |
| 2ce0 | 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 20 74 0a 20 20 | n-most-recently-used-window.t... |
| 2d00 | 22 57 68 65 74 68 65 72 20 6f 72 20 6e 6f 74 20 74 6f 20 6f 70 65 6e 20 66 69 6c 65 73 20 69 6e | "Whether.or.not.to.open.files.in |
| 2d20 | 20 6d 6f 73 74 20 72 65 63 65 6e 74 6c 79 20 75 73 65 64 20 77 69 6e 64 6f 77 2e 22 0a 20 20 3a | .most.recently.used.window."...: |
| 2d40 | 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 |
| 2d60 | 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 |
| 2d80 | 2d 73 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 75 62 74 72 | -subtree-line-prefix.dired-subtr |
| 2da0 | 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 0a 20 20 22 54 68 65 20 6c 69 6e 65 20 70 72 65 66 69 | ee-line-prefix..."The.line.prefi |
| 2dc0 | 78 20 74 6f 20 75 73 65 20 77 68 65 6e 20 73 75 62 74 72 65 65 20 69 73 20 63 79 63 6c 65 64 2e | x.to.use.when.subtree.is.cycled. |
| 2de0 | 22 0a 20 20 3a 74 79 70 65 20 27 73 74 72 69 6e 67 0a 20 20 3a 67 72 6f 75 70 20 27 64 69 72 65 | "...:type.'string...:group.'dire |
| 2e00 | 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 |
| 2e20 | 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 61 6c 69 73 74 20 27 28 28 73 69 64 65 20 2e 20 6c 65 66 | ebar-display-alist.'((side...lef |
| 2e40 | 74 29 20 28 73 6c 6f 74 20 2e 20 2d 31 29 29 0a 20 20 22 41 6c 69 73 74 20 75 73 65 64 20 69 6e | t).(slot...-1))..."Alist.used.in |
| 2e60 | 20 60 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 27 | .`display-buffer-in-side-window' |
| 2e80 | 2e 0a 0a 65 2e 67 2e 20 28 64 69 73 70 6c 61 79 2d 62 75 66 66 65 72 2d 69 6e 2d 73 69 64 65 2d | ...e.g..(display-buffer-in-side- |
| 2ea0 | 77 69 6e 64 6f 77 20 62 75 66 66 65 72 20 5c 5c 27 28 28 73 69 64 65 20 2e 20 6c 65 66 74 29 20 | window.buffer.\\'((side...left). |
| 2ec0 | 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 69 73 74 0a 20 20 | (slot...-1)))"...:type.'alist... |
| 2ee0 | 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 74 | :group.'dired-sidebar)..(defcust |
| 2f00 | 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 65 62 61 72 2d 6f | om.dired-sidebar-close-sidebar-o |
| 2f20 | 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 20 6f 72 20 6e 6f | n-file-open.nil..."Whether.or.no |
| 2f40 | 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 69 72 65 64 2d 73 | t.to.close.sidebar.when.`dired-s |
| 2f60 | 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 64 2e 0a 0a 54 68 | idebar-find-file'.is.called...Th |
| 2f80 | 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 69 66 20 60 64 69 | is.behavior.only.triggers.if.`di |
| 2fa0 | 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 74 72 69 67 67 65 | red-sidebar-find-file'.is.trigge |
| 2fc0 | 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 6f 6f 6c 65 61 6e | red.on.a.file."...:type.'boolean |
| 2fe0 | 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 63 | ...:group.'dired-sidebar)..(defc |
| 3000 | 75 73 74 6f 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 | ustom.dired-sidebar-no-delete-ot |
| 3020 | 68 65 72 2d 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 | her-windows.nil..."Whether.or.no |
| 3040 | 74 20 74 6f 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 | t.to.add.`no-delete-other-window |
| 3060 | 27 20 70 61 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 | '.parameter.to.window...If.this. |
| 3080 | 69 73 20 74 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 | is.true,.when.calling.`delete-ot |
| 30a0 | 68 65 72 2d 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 | her-windows',.`dired-sidebar'.wi |
| 30c0 | 6e 64 6f 77 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 | ndow.will.continue.showing...For |
| 30e0 | 20 6d 6f 72 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 | .more.information,.look.up.`dele |
| 3100 | 74 65 2d 6f 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 | te-other-windows'."...:type.'boo |
| 3120 | 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 0a 28 | lean...:group.'dired-sidebar)..( |
| 3140 | 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 6f 6e 65 2d | defcustom.dired-sidebar-use-one- |
| 3160 | 69 6e 73 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 | instance.nil..."Only.show.one.bu |
| 3180 | 66 66 65 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 | ffer.instance.for.dired-sidebar. |
| 31a0 | 66 6f 72 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 | for.each.frame."...:type.'boolea |
| 31c0 | 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 |
| 31e0 | 63 75 73 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 | custom.dired-sidebar-display-rem |
| 3200 | 6f 74 65 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 | ote-icons.nil..."Show.icons.for. |
| 3220 | 72 65 6d 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 | remote.directories..nil.by.defau |
| 3240 | 6c 74 20 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 | lt.for.performance.reasons."...: |
| 3260 | 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 |
| 3280 | 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 |
| 32a0 | 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 20 27 28 61 6c 6c 2d | -block-icon-display-modes.'(all- |
| 32c0 | 74 68 65 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 | the-icons-dired-mode)..."List.of |
| 32e0 | 20 6d 6f 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 | .modes.in.`dired-mode-hook'.that |
| 3300 | 20 70 72 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 | .prevents.icon.display...See.htt |
| 3320 | 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- |
| 3340 | 73 69 64 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 | sidebar/issues/43."...:type.'lis |
| 3360 | 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 3b 3b 20 49 | t...:group.'dired-sidebar)..;;.I |
| 3380 | 6e 74 65 72 6e 61 6c 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 | nternal..(defvar-local.dired-sid |
| 33a0 | 65 62 61 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 20 6e 69 6c 0a 20 20 22 54 | ebar-stale-buffer-timer.nil..."T |
| 33c0 | 69 6d 65 72 20 75 73 65 64 20 66 6f 72 20 73 65 74 74 69 6e 67 20 60 64 69 72 65 64 2d 73 69 64 | imer.used.for.setting.`dired-sid |
| 33e0 | 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 70 27 2e 0a | ebar-check-for-stale-buffer-p'.. |
| 3400 | 0a 54 68 69 73 20 69 73 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 2e 22 29 0a 0a 28 64 65 66 76 61 | .This.is.buffer.local.")..(defva |
| 3420 | 72 2d 6c 6f 63 61 6c 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 | r-local.dired-sidebar-follow-fil |
| 3440 | 65 2d 74 69 6d 65 72 20 6e 69 6c 0a 20 20 22 54 69 6d 65 72 20 75 73 65 64 20 77 68 65 6e 20 60 | e-timer.nil..."Timer.used.when.` |
| 3460 | 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 77 2d 66 69 6c 65 | dired-sidebar-should-follow-file |
| 3480 | 27 20 69 73 20 74 72 75 65 2e 22 29 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 65 | '.is.true.")..(defvar-local.dire |
| 34a0 | 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 75 66 66 65 72 | d-sidebar-check-for-stale-buffer |
| 34c0 | 2d 70 20 6e 69 6c 0a 20 20 22 57 68 65 74 68 65 72 20 74 6f 20 63 68 65 63 6b 20 69 66 20 62 75 | -p.nil..."Whether.to.check.if.bu |
| 34e0 | 66 66 65 72 20 69 73 20 73 74 61 6c 65 2e 0a 0a 57 68 65 6e 20 74 68 69 73 20 69 73 20 74 72 75 | ffer.is.stale...When.this.is.tru |
| 3500 | 65 20 60 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 27 | e.`dired-sidebar-buffer-stale-p' |
| 3520 | 0a 77 69 6c 6c 20 63 68 65 63 6b 20 69 66 20 62 75 66 66 65 72 20 69 73 20 73 74 61 6c 65 20 74 | .will.check.if.buffer.is.stale.t |
| 3540 | 68 72 6f 75 67 68 20 60 61 75 74 6f 2d 72 65 76 65 72 74 2d 6d 6f 64 65 27 2e 22 29 0a 0a 3b 3b | hrough.`auto-revert-mode'.")..;; |
| 3560 | 20 4d 6f 64 65 0a 0a 28 64 65 66 6d 61 63 72 6f 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 77 | .Mode..(defmacro.dired-sidebar-w |
| 3580 | 69 74 68 2d 6e 6f 2d 64 65 64 69 63 61 74 69 6f 6e 20 28 26 72 65 73 74 20 62 6f 64 79 29 0a 20 | ith-no-dedication.(&rest.body).. |
| 35a0 | 20 22 52 75 6e 20 42 4f 44 59 20 61 66 74 65 72 20 75 6e 64 65 64 69 63 61 74 69 6e 67 20 77 69 | ."Run.BODY.after.undedicating.wi |
| 35c0 | 6e 64 6f 77 2e 22 0a 20 20 28 64 65 63 6c 61 72 65 20 28 64 65 62 75 67 20 28 26 72 65 73 74 20 | ndow."...(declare.(debug.(&rest. |
| 35e0 | 66 6f 72 6d 29 29 29 0a 20 20 60 28 70 72 6f 67 6e 0a 20 20 20 20 20 28 6c 65 74 20 28 28 77 69 | form)))...`(progn......(let.((wi |
| 3600 | 6e 64 6f 77 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 28 63 75 72 72 65 6e 74 | ndow.(get-buffer-window.(current |
| 3620 | 2d 62 75 66 66 65 72 29 29 29 29 0a 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 64 | -buffer))))........(set-window-d |
| 3640 | 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 64 6f 77 20 6e 69 6c 29 0a 20 20 20 20 20 20 20 2c 40 | edicated-p.window.nil)........,@ |
| 3660 | 62 6f 64 79 0a 20 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 | body........(set-window-dedicate |
| 3680 | 64 2d 70 20 77 69 6e 64 6f 77 20 74 29 29 29 29 0a 0a 28 64 65 66 76 61 72 20 64 69 72 65 64 2d | d-p.window.t))))..(defvar.dired- |
| 36a0 | 73 69 64 65 62 61 72 2d 6d 6f 64 65 2d 6d 61 70 0a 20 20 28 6c 65 74 20 28 28 6d 61 70 20 28 6d | sidebar-mode-map...(let.((map.(m |
| 36c0 | 61 6b 65 2d 73 70 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 29 0a 20 20 20 20 28 64 65 66 69 6e 65 | ake-sparse-keymap))).....(define |
| 36e0 | 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 54 41 42 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 | -key.map.(kbd."TAB").'dired-side |
| 3700 | 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 6e 65 2d | bar-subtree-toggle).....(define- |
| 3720 | 6b 65 79 20 6d 61 70 20 5b 74 61 62 5d 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 75 62 | key.map.[tab].'dired-sidebar-sub |
| 3740 | 74 72 65 65 2d 74 6f 67 67 6c 65 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 | tree-toggle).....(define-key.map |
| 3760 | 20 28 6b 62 64 20 22 43 2d 6d 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 | .(kbd."C-m").'dired-sidebar-find |
| 3780 | 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 6b 62 64 20 | -file).....(define-key.map.(kbd. |
| 37a0 | 22 52 45 54 22 29 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 | "RET").'dired-sidebar-find-file) |
| 37c0 | 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b 62 64 20 22 3c 72 65 74 75 | .....(define-key.map.(kbd."<retu |
| 37e0 | 72 6e 3e 22 29 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 0a | rn>").'dired-sidebar-find-file). |
| 3800 | 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 22 5e 22 20 27 64 69 72 65 64 2d 73 | ....(define-key.map."^".'dired-s |
| 3820 | 69 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 | idebar-up-directory).....(define |
| 3840 | 2d 6b 65 79 20 6d 61 70 20 22 2d 22 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 70 2d 64 | -key.map."-".'dired-sidebar-up-d |
| 3860 | 69 72 65 63 74 6f 72 79 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 28 6b | irectory).....(define-key.map.(k |
| 3880 | 62 64 20 22 43 2d 6f 22 29 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 | bd."C-o").'dired-sidebar-find-fi |
| 38a0 | 6c 65 2d 61 6c 74 29 0a 20 20 20 20 28 64 65 66 69 6e 65 2d 6b 65 79 20 6d 61 70 20 5b 6d 6f 75 | le-alt).....(define-key.map.[mou |
| 38c0 | 73 65 2d 32 5d 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 75 73 65 2d 73 75 62 74 72 | se-2].'dired-sidebar-mouse-subtr |
| 38e0 | 65 65 2d 63 79 63 6c 65 2d 6f 72 2d 66 69 6e 64 2d 66 69 6c 65 29 0a 20 20 20 20 6d 61 70 29 0a | ee-cycle-or-find-file).....map). |
| 3900 | 20 20 22 4b 65 79 6d 61 70 20 75 73 65 64 20 66 6f 72 20 73 79 6d 62 6f 6c 20 60 64 69 72 65 64 | .."Keymap.used.for.symbol.`dired |
| 3920 | 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 27 2e 22 29 0a 0a 28 64 65 66 69 6e 65 2d 64 65 72 69 76 | -sidebar-mode'.")..(define-deriv |
| 3940 | 65 64 2d 6d 6f 64 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 20 64 69 72 65 64 | ed-mode.dired-sidebar-mode.dired |
| 3960 | 2d 6d 6f 64 65 0a 20 20 22 44 69 72 65 64 2d 73 69 64 65 62 61 72 22 0a 20 20 22 41 20 6d 61 6a | -mode..."Dired-sidebar"..."A.maj |
| 3980 | 6f 72 20 6d 6f 64 65 20 74 68 61 74 20 70 75 74 73 20 60 64 69 72 65 64 27 20 69 6e 20 61 20 73 | or.mode.that.puts.`dired'.in.a.s |
| 39a0 | 69 64 65 62 61 72 2e 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 | idebar."...:group.'dired-sidebar |
| 39c0 | 0a 0a 20 20 3b 3b 20 48 61 63 6b 20 66 6f 72 20 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 | ....;;.Hack.for.https://github.c |
| 39e0 | 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 2f 69 73 73 75 65 | om/jojojames/dired-sidebar/issue |
| 3a00 | 73 2f 31 38 2e 0a 20 20 3b 3b 20 57 6f 75 6c 64 20 62 65 20 6f 70 65 6e 20 74 6f 20 61 20 62 65 | s/18....;;.Would.be.open.to.a.be |
| 3a20 | 74 74 65 72 20 66 69 78 2e 2e 2e 0a 20 20 3b 3b 20 60 64 69 72 65 64 2d 72 65 6d 65 6d 62 65 72 | tter.fix......;;.`dired-remember |
| 3a40 | 2d 68 69 64 64 65 6e 27 20 69 6e 20 45 6d 61 63 73 20 32 35 20 28 74 65 72 6d 69 6e 61 6c 3f 29 | -hidden'.in.Emacs.25.(terminal?) |
| 3a60 | 20 73 65 65 6d 73 20 74 6f 20 74 68 72 6f 77 0a 20 20 3b 3b 20 61 6e 20 65 72 72 6f 72 20 75 70 | .seems.to.throw...;;.an.error.up |
| 3a80 | 6f 6e 20 63 61 6c 6c 69 6e 67 20 60 67 6f 74 6f 2d 63 68 61 72 27 2e 0a 20 20 28 77 68 65 6e 20 | on.calling.`goto-char'....(when. |
| 3aa0 | 28 3c 3d 20 65 6d 61 63 73 2d 6d 61 6a 6f 72 2d 76 65 72 73 69 6f 6e 20 32 35 29 0a 20 20 20 20 | (<=.emacs-major-version.25)..... |
| 3ac0 | 28 64 65 66 75 6e 20 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 | (defun.dired-sidebar-remember-hi |
| 3ae0 | 64 64 65 6e 2d 68 61 63 6b 20 28 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 20 20 20 20 22 | dden-hack.(f.&rest.args)......." |
| 3b00 | 52 65 74 75 72 6e 20 6e 69 6c 20 66 6f 72 20 60 64 69 72 65 64 2d 72 65 6d 65 6d 62 65 72 2d 68 | Return.nil.for.`dired-remember-h |
| 3b20 | 69 64 64 65 6e 27 2e 0a 0a 57 6f 72 6b 73 20 61 72 6f 75 6e 64 20 6d 61 72 6b 65 72 20 70 6f 69 | idden'...Works.around.marker.poi |
| 3b40 | 6e 74 69 6e 67 20 74 6f 20 77 72 6f 6e 67 20 62 75 66 66 65 72 20 69 6e 20 45 6d 61 63 73 20 32 | nting.to.wrong.buffer.in.Emacs.2 |
| 3b60 | 35 2e 22 0a 20 20 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 | 5.".......(if.(eq.major-mode.'di |
| 3b80 | 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 6e 69 6c 0a | red-sidebar-mode)...........nil. |
| 3ba0 | 20 20 20 20 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 29 29 0a 20 20 20 20 28 61 64 | ........(apply.f.args))).....(ad |
| 3bc0 | 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 64 69 72 65 64 2d 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 | vice-remove.'dired-remember-hidd |
| 3be0 | 65 6e 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 | en.'dired-sidebar-remember-hidde |
| 3c00 | 6e 2d 68 61 63 6b 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 64 69 72 65 64 2d 72 | n-hack).....(advice-add.'dired-r |
| 3c20 | 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 20 3a 61 72 6f 75 6e 64 20 27 64 69 72 65 64 2d 73 69 | emember-hidden.:around.'dired-si |
| 3c40 | 64 65 62 61 72 2d 72 65 6d 65 6d 62 65 72 2d 68 69 64 64 65 6e 2d 68 61 63 6b 29 29 0a 0a 20 20 | debar-remember-hidden-hack)).... |
| 3c60 | 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 |
| 3c80 | 75 67 72 65 70 6f 72 74 2e 63 67 69 3f 62 75 67 3d 33 32 33 39 32 0a 20 20 28 77 68 65 6e 20 64 | ugreport.cgi?bug=32392...(when.d |
| 3ca0 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 65 2d 77 64 69 72 65 64 2d 69 6e 74 65 67 72 61 74 | ired-sidebar-use-wdired-integrat |
| 3cc0 | 69 6f 6e 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 | ion.....(advice-remove.'wdired-c |
| 3ce0 | 68 61 6e 67 65 2d 74 6f 2d 64 69 72 65 64 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 | hange-to-dired-mode............. |
| 3d00 | 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 61 | .......'dired-sidebar-wdired-cha |
| 3d20 | 6e 67 65 2d 74 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 | nge-to-dired-mode-advice).....(a |
| 3d40 | 64 76 69 63 65 2d 72 65 6d 6f 76 65 20 27 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 | dvice-remove.'wdired-change-to-w |
| 3d60 | 64 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 20 20 20 27 64 | dired-mode....................'d |
| 3d80 | 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 77 64 | ired-sidebar-wdired-change-to-wd |
| 3da0 | 69 72 65 64 2d 6d 6f 64 65 2d 61 64 76 69 63 65 29 0a 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 | ired-mode-advice)......(advice-a |
| 3dc0 | 64 64 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 | dd.'wdired-change-to-dired-mode. |
| 3de0 | 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 64 2d 73 | ................:around.'dired-s |
| 3e00 | 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 72 65 64 2d 6d 6f | idebar-wdired-change-to-dired-mo |
| 3e20 | 64 65 2d 61 64 76 69 63 65 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 77 64 69 72 | de-advice).....(advice-add.'wdir |
| 3e40 | 65 64 2d 63 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 | ed-change-to-wdired-mode........ |
| 3e60 | 20 20 20 20 20 20 20 20 20 3a 61 72 6f 75 6e 64 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | .........:around.'dired-sidebar- |
| 3e80 | 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 64 65 2d 61 64 76 | wdired-change-to-wdired-mode-adv |
| 3ea0 | 69 63 65 29 29 0a 0a 20 20 28 73 65 74 71 20 77 69 6e 64 6f 77 2d 73 69 7a 65 2d 66 69 78 65 64 | ice))....(setq.window-size-fixed |
| 3ec0 | 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 29 0a 0a 20 20 | .dired-sidebar-window-fixed).... |
| 3ee0 | 3b 3b 20 4d 61 74 63 68 20 62 61 63 6b 67 72 6f 75 6e 64 73 2e 0a 20 20 28 73 65 74 71 2d 6c 6f | ;;.Match.backgrounds....(setq-lo |
| 3f00 | 63 61 6c 20 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 75 73 65 2d 62 61 63 6b 67 72 6f 75 6e 64 | cal.dired-subtree-use-background |
| 3f20 | 73 20 6e 69 6c 29 0a 0a 20 20 3b 3b 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 27 27 73 20 6c | s.nil)....;;.`dired-subtree''s.l |
| 3f40 | 69 6e 65 20 70 72 65 66 69 78 20 69 73 20 64 65 74 65 72 6d 69 6e 65 64 20 62 79 20 60 64 69 72 | ine.prefix.is.determined.by.`dir |
| 3f60 | 65 64 2d 73 69 64 65 62 61 72 27 2e 0a 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 | ed-sidebar'....(setq-local.dired |
| 3f80 | 2d 73 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 | -subtree-line-prefix.dired-sideb |
| 3fa0 | 61 72 2d 73 75 62 74 72 65 65 2d 6c 69 6e 65 2d 70 72 65 66 69 78 29 0a 0a 20 20 3b 3b 20 68 74 | ar-subtree-line-prefix)....;;.ht |
| 3fc0 | 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 64 | tps://github.com/jojojames/dired |
| 3fe0 | 2d 73 69 64 65 62 61 72 2f 69 73 73 75 65 73 2f 37 0a 20 20 3b 3b 20 53 79 6d 6c 69 6e 6b 73 20 | -sidebar/issues/7...;;.Symlinks. |
| 4000 | 61 72 65 20 64 69 73 70 6c 61 79 65 64 20 69 6e 63 6f 72 72 65 63 74 6c 79 20 77 68 65 6e 20 74 | are.displayed.incorrectly.when.t |
| 4020 | 68 65 73 65 20 74 68 72 65 65 20 74 68 69 6e 67 73 20 68 61 70 70 65 6e 2e 0a 20 20 3b 3b 20 31 | hese.three.things.happen....;;.1 |
| 4040 | 2e 20 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 6f | ..`dired-hide-details-mode'.is.o |
| 4060 | 6e 2e 0a 20 20 3b 3b 20 32 2e 20 60 64 69 72 65 64 2d 73 75 62 74 72 65 65 27 20 74 6f 67 67 6c | n....;;.2..`dired-subtree'.toggl |
| 4080 | 65 73 20 61 20 73 79 6d 6c 69 6e 6b 20 66 6f 6c 64 65 72 20 76 69 61 20 60 64 69 72 65 64 2d 73 | es.a.symlink.folder.via.`dired-s |
| 40a0 | 75 62 74 72 65 65 2d 74 6f 67 67 6c 65 27 2e 0a 20 20 3b 3b 20 33 2e 20 60 64 69 72 65 64 2d 68 | ubtree-toggle'....;;.3..`dired-h |
| 40c0 | 69 64 65 2d 64 65 74 61 69 6c 73 2d 68 69 64 65 2d 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 74 73 | ide-details-hide-symlink-targets |
| 40e0 | 27 20 69 73 20 73 65 74 20 74 6f 20 74 72 75 65 2e 0a 20 20 3b 3b 20 53 69 6e 63 65 20 77 65 20 | '.is.set.to.true....;;.Since.we. |
| 4100 | 75 73 65 20 62 6f 74 68 20 31 20 26 20 32 2c 20 64 69 73 61 62 6c 65 20 33 20 74 6f 20 61 76 6f | use.both.1.&.2,.disable.3.to.avo |
| 4120 | 69 64 20 74 68 65 20 69 73 73 75 65 2e 0a 20 20 3b 3b 20 54 68 69 73 20 6e 65 65 64 73 20 74 6f | id.the.issue....;;.This.needs.to |
| 4140 | 20 62 65 20 73 65 74 20 74 6f 20 6e 69 6c 20 62 65 66 6f 72 65 20 60 64 69 72 65 64 2d 68 69 64 | .be.set.to.nil.before.`dired-hid |
| 4160 | 65 2d 64 65 74 61 69 6c 73 2d 6d 6f 64 65 27 20 69 73 20 63 61 6c 6c 65 64 2e 0a 20 20 28 73 65 | e-details-mode'.is.called....(se |
| 4180 | 74 71 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 68 69 64 65 | tq-local.dired-hide-details-hide |
| 41a0 | 2d 73 79 6d 6c 69 6e 6b 2d 74 61 72 67 65 74 73 20 6e 69 6c 29 0a 0a 20 20 3b 3b 20 55 73 65 20 | -symlink-targets.nil)....;;.Use. |
| 41c0 | 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 27 20 69 6e 73 74 65 61 64 20 74 | `dired-sidebar-revert'.instead.t |
| 41e0 | 68 61 74 20 77 72 61 70 73 20 60 64 69 72 65 64 2d 72 65 76 65 72 74 27 2e 0a 20 20 28 73 65 74 | hat.wraps.`dired-revert'....(set |
| 4200 | 71 2d 6c 6f 63 61 6c 20 72 65 76 65 72 74 2d 62 75 66 66 65 72 2d 66 75 6e 63 74 69 6f 6e 20 27 | q-local.revert-buffer-function.' |
| 4220 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 76 65 72 74 29 0a 0a 20 20 3b 3b 20 57 65 20 64 | dired-sidebar-revert)....;;.We.d |
| 4240 | 6f 6e 27 74 20 77 61 6e 74 20 65 78 74 72 61 20 64 65 74 61 69 6c 73 20 69 6e 20 74 68 65 20 73 | on't.want.extra.details.in.the.s |
| 4260 | 69 64 65 62 61 72 2e 0a 20 20 28 64 69 72 65 64 2d 68 69 64 65 2d 64 65 74 61 69 6c 73 2d 6d 6f | idebar....(dired-hide-details-mo |
| 4280 | 64 65 29 0a 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | de)....(when.(and.dired-sidebar- |
| 42a0 | 64 69 73 61 62 6c 65 2d 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 0a 20 20 20 20 20 20 20 20 20 | disable-dired-collapse.......... |
| 42c0 | 20 20 20 20 28 66 62 6f 75 6e 64 70 20 27 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 2d 6d 6f 64 | ....(fboundp.'dired-collapse-mod |
| 42e0 | 65 29 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f | e)).....(add-hook.'dired-mode-ho |
| 4300 | 6f 6b 0a 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 | ok...............(lambda.()..... |
| 4320 | 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 | ............(when.(bound-and-tru |
| 4340 | 65 2d 70 20 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 | e-p.dired-collapse-mode)........ |
| 4360 | 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 2d 6d 6f 64 65 20 | ...........(dired-collapse-mode. |
| 4380 | 2d 31 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 70 70 65 6e 64 20 3a 6c 6f 63 | -1)))...............:append.:loc |
| 43a0 | 61 6c 29 29 0a 0a 20 20 28 77 68 65 6e 20 28 61 6e 64 0a 20 20 20 20 20 20 20 20 20 28 6e 6f 74 | al))....(when.(and..........(not |
| 43c0 | 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 73 70 6c 61 79 2d 61 75 74 6f 72 65 76 65 72 | .dired-sidebar-display-autorever |
| 43e0 | 74 2d 6d 65 73 73 61 67 65 73 29 0a 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 70 20 27 61 75 | t-messages)..........(boundp.'au |
| 4400 | 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f 73 65 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f | to-revert-verbose)).....(setq-lo |
| 4420 | 63 61 6c 20 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 0a 20 | cal.auto-revert-verbose.nil))... |
| 4440 | 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 65 6c 61 79 2d 61 75 74 6f 2d | .(when.dired-sidebar-delay-auto- |
| 4460 | 72 65 76 65 72 74 2d 75 70 64 61 74 65 73 0a 20 20 20 20 28 73 65 74 71 2d 6c 6f 63 61 6c 20 62 | revert-updates.....(setq-local.b |
| 4480 | 75 66 66 65 72 2d 73 74 61 6c 65 2d 66 75 6e 63 74 69 6f 6e 20 23 27 64 69 72 65 64 2d 73 69 64 | uffer-stale-function.#'dired-sid |
| 44a0 | 65 62 61 72 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 29 0a 20 20 20 20 28 6c 65 74 20 28 28 | ebar-buffer-stale-p).....(let.(( |
| 44c0 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 29 | current-buffer.(current-buffer)) |
| 44e0 | 29 0a 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 73 74 61 6c | ).......(setq.dired-sidebar-stal |
| 4500 | 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 72 75 6e 2d | e-buffer-timer.............(run- |
| 4520 | 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 20 20 64 69 72 | with-idle-timer..............dir |
| 4540 | 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 |
| 4560 | 65 2d 64 65 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 74 20 28 6c 61 6d 62 64 61 20 28 | e-delay..............t.(lambda.( |
| 4580 | 29 0a 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 64 6f 20 61 20 | )..................;;.Only.do.a. |
| 45a0 | 63 68 65 63 6b 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 20 | check.if.`dired-sidebar'.buffer. |
| 45c0 | 69 73 20 69 6e 20 74 68 65 20 66 6f 72 65 67 72 6f 75 6e 64 2e 0a 20 20 20 20 20 20 20 20 20 20 | is.in.the.foreground............ |
| 45e0 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 67 65 74 2d 62 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 | .......(when.(get-buffer-window. |
| 4600 | 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | current-buffer)................. |
| 4620 | 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 63 75 72 72 65 6e 74 2d | ...(with-current-buffer.current- |
| 4640 | 62 75 66 66 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 | buffer......................(set |
| 4660 | 71 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 61 6c 65 2d | q.dired-sidebar-check-for-stale- |
| 4680 | 62 75 66 66 65 72 2d 70 20 74 29 29 29 29 29 29 0a 0a 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f | buffer-p.t))))))........(add-hoo |
| 46a0 | 6b 20 27 6b 69 6c 6c 2d 62 75 66 66 65 72 2d 68 6f 6f 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 | k.'kill-buffer-hook............. |
| 46c0 | 20 20 20 20 28 6c 61 6d 62 64 61 20 28 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ....(lambda.().................. |
| 46e0 | 20 28 77 68 65 6e 20 28 74 69 6d 65 72 70 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 74 61 | .(when.(timerp.dired-sidebar-sta |
| 4700 | 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-buffer-timer)................ |
| 4720 | 20 20 20 20 20 28 63 61 6e 63 65 6c 2d 74 69 6d 65 72 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 | .....(cancel-timer.dired-sidebar |
| 4740 | 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 74 69 6d 65 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 | -stale-buffer-timer))).......... |
| 4760 | 20 20 20 20 20 20 20 6e 69 6c 20 74 29 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 | .......nil.t)))....(when.dired-s |
| 4780 | 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 6d 61 6e | idebar-refresh-on-special-comman |
| 47a0 | 64 73 0a 20 20 20 20 28 6d 61 70 63 0a 20 20 20 20 20 28 6c 61 6d 62 64 61 20 28 78 29 0a 20 20 | ds.....(mapc......(lambda.(x)... |
| 47c0 | 20 20 20 20 20 28 69 66 20 28 63 6f 6e 73 70 20 78 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 6c | .....(if.(consp.x)............(l |
| 47e0 | 65 74 20 28 28 63 6f 6d 6d 61 6e 64 20 28 63 61 72 20 78 29 29 0a 20 20 20 20 20 20 20 20 20 20 | et.((command.(car.x))........... |
| 4800 | 20 20 20 20 20 20 20 28 64 65 6c 61 79 20 28 63 64 72 20 78 29 29 29 0a 20 20 20 20 20 20 20 20 | .......(delay.(cdr.x)))......... |
| 4820 | 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 | .....(advice-add...............c |
| 4840 | 6f 6d 6d 61 6e 64 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 66 74 65 72 0a 20 20 20 20 | ommand...............:after..... |
| 4860 | 20 20 20 20 20 20 20 20 20 20 28 64 65 66 61 6c 69 61 73 20 28 69 6e 74 65 72 6e 20 28 66 6f 72 | ..........(defalias.(intern.(for |
| 4880 | 6d 61 74 20 22 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 61 66 74 65 72 | mat."dired-sidebar-refresh-after |
| 48a0 | 2d 25 53 22 20 63 6f 6d 6d 61 6e 64 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | -%S".command)).................( |
| 48c0 | 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 6c 61 6d 62 64 | function..................(lambd |
| 48e0 | 61 20 28 26 72 65 73 74 20 5f 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | a.(&rest._)....................( |
| 4900 | 6c 65 74 20 28 28 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | let.((timer-symbol.............. |
| 4920 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 74 65 72 6e 0a 20 20 20 20 20 20 20 20 20 20 20 | .............(intern............ |
| 4940 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 6d 61 74 0a 20 20 20 20 20 20 20 20 | ................(format......... |
| 4960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 64 69 72 65 64 2d 73 69 64 65 62 | ...................."dired-sideb |
| 4980 | 61 72 2d 72 65 66 72 65 73 68 2d 25 53 2d 74 69 6d 65 72 22 20 63 6f 6d 6d 61 6e 64 29 29 29 29 | ar-refresh-%S-timer".command)))) |
| 49a0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 61 6e 64 | ......................(when.(and |
| 49c0 | 20 28 62 6f 75 6e 64 70 20 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 | .(boundp.timer-symbol).......... |
| 49e0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 74 69 6d 65 72 70 20 28 | .......................(timerp.( |
| 4a00 | 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 29 29 0a 20 20 20 | symbol-value.timer-symbol))).... |
| 4a20 | 20 20 20 20 20 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 | ....................(cancel-time |
| 4a40 | 72 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 74 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 29 29 0a | r.(symbol-value.timer-symbol))). |
| 4a60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 65 74 66 0a 20 20 20 20 20 | .....................(setf...... |
| 4a80 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 79 6d 62 6f 6c 2d 76 61 6c 75 65 20 74 | .................(symbol-value.t |
| 4aa0 | 69 6d 65 72 2d 73 79 6d 62 6f 6c 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | imer-symbol).................... |
| 4ac0 | 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 20 20 | ...(run-with-idle-timer......... |
| 4ae0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 20 | ...............delay............ |
| 4b00 | 20 20 20 20 20 20 20 20 20 20 20 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ............nil................. |
| 4b20 | 20 20 20 20 20 20 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 65 73 68 2d 62 | .......#'dired-sidebar-refresh-b |
| 4b40 | 75 66 66 65 72 29 29 29 29 29 29 29 29 0a 20 20 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 | uffer))))))))..........(advice-a |
| 4b60 | 64 64 20 78 20 3a 61 66 74 65 72 20 23 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 72 65 66 72 | dd.x.:after.#'dired-sidebar-refr |
| 4b80 | 65 73 68 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 | esh-buffer)))......dired-sidebar |
| 4ba0 | 2d 73 70 65 63 69 61 6c 2d 72 65 66 72 65 73 68 2d 63 6f 6d 6d 61 6e 64 73 29 29 0a 0a 20 20 28 | -special-refresh-commands))....( |
| 4bc0 | 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 6f 67 67 6c 65 2d 68 69 64 64 65 6e | when.dired-sidebar-toggle-hidden |
| 4be0 | 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 62 64 61 | -commands.....(mapc......(lambda |
| 4c00 | 20 28 78 29 0a 20 20 20 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 78 20 3a 61 72 6f 75 6e | .(x)........(advice-add.x.:aroun |
| 4c20 | 64 20 23 27 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 | d.#'dired-sidebar-advice-hide-te |
| 4c40 | 6d 70 6f 72 61 72 69 6c 79 29 29 0a 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 | mporarily))......dired-sidebar-t |
| 4c60 | 6f 67 67 6c 65 2d 68 69 64 64 65 6e 2d 63 6f 6d 6d 61 6e 64 73 29 29 0a 0a 20 20 28 77 68 65 6e | oggle-hidden-commands))....(when |
| 4c80 | 20 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 66 6f 6e 74 0a 20 | .dired-sidebar-use-custom-font.. |
| 4ca0 | 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 66 6f 6e 74 29 29 0a 0a 20 20 | ...(dired-sidebar-set-font)).... |
| 4cc0 | 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 74 6f 6d 2d 6d | (when.dired-sidebar-use-custom-m |
| 4ce0 | 6f 64 65 6c 69 6e 65 0a 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 6d | odeline.....(dired-sidebar-set-m |
| 4d00 | 6f 64 65 2d 6c 69 6e 65 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 | ode-line))....(when.dired-sideba |
| 4d20 | 72 2d 72 65 66 72 65 73 68 2d 6f 6e 2d 70 72 6f 6a 65 63 74 2d 73 77 69 74 63 68 0a 20 20 20 20 | r-refresh-on-project-switch..... |
| 4d40 | 28 61 64 76 69 63 65 2d 61 64 64 20 27 70 72 6f 6a 65 63 74 2d 66 69 6e 64 2d 66 69 6c 65 0a 20 | (advice-add.'project-find-file.. |
| 4d60 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 66 74 65 72 20 23 27 64 69 72 65 64 2d 73 69 | ...............:after.#'dired-si |
| 4d80 | 64 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 29 0a 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b | debar-follow-file).....(add-hook |
| 4da0 | 20 27 70 72 6f 6a 65 63 74 69 6c 65 2d 61 66 74 65 72 2d 73 77 69 74 63 68 2d 70 72 6f 6a 65 63 | .'projectile-after-switch-projec |
| 4dc0 | 74 2d 68 6f 6f 6b 0a 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 | t-hook...............#'dired-sid |
| 4de0 | 65 62 61 72 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 29 29 0a 0a 20 20 28 77 68 65 6e 20 64 69 72 65 | ebar-follow-file))....(when.dire |
| 4e00 | 64 2d 73 69 64 65 62 61 72 2d 73 68 6f 75 6c 64 2d 66 6f 6c 6c 6f 77 2d 66 69 6c 65 0a 20 20 20 | d-sidebar-should-follow-file.... |
| 4e20 | 20 28 73 65 74 71 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 | .(setq.dired-sidebar-follow-file |
| 4e40 | 2d 74 69 6d 65 72 0a 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 | -timer...........(run-with-idle- |
| 4e60 | 74 69 6d 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | timer............dired-sidebar-f |
| 4e80 | 6f 6c 6c 6f 77 2d 66 69 6c 65 2d 69 64 6c 65 2d 64 65 6c 61 79 0a 20 20 20 20 20 20 20 20 20 20 | ollow-file-idle-delay........... |
| 4ea0 | 20 74 20 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 29 | .t.#'dired-sidebar-follow-file)) |
| 4ec0 | 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 6f 6d 69 | )....(when.dired-sidebar-use-omi |
| 4ee0 | 74 2d 6d 6f 64 65 2d 69 6e 74 65 67 72 61 74 69 6f 6e 0a 20 20 20 20 28 75 6e 6c 65 73 73 20 28 | t-mode-integration.....(unless.( |
| 4f00 | 6d 65 6d 71 20 27 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 0a 20 20 20 20 20 20 20 20 20 20 | memq.'dired-omit-mode........... |
| 4f20 | 20 20 20 20 20 20 20 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 | ........dired-sidebar-special-re |
| 4f40 | 66 72 65 73 68 2d 63 6f 6d 6d 61 6e 64 73 29 0a 20 20 20 20 20 20 28 70 75 73 68 20 27 64 69 72 | fresh-commands).......(push.'dir |
| 4f60 | 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 70 65 63 69 | ed-omit-mode.dired-sidebar-speci |
| 4f80 | 61 6c 2d 72 65 66 72 65 73 68 2d 63 6f 6d 6d 61 6e 64 73 29 29 0a 20 20 20 20 28 61 64 76 69 63 | al-refresh-commands)).....(advic |
| 4fa0 | 65 2d 61 64 64 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 0a 20 20 20 20 20 | e-add.'dired-subtree-cycle...... |
| 4fc0 | 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 6f 75 6e 64 20 27 64 69 72 65 64 2d 73 69 64 65 62 61 | ...........:around.'dired-sideba |
| 4fe0 | 72 2d 6f 6d 69 74 2d 61 66 74 65 72 2d 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 | r-omit-after-dired-subtree-cycle |
| 5000 | 29 0a 20 20 20 20 28 61 64 76 69 63 65 2d 61 64 64 20 27 64 69 72 65 64 2d 73 75 62 74 72 65 65 | ).....(advice-add.'dired-subtree |
| 5020 | 2d 74 6f 67 67 6c 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 | -toggle.................:around. |
| 5040 | 27 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6f 6d 69 74 2d 61 66 74 65 72 2d 64 69 72 65 64 2d | 'dired-sidebar-omit-after-dired- |
| 5060 | 73 75 62 74 72 65 65 2d 63 79 63 6c 65 29 29 0a 0a 20 20 3b 3b 20 54 68 69 73 20 63 6f 6d 6d 65 | subtree-cycle))....;;.This.comme |
| 5080 | 6e 74 20 69 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 | nt.is.taken.from.`dired-readin'. |
| 50a0 | 0a 20 20 3b 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 | ...;;.Begin.---.Copied.comment.f |
| 50c0 | 72 6f 6d 20 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 | rom.dired.el....;;.Must.first.ma |
| 50e0 | 6b 65 20 61 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 | ke.alist.buffer.local.and.set.it |
| 5100 | 20 74 6f 20 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 | .to.nil.because...;;.dired-build |
| 5120 | 2d 73 75 62 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 | -subdir-alist.will.call.dired-cl |
| 5140 | 65 61 72 2d 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 | ear-alist.first...;;.End.---.Cop |
| 5160 | 69 65 64 20 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 | ied.comment.from.dired.el....(se |
| 5180 | 74 71 2d 6c 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 | tq-local.dired-subdir-alist.nil) |
| 51a0 | 0a 20 20 28 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 | ...(dired-build-subdir-alist)... |
| 51c0 | 20 28 64 69 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 | .(dired-unadvertise.(dired-curre |
| 51e0 | 6e 74 2d 64 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 | nt-directory))...(dired-sidebar- |
| 5200 | 75 70 64 61 74 65 2d 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 0a 20 20 3b 3b 20 4d 6f 76 65 20 73 | update-buffer-name)....;;.Move.s |
| 5220 | 65 74 74 69 6e 67 20 74 68 65 6d 65 20 75 6e 74 69 6c 20 74 68 65 20 65 6e 64 20 61 66 74 65 72 | etting.theme.until.the.end.after |
| 5240 | 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 68 61 73 20 73 65 74 20 75 70 0a 20 20 3b 3b | .`dired-sidebar'.has.set.up...;; |
| 5260 | 20 69 74 73 20 64 69 72 65 63 74 6f 72 79 20 73 74 72 75 63 74 75 72 65 2e 0a 20 20 3b 3b 20 68 | .its.directory.structure....;;.h |
| 5280 | 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 |
| 52a0 | 64 2d 73 69 64 65 62 61 72 2f 69 73 73 75 65 73 2f 32 39 0a 20 20 28 77 68 65 6e 20 28 64 69 72 | d-sidebar/issues/29...(when.(dir |
| 52c0 | 65 64 2d 73 69 64 65 62 61 72 2d 63 61 6e 2d 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 29 0a 20 20 | ed-sidebar-can-display-icons)... |
| 52e0 | 20 20 28 63 6f 6e 64 0a 20 20 20 20 20 28 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 69 | ..(cond......((dired-sidebar-usi |
| 5300 | 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 73 | ng-tui-p).......(dired-sidebar-s |
| 5320 | 65 74 75 70 2d 74 75 69 29 29 0a 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 64 69 72 65 64 2d | etup-tui))......((and.(eq.dired- |
| 5340 | 73 69 64 65 62 61 72 2d 74 68 65 6d 65 20 27 69 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 | sidebar-theme.'icons)........... |
| 5360 | 20 28 64 69 73 70 6c 61 79 2d 67 72 61 70 68 69 63 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 | .(display-graphic-p)............ |
| 5380 | 28 6f 72 0a 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 | (or.............(fboundp.'all-th |
| 53a0 | 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 | e-icons-dired-mode)............. |
| 53c0 | 28 61 75 74 6f 6c 6f 61 64 70 20 28 73 79 6d 62 6f 6c 2d 66 75 6e 63 74 69 6f 6e 20 27 61 6c 6c | (autoloadp.(symbol-function.'all |
| 53e0 | 2d 74 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 29 29 29 0a 20 20 20 20 20 20 | -the-icons-dired-mode))))....... |
| 5400 | 28 77 69 74 68 2d 6e 6f 2d 77 61 72 6e 69 6e 67 73 0a 20 20 20 20 20 20 20 20 28 61 6c 6c 2d 74 | (with-no-warnings.........(all-t |
| 5420 | 68 65 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 29 29 0a 20 20 20 20 20 28 28 61 6e | he-icons-dired-mode)))......((an |
| 5440 | 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 6e 65 72 64 2d | d.(eq.dired-sidebar-theme.'nerd- |
| 5460 | 69 63 6f 6e 73 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 | icons)............(display-graph |
| 5480 | 69 63 2d 70 29 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 | ic-p)............(or............ |
| 54a0 | 20 28 66 62 6f 75 6e 64 70 20 27 6e 65 72 64 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 | .(fboundp.'nerd-icons-dired-mode |
| 54c0 | 29 0a 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 | ).............(autoloadp.(symbol |
| 54e0 | 2d 66 75 6e 63 74 69 6f 6e 20 27 6e 65 72 64 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 | -function.'nerd-icons-dired-mode |
| 5500 | 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 20 | )))).......(with-no-warnings.... |
| 5520 | 20 20 20 20 20 28 6e 65 72 64 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 6d 6f 64 65 29 29 29 0a 20 | .....(nerd-icons-dired-mode))).. |
| 5540 | 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 0a 3b 3b 20 | ....(:default.:no-theme))))..;;. |
| 5560 | 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 61 64 0a 28 | User.Interface..;;;###autoload.( |
| 5580 | 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 69 64 65 62 | defun.dired-sidebar-toggle-sideb |
| 55a0 | 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 20 74 68 65 | ar.(&optional.dir)..."Toggle.the |
| 55c0 | 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 74 69 6f 6e | .project.explorer.window..Option |
| 55e0 | 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 69 64 65 62 | al.argument.DIR.Use.DIR.as.sideb |
| 5600 | 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 75 6e 69 76 | ar.root.if.available...With.univ |
| 5620 | 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 64 69 72 65 | ersal.argument,.use.current.dire |
| 5640 | 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 66 20 28 64 | ctory."...(interactive)...(if.(d |
| 5660 | 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). |
| 5680 | 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 |
| 56a0 | 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 69 72 65 64 | r).....(let*.((old-buffer.(dired |
| 56c0 | 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 61 6d 65 29 | -sidebar-buffer.(selected-frame) |
| 56e0 | 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 28 64 69 72 | ))............(file-to-show.(dir |
| 5700 | 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 29 0a 20 20 | ed-sidebar-get-file-to-show))... |
| 5720 | 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 72 0a 20 20 | .........(dir-to-show.(or.dir... |
| 5740 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 20 | ..........................(when. |
| 5760 | 63 75 72 72 65 6e 74 2d 70 72 65 66 69 78 2d 61 72 67 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 | current-prefix-arg.............. |
| 5780 | 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 65 2d 6e 61 | .................(expand-file-na |
| 57a0 | 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 20 20 20 20 | me.default-directory)).......... |
| 57c0 | 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 64 65 62 61 | ...................(dired-sideba |
| 57e0 | 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 20 20 20 20 | r-get-dir-to-show)))............ |
| 5800 | 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 61 72 2d 67 | (sidebar-buffer.(dired-sidebar-g |
| 5820 | 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 68 6f 77 29 | et-or-create-buffer.dir-to-show) |
| 5840 | 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 2d 73 69 64 | )).......(dired-sidebar-show-sid |
| 5860 | 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 77 68 65 6e | ebar.sidebar-buffer).......(when |
| 5880 | 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 69 6e 73 74 | .(and.dired-sidebar-use-one-inst |
| 58a0 | 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 65 62 61 72 | ance.old-buffer.(not.(eq.sidebar |
| 58c0 | 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 20 20 28 6b | -buffer.old-buffer))).........(k |
| 58e0 | 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 20 20 28 69 | ill-buffer.old-buffer)).......(i |
| 5900 | 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 66 69 6c 65 | f.(and.dired-sidebar-follow-file |
| 5920 | 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 20 20 20 20 | -at-point-on-toggle-open........ |
| 5940 | 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 20 20 20 20 | ........file-to-show)........... |
| 5960 | 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 65 62 61 72 | (if.dired-sidebar-pop-to-sidebar |
| 5980 | 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 20 20 28 64 | -on-toggle-open...............(d |
| 59a0 | 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 69 6c 65 2d | ired-sidebar-point-at-file.file- |
| 59c0 | 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 20 20 20 20 | to-show.dir-to-show)............ |
| 59e0 | 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 63 74 65 64 | .(with-selected-window.(selected |
| 5a00 | 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 64 2d 73 69 | -window)...............(dired-si |
| 5a20 | 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 73 68 6f 77 | debar-point-at-file.file-to-show |
| 5a40 | 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 6e 20 64 69 | .dir-to-show))).........(when.di |
| 5a60 | 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 6e 2d 74 6f | red-sidebar-pop-to-sidebar-on-to |
| 5a80 | 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 62 75 66 66 | ggle-open...........(pop-to-buff |
| 5aa0 | 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 29 29 29 0a | er.(dired-sidebar-buffer))))))). |
| 5ac0 | 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 61 74 2d 66 | .(defun.dired-sidebar-point-at-f |
| 5ae0 | 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 69 6e 74 20 | ile.(name.root)..."Try.to.point. |
| 5b00 | 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 60 64 69 72 | at.NAME.from.sidebar...Keep.`dir |
| 5b20 | 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 63 6c 69 6e | ed'.pointed.at.ROOT.while.cyclin |
| 5b40 | 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 66 6f 75 6e | g.directories.until.NAME.is.foun |
| 5b60 | 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 65 6e 64 65 | d.in.ROOT.path...This.is.depende |
| 5b80 | 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 22 0a 20 20 | nt.on.`dired-subtree-cycle'."... |
| 5ba0 | 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 72 2d 62 75 | (let.((sidebar.(dired-sidebar-bu |
| 5bc0 | 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 69 64 65 62 | ffer))).....(pop-to-buffer.sideb |
| 5be0 | 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 20 20 20 20 | ar).....(when.(and.name......... |
| 5c00 | 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 76 61 74 65 | .......;;.Checking.for.a.private |
| 5c20 | 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 20 20 20 20 | .method..*shrug*................ |
| 5c40 | 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 65 78 70 61 | (fboundp.'dired-subtree--is-expa |
| 5c60 | 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 72 20 73 69 | nded-p)).......(pop-to-buffer.si |
| 5c80 | 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 20 20 20 20 | debar).......(goto-char.0)...... |
| 5ca0 | 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 20 20 20 20 | .(let*.((path.root)............. |
| 5cc0 | 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 72 2f 20 61 | .;;.Imagine.root.is./root/var/.a |
| 5ce0 | 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 72 6f 6f 74 | nd.name.is..............;;./root |
| 5d00 | 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 54 68 69 73 | /var/a/b/c...............;;.This |
| 5d20 | 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 22 20 22 62 | .will.return.a.list.of.'\("a"."b |
| 5d40 | 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 28 77 68 65 | "."c"\)...............(dirs.(whe |
| 5d60 | 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 6f 6f 74 29 | n.(cadr.(split-string.name.root) |
| 5d80 | 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 74 2d 73 74 | )......................(split-st |
| 5da0 | 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 65 20 72 6f | ring.(cadr.(split-string.name.ro |
| 5dc0 | 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 20 28 64 69 | ot))."/")))).........(dolist.(di |
| 5de0 | 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 67 20 60 24 | r.dirs)...........;;.Trailing.`$ |
| 5e00 | 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 68 69 6e 67 | '.is.essential.to.avoid.matching |
| 5e20 | 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 20 20 20 20 | .the.modification.date.......... |
| 5e40 | 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 20 60 6c 73 | .;;.fields.of.the.underlying.`ls |
| 5e60 | 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 61 74 68 2d | '.process...........(let.((path- |
| 5e80 | 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 5d 22 20 28 | regex.(concat."^.*[[:space:]]".( |
| 5ea0 | 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 20 20 20 20 | regexp-quote.dir)."$")))........ |
| 5ec0 | 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 20 64 69 72 | .....(setq.path.(concat.path.dir |
| 5ee0 | 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 75 6c 61 72 | )).............(if.(file-regular |
| 5f00 | 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 54 72 79 20 | -p.path).................;;.Try. |
| 5f20 | 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 67 6f 20 74 | to.use.`dired-goto-file'.to.go.t |
| 5f40 | 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 20 20 3b 3b | o.the.correct.................;; |
| 5f60 | 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 65 61 72 63 | .file..If.that.fails,.just.searc |
| 5f80 | 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 20 20 20 20 | h.for.the.text.................. |
| 5fa0 | 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 6c 65 2d 6e | (let.((default-directory.(file-n |
| 5fc0 | 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 20 20 20 20 | ame-directory.path)))........... |
| 5fe0 | 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 66 69 6c 65 | ........(unless.(dired-goto-file |
| 6000 | 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 63 6f 6e 64 | .path).....................(cond |
| 6020 | 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 20 20 20 20 | ition-case.nil.................. |
| 6040 | 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 68 69 73 20 | .......;;.It's.hard.to.get.this. |
| 6060 | 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 20 20 20 20 | right.so.just.using.a........... |
| 6080 | 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 69 6c 6c 20 | ..............;;.heuristic.will. |
| 60a0 | 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 20 20 20 20 | get.90%.of.the.way.there........ |
| 60c0 | 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 73 75 72 65 | ..................;;.Making.sure |
| 60e0 | 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 20 74 68 65 | .there's.a.space.in.front.of.the |
| 6100 | 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 20 20 3b 3b | .name.........................;; |
| 6120 | 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 20 74 68 65 | .skips.matches.that.contains.the |
| 6140 | 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 20 20 20 20 | .name.as.a...................... |
| 6160 | 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 62 61 62 6c | ...;;.substring.which.is.probabl |
| 6180 | 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 20 20 20 20 | y.good.enough................... |
| 61a0 | 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 |
| 61c0 | 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 20 20 3b 3b | -regex).......................;; |
| 61e0 | 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 6f 66 20 73 | .Sometimes.`dired'.gets.out.of.s |
| 6200 | 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 20 20 20 20 | ync.with.the.file............... |
| 6220 | 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 65 72 20 61 | .........;;.Refresh.the.buffer.a |
| 6240 | 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 20 20 20 20 | nd.try.the.search.again......... |
| 6260 | 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 20 72 65 70 | ...............;;.One.way.to.rep |
| 6280 | 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 20 20 20 20 | roduce.this:.................... |
| 62a0 | 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 65 72 20 42 | ...;;.1..Open.file.A.as.buffer.B |
| 62c0 | 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 2e 20 44 65 | ........................;;.2..De |
| 62e0 | 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 20 20 20 20 | lete.file.A.in.`dired'.......... |
| 6300 | 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 72 65 64 2d | ..............;;.3..Hide.`dired- |
| 6320 | 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 20 20 20 20 | sidebar'........................ |
| 6340 | 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 20 20 20 20 | ;;.4..Save.buffer.B............. |
| 6360 | 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 72 65 64 2d | ...........;;.5..Re-open.`dired- |
| 6380 | 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 20 20 20 20 | sidebar'........................ |
| 63a0 | 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 20 20 28 72 | (error........................(r |
| 63c0 | 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 20 20 20 20 | evert-buffer)................... |
| 63e0 | 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 72 65 67 | .....(re-search-forward.path-reg |
| 6400 | 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 20 20 20 20 | ex.nil.:no-error)))))........... |
| 6420 | 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 72 65 67 65 | ....(re-search-forward.path-rege |
| 6440 | 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 20 73 75 62 | x)...............;;.Check.if.sub |
| 6460 | 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 65 64 2e 0a | tree.has.already.been.expanded.. |
| 6480 | 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 77 65 27 72 | ..............;;.Basically,.we'r |
| 64a0 | 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 27 20 6d 6f | e.using.`dired-subtree-cycle'.mo |
| 64c0 | 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 65 64 2d 73 | re...............;;.like.dired-s |
| 64e0 | 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 20 28 77 68 | ubtree-expand................(wh |
| 6500 | 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 78 70 61 6e | en.(not.(dired-subtree--is-expan |
| 6520 | 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 68 69 73 20 | ded-p)).................;;.This. |
| 6540 | 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 20 77 68 65 | will.probably.throw.an.error.whe |
| 6560 | 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 20 20 20 20 | n.trying.to.expand.............. |
| 6580 | 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 62 65 65 6e | ...;;.directories.that.have.been |
| 65a0 | 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 65 27 2e 0a | .collapsed.by.`dired-collapse'.. |
| 65c0 | 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 65 65 2d 63 | ................(dired-subtree-c |
| 65e0 | 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 61 74 68 20 | ycle))...............(setq.path. |
| 6600 | 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 20 28 77 68 | (concat.path."/")))))).......(wh |
| 6620 | 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 72 73 6f 72 | en.dired-sidebar-recenter-cursor |
| 6640 | 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 65 6e 74 65 | -on-follow-file.........(recente |
| 6660 | 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 2d 72 65 64 | r.nil)).......(dired-sidebar-red |
| 6680 | 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 6c 6f 61 64 | isplay-icons))))..;;;###autoload |
| 66a0 | 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 77 69 74 | .(defun.dired-sidebar-toggle-wit |
| 66c0 | 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 6b 65 20 60 | h-current-directory.()..."Like.` |
| 66e0 | 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 27 20 62 75 | dired-sidebar-toggle-sidebar'.bu |
| 6700 | 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 28 69 6e 74 | t.use.current-directory."...(int |
| 6720 | 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 72 65 66 69 | eractive)...(let.((current-prefi |
| 6740 | 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 2d 69 6e 74 | x-arg.'(4))).;.C-u.....(call-int |
| 6760 | 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 6f 67 67 6c | eractively.#'dired-sidebar-toggl |
| 6780 | 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 0a 28 64 65 | e-sidebar)))..;;;###autoload.(de |
| 67a0 | 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 61 72 20 28 | fun.dired-sidebar-show-sidebar.( |
| 67c0 | 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 20 64 69 73 | &optional.b)..."Show.sidebar.dis |
| 67e0 | 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 63 74 69 76 | playing.buffer.B."...(interactiv |
| 6800 | 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 20 20 20 20 | e)...(let.((buffer.(or.b........ |
| 6820 | 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 74 68 69 73 | .............;;.Only.expect.this |
| 6840 | 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 61 63 74 69 | .to.be.hit.when.called.interacti |
| 6860 | 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 69 72 65 64 | vely......................(dired |
| 6880 | 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 0a 20 20 | -sidebar-get-or-create-buffer... |
| 68a0 | 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 64 65 62 61 | ...................(dired-sideba |
| 68c0 | 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 64 69 73 70 | r-get-dir-to-show))))).....(disp |
| 68e0 | 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 66 66 65 72 | lay-buffer-in-side-window.buffer |
| 6900 | 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 29 0a 20 20 | .dired-sidebar-display-alist)... |
| 6920 | 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 77 69 6e 64 | ..(let.((window.(get-buffer-wind |
| 6940 | 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 65 64 2d 73 | ow.buffer))).......(when.dired-s |
| 6960 | 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 77 73 0a 20 | idebar-no-delete-other-windows.. |
| 6980 | 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 20 77 69 6e | .......(set-window-parameter.win |
| 69a0 | 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 20 74 29 29 | dow.'no-delete-other-windows.t)) |
| 69c0 | 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 2d 70 20 77 | .......(set-window-dedicated-p.w |
| 69e0 | 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 69 64 65 62 | indow.t).......(when.dired-sideb |
| 6a00 | 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 69 74 68 2d | ar-resize-on-open.........(with- |
| 6a20 | 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 20 20 20 20 | selected-window.window.......... |
| 6a40 | 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 20 20 20 20 | .(let.((window-size-fixed))..... |
| 6a60 | 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 69 64 74 68 | ........(dired-sidebar-set-width |
| 6a80 | 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 20 20 28 77 | .dired-sidebar-width))))).....(w |
| 6aa0 | 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 20 20 20 20 | ith-current-buffer.buffer....... |
| 6ac0 | 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 64 65 62 61 | (if.(eq.major-mode.'dired-sideba |
| 6ae0 | 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 6c 64 2d 73 | r-mode)...........(dired-build-s |
| 6b00 | 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 73 69 64 65 | ubdir-alist).........(dired-side |
| 6b20 | 62 61 72 2d 6d 6f 64 65 29 29 29 29 29 0a 0a 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 | bar-mode)))))..;;;###autoload.(d |
| 6b40 | 65 66 75 6e 20 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 72 20 | efun.dired-sidebar-hide-sidebar. |
| 6b60 | 28 29 0a 20 20 22 48 69 64 65 20 74 68 65 20 73 69 64 65 62 61 72 20 69 6e 20 74 68 65 20 73 65 | ()..."Hide.the.sidebar.in.the.se |
| 6b80 | 6c 65 63 74 65 64 20 66 72 61 6d 65 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 | lected.frame."...(interactive).. |
| 6ba0 | 20 28 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 73 69 64 65 | .(when-let*.((buffer.(dired-side |
| 6bc0 | 62 61 72 2d 62 75 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 | bar-buffer))).....(delete-window |
| 6be0 | 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 29 29 29 29 0a 0a | .(get-buffer-window.buffer)))).. |
| 6c00 | 3b 3b 3b 23 23 23 61 75 74 6f 6c 6f 61 64 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 | ;;;###autoload.(defun.dired-side |
| 6c20 | 62 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 | bar-jump-to-sidebar.()..."Jump.t |
| 6c40 | 6f 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 | o.`dired-sidebar'.buffer.if.it.i |
| 6c60 | 73 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 | s.showing...If.it's.not.showing, |
| 6c80 | 20 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 | .act.as.`dired-sidebar-toggle-si |
| 6ca0 | 64 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 | debar'."...(interactive)...(if.( |
| 6cc0 | 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 2d 70 29 | dired-sidebar-showing-sidebar-p) |
| 6ce0 | 0a 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 | .......(select-window........(ge |
| 6d00 | 74 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 | t-buffer-window.(dired-sidebar-b |
| 6d20 | 75 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 | uffer.(selected-frame)))).....(c |
| 6d40 | 61 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 | all-interactively.#'dired-sideba |
| 6d60 | 72 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 | r-toggle-sidebar)))..(defun.dire |
| 6d80 | 64 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 | d-sidebar-find-file.(&optional.d |
| 6da0 | 69 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 | ir)..."Wrapper.over.`dired-find- |
| 6dc0 | 66 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 3a 20 46 69 | file'..Optional.argument.DIR:.Fi |
| 6de0 | 6e 64 20 66 69 6c 65 20 75 73 69 6e 67 20 44 49 52 20 69 66 20 61 76 61 69 6c 61 62 6c 65 2e 0a | nd.file.using.DIR.if.available.. |
| 6e00 | 0a 57 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 | .With.prefix.argument,.use.`dire |
| 6e20 | 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 2d 77 69 6e 64 6f | d-sidebar-alternate-select-windo |
| 6e40 | 77 2d 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 | w-function'.for.window.selection |
| 6e60 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 66 69 6e 64 | ."...(interactive)...(let.((find |
| 6e80 | 2d 66 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 | -file-run-dired.t).........(dire |
| 6ea0 | 64 2d 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 | d-file-name.(or.dir.(dired-get-f |
| 6ec0 | 69 6c 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 | ile-for-visit))).........(select |
| 6ee0 | 2d 77 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 | -with-alt-window-function.curren |
| 6f00 | 74 2d 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 | t-prefix-arg)).....(if.(and.(fil |
| 6f20 | 65 2d 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 | e-directory-p.dired-file-name).. |
| 6f40 | 20 20 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 | ............;;.For.".".open.a.fu |
| 6f60 | 6c 6c 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 | ll-blown.dired.buffer,.since.the |
| 6f80 | 20 64 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 | .directory.is..............;;.al |
| 6fa0 | 72 65 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 | ready.open.in.the.sidebar....... |
| 6fc0 | 20 20 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 | ........(not.(string=.(file-name |
| 6fe0 | 2d 6e 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 | -nondirectory.dired-file-name).. |
| 7000 | 20 20 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 | .........................."."))) |
| 7020 | 0a 20 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 | .........(dired-sidebar-with-no- |
| 7040 | 64 65 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 | dedication..........(let.((buf-n |
| 7060 | 61 6d 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 | ame.(dired-sidebar-buffer-name.. |
| 7080 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 66 | .........................dired-f |
| 70a0 | 69 6c 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 | ile-name)))............(if.(dire |
| 70c0 | 64 2d 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 | d-sidebar-buffer-exists-p.buf-na |
| 70e0 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 | me)................(switch-to-bu |
| 7100 | 66 66 65 72 20 62 75 66 2d 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | ffer.buf-name)..............(if. |
| 7120 | 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 69 6e 73 74 61 | (and.dired-sidebar-use-one-insta |
| 7140 | 6e 63 65 20 28 66 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 64 69 72 65 64 2d 66 69 6c 65 | nce.(file-directory-p.dired-file |
| 7160 | 2d 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 69 6e 64 2d 61 | -name))..................(find-a |
| 7180 | 6c 74 65 72 6e 61 74 65 2d 66 69 6c 65 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 0a 20 | lternate-file.dired-file-name).. |
| 71a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 6f 70 69 65 64 20 66 72 6f 6d 20 60 64 69 | ..............;;.Copied.from.`di |
| 71c0 | 72 65 64 2d 66 69 6e 64 2d 66 69 6c 65 27 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | red-find-file'.................( |
| 71e0 | 66 69 6e 64 2d 66 69 6c 65 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 29 29 0a 20 20 20 20 | find-file.dired-file-name))..... |
| 7200 | 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 6d 6f 64 65 29 29 29 29 | .........(dired-sidebar-mode)))) |
| 7220 | 0a 20 20 20 20 20 20 3b 3b 20 53 65 6c 65 63 74 20 74 68 65 20 73 69 64 65 62 61 72 20 77 69 6e | .......;;.Select.the.sidebar.win |
| 7240 | 64 6f 77 20 73 6f 20 74 68 61 74 20 60 6e 65 78 74 2d 77 69 6e 64 6f 77 27 20 69 73 20 63 6f 6e | dow.so.that.`next-window'.is.con |
| 7260 | 73 69 73 74 65 6e 74 0a 20 20 20 20 20 20 3b 3b 20 69 6e 20 70 69 63 6b 69 6e 67 20 74 68 65 20 | sistent.......;;.in.picking.the. |
| 7280 | 77 69 6e 64 6f 77 20 6e 65 78 74 20 74 6f 20 74 68 65 20 73 69 64 65 62 61 72 2e 0a 20 20 20 20 | window.next.to.the.sidebar...... |
| 72a0 | 20 20 3b 3b 20 54 68 69 73 20 69 73 20 75 73 65 66 75 6c 20 66 6f 72 20 77 68 65 6e 20 60 64 69 | ..;;.This.is.useful.for.when.`di |
| 72c0 | 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 64 | red-sidebar-find-file'.is.called |
| 72e0 | 0a 20 20 20 20 20 20 3b 3b 20 66 72 6f 6d 20 61 20 62 75 66 66 65 72 20 74 68 61 74 20 69 73 20 | .......;;.from.a.buffer.that.is. |
| 7300 | 6e 6f 74 20 61 6c 72 65 61 64 79 20 69 6e 20 74 68 65 20 73 69 64 65 62 61 72 20 62 75 66 66 65 | not.already.in.the.sidebar.buffe |
| 7320 | 72 2e 0a 20 20 20 20 20 20 3b 3b 20 65 2e 67 2e 20 41 20 6d 6f 75 73 65 20 63 6c 69 63 6b 20 65 | r........;;.e.g..A.mouse.click.e |
| 7340 | 76 65 6e 74 2e 0a 20 20 20 20 20 20 28 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 28 64 | vent........(switch-to-buffer.(d |
| 7360 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 28 6c 65 74 | ired-sidebar-buffer)).......(let |
| 7380 | 20 28 28 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 73 65 6c 65 63 | .((window..............(if.selec |
| 73a0 | 74 2d 77 69 74 68 2d 61 6c 74 2d 77 69 6e 64 6f 77 2d 66 75 6e 63 74 69 6f 6e 0a 20 20 20 20 20 | t-with-alt-window-function...... |
| 73c0 | 20 20 20 20 20 20 20 20 20 20 20 20 28 66 75 6e 63 61 6c 6c 20 64 69 72 65 64 2d 73 69 64 65 62 | ............(funcall.dired-sideb |
| 73e0 | 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 66 75 6e 63 74 | ar-alternate-select-window-funct |
| 7400 | 69 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 64 69 72 65 64 2d 73 69 | ion)................(if.dired-si |
| 7420 | 64 65 62 61 72 2d 6f 70 65 6e 2d 66 69 6c 65 2d 69 6e 2d 6d 6f 73 74 2d 72 65 63 65 6e 74 6c 79 | debar-open-file-in-most-recently |
| 7440 | 2d 75 73 65 64 2d 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | -used-window.................... |
| 7460 | 28 67 65 74 2d 6d 72 75 2d 77 69 6e 64 6f 77 20 6e 69 6c 20 6e 69 6c 20 74 29 0a 20 20 20 20 20 | (get-mru-window.nil.nil.t)...... |
| 7480 | 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 65 78 74 2d 77 69 6e 64 6f 77 29 29 29 29 29 0a 20 20 | ............(next-window)))))... |
| 74a0 | 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 2f 6a 6f 6a 6f | ......;;.https://github.com/jojo |
| 74c0 | 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 35 35 0a 20 20 | james/dired-sidebar/issues/55... |
| 74e0 | 20 20 20 20 20 20 28 69 66 20 28 6f 72 20 28 6e 75 6c 6c 20 77 69 6e 64 6f 77 29 20 28 77 69 6e | ......(if.(or.(null.window).(win |
| 7500 | 64 6f 77 2d 64 65 64 69 63 61 74 65 64 2d 70 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 20 | dow-dedicated-p.window))........ |
| 7520 | 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 28 73 70 6c 69 74 2d 77 69 6e 64 6f | .....(select-window.(split-windo |
| 7540 | 77 20 28 6e 65 78 74 2d 77 69 6e 64 6f 77 29 20 6e 69 6c 20 27 72 69 67 68 74 29 29 0a 20 20 20 | w.(next-window).nil.'right)).... |
| 7560 | 20 20 20 20 20 20 20 28 73 65 6c 65 63 74 2d 77 69 6e 64 6f 77 20 77 69 6e 64 6f 77 29 29 29 0a | .......(select-window.window))). |
| 7580 | 20 20 20 20 20 20 28 66 69 6e 64 2d 66 69 6c 65 20 64 69 72 65 64 2d 66 69 6c 65 2d 6e 61 6d 65 | ......(find-file.dired-file-name |
| 75a0 | 29 0a 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 6c 6f 73 | ).......(when.dired-sidebar-clos |
| 75c0 | 65 2d 73 69 64 65 62 61 72 2d 6f 6e 2d 66 69 6c 65 2d 6f 70 65 6e 0a 20 20 20 20 20 20 20 20 28 | e-sidebar-on-file-open.........( |
| 75e0 | 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 72 29 29 29 29 29 0a | dired-sidebar-hide-sidebar))))). |
| 7600 | 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 6e 64 2d 66 69 6c 65 2d | .(defun.dired-sidebar-find-file- |
| 7620 | 61 6c 74 20 28 29 0a 20 20 22 4c 69 6b 65 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 | alt.()..."Like.`dired-sidebar-fi |
| 7640 | 6e 64 2d 66 69 6c 65 27 20 62 75 74 20 73 65 6c 65 63 74 20 77 69 6e 64 6f 77 20 77 69 74 68 20 | nd-file'.but.select.window.with. |
| 7660 | 61 6c 74 65 72 61 74 65 20 6d 65 74 68 6f 64 2e 0a 0a 53 65 6c 65 63 74 20 61 6c 74 65 72 6e 61 | alterate.method...Select.alterna |
| 7680 | 74 65 20 77 69 6e 64 6f 77 20 75 73 69 6e 67 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 61 | te.window.using.`dired-sidebar-a |
| 76a0 | 6c 74 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 | lternate-select-window-function' |
| 76c0 | 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 6c 65 74 20 28 28 63 75 72 72 | ."...(interactive)...(let.((curr |
| 76e0 | 65 6e 74 2d 70 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 | ent-prefix-arg.'(4))).;.C-u..... |
| 7700 | 28 63 61 6c 6c 2d 69 6e 74 65 72 61 63 74 69 76 65 6c 79 20 27 64 69 72 65 64 2d 73 69 64 65 62 | (call-interactively.'dired-sideb |
| 7720 | 61 72 2d 66 69 6e 64 2d 66 69 6c 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 | ar-find-file)))..(defun.dired-si |
| 7740 | 64 65 62 61 72 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 20 28 29 0a 20 20 22 57 72 61 70 70 65 72 | debar-up-directory.()..."Wrapper |
| 7760 | 20 6f 76 65 72 20 60 64 69 72 65 64 2d 75 70 2d 64 69 72 65 63 74 6f 72 79 27 2e 22 0a 20 20 28 | .over.`dired-up-directory'."...( |
| 7780 | 69 6e 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 69 | interactive)...(dired-sidebar-wi |
| 77a0 | 74 68 2d 6e 6f 2d 64 65 64 69 63 61 74 69 6f 6e 0a 20 20 20 3b 3b 20 49 66 20 60 64 69 72 65 64 | th-no-dedication....;;.If.`dired |
| 77c0 | 2d 73 75 62 74 72 65 65 27 20 69 73 20 75 73 65 64 2c 20 60 64 69 72 65 64 2d 63 75 72 72 65 6e | -subtree'.is.used,.`dired-curren |
| 77e0 | 74 2d 64 69 72 65 63 74 6f 72 79 27 20 69 73 20 72 65 64 65 66 69 6e 65 64 2e 0a 20 20 20 3b 3b | t-directory'.is.redefined.....;; |
| 7800 | 20 53 6f 20 6d 6f 76 65 20 70 6f 69 6e 74 20 74 6f 20 74 68 65 20 74 6f 70 20 6f 66 20 74 68 65 | .So.move.point.to.the.top.of.the |
| 7820 | 20 62 75 66 66 65 72 20 74 6f 20 67 65 74 20 74 68 65 20 61 63 74 75 61 6c 20 64 69 72 65 63 74 | .buffer.to.get.the.actual.direct |
| 7840 | 6f 72 79 20 61 6e 64 0a 20 20 20 3b 3b 20 6e 6f 74 20 74 68 65 20 6f 6e 65 20 61 74 20 70 6f 69 | ory.and....;;.not.the.one.at.poi |
| 7860 | 6e 74 2e 0a 20 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 6b 69 70 2d | nt.....(when.dired-sidebar-skip- |
| 7880 | 73 75 62 74 72 65 65 2d 70 61 72 65 6e 74 0a 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 61 72 20 28 | subtree-parent......(goto-char.( |
| 78a0 | 70 6f 69 6e 74 2d 6d 69 6e 29 29 29 0a 20 20 20 28 6c 65 74 2a 20 28 28 64 69 72 20 28 64 69 72 | point-min)))....(let*.((dir.(dir |
| 78c0 | 65 64 2d 63 75 72 72 65 6e 74 2d 64 69 72 65 63 74 6f 72 79 29 29 0a 20 20 20 20 20 20 20 20 20 | ed-current-directory)).......... |
| 78e0 | 20 28 75 70 20 28 66 69 6c 65 2d 6e 61 6d 65 2d 64 69 72 65 63 74 6f 72 79 20 28 64 69 72 65 63 | .(up.(file-name-directory.(direc |
| 7900 | 74 6f 72 79 2d 66 69 6c 65 2d 6e 61 6d 65 20 64 69 72 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 | tory-file-name.dir)))........... |
| 7920 | 28 75 70 2d 6e 61 6d 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 | (up-name.(dired-sidebar-buffer-n |
| 7940 | 61 6d 65 20 75 70 29 29 29 0a 20 20 20 20 20 28 69 66 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 | ame.up)))......(if.(dired-sideba |
| 7960 | 72 2d 62 75 66 66 65 72 2d 65 78 69 73 74 73 2d 70 20 75 70 2d 6e 61 6d 65 29 0a 20 20 20 20 20 | r-buffer-exists-p.up-name)...... |
| 7980 | 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 29 0a 20 | ....(switch-to-buffer.up-name).. |
| 79a0 | 20 20 20 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 | ......(if.dired-sidebar-use-one- |
| 79c0 | 69 6e 73 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 | instance............(find-altern |
| 79e0 | 61 74 65 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 | ate-file."..")..........(dired-u |
| 7a00 | 70 2d 64 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 | p-directory))........(dired-side |
| 7a20 | 62 61 72 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 28 6c 65 74 20 28 28 64 65 66 61 75 6c 74 2d 64 | bar-mode))......(let.((default-d |
| 7a40 | 69 72 65 63 74 6f 72 79 20 75 70 29 29 0a 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 67 6f 74 6f | irectory.up))........(dired-goto |
| 7a60 | 2d 66 69 6c 65 20 64 69 72 29 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 | -file.dir)))))..(defun.dired-sid |
| 7a80 | 65 62 61 72 2d 6d 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 | ebar-mouse-subtree-cycle-or-find |
| 7aa0 | 2d 66 69 6c 65 20 28 65 76 65 6e 74 29 0a 20 20 22 48 61 6e 64 6c 65 20 61 20 6d 6f 75 73 65 20 | -file.(event)..."Handle.a.mouse. |
| 7ac0 | 63 6c 69 63 6b 20 45 56 45 4e 54 20 69 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 2e 0a | click.EVENT.in.`dired-sidebar'.. |
| 7ae0 | 0a 46 6f 72 20 64 69 72 65 63 74 6f 72 69 65 73 2c 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 | .For.directories,.if.`dired-side |
| 7b00 | 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 27 20 69 73 20 74 | bar-cycle-subtree-on-click'.is.t |
| 7b20 | 72 75 65 2c 0a 63 79 63 6c 65 20 74 68 65 20 64 69 72 65 63 74 6f 72 79 2e 0a 0a 4f 74 68 65 72 | rue,.cycle.the.directory...Other |
| 7b40 | 77 69 73 65 2c 20 62 65 68 61 76 65 73 20 74 68 65 20 73 61 6d 65 20 61 73 20 69 66 20 75 73 65 | wise,.behaves.the.same.as.if.use |
| 7b60 | 72 20 63 6c 69 63 6b 65 64 20 6f 6e 20 61 20 66 69 6c 65 2e 0a 0a 46 6f 72 20 66 69 6c 65 73 2c | r.clicked.on.a.file...For.files, |
| 7b80 | 20 75 73 65 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 2e 0a | .use.`dired-sidebar-find-file'.. |
| 7ba0 | 0a 54 68 69 73 20 75 73 65 73 20 74 68 65 20 73 61 6d 65 20 63 6f 64 65 20 61 73 20 60 64 69 72 | .This.uses.the.same.code.as.`dir |
| 7bc0 | 65 64 2d 6d 6f 75 73 65 2d 66 69 6e 64 2d 66 69 6c 65 2d 6f 74 68 65 72 2d 77 69 6e 64 6f 77 27 | ed-mouse-find-file-other-window' |
| 7be0 | 20 74 6f 20 66 69 6e 64 0a 74 68 65 20 72 65 6c 65 76 61 6e 74 20 66 69 6c 65 2d 64 69 72 65 63 | .to.find.the.relevant.file-direc |
| 7c00 | 74 6f 72 79 20 63 6c 69 63 6b 65 64 20 6f 6e 20 62 79 20 74 68 65 20 6d 6f 75 73 65 2e 22 0a 20 | tory.clicked.on.by.the.mouse.".. |
| 7c20 | 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 65 22 29 0a 20 20 28 6c 65 74 20 28 77 69 6e 64 6f | .(interactive."e")...(let.(windo |
| 7c40 | 77 20 70 6f 73 20 66 69 6c 65 29 0a 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a | w.pos.file).....(save-excursion. |
| 7c60 | 20 20 20 20 20 20 28 73 65 74 71 20 77 69 6e 64 6f 77 20 28 70 6f 73 6e 2d 77 69 6e 64 6f 77 20 | ......(setq.window.(posn-window. |
| 7c80 | 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 70 | (event-end.event)).............p |
| 7ca0 | 6f 73 20 28 70 6f 73 6e 2d 70 6f 69 6e 74 20 28 65 76 65 6e 74 2d 65 6e 64 20 65 76 65 6e 74 29 | os.(posn-point.(event-end.event) |
| 7cc0 | 29 29 0a 20 20 20 20 20 20 28 69 66 20 28 6e 6f 74 20 28 77 69 6e 64 6f 77 70 20 77 69 6e 64 6f | )).......(if.(not.(windowp.windo |
| 7ce0 | 77 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 22 4e 6f 20 66 69 6c 65 20 63 68 | w))...........(error."No.file.ch |
| 7d00 | 6f 73 65 6e 22 29 29 0a 20 20 20 20 20 20 28 73 65 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f | osen")).......(set-buffer.(windo |
| 7d20 | 77 2d 62 75 66 66 65 72 20 77 69 6e 64 6f 77 29 29 0a 20 20 20 20 20 20 28 67 6f 74 6f 2d 63 68 | w-buffer.window)).......(goto-ch |
| 7d40 | 61 72 20 70 6f 73 29 0a 20 20 20 20 20 20 28 73 65 74 71 20 66 69 6c 65 20 28 64 69 72 65 64 2d | ar.pos).......(setq.file.(dired- |
| 7d60 | 67 65 74 2d 66 69 6c 65 2d 66 6f 72 2d 76 69 73 69 74 29 29 29 0a 20 20 20 20 3b 3b 20 54 68 65 | get-file-for-visit))).....;;.The |
| 7d80 | 72 65 27 73 20 61 20 66 6c 69 63 6b 65 72 20 64 6f 69 6e 67 20 74 68 69 73 20 62 75 74 20 69 74 | re's.a.flicker.doing.this.but.it |
| 7da0 | 20 64 6f 65 73 6e 27 74 20 73 65 65 6d 20 6c 69 6b 65 0a 20 20 20 20 3b 3b 20 60 64 69 72 65 64 | .doesn't.seem.like.....;;.`dired |
| 7dc0 | 2d 73 75 62 74 72 65 65 2d 63 79 63 6c 65 27 20 77 6f 72 6b 73 20 77 69 74 68 6f 75 74 20 66 69 | -subtree-cycle'.works.without.fi |
| 7de0 | 72 73 74 20 73 65 6c 65 63 74 69 6e 67 20 74 68 65 20 77 69 6e 64 6f 77 2e 0a 20 20 20 20 28 77 | rst.selecting.the.window......(w |
| 7e00 | 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...... |
| 7e20 | 20 28 69 66 20 28 61 6e 64 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 79 63 6c 65 2d 73 75 | .(if.(and.dired-sidebar-cycle-su |
| 7e40 | 62 74 72 65 65 2d 6f 6e 2d 63 6c 69 63 6b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 66 | btree-on-click................(f |
| 7e60 | 69 6c 65 2d 64 69 72 65 63 74 6f 72 79 2d 70 20 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 | ile-directory-p.file)........... |
| 7e80 | 20 20 20 20 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 73 75 66 66 69 78 2d 70 20 22 2e 22 20 66 | .....(not.(string-suffix-p.".".f |
| 7ea0 | 69 6c 65 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d | ile)))...........(dired-subtree- |
| 7ec0 | 63 79 63 6c 65 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 69 | cycle).........(dired-sidebar-fi |
| 7ee0 | 6e 64 2d 66 69 6c 65 20 66 69 6c 65 29 29 29 29 0a 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 | nd-file.file))))...(dired-sideba |
| 7f00 | 72 2d 72 65 64 69 73 70 6c 61 79 2d 69 63 6f 6e 73 29 29 0a 0a 3b 3b 20 48 65 6c 70 65 72 73 0a | r-redisplay-icons))..;;.Helpers. |
| 7f20 | 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 65 78 69 | .(defun.dired-sidebar-buffer-exi |
| 7f40 | 73 74 73 2d 70 20 28 62 75 66 66 65 72 2d 6e 61 6d 65 29 0a 20 20 22 43 68 65 63 6b 20 69 66 20 | sts-p.(buffer-name)..."Check.if. |
| 7f60 | 61 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 20 65 78 69 73 74 73 20 | a.`dired-sidebar'.buffer.exists. |
| 7f80 | 66 6f 72 20 42 55 46 46 45 52 2d 4e 41 4d 45 2e 22 0a 20 20 28 67 65 74 2d 62 75 66 66 65 72 20 | for.BUFFER-NAME."...(get-buffer. |
| 7fa0 | 62 75 66 66 65 72 2d 6e 61 6d 65 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 | buffer-name))..(defun.dired-side |
| 7fc0 | 62 61 72 2d 73 69 64 65 62 61 72 2d 72 6f 6f 74 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 64 69 | bar-sidebar-root.()..."Return.di |
| 7fe0 | 72 65 63 74 6f 72 79 20 75 73 69 6e 67 20 60 70 72 6f 6a 65 63 74 69 6c 65 27 2c 20 60 70 72 6f | rectory.using.`projectile',.`pro |
| 8000 | 6a 65 63 74 27 20 6f 72 20 63 75 72 72 65 6e 74 20 64 69 72 65 63 74 6f 72 79 2e 22 0a 20 20 28 | ject'.or.current.directory."...( |
| 8020 | 69 66 20 28 66 65 61 74 75 72 65 70 20 27 70 72 6f 6a 65 63 74 69 6c 65 29 0a 20 20 20 20 20 20 | if.(featurep.'projectile)....... |
| 8040 | 28 63 6f 6e 64 69 74 69 6f 6e 2d 63 61 73 65 20 6e 69 6c 0a 20 20 20 20 20 20 20 20 20 20 28 69 | (condition-case.nil...........(i |
| 8060 | 66 20 28 66 62 6f 75 6e 64 70 20 27 70 72 6f 6a 65 63 74 69 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 | f.(fboundp.'projectile-project-r |
| 8080 | 6f 6f 74 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 72 20 28 70 72 6f 6a 65 63 74 69 | oot)...............(or.(projecti |
| 80a0 | 6c 65 2d 70 72 6f 6a 65 63 74 2d 72 6f 6f 74 29 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f | le-project-root).default-directo |
| 80c0 | 72 79 29 0a 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 | ry).............default-director |
| 80e0 | 79 29 0a 20 20 20 20 20 20 20 20 28 65 72 72 6f 72 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 | y).........(error.default-direct |
| 8100 | 6f 72 79 29 29 0a 20 20 20 20 3b 3b 20 55 73 65 20 60 70 72 6f 6a 65 63 74 27 20 69 66 20 60 70 | ory)).....;;.Use.`project'.if.`p |
| 8120 | 72 6f 6a 65 63 74 69 6c 65 27 20 69 73 20 6e 6f 74 20 6c 6f 61 64 65 64 20 79 65 74 2e 0a 20 20 | rojectile'.is.not.loaded.yet.... |
| 8140 | 20 20 3b 3b 20 60 70 72 6f 6a 65 63 74 69 6c 65 27 20 69 73 20 61 20 62 69 67 20 70 61 63 6b 61 | ..;;.`projectile'.is.a.big.packa |
| 8160 | 67 65 20 61 6e 64 20 74 61 6b 65 73 20 61 20 77 68 69 6c 65 20 74 6f 20 6c 6f 61 64 20 73 6f 20 | ge.and.takes.a.while.to.load.so. |
| 8180 | 69 74 27 73 20 62 65 74 74 65 72 0a 20 20 20 20 3b 3b 20 74 6f 20 64 65 66 65 72 20 6c 6f 61 64 | it's.better.....;;.to.defer.load |
| 81a0 | 69 6e 67 20 69 74 20 61 73 20 6c 6f 6e 67 20 61 73 20 70 6f 73 73 69 62 6c 65 20 28 75 6e 74 69 | ing.it.as.long.as.possible.(unti |
| 81c0 | 6c 20 74 68 65 20 75 73 65 72 20 63 68 6f 6f 73 65 73 29 2e 0a 20 20 20 20 28 69 66 2d 6c 65 74 | l.the.user.chooses)......(if-let |
| 81e0 | 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)))...... |
| 8200 | 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 |
| 8220 | 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 |
| 8240 | 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 |
| 8260 | 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- |
| 8280 | 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. |
| 82a0 | 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 |
| 82c0 | 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` |
| 82e0 | 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 |
| 8300 | 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- |
| 8320 | 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.........;; |
| 8340 | 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 |
| 8360 | 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).............( |
| 8380 | 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. |
| 83a0 | 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))). |
| 83c0 | 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 |
| 83e0 | 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 |
| 8400 | 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."...( |
| 8420 | 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 |
| 8440 | 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)........... |
| 8460 | 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 |
| 8480 | 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- |
| 84a0 | 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 |
| 84c0 | 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 |
| 84e0 | 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))... |
| 8500 | 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."/")).... |
| 8520 | 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.............. |
| 8540 | 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 |
| 8560 | 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 |
| 8580 | 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.( |
| 85a0 | 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- |
| 85c0 | 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.". |
| 85e0 | 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 |
| 8600 | 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))) |
| 8620 | 0a 20 20 20 20 28 69 66 2d 6c 65 74 2a 20 28 28 65 78 69 73 74 69 6e 67 2d 62 75 66 66 65 72 20 | .....(if-let*.((existing-buffer. |
| 8640 | 28 67 65 74 2d 62 75 66 66 65 72 20 6e 61 6d 65 29 29 29 0a 20 20 20 20 20 20 20 20 65 78 69 73 | (get-buffer.name))).........exis |
| 8660 | 74 69 6e 67 2d 62 75 66 66 65 72 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 | ting-buffer.......(let.((buffer. |
| 8680 | 28 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 20 72 6f 6f 74 29 29 29 0a 20 20 20 20 20 20 20 20 | (dired-noselect.root)))......... |
| 86a0 | 3b 3b 20 57 68 65 6e 20 6f 70 65 6e 69 6e 67 20 61 20 73 69 64 65 62 61 72 20 77 68 69 6c 65 20 | ;;.When.opening.a.sidebar.while. |
| 86c0 | 69 6e 20 61 20 64 69 72 65 64 20 62 75 66 66 65 72 20 74 68 61 74 20 6d 61 74 63 68 65 73 0a 20 | in.a.dired.buffer.that.matches.. |
| 86e0 | 20 20 20 20 20 20 20 3b 3b 20 74 68 65 20 73 69 64 65 62 61 72 27 73 20 72 6f 6f 74 20 64 69 72 | .......;;.the.sidebar's.root.dir |
| 8700 | 65 63 74 6f 72 79 2e 0a 20 20 20 20 20 20 20 20 28 69 66 20 28 65 71 20 28 63 75 72 72 65 6e 74 | ectory..........(if.(eq.(current |
| 8720 | 2d 62 75 66 66 65 72 29 20 62 75 66 66 65 72 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 | -buffer).buffer).............;;. |
| 8740 | 68 74 74 70 73 3a 2f 2f 67 69 74 68 75 62 2e 63 6f 6d 2f 46 75 63 6f 31 2f 64 69 72 65 64 2d 68 | https://github.com/Fuco1/dired-h |
| 8760 | 61 63 6b 73 2f 69 73 73 75 65 73 2f 31 30 32 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 | acks/issues/102.............(if. |
| 8780 | 28 6d 65 6d 62 65 72 20 27 64 69 72 65 64 2d 63 6f 6c 6c 61 70 73 65 2d 6d 6f 64 65 20 64 69 72 | (member.'dired-collapse-mode.dir |
| 87a0 | 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 | ed-mode-hook).................(p |
| 87c0 | 72 6f 67 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6d 6f 76 65 2d 68 | rogn...................(remove-h |
| 87e0 | 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 6f 6c 6c | ook.'dired-mode-hook.'dired-coll |
| 8800 | 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 28 6c 65 | apse-mode)...................(le |
| 8820 | 74 20 28 28 63 6c 6f 6e 65 20 28 63 6c 6f 6e 65 2d 62 75 66 66 65 72 29 29 29 0a 20 20 20 20 20 | t.((clone.(clone-buffer)))...... |
| 8840 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 61 64 64 2d 68 6f 6f 6b 20 27 64 69 72 65 64 2d | ...............(add-hook.'dired- |
| 8860 | 6d 6f 64 65 2d 68 6f 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 | mode-hook.'dired-collapse-mode). |
| 8880 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 6c 6f 6e 65 29 29 0a 20 20 20 20 | ....................clone))..... |
| 88a0 | 20 20 20 20 20 20 20 20 20 20 28 63 6c 6f 6e 65 2d 62 75 66 66 65 72 29 29 0a 20 20 20 20 20 20 | ..........(clone-buffer))....... |
| 88c0 | 20 20 20 20 3b 3b 20 52 65 6e 61 6d 65 20 74 68 65 20 62 75 66 66 65 72 20 67 65 6e 65 72 61 74 | ....;;.Rename.the.buffer.generat |
| 88e0 | 65 64 20 62 79 20 60 64 69 72 65 64 2d 6e 6f 73 65 6c 65 63 74 27 2e 0a 20 20 20 20 20 20 20 20 | ed.by.`dired-noselect'.......... |
| 8900 | 20 20 28 77 68 65 6e 20 28 6e 6f 74 20 28 73 74 72 69 6e 67 2d 65 71 75 61 6c 20 28 62 75 66 66 | ..(when.(not.(string-equal.(buff |
| 8920 | 65 72 2d 6e 61 6d 65 20 62 75 66 66 65 72 29 20 6e 61 6d 65 29 29 0a 20 20 20 20 20 20 20 20 20 | er-name.buffer).name)).......... |
| 8940 | 20 20 20 28 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 62 75 66 66 65 72 0a 20 | ...(with-current-buffer.buffer.. |
| 8960 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 6e 61 6d 65 2d 62 75 66 66 65 72 20 6e 61 6d 65 | .............(rename-buffer.name |
| 8980 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 62 75 66 66 65 72 29 29 29 29 29 0a 0a 28 64 65 66 75 | )))...........buffer)))))..(defu |
| 89a0 | 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 73 65 74 2d 66 6f 6e 74 20 28 29 0a 20 20 22 43 | n.dired-sidebar-set-font.()..."C |
| 89c0 | 75 73 74 6f 6d 69 7a 65 20 66 6f 6e 74 20 69 6e 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 | ustomize.font.in.`dired-sidebar' |
| 89e0 | 2e 0a 0a 53 65 74 20 66 6f 6e 74 20 74 6f 20 61 20 76 61 72 69 61 62 6c 65 20 77 69 64 74 68 20 | ...Set.font.to.a.variable.width. |
| 8a00 | 28 70 72 6f 70 6f 72 74 69 6f 6e 61 6c 29 20 69 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 62 75 | (proportional).in.the.current.bu |
| 8a20 | 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 | ffer."...(interactive)...(when.( |
| 8a40 | 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 2d 70 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 | bound-and-true-p.dired-sidebar-f |
| 8a60 | 61 63 65 29 0a 20 20 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 | ace).....(setq-local.buffer-face |
| 8a80 | 2d 6d 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 | -mode-face.dired-sidebar-face).. |
| 8aa0 | 20 20 20 28 62 75 66 66 65 72 2d 66 61 63 65 2d 6d 6f 64 65 29 29 29 0a 0a 28 64 65 66 75 6e 20 | ...(buffer-face-mode)))..(defun. |
| 8ac0 | 64 69 72 65 64 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 | dired-sidebar-set-mode-line.().. |
| 8ae0 | 20 22 43 75 73 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 | ."Customize.modeline.in.`dired-s |
| 8b00 | 69 64 65 62 61 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 | idebar'."...(setq.mode-line-form |
| 8b20 | 61 74 20 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 6f 72 6d 61 | at.dired-sidebar-mode-line-forma |
| 8b40 | 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 73 65 74 2d 77 69 | t))..(defun.dired-sidebar-set-wi |
| 8b60 | 64 74 68 20 28 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 | dth.(width)..."Set.the.width.of. |
| 8b80 | 74 68 65 20 62 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 | the.buffer.to.WIDTH.when.it.is.c |
| 8ba0 | 72 65 61 74 65 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 | reated."...;;.Copied.from.`treem |
| 8bc0 | 61 63 73 2d 2d 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 | acs--set-width'.as.well.as.`neot |
| 8be0 | 72 65 65 27 2e 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 | ree'....(unless.(one-window-p).. |
| 8c00 | 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 0a 20 20 20 | ...(let.((window-size-fixed).... |
| 8c20 | 20 20 20 20 20 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 | .......(w.(max.width.window-min- |
| 8c40 | 77 69 64 74 68 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 | width))).......(cond........((>. |
| 8c60 | 28 77 69 6e 64 6f 77 2d 77 69 64 74 68 29 20 77 29 0a 20 20 20 20 20 20 20 20 28 73 68 72 69 6e | (window-width).w).........(shrin |
| 8c80 | 6b 2d 77 69 6e 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 | k-window-horizontally..(-.(windo |
| 8ca0 | 77 2d 77 69 64 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 | w-width).w)))........((<.(window |
| 8cc0 | 2d 77 69 64 74 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 | -width).w).........(enlarge-wind |
| 8ce0 | 6f 77 2d 68 6f 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 | ow-horizontally.(-.w.(window-wid |
| 8d00 | 74 68 29 29 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 | th))))))))..(defun.dired-sidebar |
| 8d20 | 2d 75 70 64 61 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 | -update-buffer-name.()..."Change |
| 8d40 | 20 62 75 66 66 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 | .buffer.name.to.avoid.collision. |
| 8d60 | 77 69 74 68 20 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 | with.regular.`dired'.buffers.".. |
| 8d80 | 20 28 72 65 6e 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 | .(rename-buffer....(dired-sideba |
| 8da0 | 72 2d 62 75 66 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 | r-buffer-name.(dired-current-dir |
| 8dc0 | 65 63 74 6f 72 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 | ectory))))..(defun.dired-sidebar |
| 8de0 | 2d 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 | -showing-sidebar-p.(&optional.f) |
| 8e00 | 0a 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 | ..."Whether.F.or.selected.frame. |
| 8e20 | 69 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 | is.showing.a.sidebar...Check.if. |
| 8e40 | 46 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 | F.or.selected.frame.contains.a.s |
| 8e60 | 69 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 | idebar.and.return.corresponding. |
| 8e80 | 62 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 | buffer.if.buffer.has.a.window.at |
| 8ea0 | 74 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 | tached.to.it...Return.buffer.if. |
| 8ec0 | 73 6f 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 75 66 66 65 72 20 28 64 69 72 65 | so."...(when-let*.((buffer.(dire |
| 8ee0 | 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 20 66 29 29 29 0a 20 20 20 20 28 67 65 74 2d 62 | d-sidebar-buffer.f))).....(get-b |
| 8f00 | 75 66 66 65 72 2d 77 69 6e 64 6f 77 20 62 75 66 66 65 72 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 | uffer-window.buffer)))..(defun.d |
| 8f20 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 75 66 66 65 72 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f | ired-sidebar-buffer.(&optional._ |
| 8f40 | 66 72 61 6d 65 29 0a 20 20 22 52 65 74 75 72 6e 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 69 64 | frame)..."Return.the.current.sid |
| 8f60 | 65 62 61 72 20 62 75 66 66 65 72 20 75 73 69 6e 67 20 60 77 69 6e 64 6f 77 2d 6c 69 73 74 27 2e | ebar.buffer.using.`window-list'. |
| 8f80 | 22 0a 20 20 28 69 66 2d 6c 65 74 2a 20 28 28 77 69 6e 64 6f 77 73 0a 20 20 20 20 20 20 20 20 20 | "...(if-let*.((windows.......... |
| 8fa0 | 20 20 20 20 28 73 65 71 2d 66 69 6c 74 65 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6c | ....(seq-filter...............(l |
| 8fc0 | 61 6d 62 64 61 20 28 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | ambda.(window).................( |
| 8fe0 | 77 69 74 68 2d 63 75 72 72 65 6e 74 2d 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 66 | with-current-buffer.(window-buff |
| 9000 | 65 72 20 77 69 6e 64 6f 77 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 65 71 | er.window)...................(eq |
| 9020 | 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 64 65 29 | .major-mode.'dired-sidebar-mode) |
| 9040 | 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 77 69 6e 64 6f 77 2d 6c 69 73 74 29 29 29 | ))...............(window-list))) |
| 9060 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 62 75 66 66 65 72 20 28 77 69 6e 64 6f 77 2d 62 75 66 | .............(buffer.(window-buf |
| 9080 | 66 65 72 20 28 63 61 72 20 77 69 6e 64 6f 77 73 29 29 29 29 0a 20 20 20 20 20 20 62 75 66 66 65 | fer.(car.windows)))).......buffe |
| 90a0 | 72 0a 20 20 20 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 | r.....nil))..(defun.dired-sideba |
| 90c0 | 72 2d 73 77 69 74 63 68 2d 74 6f 2d 64 69 72 20 28 64 69 72 29 0a 20 20 22 55 70 64 61 74 65 20 | r-switch-to-dir.(dir)..."Update. |
| 90e0 | 62 75 66 66 65 72 20 77 69 74 68 20 44 49 52 20 61 73 20 72 6f 6f 74 2e 22 0a 20 20 28 77 68 65 | buffer.with.DIR.as.root."...(whe |
| 9100 | 6e 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 | n.(dired-sidebar-showing-sidebar |
| 9120 | 2d 70 29 0a 20 20 20 20 28 6c 65 74 20 28 28 62 75 66 66 65 72 20 28 64 69 72 65 64 2d 73 69 64 | -p).....(let.((buffer.(dired-sid |
| 9140 | 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 64 69 72 29 29 29 | ebar-get-or-create-buffer.dir))) |
| 9160 | 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 2d 73 69 64 65 62 | .......(dired-sidebar-show-sideb |
| 9180 | 61 72 20 62 75 66 66 65 72 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 | ar.buffer))))..(defun.dired-side |
| 91a0 | 62 61 72 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 20 28 26 6f 70 74 69 6f 6e 61 6c 20 6e 6f | bar-buffer-stale-p.(&optional.no |
| 91c0 | 63 6f 6e 66 69 72 6d 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 | confirm)..."Wrapper.over.`dired- |
| 91e0 | 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 27 2e 0a 0a 43 68 65 63 6b 20 69 66 20 62 75 66 66 65 | buffer-stale-p'...Check.if.buffe |
| 9200 | 72 20 69 73 20 73 74 61 6c 65 20 6f 6e 6c 79 20 69 66 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 | r.is.stale.only.if.`dired-sideba |
| 9220 | 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 61 79 27 0a | r-stale-buffer-time-idle-delay'. |
| 9240 | 0a 68 61 73 20 65 6c 61 70 73 65 64 2e 0a 0a 4f 70 74 69 6f 6e 61 6c 20 61 72 67 75 6d 65 6e 74 | .has.elapsed...Optional.argument |
| 9260 | 20 4e 4f 43 4f 4e 46 49 52 4d 20 50 61 73 73 20 4e 4f 43 4f 4e 46 49 52 4d 20 6f 6e 20 74 6f 20 | .NOCONFIRM.Pass.NOCONFIRM.on.to. |
| 9280 | 60 64 69 72 65 64 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 27 2e 22 0a 20 20 28 77 68 65 6e | `dired-buffer-stale-p'."...(when |
| 92a0 | 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 61 6c 65 2d 62 | .dired-sidebar-check-for-stale-b |
| 92c0 | 75 66 66 65 72 2d 70 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 | uffer-p.....(setq.dired-sidebar- |
| 92e0 | 63 68 65 63 6b 2d 66 6f 72 2d 73 74 61 6c 65 2d 62 75 66 66 65 72 2d 70 20 6e 69 6c 29 0a 20 20 | check-for-stale-buffer-p.nil)... |
| 9300 | 20 20 28 64 69 72 65 64 2d 62 75 66 66 65 72 2d 73 74 61 6c 65 2d 70 20 6e 6f 63 6f 6e 66 69 72 | ..(dired-buffer-stale-p.noconfir |
| 9320 | 6d 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 72 65 66 72 65 | m)))..(defun.dired-sidebar-refre |
| 9340 | 73 68 2d 62 75 66 66 65 72 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 52 65 66 72 65 73 68 20 73 | sh-buffer.(&rest._)..."Refresh.s |
| 9360 | 69 64 65 62 61 72 20 62 75 66 66 65 72 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 73 | idebar.buffer."...(when-let*.((s |
| 9380 | 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))). |
| 93a0 | 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 73 69 64 65 62 61 72 | ....(with-current-buffer.sidebar |
| 93c0 | 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 61 75 74 6f 2d 72 65 76 65 72 74 2d 76 65 72 62 6f 73 | .......(let.((auto-revert-verbos |
| 93e0 | 65 20 6e 69 6c 29 29 0a 20 20 20 20 20 20 20 20 28 69 67 6e 6f 72 65 20 61 75 74 6f 2d 72 65 76 | e.nil)).........(ignore.auto-rev |
| 9400 | 65 72 74 2d 76 65 72 62 6f 73 65 29 20 3b 3b 20 4d 61 6b 65 20 62 79 74 65 20 63 6f 6d 70 69 6c | ert-verbose).;;.Make.byte.compil |
| 9420 | 65 72 20 68 61 70 70 79 2e 0a 20 20 20 20 20 20 20 20 28 72 65 76 65 72 74 2d 62 75 66 66 65 72 | er.happy..........(revert-buffer |
| 9440 | 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 66 6f 6c 6c | )))))..(defun.dired-sidebar-foll |
| 9460 | 6f 77 2d 66 69 6c 65 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 46 6f 6c 6c 6f 77 20 6e 65 77 20 | ow-file.(&rest._)..."Follow.new. |
| 9480 | 66 69 6c 65 2e 0a 0a 54 68 65 20 72 6f 6f 74 20 6f 66 20 74 68 65 20 73 69 64 65 62 61 72 20 77 | file...The.root.of.the.sidebar.w |
| 94a0 | 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 64 2d 73 69 64 65 | ill.be.determined.by.`dired-side |
| 94c0 | 62 61 72 2d 67 65 74 2d 64 69 72 2d 74 6f 2d 73 68 6f 77 27 0a 61 6e 64 20 74 68 65 20 66 69 6c | bar-get-dir-to-show'.and.the.fil |
| 94e0 | 65 20 66 6f 6c 6c 6f 77 65 64 20 69 73 20 77 69 6c 6c 20 62 65 20 64 65 74 65 72 6d 69 6e 65 64 | e.followed.is.will.be.determined |
| 9500 | 20 62 79 20 60 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 | .by.`dired-sidebar-get-file-to-s |
| 9520 | 68 6f 77 27 2c 0a 0a 62 6f 74 68 20 61 63 63 6f 75 6e 74 69 6e 67 20 66 6f 72 20 74 68 65 20 63 | how',..both.accounting.for.the.c |
| 9540 | 75 72 72 65 6e 74 6c 79 20 73 65 6c 65 63 74 65 64 20 77 69 6e 64 6f 77 2e 22 0a 20 20 28 77 68 | urrently.selected.window."...(wh |
| 9560 | 65 6e 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 | en.(dired-sidebar-showing-sideba |
| 9580 | 72 2d 70 29 0a 20 20 20 20 3b 3b 20 57 72 61 70 20 69 6e 20 60 77 69 74 68 2d 73 65 6c 65 63 74 | r-p).....;;.Wrap.in.`with-select |
| 95a0 | 65 64 2d 77 69 6e 64 6f 77 27 20 62 65 63 61 75 73 65 20 77 65 20 64 6f 6e 27 74 20 77 61 6e 74 | ed-window'.because.we.don't.want |
| 95c0 | 20 74 6f 20 70 6f 70 20 74 6f 0a 20 20 20 20 3b 3b 20 74 68 65 20 73 69 64 65 62 61 72 20 62 75 | .to.pop.to.....;;.the.sidebar.bu |
| 95e0 | 66 66 65 72 2e 0a 20 20 20 20 3b 3b 20 57 65 20 61 6c 73 6f 20 6e 65 65 64 20 74 6f 20 70 69 63 | ffer......;;.We.also.need.to.pic |
| 9600 | 6b 20 74 68 65 20 63 6f 72 72 65 63 74 20 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 73 6f | k.the.correct.selected-window.so |
| 9620 | 20 74 68 61 74 0a 20 20 20 20 3b 3b 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 67 65 74 2d | .that.....;;.`dired-sidebar-get- |
| 9640 | 64 69 72 2d 74 6f 2d 73 68 6f 77 27 20 63 61 6e 20 67 65 74 20 74 68 65 20 63 6f 72 72 65 63 74 | dir-to-show'.can.get.the.correct |
| 9660 | 20 72 6f 6f 74 20 74 6f 20 63 68 61 6e 67 65 20 74 6f 2e 0a 20 20 20 20 28 77 69 74 68 2d 73 65 | .root.to.change.to......(with-se |
| 9680 | 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 20 28 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f 77 29 0a | lected-window.(selected-window). |
| 96a0 | 20 20 20 20 20 20 28 6c 65 74 20 28 28 72 6f 6f 74 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 | ......(let.((root.(dired-sidebar |
| 96c0 | 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 20 28 64 69 72 | -get-dir-to-show))).........(dir |
| 96e0 | 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 72 6f 6f 74 29 0a 20 | ed-sidebar-switch-to-dir.root).. |
| 9700 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 66 6f 6c 6c 6f | .......(when.dired-sidebar-follo |
| 9720 | 77 2d 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 | w-file-at-point-on-toggle-open.. |
| 9740 | 20 20 20 20 20 20 20 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 66 69 6c 65 20 28 64 69 72 65 | .........(when-let*.((file.(dire |
| 9760 | 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 29 29 0a 20 20 | d-sidebar-get-file-to-show)))... |
| 9780 | 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 69 6e 74 2d 61 | ..........(dired-sidebar-point-a |
| 97a0 | 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 65 66 75 6e 20 | t-file.file.root)))))))..(defun. |
| 97c0 | 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 6e 61 74 65 2d | dired-sidebar-default-alternate- |
| 97e0 | 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 20 66 75 6e 63 | select-window.()..."Default.func |
| 9800 | 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 65 72 6e 61 74 | tion.for.`dired-sidebar-alternat |
| 9820 | 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 0a 20 20 28 69 | e-select-window-function'."...(i |
| 9840 | 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 20 20 28 61 77 | f.(fboundp.'aw-select).......(aw |
| 9860 | 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 20 20 28 6e 65 | -select."Select.Window").....(ne |
| 9880 | 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 73 69 64 65 62 | xt-window)))..(defun.dired-sideb |
| 98a0 | 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 74 75 72 6e 20 | ar-get-dir-to-show.()..."Return. |
| 98c0 | 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 72 27 20 73 68 | the.directory.`dired-sidebar'.sh |
| 98e0 | 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 6c 65 2d 6e 61 | ould.open.to."...(expand-file-na |
| 9900 | 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 76 65 64 2d 6d | me....(cond.....((and.(derived-m |
| 9920 | 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 20 20 64 69 72 | ode-p.'magit-mode)...........dir |
| 9940 | 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 61 74 69 6f 6e | ed-sidebar-use-magit-integration |
| 9960 | 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 74 6f 70 6c 65 | ...........(fboundp.'magit-tople |
| 9980 | 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 29 0a 20 20 20 | vel))......(magit-toplevel)).... |
| 99a0 | 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 2d 6d 6f 64 65 | .((and.(eq.major-mode.'term-mode |
| 99c0 | 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 73 65 2d 74 65 | )...........dired-sidebar-use-te |
| 99e0 | 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 2d 73 69 64 65 | rm-integration)......(dired-side |
| 9a00 | 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 64 20 28 65 71 | bar-term-get-pwd)).....((and.(eq |
| 9a20 | 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 20 20 20 20 64 | .major-mode.'dired-mode))......d |
| 9a40 | 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 20 28 65 71 20 | efault-directory).....((and.(eq. |
| 9a60 | 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 20 20 20 20 20 | major-mode.'ibuffer-mode)....... |
| 9a80 | 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 6e 74 2d 62 75 | ....(fboundp.'ibuffer-current-bu |
| 9aa0 | 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 72 72 65 6e 74 | ffer)...........(ibuffer-current |
| 9ac0 | 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 72 2d 61 74 2d | -buffer))......(let.((buffer-at- |
| 9ae0 | 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 65 72 29 29 29 | point.(ibuffer-current-buffer))) |
| 9b00 | 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 65 72 2d 70 72 | ........(if.(fboundp.'ibuffer-pr |
| 9b20 | 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 69 66 2d 6c 65 | ojectile-root)............(if-le |
| 9b40 | 74 2a 20 28 28 69 62 75 66 66 65 72 2d 70 72 6f 6a 65 63 74 69 6c 65 2d 72 6f 6f 74 0a 20 20 20 | t*.((ibuffer-projectile-root.... |
| 9b60 | 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 6a | ...................(ibuffer-proj |
| 9b80 | 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 20 | ectile-root.buffer-at-point))).. |
| 9ba0 | 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 65 | ..............(cdr.ibuffer-proje |
| 9bc0 | 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 63 | ctile-root)..............(with-c |
| 9be0 | 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 20 | urrent-buffer.buffer-at-point... |
| 9c00 | 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 29 | .............default-directory)) |
| 9c20 | 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 62 | ..........(with-current-buffer.b |
| 9c40 | 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 6c | uffer-at-point............defaul |
| 9c60 | 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 20 | t-directory)))).....(:default... |
| 9c80 | 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 29 | ...(dired-sidebar-sidebar-root)) |
| 9ca0 | 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 69 | )))..(defun.dired-sidebar-get-fi |
| 9cc0 | 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 65 | le-to-show.()..."Return.the.file |
| 9ce0 | 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 2e | .`dired-sidebar'.should.open.to. |
| 9d00 | 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 73 | ..This.may.return.nil.if.there's |
| 9d20 | 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 63 | .no.suitable.file.to.show."...(c |
| 9d40 | 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 6d | ond....((and.dired-sidebar-use-m |
| 9d60 | 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 76 | agit-integration..........(deriv |
| 9d80 | 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 20 | ed-mode-p.'magit-mode).......... |
| 9da0 | 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 20 | (fboundp.'magit-file-at-point).. |
| 9dc0 | 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 20 | ........(magit-file-at-point)).. |
| 9de0 | 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 65 | ...(expand-file-name.(magit-file |
| 9e00 | 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 2d | -at-point)))....((and.(eq.major- |
| 9e20 | 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 75 | mode.'dired-mode)).....;;.Not.su |
| 9e40 | 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 6f | re.if.`dired-get-filename'.is.mo |
| 9e60 | 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 63 | re.appropriate......(condition-c |
| 9e80 | 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 2d | ase.nil.........(dired-get-file- |
| 9ea0 | 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 20 | for-visit).......(error.nil))).. |
| 9ec0 | 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 2d | ..((and.(eq.major-mode.'ibuffer- |
| 9ee0 | 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 72 | mode)..........(fboundp.'ibuffer |
| 9f00 | 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 2d | -current-buffer)).....(let.((bf- |
| 9f20 | 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 2d | name.(buffer-file-name.(ibuffer- |
| 9f40 | 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 66 | current-buffer)))).......(and.bf |
| 9f60 | 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 66 | -name.(file-exists-p.bf-name).bf |
| 9f80 | 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 62 | -name)))....(:default.....(and.b |
| 9fa0 | 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 62 | uffer-file-name.(file-exists-p.b |
| 9fc0 | 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 6d | uffer-file-name).buffer-file-nam |
| 9fe0 | 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 6d | e))))..(defun.dired-sidebar-term |
| a000 | 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 63 | -get-pwd.()..."Get.current.direc |
| a020 | 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 6f | tory.of.`term-mode'...This.is.so |
| a040 | 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 69 | mewhat.experimental/hacky."...(i |
| a060 | 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 69 | nteractive)...(condition-case.ni |
| a080 | 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 2d | l.......(progn.........(forward- |
| a0a0 | 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 64 | paragraph).........(when.(fbound |
| a0c0 | 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 20 | p.'term-previous-prompt)........ |
| a0e0 | 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 20 | ...(term-previous-prompt.1)).... |
| a100 | 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 65 | .....(when.(fboundp.'term-simple |
| a120 | 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 65 | -send)...........(term-simple-se |
| a140 | 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 2d | nd.(get-buffer-process.(current- |
| a160 | 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 2d | buffer))."pwd")).........(sleep- |
| a180 | 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 20 | for.0.50).........(forward-line. |
| a1a0 | 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 67 | 1).........(let.((result.(string |
| a1c0 | 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 0a | -trim.(thing-at-point.'line)))). |
| a1e0 | 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 20 | ..........(kill-whole-line)..... |
| a200 | 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 20 | ......(forward-line.-1)......... |
| a220 | 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 65 | ..(kill-whole-line)...........re |
| a240 | 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 64 | sult)).....(error......default-d |
| a260 | 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 61 | irectory)))..(defun.dired-sideba |
| a280 | 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 6f | r-subtree-toggle.()..."Wrapper.o |
| a2a0 | 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 20 | ver.`dired-subtree-toggle'.that. |
| a2c0 | 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 65 | accounts.for.`all-the-icons-dire |
| a2e0 | 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 75 | d'."...(interactive)...(dired-su |
| a300 | 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 72 | btree-toggle)...(dired-sidebar-r |
| a320 | 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 73 | edisplay-icons))..(defun.dired-s |
| a340 | 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 64 | idebar-redisplay-icons.()..."Red |
| a360 | 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 54 | isplay.icon.themes.unless.over.T |
| a380 | 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 61 | RAMP."...(when.(dired-sidebar-ca |
| a3a0 | 6e 2d 64 69 73 70 6c 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 | n-display-icons).....(cond...... |
| a3c0 | 28 28 61 6e 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 | ((and.(eq.dired-sidebar-theme.'i |
| a3e0 | 63 6f 6e 73 29 0a 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 | cons)............(fboundp.'all-t |
| a400 | 68 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 | he-icons-dired--refresh))....... |
| a420 | 3b 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 | ;;.Refresh.`all-the-icons-dired' |
| a440 | 2e 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 | ........(dired-sidebar-revert).. |
| a460 | 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 2d 72 65 66 72 65 | .....(all-the-icons-dired--refre |
| a480 | 73 68 29 29 0a 20 20 20 20 20 28 28 61 6e 64 20 28 65 71 20 64 69 72 65 64 2d 73 69 64 65 62 61 | sh))......((and.(eq.dired-sideba |
| a4a0 | 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 2d 69 63 6f 6e 73 29 0a 20 20 20 20 20 20 20 20 20 20 20 | r-theme.'nerd-icons)............ |
| a4c0 | 28 66 62 6f 75 6e 64 70 20 27 6e 65 72 64 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d 2d 72 65 66 72 | (fboundp.'nerd-icons-dired--refr |
| a4e0 | 65 73 68 29 29 0a 20 20 20 20 20 20 3b 3b 20 52 65 66 72 65 73 68 20 60 6e 65 72 64 2d 69 63 6f | esh)).......;;.Refresh.`nerd-ico |
| a500 | 6e 73 2d 64 69 72 65 64 27 2e 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | ns-dired'........(dired-sidebar- |
| a520 | 72 65 76 65 72 74 29 0a 20 20 20 20 20 20 28 6e 65 72 64 2d 69 63 6f 6e 73 2d 64 69 72 65 64 2d | revert).......(nerd-icons-dired- |
| a540 | 2d 72 65 66 72 65 73 68 29 29 0a 20 20 20 20 20 28 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | -refresh))......((dired-sidebar- |
| a560 | 75 73 69 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 | using-tui-p).......(dired-sideba |
| a580 | 72 2d 74 75 69 2d 75 70 64 61 74 65 2d 77 69 74 68 2d 64 65 6c 61 79 29 29 0a 20 20 20 20 20 28 | r-tui-update-with-delay))......( |
| a5a0 | 3a 64 65 66 61 75 6c 74 20 6e 69 6c 29 29 29 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 | :default.nil))))..(defun.dired-s |
| a5c0 | 69 64 65 62 61 72 2d 61 64 76 69 63 65 2d 68 69 64 65 2d 74 65 6d 70 6f 72 61 72 69 6c 79 20 28 | idebar-advice-hide-temporarily.( |
| a5e0 | 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 41 20 66 75 6e 63 74 69 6f 6e 20 6d 65 61 6e | f.&rest.args)..."A.function.mean |
| a600 | 74 20 74 6f 20 62 65 20 75 73 65 64 20 77 69 74 68 20 61 64 76 69 63 65 20 74 6f 20 74 65 6d 70 | t.to.be.used.with.advice.to.temp |
| a620 | 6f 72 61 72 69 6c 79 20 68 69 64 65 20 69 74 73 65 6c 66 2e 0a 0a 54 68 69 73 20 66 75 6e 63 74 | orarily.hide.itself...This.funct |
| a640 | 69 6f 6e 20 68 69 64 65 73 20 74 68 65 20 73 69 64 65 62 61 72 20 62 65 66 6f 72 65 20 65 78 65 | ion.hides.the.sidebar.before.exe |
| a660 | 63 75 74 69 6e 67 20 46 20 61 6e 64 20 74 68 65 6e 20 72 65 73 68 6f 77 73 20 69 74 73 65 6c 66 | cuting.F.and.then.reshows.itself |
| a680 | 0a 61 66 74 65 72 2e 22 0a 20 20 28 69 66 20 28 6e 6f 74 20 28 64 69 72 65 64 2d 73 69 64 65 62 | .after."...(if.(not.(dired-sideb |
| a6a0 | 61 72 2d 73 68 6f 77 69 6e 67 2d 73 69 64 65 62 61 72 2d 70 29 29 0a 20 20 20 20 20 20 28 61 70 | ar-showing-sidebar-p)).......(ap |
| a6c0 | 70 6c 79 20 66 20 61 72 67 73 29 0a 20 20 20 20 28 6c 65 74 20 28 28 73 69 64 65 62 61 72 20 28 | ply.f.args).....(let.((sidebar.( |
| a6e0 | 64 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 20 20 28 64 | dired-sidebar-buffer))).......(d |
| a700 | 69 72 65 64 2d 73 69 64 65 62 61 72 2d 68 69 64 65 2d 73 69 64 65 62 61 72 29 0a 20 20 20 20 20 | ired-sidebar-hide-sidebar)...... |
| a720 | 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 0a 20 20 20 20 20 20 28 64 69 72 65 64 2d 73 69 64 | .(apply.f.args).......(dired-sid |
| a740 | 65 62 61 72 2d 73 68 6f 77 2d 73 69 64 65 62 61 72 20 73 69 64 65 62 61 72 29 29 29 29 0a 0a 28 | ebar-show-sidebar.sidebar))))..( |
| a760 | 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 63 61 6e 2d 64 69 73 70 6c 61 79 2d | defun.dired-sidebar-can-display- |
| a780 | 69 63 6f 6e 73 20 28 29 0a 20 20 22 52 65 74 75 72 6e 20 77 68 65 74 68 65 72 20 6f 72 20 6e 6f | icons.()..."Return.whether.or.no |
| a7a0 | 74 20 69 63 6f 6e 73 20 73 68 6f 75 6c 64 20 62 65 20 64 69 73 70 6c 61 79 65 64 2e 22 0a 20 20 | t.icons.should.be.displayed."... |
| a7c0 | 28 61 6e 64 0a 20 20 20 28 6f 72 0a 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 64 69 | (and....(or.....dired-sidebar-di |
| a7e0 | 73 70 6c 61 79 2d 72 65 6d 6f 74 65 2d 69 63 6f 6e 73 0a 20 20 20 20 28 6e 6f 74 20 28 66 69 6c | splay-remote-icons.....(not.(fil |
| a800 | 65 2d 72 65 6d 6f 74 65 2d 70 20 64 65 66 61 75 6c 74 2d 64 69 72 65 63 74 6f 72 79 29 29 29 0a | e-remote-p.default-directory))). |
| a820 | 20 20 20 28 63 6c 2d 65 76 65 72 79 20 28 6c 61 6d 62 64 61 20 28 6d 6f 64 65 29 0a 20 20 20 20 | ...(cl-every.(lambda.(mode)..... |
| a840 | 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 43 68 65 63 6b 20 61 67 61 69 6e 73 74 20 74 68 65 20 | ...........;;.Check.against.the. |
| a860 | 64 65 66 61 75 6c 74 20 76 61 6c 75 65 20 6f 66 20 60 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f 6f | default.value.of.`dired-mode-hoo |
| a880 | 6b 27 20 68 65 72 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 3b 20 73 69 6e 63 65 20 | k'.here................;;.since. |
| a8a0 | 77 65 20 6d 61 64 65 20 69 74 20 62 75 66 66 65 72 20 6c 6f 63 61 6c 20 65 61 72 6c 69 65 72 2e | we.made.it.buffer.local.earlier. |
| a8c0 | 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6e 6f 74 20 28 6d 65 6d 71 20 6d 6f 64 65 20 | ................(not.(memq.mode. |
| a8e0 | 28 64 65 66 61 75 6c 74 2d 76 61 6c 75 65 20 27 64 69 72 65 64 2d 6d 6f 64 65 2d 68 6f 6f 6b 29 | (default-value.'dired-mode-hook) |
| a900 | 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 62 | )))..............dired-sidebar-b |
| a920 | 6c 6f 63 6b 2d 69 63 6f 6e 2d 64 69 73 70 6c 61 79 2d 6d 6f 64 65 73 29 29 29 0a 0a 28 64 65 66 | lock-icon-display-modes)))..(def |
| a940 | 76 61 72 20 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 29 0a 28 64 65 66 75 6e 20 64 69 72 65 | var.dired-omit-mode).(defun.dire |
| a960 | 64 2d 73 69 64 65 62 61 72 2d 6f 6d 69 74 2d 61 66 74 65 72 2d 64 69 72 65 64 2d 73 75 62 74 72 | d-sidebar-omit-after-dired-subtr |
| a980 | 65 65 2d 63 79 63 6c 65 20 28 66 20 26 72 65 73 74 20 61 72 67 73 29 0a 20 20 22 41 74 74 65 6d | ee-cycle.(f.&rest.args)..."Attem |
| a9a0 | 70 74 20 74 6f 20 68 61 6e 64 6c 65 20 60 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 27 20 77 | pt.to.handle.`dired-omit-mode'.w |
| a9c0 | 68 65 6e 20 61 70 70 6c 79 69 6e 67 20 46 2e 0a 0a 49 66 20 60 64 69 72 65 64 2d 6f 6d 69 74 2d | hen.applying.F...If.`dired-omit- |
| a9e0 | 6d 6f 64 65 27 20 69 73 20 6e 75 6c 6c 2c 20 74 68 65 20 75 73 65 72 20 69 73 6e 27 74 20 69 6e | mode'.is.null,.the.user.isn't.in |
| aa00 | 74 65 72 65 73 74 65 64 2c 20 73 6f 20 63 6f 6e 74 69 6e 75 65 20 61 73 20 6e 6f 72 6d 61 6c 2e | terested,.so.continue.as.normal. |
| aa20 | 0a 4f 74 68 65 72 77 69 73 65 2c 20 74 72 79 20 74 6f 20 63 61 6c 6c 20 60 64 69 72 65 64 2d 6f | .Otherwise,.try.to.call.`dired-o |
| aa40 | 6d 69 74 2d 6d 6f 64 65 27 20 61 66 74 65 72 20 66 75 6e 63 74 69 6f 6e 20 72 75 6e 73 2e 22 0a | mit-mode'.after.function.runs.". |
| aa60 | 20 20 28 69 66 20 28 61 6e 64 20 28 66 62 6f 75 6e 64 70 20 27 64 69 72 65 64 2d 6f 6d 69 74 2d | ..(if.(and.(fboundp.'dired-omit- |
| aa80 | 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 28 62 6f 75 6e 64 2d 61 6e 64 2d 74 72 75 65 | mode)............(bound-and-true |
| aaa0 | 2d 70 20 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 29 29 0a 20 20 20 20 20 20 28 6c 65 74 20 | -p.dired-omit-mode)).......(let. |
| aac0 | 28 28 72 65 73 75 6c 74 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 29 29 0a 20 20 20 20 20 20 | ((result.(apply.f.args)))....... |
| aae0 | 20 20 28 64 69 72 65 64 2d 6f 6d 69 74 2d 6d 6f 64 65 29 0a 20 20 20 20 20 20 20 20 72 65 73 75 | ..(dired-omit-mode).........resu |
| ab00 | 6c 74 29 0a 20 20 20 20 28 61 70 70 6c 79 20 66 20 61 72 67 73 29 29 29 0a 0a 3b 3b 3b 3b 3b 3b | lt).....(apply.f.args)))..;;;;;; |
| ab20 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 20 54 65 78 74 20 55 73 65 | ;;;;;;;;;;;;;;;;;;;;;;;.Text.Use |
| ab40 | 72 20 49 6e 74 65 72 66 61 63 65 20 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b | r.Interface.;;;;;;;;;;;;;;;;;;;; |
| ab60 | 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 28 64 65 66 76 61 72 2d 6c 6f 63 61 6c 20 64 69 72 65 64 2d | ;;;;;;;;;;..(defvar-local.dired- |
| ab80 | 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 0a | sidebar-tui-dired-displayed.nil. |
| aba0 | 20 20 22 46 6c 61 67 73 20 77 68 65 74 68 65 72 20 69 63 6f 6e 73 20 68 61 76 65 20 62 65 65 6e | .."Flags.whether.icons.have.been |
| abc0 | 20 61 64 64 65 64 2e 22 29 0a 0a 28 64 65 66 75 6e 20 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d | .added.")..(defun.dired-sidebar- |
| abe0 | 74 75 69 2d 64 69 72 65 64 2d 72 65 73 65 74 20 28 26 6f 70 74 69 6f 6e 61 6c 20 5f 61 72 67 20 | tui-dired-reset.(&optional._arg. |
| ac00 | 5f 6e 6f 63 6f 6e 66 69 72 6d 29 0a 20 20 22 46 75 6e 63 74 69 6f 6e 20 75 73 65 64 20 61 73 20 | _noconfirm)..."Function.used.as. |
| ac20 | 61 64 76 69 63 65 20 77 68 65 6e 20 72 65 64 69 73 70 6c 61 79 69 6e 67 20 62 75 66 66 65 72 2e | advice.when.redisplaying.buffer. |
| ac40 | 22 0a 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 | "...(setq-local.dired-sidebar-tu |
| ac60 | 69 2d 64 69 72 65 64 2d 64 69 73 70 6c 61 79 65 64 20 6e 69 6c 29 29 0a 0a 28 64 65 66 75 6e 20 | i-dired-displayed.nil))..(defun. |
| ac80 | 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 6c 61 79 20 | dired-sidebar-tui-dired-display. |
| aca0 | 28 29 0a 20 20 22 44 69 73 70 6c 61 79 20 74 68 65 20 69 63 6f 6e 73 20 6f 66 20 66 69 6c 65 73 | ()..."Display.the.icons.of.files |
| acc0 | 20 69 6e 20 61 20 64 69 72 65 64 20 62 75 66 66 65 72 2e 22 0a 20 20 28 69 6e 74 65 72 61 63 74 | .in.a.dired.buffer."...(interact |
| ace0 | 69 76 65 29 0a 20 20 28 77 68 65 6e 20 28 6f 72 20 74 20 28 61 6e 64 20 28 6e 6f 74 20 64 69 72 | ive)...(when.(or.t.(and.(not.dir |
| ad00 | 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 6c 61 79 65 64 29 20 | ed-sidebar-tui-dired-displayed). |
| ad20 | 64 69 72 65 64 2d 73 75 62 64 69 72 2d 61 6c 69 73 74 29 29 0a 20 20 20 20 28 73 65 74 71 2d 6c | dired-subdir-alist)).....(setq-l |
| ad40 | 6f 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 | ocal.dired-sidebar-tui-dired-dis |
| ad60 | 70 6c 61 79 65 64 20 74 29 0a 20 20 20 20 28 6c 65 74 20 28 28 69 6e 68 69 62 69 74 2d 72 65 61 | played.t).....(let.((inhibit-rea |
| ad80 | 64 2d 6f 6e 6c 79 20 74 29 0a 20 20 20 20 20 20 20 20 20 20 28 63 6f 6c 6c 61 70 73 69 62 6c 65 | d-only.t)...........(collapsible |
| ada0 | 2d 69 63 6f 6e 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 65 6d | -icon.(if.(eq.dired-sidebar-them |
| adc0 | 65 20 27 6e 65 72 64 29 20 22 e2 96 be 22 20 22 2d 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 | e.'nerd)."..."."-"))...........( |
| ade0 | 65 78 70 61 6e 64 61 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 | expandable-icon.(if.(eq.dired-si |
| ae00 | 64 65 62 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 20 22 e2 96 b8 22 20 22 2b 22 29 29 29 0a | debar-theme.'nerd)."..."."+"))). |
| ae20 | 20 20 20 20 20 20 28 73 61 76 65 2d 65 78 63 75 72 73 69 6f 6e 0a 20 20 20 20 20 20 20 20 28 67 | ......(save-excursion.........(g |
| ae40 | 6f 74 6f 2d 63 68 61 72 20 28 70 6f 69 6e 74 2d 6d 69 6e 29 29 0a 20 20 20 20 20 20 20 20 28 77 | oto-char.(point-min)).........(w |
| ae60 | 68 69 6c 65 20 28 6e 6f 74 20 28 65 6f 62 70 29 29 0a 20 20 20 20 20 20 20 20 20 20 28 77 68 65 | hile.(not.(eobp))...........(whe |
| ae80 | 6e 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 6d 65 20 6e 69 6c 29 0a 20 | n.(dired-move-to-filename.nil).. |
| aea0 | 20 20 20 20 20 20 20 20 20 20 20 28 64 69 72 65 64 2d 6d 6f 76 65 2d 74 6f 2d 66 69 6c 65 6e 61 | ...........(dired-move-to-filena |
| aec0 | 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 66 69 6c 65 20 28 64 69 72 | me).............(let.((file.(dir |
| aee0 | 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 6d 65 20 27 76 65 72 62 61 74 69 6d 20 74 29 29 29 0a 20 | ed-get-filename.'verbatim.t))).. |
| af00 | 20 20 20 20 20 20 20 20 20 20 20 20 20 28 75 6e 6c 65 73 73 20 28 6d 65 6d 62 65 72 20 66 69 6c | .............(unless.(member.fil |
| af20 | 65 20 27 28 22 2e 22 20 22 2e 2e 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 | e.'("."."..")).................( |
| af40 | 6c 65 74 20 28 28 66 69 6c 65 6e 61 6d 65 20 28 64 69 72 65 64 2d 67 65 74 2d 66 69 6c 65 6e 61 | let.((filename.(dired-get-filena |
| af60 | 6d 65 20 6e 69 6c 20 74 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 | me.nil.t)))...................(i |
| af80 | 66 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 76 73 63 6f 64 | f.(eq.dired-sidebar-theme.'vscod |
| afa0 | 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 70 72 6f 67 6e 0a | e).......................(progn. |
| afc0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 72 65 71 75 69 72 65 | ........................(require |
| afe0 | 20 27 76 73 63 6f 64 65 2d 69 63 6f 6e 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | .'vscode-icon).................. |
| b000 | 20 20 20 20 20 20 20 28 77 68 65 6e 20 28 66 62 6f 75 6e 64 70 20 27 76 73 63 6f 64 65 2d 69 63 | .......(when.(fboundp.'vscode-ic |
| b020 | 6f 6e 2d 66 6f 72 2d 66 69 6c 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | on-for-file).................... |
| b040 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 2d 69 6d 61 67 65 0a 20 20 20 20 20 20 20 20 20 20 20 | .......(insert-image............ |
| b060 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 76 73 63 6f 64 65 2d 69 63 6f 6e 2d 66 6f 72 | ................(vscode-icon-for |
| b080 | 2d 66 69 6c 65 20 66 69 6c 65 6e 61 6d 65 29 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 | -file.filename)."."))........... |
| b0a0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 22 20 22 29 29 0a 20 20 20 20 | ..............(insert."."))..... |
| b0c0 | 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 69 66 20 28 66 69 6c 65 2d 64 69 72 65 63 74 | ................(if.(file-direct |
| b0e0 | 6f 72 79 2d 70 20 66 69 6c 65 6e 61 6d 65 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | ory-p.filename)................. |
| b100 | 20 20 20 20 20 20 20 20 28 69 66 20 28 64 69 72 65 64 2d 73 75 62 74 72 65 65 2d 2d 69 73 2d 65 | ........(if.(dired-subtree--is-e |
| b120 | 78 70 61 6e 64 65 64 2d 70 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | xpanded-p)...................... |
| b140 | 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6f 6e 63 61 74 20 63 6f 6c 6c 61 70 73 69 62 | .......(insert.(concat.collapsib |
| b160 | 6c 65 2d 69 63 6f 6e 20 22 20 22 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-icon."."))................... |
| b180 | 20 20 20 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 63 6f 6e 63 61 74 20 65 78 70 61 6e 64 61 62 | ........(insert.(concat.expandab |
| b1a0 | 6c 65 2d 69 63 6f 6e 20 22 20 22 29 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | le-icon."."))).................. |
| b1c0 | 20 20 20 20 20 28 69 6e 73 65 72 74 20 28 69 66 20 28 65 71 20 64 69 72 65 64 2d 73 69 64 65 62 | .....(insert.(if.(eq.dired-sideb |
| b1e0 | 61 72 2d 74 68 65 6d 65 20 27 6e 65 72 64 29 20 22 20 20 22 20 22 22 29 29 29 29 29 29 29 29 0a | ar-theme.'nerd).".."."")))))))). |
| b200 | 20 20 20 20 20 20 20 20 20 20 28 66 6f 72 77 61 72 64 2d 6c 69 6e 65 20 31 29 29 29 29 29 29 0a | ..........(forward-line.1)))))). |
| b220 | 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 70 64 61 74 65 | .(defun.dired-sidebar-tui-update |
| b240 | 2d 77 69 74 68 2d 64 65 6c 61 79 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 55 70 64 61 74 65 20 | -with-delay.(&rest._)..."Update. |
| b260 | 74 75 69 20 69 6e 74 65 72 66 61 63 65 20 61 66 74 65 72 20 61 20 64 65 6c 61 79 2e 22 0a 20 20 | tui.interface.after.a.delay."... |
| b280 | 28 72 75 6e 2d 77 69 74 68 2d 69 64 6c 65 2d 74 69 6d 65 72 0a 20 20 20 64 69 72 65 64 2d 73 69 | (run-with-idle-timer....dired-si |
| b2a0 | 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 74 65 2d 64 65 6c 61 79 20 6e 69 6c 0a 20 20 20 23 27 | debar-tui-update-delay.nil....#' |
| b2c0 | 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 74 75 69 2d 75 70 64 61 74 65 29 29 0a 0a 28 64 65 66 | dired-sidebar-tui-update))..(def |
| b2e0 | 75 6e 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 20 28 29 0a 20 | un.dired-sidebar-tui-update.().. |
| b300 | 20 22 57 6f 72 6b 68 6f 72 73 65 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 75 70 64 61 74 65 20 74 | ."Workhorse.function.to.update.t |
| b320 | 75 69 20 69 6e 74 65 72 66 61 63 65 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 62 75 | ui.interface."...(when-let*.((bu |
| b340 | 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 0a 20 20 | ffer.(dired-sidebar-buffer)))... |
| b360 | 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... |
| b380 | 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 20 20 20 | ....(dired-sidebar-revert)...... |
| b3a0 | 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 |
| b3c0 | 72 73 6f 72 2d 6f 6e 2d 74 75 69 2d 75 70 64 61 74 65 0a 20 20 20 20 20 20 20 20 28 72 65 63 65 | rsor-on-tui-update.........(rece |
| b3e0 | 6e 74 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 | nter)))))..(defun.dired-sidebar- |
| b400 | 72 65 76 65 72 74 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 57 72 61 70 70 65 72 20 61 72 6f 75 | revert.(&rest._)..."Wrapper.arou |
| b420 | 6e 64 20 60 64 69 72 65 64 2d 72 65 76 65 72 74 27 20 62 75 74 20 73 61 76 65 73 20 77 69 6e 64 | nd.`dired-revert'.but.saves.wind |
| b440 | 6f 77 20 70 6f 73 69 74 69 6f 6e 2e 22 0a 20 20 28 77 68 65 6e 2d 6c 65 74 2a 20 28 28 77 69 6e | ow.position."...(when-let*.((win |
| b460 | 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 20 20 20 20 20 20 | dow.(get-buffer-window.......... |
| b480 | 20 20 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 62 75 66 | ..............(dired-sidebar-buf |
| b4a0 | 66 65 72 29 29 29 29 0a 20 20 20 20 28 77 69 74 68 2d 73 65 6c 65 63 74 65 64 2d 77 69 6e 64 6f | fer)))).....(with-selected-windo |
| b4c0 | 77 20 77 69 6e 64 6f 77 0a 20 20 20 20 20 20 28 6c 65 74 20 28 28 6f 6c 64 2d 77 69 6e 64 6f 77 | w.window.......(let.((old-window |
| b4e0 | 2d 73 74 61 72 74 20 28 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 29 0a 20 20 20 20 20 20 20 20 | -start.(window-start)))......... |
| b500 | 28 77 68 65 6e 20 28 64 69 72 65 64 2d 73 69 64 65 62 61 72 2d 75 73 69 6e 67 2d 74 75 69 2d 70 | (when.(dired-sidebar-using-tui-p |
| b520 | 29 0a 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 74 75 69 2d 72 | )...........(dired-sidebar-tui-r |
| b540 | 65 73 65 74 2d 69 6e 2d 73 69 64 65 62 61 72 29 29 0a 20 20 20 20 20 20 20 20 28 64 69 72 65 64 | eset-in-sidebar)).........(dired |
| b560 | 2d 72 65 76 65 72 74 29 0a 20 20 20 20 20 20 20 20 28 73 65 74 2d 77 69 6e 64 6f 77 2d 73 74 61 | -revert).........(set-window-sta |
| b580 | 72 74 20 77 69 6e 64 6f 77 20 6f 6c 64 2d 77 69 6e 64 6f 77 2d 73 74 61 72 74 29 29 29 29 29 0a | rt.window.old-window-start))))). |
| b5a0 | 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 72 65 73 65 74 2d | .(defun.dired-sidebar-tui-reset- |
| b5c0 | 69 6e 2d 73 69 64 65 62 61 72 20 28 26 72 65 73 74 20 5f 29 0a 20 20 22 52 75 6e 73 20 60 64 69 | in-sidebar.(&rest._)..."Runs.`di |
| b5e0 | 72 65 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 27 20 69 6e 20 | red-sidebar-tui-dired-reset'.in. |
| b600 | 63 75 72 72 65 6e 74 20 60 64 69 72 65 64 2d 73 69 64 65 62 61 72 27 20 62 75 66 66 65 72 2e 22 | current.`dired-sidebar'.buffer." |
| b620 | 0a 20 20 28 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 73 69 | ...(when-let*.((buffer.(dired-si |
| b640 | 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 65 6e | debar-buffer))).....(with-curren |
| b660 | 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 69 64 | t-buffer.buffer.......(dired-sid |
| b680 | 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 75 6e | ebar-tui-dired-reset))))..(defun |
| b6a0 | 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 22 53 | .dired-sidebar-setup-tui.()..."S |
| b6c0 | 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 20 60 | ets.up.text.user.interface.for.` |
| b6e0 | 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 69 6e | dired-sidebar'...This.is.used.in |
| b700 | 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 64 64 | .place.of.`all-the-icons'.to.add |
| b720 | 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 20 61 | .directory.indicators...e.g..+.a |
| b740 | 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 72 2d | nd.-."...(add-hook.'dired-after- |
| b760 | 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 2d 73 | readin-hook.............'dired-s |
| b780 | 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 6e 64 | idebar-tui-dired-display.:append |
| b7a0 | 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 75 62 | .:local)...(setq-local.dired-sub |
| b7c0 | 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 2d 73 | tree-line-prefix.dired-sidebar-s |
| b7e0 | 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 75 69 | ubtree-line-prefix)...(dired-bui |
| b800 | 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 62 61 | ld-subdir-alist)...(dired-sideba |
| b820 | 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 61 72 | r-revert))..(defun.dired-sidebar |
| b840 | 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 20 60 | -using-tui-p.()..."Return.t.if.` |
| b860 | 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 74 75 | dired-sidebar-theme'.is.using.tu |
| b880 | 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 65 64 | i.code.path."...(or....(eq.dired |
| b8a0 | 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 64 69 | -sidebar-theme.'ascii)....(eq.di |
| b8c0 | 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 71 20 | red-sidebar-theme.'nerd)....(eq. |
| b8e0 | 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 0a 0a | dired-sidebar-theme.'vscode))).. |
| b900 | 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 54 65 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.Te |
| b920 | 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 3b 3b | xt.User.Interface.;;;;;;;;;;;;;; |
| b940 | 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 3b 3b | ;;;;;;;;;;;;;;;;..;;;;;;;;;;;;;; |
| b960 | 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 3b 3b | ;;;;;;;;;;;;;;;.`wdired'.Hack.;; |
| b980 | 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 3b 3b | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;..;; |
| b9a0 | 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 75 67 | .https://debbugs.gnu.org/cgi/bug |
| b9c0 | 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 3b 3b | report.cgi?bug=32392..;;;;;;;;;; |
| b9e0 | 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 63 | ;;;;;;;;;;;;;;;;;;;.`wdired'.Hac |
| ba00 | 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 3b | k.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ba20 | 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 77 64 | ..(defvar-local.dired-sidebar-wd |
| ba40 | 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 20 22 | ired-tracking-major-mode.nil..." |
| ba60 | 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 6e 20 | Track.current.`major-mode'.when. |
| ba80 | 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 6e 20 | toggling.to.`wdired'.")..(defun. |
| baa0 | 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 2d 64 | dired-sidebar-wdired-change-to-d |
| bac0 | 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 29 0a | ired-mode-advice.(f.&rest.args). |
| bae0 | 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 6f 2d | .."Advice.for.`wdired-change-to- |
| bb00 | 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 73 69 | dired-mode'."...(if.(eq.dired-si |
| bb20 | 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 64 65 | debar-wdired-tracking-major-mode |
| bb40 | 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 69 72 | .'dired-sidebar-mode).......(dir |
| bb60 | 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 72 65 | ed-sidebar-wdired-change-to-dire |
| bb80 | 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 28 64 | d-mode).....(apply.f.args)))..(d |
| bba0 | 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 67 65 | efun.dired-sidebar-wdired-change |
| bbc0 | 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 65 20 | -to-dired-mode.()..."Change.the. |
| bbe0 | 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 68 69 | mode.back.to.dired-sidebar...Thi |
| bc00 | 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 63 68 | s.is.an.exact.copy.of.`wdired-ch |
| bc20 | 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 73 20 | ange-to-dired-mode'.but.changes. |
| bc40 | 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 65 62 | the.`major-mode'.to.`dired-sideb |
| bc60 | 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 65 27 | ar-mode'.instead.of.`dired-mode' |
| bc80 | 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 74 29 | ."...(let.((inhibit-read-only.t) |
| bca0 | 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 20 20 | ).....(remove-text-properties... |
| bcc0 | 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 20 20 | ...(point-min).(point-max)...... |
| bce0 | 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 63 6b | '(front-sticky.nil.rear-nonstick |
| bd00 | 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 29 29 | y.nil.read-only.nil.keymap.nil)) |
| bd20 | 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 73 69 64 65 62 61 72 | )...(use-local-map.dired-sidebar |
| bd40 | 2d 6d 6f 64 65 2d 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 | -mode-map)...(force-mode-line-up |
| bd60 | 64 61 74 65 29 0a 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 | date)...(setq.buffer-read-only.t |
| bd80 | 29 0a 20 20 28 73 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 | )...(setq.major-mode.'dired-side |
| bda0 | 62 61 72 2d 6d 6f 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 | bar-mode)...(setq.mode-name."Dir |
| bdc0 | 65 64 2d 73 69 64 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 | ed-sidebar")...(dired-advertise) |
| bde0 | 0a 20 20 28 72 65 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 | ...(remove-hook.'kill-buffer-hoo |
| be00 | 6b 20 27 77 64 69 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 | k.'wdired-check-kill-buffer.t).. |
| be20 | 20 28 73 65 74 20 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 | .(set.(make-local-variable.'reve |
| be40 | 72 74 2d 62 75 66 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 | rt-buffer-function).'dired-sideb |
| be60 | 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 61 | ar-revert))..(defun.dired-sideba |
| be80 | 72 2d 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 64 65 2d 61 | r-wdired-change-to-wdired-mode-a |
| bea0 | 64 76 69 63 65 20 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 | dvice.(f.&rest.args)..."Forward. |
| bec0 | 74 6f 20 60 77 64 69 72 65 64 2d 63 68 61 6e 67 65 2d 74 6f 2d 77 64 69 72 65 64 2d 6d 6f 64 65 | to.`wdired-change-to-wdired-mode |
| bee0 | 27 2e 0a 0a 60 77 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 | '...`wdired'.expected.the.`major |
| bf00 | 2d 6d 6f 64 65 27 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 | -mode'.to.be.`dired-mode'.first. |
| bf20 | 0a 0a 54 72 61 63 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 | ..Track.the.current.`major-mode' |
| bf40 | 20 61 6e 64 20 72 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 | .and.revert.to.that.upon.exiting |
| bf60 | 20 60 77 64 69 72 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 | .`wdired'."...(setq.dired-sideba |
| bf80 | 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 64 65 20 6d 61 6a | r-wdired-tracking-major-mode.maj |
| bfa0 | 6f 72 2d 6d 6f 64 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 | or-mode)...(if.(eq.major-mode.'d |
| bfc0 | 69 72 65 64 2d 6d 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 | ired-mode).......(apply.f.args). |
| bfe0 | 20 20 20 20 28 6c 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 | ....(let.((major-mode.'dired-mod |
| c000 | 65 29 29 0a 20 20 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 | e)).......(apply.f.args))))..;;; |
| c020 | 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 60 77 64 69 72 | ;;;;;;;;;;;;;;;;;;;;;;;;;;.`wdir |
| c040 | 65 64 27 20 48 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 | ed'.Hack.;;;;;;;;;;;;;;;;;;;;;;; |
| c060 | 3b 3b 3b 3b 3b 3b 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 | ;;;;;;;..(provide.'dired-sidebar |
| c080 | 29 0a 3b 3b 3b 20 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 | ).;;;.dired-sidebar.el.ends.here |
| c0a0 | 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c0e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c100 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c120 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c140 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c160 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c180 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c1e0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c200 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c220 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c240 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c260 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c280 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2a0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| c2c0 | 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 | ................................ |
| 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 | ................................ |