;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require dash treemacs-faces treemacs-interface] 2) #@45 Header button to close the treemacs window. (defconst treemacs-header-close-button (byte-code "\300\301\302\303 \304\305\306#\210\211\262\307\310%\207" [propertize "(❌)" local-map make-sparse-keymap define-key [header-line mouse-1] #[257 "\300\301!\211@\262!\207" [delete-window event-start] 4 "\n\n(fn EVENT)" "e"] face treemacs-header-button-face] 8) (#$ . 192)) #@54 Header button to open a project administration menu. (defconst treemacs-header-projects-button (byte-code "\300\301\302\303 \304\305\306#\210\211\262\307\310%\207" [propertize "(P)" local-map make-sparse-keymap define-key [header-line mouse-1] #[257 "\300\301\302\"\303\"\211\205\304\305\306\307\"\"!\207" [easy-menu-create-menu nil (["Add Project" treemacs-add-project] ["Add Projectile Project" treemacs-projectile :visible (featurep 'treemacs-projectile)] ["Remove Project" treemacs-remove-project-from-workspace]) x-popup-menu call-interactively lookup-key apply vector] 9 "\n\n(fn EVENT)" "e"] face treemacs-header-button-face] 8) (#$ . 569)) #@56 Header button to open a workspace administration menu. (defconst treemacs-header-workspace-button (byte-code "\300\301\302\303 \304\305\306#\210\211\262\307\310%\207" [propertize "(W)" local-map make-sparse-keymap define-key [header-line mouse-1] #[257 "\300\301\302\"\303\"\211\205\304\305\306\307\"\"!\207" [easy-menu-create-menu nil (["Edit Workspaces" treemacs-edit-workspaces] ["Create Workspace" treemacs-create-workspace] ["Remove Workspace" treemacs-remove-workspace] ["Rename Workspace" treemacs-rename-workspace] ["Switch Workspace" treemacs-switch-workspace] ["Set Fallback Workspace" treemacs-set-fallback-workspace]) x-popup-menu call-interactively lookup-key apply vector] 9 "\n\n(fn EVENT)" "e"] face treemacs-header-button-face] 8) (#$ . 1231)) #@66 Header button to open a minor-modes/toggles administration menu. (defconst treemacs-header-toggles-button (byte-code "\300\301\302\303 \304\305\306#\210\211\262\307\310%\207" [propertize "(T)" local-map make-sparse-keymap define-key [header-line mouse-1] #[257 "\304\305\306\307\310\311\203\312\202\313\"\314B\"\306\307\310\315 \203\312\202 \313\"\316B\"\306\307\310\317\n\2030\312\2021\313\"\320B\"\306\307\310\321 \203A\312\202B\313\"\322B\"F\"\323\"\211\205Y\324\325\306\307\"\"!\207" [treemacs-show-hidden-files treemacs-follow-mode treemacs-filewatch-mode treemacs-fringe-indicator-mode easy-menu-create-menu nil apply vector format "Dotfile Visibility (Currently %s)" "Enabled" "Disabled" (treemacs-toggle-show-dotfiles) "Follow-Mode (Currently %s)" (treemacs-follow-mode) "Filewatch-Mode (Currently %s)" (treemacs-filewatch-mode) "Fringe-Indicator-Mode (Currently %s)" (treemacs-fringe-indicator-mode) x-popup-menu call-interactively lookup-key] 11 "\n\n(fn EVENT)" "e"] face treemacs-header-button-face] 8) (#$ . 2006)) #@234 Possible value setting for `treemacs-header-line-format'. Consists for 4 different buttons: - `treemacs-header-close-button' - `treemacs-header-projects-button' - `treemacs-header-workspace-button' - `treemacs-header-toggles-button' (defconst treemacs-header-buttons-format (concat #1=" " treemacs-header-close-button #1# treemacs-header-projects-button #1# treemacs-header-workspace-button #1# treemacs-header-toggles-button) (#$ . 3060)) (provide 'treemacs-header-line)