;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require treemacs magit pfuture seq] 2) #@50 Cached list of roots an update is scheduled for. (defvar treemacs-magit--timers nil (#$ . 193)) #@343 Schedule an update to potentially run after 3 seconds of idle time. In order for the update to fully run several conditions must be met: * A timer for an update for the given dir must not already exist (see `treemacs-magit--timers') * The dir must be part of a treemacs workspace, and * The project must not be set for refresh already. (defalias 'treemacs-magit--schedule-update #[0 "\205`\303 \304!\203(\211G\305V\203$\211GSH\306=\203$\211\307\310O\202I\211\202I\311\312!\211G\305V\203E\211GSH\306=\203E\211\307\310O\202F\211\262)\262\211\n\235?\205^\211\nB\313\314\311\315\316\"#\262\207" [treemacs-git-mode file-name-handler-alist treemacs-magit--timers magit-toplevel file-remote-p 1 47 0 -1 nil expand-file-name run-with-idle-timer 3 make-closure #[0 "\302\303\300\"\216 \304\267\202\305\300!\202\306\300!\202\307)\207" [V0 treemacs-git-mode make-closure #[0 "\302\300 \"\211\207" [V0 treemacs-magit--timers delete] 3] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (simple 11 deferred 17 extended 17)) treemacs-magit--simple-git-mode-update treemacs-magit--extended-git-mode-update nil] 3]] 7 (#$ . 296)]) #@185 Update the project at the given MAGIT-ROOT. Without the parsing ability of extended git-mode this update uses filewatch-mode's mechanics to update the entire project. (fn MAGIT-ROOT) (defalias 'treemacs-magit--simple-git-mode-update #[257 "\211\205Z\211@\211\243\211\211\306H\307H\310!\203Q\211rq\210\311\312 \211\307H\262\313\311\211\211\203z\211A\262\242\262\262\211\262\203z\307H\230\206a\314\211GSH\315=\203\\\202_\316P\"\266\204\203m\311\262\203z\262\262T\262\202*\266\211\262\262\211\203O\211\307H\317\n\311#\211\203M\211\320H\204M\317 \311#\203\305\321 \"\210\311C\322\323\324#\f\"\210\211\242\211\203\303\211@\321\f\"\210A\266\202\202\261\266\211\203L\211@\211\243\211\211\306H\307H\310!\203C\211rq\210\317\n\311#\211\2034\325 \320H\"\211A\211\204\n\n\326B\211\320\320HBI\266\2025\211\327\267\202\266\2025\266\2025\266\2025\211\2042\n\326B\211\320\320HBI\266\266\210 \204B\330\331\245\311\332#*\266A\266\202\202\306\210\266\210*\266A\266\202\202\207" [treemacs--scope-storage treemacs-override-workspace treemacs-dom treemacs--collapsed-filewatch-index treemacs--filewatch-index treemacs--refresh-timer 1 2 buffer-live-p nil treemacs-current-workspace 0 s-starts-with\? 47 #1="/" gethash 6 remhash maphash make-closure #[514 "\300\230\206\303\211GSH\304=\203\202\305P\"\266\202\205H\211@Ap>\205FA\2037\306p\"\240\207\307!\210\310\n\"\210\301\301\242B\240\266\202\207" [V0 V1 treemacs--collapsed-filewatch-index s-starts-with\? 47 #1# delq file-notify-rm-watch remhash] 8 "\n\n(fn WATCHED-PATH WATCH-INFO)"] assoc magit-refresh #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (created 272 deleted 277 changed 282)) run-with-timer 1000 treemacs--process-file-events treemacs-file-event-delay] 26 (#$ . 1487)]) #@362 Update the project at the given MAGIT-ROOT. This runs due to a commit or stash action, so we know that no files have actually been added or deleted. This allows us to forego rebuilding the entire project structure just to be sure we caught everything. Instead we grab the current git status and just go through the lines as they are right now. (fn MAGIT-ROOT) (defalias 'treemacs-magit--extended-git-mode-update #[257 "\306\211\203[\211@\211\243\211\211\307H\310H\311!\203R\211rq\210\211\205(\312\n\306#\262\211\2051\211\313H\262\211\205;\314\315\"\262\211\203P\211@\211 B\262 A\266\202\202=\210*\266A\266\202\202\210\316\317\f\320\321 \322 !! BBBBBBB\"\306\"\323!)\324\325\326\f\320\321  \322 !! BBBBBBB\327\330\331\332\333\334\335 #&\n\336\337#\210)\207" [treemacs--scope-storage treemacs-override-workspace treemacs-dom default-directory treemacs-python-executable treemacs--git-status\.py nil 1 2 buffer-live-p gethash 3 -map treemacs-dom-node->key format "Pfuture-Callback %s" "-O" "-S" number-to-string generate-new-buffer make-process :name :command :connection-type pipe :filter pfuture--append-output-to-buffer :sentinel make-closure #[514 "\302!?\205\303!\304U\203\305\300\301\"\210\306\307\310\"!\207" [V0 V1 process-live-p process-exit-status 0 treemacs-magit--update-callback kill-buffer process-get buffer] 6 "\n\n(fn PROCESS STATUS)"] process-put buffer treemacs-max-git-entries treemacs-git-command-pipe buffer-list-update-hook] 18 (#$ . 3380)]) #@137 Run the update as a pfuture callback. Will update nodes under MAGIT-ROOT with output in PFUTURE-BUFFER. (fn MAGIT-ROOT PFUTURE-BUFFER) (defalias 'treemacs-magit--update-callback #[514 "\304rq\210\305 )!\211\2056\211@\211\243\211\211\306H\307H\310!\203-\211rq\210\311 \n\312#\206L\313\314\315 \"\316 \211\307H\262\"\211\205J\211\307H\311\n\312#\262\262\211\203+\211\317H\204+\212\211\320Hb\210\306y\210\321\322 \323 \324\312$\211\205o\325\326\"\262\211\211\205z\327\330\"\262\211\211\205\206\327\331\"\262\312\203'\332!\203'Y\203'\333\334T\324\"\206\244e\335\324\"\206\255d\336\327\337\"\340>\203\274\341\202\275\342\311\312#\211\343\267\202\342\344\202\343\345\202\343\346\202\343\347\202\343\350\202\343\351\202\343\262\262$\210\306y\210m\203\366\312\262\202\212\321\322 \323 \324\312$\211\205\325\326\"\262\262\211\205\327\352\"\262\262\211\205 \327\330\"\262\262\202\212)\266)\210*\266A\266\202\202\n\207" [treemacs--scope-storage treemacs-override-workspace treemacs-dom buffer-read-only read buffer-string 1 2 buffer-live-p gethash nil seq-find make-closure #[257 "\211\301H\300\230\206\302\211GSH\303=\203\202\304P\"\207" [V0 2 s-starts-with\? 47 "/"] 6 "\n\n(fn PR)"] treemacs-current-workspace 6 5 text-property-not-all point-at-bol point-at-eol button copy-marker t get-text-property :depth :key file-exists-p put-text-property previous-single-property-change next-single-property-change face :state (file-node-open file-node-closed) treemacs-git-unmodified-face treemacs-directory-face #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("M" 202 "U" 206 "?" 210 "!" 214 "A" 218 "R" 222)) treemacs-git-modified-face treemacs-git-conflict-face treemacs-git-untracked-face treemacs-git-ignored-face treemacs-git-added-face treemacs-git-renamed-face :path] 23 (#$ . 4901)]) (byte-code "\300\301!\204\302\303\304\"\210\302\305\304\"\210\302\306\304\"\210\302\307\304\"\210\310\301!\207" [featurep treemacs-magit add-hook magit-post-commit-hook treemacs-magit--schedule-update git-commit-post-finish-hook magit-post-stage-hook magit-post-unstage-hook provide] 3)