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

Rename nav package

Browse source
This commit is contained in:
Marcus Kammer 2024-07-28 17:24:23 +02:00
parent d207f0e99e
commit 1fb4b66965
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/nav-tab.lisp
View file

@ -33,13 +33,13 @@
;; adjusts its layout based on the size of the user's screen. This makes it a ;; adjusts its layout based on the size of the user's screen. This makes it a
;; flexible choice for a variety of web layouts. ;; flexible choice for a variety of web layouts.
(defpackage dev.metalisp.sbt/nav (defpackage ml-sbt/nav
(:use :cl) (:use :cl)
(:export (:export
:item :item
:nav)) :nav))
(in-package :dev.metalisp.sbt/nav) (in-package :ml-sbt/nav)
(defmacro item (name active url) (defmacro item (name active url)
"This macro generates a navigation item for a Bootstrap navigation list. "This macro generates a navigation item for a Bootstrap navigation list.

6
tests/nav-tab.lisp
View file

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