diff --git a/cl-sbt.asd b/dev.metalisp.sbt.asd similarity index 89% rename from cl-sbt.asd rename to dev.metalisp.sbt.asd index 3b617f9..fbc2f60 100644 --- a/cl-sbt.asd +++ b/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/cl-sbt") + :source-control (:git "git@git.sr.ht:~marcuskammer/dev.metalisp.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))) diff --git a/examples/album.lisp b/examples/album.lisp index 4e75e7c..f80e0b4 100644 --- a/examples/album.lisp +++ b/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 :cl-sbt/btn :btn-primary) - (:import-from :cl-sbt/navbar :navbar :brand :toggler :collapsible) - (:import-from :cl-sbt/utility :color) - (:import-from :cl-sbt :write-html-to-file :with-page) + (:import-from :dev.metalisp.sbt/grid :con :row :col) + (:import-from :dev.metalisp.sbt/btn :btn-primary) + (:import-from :dev.metalisp.sbt/navbar :navbar :brand :toggler :collapsible) + (:import-from :dev.metalisp.sbt/utility :color) + (: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 #'cl-sbt/utility:spacing spacing)) + (apply #'dev.metalisp.sbt/utility:color color) " " + (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") diff --git a/src/component/accordion.lisp b/src/component/accordion.lisp index 3cc1f67..adff50a 100644 --- a/src/component/accordion.lisp +++ b/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. diff --git a/src/component/alert.lisp b/src/component/alert.lisp index 490fce7..ffe6031 100644 --- a/src/component/alert.lisp +++ b/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." diff --git a/src/component/badge.lisp b/src/component/badge.lisp index 78b44e8..93f6acd 100644 --- a/src/component/badge.lisp +++ b/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. diff --git a/src/component/button.lisp b/src/component/button.lisp index e573e0f..0b0c31d 100644 --- a/src/component/button.lisp +++ b/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. diff --git a/src/component/card.lisp b/src/component/card.lisp index cf49332..2c060bf 100644 --- a/src/component/card.lisp +++ b/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") diff --git a/src/component/dropdown.lisp b/src/component/dropdown.lisp index ea36853..561ac8e 100644 --- a/src/component/dropdown.lisp +++ b/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. diff --git a/src/component/form.lisp b/src/component/form.lisp index 6448dc6..7d2f3fa 100644 --- a/src/component/form.lisp +++ b/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. diff --git a/src/component/header.lisp b/src/component/header.lisp index eef0e36..56559c6 100644 --- a/src/component/header.lisp +++ b/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") diff --git a/src/component/list-group.lisp b/src/component/list-group.lisp index e48b2ef..4662fc4 100644 --- a/src/component/list-group.lisp +++ b/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. diff --git a/src/component/nav-tab.lisp b/src/component/nav-tab.lisp index 395ba27..8350c6c 100644 --- a/src/component/nav-tab.lisp +++ b/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. diff --git a/src/component/navbar.lisp b/src/component/navbar.lisp index ea66d8f..e1d53f7 100644 --- a/src/component/navbar.lisp +++ b/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 () - (cl-sbt/grid:row () + (dev.metalisp.sbt/grid:con () + (dev.metalisp.sbt/grid:row () ,@body))))) (defmacro form-search () diff --git a/src/component/pagination.lisp b/src/component/pagination.lisp index 8463df0..904cd63 100644 --- a/src/component/pagination.lisp +++ b/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. diff --git a/src/component/spinner.lisp b/src/component/spinner.lisp index efcee0b..0a01f1a 100644 --- a/src/component/spinner.lisp +++ b/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. diff --git a/src/component/table.lisp b/src/component/table.lisp index fe7c1b8..ae00e73 100644 --- a/src/component/table.lisp +++ b/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 diff --git a/src/layout/grid.lisp b/src/layout/grid.lisp index d293f2f..81520f6 100644 --- a/src/layout/grid.lisp +++ b/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)))) - (spacing-str (if (null spacing) "" (apply #'cl-sbt/utility:spacing spacing))) + (text-str (if (null text) "" (format nil "~a " (apply #'dev.metalisp.sbt/utility:text text)))) + (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)))) diff --git a/src/main.lisp b/src/main.lisp index 7eeb721..1865ad4 100644 --- a/src/main.lisp +++ b/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") diff --git a/src/pattern/questionnaire.lisp b/src/pattern/questionnaire.lisp index 8dfbeaf..4ab746e 100644 --- a/src/pattern/questionnaire.lisp +++ b/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 - (:documentation "Defines the `cl-sbt/questionnaire` package, a utility suite for generating HTML forms with various types of questions.") +(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) (: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. diff --git a/src/translate.lisp b/src/translate.lisp index e0112e7..37ec0e3 100644 --- a/src/translate.lisp +++ b/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 diff --git a/src/utility.lisp b/src/utility.lisp index 0f2f8b6..ab35878 100644 --- a/src/utility.lisp +++ b/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" ) diff --git a/tests/component/accordion.lisp b/tests/component/accordion.lisp index 1847c7c..23ab1f2 100644 --- a/tests/component/accordion.lisp +++ b/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)))) diff --git a/tests/component/alert.lisp b/tests/component/alert.lisp index 86a87f4..0353802 100644 --- a/tests/component/alert.lisp +++ b/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" diff --git a/tests/component/badge.lisp b/tests/component/badge.lisp index 08b8b91..030ded5 100644 --- a/tests/component/badge.lisp +++ b/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" diff --git a/tests/component/button.lisp b/tests/component/button.lisp index fbe5339..8e96491 100644 --- a/tests/component/button.lisp +++ b/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" diff --git a/tests/component/card.lisp b/tests/component/card.lisp index 5ee3585..55fc26d 100644 --- a/tests/component/card.lisp +++ b/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")))) diff --git a/tests/component/dropdown.lisp b/tests/component/dropdown.lisp index f6628ab..78f9d04 100644 --- a/tests/component/dropdown.lisp +++ b/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"))))) diff --git a/tests/component/form.lisp b/tests/component/form.lisp index 6bc5666..4adbbda 100644 --- a/tests/component/form.lisp +++ b/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." diff --git a/tests/component/list-group.lisp b/tests/component/list-group.lisp index a0753a3..5a6d8cb 100644 --- a/tests/component/list-group.lisp +++ b/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")))) diff --git a/tests/component/nav-tab.lisp b/tests/component/nav-tab.lisp index f329d46..0d7310c 100644 --- a/tests/component/nav-tab.lisp +++ b/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 "#")))) diff --git a/tests/component/navbar.lisp b/tests/component/navbar.lisp index 889d4d7..4071812 100644 --- a/tests/component/navbar.lisp +++ b/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"))))) diff --git a/tests/layout/grid.lisp b/tests/layout/grid.lisp index da0750a..6aef171 100644 --- a/tests/layout/grid.lisp +++ b/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" diff --git a/tests/main.lisp b/tests/main.lisp index 3b3b1a6..860d464 100644 --- a/tests/main.lisp +++ b/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. diff --git a/tests/pattern/questionnaire.lisp b/tests/pattern/questionnaire.lisp index b16b150..fc75988 100644 --- a/tests/pattern/questionnaire.lisp +++ b/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" diff --git a/tests/utility.lisp b/tests/utility.lisp index 22b6f4c..ec6798c 100644 --- a/tests/utility.lisp +++ b/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"