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

Rename dropdown package

Browse source
This commit is contained in:
Marcus Kammer 2024-07-28 12:47:18 +02:00
parent d3a23cac83
commit e12cafbcfa
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/dropdown.lisp
View file

@ -24,14 +24,14 @@
;; class .dropdown-item. Additionally, dropdowns can be made to expand ;; class .dropdown-item. Additionally, dropdowns can be made to expand
;; upwards (instead of downwards) by adding the .dropup class. ;; upwards (instead of downwards) by adding the .dropup class.
(defpackage dev.metalisp.sbt/dropdown (defpackage ml-sbt/dropdown
(:use :cl) (:use :cl)
(:export (:export
:menu :menu
:item :item
:dropdown)) :dropdown))
(in-package :dev.metalisp.sbt/dropdown) (in-package :ml-sbt/dropdown)
(defmacro menu (&body body) (defmacro menu (&body body)
"This macro generates a Bootstrap dropdown menu. "This macro generates a Bootstrap dropdown menu.

6
tests/dropdown.lisp
View file

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