144 lines
4.9 KiB
EmacsLisp
144 lines
4.9 KiB
EmacsLisp
;;; funcs.el --- rust Layer functions File for Spacemacs
|
||
;;
|
||
;; Copyright (c) 2012-2021 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: NJBS <DoNotTrackMeUsingThis@gmail.com>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;; This program 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 of the License, or
|
||
;; (at your option) any later version.
|
||
;;
|
||
;; This program 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 spacemacs//rust-backend ()
|
||
"Returns selected backend."
|
||
(if rust-backend
|
||
rust-backend
|
||
(cond
|
||
((configuration-layer/layer-used-p 'lsp) 'lsp)
|
||
(t 'racer))))
|
||
|
||
(defun spacemacs//rust-setup-backend ()
|
||
"Conditionally setup rust backend."
|
||
(pcase (spacemacs//rust-backend)
|
||
(`racer (spacemacs//rust-setup-racer))
|
||
(`lsp (spacemacs//rust-setup-lsp))))
|
||
|
||
(defun spacemacs//rust-setup-company ()
|
||
"Conditionally setup company based on backend."
|
||
(pcase (spacemacs//rust-backend)
|
||
(`racer (spacemacs//rust-setup-racer-company))))
|
||
|
||
(defun spacemacs//rust-setup-dap ()
|
||
"Conditionally setup elixir DAP integration."
|
||
;; currently DAP is only available using LSP
|
||
(pcase (spacemacs//rust-backend)
|
||
(`lsp (spacemacs//rust-setup-lsp-dap))))
|
||
|
||
|
||
;; lsp
|
||
(defun spacemacs//lsp-layer-not-installed-message ()
|
||
(message (concat "`lsp' layer is not installed, "
|
||
"please add `lsp' layer to your dotfile.")))
|
||
|
||
(defun spacemacs//lsp-rust-switch-server ()
|
||
"Switch between rust-analyzer and rls."
|
||
(interactive)
|
||
(lsp-rust-switch-server)
|
||
(call-interactively 'lsp-workspace-restart))
|
||
|
||
(defun spacemacs//rust-setup-lsp ()
|
||
"Setup lsp backend"
|
||
(if (configuration-layer/layer-used-p 'lsp)
|
||
(progn
|
||
(lsp)
|
||
(spacemacs/declare-prefix-for-mode 'rust-mode "ms" "switch")
|
||
(spacemacs/set-leader-keys-for-major-mode 'rust-mode
|
||
"ss" 'spacemacs//lsp-rust-switch-server
|
||
"bR" 'spacemacs//lsp-rust-analyzer-reload-workspace))
|
||
(spacemacs//lsp-layer-not-installed-message)))
|
||
|
||
(defun spacemacs//rust-setup-lsp-dap ()
|
||
"Setup DAP integration."
|
||
(require 'dap-gdb-lldb))
|
||
|
||
(defun spacemacs//lsp-rust-analyzer-reload-workspace ()
|
||
(interactive)
|
||
(if (->> (lsp-workspaces)
|
||
(mapcar 'lsp--workspace-client)
|
||
(mapcar 'lsp--client-server-id)
|
||
(member 'rust-analyzer))
|
||
(progn
|
||
(lsp-rust-analyzer-reload-workspace)
|
||
(message "Reloaded workspace"))
|
||
(message "RLS reloads automatically, and doesn't require an explicit reload")))
|
||
|
||
|
||
;; racer
|
||
|
||
(defun spacemacs//rust-setup-racer ()
|
||
"Setup racer backend"
|
||
(progn
|
||
(racer-mode)))
|
||
|
||
(defun spacemacs//rust-setup-racer-company ()
|
||
"Setup racer auto-completion."
|
||
(spacemacs|add-company-backends
|
||
:backends company-capf
|
||
:modes rust-mode
|
||
:variables company-tooltip-align-annotations t))
|
||
|
||
(defun spacemacs/racer-describe ()
|
||
"Show a *Racer Help* buffer for the function or type at point.
|
||
If `help-window-select' is non-nil, also select the help window."
|
||
(interactive)
|
||
(let ((window (racer-describe)))
|
||
(when help-window-select
|
||
(select-window window))))
|
||
|
||
;; Misc
|
||
|
||
(defvar spacemacs//rust-quick-run-tmp-file nil
|
||
"Stores filename for the rust-quick-run function")
|
||
|
||
(defun spacemacs//rust-quick-run-generate-tmp-file-name (input-file-name)
|
||
(concat temporary-file-directory
|
||
(file-name-nondirectory (buffer-file-name))
|
||
"-"
|
||
(md5 (buffer-file-name))))
|
||
|
||
(defun spacemacs//rust-quick-run-compilation-finish-function (buffer status)
|
||
(setq compilation-finish-functions
|
||
(delete 'spacemacs//rust-quick-run-compilation-finish-function
|
||
compilation-finish-functions))
|
||
(when (string-match "finished" status)
|
||
(newline)
|
||
(shell-command
|
||
(shell-quote-argument spacemacs//rust-quick-run-tmp-file) t)))
|
||
|
||
(defun spacemacs/rust-quick-run ()
|
||
"Quickly run a Rust file using rustc.
|
||
Meant for a quick-prototype flow only - use `spacemacs/open-junk-file' to open a
|
||
junk Rust file, type in some code and quickly run it. If you want to use
|
||
third-party crates, create a new project using `cargo-process-new' and run using
|
||
`cargo-process-run'."
|
||
(interactive)
|
||
(setq spacemacs//rust-quick-run-tmp-file
|
||
(spacemacs//rust-quick-run-generate-tmp-file-name(buffer-file-name)))
|
||
(add-to-list 'compilation-finish-functions
|
||
'spacemacs//rust-quick-run-compilation-finish-function)
|
||
(compile
|
||
(format "rustc -o %s %s"
|
||
(shell-quote-argument spacemacs//rust-quick-run-tmp-file)
|
||
(shell-quote-argument buffer-file-name))))
|