;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315&\210\304\322\306\307\323DD\324\312\325\314\315&\210\326\327\330\331\314\315%\210\326\332\333\334\314\315%\210\326\335\336\337\314\315%\210\326\340\341\342\314\315%\210\326\343\344\345\314\315%\210\326\346\347\350\314\315%\210\326\351\352\353\314\315%\207" [require lsp-treemacs lsp-dart-protocol lsp-dart-test-support custom-declare-variable lsp-dart-test-tree-on-run funcall function #[0 "\300\207" [t] 1] "Enable the test tree when running tests." :type boolean :group lsp-dart lsp-dart-test-tree-position-params #[0 "\302B\303\304 BE\207" [treemacs-position treemacs-width side (slot . 2) window-width] 4] "The test tree position params.\nDefaults to side following treemacs default." list lsp-dart-test-tree-line-spacing #[0 "\300\207" [4] 1] "The test tree line spacing between nodes." integer custom-declare-face lsp-dart-test-tree-waiting-face ((t :inherit font-lock-comment-face)) "The face used for tests with status waiting on tests tree." lsp-dart-test-tree-running-face ((t :inherit warning)) "The face used for tests with status running on tests tree." lsp-dart-test-tree-passed-face ((t :inherit success)) "The face used for tests with status passed on tests tree." lsp-dart-test-tree-error-face ((t :inherit error)) "The face used for tests with status error on tests tree." lsp-dart-test-tree-failed-face ((((background dark)) :foreground "#ce5643") (((background light)) :foreground "#843031")) "The face used for tests with status failed on tests tree." lsp-dart-test-tree-skipped-face ((t :inherit homoglyph)) "The face used for tests with status skipped on tests tree." lsp-dart-test-tree-time-face ((t :height 0.8 :inherit font-lock-comment-face)) "The face used for tests time on tests tree."] 8) (defconst lsp-dart-test-tree--buffer-name "*LSP Dart tests tree*") (defvar lsp-dart-test-tree--suites nil) (defvar lsp-dart-test-tree--groups-by-id nil) (defvar lsp-dart-test-tree--tests-by-id nil) (byte-code "\302H;\203M\302H\303 \304\303\211\211\203C\211A\262\242\262\262\211\262\203C\302H\230\2036\303\262\203C\262\262T\262\202\266\211\262\262\202P\302H\211\203\211\211\305H\211\306\307#\216\211\305I\266\305H\310\311\312\313#\311B\314H\315H@A\316\304\317#\204\212\310\320\317#\262\321\322\323\"\210\324\303!\210\325\304\303\211\203\275\211A\262\242\262\262T\262\326\n#\210\326 #\210\202\227\266\n\305H\310\327\312\330#\327B\314H\315H@A\316\304\317#\204\342\310\320\317#\262\321\322\331\"\210\332\303!\210\333\304\303\211\203\211A\262\242\262\262T\262\326\n#\210\326 #\210\202\357\266\n\305H\310\334\312\335#\334B\314H\315H@A\316\304\317#\204:\310\320\317#\262\321\322\336\"\210\337\303!\210\340\304\303\211\203m\211A\262\242\262\262T\262\326\n#\210\326 #\210\202G\266\n\305H\310\341\312\342#\341B\314H\315H@A\316\304\317#\204\222\310\320\317#\262\321\322\343\"\210\344\303!\210\345\304\303\211\203\305\211A\262\242\262\262T\262\326\n#\210\326 #\210\202\237\266\n\305H\310\346\312\347#\346B\314H\315H@A\316\304\317#\204\352\310\320\317#\262\321\322\350\"\210\351\303!\210\352\304\303\211\203\211A\262\242\262\262T\262\326\n#\210\326 #\210\202\367\266\n\305H\310\334\312\353#\334B\314H\315H@A\316\304\317#\204B\310\320\317#\262\321\322\354\"\210\355\303!\210\356\304\303\211\203u\211A\262\242\262\262T\262\326\n#\210\326 #\210\202O\266\n\357!\210*\266\207\360\361\302H\"\210\207" [treemacs--current-theme treemacs--themes 1 nil 0 2 make-closure #[0 "\300\211\302\301I\207" [V0 V1 2] 4] propertize "⌛ " face lsp-dart-test-tree-waiting-face 3 4 get-text-property display " " add-to-list treemacs--icon-symbols waiting (lambda (#1=#:def-tmp-var) (defvar treemacs-icon-waiting #1#)) (waiting) puthash "▶ " lsp-dart-test-tree-running-face running (lambda (#1#) (defvar treemacs-icon-running #1#)) (running) "✔ " lsp-dart-test-tree-passed-face passed (lambda (#1#) (defvar treemacs-icon-passed #1#)) (passed) "✖ " lsp-dart-test-tree-failed-face failed (lambda (#1#) (defvar treemacs-icon-failed #1#)) (failed) "! " lsp-dart-test-tree-error-face errored (lambda (#1#) (defvar treemacs-icon-errored #1#)) (errored) lsp-dart-test-tree-skipped-face skipped (lambda (#1#) (defvar treemacs-icon-skipped #1#)) (skipped) treemacs--propagate-new-icons user-error "Theme '%s' does not exist"] 17) #@61 Update PLIST in KEY with ID for VAL. (fn PLIST KEY ID VAL) (defalias 'lsp-dart--plist-set! #[1028 "\300\"\301\"\211\203\262\202\302BC\"\262\303#\211\262\207" [plist-get alist-get append plist-put] 10 (#$ . 4650)]) #@79 Return the corresponding status from RESULT and SKIPPED. (fn RESULT SKIPPED) (defalias 'lsp-dart-test-tree--result->status #[514 "\211\203\300\207\301\267\202\302\207\303\207\304\207\305\207" [skipped #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("success" 12 "failure" 14 "error" 16)) passed failed errored nil] 4 (#$ . 4892)]) #@101 Colorize NAME with the corresponding face for STATUS and TIME. (fn NAME STATUS &optional TIME\=\?) (defalias 'lsp-dart-test-tree--colorize-name #[770 "\300\267\202\301\202\302\202\303\202\304\202\305\202\306\202\307\310\311#\2037\211\312\310\313\314!\315Q\311\316#Q\207\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (skipped 6 passed 10 failed 14 errored 18 waiting 22 running 26)) lsp-dart-test-tree-skipped-face lsp-dart-test-tree-passed-face lsp-dart-test-tree-failed-face lsp-dart-test-tree-error-face lsp-dart-test-tree-waiting-face lsp-dart-test-tree-running-face nil propertize face " " "(" number-to-string "ms)" lsp-dart-test-tree-time-face] 11 (#$ . 5277)]) #@96 Return the name substringing from PARENT-PLIST and CHILD-PLIST. (fn PARENT-PLIST CHILD-PLIST) (defalias 'lsp-dart-test-tree--substring-name #[514 "\300\301\"\300\301\"GGG\302V\203+\211Y\203+\303\"\211\203)\\T\304O\207\207\207" [plist-get :name 0 cl-search nil] 10 (#$ . 6018)]) #@31 Add a test SUITE. (fn SUITE) (defalias 'lsp-dart-test--add-suite #[257 "\300\301\302\303\"B\304#\207" [add-to-list lsp-dart-test-tree--suites plist-get :id t] 6 (#$ . 6319)]) #@107 Recursively upsert GROUP for TARGET-PARENT-ID and PARENT-GROUP. (fn PARENT-GROUP GROUP TARGET-PARENT-ID) (defalias 'lsp-dart-test-tree--set-child-group #[771 "\300\301\"U\203\302\"\303\304\300\301\"\305\306#$\207\307\310\311#\300\304\"\"\207" [plist-get :id lsp-dart-test-tree--substring-name lsp-dart--plist-set! :groups plist-put :name seq-do make-closure #[257 "\302A\300\301#\207" [V0 V1 lsp-dart-test-tree--set-child-group] 5 "\n\n(fn GROUPS-BY-ID)"]] 12 (#$ . 6504)]) #@84 Upsert GROUP with PARENT-id for SUITE-ID. (fn SUITE-ID GROUP &optional PARENT-ID) (defalias 'lsp-dart-test-tree--set-group #[770 "\301\"\203\302\303\304#\305\306\"\"\207\307\306\305\310\"$\207" [lsp-dart-test-tree--suites alist-get seq-do make-closure #[257 "\302A\300\301#\207" [V0 V1 lsp-dart-test-tree--set-child-group] 5 "\n\n(fn GROUPS-BY-ID)"] plist-get :groups lsp-dart--plist-set! :id] 10 (#$ . 7002)]) #@112 Upsert TEST with GROUP-IDS and LAST-GROUP-ID for PARENT-GROUP. (fn PARENT-GROUP GROUP-IDS LAST-GROUP-ID TEST) (defalias 'lsp-dart-test-tree--set-child-test #[1028 "\300\301\"\300\302\"\235\203:\211\303=\204:\211\304=\204:\300\302\"\305=\203.\306\302\305#\262\202:\306\302\300\302\"#\262U\203W\307\"\310\311\300\301\"\306\312#$\207\313\314\315$\300\316\"\"\207" [plist-get :id :status failed errored skipped plist-put lsp-dart-test-tree--substring-name lsp-dart--plist-set! :tests :name seq-do make-closure #[257 "\303A\300\301\302$\207" [V0 V1 V2 lsp-dart-test-tree--set-child-test] 6 "\n\n(fn GROUPS-BY-ID)"] :groups] 15 (#$ . 7435)]) #@72 Upsert TEST with GROUP-IDS for SUITE-ID. (fn SUITE-ID GROUP-IDS TEST) (defalias 'lsp-dart-test-tree--set-test #[771 "\301\"\211\205/\302\303\"\211\304=\204#\211\305=\204#\306\303\302\303\"#\262\210\307\310\311#\302\312\"\"\207" [lsp-dart-test-tree--suites alist-get plist-get :status failed errored plist-put seq-do make-closure #[257 "\302A\303\300\304\"\305\303\300\304\"!@\301$\207" [V0 V1 lsp-dart-test-tree--set-child-test append nil last] 8 "\n\n(fn GROUPS-BY-ID)"] :groups] 11 (#$ . 8119)]) #@144 Build the ret action for an item in the test tree view. URI is the test uri. POSITION is the test start position. (fn URI &optional POSITION) (defalias 'lsp-dart-test-tree--ret-action #[513 "\300\301!!\210\211\203\302!b\210\303\304!\207" [lsp-treemacs--open-file-in-mru lsp--uri-to-path lsp--position-to-point run-hooks xref-after-jump-hook] 5 (#$ . 8639)]) #@72 Run test from POSITION and URI from tree. (fn URI &optional POSITION) (defalias 'lsp-dart-test-tree--run-test #[513 "\300\301!!\210\211\203\302!b\210\303\304 !\207\303\305\301!D!\207" [lsp-treemacs--open-file-in-mru lsp--uri-to-path lsp--position-to-point lsp-dart-test--run lsp-dart-test--test-at-point :file-name] 6 (#$ . 9008)]) #@67 Build the action options for SUITE in test tree view. (fn SUITE) (defalias 'lsp-dart-test-tree--build-suite-actions #[257 "\300\301\"\302\303\304D\"\302\305\306D\"D\207" [plist-get :path vector "Go to file" lsp-dart-test-tree--ret-action "Run file tests again" lsp-dart-test-tree--run-test] 7 (#$ . 9352)]) #@67 Build the action options for GROUP in test tree view. (fn GROUP) (defalias 'lsp-dart-test-tree--build-group-actions #[257 "\300\301\"\300\302\"\303\304\305E\"\303\306\307E\"D\207" [plist-get :uri :position vector "Go to group" lsp-dart-test-tree--ret-action "Run group tests again" lsp-dart-test-tree--run-test] 9 (#$ . 9669)]) #@65 Build the action options for TEST in test tree view. (fn TEST) (defalias 'lsp-dart-test-tree--build-test-actions #[257 "\300\301\"\300\302\"\303\304\305E\"\303\306\307E\"D\207" [plist-get :uri :position vector "Go to test" lsp-dart-test-tree--ret-action "Run test again" lsp-dart-test-tree--run-test] 9 (#$ . 10010)]) #@65 Map SUITE-OR-GROUP to treemacs tree items. (fn SUITE-OR-GROUP) (defalias 'lsp-dart-test-tree--suite->tree #[257 "\300\301\302\303\"\"\300\304\305\"\302\306\"\"\204\211\205\307\"\207" [seq-map #[257 "\211\211A\262\242\300\301\302!P\303\304\305\306\"\305\307\"\305\310\"#\311\305\307\"\312\313\314 \"\315\316\n!\257\n\207" [:key "test-" number-to-string :label lsp-dart-test-tree--colorize-name plist-get :name :status :time :icon :ret-action make-closure #[128 "\301\302\300\303\"\302\300\304\"\"\207" [V0 lsp-dart-test-tree--ret-action plist-get :uri :position] 6 "\n\n(fn &rest _)"] :actions lsp-dart-test-tree--build-test-actions] 15 "\n\n(fn INPUT0)"] plist-get :tests make-closure #[257 "\211\211A\262\242\301\302\"G\303U\203?\304\305\306\301\300\307\"!P\310\311\312\301\300\313\"!\301\300\314\"\"\315\301\300\314\"\316\317!\320\321\322 \"\323\324\300!\257\f\207\304\325\306!P\315\301\314\"\310\311\301\302\"\301\314\"\"\316\317!\320\321\326 \"\323\327\f!\257\f\207" [V0 plist-get :name 0 :key "suite-" number-to-string :id :label lsp-dart-test-tree--colorize-name f-filename :path :status :icon :children lsp-dart-test-tree--suite->tree :ret-action make-closure #[128 "\301\302\300\303\"!\207" [V0 lsp-dart-test-tree--ret-action plist-get :uri] 5 "\n\n(fn &rest _)"] :actions lsp-dart-test-tree--build-suite-actions "group-" #[128 "\301\302\300\303\"\302\300\304\"\"\207" [V0 lsp-dart-test-tree--ret-action plist-get :uri :position] 6 "\n\n(fn &rest _)"] lsp-dart-test-tree--build-group-actions] 17 "\n\n(fn INPUT0)"] :groups append] 7 (#$ . 10341)]) #@35 Build the test tree for treemacs. (defalias 'lsp-dart-test-tree--build #[0 "\301\302\303\304\305\306!\"\"!\206\307\310DC\207" [lsp-dart-test-tree--suites -non-nil -flatten-n 1 seq-map lsp-dart-test-tree--suite->tree map-values :label "Running tests..."] 7 (#$ . 11945)]) #@28 Show the test tree buffer. (defalias 'lsp-dart-test-tree--render #[0 "\212\301\302 \303\304$)\207" [lsp-dart-test-tree--buffer-name lsp-treemacs-render lsp-dart-test-tree--build "Tests" t] 5 (#$ . 12225)]) #@34 Handle run started notification. (defalias 'lsp-dart-test-tree--handle-run-started #[0 "\301 \210\205 \302 \207" [lsp-dart-test-tree-on-run lsp-dart-test-tree-clean lsp-dart-test-show-tree] 1 (#$ . 12438)]) #@41 Handle suite notification. (fn INPUT0) (defalias 'lsp-dart-test-tree--handle-suite #[257 "\300\301\"\302!\207" [gethash "suite" lsp-dart-test-tree-add-suite] 4 (#$ . 12653)]) #@15 (fn INPUT0) (defalias 'lsp-dart-test-tree--handle-group #[257 "\300\301\"\302!\207" [gethash "group" lsp-dart-test-tree-set-group] 4 (#$ . 12837)]) #@46 Handle test start notification. (fn INPUT0) (defalias 'lsp-dart-test-tree--handle-start #[257 "\300\301\"\302\303\"\207" [gethash "test" lsp-dart-test-tree-set-test running] 5 (#$ . 12995)]) #@59 Handle test done notification. (fn INPUT0 INPUT1 INPUT2) (defalias 'lsp-dart-test-tree--handle-done #[771 "\300\301\"\300\302\"\300\303\"\300\304\"\305\306Z$\207" [gethash "testID" "result" "time" "skipped" nil lsp-dart-test-tree-mark-as-done] 14 (#$ . 13195)]) #@38 Add suite to test tree. (fn INPUT0) (defalias 'lsp-dart-test-tree-add-suite #[257 "\300\301\"\300\302\"\303\304\305\306\307\257!\210\310 \207" [gethash "id" "path" lsp-dart-test--add-suite :id :path :status waiting lsp-dart-test-tree--render] 10 (#$ . 13479)]) #@41 Upsert group to test tree. (fn INPUT0) (defalias 'lsp-dart-test-tree-set-group #[257 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307\"\310\311\312\313\314\315\n\2053\nS\316 \205< S$\257\317\320 \311 \321\nFB\"\210\322#\266\323 \207" [gethash "id" "suiteID" "name" "parentID" "url" "line" "column" :id :name :uri :position lsp-make-position :line :character add-to-list lsp-dart-test-tree--groups-by-id :parent-id lsp-dart-test-tree--set-group lsp-dart-test-tree--render] 20 (#$ . 13752)]) #@47 Upsert test to test tree. (fn INPUT0 INPUT1) (defalias 'lsp-dart-test-tree-set-test #[514 "\300\301\"\300\302\"\300\303\"\300\304\"\300\305\"\300\306\"\300\307 \"\300\310\n\"\300\311 \"\300\312\f\"\n\313!?\205\202\314 \315\f\316 \317\320\206M\321\322\323\206[\206[\324S\325\206h\206h\324S$\326\257\327\330 B\"\210\331 \n#\266\332 \207" [gethash "id" "suiteID" "name" "groupIDs" "root_url" "url" "root_line" "root_column" "line" "column" seq-empty-p :id :suite-id :name :status :uri :position lsp-make-position :line 0 :character :group-ids add-to-list lsp-dart-test-tree--tests-by-id lsp-dart-test-tree--set-test lsp-dart-test-tree--render] 29 (#$ . 14302)]) #@96 Update TEST-ID with TIME and status from RESULT and SKIPPED. (fn TEST-ID TIME RESULT SKIPPED) (defalias 'lsp-dart-test-tree-mark-as-done #[1028 "\301\"\302\211\303\304\"#\305#\306\307\310\"\307\311\"#\210\312 \207" [lsp-dart-test-tree--tests-by-id alist-get plist-put :status lsp-dart-test-tree--result->status :time lsp-dart-test-tree--set-test plist-get :suite-id :group-ids lsp-dart-test-tree--render] 12 (#$ . 15016)]) #@18 Clean test tree. (defalias 'lsp-dart-test-tree-clean #[0 "\303\211\303\211\207" [lsp-dart-test-tree--suites lsp-dart-test-tree--groups-by-id lsp-dart-test-tree--tests-by-id nil] 3 (#$ . 15458)]) #@46 Show test tree of the current/last ran test. (defalias 'lsp-dart-test-show-tree #[0 "\303 r\211q\210\304\301!\210)\305\n\"\207" [lsp-dart-test-tree-line-spacing line-spacing lsp-dart-test-tree-position-params lsp-dart-test-tree--render make-local-variable display-buffer-in-side-window] 4 (#$ . 15662) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\313\314!\207" [add-hook lsp-dart-test-run-started-hook lsp-dart-test-tree--handle-run-started lsp-dart-test-suite-notification-hook lsp-dart-test-tree--handle-suite lsp-dart-test-group-notification-hook lsp-dart-test-tree--handle-group lsp-dart-test-start-notification-hook lsp-dart-test-tree--handle-start lsp-dart-test-done-notification-hook lsp-dart-test-tree--handle-done provide lsp-dart-test-tree] 3)