replace spw/compile-or-maybe-recompile with mode-local binding

I don't use the `recompile' support, so can rely on just this and C-x p c.

1 files changed, 2 insertions, 19 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 5831168f..a8885f86 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -1724,24 +1724,6 @@ The ideas behind these behaviours are as follows.
 	       nil (expand-file-name "~/doc")))
 (global-set-key "\C-cog" #'spw/git-grep-docs)
 
-;; For safety we shouldn't have a key bound to `recompile', so have this.
-;; Complements C-x p c, for the case where we want to compile an individual
-;; file with a custom `compile-command', like my papers typeset with pandoc.
-(defun spw/compile-or-maybe-recompile ()
-  (interactive)
-  (if-let ((compilation-windows
-	    (cl-remove-if-not (lambda (window)
-				(with-current-buffer (window-buffer window)
-				  (eq major-mode 'compilation-mode)))
-			      (window-list))))
-      (with-current-buffer (window-buffer (car compilation-windows))
-	(call-interactively 'recompile))
-    ;; (delete-other-windows)
-    (call-interactively 'compile)))
-(spw/feature-define-keys
-    ((nil prog-mode-map) (nil special-mode-map) (esh-mode eshell-mode-map))
-  "\C-z\C-c" spw/compile-or-maybe-recompile)
-
 ;; this is called by .dir-locals.el in ~/doc/{pres,papers}
 (defun spw/set-pandoc-compile-command (&rest exts)
   (setq-local compile-command
@@ -1754,7 +1736,8 @@ The ideas behind these behaviours are as follows.
 				  "."
 				  ext)))
                        (or exts '("pdf"))
-		       " "))))
+		       " ")))
+  (local-set-key "\C-z\C-c" #'compile))
 
 (defun spw/all-programming-projects ()
   (call-process "src-register-all")