2022-05-01 14:21:51 +00:00
|
|
|
;;; +compile.el --- Extras for compile -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
(defcustom +compile-function nil
|
|
|
|
"Function to run to \"compile\" a buffer."
|
|
|
|
:type 'function
|
2022-06-09 14:16:50 +00:00
|
|
|
:local t
|
|
|
|
:risky nil)
|
2022-05-01 14:21:51 +00:00
|
|
|
|
|
|
|
(defun +compile-dispatch (&optional arg)
|
|
|
|
"Run `+compile-function', if bound, or `compile'.
|
|
|
|
Any prefix ARG is passed to that function."
|
|
|
|
(interactive "P")
|
|
|
|
(call-interactively (or +compile-function #'compile)))
|
|
|
|
|
|
|
|
(provide '+compile)
|
|
|
|
;;; +compile.el ends here
|