Rename FLORA-SEARCH-AURORA.UI → […].MENU

flora-search-aurora.asd

@@ -2,13 +2,12 @@
   :depends-on ("alexandria" "assoc-utils" "cl-charms" "str")
   :build-operation "program-op"
   :build-pathname "flora-search-aurora"
-
   :entry-point "flora-search-aurora:main"
   :components ((:file "packages")
                (:file "util")
                (:file "display")
                (:file "input")
-               (:file "ui")
+               (:file "menu")
                (:file "inventory")
                (:file "intermission")
                (:file "overworld.util")

menu.lisp

@@ -17,7 +17,7 @@
 ;;;; Generic menu-making, displaying, and management.
 ;;;; Let's get to it, we're on a deadline!
 
-(in-package :flora-search-aurora.ui)
+(in-package :flora-search-aurora.menu)
 
 
 ;;; ———————————————————————————————————
@@ -40,8 +40,6 @@ A state-function for use with the #'state-loop."
 (defun menu-state-draw (matrix menu-alist)
   "Render a menu in menu-alist format to the given matrix.
 A core part of #'menu-state."
-  ;;  (intermission::render-clock-base matrix (list :x 0 :y 0))
-  (✎:render-string matrix "daddy is dead anmd I hate him" '(:x 20 :y 10) :width 15 :char-count 18)
   (render-menu-strip matrix menu-alist 0 0))
 
 

packages.lisp

@@ -43,8 +43,8 @@
            #:render-fill-rectangle
            #:hide-cursor #:show-cursor #:clear-screen))
 
-(defpackage :flora-search-aurora.ui
-  (:nicknames :fsa.u :ui :📋)
+(defpackage :flora-search-aurora.menu
+  (:nicknames :fsa.men :menu :📋)
   (:use :cl)
   (:export #:menu-state #:make-menu-state
            :label :selection :selected))
@@ -101,4 +101,4 @@
   (:use :cl
    :flora-search-aurora.input :flora-search-aurora.display
    :flora-search-aurora.overworld :flora-search-aurora.dialogue
-   :flora-search-aurora.ui))
+   :flora-search-aurora.menu))