From b4738fc5db16d9bae5c6a4b97762451d7e635596 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sun, 21 Apr 2024 11:33:19 +0200
Subject: [PATCH] Reset packages path

---
 src/accordion.lisp     | 4 ++--
 src/alert.lisp         | 4 ++--
 src/badge.lisp         | 4 ++--
 src/button.lisp        | 4 ++--
 src/card.lisp          | 4 ++--
 src/dropdown.lisp      | 4 ++--
 src/form.lisp          | 4 ++--
 src/grid.lisp          | 4 ++--
 src/list-group.lisp    | 4 ++--
 src/nav-tab.lisp       | 4 ++--
 src/navbar.lisp        | 4 ++--
 src/pagination.lisp    | 4 ++--
 src/questionnaire.lisp | 4 ++--
 src/spinner.lisp       | 4 ++--
 src/table.lisp         | 4 ++--
 15 files changed, 30 insertions(+), 30 deletions(-)

diff --git a/src/accordion.lisp b/src/accordion.lisp
index 6a0c0fb..8b31692 100644
--- a/src/accordion.lisp
+++ b/src/accordion.lisp
@@ -1,13 +1,13 @@
 ;;;; -*- mode: lisp; coding: utf-8; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*-
 ;;;; accordion.lisp
 ;;;; This file defines a package for generating Bootstrap accordion components using Common Lisp macros.
