home page
This commit is contained in:
parent
0602391977
commit
ebfb0c6c87
10 changed files with 73 additions and 34 deletions
src/components
26
src/components/header.lisp
Normal file
26
src/components/header.lisp
Normal file
|
@ -0,0 +1,26 @@
|
|||
(defpackage #:hp/components/header
|
||||
(:use #:cl
|
||||
#:hsx)
|
||||
(:export #:page-header))
|
||||
(in-package #:hp/components/header)
|
||||
|
||||
(defcomp page-header ()
|
||||
(let ((links '(("Home" "/")
|
||||
("About" "/about")
|
||||
("Work" "/work")
|
||||
("Blog" "/blog")
|
||||
("Contact" "/contact"))))
|
||||
(hsx
|
||||
(header :class "fixed top-0 w-full"
|
||||
(div :class "container flex justify-between py-6"
|
||||
(h1
|
||||
(a :href "/"
|
||||
(img
|
||||
:src "/logo.png" :alt "Amongtellers"
|
||||
:class "w-52 h-auto")))
|
||||
(ul :class "flex flex-col gap-4"
|
||||
(loop
|
||||
:for (content href) :in links :collect
|
||||
(li :class "flex items-center"
|
||||
(a :href href :class "text-xl font-bold pl-6 hover:text-orange-600"
|
||||
content)))))))))
|
Loading…
Add table
Add a link
Reference in a new issue