| 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 | (require 'ztree-util) | |
| 16 | #@60 Mark files as different if their permissions are different | |
| 17 | (defvar ztree-diff-consider-file-permissions nil (#$ . 430)) | |
| 18 | #@192 Command-line options for the diff program used as a diff backend. These options are added to default '-q' option. | |
| 19 | Should be a list of strings. | |
| 20 | Example: | |
| 21 | (setq ztree-diff-options '("-w" "-i")) | |
| 22 | (defvar ztree-diff-additional-options nil (#$ . 557)) | |
| 23 | #@75 Function which determines if the node should be excluded from comparison. | |
| 24 | (defvar ztree-diff-model-ignore-fun nil (#$ . 808)) | |
| 25 | (make-variable-buffer-local 'ztree-diff-model-ignore-fun) | |
| 26 | #@79 Function which should be called whenever the progress indications is updated. | |
| 27 | (defvar ztree-diff-model-progress-fun nil (#$ . 998)) | |
| 28 | (make-variable-buffer-local 'ztree-diff-model-progress-fun) | |
| 29 | #@22 Update the progress. | |
| 30 | (defalias 'ztree-diff-model-update-progress #[0 "\205 \207" [ztree-diff-model-progress-fun] 1 (#$ . 1196)]) | |
| 31 | #@74 compiler-macro for inlining `ztree-diff-node-p'. | |
| 32 | ||
| 33 | (fn CL-WHOLE-ARG CL-X) | |
| 34 | (defalias 'ztree-diff-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-p (and (memq (type-of cl-x) cl-struct-ztree-diff-node-tags) t)) nil] 9 (#$ . 1335)]) | |
| 35 | (put 'ztree-diff-node-p 'compiler-macro 'ztree-diff-node-p--cmacro) | |
| 36 | #@13 | |
| 37 | ||
| 38 | (fn CL-X) | |
| 39 | (defalias 'ztree-diff-node-p #[257 "\301!>\205 \302\207" [cl-struct-ztree-diff-node-tags type-of t] 3 (#$ . 1699)]) | |
| 40 | (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put ztree-diff-node-p side-effect-free error-free put ztree-diff-node cl-deftype-satisfies] 5) | |
| 41 | #@79 compiler-macro for inlining `ztree-diff-node-parent'. | |
| 42 | ||
| 43 | (fn CL-WHOLE-ARG CL-X) | |
| 44 | (defalias 'ztree-diff-node-parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-parent (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 1)) nil] 9 (#$ . 1993)]) | |
| 45 | (put 'ztree-diff-node-parent 'compiler-macro 'ztree-diff-node-parent--cmacro) | |
| 46 | #@327 Access slot "parent" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 47 | ||
| 48 | (fn CL-X) | |
| 49 | (defalias 'ztree-diff-node-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1] 5 (#$ . 2425)]) | |
| 50 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-parent side-effect-free t] 4) | |
| 51 | #@82 compiler-macro for inlining `ztree-diff-node-left-path'. | |
| 52 | ||
| 53 | (fn CL-WHOLE-ARG CL-X) | |
| 54 | (defalias 'ztree-diff-node-left-path--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-left-path (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 2)) nil] 9 (#$ . 3048)]) | |
| 55 | (put 'ztree-diff-node-left-path 'compiler-macro 'ztree-diff-node-left-path--cmacro) | |
| 56 | #@330 Access slot "left-path" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 57 | ||
| 58 | (fn CL-X) | |
| 59 | (defalias 'ztree-diff-node-left-path #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2] 5 (#$ . 3495)]) | |
| 60 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-left-path side-effect-free t] 4) | |
| 61 | #@83 compiler-macro for inlining `ztree-diff-node-right-path'. | |
| 62 | ||
| 63 | (fn CL-WHOLE-ARG CL-X) | |
| 64 | (defalias 'ztree-diff-node-right-path--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-right-path (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 3)) nil] 9 (#$ . 4127)]) | |
| 65 | (put 'ztree-diff-node-right-path 'compiler-macro 'ztree-diff-node-right-path--cmacro) | |
| 66 | #@331 Access slot "right-path" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 67 | ||
| 68 | (fn CL-X) | |
| 69 | (defalias 'ztree-diff-node-right-path #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 3] 5 (#$ . 4579)]) | |
| 70 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-right-path side-effect-free t] 4) | |
| 71 | #@83 compiler-macro for inlining `ztree-diff-node-short-name'. | |
| 72 | ||
| 73 | (fn CL-WHOLE-ARG CL-X) | |
| 74 | (defalias 'ztree-diff-node-short-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-short-name (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 4)) nil] 9 (#$ . 5214)]) | |
| 75 | (put 'ztree-diff-node-short-name 'compiler-macro 'ztree-diff-node-short-name--cmacro) | |
| 76 | #@331 Access slot "short-name" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 77 | ||
| 78 | (fn CL-X) | |
| 79 | (defalias 'ztree-diff-node-short-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4] 5 (#$ . 5666)]) | |
| 80 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-short-name side-effect-free t] 4) | |
| 81 | #@89 compiler-macro for inlining `ztree-diff-node-right-short-name'. | |
| 82 | ||
| 83 | (fn CL-WHOLE-ARG CL-X) | |
| 84 | (defalias 'ztree-diff-node-right-short-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-right-short-name (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 5)) nil] 9 (#$ . 6301)]) | |
| 85 | (put 'ztree-diff-node-right-short-name 'compiler-macro 'ztree-diff-node-right-short-name--cmacro) | |
| 86 | #@337 Access slot "right-short-name" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 87 | ||
| 88 | (fn CL-X) | |
| 89 | (defalias 'ztree-diff-node-right-short-name #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 5] 5 (#$ . 6783)]) | |
| 90 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-right-short-name side-effect-free t] 4) | |
| 91 | #@81 compiler-macro for inlining `ztree-diff-node-children'. | |
| 92 | ||
| 93 | (fn CL-WHOLE-ARG CL-X) | |
| 94 | (defalias 'ztree-diff-node-children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-children (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 6)) nil] 9 (#$ . 7436)]) | |
| 95 | (put 'ztree-diff-node-children 'compiler-macro 'ztree-diff-node-children--cmacro) | |
| 96 | #@329 Access slot "children" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 97 | ||
| 98 | (fn CL-X) | |
| 99 | (defalias 'ztree-diff-node-children #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 6] 5 (#$ . 7878)]) | |
| 100 | (byte-code "\300\301\302\303#\300\207" [function-put ztree-diff-node-children side-effect-free t] 4) | |
| 101 | #@82 compiler-macro for inlining `ztree-diff-node-different'. | |
| 102 | ||
| 103 | (fn CL-WHOLE-ARG CL-X) | |
| 104 | (defalias 'ztree-diff-node-different--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block ztree-diff-node-different (or (ztree-diff-node-p cl-x) (signal 'wrong-type-argument (list 'ztree-diff-node cl-x))) (aref cl-x 7)) nil] 9 (#$ . 8507)]) | |
| 105 | (put 'ztree-diff-node-different 'compiler-macro 'ztree-diff-node-different--cmacro) | |
| 106 | #@330 Access slot "different" of `(ztree-diff-node (:constructor) (:constructor ztree-diff-node-create (parent left-path right-path different &aux (short-name (ztree-file-short-name (or left-path right-path))) (right-short-name (if (and left-path right-path) (ztree-file-short-name right-path) short-name)))))' struct CL-X. | |
| 107 | ||
| 108 | (fn CL-X) | |
| 109 | (defalias 'ztree-diff-node-different #[257 "\301!>\204 \302\303\304D\"\210\211\305H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 7] 5 (#$ . 8954)]) | |
| 110 | (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put ztree-diff-node-different side-effect-free t defalias copy-ztree-diff-node copy-sequence] 4) | |
| 111 | #@158 compiler-macro for inlining `make-ztree-diff-node'. | |
| 112 | ||
| 113 | (fn CL-WHOLE &cl-quote &key PARENT LEFT-PATH RIGHT-PATH SHORT-NAME RIGHT-SHORT-NAME CHILDREN DIFFERENT) | |
| 114 | (defalias 'make-ztree-diff-node--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y \211@\310>\203A \211AA\262\202. \311 >A@\203P \312\262\202. \313\314@\"\210\202. \210\315\316\317\312\f\312\f\f\f\f\f\f\f&\f\207" [plist-member :parent :left-path :right-path :short-name :right-short-name :children :different (:parent :left-path :right-path :short-name :right-short-name :children :different :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :left-path :right-path :short-name :right-short-name :children :different)" cl--defsubst-expand (parent left-path right-path short-name right-short-name children different) (cl-block make-ztree-diff-node (record 'ztree-diff-node parent left-path right-path short-name right-short-name children different))] 22 (#$ . 9641)]) | |
| 115 | (put 'make-ztree-diff-node 'compiler-macro 'make-ztree-diff-node--cmacro) | |
| 116 | #@138 Constructor for objects of type `ztree-diff-node'. | |
| 117 | ||
| 118 | (fn &key PARENT LEFT-PATH RIGHT-PATH SHORT-NAME RIGHT-SHORT-NAME CHILDREN DIFFERENT) | |
| 119 | (defalias 'make-ztree-diff-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\211\203Y \211@\310>\203A \211AA\262\202. \311 >A@\203P \312\262\202. \313\314@\"\210\202. \210\315\316&\207" [plist-member :parent :left-path :right-path :short-name :right-short-name :children :different (:parent :left-path :right-path :short-name :right-short-name :children :different :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:parent :left-path :right-path :short-name :right-short-name :children :different)" record ztree-diff-node] 17 (#$ . 10764)]) | |
| 120 | (byte-code "\300\301\302\303#\300\207" [function-put make-ztree-diff-node side-effect-free t] 4) | |
| 121 | #@96 Constructor for objects of type `ztree-diff-node'. | |
| 122 | ||
| 123 | (fn PARENT LEFT-PATH RIGHT-PATH DIFFERENT) | |
| 124 | (defalias 'ztree-diff-node-create #[1028 "\300\206 !\203 \203 \300!\202 \211\301\302\303\n&\207" [ztree-file-short-name record ztree-diff-node nil] 15 (#$ . 11652)]) | |
| 125 | (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put ztree-diff-node-create side-effect-free t cl-struct-define ztree-diff-node nil cl-structure-object record ((cl-tag-slot) (parent) (left-path) (right-path) (short-name) (right-short-name) (children) (different)) cl-struct-ztree-diff-node-tags] 11) | |
| 126 | #@78 Determine if the NODE should be excluded from comparison results. | |
| 127 | ||
| 128 | (fn NODE) | |
| 129 | (defalias 'ztree-diff-model-ignore-p #[257 "\205 !\207" [ztree-diff-model-ignore-fun] 3 (#$ . 12278)]) | |
| 130 | #@66 Construct the string with contents of the NODE given. | |
| 131 | ||
| 132 | (fn NODE) | |
| 133 | (defalias 'ztree-diff-node-to-string #[257 "\301\302!>\204 \303\304\305D\"\210\306H\307\211\203R \211@\310\302!>\204, \303\304\305D\"\210\311H\312\302!>\204C \303\304\305D\"\210\313H!\260\262A\266\202\202 \210\314\302!>\204d \303\304\305D\"\210\311H\315\316\302 !>\204| \303\304\305 D\"\210\317H!\315\320 \302\f!>\204\226 \303\304\305D\"\210 \313H!\315\321\f\302!>\204\260 \303\304\305D\"\210\322H!\315\323\302!>\204\312 \303\304\305D\"\210\324H!\315\325\315\260\207" [cl-struct-ztree-diff-node-tags #[257 "\211\203= \211;\203\n \207\211\301=\203 \302\207\211\303=\203 \304\207\211\305=\203\" \306\207\211\307=\203* \310\207\311!>\2049 \312\313\314D\"\210\211\315H\207\316\207" [cl-struct-ztree-diff-node-tags new "new" diff "different" ignore "ignored" same "same" type-of signal wrong-type-argument ztree-diff-node 4 "(empty)"] 5 "\n\n(fn X)"] type-of signal wrong-type-argument ztree-diff-node 6 "" "\n * " 4 ": " 7 "Node: " "\n" " * Parent: " 1 " * Status: " " * Left path: " 2 " * Right path: " 3 " * Children: "] 22 (#$ . 12468)]) | |
| 134 | #@121 Return the short name of the NODE given. | |
| 135 | If the RIGHT-SIDE is true, take the right leaf | |
| 136 | ||
| 137 | (fn NODE &optional RIGHT-SIDE) | |
| 138 | (defalias 'ztree-diff-node-short-name-wrapper #[513 "\211\204 \301!>\204 \302\303\304D\"\210\305H\207\301!>\204& \302\303\304D\"\210\306H\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4 5] 6 (#$ . 13645)]) | |
| 139 | #@51 Determines if the NODE is a directory. | |
| 140 | ||
| 141 | (fn NODE) | |
| 142 | (defalias 'ztree-diff-node-is-directory #[257 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\203. \307!\2021 \307!\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 3 file-directory-p] 6 (#$ . 14029)]) | |
| 143 | #@181 Determine the side there the file is present for NODE. | |
| 144 | Return BOTH if the file present on both sides; | |
| 145 | LEFT if only on the left side and | |
| 146 | RIGHT if only on the right side. | |
| 147 | ||
| 148 | (fn NODE) | |
| 149 | (defalias 'ztree-diff-node-side #[257 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\2030 \211\2030 \307\2029 \2038 \310\2029 \311\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 2 3 both left right] 6 (#$ . 14369)]) | |
| 150 | #@60 Determines if NODE1 and NODE2 are equal. | |
| 151 | ||
| 152 | (fn NODE1 NODE2) | |
| 153 | (defalias 'ztree-diff-node-equal #[514 "\301!>\204 \302\303\304D\"\210\305H\301!>\204! \302\303\304D\"\210\305H\230\205u \301!>\2047 \302\303\304D\"\210\306H\301!>\204I \302\303\304D\"\210\306H\230\205u \301!>\204_ \302\303\304D\"\210\307H\301!>\204q \302\303\304D\"\210\307H\230\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 4 2 3] 7 (#$ . 14852)]) | |
| 154 | #@90 Compare files FILE1 and FILE2 using external diff. | |
| 155 | Returns t if equal. | |
| 156 | ||
| 157 | (fn FILE1 FILE2) | |
| 158 | (defalias 'ztree-diff-model-files-equal #[514 "\303\"\204 \304\305!\210\306!\306!\307\310!8\307\310!8U\203H \2031 \311\310!8\311\310!8\230\203H \312\313 \314\211\211\315\316\n\n\nD\"B&\317U\204L \320\202M \321\207" [ztree-diff-consider-file-permissions diff-command ztree-diff-additional-options ztree-same-host-p error "Compared files are not on the same host" ztree-untrampify-filename 7 file-attributes 8 apply process-file nil "-q" append 0 diff same] 15 (#$ . 15334)]) | |
| 159 | #@91 Return the list of full paths of files in a directory DIR. | |
| 160 | Filters out . and .. | |
| 161 | ||
| 162 | (fn DIR) | |
| 163 | (defalias 'ztree-directory-files #[257 "\300\301\302\303\"\"\207" [ztree-filter #[257 "\300!\211\301\230\206\f \211\302\230?\207" [ztree-file-short-name "." ".."] 4 "\n\n(fn FILE)"] directory-files full] 6 (#$ . 15916)]) | |
| 164 | #@111 Rescan the NODE. | |
| 165 | The node is a either a file or directory with both | |
| 166 | left and right parts existing. | |
| 167 | ||
| 168 | (fn NODE) | |
| 169 | (defalias 'ztree-diff-model-partial-rescan #[257 "\301!\203 \302!\210\202\277 \303!>\204 \304\305\306D\"\210\211\211\307\310!\204\217 \311\303!>\2046 \304\305\306D\"\210\307H\312\"\204\217 \311\303\211!>\204Q \304\305\306D\"\210\313H!>\204u \304\305\306\303!>\204n \304\305\306\nD\"\210\313HD\"\210\303!>\204\205 \304\305\306D\"\210\313H\307H\312\"\203\223 \312\202\274 \314\303!>\204\244 \304\305\306D\"\210\315H\303!>\204\270 \304\305\306D\"\210\316H\"I\266\317!\207" [cl-struct-ztree-diff-node-tags ztree-diff-node-is-directory ztree-diff-node-recreate type-of signal wrong-type-argument ztree-diff-node 7 ztree-diff-model-ignore-p eql ignore 1 ztree-diff-model-files-equal 2 3 ztree-diff-node-update-all-parents-diff] 12 (#$ . 16236)]) | |
| 170 | #@197 Create a subtree with given PARENT for the given PATH. | |
| 171 | Argument SIDE either `left' or `right' side. | |
| 172 | Argument DIFF different status to be assigned to all created nodes. | |
| 173 | ||
| 174 | (fn PARENT PATH SIDE DIFF) | |
| 175 | (defalias 'ztree-diff-model-subtree #[1028 "\301!\302\211\203p \211@\303!\203O \304\305=\205 \306=\205$ $\307 $\310!>\204> \311\312\313D\"\210\211\314I\266B\262\266\202i \304\305=\205Z \306=\205b $B\262A\266\202\202 \210\207" [cl-struct-ztree-diff-node-tags ztree-directory-files nil file-directory-p ztree-diff-node-create left right ztree-diff-model-subtree type-of signal wrong-type-argument ztree-diff-node 6] 14 (#$ . 17137)]) | |
| 176 | #@68 Set the diff status for the NODE based on its children. | |
| 177 | ||
| 178 | (fn NODE) | |
| 179 | (defalias 'ztree-diff-node-update-diff-from-children #[257 "\301\302!>\204 \303\304\305D\"\210\306H\307\"?\205K \310\311\302!>\204* \303\304\305D\"\210\312H\313\314\315\316&\302!>\204B \303\304\305D\"\210\211\306I\262\262\207" [cl-struct-ztree-diff-node-tags eql type-of signal wrong-type-argument ztree-diff-node 7 ignore cl-reduce ztree-diff-model-update-diff 6 :initial-value same :key ztree-diff-node-different] 8 (#$ . 17814)]) | |
| 180 | #@69 Recursively update all parents diff status for the NODE. | |
| 181 | ||
| 182 | (fn NODE) | |
| 183 | (defalias 'ztree-diff-node-update-all-parents-diff #[257 "\211\301!>\204 \302\303\304D\"\210\211\305H\211\262\205 \306!\210\202 \207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1 ztree-diff-node-update-diff-from-children] 6 (#$ . 18337)]) | |
| 184 | #@118 Get the diff status depending if OLD or NEW is not nil. | |
| 185 | If the OLD is `ignore', do not change anything | |
| 186 | ||
| 187 | (fn OLD NEW) | |
| 188 | (defalias 'ztree-diff-model-update-diff #[514 "\300\301\"\203 \301\207\300\301\"\203 \207\300\302\"\204 \300\302\"\203\" \302\207\300\303\"\203+ \303\207\207" [eql ignore diff new] 5 (#$ . 18699)]) | |
| 189 | #@193 Recursively update diff status of all children of NODE. | |
| 190 | This function will traverse through all children recursively | |
| 191 | setting status from the NODE, unless they have an ignore status | |
| 192 | ||
| 193 | (fn NODE) | |
| 194 | (defalias 'ztree-diff-node-update-diff-from-parent #[257 "\301!>\204 \302\303\304D\"\210\211\305H\301!>\204! \302\303\304D\"\210\306H\307\310\311\312\313\314!\315\"\306\316%\"\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 7 6 mapc make-byte-code 257 "\302\300\303\"\204' \302\300\303\"\206# \302\304! >\204 \305\306\307D\"\210\310H\303\"?\205@ \304! >\2046 \305\306\307D\"\210\211\211\310\300I\266\311!\207" vconcat vector [cl-struct-ztree-diff-node-tags eql ignore type-of signal wrong-type-argument ztree-diff-node 7 ztree-diff-node-update-diff-from-parent] "\n\n(fn CHILD)"] 10 (#$ . 19031)]) | |
| 195 | #@141 Find in LIST of files the file with name SHORTNAME. | |
| 196 | If IS-DIR searching for directories; assume files otherwise | |
| 197 | ||
| 198 | (fn LIST SHORTNAME IS-DIR) | |
| 199 | (defalias 'ztree-diff-model-find-in-files #[771 "\300\301\302\303\304\305\"\306\"\307\310%\"\207" [ztree-find make-byte-code 257 "\302!\300\230\205 \301\303!=\207" vconcat vector [ztree-file-short-name file-directory-p] 4 "\n\n(fn X)"] 12 (#$ . 19887)]) | |
| 200 | #@164 Determine if the NODE and its children should be ignored. | |
| 201 | If no parent - never ignore; | |
| 202 | if in ignore list - ignore | |
| 203 | if parent has ignored status - ignore | |
| 204 | ||
| 205 | (fn NODE) | |
| 206 | (defalias 'ztree-diff-model-should-ignore #[257 "\301!>\204 \302\303\304D\"\210\211\305H\211\2051 \306\301!>\204& \302\303\304D\"\210\307H\310\"\2061 \311!\207" [cl-struct-ztree-diff-node-tags type-of signal wrong-type-argument ztree-diff-node 1 eql 7 ignore ztree-diff-model-ignore-p] 7 (#$ . 20296)]) | |
| 207 | #@83 Traverse 2 paths defined in the NODE updating its children and status. | |
| 208 | ||
| 209 | (fn NODE) | |
| 210 | (defalias 'ztree-diff-node-recreate #[257 "\301\302!>\204 \303\304\305D\"\210\306H!\301\302!>\204$ \303\304\305D\"\210\307H!\310!\211\2033 \311\2024 \312\313\314 \210\203T \302!>\204M \303\304\305D\"\210\211\315\311I\266\211\203,\211@\316!\317!\320#\321 \n$\310!\203\213 \302!>\204\204 \303\304\305D\"\210\211\211\315\311I\266\203\230 \322 \323\324$\262\n\203\323 \204\323 \302!>\204\257 \303\304\305D\"\210\211\211\325\326 \327\302!>\204\310 \303\304\305\nD\"\210\315H$I\266\202 \203\204\330\302!>\204\353 \303\304\305D\"\210\315H\311\"\204\302!>\204\303\304\305D\"\210\211\211\315\331\"I\266\202 \203 \203 \332!\210\211B\262\266A\266\202\202U \210\211\203\235\211@\317!\321 \313$\310!\203[\302!>\204T\303\304\305D\"\210\211\211\315\311I\266\203\217\302!>\204n\303\304\305D\"\210\211\211\325\326\333\302!>\204\207\303\304\305\nD\"\210\315H$I\266\211B\262\266A\266\202\202.\210\204\302\302!>\204\263\303\304\305D\"\210\211\315\334\335\336\337\340\341&I\266\302!>\204\323\303\304\305D\"\210\211\325I\262\207" [cl-struct-ztree-diff-node-tags ztree-directory-files type-of signal wrong-type-argument ztree-diff-node 2 3 ztree-diff-model-should-ignore ignore new nil ztree-diff-model-update-progress 7 ztree-file-short-name file-directory-p ztree-diff-model-find-in-files ztree-diff-node-create cl-delete :test string-equal 6 ztree-diff-model-subtree left eql ztree-diff-model-files-equal ztree-diff-node-recreate right cl-reduce ztree-diff-model-update-diff :initial-value same :key ztree-diff-node-different] 23 (#$ . 20777)]) | |
| 211 | #@30 Refresh the NODE. | |
| 212 | ||
| 213 | (fn NODE) | |
| 214 | (defalias 'ztree-diff-model-update-node #[257 "\300!\207" [ztree-diff-node-recreate] 3 (#$ . 22533)]) | |
| 215 | #@212 Set the buffer-local ignore function to IGNORE-P. | |
| 216 | Ignore function is a function of one argument (ztree-diff-node) | |
| 217 | which returns t if the node should be ignored (like files starting | |
| 218 | with dot etc). | |
| 219 | ||
| 220 | (fn IGNORE-P) | |
| 221 | (defalias 'ztree-diff-model-set-ignore-fun #[257 "\211\211\207" [ztree-diff-model-ignore-fun] 3 (#$ . 22672)]) | |
| 222 | #@171 Setter for the buffer-local PROGRESS-FUN callback. | |
| 223 | This callback is called to indicate the ongoing activity. | |
| 224 | Callback is a function without arguments. | |
| 225 | ||
| 226 | (fn PROGRESS-FUN) | |
| 227 | (defalias 'ztree-diff-model-set-progress-fun #[257 "\211\211\207" [ztree-diff-model-progress-fun] 3 (#$ . 23002)]) | |
| 228 | (provide 'ztree-diff-model) | |
