74 lines
3.1 KiB
EmacsLisp
74 lines
3.1 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
|
|
;; This file is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 3, or (at your option)
|
|
;; any later version.
|
|
|
|
;; This file is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
(defun omnisharp--start-omnisharp-server (no-autodetect)
|
|
"Actual implementation for autoloaded omnisharp-start-omnisharp-server.
|
|
|
|
Will query user for a path to project/solution file to start the server with."
|
|
(let ((server-executable-path (omnisharp--resolve-omnisharp-server-executable-path))
|
|
(project-file-candidates (omnisharp--resolve-sln-candidates)))
|
|
(if server-executable-path
|
|
(if (and (not no-autodetect)
|
|
project-file-candidates)
|
|
(omnisharp--do-server-start (completing-read "Omnisharp - Start Server"
|
|
project-file-candidates
|
|
nil
|
|
t))
|
|
(let ((path-to-project (read-file-name
|
|
"Start OmniSharp for project folder or solution file: ")))
|
|
(if (file-exists-p path-to-project)
|
|
(omnisharp--do-server-start path-to-project)
|
|
(error (format "Path does not lead to a valid project directory or solution file path: %s"
|
|
path-to-project))))))))
|
|
|
|
(defun omnisharp--stop-server ()
|
|
"Actual implementation for autoloaded omnisharp-stop-server"
|
|
(unless (equal nil omnisharp--server-info)
|
|
(kill-process (cdr (assoc :process omnisharp--server-info)))))
|
|
|
|
(defun omnisharp--reload-solution ()
|
|
"Actual implementation for autoloaded omnisharp-reload-solution"
|
|
(if (and (not (equal nil omnisharp--last-project-path))
|
|
(not (equal nil omnisharp--server-info)))
|
|
(progn
|
|
(setq omnisharp--restart-server-on-stop t)
|
|
(kill-process (cdr (assoc :process omnisharp--server-info))))
|
|
(message "Cannot reload project in Omnisharp - no project previously loaded")))
|
|
|
|
(defun omnisharp--check-alive-status ()
|
|
"Actual implementation for autoloaded omnisharp-check-alive-status"
|
|
(omnisharp--send-command-to-server
|
|
"checkalivestatus"
|
|
nil
|
|
#'omnisharp--check-alive-status-worker))
|
|
|
|
(defun omnisharp--check-alive-status-worker (alive?)
|
|
(if alive?
|
|
(message "Server is alive and well. Happy coding!")
|
|
(message "Server is not alive")))
|
|
|
|
(defun omnisharp--check-ready-status ()
|
|
"Actual implementation for autoloaded omnisharp--check-ready-status"
|
|
(omnisharp--send-command-to-server
|
|
"checkreadystatus"
|
|
nil
|
|
(lambda (ready?)
|
|
(if ready?
|
|
(message "Server is ready")
|
|
(message "Server is not ready yet")))))
|
|
|
|
(provide 'omnisharp-server-actions)
|