;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require ht dash s] 2) (defvar treemacs-dom nil nil) (make-variable-buffer-local 'treemacs-dom) #@76 compiler-macro for inlining `treemacs-dom-node-p'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node-p (and (memq (type-of cl-x) cl-struct-treemacs-dom-node-tags) t)) nil] 9 (#$ . 236)]) (put 'treemacs-dom-node-p 'compiler-macro 'treemacs-dom-node-p--cmacro) #@13 (fn CL-X) (defalias 'treemacs-dom-node-p #[257 "\301!>\205 \302\207" [cl-struct-treemacs-dom-node-tags type-of t] 3 (#$ . 611)]) (byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put treemacs-dom-node-p side-effect-free error-free put treemacs-dom-node cl-deftype-satisfies] 5) #@79 compiler-macro for inlining `treemacs-dom-node->key'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->key--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->key (progn (aref cl-x 1))) nil] 9 (#$ . 912)]) (put 'treemacs-dom-node->key 'compiler-macro 'treemacs-dom-node->key--cmacro) #@66 Access slot "key" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->key #[257 "\211\300H\207" [1] 3 (#$ . 1261)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->key side-effect-free t] 4) #@82 compiler-macro for inlining `treemacs-dom-node->parent'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->parent--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->parent (progn (aref cl-x 2))) nil] 9 (#$ . 1507)]) (put 'treemacs-dom-node->parent 'compiler-macro 'treemacs-dom-node->parent--cmacro) #@69 Access slot "parent" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->parent #[257 "\211\300H\207" [2] 3 (#$ . 1872)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->parent side-effect-free t] 4) #@84 compiler-macro for inlining `treemacs-dom-node->children'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->children--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->children (progn (aref cl-x 3))) nil] 9 (#$ . 2127)]) (put 'treemacs-dom-node->children 'compiler-macro 'treemacs-dom-node->children--cmacro) #@71 Access slot "children" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->children #[257 "\211\300H\207" [3] 3 (#$ . 2502)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->children side-effect-free t] 4) #@89 compiler-macro for inlining `treemacs-dom-node->reentry-nodes'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->reentry-nodes--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->reentry-nodes (progn (aref cl-x 4))) nil] 9 (#$ . 2763)]) (put 'treemacs-dom-node->reentry-nodes 'compiler-macro 'treemacs-dom-node->reentry-nodes--cmacro) #@76 Access slot "reentry-nodes" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->reentry-nodes #[257 "\211\300H\207" [4] 3 (#$ . 3163)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->reentry-nodes side-effect-free t] 4) #@84 compiler-macro for inlining `treemacs-dom-node->position'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->position--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->position (progn (aref cl-x 5))) nil] 9 (#$ . 3439)]) (put 'treemacs-dom-node->position 'compiler-macro 'treemacs-dom-node->position--cmacro) #@71 Access slot "position" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->position #[257 "\211\300H\207" [5] 3 (#$ . 3814)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->position side-effect-free t] 4) #@88 compiler-macro for inlining `treemacs-dom-node->refresh-flag'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->refresh-flag--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->refresh-flag (progn (aref cl-x 6))) nil] 9 (#$ . 4075)]) (put 'treemacs-dom-node->refresh-flag 'compiler-macro 'treemacs-dom-node->refresh-flag--cmacro) #@75 Access slot "refresh-flag" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->refresh-flag #[257 "\211\300H\207" [6] 3 (#$ . 4470)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->refresh-flag side-effect-free t] 4) #@89 compiler-macro for inlining `treemacs-dom-node->collapse-keys'. (fn CL-WHOLE-ARG CL-X) (defalias 'treemacs-dom-node->collapse-keys--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block treemacs-dom-node->collapse-keys (progn (aref cl-x 7))) nil] 9 (#$ . 4743)]) (put 'treemacs-dom-node->collapse-keys 'compiler-macro 'treemacs-dom-node->collapse-keys--cmacro) #@76 Access slot "collapse-keys" of `treemacs-dom-node' struct CL-X. (fn CL-X) (defalias 'treemacs-dom-node->collapse-keys #[257 "\211\300H\207" [7] 3 (#$ . 5143)]) (byte-code "\300\301\302\303#\304\305\306\"\207" [function-put treemacs-dom-node->collapse-keys side-effect-free t defalias copy-treemacs-dom-node copy-sequence] 4) #@159 compiler-macro for inlining `treemacs-dom-node->create!'. (fn CL-WHOLE &cl-quote &key KEY PARENT CHILDREN REENTRY-NODES POSITION REFRESH-FLAG COLLAPSE-KEYS) (defalias 'treemacs-dom-node->create!--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\313\f\313\f\f\f\f\f\f\f&\f\207" [plist-member :key :parent :children :reentry-nodes :position :refresh-flag :collapse-keys cl--defsubst-expand (key parent children reentry-nodes position refresh-flag collapse-keys) (cl-block treemacs-dom-node->create! (record 'treemacs-dom-node key parent children reentry-nodes position refresh-flag collapse-keys)) nil] 22 (#$ . 5476)]) (put 'treemacs-dom-node->create! 'compiler-macro 'treemacs-dom-node->create!--cmacro) #@135 Constructor for objects of type `treemacs-dom-node'. (fn &key KEY PARENT CHILDREN REENTRY-NODES POSITION REFRESH-FLAG COLLAPSE-KEYS) (defalias 'treemacs-dom-node->create! #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311&\207" [plist-member :key :parent :children :reentry-nodes :position :refresh-flag :collapse-keys record treemacs-dom-node] 17 (#$ . 6267)]) (byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put treemacs-dom-node->create! side-effect-free t cl-struct-define treemacs-dom-node nil cl-structure-object record ((cl-tag-slot) (key) (parent) (children) (reentry-nodes) (position) (refresh-flag) (collapse-keys)) cl-struct-treemacs-dom-node-tags] 11) #@94 Set `position' field of SELF to VALUE. SELF: Dom Node Struct VALUE: Marker (fn SELF VALUE) (defalias 'treemacs-dom-node->set-position! #[514 "\211\300I\207" [5] 6 (#$ . 7050)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->set-position! compiler-macro treemacs-dom-node->set-position!--inliner] 4) #@32 (fn INLINE--FORM SELF VALUE) (defalias 'treemacs-dom-node->set-position!--inliner #[771 "\3002Q\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306DE=\2032\211\266\203\202;\307DC\"\266\203=\203G\211\266\203\202P\307DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" "value" setf treemacs-dom-node->position macroexp-let*] 11 (#$ . 7384)]) #@16 Reset the dom. (defalias 'treemacs--reset-dom #[0 "\301\302\303\304\305$\211\207" [treemacs-dom make-hash-table :size 1000 :test equal] 5 (#$ . 7793)]) #@54 Get node with KEY, if any. KEY: Node Path (fn KEY) (defalias 'treemacs-find-in-dom #[257 "\301\302#\207" [treemacs-dom gethash nil] 5 (#$ . 7952)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put treemacs-find-in-dom compiler-macro treemacs-find-in-dom--inliner side-effect-free t] 5) #@25 (fn INLINE--FORM KEY) (defalias 'treemacs-find-in-dom--inliner #[514 "\3002,\211\301!\203\211\202\302\303!\304\305E=\203\"\211\266\203\202+\306DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "key" ht-get treemacs-dom macroexp-let*] 8 (#$ . 8269)]) #@61 Insert SELF into the dom. SELF: Dom Node Struct (fn SELF) (defalias 'treemacs-dom-node->insert-into-dom! #[257 "\301\302\303H#\210\207" [treemacs-dom nil puthash 1] 6 (#$ . 8560)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->insert-into-dom! compiler-macro treemacs-dom-node->insert-into-dom!--inliner] 4) #@26 (fn INLINE--FORM SELF) (defalias 'treemacs-dom-node->insert-into-dom!--inliner #[514 "\3002/\211\301!\203\211\202\302\303!\304\305\306DF=\203%\211\266\203\202.\307DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" ht-set! treemacs-dom treemacs-dom-node->key macroexp-let*] 8 (#$ . 8905)]) #@56 Add CHILD to to the children of SELF. (fn SELF CHILD) (defalias 'treemacs-dom-node->add-child! #[514 "\211\300\300HBI\207" [3] 8 (#$ . 9242)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->add-child! compiler-macro treemacs-dom-node->add-child!--inliner] 4) #@32 (fn INLINE--FORM SELF CHILD) (defalias 'treemacs-dom-node->add-child!--inliner #[771 "\3002W\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306D\307\306DEE=\2038\211\266\203\202A\310DC\"\266\203=\203M\211\266\203\202V\310DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" "child" setf treemacs-dom-node->children cons macroexp-let*] 13 (#$ . 9536)]) #@61 Remove SELF from the dom. SELF: Dom Node Struct (fn SELF) (defalias 'treemacs-dom-node->remove-from-dom! #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\205+\211@\301\"\210A\266\202\202\207" [treemacs-dom remhash 1 2 3 delete 7] 9 (#$ . 9959)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->remove-from-dom! compiler-macro treemacs-dom-node->remove-from-dom!--inliner] 4) #@26 (fn INLINE--FORM SELF) (defalias 'treemacs-dom-node->remove-from-dom!--inliner #[514 "\3002P\211\301!\203\211\202\302\303!\304\305\306\307DE\310\311\312DDC\313\314\311D\315\314\311DEEE\316\317\320DD\305\306\317EEF=\203F\211\266\203\202O\321DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" progn ht-remove! treemacs-dom treemacs-dom-node->key let parent treemacs-dom-node->parent setf treemacs-dom-node->children delete dolist key treemacs-dom-node->collapse-keys macroexp-let*] 14 (#$ . 10401)]) #@76 Remove the given collapse KEYS from both SELF and the dom. (fn SELF KEYS) (defalias 'treemacs-dom-node->remove-collapse-keys! #[514 "\211\211\203\211@\301\"\210A\266\202\202\210\211\302\303\302H\304\303\211\203@\211A\262\242\262\262T\262 \235\204B\262\202\266\211\237\262I\207" [treemacs-dom remhash 7 nil 0] 12 (#$ . 10951)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-dom-node->remove-collapse-keys! compiler-macro treemacs-dom-node->remove-collapse-keys!--inliner] 4) #@31 (fn INLINE--FORM SELF KEYS) (defalias 'treemacs-dom-node->remove-collapse-keys!--inliner #[771 "\3002g\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306\307D\310\311\307EE\312\313D\314\315\316E\313 DEEE=\203H\211\266\203\202Q\317DC\"\266\203=\203]\211\266\203\202f\317DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" "keys" progn dolist key ht-remove! treemacs-dom setf treemacs-dom-node->collapse-keys --reject member it macroexp-let*] 15 (#$ . 11477)]) #@100 Get all parent nodes of SELF. List will be sorted top to bottom. SELF: Dom Node Struct (fn SELF) (defalias 'treemacs-dom-node->all-parents #[257 "\211\300H\301\203B\262\300H\262\202\207" [2 nil] 5 (#$ . 12011)]) (byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put treemacs-dom-node->all-parents compiler-macro treemacs-dom-node->all-parents--inliner side-effect-free t] 5) #@26 (fn INLINE--FORM SELF) (defalias 'treemacs-dom-node->all-parents--inliner #[514 "\3002@\211\301!\203\211\202\302\303!\304\305\306DD\307CD\310\305\311\305\307E\312\305\306\305DEF\307F=\2036\211\266\203\202?\313DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "self" let parent treemacs-dom-node->parent ret while push setf macroexp-let*] 13 (#$ . 12420)]) #@101 Re-arrange the dom when node at KEY with POS is expanded. KEY: Node Path POS: Marker (fn KEY POS) (defalias 'treemacs-on-expand #[514 "\301\302#\211\203@\211\211\303I\266\211\304H\211\203,\211@\301\302#\211\303I\266A\266\202\202\210\211\305H\211\205?\211\211\306\306HBI\262\207\307\310\302\211\211\302\211&\262\302\311\312H#\210\207" [treemacs-dom gethash nil 5 7 2 4 record treemacs-dom-node puthash 1] 12 (#$ . 12818)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-on-expand compiler-macro treemacs-on-expand--inliner] 4) #@29 (fn INLINE--FORM KEY POS) (defalias 'treemacs-on-expand--inliner #[771 "\3002\214\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306\307DD\310\311\312\306DE\313\314\315\306DD\311\312\307\314DDEE\316\317\320\306DD\311\321\317D\322\306\321\317DEEEF\311\306\323\324 \325 \257E\326\306D\257=\203m\211\266\203\202v\327DC\"\266\203=\203\202\211\266\203\202\213\327DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "key" "pos" -if-let dom-node treemacs-find-in-dom progn setf treemacs-dom-node->position dolist collapse-key treemacs-dom-node->collapse-keys -when-let parent-dom-node treemacs-dom-node->parent treemacs-dom-node->reentry-nodes cons treemacs-dom-node->create! :key :position treemacs-dom-node->insert-into-dom! macroexp-let*] 20 (#$ . 13393)]) #@300 Re-arrange the dom when node at KEY was collapsed. Will remove NODE's parent/child link and invalidate the position and refresh data of NODE and all its children. When PURGE is non-nil will instead remove NODE and its children from the dom. KEY: Node Path Purge: Boolean (fn KEY &optional PURGE) (defalias 'treemacs-on-collapse #[513 "\301\302#\211\303H\304H\211\203\211\211\305\306\305H\"I\266\210\2033\307\310\"\210\211\303\302I\266\211\305\302I\207\211\203B\307\311\"\210\211\303\302I\207\304H\211\205V\211\211\305\306\305H\"I\262\207" [treemacs-dom gethash nil 3 2 4 delete treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\205+\211@\301\"\210A\266\202\202\207" [treemacs-dom remhash 1 2 3 delete 7] 9 "\n\n(fn IT)"] #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"]] 12 (#$ . 14216)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-on-collapse compiler-macro treemacs-on-collapse--inliner] 4) #@41 (fn INLINE--FORM KEY &optional PURGE) (defalias 'treemacs-on-collapse--inliner #[770 "\3002{\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306\307DD\310\311\306DDD\312\313\314\306DD\315\316\313D\317\306\316\313DEEE\320\321\306DD\310\322\306DD\323\324\306DDFF=\203\\\211\266\203\202e\325DC\"\266\203=\203q\211\266\203\202z\325DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "key" "purge" let* dom-node treemacs-find-in-dom children treemacs-dom-node->children -when-let parent-dom-node treemacs-dom-node->parent setf treemacs-dom-node->reentry-nodes delete cond treemacs--on-purged-collapse treemacs--on-collapse-of-node-with-children t treemacs--on-collapse-of-node-without-children macroexp-let*] 17 (#$ . 15376)]) #@163 Run when a DOM-NODE is collapsed with a purge (prefix) argument. Will remove all the children of DOM-NODE from the dom. DOM-NODE: Dom Node Struct (fn DOM-NODE) (defalias 'treemacs--on-purged-collapse #[257 "\300\301\"\210\211\211\302\303I\266\211\211\304\303I\207" [treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\205+\211@\301\"\210A\266\202\202\207" [treemacs-dom remhash 1 2 3 delete 7] 9 "\n\n(fn IT)"] 3 nil 4] 5 (#$ . 16161)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs--on-purged-collapse compiler-macro treemacs--on-purged-collapse--inliner] 4) #@30 (fn INLINE--FORM DOM-NODE) (defalias 'treemacs--on-purged-collapse--inliner #[514 "\3002@\211\301!\203\211\202\302\303!\304\305\306\307C\310\307DEE\311\312D\313\314D\313\257E=\2036\211\266\203\202?\315DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "dom-node" progn treemacs-walk-dom-exclusive lambda it treemacs-dom-node->remove-from-dom! setf treemacs-dom-node->children nil treemacs-dom-node->reentry-nodes macroexp-let*] 11 (#$ . 16807)]) #@151 Run when a DOM-NODE without any children is collapsed. Will remove DOm-NODE from its parent's reentry list. DOM-NODE: Dom Node Struct (fn DOM-NODE) (defalias 'treemacs--on-collapse-of-node-without-children #[257 "\211\300H\211\205\211\211\301\302\301H\"I\262\207" [2 4 delete] 9 (#$ . 17298)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs--on-collapse-of-node-without-children compiler-macro treemacs--on-collapse-of-node-without-children--inliner] 4) #@30 (fn INLINE--FORM DOM-NODE) (defalias 'treemacs--on-collapse-of-node-without-children--inliner #[514 "\3002?\211\301!\203\211\202\302\303!\304\305\306DDC\307\305\310\311\305D\312\311\305DEEEE=\2035\211\266\203\202>\313DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "dom-node" let parent-dom-node treemacs-dom-node->parent when setf treemacs-dom-node->reentry-nodes delete macroexp-let*] 14 (#$ . 17780)]) #@153 Run when a DOM-NODE with children is collapsed. Will remove all entries below the one collapsed from the dom. DOM-NODE: Dom Node Struct (fn DOM-NODE) (defalias 'treemacs--on-collapse-of-node-with-children #[257 "\300\301\"\210\211\211\302\303I\207" [treemacs-walk-dom-exclusive #[257 "\301\302H\"\210\211\303H\211\211\304\305\304H\"I\266\211\306H\211\203+\211@\301\"\210A\266\202\202\210\211\211\304\307I\207" [treemacs-dom remhash 1 2 3 delete 7 nil] 9 "\n\n(fn IT)"] 3 nil] 5 (#$ . 18231)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs--on-collapse-of-node-with-children compiler-macro treemacs--on-collapse-of-node-with-children--inliner] 4) #@30 (fn INLINE--FORM DOM-NODE) (defalias 'treemacs--on-collapse-of-node-with-children--inliner #[514 "\3002@\211\301!\203\211\202\302\303!\304\305\306\307C\310\307D\311\312\307D\313EFE\311\312D\313EE=\2036\211\266\203\202?\314DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "dom-node" progn treemacs-walk-dom-exclusive lambda it treemacs-dom-node->remove-from-dom! setf treemacs-dom-node->children nil macroexp-let*] 13 (#$ . 18913)]) #@385 Renames dom entries after a file was renamed from OLD-NAME to NEW-NAME. Renames the initial dom entry (the one backing the file that was actually renamed) only if DONT-RENAME-INITIAL is nil in case the entry is required for filewatch-mode to work. OLD-NAME: File Path | Tag Path NEW-NAME: File Path | Tag Path DONT-RENAME-INITIAL: Boolean (fn OLD-NAME NEW-NAME DONT-RENAME-INITIAL) (defalias 'treemacs--on-rename #[771 "\301\302#\211\205)\303\304#\203\305\"\210\306\"\202'\307\"\210\310\"\262\207" [treemacs-dom gethash nil make-closure #[257 "\211\303H\211;\203\304\300\301#\202$\211:\205$\211@;\205$\304\300\301@#AB\211\205:\305\n\"\210\306\n#\210\211\303I\262\207" [V0 V1 treemacs-dom 1 s-replace remhash puthash] 7 "\n\n(fn IT)"] treemacs-walk-reentry-dom-exclusive treemacs-walk-dom-exclusive treemacs-walk-dom treemacs-walk-reentry-dom] 8 (#$ . 19389)]) #@294 Recursively walk the dom starting at NODE. Calls FN on every node encountered in a depth-first pattern, starting with the deepest. This assures that FN may destructively modify the dom, at least on levels the one currently visiting. NODE: Dom Node Struct FN: (Dom Node) -> Any (fn NODE FN) (defalias 'treemacs-walk-dom #[514 "\300H!\210\211\211\205\211@\301\"\210A\266\202\202\207" [3 treemacs-walk-dom] 8 (#$ . 20291)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-walk-dom lisp-indent-function 1] 4) #@130 Same as `treemacs-walk-dom', but start NODE will not be passed to FN. NODE: Dom Node Struct FN: (Dom Node) -> Any (fn NODE FN) (defalias 'treemacs-walk-dom-exclusive #[514 "\300H\211\205\211@\301\"\210A\266\202\202\207" [3 treemacs-walk-dom] 7 (#$ . 20830)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-walk-dom-exclusive lisp-indent-function 1] 4) #@356 Recursively walk the dom starting at NODE. Unlike `treemacs-walk-dom' only expanded nodes are selected. Calls FN on every node encountered in a depth-first pattern, starting with the deepest. This assures that FN may destructively modify the dom, at least on levels the one currently visiting. NODE: Dom Node Struct FN: (Dom Node) -> Any (fn NODE FN) (defalias 'treemacs-walk-reentry-dom #[514 "\211!\210\300H\211\205\211@\301\"\210A\266\202\202\207" [4 treemacs-walk-reentry-dom] 7 (#$ . 21214)]) (byte-code "\300\301\302\303#\300\207" [function-put treemacs-walk-reentry-dom lisp-indent-function 1] 4) #@138 Same as `treemacs-walk-reentry-dom', but start NODE will not be passed to FN. NODE: Dom Node Struct FN: (Dom Node) -> Any (fn NODE FN) (defalias 'treemacs-walk-reentry-dom-exclusive #[514 "\300H\211\205\211@\301\"\210A\266\202\202\207" [4 treemacs-walk-reentry-dom] 7 (#$ . 21838)]) (byte-code "\300\301\302\303#\304\305!\207" [function-put treemacs-walk-reentry-dom-exclusive lisp-indent-function 1 provide treemacs-dom] 4)