;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\301&\210\311\312\313\314\315DD\316\310\303\317\320\321\322& \210\311\323\313\314\324DD\325\310\303\317\320\321\326& \207" [require lsp-mode custom-declare-group lsp-rescript nil "lsp-mode client configuration for rescript-vscode LSP server for ReScript." :link (url-link "https://rescript-lang.org/") :group custom-declare-variable lsp-rescript-server-command funcall function #[0 "\300\207" [nil] 1] "Full command to run the ReScript language server.\n\nShould be something like:\n'(\"node\" \"/path/to/rescript-vscode/server/out/server.js\" \"--stdio\")" :risky t :type (repeat string) lsp-rescript-prompt-for-build #[0 "\300\207" [t] 1] "If nil, suppress the prompt to start a build." boolean] 10) #@417 Return an alist with the same keys and values as hash TABLE, but symbol keys. The values of the alist are length-one lists. For example, a hash table with data: ("title" "Start Build" "projectRootPath" "/path/to/myproject") is mapped to: (:title "Start Build" :projectRootPath "/path/to/myproject") This is useful for constructing LSP responses from the lisp representation of LSP request JSON data. (fn TABLE) (defalias 'lsp-rescript--symbolize-json #[257 "\300C\301\302\303\"\"\210\211\242\207" [nil maphash make-closure #[514 "\300\301\300\242\302\303P!D\"\240\207" [V0 append intern ":"] 8 "\n\n(fn KEY VALUE)"]] 6 (#$ . 844)]) #@44 Propertize STR as per TYPE. (fn STR TYPE) (defalias 'lsp-rescript--propertize #[514 "\301\302\303\"#\207" [lsp--message-type-face propertize face alist-get] 8 (#$ . 1492)]) #@91 Display message request to the user and return user's selection as response. (fn INPUT0) (defalias 'lsp-rescript--window-log-message-request #[257 "\300\301\"\300\302\"\300\303\"\304\"\305\306\"\211\203X\307\310P\311\312$\311\313\311\"\314\311\211\203M\211A\262\242\262\262T\262\300\315\"\232\203(B\262\202(\266\211\237\262@\316!\207\317!\207" [gethash "message" "type" "actions" lsp-rescript--propertize mapcar #[257 "\300\301\"\207" [gethash "title"] 4 "\n\n(fn IT)"] completing-read " " nil t append 0 "title" lsp-rescript--symbolize-json lsp-log] 15 (#$ . 1675)]) #@73 Handle a show message REQUEST in lsp WORKSPACE. (fn WORKSPACE REQUEST) (defalias 'lsp-rescript--handle-show-message-request #[514 "\205\301!\207" [lsp-rescript-prompt-for-build lsp-rescript--window-log-message-request] 4 (#$ . 2282)]) (byte-code "\300\301\302\"\210\303\304\305\306\307!\310\311\312\313\314\315\"\316\317\320#\210\211\262\321\313\314\315\"\316\322\323#\210\211\262\324\325\326\327\330\331&!\210\332\333!\207" [add-to-list lsp-language-id-configuration (rescript-mode . "rescript") lsp-register-client make-lsp-client :new-connection lsp-stdio-connection #[0 "\207" [lsp-rescript-server-command] 1] :major-modes (rescript-mode) :notification-handlers make-hash-table :test equal puthash "client/registerCapability" ignore :request-handlers "window/showMessageRequest" lsp-rescript--handle-show-message-request :priority 1 :language-id "rescript" :server-id rescript-vscode provide lsp-rescript] 16)