From 0730f1e1acefd0345cb5e0eab6dbe696397d5723 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 1 May 2022 09:21:51 -0500
Subject: Add +compile-dispatch

At some point I probably should add a +recompile .. or something, I'm not sure
how the compile flow works in Emacs.
---
 lisp/+compile.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lisp/+compile.el

(limited to 'lisp/+compile.el')

diff --git a/lisp/+compile.el b/lisp/+compile.el
new file mode 100644
index 0000000..b20ae4d
--- /dev/null
+++ b/lisp/+compile.el
@@ -0,0 +1,19 @@
+;;; +compile.el --- Extras for compile -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+(defcustom +compile-function nil
+  "Function to run to \"compile\" a buffer."
+  :type 'function
+  :local t)
+
+(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
-- 
cgit 1.4.1-21-gabe81