From 5c6d444c2e73d6154a16ae9380662c2c75c6eafd Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Mon, 10 Feb 2025 09:01:02 +0000
Subject: Reworked build.lisp and load.lisp into bob.lisp

bob.lisp quickloads the dependencies necessary and defines functions
which I can just call from my REPL to load or build the project.
Better than loading the file over and over again.  Affectionately
named after "Bob The Builder".
---
 bob.lisp   | 36 ++++++++++++++++++++++++++++++++++++
 build.lisp |  5 -----
 load.lisp  |  4 ----
 3 files changed, 36 insertions(+), 9 deletions(-)
 create mode 100644 bob.lisp
 delete mode 100644 build.lisp
 delete mode 100644 load.lisp

diff --git a/bob.lisp b/bob.lisp
new file mode 100644
index 0000000..12146f6
--- /dev/null
+++ b/bob.lisp
@@ -0,0 +1,36 @@
+;;; bob.lisp - 2025-02-10
+
+;; Copyright (C) 2025 Aryadev Chavali
+
+;; This program is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
+;; FOR A PARTICULAR PURPOSE.  See the GNU General Public License Version 2 for
+;; details.
+
+;; You may distribute and modify this code under the terms of the GNU General
+;; Public License Version 2, which you should have received a copy of along with
+;; this program.  If not, please go to <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Little bit of code scaffolding that makes it easy to load or build the
+;; system.  Named after "Bob the Builder".
+
+;;; Code:
+
+(defpackage bob
+  (:use :cl)
+  (:export
+   :build :load-all))
+
+(in-package :bob)
+
+(ql:quickload :deploy)
+(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
+
+(defun build ()
+  (push :deploy-console *features*)
+  (asdf:make :odraw))
+
+(defun load-all ()
+  (asdf:load-system :odraw))
diff --git a/build.lisp b/build.lisp
deleted file mode 100644
index b5c7473..0000000
--- a/build.lisp
+++ /dev/null
@@ -1,5 +0,0 @@
-(ql:quickload :asdf)
-(ql:quickload :deploy)
-(push :deploy-console *features*)
-(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
-(asdf:make :odraw)
diff --git a/load.lisp b/load.lisp
deleted file mode 100644
index ccecd8d..0000000
--- a/load.lisp
+++ /dev/null
@@ -1,4 +0,0 @@
-(ql:quickload :asdf)
-(ql:quickload :deploy)
-(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
-(asdf:load-system :odraw)
-- 
cgit v1.2.3-13-gbd6f