marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Rename package card

Browse source
This commit is contained in:
Marcus Kammer 2023-12-18 11:35:11 +01:00
parent ca759e3bfb
commit befb9939d0
Signed by: marcuskammer
GPG key ID: C374817BE285268F
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/component/card.lisp
View file

@ -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/card
(defpackage dev.metalisp.sbt/component/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/card)
(in-package :dev.metalisp.sbt/component/card)
(defmacro title (&body body)
"This macro generates a Bootstrap card title.

6
tests/component/card.lisp
View file

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