22 lines
538 B
Common Lisp
22 lines
538 B
Common Lisp
(defpackage #:hp/ui/layout
|
|
(:use #:cl)
|
|
(:local-nicknames (#:mk #:markup))
|
|
(:export #:layout))
|
|
(in-package #:hp/ui/layout)
|
|
|
|
(markup:enable-reader)
|
|
|
|
(mk:deftag layout (children)
|
|
<html>
|
|
<head>
|
|
<title>skyizwhite.dev</title>
|
|
<script src="/static/htmx.min.js" ></script>
|
|
<link href="/static/tailwind.css" rel="stylesheet">
|
|
<style>
|
|
@tailwind base;
|
|
@tailwind components;
|
|
@tailwind utilities;
|
|
</style>
|
|
</head>
|
|
<body class="h-[100svh]" >,@(progn children)</body>
|
|
</html>)
|