| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (byte-code "\300\301!\210\300\302!\207" [require ztree-util ztree-view] 2) | |
| 16 | #@86 Hidden files regexp. | |
| 17 | By default all filest starting with dot `.', including . and .. | |
| 18 | (defconst ztree-hidden-files-regexp "^\\." (#$ . 483)) | |
| 19 | #@83 Defines if move focus to opened window on hard-action command (RETURN) on a file. | |
| 20 | (defvar ztree-dir-move-focus nil (#$ . 629)) | |
| 21 | #@229 List of regexp file names to filter out. | |
| 22 | By default paths starting with dot (like .git) are ignored. | |
| 23 | One could add own filters in the following way: | |
| 24 | ||
| 25 | (setq-default ztree-dir-filter-list (cons "^.*\.pyc" ztree-dir-filter-list)) | |
| 26 | ||
| 27 | (defvar ztree-dir-filter-list (list ztree-hidden-files-regexp) (#$ . 763)) | |
| 28 | (make-variable-buffer-local 'ztree-dir-filter-list) | |
| 29 | #@43 Show or not files from the filtered list. | |
| 30 | (defvar ztree-dir-show-filtered-files nil (#$ . 1124)) | |
| 31 | (byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [make-variable-buffer-local ztree-dir-show-filtered-files custom-declare-face ztreep-header-face ((((type tty pc) (class color)) :foreground "lightblue" :weight bold) (((background dark)) (:height 1.2 :foreground "lightblue" :weight bold)) (t :height 1.2 :foreground "darkblue" :weight bold)) "*Face used for the header in Ztree buffer." :group Ztree font-lock-highlighting-faces] 8) | |
| 32 | (defvar ztreep-header-face 'ztreep-header-face) | |
| 33 | #@95 Non-nil if ZtreeDir mode is enabled. | |
| 34 | Use the command `ztreedir-mode' to change this variable. | |
| 35 | (defvar ztreedir-mode nil (#$ . 1724)) | |
| 36 | (make-variable-buffer-local 'ztreedir-mode) | |
| 37 | #@83 A minor mode for displaying the directory trees in text mode. | |
| 38 | ||
| 39 | (fn &optional ARG) | |
| 40 | (defalias 'ztreedir-mode #[256 "\301 \302=\203 ?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [ztreedir-mode current-message toggle prefix-numeric-value 0 run-hooks ztreedir-mode-hook ztreedir-mode-on-hook ztreedir-mode-off-hook called-interactively-p any " in current buffer" message "ZtreeDir mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 1907) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)]) | |
| 41 | (defvar ztreedir-mode-hook nil) | |
| 42 | (byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [ztreedir-mode-hook variable-documentation put "Hook run after entering or leaving `ztreedir-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4) | |
| 43 | #@29 Keymap for `ztreedir-mode'. | |
| 44 | (defvar ztreedir-mode-map (byte-code "\300\301B\302\303B\304\305B\306\307BF\310!\203 \211\202& \211<\203\" \311!\202& \312\313\"\207" ["H" ztree-dir-toggle-show-filtered-files ">" ztree-dir-narrow-to-dir "<" ztree-dir-widen-to-parent "d" ztree-dir-open-dired-at-point keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 5) (#$ . 2856)) | |
| 45 | (byte-code "\301\302\303\304\211%\207" [ztreedir-mode-map add-minor-mode ztreedir-mode " Dir" nil] 6) | |
| 46 | #@40 Insert the header to the ztree buffer. | |
| 47 | (defalias 'ztree-insert-buffer-header #[0 "`\300c\210\301c\210\302c\210\303`\304#\266\301c\207" ["Directory tree" "\n" "==============" set-text-properties (face ztreep-header-face)] 5 (#$ . 3341)]) | |
| 48 | #@72 Determines if the file with FILENAME should be visible. | |
| 49 | ||
| 50 | (fn FILENAME) | |
| 51 | (defalias 'ztree-file-not-hidden #[257 "\302!\211\303\230\206\f \211\304\230?\205% \206% \305\306\307\310\311\312!\313\"\314\315% \"?\207" [ztree-dir-show-filtered-files ztree-dir-filter-list ztree-file-short-name "." ".." cl-find-if make-byte-code 257 "\301\300\"\207" vconcat vector [string-match] 4 "\n\n(fn RX)"] 9 (#$ . 3587)]) | |
| 52 | #@153 Find the file at NODE. | |
| 53 | ||
| 54 | If HARD is non-nil, the file is opened in another window. | |
| 55 | Otherwise, the ztree window is used to find the file. | |
| 56 | ||
| 57 | (fn NODE HARD) | |
| 58 | (defalias 'ztree-find-file #[514 ";\2052 \301!\2052 \211\203 \203 \302!\207\211\203/ \303 r\304\305\306\307\310!\311\"\312$\216\302!*\207\313!\207" [ztree-dir-move-focus file-readable-p find-file-other-window internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 find-file] 9 (#$ . 4003)]) | |
| 59 | #@42 Toggle visibility of the filtered files. | |
| 60 | (defalias 'ztree-dir-toggle-show-filtered-files #[0 "?\301\203\f \302\202 \303\304P!\210\305 \207" [ztree-dir-show-filtered-files message "Show" "Hide" " filtered files" ztree-refresh-buffer] 3 (#$ . 4533) nil]) | |
| 61 | #@69 Return the list of files/directories for the given PATH. | |
| 62 | ||
| 63 | (fn PATH) | |
| 64 | (defalias 'ztree-dir-directory-files #[257 "\300\301\302\303\"\"\207" [cl-remove-if #[257 "\301\302\303\304#)\207" [inhibit-changing-match-data "/\\.\\.?$" nil t string-match] 8 "\n\n(fn X)"] directory-files full] 6 (#$ . 4796)]) | |
| 65 | #@72 Change the start node to NODE and update current directory. | |
| 66 | ||
| 67 | (fn NODE) | |
| 68 | (defalias 'ztree-dir-change-directory #[257 "\301!\210\211\211\207" [default-directory ztree-change-start-node] 3 (#$ . 5106)]) | |
| 69 | #@195 Interactive command to narrow the current directory buffer. | |
| 70 | The buffer is narrowed to the directory under the cursor. | |
| 71 | If the cursor is on a file, the buffer is narrowed to the parent directory. | |
| 72 | (defalias 'ztree-dir-narrow-to-dir #[0 "\300 \301!\302!\303!\203 \304!\202 \211\205 \304\301!!\207" [line-number-at-pos ztree-find-node-in-line ztree-get-parent-for-line file-directory-p ztree-dir-change-directory] 6 (#$ . 5314) nil]) | |
| 73 | #@239 Interactive command to widen the current directory buffer to parent. | |
| 74 | The buffer is widened to the parent of the directory of the current buffer. | |
| 75 | This allows to jump to the parent directory if this directory is one level | |
| 76 | up of the opened. | |
| 77 | (defalias 'ztree-dir-widen-to-parent #[0 "\301\302!!\211\205 \303!\207" [ztree-start-node file-name-directory directory-file-name ztree-dir-change-directory] 4 (#$ . 5758) nil]) | |
| 78 | #@112 If the point is on a directory, open DIRED with this directory. | |
| 79 | Otherwise open DIRED with the parent directory | |
| 80 | (defalias 'ztree-dir-open-dired-at-point #[0 "\300 \301!\302!\203 \303!\203 \304!\202! \211\205! \304\301!!\207" [line-number-at-pos ztree-find-node-in-line ztree-get-parent-for-line file-directory-p dired] 6 (#$ . 6185) nil]) | |
| 81 | #@84 Create an interactive buffer with the directory tree of the PATH given. | |
| 82 | ||
| 83 | (fn PATH) | |
| 84 | (defalias 'ztree-dir #[257 "\300!\205& \301!\205& \302\303Q\304\305\306!!\307\310\311\301\312\313\314\315&\n\210\316 \262\207" [file-exists-p file-directory-p "*Directory " " tree*" ztree-view expand-file-name substitute-in-file-name ztree-file-not-hidden ztree-insert-buffer-header ztree-file-short-name string-equal ztree-dir-directory-files nil ztree-find-file ztreedir-mode] 13 (#$ . 6537) "DDirectory: "]) | |
| 85 | (provide 'ztree-dir) | |