-(defpackage dev.metalisp.sbt/component/accordion
+(defpackage dev.metalisp.sbt/accordion
   (:documentation "A package for generating Bootstrap accordions.")
   (:use :cl)
   (:export
    :accordion))
 
-(in-package :dev.metalisp.sbt/component/accordion)
+(in-package :dev.metalisp.sbt/accordion)
 
 (defmacro accordion ((&key (id "accordionExample") flush) &body body)
   "This macro generates an accordion-style collapsible list.
diff --git a/src/alert.lisp b/src/alert.lisp
index 37a76fc..ffe6031 100644
--- a/src/alert.lisp
+++ b/src/alert.lisp
@@ -3,7 +3,7 @@
 ;;;; This file defines a package for generating Bootstrap alert components
 ;;;; using Common Lisp macros.
 
-(defpackage dev.metalisp.sbt/component/alert
+(defpackage dev.metalisp.sbt/alert
   (:use :cl)
   (:export
    :btn
@@ -25,7 +25,7 @@
    :alert-dismiss-light
    :alert-dismiss-dark))
 
-(in-package :dev.metalisp.sbt/component/alert)
+(in-package :dev.metalisp.sbt/alert)
 
 (defmacro btn ()
   "This macro generates the close button used in a Bootstrap alert when it is set to be dismissible."
diff --git a/src/badge.lisp b/src/badge.lisp
index deca3fb..93f6acd 100644
--- a/src/badge.lisp
+++ b/src/badge.lisp
@@ -3,7 +3,7 @@
 ;;;; This file constitutes the Common Lisp package for generating Bootstrap badges,
 ;;;; a lightweight and versatile component used to add contextual highlights or emphasis.
 
-(defpackage dev.metalisp.sbt/component/badge
+(defpackage dev.metalisp.sbt/badge
   (:documentation "A package for generating Bootstrap badges.")
   (:use :cl)
   (:export
@@ -27,7 +27,7 @@
    :badge-pill-dark
    :badge-pill-link))
 
-(in-package :dev.metalisp.sbt/component/badge)
+(in-package :dev.metalisp.sbt/badge)
 
 (defmacro badge ((&key (color "primary") (pill nil)) &body body)
   "This macro generates a Bootstrap badge.
diff --git a/src/button.lisp b/src/button.lisp
index 160c3bd..0b0c31d 100644
--- a/src/button.lisp
+++ b/src/button.lisp
@@ -3,7 +3,7 @@
 ;;;; This file defines a package for generating Bootstrap button components
 ;;;; using Common Lisp macros.
 
-(defpackage dev.metalisp.sbt/component/btn
+(defpackage dev.metalisp.sbt/btn
   (:use :cl)
   (:export
    :btn
@@ -62,7 +62,7 @@
    :btn-outline-dark-sm
    :btn-outline-link-sm))
 
-(in-package :dev.metalisp.sbt/component/btn)
+(in-package :dev.metalisp.sbt/btn)
 
 (defmacro btn ((&key (id nil) (type "button") (color "primary") (size "")) &body body)
   "This macro generates a Bootstrap button.
diff --git a/src/card.lisp b/src/card.lisp
index 6243e8f..2c060bf 100644
--- a/src/card.lisp
+++ b/src/card.lisp
@@ -29,7 +29,7 @@
 ;; and flexbox, along with optional headers and footers. They offer a lot of
 ;; flexibility and can be used in a wide range of designs and layouts.
 
-(defpackage dev.metalisp.sbt/component/card
+(defpackage dev.metalisp.sbt/card
   (:use :cl)
   (:export
    :title
@@ -44,7 +44,7 @@
    :card-group)
   (:documentation "A Common Lisp package for generating Bootstrap Card components."))
 
-(in-package :dev.metalisp.sbt/component/card)
+(in-package :dev.metalisp.sbt/card)
 
 (defmacro title (&body body)
   "This macro generates a Bootstrap card title.
diff --git a/src/dropdown.lisp b/src/dropdown.lisp
index 34e02f3..561ac8e 100644
--- a/src/dropdown.lisp
+++ b/src/dropdown.lisp
@@ -24,14 +24,14 @@
 ;; class .dropdown-item. Additionally, dropdowns can be made to expand
 ;; upwards (instead of downwards) by adding the .dropup class.
 
-(defpackage dev.metalisp.sbt/component/dropdown
+(defpackage dev.metalisp.sbt/dropdown
   (:use :cl)
   (:export
    :menu
    :item
    :dropdown))
 
-(in-package :dev.metalisp.sbt/component/dropdown)
+(in-package :dev.metalisp.sbt/dropdown)
 
 (defmacro menu (&body body)
   "This macro generates a Bootstrap dropdown menu.
diff --git a/src/form.lisp b/src/form.lisp
index a9fd1bf..bd3d1c1 100644
--- a/src/form.lisp
+++ b/src/form.lisp
@@ -5,7 +5,7 @@
 ;;;; functions, macros, and HTML templates for generating Bootstrap-formatted
 ;;;; forms.
 
-(defpackage dev.metalisp.sbt/component/form
+(defpackage dev.metalisp.sbt/form
   (:use
    :cl)
   (:import-from
@@ -61,7 +61,7 @@
    :ctrl-element
    :search-form))
 
-(in-package :dev.metalisp.sbt/component/form)
+(in-package :dev.metalisp.sbt/form)
 
 ;;; form
 
diff --git a/src/grid.lisp b/src/grid.lisp
index 874778a..81520f6 100644
--- a/src/grid.lisp
+++ b/src/grid.lisp
@@ -35,7 +35,7 @@
 ;; richness. From mobile to desktop, the grid system will scale up
 ;; appropriately to ensure your designs are fully responsive.
 
-(defpackage dev.metalisp.sbt/layout/grid
+(defpackage dev.metalisp.sbt/grid
   (:use :cl)
   (:import-from
    :dev.metalisp.sbt/utility
@@ -45,7 +45,7 @@
    :row
    :col))
 
-(in-package :dev.metalisp.sbt/layout/grid)
+(in-package :dev.metalisp.sbt/grid)
 
 (defun string-clean (str)
   (string-trim " " (string-downcase str)))
diff --git a/src/list-group.lisp b/src/list-group.lisp
index 4944501..4662fc4 100644
--- a/src/list-group.lisp
+++ b/src/list-group.lisp
@@ -17,14 +17,14 @@
 ;; of emails with the number of unread messages, a list of tasks with their
 ;; completion status, and so on.
 
-(defpackage dev.metalisp.sbt/component/list-group
+(defpackage dev.metalisp.sbt/list-group
   (:use :cl)
   (:export
    :item
    :list-group)
 (:documentation "A Common Lisp package for generating Bootstrap List Group components."))
 
-(in-package :dev.metalisp.sbt/component/list-group)
+(in-package :dev.metalisp.sbt/list-group)
 
 (defmacro item (&body body)
   "This macro generates a Bootstrap list group item.
diff --git a/src/nav-tab.lisp b/src/nav-tab.lisp
index f3dfaf1..8350c6c 100644
--- a/src/nav-tab.lisp
+++ b/src/nav-tab.lisp
@@ -33,13 +33,13 @@
 ;; adjusts its layout based on the size of the user's screen. This makes it a
 ;; flexible choice for a variety of web layouts.
 
-(defpackage dev.metalisp.sbt/component/nav
+(defpackage dev.metalisp.sbt/nav
   (:use :cl)
   (:export
    :item
    :nav))
 
-(in-package :dev.metalisp.sbt/component/nav)
+(in-package :dev.metalisp.sbt/nav)
 
 (defmacro item (name active url)
   "This macro generates a navigation item for a Bootstrap navigation list.
diff --git a/src/navbar.lisp b/src/navbar.lisp
index 8039813..dae26ae 100644
--- a/src/navbar.lisp
+++ b/src/navbar.lisp
@@ -25,7 +25,7 @@
 ;; Form Support: You can include form elements directly in your Navbar, allowing
 ;; users to input data directly from the navigation bar.
 
-(defpackage dev.metalisp.sbt/component/navbar
+(defpackage dev.metalisp.sbt/navbar
   (:use :cl)
   (:import-from
    :dev.metalisp.sbt/component/btn
@@ -45,7 +45,7 @@
    :form-search
    :collapsible))
 
-(in-package :dev.metalisp.sbt/component/navbar)
+(in-package :dev.metalisp.sbt/navbar)
 
 (defmacro brand-logo ((&key (src "#") (alt "Logo") (width 30) (height 24) (classes "d-inline-block align-text-top")))
   "This macro generates a brand logo for a Bootstrap navbar.
diff --git a/src/pagination.lisp b/src/pagination.lisp
index a6e8727..904cd63 100644
--- a/src/pagination.lisp
+++ b/src/pagination.lisp
@@ -15,13 +15,13 @@
 ;; You can also include "Previous" and "Next" buttons to help users navigate
 ;; through the pages.
 
-(defpackage dev.metalisp.sbt/component/pagination
+(defpackage dev.metalisp.sbt/pagination
   (:use :cl)
   (:export
    :item
    :pagination))
 
-(in-package :dev.metalisp.sbt/component/pagination)
+(in-package :dev.metalisp.sbt/pagination)
 
 (defmacro item ((&key (url "#") (active nil)) &body body)
   "This macro generates a Bootstrap pagination item.
diff --git a/src/questionnaire.lisp b/src/questionnaire.lisp
index 890c73b..11246fe 100644
--- a/src/questionnaire.lisp
+++ b/src/questionnaire.lisp
@@ -8,7 +8,7 @@
 ;;;; etc.), and the form itself can be customized according to the target URL
 ;;;; for submissions.
 
-(defpackage dev.metalisp.sbt/pattern/questionnaire
+(defpackage dev.metalisp.sbt/questionnaire
   (:documentation "Defines the `dev.metalisp.sbt/questionnaire` package, a utility suite for generating HTML forms with various types of questions.")
   (:use
    :cl)
@@ -32,7 +32,7 @@
   (:export
    :questionnaire))
 
-(in-package :dev.metalisp.sbt/pattern/questionnaire)
+(in-package :dev.metalisp.sbt/questionnaire)
 
 (defun choicep (lst)
   "Checks if the given list LST is a valid choice.
diff --git a/src/spinner.lisp b/src/spinner.lisp
index 9ddc0df..0a01f1a 100644
--- a/src/spinner.lisp
+++ b/src/spinner.lisp
@@ -15,7 +15,7 @@
 ;; 'danger', 'warning', 'info', 'light', 'dark'. You can also control the size
 ;; of the spinner through size classes.
 
-(defpackage dev.metalisp.sbt/component/spinner
+(defpackage dev.metalisp.sbt/spinner
   (:use :cl)
   (:export
    :spinner
@@ -53,7 +53,7 @@
    :spinner-grow-dark-sm)
   (:documentation "This package provides a set of macros to generate Bootstrap Spinner components."))
 
-(in-package :dev.metalisp.sbt/component/spinner)
+(in-package :dev.metalisp.sbt/spinner)
 
 (defmacro spinner ((&key (type "border") (color "primary") (size nil)))
   "This macro generates a Bootstrap spinner with a specified type, color, and size.
diff --git a/src/table.lisp b/src/table.lisp
index 9627726..ae00e73 100644
--- a/src/table.lisp
+++ b/src/table.lisp
@@ -1,9 +1,9 @@
-(defpackage dev.metalisp.sbt/component/tbl
+(defpackage dev.metalisp.sbt/tbl
   (:use :cl)
   (:export
    :table))
 
-(in-package :dev.metalisp.sbt/component/tbl)
+(in-package :dev.metalisp.sbt/tbl)
 
 (defmacro table (&body body)
   `(spinneret:with-html