Replace cl-sbt with dev.metalisp.sbt

dev.metalisp.sbt.asd

@@ -1,9 +1,8 @@
-(defsystem "cl-sbt"
+(defsystem "dev.metalisp.sbt"
   :version "0.1.0"
   :author "Marcus Kammer"
   :license "MIT"
-  :bug-tracker "https://todo.sr.ht/~marcuskammer/cl-sbt"
+  :source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.sbt")
-  :source-control (:git "git@git.sr.ht:~marcuskammer/cl-sbt")
   :depends-on (:spinneret)
   :components ((:module "src"
                 :components
@@ -35,12 +34,12 @@
                 :components
                 ((:file "album"))))
   :description "A Common Lisp library for generating Bootstrap-based HTML markup. It provides macros to easily create Bootstrap components such as accordions, alerts, badges, buttons, cards, dropdowns, headers, list groups, navbars, nav-tabs, pagination, and tables. This library is dependent on the Spinneret library for HTML generation."
-  :in-order-to ((test-op (test-op "cl-sbt/tests"))))
+  :in-order-to ((test-op (test-op "dev.metalisp.sbt/tests"))))
 
-(defsystem "cl-sbt/tests"
+(defsystem "dev.metalisp.sbt/tests"
   :author "Marcus Kammer"
   :license "MIT"
-  :depends-on ("cl-sbt"
+  :depends-on ("dev.metalisp.sbt"
                "rove")
   :components ((:module "tests"
                 :components
@@ -64,5 +63,5 @@
                (:module "tests/pattern"
                 :components
                 ((:file "questionnaire"))))
-  :description "Test system for cl-sbt"
+  :description "Test system for dev.metalisp.sbt"
   :perform (test-op (op c) (symbol-call :rove :run c)))

examples/album.lisp

@@ -29,13 +29,13 @@
 ;; through this example, one can get a grasp of Bootstrap's conventions and
 ;; learn how to use its components effectively.
 
-(defpackage cl-sbt/album
+(defpackage dev.metalisp.sbt/album
   (:use :cl)
-  (:import-from :cl-sbt/grid :con :row :col)
+  (:import-from :dev.metalisp.sbt/grid :con :row :col)
-  (:import-from :cl-sbt/btn :btn-primary)
+  (:import-from :dev.metalisp.sbt/btn :btn-primary)
-  (:import-from :cl-sbt/navbar :navbar :brand :toggler :collapsible)
+  (:import-from :dev.metalisp.sbt/navbar :navbar :brand :toggler :collapsible)
-  (:import-from :cl-sbt/utility :color)
+  (:import-from :dev.metalisp.sbt/utility :color)
-  (:import-from :cl-sbt :write-html-to-file :with-page)
+  (:import-from :dev.metalisp.sbt :write-html-to-file :with-page)
   (:import-from :spinneret :with-html-string)
   (:export
    :contact
@@ -46,10 +46,10 @@
    :page
    :write-page
    :*navbar-header-id*)
-  (:documentation "The `cl-sbt-album` package provides macros for building an
+  (:documentation "The `dev.metalisp.sbt-album` package provides macros for building an
   album-style website page using Bootstrap and Spinneret."))
 
-(in-package :cl-sbt/album)
+(in-package :dev.metalisp.sbt/album)
 
 (defvar *navbar-header-id* "navbarHeader")
 
@@ -67,7 +67,7 @@ Example usage:
   ; provided content."
   `(spinneret:with-html
      (:h4 "About")
-     (:p :class ,(apply #'cl-sbt/utility:color color)
+     (:p :class ,(apply #'dev.metalisp.sbt/utility:color color)
          ,@body)))
 
 (defmacro contact (&rest rest)
@@ -87,7 +87,7 @@ Example usage:
      (:ul :class "list-unstyled"
           ,@(loop for item in rest
                   collect (destructuring-bind (&key url label) item
-                            `(:li (:a :class ,(cl-sbt/utility:color :text :white)
+                            `(:li (:a :class ,(dev.metalisp.sbt/utility:color :text :white)
                                       :href ,url
                                       ,label)))))))
 
@@ -113,11 +113,11 @@ predefined content."
   "Generates an HTML footer with Bootstrap classes.
 
 COLOR: Specifies the color scheme of the footer. It's a list containing keyword
-arguments that can be passed to the cl-sbt/utility:color function. Default is
+arguments that can be passed to the dev.metalisp.sbt/utility:color function. Default is
 '(:text :body-secondary), setting the text color to secondary.
 
 SPACING: A list specifying the Bootstrap spacing class. The list should contain
-keyword arguments that can be passed to the cl-sbt/utility:spacing function.
+keyword arguments that can be passed to the dev.metalisp.sbt/utility:spacing function.
 Default is '(:property :p :size 5), setting the padding size to 5.
 
 REST: A list of key-value pairs. A recognized key is :copyright which
@@ -138,8 +138,8 @@ Example usage:
   ; be added to the footer."
   `(spinneret:with-html
      (:footer :class ,(concatenate 'string
-                                   (apply #'cl-sbt/utility:color color) " "
+                                   (apply #'dev.metalisp.sbt/utility:color color) " "
-                                   (apply #'cl-sbt/utility:spacing spacing))
+                                   (apply #'dev.metalisp.sbt/utility:spacing spacing))
               (con nil
                 ,@(destructuring-bind (&key copyright content) rest
                     `((:p :class "float-end mb-1"
@@ -236,4 +236,4 @@ to the respective component macros."
     (write-html-to-file filepath
                           (with-html-string (page "Album" t)))))
 
-;(cl-sbt/album:write-page "~/quicklisp/local-projects/cl-sbt/public/examples/album.html")
+;(dev.metalisp.sbt/album:write-page "~/quicklisp/local-projects/dev.metalisp.sbt/public/examples/album.html")

src/component/accordion.lisp

@@ -3,7 +3,7 @@
 ;;;; This file defines a package for generating Bootstrap accordion components
 ;;;; using Common Lisp macros.
 
-(defpackage cl-sbt/accordion
+(defpackage dev.metalisp.sbt/accordion
   (:documentation "A package for generating Bootstrap accordions.")
   (:use :cl)
   (:export
@@ -12,7 +12,7 @@
    :item
    :accordion))
 
-(in-package :cl-sbt/accordion)
+(in-package :dev.metalisp.sbt/accordion)
 
 (defun header (target name show)
   "This macro generates a Bootstrap header for an accordion item.

src/component/alert.lisp

@@ -3,7 +3,7 @@
 ;;;; This file defines a package for generating Bootstrap alert components
 ;;;; using Common Lisp macros.
 
-(defpackage cl-sbt/alert
+(defpackage dev.metalisp.sbt/alert
   (:use :cl)
   (:export
    :btn
@@ -25,7 +25,7 @@
    :alert-dismiss-light
    :alert-dismiss-dark))
 
-(in-package :cl-sbt/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."

src/component/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 cl-sbt/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 :cl-sbt/badge)
+(in-package :dev.metalisp.sbt/badge)
 
 (defmacro badge ((&key (color "primary") (pill nil)) &body body)
   "This macro generates a Bootstrap badge.

src/component/button.lisp

@@ -3,7 +3,7 @@
 ;;;; This file defines a package for generating Bootstrap button components
 ;;;; using Common Lisp macros.
 
-(defpackage cl-sbt/btn
+(defpackage dev.metalisp.sbt/btn
   (:use :cl)
   (:export
    :btn
@@ -62,7 +62,7 @@
    :btn-outline-dark-sm
    :btn-outline-link-sm))
 
-(in-package :cl-sbt/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.

src/component/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 cl-sbt/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 :cl-sbt/card)
+(in-package :dev.metalisp.sbt/card)
 
 (defmacro title (&body body)
   "This macro generates a Bootstrap card title.
@@ -180,7 +180,7 @@ Example:
   (card (img (:src "..."))
         (body (card-title "Card title")
               (card-text "Some quick example text to build on the card title and make up the bulk of the card's content."))
-        (cl-sbt-list-group (:content "An item")
+        (dev.metalisp.sbt-list-group (:content "An item")
                            (:content "A second item")
                            (:content "A third item"))
         (body (card-link "Card Link")

src/component/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 cl-sbt/dropdown
+(defpackage dev.metalisp.sbt/dropdown
   (:use :cl)
   (:export
    :menu
    :item
    :dropdown))
 
-(in-package :cl-sbt/dropdown)
+(in-package :dev.metalisp.sbt/dropdown)
 
 (defmacro menu (&body body)
   "This macro generates a Bootstrap dropdown menu.

src/component/form.lisp

@@ -6,19 +6,19 @@
 ;;;; It provides mechanisms to build form controls, manage localization,
 ;;;; and perform string manipulations.
 
-(defpackage cl-sbt/form
+(defpackage dev.metalisp.sbt/form
   (:use
    :cl)
   (:import-from
-   :cl-sbt
+   :dev.metalisp.sbt
    :*l10n*
    :find-l10n)
   (:import-from
-   :cl-sbt/btn
+   :dev.metalisp.sbt/btn
    :btn-outline-success
    :btn-primary)
   (:import-from
-   :cl-sbt/utility
+   :dev.metalisp.sbt/utility
    :spacing)
   (:export
    :combo
@@ -31,7 +31,7 @@
    :ctrl
    :search-form))
 
-(in-package :cl-sbt/form)
+(in-package :dev.metalisp.sbt/form)
 
 (defun remove-special-chars (str)
   "Removes all special characters from the string STR except numbers and alphabets.

src/component/header.lisp

@@ -1,4 +1,4 @@
-(in-package :cl-sbt)
+(in-package :dev.metalisp.sbt)
 
 (defvar header-contact-examples
   '(("Follow on Twitter" . "foo")

src/component/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 cl-sbt/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 :cl-sbt/list-group)
+(in-package :dev.metalisp.sbt/list-group)
 
 (defmacro item (&body body)
   "This macro generates a Bootstrap list group item.

src/component/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 cl-sbt/nav
+(defpackage dev.metalisp.sbt/nav
   (:use :cl)
   (:export
    :item
    :nav))
 
-(in-package :cl-sbt/nav)
+(in-package :dev.metalisp.sbt/nav)
 
 (defmacro item (name active url)
   "This macro generates a navigation item for a Bootstrap navigation list.

src/component/navbar.lisp

@@ -25,10 +25,10 @@
 ;; Form Support: You can include form elements directly in your Navbar, allowing
 ;; users to input data directly from the navigation bar.
 
-(defpackage cl-sbt/navbar
+(defpackage dev.metalisp.sbt/navbar
   (:use :cl)
   (:import-from
-   :cl-sbt/btn
+   :dev.metalisp.sbt/btn
    :btn-outline-success)
   (:export
    :navbar
@@ -41,7 +41,7 @@
    :form-search
    :collapsible))
 
-(in-package :cl-sbt/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.
@@ -127,8 +127,8 @@ Example:
   `(spinneret:with-html
      (:div :id ,id
            :class ,(format nil "collapse ~a" color)
-           (cl-sbt/grid:con ()
+           (dev.metalisp.sbt/grid:con ()
-             (cl-sbt/grid:row ()
+             (dev.metalisp.sbt/grid:row ()
                ,@body)))))
 
 (defmacro form-search ()

src/component/pagination.lisp

@@ -15,13 +15,13 @@
 ;; You can also include "Previous" and "Next" buttons to help users navigate
 ;; through the pages.
 
-(defpackage cl-sbt/pagination
+(defpackage dev.metalisp.sbt/pagination
   (:use :cl)
   (:export
    :item
    :pagination))
 
-(in-package :cl-sbt/pagination)
+(in-package :dev.metalisp.sbt/pagination)
 
 (defmacro item ((&key (url "#") (active nil)) &body body)
   "This macro generates a Bootstrap pagination item.

src/component/spinner.lisp

@@ -15,7 +15,7 @@
 ;; 'danger', 'warning', 'info', 'light', 'dark'. You can also control the size
 ;; of the spinner through size classes.
 
-(defpackage cl-sbt/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 :cl-sbt/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.

src/component/table.lisp

@@ -1,9 +1,9 @@
-(defpackage cl-sbt/tbl
+(defpackage dev.metalisp.sbt/tbl
   (:use :cl)
   (:export
    :table))
 
-(in-package :cl-sbt/tbl)
+(in-package :dev.metalisp.sbt/tbl)
 
 (defmacro table (&body body)
   `(spinneret:with-html

src/layout/grid.lisp

@@ -35,17 +35,17 @@
 ;; richness. From mobile to desktop, the grid system will scale up
 ;; appropriately to ensure your designs are fully responsive.
 
-(defpackage cl-sbt/grid
+(defpackage dev.metalisp.sbt/grid
   (:use :cl)
   (:import-from
-   :cl-sbt/utility
+   :dev.metalisp.sbt/utility
    :*breakpoints*)
   (:export
    :con
    :row
    :col))
 
-(in-package :cl-sbt/grid)
+(in-package :dev.metalisp.sbt/grid)
 
 (defun string-clean (str)
   (string-trim " " (string-downcase str)))
@@ -163,7 +163,7 @@ FLUID: When non-nil, the container becomes fluid (full width).
 BREAKPOINT: Specifies the size of the container at various breakpoints, should
 be 'sm', 'md', 'lg', 'xl', or 'xxl'.
 
-TEXT: A keyword list that applies text utilities. -> cl-sbt/utility:text
+TEXT: A keyword list that applies text utilities. -> dev.metalisp.sbt/utility:text
 
 Example 1:
   (con (:fluid t) \"Hello, world!\")
@@ -184,8 +184,8 @@ Example 4:
   ; defined breakpoint, containing bold text."
   (let* ((fluid-str (if (null fluid) "container " "container-fluid "))
          (breakpoint-str (if (null breakpoint) "" (format nil "~a " (apply #'breakpoint-class breakpoint))))
-         (text-str (if (null text) "" (format nil "~a " (apply #'cl-sbt/utility:text text))))
+         (text-str (if (null text) "" (format nil "~a " (apply #'dev.metalisp.sbt/utility:text text))))
-         (spacing-str (if (null spacing) "" (apply #'cl-sbt/utility:spacing spacing)))
+         (spacing-str (if (null spacing) "" (apply #'dev.metalisp.sbt/utility:spacing spacing)))
          (class-str (string-clean (concatenate 'string fluid-str breakpoint-str text-str spacing-str))))
     `(spinneret:with-html
        (:comment "START CONTAINER")
@@ -236,7 +236,7 @@ Example 4:
                                  (if (null alignitems) "" (format nil "align-items-~a " alignitems))
                                  (if (null justifycontent) "" (format nil "justify-content-~a " justifycontent))
                                  (if (null spacing) ""
-                                     (apply #'cl-sbt/utility:spacing spacing))))))
+                                     (apply #'dev.metalisp.sbt/utility:spacing spacing))))))
     `(spinneret:with-html
        (:div :class ,class-str
              ,@body))))
@@ -254,7 +254,7 @@ ALIGN-SELF: Specifies the alignment of the column.
 Possible values are 'start', 'center', 'end'.
 
 SPACING: A list specifying the Bootstrap spacing class. The list should contain
-keyword arguments that can be passed to the cl-sbt/utility:spacing function.
+keyword arguments that can be passed to the dev.metalisp.sbt/utility:spacing function.
 
 Example 1:
   (col (:cols 6) \"Hello, world!\")
@@ -282,7 +282,7 @@ Example 4:
                                      (apply #'breakpoint-class breakpoint))
                                  (if (null alignself) "" (format nil "align-self-~a " alignself))
                                  (if (null spacing) ""
-                                     (apply #'cl-sbt/utility:spacing spacing))))))
+                                     (apply #'dev.metalisp.sbt/utility:spacing spacing))))))
     `(spinneret:with-html
        (:div :class ,class-str
              ,@body))))

src/main.lisp

@@ -1,5 +1,5 @@
 ;;;; -*- mode: lisp; coding: utf-8; tab-width: 4; fill-column: 100; indent-tabs-mode: nil; -*-
-(defpackage cl-sbt
+(defpackage dev.metalisp.sbt
   (:use :cl)
   (:export
    :*cdn-css*
@@ -9,7 +9,7 @@
    :*l10n*
    :find-l10n))
 
-(in-package :cl-sbt)
+(in-package :dev.metalisp.sbt)
 
 (setq spinneret:*fill-column* 120)
 (defparameter *cdn-css* "https://cdn.jsdelivr.net/npm/bootstrap@5.3.0/dist/css/bootstrap.min.css")

src/pattern/questionnaire.lisp

@@ -1,33 +1,33 @@
 ;;;; questionnaire.lisp
 
-;;;; This package, `cl-sbt/questionnaire`, provides a suite of utilities for
+;;;; This package, `dev.metalisp.sbt/questionnaire`, provides a suite of utilities for
 ;;;; generating HTML forms composed of multiple questions. Each question can
 ;;;; have a different type of input (radio buttons, checkboxes, etc.), and the
 ;;;; form itself can be customized according to the target URL for submissions.
 
-(defpackage cl-sbt/questionnaire
+(defpackage dev.metalisp.sbt/questionnaire
-  (:documentation "Defines the `cl-sbt/questionnaire` package, a utility suite for generating HTML forms with various types of questions.")
+  (:documentation "Defines the `dev.metalisp.sbt/questionnaire` package, a utility suite for generating HTML forms with various types of questions.")
   (:use
    :cl)
   (:import-from
-   :cl-sbt
+   :dev.metalisp.sbt
    :*l10n*
    :find-l10n)
   (:import-from
-   :cl-sbt/btn
+   :dev.metalisp.sbt/btn
    :btn-primary)
   (:import-from
-   :cl-sbt/utility
+   :dev.metalisp.sbt/utility
    :spacing)
   (:import-from
-   :cl-sbt/form
+   :dev.metalisp.sbt/form
    :checkable
    :ctrl
    :combo)
   (:export
    :questionnaire))
 
-(in-package :cl-sbt/questionnaire)
+(in-package :dev.metalisp.sbt/questionnaire)
 
 (defun choicep (lst)
   "Checks if the given list LST is a valid choice.

src/translate.lisp

@@ -1,4 +1,4 @@
-(in-package :cl-sbt)
+(in-package :dev.metalisp.sbt)
 
 (defun dictp (lst)
   (loop for entry in lst always

src/utility.lisp

@@ -38,7 +38,7 @@
 ;; elements, allowing for easy adjustments to visibility and layout across
 ;; different screen sizes.
 
-(defpackage :cl-sbt/utility
+(defpackage :dev.metalisp.sbt/utility
   (:use :cl)
   (:export
    :*colors*
@@ -54,7 +54,7 @@
    :valign)
   (:documentation "A module for generating Bootstrap utility classes."))
 
-(in-package :cl-sbt/utility)
+(in-package :dev.metalisp.sbt/utility)
 
 (defparameter *colors*
   '("body" "secondary" "tertiary" "emphasis" "border" "primary" "success" "danger" "warning" "info" "light" "dark" )

tests/component/accordion.lisp

@@ -1,16 +1,16 @@
-(defpackage cl-sbt/tests/accordion
+(defpackage dev.metalisp.sbt/tests/accordion
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/accordion
+   :dev.metalisp.sbt/accordion
    :header
    :collapse
    :item
    :accordion))
 
-(in-package :cl-sbt/tests/accordion)
+(in-package :dev.metalisp.sbt/tests/accordion)
 
 (deftest test-header
   (let ((result (spinneret:with-html-string (header "collapseOne" "Heading" t))))

tests/component/alert.lisp

@@ -1,16 +1,16 @@
-(defpackage cl-sbt/tests/alert
+(defpackage dev.metalisp.sbt/tests/alert
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/alert
+   :dev.metalisp.sbt/alert
    :btn
    :alert
    :alert-primary
    :alert-dismiss-primary))
 
-(in-package :cl-sbt/tests/alert)
+(in-package :dev.metalisp.sbt/tests/alert)
 
 (deftest test-btn-macro
   (testing "Testing btn macro"

tests/component/badge.lisp

@@ -1,15 +1,15 @@
-(defpackage cl-sbt/tests/badge
+(defpackage dev.metalisp.sbt/tests/badge
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/badge
+   :dev.metalisp.sbt/badge
    :badge
    :badge-primary
    :badge-pill-primary))
 
-(in-package :cl-sbt/tests/badge)
+(in-package :dev.metalisp.sbt/tests/badge)
 
 (deftest test-badge-macro
   (testing "Testing badge macro"

tests/component/button.lisp

@@ -1,15 +1,15 @@
-(defpackage cl-sbt/tests/btn
+(defpackage dev.metalisp.sbt/tests/btn
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/btn
+   :dev.metalisp.sbt/btn
    :btn
    :btn-primary
    :btn-outline-primary))
 
-(in-package :cl-sbt/tests/btn)
+(in-package :dev.metalisp.sbt/tests/btn)
 
 (deftest test-btn-macro
   (testing "Testing btn macro"

tests/component/card.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/card
+(defpackage dev.metalisp.sbt/tests/card
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/card
+   :dev.metalisp.sbt/card
    :title
    :subtitle
    :text
@@ -16,7 +16,7 @@
    :card
    :card-group))
 
-(in-package :cl-sbt/tests/card)
+(in-package :dev.metalisp.sbt/tests/card)
 
 (deftest test-title
   (let ((result (spinneret:with-html-string (title "My Title"))))

tests/component/dropdown.lisp

@@ -1,15 +1,15 @@
-(defpackage cl-sbt/tests/dropdown
+(defpackage dev.metalisp.sbt/tests/dropdown
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/dropdown
+   :dev.metalisp.sbt/dropdown
    :menu
    :item
    :dropdown))
 
-(in-package :cl-sbt/tests/dropdown)
+(in-package :dev.metalisp.sbt/tests/dropdown)
 
 (deftest test-menu
   (let ((result (spinneret:with-html-string (menu (item "Item 1") (item "Item 2")))))

tests/component/form.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/form
+(defpackage dev.metalisp.sbt/tests/form
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/form
+   :dev.metalisp.sbt/form
    :remove-special-chars
    :ctrl
    :combo
@@ -13,7 +13,7 @@
    :search-form
    :checkable))
 
-(in-package :cl-sbt/tests/form)
+(in-package :dev.metalisp.sbt/tests/form)
 
 (deftest test-remove-special-chars
   (testing "Removes all special characters from the string STR except numbers and alphabets."

tests/component/list-group.lisp

@@ -1,14 +1,14 @@
-(defpackage cl-sbt/tests/list-group
+(defpackage dev.metalisp.sbt/tests/list-group
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/list-group
+   :dev.metalisp.sbt/list-group
    :item
    :list-group))
 
-(in-package :cl-sbt/tests/list-group)
+(in-package :dev.metalisp.sbt/tests/list-group)
 
 (deftest test-item
   (let ((result (spinneret:with-html-string (item "Item 1"))))

tests/component/nav-tab.lisp

@@ -1,14 +1,14 @@
-(defpackage cl-sbt/tests/nav
+(defpackage dev.metalisp.sbt/tests/nav
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/nav
+   :dev.metalisp.sbt/nav
    :item
    :nav))
 
-(in-package :cl-sbt/tests/nav)
+(in-package :dev.metalisp.sbt/tests/nav)
 
 (deftest test-item
   (let ((result (spinneret:with-html-string (item "foo" t "#"))))

tests/component/navbar.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/navbar
+(defpackage dev.metalisp.sbt/tests/navbar
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/navbar
+   :dev.metalisp.sbt/navbar
    :navbar
    :brand
    :nav
@@ -14,7 +14,7 @@
    :content
    :collapsible))
 
-(in-package :cl-sbt/tests/navbar)
+(in-package :dev.metalisp.sbt/tests/navbar)
 
 (deftest test-brand-logo
   (let ((result (spinneret:with-html-string (brand-logo (:src "logo.png" :alt "My Logo" :width 50 :height 50 :classes "logo-class")))))

tests/layout/grid.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/grid
+(defpackage dev.metalisp.sbt/tests/grid
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/grid
+   :dev.metalisp.sbt/grid
    :make-con-class
    :make-row-class
    :make-col-class
@@ -13,7 +13,7 @@
    :row
    :col))
 
-(in-package :cl-sbt/tests/grid)
+(in-package :dev.metalisp.sbt/tests/grid)
 
 (deftest test-make-con-class-no-value
   (testing "Generates an empty string when value is NIL"

tests/main.lisp

@@ -1,7 +1,7 @@
-(defpackage cl-sbt/tests/main
+(defpackage dev.metalisp.sbt/tests/main
   (:use :cl
-        :cl-sbt
+        :dev.metalisp.sbt
         :rove))
-(in-package :cl-sbt/tests/main)
+(in-package :dev.metalisp.sbt/tests/main)
 
-;; NOTE: To run this test file, execute `(asdf:test-system :cl-sbt)' in your Lisp.
+;; NOTE: To run this test file, execute `(asdf:test-system :dev.metalisp.sbt)' in your Lisp.

tests/pattern/questionnaire.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/questionnaire
+(defpackage dev.metalisp.sbt/tests/questionnaire
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/questionnaire
+   :dev.metalisp.sbt/questionnaire
    :choicep
    :choicesp
    :questionp
@@ -15,7 +15,7 @@
    :extract-question-components
    :questionnaire))
 
-(in-package :cl-sbt/tests/questionnaire)
+(in-package :dev.metalisp.sbt/tests/questionnaire)
 
 (deftest test-choicep
   (testing "Test for choicep"

tests/utility.lisp

@@ -1,10 +1,10 @@
-(defpackage cl-sbt/tests/utility
+(defpackage dev.metalisp.sbt/tests/utility
   (:use
    :cl
-   :cl-sbt
+   :dev.metalisp.sbt
    :rove)
   (:import-from
-   :cl-sbt/utility
+   :dev.metalisp.sbt/utility
    :background
    :color
    :opacity
@@ -14,7 +14,7 @@
    :text
    :valign))
 
-(in-package :cl-sbt/tests/utility)
+(in-package :dev.metalisp.sbt/tests/utility)
 
 (deftest test-background-color
   (testing "Generates correct background class with color"