mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 76bbd07de7add0f9d13c6914f158d19630fe2f62
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)