Update packages
This commit is contained in:
Mateus Pinto Rodrigues
178
elpa/cargo-20180521.408/cargo-autoloads.el
Normal file
178
elpa/cargo-20180521.408/cargo-autoloads.el
Normal file
@@ -0,0 +1,178 @@
|
||||
;;; cargo-autoloads.el --- automatically extracted autoloads
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(add-to-list 'load-path (directory-file-name
|
||||
(or (file-name-directory #$) (car load-path))))
|
||||
|
||||
|
||||
;;;### (autoloads nil "cargo" "cargo.el" (0 0 0 0))
|
||||
;;; Generated autoloads from cargo.el
|
||||
|
||||
(autoload 'cargo-minor-mode "cargo" "\
|
||||
Cargo minor mode. Used to hold keybindings for cargo-mode.
|
||||
|
||||
\\{cargo-minor-mode-map}
|
||||
|
||||
\(fn &optional ARG)" t nil)
|
||||
|
||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cargo" '("cargo-minor-mode")))
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil "cargo-process" "cargo-process.el" (0 0 0 0))
|
||||
;;; Generated autoloads from cargo-process.el
|
||||
|
||||
(autoload 'cargo-process-bench "cargo-process" "\
|
||||
Run the Cargo bench command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the benchmarks.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-build "cargo-process" "\
|
||||
Run the Cargo build command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Compile the current project.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-clean "cargo-process" "\
|
||||
Run the Cargo clean command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Remove the target directory.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-doc "cargo-process" "\
|
||||
Run the Cargo doc command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build this project's and its dependencies' documentation.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-doc-open "cargo-process" "\
|
||||
Run the Cargo doc command with the --open switch.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Open this project's documentation.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-new "cargo-process" "\
|
||||
Run the Cargo new command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
NAME is the name of your application.
|
||||
If BIN is t then create a binary application, otherwise a library.
|
||||
Cargo: Create a new cargo project.
|
||||
|
||||
\(fn NAME &optional BIN)" t nil)
|
||||
|
||||
(autoload 'cargo-process-init "cargo-process" "\
|
||||
Run the Cargo init command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
DIRECTORY is the directory you want to create a cargo project in.
|
||||
If BIN is t then create a binary application, otherwise a library.
|
||||
Cargo: Create a new cargo project in current directory.
|
||||
|
||||
\(fn DIRECTORY &optional BIN)" t nil)
|
||||
|
||||
(autoload 'cargo-process-run "cargo-process" "\
|
||||
Run the Cargo run command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute src/main.rs.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-run-bin "cargo-process" "\
|
||||
Run the Cargo run command --bin <name>.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute a specific binary
|
||||
|
||||
\(fn COMMAND)" t nil)
|
||||
|
||||
(autoload 'cargo-process-run-example "cargo-process" "\
|
||||
Run the Cargo run command --example <name>.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute with --example <name>.
|
||||
|
||||
\(fn COMMAND)" t nil)
|
||||
|
||||
(autoload 'cargo-process-search "cargo-process" "\
|
||||
Run the Cargo search command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
SEARCH-TERM is used as the search term for the Cargo registry.
|
||||
Cargo: Search registry for crates.
|
||||
|
||||
\(fn SEARCH-TERM)" t nil)
|
||||
|
||||
(autoload 'cargo-process-test "cargo-process" "\
|
||||
Run the Cargo test command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-current-test "cargo-process" "\
|
||||
Run the Cargo test command for the current test.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-current-file-tests "cargo-process" "\
|
||||
Run the Cargo test command for the current file.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-update "cargo-process" "\
|
||||
Run the Cargo update command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Update dependencies listed in Cargo.lock.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-fmt "cargo-process" "\
|
||||
Run the Cargo fmt command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Requires Cargo Fmt to be installed.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-check "cargo-process" "\
|
||||
Run the Cargo check command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Check compile the current project.
|
||||
Requires cargo-check to be installed.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-clippy "cargo-process" "\
|
||||
Run the Cargo clippy command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Clippy compile the current project.
|
||||
Requires Cargo clippy to be installed.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(autoload 'cargo-process-repeat "cargo-process" "\
|
||||
Run the last cargo-process command.
|
||||
|
||||
\(fn)" t nil)
|
||||
|
||||
(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "cargo-process" '("cargo-process-" "set-rust-backtrace" "rustc-errno")))
|
||||
|
||||
;;;***
|
||||
|
||||
;;;### (autoloads nil nil ("cargo-pkg.el") (0 0 0 0))
|
||||
|
||||
;;;***
|
||||
|
||||
;; Local Variables:
|
||||
;; version-control: never
|
||||
;; no-byte-compile: t
|
||||
;; no-update-autoloads: t
|
||||
;; coding: utf-8
|
||||
;; End:
|
||||
;;; cargo-autoloads.el ends here
|
||||
9
elpa/cargo-20180521.408/cargo-pkg.el
Normal file
9
elpa/cargo-20180521.408/cargo-pkg.el
Normal file
@@ -0,0 +1,9 @@
|
||||
(define-package "cargo" "20180521.408" "Emacs Minor Mode for Cargo, Rust's Package Manager."
|
||||
'((emacs "24.3")
|
||||
(rust-mode "0.2.0")
|
||||
(markdown-mode "2.4"))
|
||||
:keywords
|
||||
'("tools"))
|
||||
;; Local Variables:
|
||||
;; no-byte-compile: t
|
||||
;; End:
|
||||
521
elpa/cargo-20180521.408/cargo-process.el
Normal file
521
elpa/cargo-20180521.408/cargo-process.el
Normal file
@@ -0,0 +1,521 @@
|
||||
;;; cargo-process.el --- Cargo Process Major Mode -*-lexical-binding: t-*-
|
||||
|
||||
;; Copyright (C) 2015 Kevin W. van Rooijen
|
||||
|
||||
;; Author: Kevin W. van Rooijen <kevin.van.rooijen@attichacker.com>
|
||||
;; Keywords: processes, tools
|
||||
|
||||
;; 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/>.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; Cargo Process Major mode.
|
||||
;; Used to run Cargo background processes.
|
||||
;; Current supported Cargo functions:
|
||||
;; * cargo-process-bench - Run the benchmarks.
|
||||
;; * cargo-process-build - Compile the current project.
|
||||
;; * cargo-process-clean - Remove the target directory.
|
||||
;; * cargo-process-doc - Build this project's and its dependencies' documentation.
|
||||
;; * cargo-process-doc-open - Open this project's documentation.
|
||||
;; * cargo-process-new - Create a new cargo project.
|
||||
;; * cargo-process-init - Create a new cargo project inside an existing directory.
|
||||
;; * cargo-process-run - Build and execute src/main.rs.
|
||||
;; * cargo-process-run-example - Build and execute with --example <name>.
|
||||
;; * cargo-process-run-bin - Build and execute a specific binary.
|
||||
;; * cargo-process-search - Search registry for crates.
|
||||
;; * cargo-process-test - Run all unit tests.
|
||||
;; * cargo-process-update - Update dependencies listed in Cargo.lock.
|
||||
;; * cargo-process-repeat - Run the last cargo-process command.
|
||||
;; * cargo-process-current-test - Run the current unit test.
|
||||
;; * cargo-process-current-file-tests - Run the current file unit tests.
|
||||
;; * cargo-process-fmt - Run the optional cargo command fmt.
|
||||
;; * cargo-process-check - Run the optional cargo command check.
|
||||
;; * cargo-process-clippy - Run the optional cargo command clippy.
|
||||
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(require 'compile)
|
||||
(require 'button)
|
||||
(require 'rust-mode)
|
||||
(require 'markdown-mode)
|
||||
|
||||
(defgroup cargo-process nil
|
||||
"Cargo Process group."
|
||||
:prefix "cargo-process-"
|
||||
:group 'cargo)
|
||||
|
||||
(defcustom cargo-process--custom-path-to-bin
|
||||
(or (executable-find "cargo")
|
||||
(expand-file-name "cargo" "~/.cargo/bin")
|
||||
"/usr/local/bin/cargo")
|
||||
"Custom path to the cargo executable"
|
||||
:type 'file
|
||||
:group 'cargo-process)
|
||||
|
||||
(defcustom cargo-process--rustc-cmd
|
||||
(or (executable-find "rustc")
|
||||
(expand-file-name "rustc" "~/.cargo/bin")
|
||||
"/usr/local/bin/rustc")
|
||||
"Custom path to the rustc executable"
|
||||
:type 'file
|
||||
:group 'cargo-process)
|
||||
|
||||
(defcustom cargo-process--enable-rust-backtrace nil
|
||||
"Set RUST_BACKTRACE environment variable to 1 for tasks test and run"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defcustom cargo-process--command-flags ""
|
||||
"Flags to be added to every cargo command when run."
|
||||
:group 'cargo-process)
|
||||
|
||||
(defvar cargo-process-mode-map
|
||||
(nconc (make-sparse-keymap) compilation-mode-map)
|
||||
"Keymap for Cargo major mode.")
|
||||
|
||||
(defvar cargo-process-last-command nil "Command used last for repeating.")
|
||||
|
||||
(make-variable-buffer-local 'cargo-process-last-command)
|
||||
|
||||
(defvar cargo-process--command-bench "bench")
|
||||
|
||||
(defvar cargo-process--command-build "build")
|
||||
|
||||
(defvar cargo-process--command-clean "clean")
|
||||
|
||||
(defvar cargo-process--command-doc "doc")
|
||||
|
||||
(defvar cargo-process--command-doc-open "doc --open")
|
||||
|
||||
(defvar cargo-process--command-new "new")
|
||||
|
||||
(defvar cargo-process--command-init "init")
|
||||
|
||||
(defvar cargo-process--command-run "run")
|
||||
|
||||
(defvar cargo-process--command-run-bin "run --bin")
|
||||
|
||||
(defvar cargo-process--command-run-example "run --example")
|
||||
|
||||
(defvar cargo-process--command-search "search")
|
||||
|
||||
(defvar cargo-process--command-test "test")
|
||||
|
||||
(defvar cargo-process--command-current-test "test")
|
||||
|
||||
(defvar cargo-process--command-current-file-tests "test")
|
||||
|
||||
(defvar cargo-process--command-update "update")
|
||||
|
||||
(defvar cargo-process--command-fmt "fmt")
|
||||
|
||||
(defvar cargo-process--command-check "check")
|
||||
|
||||
(defvar cargo-process--command-clippy "clippy")
|
||||
|
||||
(defface cargo-process--ok-face
|
||||
'((t (:foreground "#00ff00")))
|
||||
"Ok face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defface cargo-process--error-face
|
||||
'((t (:foreground "#FF0000")))
|
||||
"Error face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defface cargo-process--warning-face
|
||||
'((t (:foreground "#eeee00")))
|
||||
"Warning face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defface cargo-process--pointer-face
|
||||
'((t (:foreground "#ff00ff")))
|
||||
"Pointer face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defface cargo-process--standard-face
|
||||
'((t (:foreground "#ffa500")))
|
||||
"Standard face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defface cargo-process--errno-face
|
||||
'((t :foreground "#7777ff"
|
||||
:underline t))
|
||||
"Error number face"
|
||||
:group 'cargo-process)
|
||||
|
||||
(defconst cargo-process--rust-backtrace "RUST_BACKTRACE")
|
||||
|
||||
(defconst cargo-process-test-regexp "^[[:space:]]*fn[[:space:]]*"
|
||||
"Regex to find Rust unit test function.")
|
||||
|
||||
(defconst cargo-process-test-mod-regexp "^[[:space:]]*mod[[:space:]]*\\w+[[:space:]]*{")
|
||||
|
||||
(defconst cargo-process-font-lock-keywords
|
||||
'(("^error\\:?" . 'cargo-process--error-face)
|
||||
("^warning\\:?" . 'cargo-process--warning-face)
|
||||
("^\s*\\^\\~*\s*$" . 'cargo-process--pointer-face)
|
||||
("^\s*Compiling.*" . 'cargo-process--standard-face)
|
||||
("^\s*Running.*" . 'cargo-process--standard-face)
|
||||
("^\s*Updating.*" . 'cargo-process--standard-face)
|
||||
("test result: FAILED." . 'cargo-process--error-face)
|
||||
("test result: ok." . 'cargo-process--ok-face)
|
||||
("test\s.*\sFAILED" . 'cargo-process--error-face)
|
||||
("test\s.*\sok" . 'cargo-process--ok-face))
|
||||
"Minimal highlighting expressions for cargo-process mode.")
|
||||
|
||||
;; Bind `case-fold-search' to nil before using the regex.
|
||||
(defconst cargo-process--errno-regex "\\bE[0-9]\\{4\\}\\b"
|
||||
"A regular expression to match Rust error number.")
|
||||
|
||||
(define-button-type 'rustc-errno
|
||||
'follow-link t
|
||||
'face 'cargo-process--errno-face
|
||||
'action #'cargo-process--explain-action)
|
||||
|
||||
(defun cargo-process--defun-at-point-p ()
|
||||
(string-match cargo-process-test-regexp
|
||||
(buffer-substring-no-properties (line-beginning-position)
|
||||
(line-end-position))))
|
||||
|
||||
(defun cargo-process--project-root ()
|
||||
"Find the root of the current Cargo project."
|
||||
(let ((root (locate-dominating-file (or buffer-file-name default-directory) "Cargo.toml")))
|
||||
(and root (file-truename root))))
|
||||
|
||||
(define-derived-mode cargo-process-mode compilation-mode "Cargo-Process."
|
||||
"Major mode for the Cargo process buffer."
|
||||
(use-local-map cargo-process-mode-map)
|
||||
(setq major-mode 'cargo-process-mode)
|
||||
(setq mode-name "Cargo-Process")
|
||||
(setq-local truncate-lines t)
|
||||
(run-hooks 'cargo-process-mode-hook)
|
||||
(add-hook 'compilation-filter-hook #'cargo-process--add-errno-buttons)
|
||||
(font-lock-add-keywords nil cargo-process-font-lock-keywords))
|
||||
|
||||
(defun cargo-process--finished-sentinel (process event)
|
||||
"Execute after PROCESS return and EVENT is 'finished'."
|
||||
(compilation-sentinel process event)
|
||||
(when (equal event "finished\n")
|
||||
(message "Cargo Process finished.")))
|
||||
|
||||
(defun cargo-process--activate-mode (buffer)
|
||||
"Execute commands BUFFER at process start."
|
||||
(with-current-buffer buffer
|
||||
(funcall 'cargo-process-mode)
|
||||
(setq-local window-point-insertion-type t)))
|
||||
|
||||
(defun set-rust-backtrace (command)
|
||||
"Set RUST_BACKTRACE variable depending on the COMMAND used.
|
||||
Always set to nil if cargo-process--enable-rust-backtrace is nil"
|
||||
(when cargo-process--enable-rust-backtrace
|
||||
(if (string-match "cargo \\(test\\|run\\)" command)
|
||||
(setenv cargo-process--rust-backtrace "1")
|
||||
(setenv cargo-process--rust-backtrace nil))))
|
||||
|
||||
(defun cargo-process--workspace-root ()
|
||||
"Find the worksapce root using `cargo metadata`."
|
||||
(let* ((metadata-text (shell-command-to-string
|
||||
(concat cargo-process--custom-path-to-bin " metadata --format-version 1 --no-deps")))
|
||||
(metadata-json (json-read-from-string metadata-text))
|
||||
(workspace-root (alist-get 'workspace_root metadata-json)))
|
||||
workspace-root))
|
||||
|
||||
(defun cargo-process--start (name command &optional last-cmd)
|
||||
"Start the Cargo process NAME with the cargo command COMMAND."
|
||||
(set-rust-backtrace command)
|
||||
(let* ((buffer (concat "*Cargo " name "*"))
|
||||
(project-root (cargo-process--project-root))
|
||||
(cmd
|
||||
(or last-cmd
|
||||
(cargo-process--maybe-read-command
|
||||
(mapconcat #'identity (list cargo-process--custom-path-to-bin
|
||||
command
|
||||
"--manifest-path" (concat project-root "Cargo.toml")
|
||||
cargo-process--command-flags)
|
||||
" "))))
|
||||
(default-directory (or project-root default-directory)))
|
||||
(save-some-buffers (not compilation-ask-about-save)
|
||||
(lambda ()
|
||||
(and project-root
|
||||
buffer-file-name
|
||||
(string-prefix-p project-root (file-truename buffer-file-name)))))
|
||||
(setq cargo-process-last-command (list name command cmd))
|
||||
(let ((default-directory (cargo-process--workspace-root)))
|
||||
(compilation-start cmd 'cargo-process-mode (lambda(_) buffer)))
|
||||
(set-process-sentinel (get-buffer-process buffer) 'cargo-process--finished-sentinel)))
|
||||
|
||||
(defun cargo-process--explain-action (button)
|
||||
"Action called when the user activates Rust errno BUTTON."
|
||||
(cargo-process--explain-help (button-label button)))
|
||||
|
||||
(defun cargo-process--explain-help (errno)
|
||||
"Display a detailed explaination of ERRNO in a markdown buffer."
|
||||
(pop-to-buffer
|
||||
(let ((current-window (selected-window))
|
||||
(inhibit-message t))
|
||||
(with-current-buffer (get-buffer-create "*rust errno*")
|
||||
(let ((buffer-read-only nil))
|
||||
(erase-buffer)
|
||||
(insert (shell-command-to-string
|
||||
(concat cargo-process--rustc-cmd " --explain=" errno))))
|
||||
(markdown-view-mode)
|
||||
(setq-local markdown-fontify-code-blocks-natively t)
|
||||
(setq-local markdown-fontify-code-block-default-mode 'rust-mode)
|
||||
(setq-local kill-buffer-hook (lambda ()
|
||||
(when (window-live-p current-window)
|
||||
(select-window current-window))))
|
||||
(setq
|
||||
header-line-format
|
||||
(concat (propertize " " 'display
|
||||
`(space :align-to (- right-fringe ,(1+ (length errno)))))
|
||||
(propertize errno 'face 'error)))
|
||||
(markdown-toggle-markup-hiding 1)
|
||||
(goto-char 1)
|
||||
(current-buffer)))))
|
||||
|
||||
(defun cargo-process--add-errno-buttons ()
|
||||
"Turn error numbers into clickable links in Cargo process output.
|
||||
Meant to be run as a `compilation-filter-hook'."
|
||||
(save-excursion
|
||||
(let ((start compilation-filter-start)
|
||||
(end (point))
|
||||
(case-fold-search nil))
|
||||
(goto-char start)
|
||||
(while (re-search-forward cargo-process--errno-regex end t)
|
||||
(make-button (match-beginning 0)
|
||||
(match-end 0)
|
||||
:type 'rustc-errno)))))
|
||||
|
||||
(defun cargo-process--get-current-test ()
|
||||
"Return the current test."
|
||||
(save-excursion
|
||||
(unless (cargo-process--defun-at-point-p)
|
||||
(rust-beginning-of-defun))
|
||||
(beginning-of-line)
|
||||
(search-forward "fn ")
|
||||
(let* ((line (buffer-substring-no-properties (point)
|
||||
(line-end-position)))
|
||||
(lines (split-string line "("))
|
||||
(function-name (car lines)))
|
||||
function-name)))
|
||||
|
||||
(defun cargo-process--get-current-mod ()
|
||||
"Return the current mod."
|
||||
(save-excursion
|
||||
(when (search-backward-regexp cargo-process-test-mod-regexp nil t)
|
||||
(let* ((line (buffer-substring-no-properties (line-beginning-position)
|
||||
(line-end-position)))
|
||||
(line (string-trim-left line))
|
||||
(lines (split-string line " "))
|
||||
(mod (cadr lines)))
|
||||
mod))))
|
||||
|
||||
(defun cargo-process--get-current-test-fullname ()
|
||||
(if (cargo-process--get-current-mod)
|
||||
(concat (cargo-process--get-current-mod)
|
||||
"::"
|
||||
(cargo-process--get-current-test))
|
||||
(cargo-process--get-current-test)))
|
||||
|
||||
(defun cargo-process--maybe-read-command (default)
|
||||
"Prompt to modify the DEFAULT command when the prefix argument is present.
|
||||
Without the prefix argument, return DEFAULT immediately."
|
||||
(if current-prefix-arg
|
||||
(read-shell-command "Cargo command: " default)
|
||||
default))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-bench ()
|
||||
"Run the Cargo bench command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the benchmarks."
|
||||
(interactive)
|
||||
(cargo-process--start "Bench" cargo-process--command-bench))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-build ()
|
||||
"Run the Cargo build command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Compile the current project."
|
||||
(interactive)
|
||||
(cargo-process--start "Build" cargo-process--command-build))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-clean ()
|
||||
"Run the Cargo clean command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Remove the target directory."
|
||||
(interactive)
|
||||
(cargo-process--start "Clean" cargo-process--command-clean))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-doc ()
|
||||
"Run the Cargo doc command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build this project's and its dependencies' documentation."
|
||||
(interactive)
|
||||
(cargo-process--start "Doc" cargo-process--command-doc))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-doc-open ()
|
||||
"Run the Cargo doc command with the --open switch.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Open this project's documentation."
|
||||
(interactive)
|
||||
(cargo-process--start "Doc" cargo-process--command-doc-open))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-new (name &optional bin)
|
||||
"Run the Cargo new command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
NAME is the name of your application.
|
||||
If BIN is t then create a binary application, otherwise a library.
|
||||
Cargo: Create a new cargo project."
|
||||
(interactive "sProject name: ")
|
||||
(let ((bin (when (or bin
|
||||
(y-or-n-p "Create Bin Project? "))
|
||||
" --bin")))
|
||||
(cargo-process--start "New" (concat cargo-process--command-new
|
||||
" "
|
||||
name
|
||||
bin))))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-init (directory &optional bin)
|
||||
"Run the Cargo init command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
DIRECTORY is the directory you want to create a cargo project in.
|
||||
If BIN is t then create a binary application, otherwise a library.
|
||||
Cargo: Create a new cargo project in current directory."
|
||||
(interactive
|
||||
(list (read-directory-name "Directory: " nil default-directory t)))
|
||||
(let ((bin (when (or bin (y-or-n-p "Create Bin Project? ")) " --bin")))
|
||||
(cargo-process--start "Init" (concat cargo-process--command-init
|
||||
" "
|
||||
directory
|
||||
bin))))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-run ()
|
||||
"Run the Cargo run command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute src/main.rs."
|
||||
(interactive)
|
||||
(cargo-process--start "Run" cargo-process--command-run))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-run-bin (command)
|
||||
"Run the Cargo run command --bin <name>.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute a specific binary"
|
||||
(interactive "sBinary name: ")
|
||||
(cargo-process--start (concat "Run " command)
|
||||
(concat cargo-process--command-run-bin " " command)))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-run-example (command)
|
||||
"Run the Cargo run command --example <name>.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Build and execute with --example <name>."
|
||||
(interactive "sExample name: ")
|
||||
(cargo-process--start (concat "Example " command)
|
||||
(concat cargo-process--command-run-example " " command)))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-search (search-term)
|
||||
"Run the Cargo search command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
SEARCH-TERM is used as the search term for the Cargo registry.
|
||||
Cargo: Search registry for crates."
|
||||
(interactive "sSearch: ")
|
||||
(cargo-process--start "Search"
|
||||
(concat cargo-process--command-search " " search-term)))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-test ()
|
||||
"Run the Cargo test command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests."
|
||||
(interactive)
|
||||
(cargo-process--start "Test" cargo-process--command-test))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-current-test ()
|
||||
"Run the Cargo test command for the current test.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests."
|
||||
(interactive)
|
||||
(cargo-process--start "Test"
|
||||
(concat cargo-process--command-current-test
|
||||
" "
|
||||
(cargo-process--get-current-test-fullname))))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-current-file-tests ()
|
||||
"Run the Cargo test command for the current file.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Run the tests."
|
||||
(interactive)
|
||||
(cargo-process--start "Test" (concat cargo-process--command-current-file-tests
|
||||
" "
|
||||
(cargo-process--get-current-mod))))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-update ()
|
||||
"Run the Cargo update command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Update dependencies listed in Cargo.lock."
|
||||
(interactive)
|
||||
(cargo-process--start "Update" cargo-process--command-update))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-fmt ()
|
||||
"Run the Cargo fmt command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Requires Cargo Fmt to be installed."
|
||||
(interactive)
|
||||
(cargo-process--start "Fmt" cargo-process--command-fmt))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-check ()
|
||||
"Run the Cargo check command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Check compile the current project.
|
||||
Requires cargo-check to be installed."
|
||||
(interactive)
|
||||
(cargo-process--start "Check" cargo-process--command-check))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-clippy ()
|
||||
"Run the Cargo clippy command.
|
||||
With the prefix argument, modify the command's invocation.
|
||||
Cargo: Clippy compile the current project.
|
||||
Requires Cargo clippy to be installed."
|
||||
(interactive)
|
||||
(cargo-process--start "Clippy" cargo-process--command-clippy))
|
||||
|
||||
;;;###autoload
|
||||
(defun cargo-process-repeat ()
|
||||
"Run the last cargo-process command."
|
||||
(interactive)
|
||||
(if cargo-process-last-command
|
||||
(apply 'cargo-process--start cargo-process-last-command)
|
||||
(message "No last Cargo command.")))
|
||||
|
||||
(define-key cargo-process-mode-map (kbd "n") 'forward-button)
|
||||
(define-key cargo-process-mode-map (kbd "p") 'backward-button)
|
||||
|
||||
(provide 'cargo-process)
|
||||
;;; cargo-process.el ends here
|
||||
87
elpa/cargo-20180521.408/cargo.el
Normal file
87
elpa/cargo-20180521.408/cargo.el
Normal file
@@ -0,0 +1,87 @@
|
||||
;;; cargo.el --- Emacs Minor Mode for Cargo, Rust's Package Manager.
|
||||
|
||||
;; Copyright (C) 2015 Kevin W. van Rooijen
|
||||
|
||||
;; Author: Kevin W. van Rooijen <kevin.van.rooijen@attichacker.com>
|
||||
;; Version : 0.4.0
|
||||
;; Keywords: tools
|
||||
;; Package-Requires: ((emacs "24.3") (rust-mode "0.2.0") (markdown-mode "2.4"))
|
||||
|
||||
;; 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/>.
|
||||
|
||||
;;; Commentary:
|
||||
;;
|
||||
;; Cargo Minor mode.
|
||||
;; Provides a number of key combinations and functions for managing Cargo.
|
||||
;; Current supported Cargo Key Combinations:
|
||||
;; * C-c C-c C-e - cargo-process-bench
|
||||
;; * C-c C-c C-b - cargo-process-build
|
||||
;; * C-c C-c C-l - cargo-process-clean
|
||||
;; * C-c C-c C-d - cargo-process-doc
|
||||
;; * C-c C-c C-v - cargo-process-doc-open
|
||||
;; * C-c C-c C-n - cargo-process-new
|
||||
;; * C-c C-c C-i - cargo-process-init
|
||||
;; * C-c C-c C-r - cargo-process-run
|
||||
;; * C-c C-c C-x - cargo-process-run-example
|
||||
;; * C-c C-c C-s - cargo-process-search
|
||||
;; * C-c C-c C-t - cargo-process-test
|
||||
;; * C-c C-c C-u - cargo-process-update
|
||||
;; * C-c C-c C-c - cargo-process-repeat
|
||||
;; * C-c C-c C-f - cargo-process-current-test
|
||||
;; * C-c C-c C-o - cargo-process-current-file-tests
|
||||
;; * C-c C-c C-m - cargo-process-fmt
|
||||
;; * C-c C-c C-k - cargo-process-check
|
||||
;; * C-c C-c C-K - cargo-process-clippy
|
||||
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(require 'cargo-process)
|
||||
|
||||
(defgroup cargo nil
|
||||
"Cargo group."
|
||||
:prefix "cargo-"
|
||||
:group 'tools)
|
||||
|
||||
(defvar cargo-minor-mode-map (make-keymap) "Cargo-mode keymap.")
|
||||
(defvar cargo-minor-mode nil)
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode cargo-minor-mode
|
||||
"Cargo minor mode. Used to hold keybindings for cargo-mode.
|
||||
|
||||
\\{cargo-minor-mode-map}"
|
||||
nil " cargo" cargo-minor-mode-map)
|
||||
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-e") 'cargo-process-bench)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-b") 'cargo-process-build)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-l") 'cargo-process-clean)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-d") 'cargo-process-doc)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-v") 'cargo-process-doc-open)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-n") 'cargo-process-new)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-i") 'cargo-process-init)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-r") 'cargo-process-run)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-x") 'cargo-process-run-example)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-s") 'cargo-process-search)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-t") 'cargo-process-test)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-u") 'cargo-process-update)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-c") 'cargo-process-repeat)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-f") 'cargo-process-current-test)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-o") 'cargo-process-current-file-tests)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-m") 'cargo-process-fmt)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-k") 'cargo-process-check)
|
||||
(define-key cargo-minor-mode-map (kbd "C-c C-c C-S-k") 'cargo-process-clippy)
|
||||
|
||||
(provide 'cargo)
|
||||
;;; cargo.el ends here
|
||||
Reference in New Issue
Block a user