From 851aeb6753efb1004d3d7f54350b8f62ce51247f Mon Sep 17 00:00:00 2001 From: Saba Saba Date: Thu, 9 Feb 2023 12:26:18 -0500 Subject: [PATCH] Added make-install command. --- git-repl.cl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/git-repl.cl b/git-repl.cl index db6589a..3293123 100644 --- a/git-repl.cl +++ b/git-repl.cl @@ -21,6 +21,8 @@ (defvar-public *grep* "findstr" "The name of the program used for searching. On Windows this is set to \'findstr\', but it may be changed to \'grep\' for Unix systems.") +(defvar-public *installation-file* "C:/bin/git-repl.exe" "The filepath to install to when running (make-install)") + (defun remove-empty (text-lines) "Removes every empty line from a list of lines of text" (remove-if #'str:emptyp text-lines)) @@ -112,3 +114,7 @@ (progn (load (compile-file "git-repl.cl")) (save-lisp-and-die executable-name :executable t))) + +(defun-public make-install () + "Compiles the current state into an executable and installs it to *installation-file*" + (make *installation-file*)) -- 2.20.1