;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'lsp-protocol) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDecorationsParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:uri :options) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:uri :options) gethash 1 nil assoc ((:uri . :uri) (:options . :options))] 7 (#$ . 111)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&PublishDecorationsParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:uri :options) error "Unknown key: %s. Available keys: %s" (:uri :options) when ht\? gethash symbol-name assoc ((:uri . :uri) (:options . :options)) 1 nil] 9 (#$ . 509)]) #@15 (fn OBJECT) (defalias 'lsp-publish-decorations-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("uri" "options") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:uri :options)] 6 (#$ . 846)]) #@55 (fn &rest PLIST &key URI OPTIONS &allow-other-keys) (defalias 'lsp-make-publish-decorations-params #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :uri :options make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:uri . :uri) (:options . :options))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 1197)]) #@15 (fn OBJECT) (defalias 'lsp:publish-decorations-params-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 1669)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-decorations-params-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 1809)]) #@15 (fn OBJECT) (defalias 'lsp:publish-decorations-params-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "options"] 4 (#$ . 1946)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-publish-decorations-params-options #[514 "\300\301#\210\207" [puthash "options"] 6 (#$ . 2094)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MetalsStatusParams #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:show\? :hide\? :tooltip\? :command\? :text) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:show\? :hide\? :tooltip\? :command\? :text) gethash 1 nil assoc ((:show\? . :show) (:hide\? . :hide) (:tooltip\? . :tooltip) (:command\? . :command) (:text . :text))] 7 (#$ . 2239)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&MetalsStatusParams\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:show\? :hide\? :tooltip\? :command\? :text) error "Unknown key: %s. Available keys: %s" (:show\? :hide\? :tooltip\? :command\? :text) when ht\? gethash symbol-name assoc ((:show\? . :show) (:hide\? . :hide) (:tooltip\? . :tooltip) (:command\? . :command) (:text . :text)) 1 nil] 9 (#$ . 2756)]) #@15 (fn OBJECT) (defalias 'lsp-metals-status-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("text") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:text)] 6 (#$ . 3212)]) #@90 (fn &rest PLIST &key SHOW\=\? HIDE\=\? TOOLTIP\=\? COMMAND\=\? TEXT &allow-other-keys) (defalias 'lsp-make-metals-status-params #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\306\307\310\"\211\262\311\312\313\"\314\315\n\"\"\210\207" [plist-member :show\? :hide\? :tooltip\? :command\? :text make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:show\? . :show) (:hide\? . :hide) (:tooltip\? . :tooltip) (:command\? . :command) (:text . :text))] 9 "\n\n(fn INPUT0)"] -partition 2] 12 (#$ . 3541)]) #@15 (fn OBJECT) (defalias 'lsp:metals-status-params-show\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "show"] 4 (#$ . 4177)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-metals-status-params-show\? #[514 "\300\301#\210\207" [puthash "show"] 6 (#$ . 4315)]) #@15 (fn OBJECT) (defalias 'lsp:metals-status-params-hide\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hide"] 4 (#$ . 4450)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-metals-status-params-hide\? #[514 "\300\301#\210\207" [puthash "hide"] 6 (#$ . 4588)]) #@15 (fn OBJECT) (defalias 'lsp:metals-status-params-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 4723)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-metals-status-params-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 4867)]) #@15 (fn OBJECT) (defalias 'lsp:metals-status-params-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 5008)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-metals-status-params-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 5152)]) #@15 (fn OBJECT) (defalias 'lsp:metals-status-params-text #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "text"] 4 (#$ . 5293)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-metals-status-params-text #[514 "\300\301#\210\207" [puthash "text"] 6 (#$ . 5429)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DecorationOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:hover-message\? :range :render-options) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:hover-message\? :range :render-options) gethash 1 nil assoc ((:hover-message\? . :hoverMessage) (:range . :range) (:render-options . :renderOptions))] 7 (#$ . 5562)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DecorationOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:hover-message\? :range :render-options) error "Unknown key: %s. Available keys: %s" (:hover-message\? :range :render-options) when ht\? gethash symbol-name assoc ((:hover-message\? . :hoverMessage) (:range . :range) (:render-options . :renderOptions)) 1 nil] 9 (#$ . 6058)]) #@15 (fn OBJECT) (defalias 'lsp-decoration-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("range" "renderOptions") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:range :renderOptions)] 6 (#$ . 6493)]) #@82 (fn &rest PLIST &key HOVER-MESSAGE\=\? RANGE RENDER-OPTIONS &allow-other-keys) (defalias 'lsp-make-decoration-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :hover-message\? :range :render-options make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:hover-message\? . :hoverMessage) (:range . :range) (:render-options . :renderOptions))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 6853)]) #@15 (fn OBJECT) (defalias 'lsp:decoration-options-hover-message\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "hoverMessage"] 4 (#$ . 7436)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-decoration-options-hover-message\? #[514 "\300\301#\210\207" [puthash "hoverMessage"] 6 (#$ . 7589)]) #@15 (fn OBJECT) (defalias 'lsp:decoration-options-range #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "range"] 4 (#$ . 7739)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-decoration-options-range #[514 "\300\301#\210\207" [puthash "range"] 6 (#$ . 7875)]) #@15 (fn OBJECT) (defalias 'lsp:decoration-options-render-options #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "renderOptions"] 4 (#$ . 8008)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-decoration-options-render-options #[514 "\300\301#\210\207" [puthash "renderOptions"] 6 (#$ . 8161)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ThemableDecorationInstanceRenderOption #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:after\? s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:after\?) gethash 1 nil assoc ((:after\? . :after))] 7 (#$ . 8311)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ThemableDecorationInstanceRenderOption\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:after\? error "Unknown key: %s. Available keys: %s" (:after\?) when ht\? gethash symbol-name assoc ((:after\? . :after)) 1 nil] 9 (#$ . 8696)]) #@15 (fn OBJECT) (defalias 'lsp-themable-decoration-instance-render-option\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 9020)]) #@53 (fn &rest PLIST &key AFTER\=\? &allow-other-keys) (defalias 'lsp-make-themable-decoration-instance-render-option #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :after\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:after\? . :after))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 9358)]) #@15 (fn OBJECT) (defalias 'lsp:themable-decoration-instance-render-option-after\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "after"] 4 (#$ . 9810)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-themable-decoration-instance-render-option-after\? #[514 "\300\301#\210\207" [puthash "after"] 6 (#$ . 9972)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ThemableDecorationAttachmentRenderOptions #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:content-text\? :color\? :font-style\?) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:content-text\? :color\? :font-style\?) gethash 1 nil assoc ((:content-text\? . :contentText) (:color\? . :color) (:font-style\? . :fontStyle))] 7 (#$ . 10131)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&ThemableDecorationAttachmentRenderOptions\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:content-text\? :color\? :font-style\?) error "Unknown key: %s. Available keys: %s" (:content-text\? :color\? :font-style\?) when ht\? gethash symbol-name assoc ((:content-text\? . :contentText) (:color\? . :color) (:font-style\? . :fontStyle)) 1 nil] 9 (#$ . 10644)]) #@15 (fn OBJECT) (defalias 'lsp-themable-decoration-attachment-render-options\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\305\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] nil #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"]] 6 (#$ . 11096)]) #@85 (fn &rest PLIST &key CONTENT-TEXT\=\? COLOR\=\? FONT-STYLE\=\? &allow-other-keys) (defalias 'lsp-make-themable-decoration-attachment-render-options #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\304\305\306\"\211\262\307\310\311\"\312\313\"\"\210\207" [plist-member :content-text\? :color\? :font-style\? make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:content-text\? . :contentText) (:color\? . :color) (:font-style\? . :fontStyle))] 9 "\n\n(fn INPUT0)"] -partition 2] 10 (#$ . 11438)]) #@15 (fn OBJECT) (defalias 'lsp:themable-decoration-attachment-render-options-content-text\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "contentText"] 4 (#$ . 12045)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-themable-decoration-attachment-render-options-content-text\? #[514 "\300\301#\210\207" [puthash "contentText"] 6 (#$ . 12224)]) #@15 (fn OBJECT) (defalias 'lsp:themable-decoration-attachment-render-options-color\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "color"] 4 (#$ . 12400)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-themable-decoration-attachment-render-options-color\? #[514 "\300\301#\210\207" [puthash "color"] 6 (#$ . 12566)]) #@15 (fn OBJECT) (defalias 'lsp:themable-decoration-attachment-render-options-font-style\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "fontStyle"] 4 (#$ . 12729)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-themable-decoration-attachment-render-options-font-style\? #[514 "\300\301#\210\207" [puthash "fontStyle"] 6 (#$ . 12904)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DebugSession #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:name :uri) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:name :uri) gethash 1 nil assoc ((:name . :name) (:uri . :uri))] 7 (#$ . 13076)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&DebugSession\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:name :uri) error "Unknown key: %s. Available keys: %s" (:name :uri) when ht\? gethash symbol-name assoc ((:name . :name) (:uri . :uri)) 1 nil] 9 (#$ . 13452)]) #@15 (fn OBJECT) (defalias 'lsp-debug-session\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("name" "uri") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:name :uri)] 6 (#$ . 13767)]) #@52 (fn &rest PLIST &key NAME URI &allow-other-keys) (defalias 'lsp-make-debug-session #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :name :uri make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:name . :name) (:uri . :uri))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 14101)]) #@15 (fn OBJECT) (defalias 'lsp:debug-session-name #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "name"] 4 (#$ . 14549)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-debug-session-name #[514 "\300\301#\210\207" [puthash "name"] 6 (#$ . 14679)]) #@15 (fn OBJECT) (defalias 'lsp:debug-session-uri #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uri"] 4 (#$ . 14806)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-debug-session-uri #[514 "\300\301#\210\207" [puthash "uri"] 6 (#$ . 14934)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewNode #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:node-uri\? :command\? :icon\? :tooltip\? :collapse-state\? :view-id :label) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:node-uri\? :command\? :icon\? :tooltip\? :collapse-state\? :view-id :label) gethash 1 nil assoc ((:node-uri\? . :nodeUri) (:command\? . :command) (:icon\? . :icon) (:tooltip\? . :tooltip) (:collapse-state\? . :collapseState) (:view-id . :viewId) (:label . :label))] 7 (#$ . 15059)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewNode\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:node-uri\? :command\? :icon\? :tooltip\? :collapse-state\? :view-id :label) error "Unknown key: %s. Available keys: %s" (:node-uri\? :command\? :icon\? :tooltip\? :collapse-state\? :view-id :label) when ht\? gethash symbol-name assoc ((:node-uri\? . :nodeUri) (:command\? . :command) (:icon\? . :icon) (:tooltip\? . :tooltip) (:collapse-state\? . :collapseState) (:view-id . :viewId) (:label . :label)) 1 nil] 9 (#$ . 15702)]) #@15 (fn OBJECT) (defalias 'lsp-tree-view-node\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("viewId" "label") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:viewId :label)] 6 (#$ . 16284)]) #@122 (fn &rest PLIST &key NODE-URI\=\? COMMAND\=\? ICON\=\? TOOLTIP\=\? COLLAPSE-STATE\=\? VIEW-ID LABEL &allow-other-keys) (defalias 'lsp-make-tree-view-node #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\310\311\312\"\211\262\313\314\315\"\316\317\f\"\"\210\207" [plist-member :node-uri\? :command\? :icon\? :tooltip\? :collapse-state\? :view-id :label make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:node-uri\? . :nodeUri) (:command\? . :command) (:icon\? . :icon) (:tooltip\? . :tooltip) (:collapse-state\? . :collapseState) (:view-id . :viewId) (:label . :label))] 9 "\n\n(fn INPUT0)"] -partition 2] 14 (#$ . 16628)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-node-uri\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "nodeUri"] 4 (#$ . 17418)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-node-uri\? #[514 "\300\301#\210\207" [puthash "nodeUri"] 6 (#$ . 17558)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-command\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 17695)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-command\? #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 17834)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-icon\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "icon"] 4 (#$ . 17970)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-icon\? #[514 "\300\301#\210\207" [puthash "icon"] 6 (#$ . 18103)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 18233)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 18372)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-collapse-state\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "collapseState"] 4 (#$ . 18508)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-collapse-state\? #[514 "\300\301#\210\207" [puthash "collapseState"] 6 (#$ . 18660)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-view-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "viewId"] 4 (#$ . 18809)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-view-id #[514 "\300\301#\210\207" [puthash "viewId"] 6 (#$ . 18945)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-node-label #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "label"] 4 (#$ . 19078)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-node-label #[514 "\300\301#\210\207" [puthash "label"] 6 (#$ . 19211)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewCommand #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:tooltip\? :arguments\? :title :command) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:tooltip\? :arguments\? :title :command) gethash 1 nil assoc ((:tooltip\? . :tooltip) (:arguments\? . :arguments) (:title . :title) (:command . :command))] 7 (#$ . 19341)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewCommand\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:tooltip\? :arguments\? :title :command) error "Unknown key: %s. Available keys: %s" (:tooltip\? :arguments\? :title :command) when ht\? gethash symbol-name assoc ((:tooltip\? . :tooltip) (:arguments\? . :arguments) (:title . :title) (:command . :command)) 1 nil] 9 (#$ . 19840)]) #@15 (fn OBJECT) (defalias 'lsp-tree-view-command\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("title" "command") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:title :command)] 6 (#$ . 20278)]) #@83 (fn &rest PLIST &key TOOLTIP\=\? ARGUMENTS\=\? TITLE COMMAND &allow-other-keys) (defalias 'lsp-make-tree-view-command #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\305\306\307\"\211\262\310\311\312\"\313\314 \"\"\210\207" [plist-member :tooltip\? :arguments\? :title :command make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:tooltip\? . :tooltip) (:arguments\? . :arguments) (:title . :title) (:command . :command))] 9 "\n\n(fn INPUT0)"] -partition 2] 11 (#$ . 20626)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-command-tooltip\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "tooltip"] 4 (#$ . 21227)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-command-tooltip\? #[514 "\300\301#\210\207" [puthash "tooltip"] 6 (#$ . 21369)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-command-arguments\? #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "arguments"] 4 (#$ . 21508)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-command-arguments\? #[514 "\300\301#\210\207" [puthash "arguments"] 6 (#$ . 21654)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-command-title #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "title"] 4 (#$ . 21797)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-command-title #[514 "\300\301#\210\207" [puthash "title"] 6 (#$ . 21933)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-command-command #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "command"] 4 (#$ . 22066)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-command-command #[514 "\300\301#\210\207" [puthash "command"] 6 (#$ . 22206)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewChildrenResult #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:nodes s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:nodes) gethash 1 nil assoc ((:nodes . :nodes))] 7 (#$ . 22343)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewChildrenResult\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:nodes error "Unknown key: %s. Available keys: %s" (:nodes) when ht\? gethash symbol-name assoc ((:nodes . :nodes)) 1 nil] 9 (#$ . 22707)]) #@15 (fn OBJECT) (defalias 'lsp-tree-view-children-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("nodes") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:nodes)] 6 (#$ . 23010)]) #@49 (fn &rest PLIST &key NODES &allow-other-keys) (defalias 'lsp-make-tree-view-children-result #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :nodes make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:nodes . :nodes))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 23347)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-children-result-nodes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "nodes"] 4 (#$ . 23775)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-children-result-nodes #[514 "\300\301#\210\207" [puthash "nodes"] 6 (#$ . 23919)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewDidChangeParams #[514 "\300=\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [:nodes s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:nodes) gethash 1 nil assoc ((:nodes . :nodes))] 7 (#$ . 24060)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewDidChangeParams\? #[514 "\300=\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [:nodes error "Unknown key: %s. Available keys: %s" (:nodes) when ht\? gethash symbol-name assoc ((:nodes . :nodes)) 1 nil] 9 (#$ . 24425)]) #@15 (fn OBJECT) (defalias 'lsp-tree-view-did-change-params\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("nodes") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:nodes)] 6 (#$ . 24729)]) #@49 (fn &rest PLIST &key NODES &allow-other-keys) (defalias 'lsp-make-tree-view-did-change-params #[128 "\300\301\"A@\302\303\304\"\211\262\305\306\307\"\310\311\"\"\210\207" [plist-member :nodes make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:nodes . :nodes))] 9 "\n\n(fn INPUT0)"] -partition 2] 8 (#$ . 25068)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-did-change-params-nodes #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "nodes"] 4 (#$ . 25498)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-did-change-params-nodes #[514 "\300\301#\210\207" [puthash "nodes"] 6 (#$ . 25644)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewRevealResult #[514 "\300>\204\301\302\303!\"\204\304\305\306#\210\307\301\302\303!\"\203(\303!\310\311O\2022\303\312\313\"A!\310\311OE\207" [(:view-id :uri-chain) s-starts-with\? ":_" symbol-name error "Unknown key: %s. Available keys: %s" (:view-id :uri-chain) gethash 1 nil assoc ((:view-id . :viewId) (:uri-chain . :uriChain))] 7 (#$ . 25787)]) #@19 (fn KEY SOURCE) (defalias 'dash-expand:&TreeViewRevealResult\? #[514 "\300>\204\f\301\302\303#\210\304\305D\306\307\310\311\"A!\312\313OEE\207" [(:view-id :uri-chain) error "Unknown key: %s. Available keys: %s" (:view-id :uri-chain) when ht\? gethash symbol-name assoc ((:view-id . :viewId) (:uri-chain . :uriChain)) 1 nil] 9 (#$ . 26205)]) #@15 (fn OBJECT) (defalias 'lsp-tree-view-reveal-result\? #[257 "\300!\203\301\302!\303\304\"\262\305\"\207\211<\205\301\303\306\"\307\"\207" [ht\? -all\? ht-keys make-closure #[257 "\211\300\235\207" [V0] 3 "\n\n(fn PROP)"] ("viewId" "uriChain") #[257 "\301\300\"\207" [V0 plist-member] 4 "\n\n(fn PROP)"] (:viewId :uriChain)] 6 (#$ . 26562)]) #@61 (fn &rest PLIST &key VIEW-ID URI-CHAIN &allow-other-keys) (defalias 'lsp-make-tree-view-reveal-result #[128 "\300\301\"A@\300\302\"A@\303\304\305\"\211\262\306\307\310\"\311\312\"\"\210\207" [plist-member :view-id :uri-chain make-hash-table :test equal mapc make-closure #[257 "\211\211A\262\242@\301\302\303\304\"A\206!\300#\207" [V0 puthash lsp-keyword->string assoc ((:view-id . :viewId) (:uri-chain . :uriChain))] 9 "\n\n(fn INPUT0)"] -partition 2] 9 (#$ . 26920)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-reveal-result-view-id #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "viewId"] 4 (#$ . 27412)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-reveal-result-view-id #[514 "\300\301#\210\207" [puthash "viewId"] 6 (#$ . 27557)]) #@15 (fn OBJECT) (defalias 'lsp:tree-view-reveal-result-uri-chain #[257 "\300!\205\n\301\302\"\207" [ht\? gethash "uriChain"] 4 (#$ . 27699)]) #@21 (fn OBJECT VALUE) (defalias 'lsp:set-tree-view-reveal-result-uri-chain #[514 "\300\301#\210\207" [puthash "uriChain"] 6 (#$ . 27848)]) (provide 'lsp-metals-protocol)