;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require cl-lib dash treemacs-logging treemacs-scope treemacs-interface treemacs-bookmarks] 2) #@280 Find the keybind for FUNC in treemacs. Return of cons of the key formatted for inclusion in the hydra string, including a minimum PAD width for alignment, and the key itself for the hydra heads. Prefer evil keybinds, otherwise pick the first result. (fn FUNC &optional (PAD 8)) (defalias 'treemacs--find-keybind #[385 "\211\203 \211A\262\242\202\300\301!\211\203\210\302\303\304\303\211\211\203N\211A\262\242\262\262\211\262\203N\304H\305=\203A\303\262\203N\262\262T\262\202\266\211\262\211\203f\306\307\310\"\311\312GS\"\"\202t\306\307\313\"\311\304@GS\"\"\262!\314\315\"\262\316\317\320\321\"#B\207\316\317\320\321\317\"#\317B\207" [8 where-is-internal key-description nil 0 treemacs-state mapcar make-closure #[257 "\300H\207" [V0] 3 "\n\n(fn IT)"] number-sequence 1 #[257 "\300@H\207" [V0] 3 "\n\n(fn IT)"] s-replace-all (("" . "RET") ("" . "LEFT") ("" . "RIGHT") ("" . "UP") ("" . "DOWN") ("^" . "C-") ("⇢⌥" . ">O-") ("⌥" . "O-") ("⇢⌘" . ">#-") ("⌘" . "#-") ("⇧" . "S-")) s-pad-right " " format "_%s_:"] 13 (#$ . 275)]) #@436 Summon a helpful hydra to show you the treemacs keymap. This hydra will show the most commonly used keybinds for treemacs. For the more advanced (probably rarely used keybinds) see `treemacs-advanced-helpful-hydra'. The keybinds shown in this hydra are not static, but reflect the actual keybindings currently in use (including evil mode). If the hydra is unable to find the key a command is bound to it will show a blank instead. (defalias 'treemacs-common-helpful-hydra #[0 "\303 \211\203\370r\211q\210\304\305\306\307\310#\311 \"\304\312\305\313\307\310#\305\314\307\315##\305\316\307\317#\305\320\307\317#\305\321\307\317#\305\322\307\317#\323\324!\323\325!\323\326!\323\327!\323\330!\323\331!\323\332!\323\333!\323\334!\323\335!\323\336!\323\337!\323\340!\323\341!\323\342!\323\343!\323\344!\323\345!\323\346!\323\347!\323\350!\323\351!\323\352!\323\353!\323\354!\323\355!\323\356!\323\357\360\"\323\361\360\"\323\362\360\"\304\363%%\364\365#@\"@&&&&#@@@@&@!@@@)@#@@@,@&@@.@(@@0@*@$@2@,@<@-@=@-@/@.@&%\366\367\370\371#A\372B!A\373B!A\374B%A\375B%A\376B A\377B A\201@B%A\201AB%A\201BB%A\201CB#A\201DB#A\201EB#A\201FB#A\201GB#A\201HB#A\201IB#A\201JB#A\201KB\"A\201LB$A\201MB#A\201NB#A\201OB A\201PB A\201QB%A\201RB$A\201SB&A\201TB#A\201UB#A\201VB#A\201WB\201XBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB!\266&\201Y )\207:\204 C\201Z\n\204\201[\312\305\201\\\307\201]#\304\201^!#\210\201_\201`\201a\"\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-get-local-buffer format propertize "Treemacs %s Common Helpful Hydra" face treemacs-help-title-face treemacs-version "%s %s" "For advanced keybinds see" "treemacs-advanced-helpful-hydra" font-lock-function-name-face "Navigation" treemacs-help-column-face "Opening Nodes" "Toggles " "Projects" treemacs--find-keybind treemacs-advanced-helpful-hydra treemacs-root-up treemacs-root-down treemacs-next-line treemacs-previous-line treemacs-next-neighbour treemacs-previous-neighbour treemacs-goto-parent-node treemacs-next-line-other-window treemacs-previous-line-other-window treemacs-RET-action treemacs-TAB-action treemacs-visit-node-no-split treemacs-visit-node-horizontal-split treemacs-visit-node-vertical-split treemacs-visit-node-ace treemacs-visit-node-ace-horizontal-split treemacs-visit-node-ace-vertical-split treemacs-visit-node-in-external-application treemacs-visit-node-in-most-recently-used-window treemacs-collapse-parent-node treemacs-follow-mode treemacs-fringe-indicator-mode treemacs-filewatch-mode treemacs-git-mode treemacs-toggle-show-dotfiles treemacs-toggle-fixed-width treemacs-add-project-to-workspace 12 treemacs-remove-project-from-workspace treemacs-rename-project "\n%s\n%s (%s)\n\n%s ^^^^^^^^│ %s ^^^^^^^^^^^│ %s ^^^^^^│ %s\n――――――――――――――――――――――――┼――――――――――――――――――――――――――――┼―――――――――――――――――――――――――┼――――――――――――――――――――――――――\n%s next Line ^^^^│ %s dwim TAB ^^^^│ %s follow mode ^^^^│ %s add project\n%s prev line ^^^^│ %s dwim RET ^^^^│ %s filewatch mode ^^^^│ %s remove project\n%s next neighbour ^^^^│ %s open no split ^^^^│ %s git mode ^^^^│ %s rename project\n%s prev neighbour ^^^^│ %s open horizontal ^^^^│ %s show dotfiles ^^^^│\n%s goto parent ^^^^│ %s open vertical ^^^^│ %s resizability ^^^^│\n%s down next window ^^^^│ %s open ace ^^^^│ %s fringe indicator ^^^^│\n%s up next window ^^^^│ %s open ace horizontal ^^^^│ │\n%s root up ^^^^│ %s open ace vertical ^^^^│ │\n%s root down ^^^^│ %s open mru window ^^^^│ │\n │ %s open externally ^^^^│ │\n │ %s close parent ^^^^│ │\n" s-split ":" eval defhydra treemacs--common-helpful-hydra (:exit nil :hint nil :columns 4) (#'treemacs-advanced-helpful-hydra :exit t) (#'treemacs-next-line) (#'treemacs-previous-line) (#'treemacs-root-up) (#'treemacs-root-down) (#'treemacs-next-line-other-window) (#'treemacs-previous-line-other-window) (#'treemacs-next-neighbour) (#'treemacs-previous-neighbour) (#'treemacs-goto-parent-node) (#'treemacs-RET-action) (#'treemacs-TAB-action) (#'treemacs-visit-node-no-split) (#'treemacs-visit-node-horizontal-split) (#'treemacs-visit-node-vertical-split) (#'treemacs-visit-node-ace) (#'treemacs-visit-node-ace-horizontal-split) (#'treemacs-visit-node-ace-vertical-split) (#'treemacs-visit-node-in-most-recently-used-window) (#'treemacs-visit-node-in-external-application) (#'treemacs-collapse-parent-node) (#'treemacs-follow-mode) (#'treemacs-toggle-show-dotfiles) (#'treemacs-toggle-fixed-width) (#'treemacs-fringe-indicator-mode) (#'treemacs-git-mode) (#'treemacs-filewatch-mode) (#'treemacs-add-project-to-workspace) (#'treemacs-remove-project-from-workspace) (#'treemacs-rename-project) (("ESC" nil "Exit")) treemacs--common-helpful-hydra/body nil message "[Treemacs]" ((:inherit warning :weight bold)) "The helpful hydra cannot be summoned without an existing treemacs buffer." add-hook pre-command-hook treemacs--restore-eldoc-after-log] 75 (#$ . 1402) nil]) (defalias 'treemacs-helpful-hydra 'treemacs-common-helpful-hydra) #@425 Summon a helpful hydra to show you the treemacs keymap. This hydra will show the more advanced (rarely used) keybinds for treemacs. For the more commonly used keybinds see `treemacs-common-helpful-hydra'. The keybinds shown in this hydra are not static, but reflect the actual keybindings currently in use (including evil mode). If the hydra is unable to find the key a command is bound to it will show a blank instead. (defalias 'treemacs-advanced-helpful-hydra #[0 "\303 \211\203Rr\211q\210\304\305\306\307\310#\311 \"\305\312\307\313#\305\314\307\313#\305\315\307\313#\304\316\305\317\307\310#\305\320\307\321##\322\323!\322\324!\322\325!\322\326!\322\327!\322\330!\322\331!\322\332!\322\333!\322\334!\322\335!\322\336!\322\337!\322\340!\322\341\342\"\322\343\342\"\322\344\342\"\322\345\342\"\322\346\342\"\322\347\342\"\304\350\351\352@\"@@@@@@@@@@ @@@\"@@@$@@ @ @&\353\354\355\356A\357BA\360BA\361BA\362BA\363BA\364BA\365BA\366BA\367BA\370BA\371BA\372BA\373BA\374BA\375BA\376BA\377BA\201@BA\201ABA\201BB\201CBBBBBBBBBBBBBBBBBBBBBBBB!\266\201D )\207:\204Z C\201E\n\204v\201F\316\305\201G\307\201H#\304\201I!#\210\201J\201K\201L\"\207" [treemacs--saved-eldoc-display treemacs-eldoc-display treemacs--no-messages treemacs-get-local-buffer format propertize "Treemacs %s Advanced Helpful Hydra" face treemacs-help-title-face treemacs-version "File Management" treemacs-help-column-face "Workspaces" "Misc." "%s %s" "For common keybinds see" "treemacs-common-helpful-hydra" font-lock-function-name-face treemacs--find-keybind treemacs-common-helpful-hydra treemacs-create-file treemacs-create-dir treemacs-rename treemacs-delete treemacs-copy-file treemacs-move-file treemacs-refresh treemacs-set-width treemacs-copy-absolute-path-at-point treemacs-copy-relative-path-at-point treemacs-copy-project-path-at-point treemacs-resort treemacs-add-bookmark treemacs-edit-workspaces 12 treemacs-create-workspace treemacs-remove-workspace treemacs-rename-workspace treemacs-switch-workspace treemacs-set-fallback-workspace "\n%s\n%s (%s)\n\n%s ^^^^^^^^^^^^^│ %s ^^^^^^^^│ %s\n――――――――――――――――――――┼―――――――――――――――――――――――――――――┼―――――――――――――――――――――\n %s create file ^^^^│ %s Edit Workspaces ^^^^^^^^│ %s refresh\n %s create dir ^^^^│ %s Create Workspace ^^^^^^^^│ %s (re)set width\n %s rename ^^^^│ %s Remove Workspace ^^^^^^^^│ %s copy path absolute\n %s delete ^^^^│ %s Rename Workspace ^^^^^^^^│ %s copy path relative\n %s copy ^^^^│ %s Switch Workspace ^^^^^^^^│ %s copy root path\n %s move ^^^^│ %s Set Fallback ^^^^^^^^│ %s re-sort\n │ │ %s bookmark\n\n" s-split ":" eval defhydra treemacs--advanced-helpful-hydra (:exit nil :hint nil :columns 3) (#'treemacs-common-helpful-hydra :exit t) (#'treemacs-create-file) (#'treemacs-create-dir) (#'treemacs-rename) (#'treemacs-delete) (#'treemacs-copy-file) (#'treemacs-move-file) (#'treemacs-refresh) (#'treemacs-set-width) (#'treemacs-copy-absolute-path-at-point) (#'treemacs-copy-relative-path-at-point) (#'treemacs-copy-project-path-at-point) (#'treemacs-resort) (#'treemacs-add-bookmark) (#'treemacs-edit-workspaces) (#'treemacs-create-workspace) (#'treemacs-remove-workspace) (#'treemacs-rename-workspace) (#'treemacs-switch-workspace) (#'treemacs-set-fallback-workspace) (("ESC" nil "Exit")) treemacs--advanced-helpful-hydra/body nil message "[Treemacs]" ((:inherit warning :weight bold)) "The helpful hydra cannot be summoned without an existing treemacs buffer." add-hook pre-command-hook treemacs--restore-eldoc-after-log] 53 (#$ . 7088) nil]) (provide 'treemacs-hydras)