rust lang, cargo/rustc run hotkeys

init.el

(defun rust-save-compile-and-run-this ()
  (interactive)
  (save-buffer)
  (compile
   (format "rustc %s && %s"
	   (buffer-file-name)
	   (file-name-sans-extension (buffer-file-name)))))
 
(defun rust-save-compile-and-run ()
  (interactive)
  (save-buffer)
 
  (if (locate-dominating-file (buffer-file-name) "Cargo.toml")
      (compile "cargo run")
    (rust-save-compile-and-run-this)))

(defun cargo-test ()
  (interactive)
  (save-buffer)
 
  (if (locate-dominating-file (buffer-file-name) "Cargo.toml")
      (compile "cargo test")
    (rust-save-compile-and-run-this)))

(defun cargo-bench ()
  (interactive)
  (save-buffer)
 
  (if (locate-dominating-file (buffer-file-name) "Cargo.toml")
      (compile "cargo bench")
    (rust-save-compile-and-run-this)))
 
 
(add-hook 'rust-mode-hook
      (lambda ()
        (define-key rust-mode-map (kbd "<f5>") 'rust-save-compile-and-run)))
(add-hook 'rust-mode-hook
      (lambda ()
        (define-key rust-mode-map (kbd "<S-f5>") 'cargo-test)))
(add-hook 'rust-mode-hook
      (lambda ()
        (define-key rust-mode-map (kbd "<C-S-f5>") 'cargo-bench)))
(add-hook 'rust-mode-hook
      (lambda ()
        (define-key rust-mode-map (kbd "<f4>") 'rust-save-compile-and-run-this)))