From 90ef834393c819e708800c1a759c183ccdd25842 Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Tue, 11 Feb 2025 00:48:14 +0000
Subject: [PATCH] odraw -> cantedraw

Why name it something unique when this is what I'm going to be making
at the end of it all?  Just makes it more confusing for the end user.
---
 bob.lisp                     | 6 +++---
 odraw.asd => cantedraw.asd   | 8 ++++----
 odraw.lisp => cantedraw.lisp | 6 +++---
 packages.lisp                | 2 +-
 4 files changed, 11 insertions(+), 11 deletions(-)
 rename odraw.asd => cantedraw.asd (56%)
 rename odraw.lisp => cantedraw.lisp (90%)

diff --git a/bob.lisp b/bob.lisp
index 12146f6..62ab05f 100644
--- a/bob.lisp
+++ b/bob.lisp
@@ -26,11 +26,11 @@
 (in-package :bob)
 
 (ql:quickload :deploy)
-(asdf:load-asd (merge-pathnames "odraw.asd" (uiop:getcwd)))
+(asdf:load-asd (merge-pathnames "cantedraw.asd" (uiop:getcwd)))
 
 (defun build ()
   (push :deploy-console *features*)
-  (asdf:make :odraw))
+  (asdf:make :cantedraw))
 
 (defun load-all ()
-  (asdf:load-system :odraw))
+  (asdf:load-system :cantedraw))
diff --git a/odraw.asd b/cantedraw.asd
similarity index 56%
rename from odraw.asd
rename to cantedraw.asd
index fee4d6e..d3aa60d 100644
--- a/odraw.asd
+++ b/cantedraw.asd
@@ -1,9 +1,9 @@
-(asdf:defsystem :odraw
+(asdf:defsystem :cantedraw
   :depends-on (:deploy)
   :components ((:file "packages")
                (:file "lib.macros")
                (:file "lib.functions")
-               (:file "odraw"))
+               (:file "cantedraw"))
   :build-operation "deploy-op"
-  :build-pathname "odraw"
-  :entry-point "odraw:start")
+  :build-pathname "cantedraw"
+  :entry-point "cantedraw:start")
diff --git a/odraw.lisp b/cantedraw.lisp
similarity index 90%
rename from odraw.lisp
rename to cantedraw.lisp
index d4d94ee..4380d8a 100644
--- a/odraw.lisp
+++ b/cantedraw.lisp
@@ -1,4 +1,4 @@
-;;; odraw.lisp - 2025-02-11
+;;; cantedraw.lisp - 2025-02-11
 
 ;; Copyright (C) 2025 Aryadev Chavali
 
@@ -13,12 +13,12 @@
 
 ;;; Commentary:
 
-;; Implementation of `odraw' package.  Defines the entrypoint of the program,
+;; Implementation of `cantedraw' package.  Defines the entrypoint of the program,
 ;; handling any input from the user and passing it into the system.
 
 ;;; Code:
 
-(in-package :odraw)
+(in-package :cantedraw)
 
 (fn read-input (&optional (prompt "> ")) (-> (&optional string) string)
   (format t "~a" prompt)
diff --git a/packages.lisp b/packages.lisp
index 703f890..7c77f50 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -32,6 +32,6 @@
    :range :take :split
    :rev-map))
 
-(defpackage odraw
+(defpackage cantedraw
   (:use :cl :lib.macros :lib.functions)
   (:export :start))