;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. #@113 Makes a new *omnisharp-solution-errors* buffer or creates a new one and enabled compilation-mode on the buffer. (defalias 'omnisharp--prepare-solution-errors-buffer #[0 "\303\304!\305\236A\203rq\210\306\307 \210\310\211)\207\311\304!r\211q\210\312 \210)\207" [omnisharp--server-info buffer-read-only default-directory get-buffer "*omnisharp-solution-errors*" :project-root nil erase-buffer t get-buffer-create compilation-mode] 4 (#$ . 88)]) #@204 Opens a new buffer *omnisharp-solution-errors* (or updates existing one) with solution errors. This is the same error list as emitted by flycheck only for the whole solution. (fn &optional ERRORS-ONLY) (defalias 'omnisharp-solution-errors #[256 "\205%\302 \303 rq\210\304\305c\210\306)\307!\210\310\311\312\313\314##\266\202\207" [omnisharp--server-info buffer-read-only omnisharp--prepare-solution-errors-buffer current-time nil "omnisharp-solution-errors: waiting for omnisharp server ..." t display-buffer omnisharp--send-command-to-server "codecheck" ((FileName)) make-closure #[257 "\304 \305\306\236A!\307\310\311 \301\"!\312!\210\313 \314\315\"\216rq\210\316\211\203r\211@\317\236A\320\230\2034\321\2025\322\323 \324P\325\236A\"\326\236A\327\236A\330\236A\300\203T\321\230\203i\331\332!\333\332!\334\n\335\336\260\nc\210\266A\266\202\202!\210\337\332!\340Qc\210\341\211*\207" [V0 V1 buffer-read-only default-directory omnisharp--prepare-solution-errors-buffer omnisharp--vector-to-list QuickFixes time-to-seconds time-subtract current-time display-buffer current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] nil LogLevel "Error" "error" "warning" string-remove-prefix "/" FileName Line Column Text "(" number-to-string "," "): " " CS0000: " "\n" "\nomnisharp-solution-errors: finished, took " " seconds to complete.\n" t] 22 "\n\n(fn RESPONSE)"]] 10 (#$ . 548) "P"]) (defalias 'omnisharp-add-to-solution-current-file #[0 "\300 \301!\210\302\303\304!\"\207" [omnisharp--get-request-object omnisharp-add-to-solution-worker message "Added %s to the solution." omnisharp--get-filename] 5 nil nil]) #@68 Add the files currently selected in dired to the current solution. (defalias 'omnisharp-add-to-solution-dired-selected-files #[0 "\300 \211\301\302\211\2050\211A\262\242\262\262T\262\303!\304 B\305!\266\306\307\310G!\"\210\202\207" [dired-get-marked-files 0 nil omnisharp--to-filename omnisharp--get-request-object omnisharp-add-to-solution-worker message "Added %s files to the solution." prin1-to-string] 9 (#$ . 2239) nil]) #@178 Gets a list of refactoring code actions for the current editor position and file from the server. Asks the user what kind of refactoring they want to run. Then runs the action. (defalias 'omnisharp-run-code-action-refactoring #[0 "\300 \301\302\303\304\"#\207" [omnisharp--get-code-actions-request omnisharp--send-command-to-server "v2/getcodeactions" make-closure #[257 "\301\236A\302!\303\304\"\211G\305X\203\306\307!\207\310\311\"\312\305\312\211\211\203T\211A\262\242\262\262\211\262\203T\313\236A\232\203G\312\262\203T\262\262T\262\202 \266\211\262\314\315\236A\300\"\207" [V0 CodeActions omnisharp--vector-to-list mapcar #[257 "\300\236A\207" [Name] 3 "\n\n(fn IT)"] 0 message "No refactorings available at this position." omnisharp--completing-read "Run code action: " nil Name omnisharp-run-code-action-refactoring-worker Identifier] 13 "\n\n(fn INPUT0)"]] 7 (#$ . 2689) nil]) #@54 (fn CHOSEN-ACTION-IDENTIFIER CODE-ACTIONS-REQUEST) (defalias 'omnisharp-run-code-action-refactoring-worker #[514 "\300\301B\302B\"\303\304\305#\207" [-concat Identifier ((WantsTextChanges . t)) omnisharp--send-command-to-server-sync "v2/runcodeaction" #[257 "\300\236A\301\302\"\207" [Changes -map omnisharp--apply-text-changes] 5 "\n\n(fn INPUT0)"]] 7 (#$ . 3617)]) #@63 Returns an ICodeActionRequest for the current buffer position (defalias 'omnisharp--get-code-actions-request #[0 "\300 \203!\301\302 \303\304\305\306 B\307\310 BE\311\305\312 B\307\313 BEEC\"\207\302 \207" [region-active-p -concat omnisharp--get-request-object Selection Start Line omnisharp--region-start-line Column omnisharp--region-start-column End omnisharp--region-end-line omnisharp--region-end-column] 8 (#$ . 3997)]) #@96 Converts the given STRING-TO-CONVERT's backslashes to forward slashes. (fn STRING-TO-CONVERT) (defalias 'omnisharp--convert-backslashes-to-forward-slashes #[257 "\300\301\302#\207" [replace-regexp-in-string "\\\\" "/"] 5 (#$ . 4430)]) (provide 'omnisharp-solution-actions)