diff options
| author | Beat Hagenlocher | 2024-06-29 00:57:45 +0200 |
|---|---|---|
| committer | Beat Hagenlocher | 2024-06-29 00:57:45 +0200 |
| commit | a1ebaf176d6373b179bc563a519a0fa37b1bc0c3 (patch) | |
| tree | d504babf5799c1fcf14b57fb11e2b802b2698292 | |
| parent | e8c03ff94b96c9a6f76da1c9356065b6da5661a9 (diff) | |
Add more content & first tags
| -rw-r--r-- | index.html.pm | 48 | ||||
| -rw-r--r-- | pollen.rkt | 10 | ||||
| -rw-r--r-- | template.html.p | 5 |
3 files changed, 43 insertions, 20 deletions
diff --git a/index.html.pm b/index.html.pm index 2bbb0ad..73a552d 100644 --- a/index.html.pm +++ b/index.html.pm @@ -2,10 +2,10 @@ ◊(require string-interpolation) -◊`(main ([class "flex flex-col justify-around"]) - (div ([class "mt-4 mb-10"]) - (h1 ([class "my-2 text-3xl leading-relaxed text-center"]) - "Writing programs is hard —") +◊`(div ([class ,"flex flex-col justify-between mx-auto min-h-screen max-w-screen-xl px-6 pt-12 md:px-12 md:pt-20 lg:px-24 bg-[@{raisin-black}] text-zinc-300"]) + (div ([class "my-6"]) + (h1 ([class ,"my-4 text-4xl text-[@{jordy}] font-fira-code tracking-tighter leading-snug text-center"]) + "Coding is hard —") (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) "Most of the tools and languages (make it easy to) add unnecessary complexity.") (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) @@ -13,24 +13,38 @@ (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) "If we constantly battle cognitive load, we get exhausted, unhappy and frustrated.") ) - (div ([class "mt-10 mb-4"]) - (h1 ([class "my-2 text-3xl leading-relaxed text-center"]) + (div ([class "my-6"]) + (h1 ([class ,"my-4 text-4xl text-[@{jordy}] font-fira-code tracking-tighter leading-snug text-center"]) "but it doesn't have to be.") (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) - "There are tools and techniques that manage complexity comparatively well:") - (div ([class "my-4 mx-auto"]) - ,(->badges "Haskell, Nix, Elixir, Erlang, Rust, Clojure, Racket, Category Theory, Lenses") - ) + "There are tools and techniques that manage complexity comparatively well.") (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) "Using those " (span ([class "italic"]) "reduces") " cognitive load.") (p ([class "my-2 sm:text-lg leading-relaxed text-center"]) "So that you can be energetic, happy and joyful while coding.") ) - (div ([class "fixed right-5 bottom-20"]) - (a ([href "/meetup.html"] - [class ,"inline-flex items-center gap-2 text-zinc-200 hover:text-[@{jordy}] focus-visible:text-[@{jordy}] duration-300"] [target "_blank"] [rel "noreferrer"]) - "Interested? Have a look" - (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1.5"] [stroke "currentColor"] [class "size-6"]) - (path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "M13.5 4.5 21 12m0 0-7.5 7.5M21 12H3"])))) + (div ([class "mx-auto"]) + (a ([href "#meetup"] + [class ,"mb-4 flex flex-col gap-2 items-center hover:text-[@{jordy}] focus-visible:text-[@{jordy}] duration-300"]) + (span ([class "text-xl text-[@{jordy}] font-fira-code tracking-tighter leading-snug"])"Interested? Have a look") + (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1"] [stroke "currentColor"] [class "size-16"]) + (path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "m19.5 8.25-7.5 7.5-7.5-7.5"])))) ) -)
\ No newline at end of file +) + +◊`(div ([id "meetup"] [class "min-h-screen my-4 bg-white text-zinc-700 mx-auto h-full max-w-screen-md px-6 py-12 md:px-12 md:py-20 lg:px-24"]) + ,(heading "About") + (p ([class "my-4 sm:text-lg leading-relaxed"]) + "Hi 👋") + (p ([class "my-4 sm:text-lg leading-relaxed"]) + "We're " ,(link "David" "https://binderdavid.github.io") " and " ,(link "Beat" "https://me.beathagenlocher.com") " and we thought it would be nice if the wonderful city of Tübingen had a functional programming meetup (again).") + (p ([class "my-4 sm:text-lg leading-relaxed"]) + "That's why we're launching " (span ([class "italic"]) "Functional Coders Tübingen") " — we want to create a space where people interested in functional programming can meet and learn from each other. + To achieve this, we will start off with talks, followed by food and an open exchange between the participants.") + (p ([class "my-4 sm:text-lg leading-relaxed"]) + "The first event will take place at the dd.mm.yy at the " (a ([href "https://ki-maker.space/"]) "KI Makerspace Tübingen") ", Wöhrdstraße 25.") + ,(heading "Schedule") +) + + +◊; ,(->badges "Haskell, Nix, Elixir, Erlang, Rust, Clojure, Racket, Category Theory, Lenses")
\ No newline at end of file @@ -22,3 +22,13 @@ `(ul ([class "flex flex-wrap justify-center"] [aria-label "Tools/Techniques used"]) ,(for/splice ([topic top-list]) (badge topic))))) +(define (link text url) + `(a ([class ,"text-[@{jordy}] hover:underline decoration-2 underline-offset-2 decoration-[@{jordy}] hover:text-[@{jordy}]"] [rel "noreferrer noopener"] [target "_blank"] [href ,url]) + ,text)) + +(define (id-ify text) + (string-replace (string-downcase text) " " "-")) + +(define (heading text) + `(h1 ([id ,(id-ify text)] [class ,"text-3xl font-fira-code text-[@{jordy}] tracking-tighter leading-snug"]) + ,text)) diff --git a/template.html.p b/template.html.p index e5f7545..95dca26 100644 --- a/template.html.p +++ b/template.html.p @@ -37,9 +37,8 @@ <link rel="stylesheet" href="fonts.css"> <script src="https://cdn.tailwindcss.com"></script> </head> - <body class="flex flex-col justify-between h-screen bg-[◊|raisin-black|] leading-relaxed text-zinc-300 antialiased font-fira-sans selection:bg-[◊|jordy-light|] selection:text-[◊|raisin-black|]"> - ◊(->html `(div ([class "mx-auto h-full max-w-screen-xl px-6 py-12 - md:px-12 md:py-20 lg:px-24 lg:py-0"]) + <body class="antialiased font-fira-sans selection:bg-[◊|jordy-light|] selection:text-[◊|raisin-black|]"> + ◊(->html `(div ([class ""]) ,doc)) <footer class="p-6 sm:p-8 md:p-12"> <div class="flex flex-wrap justify-center items-center gap-4 sm:gap-6 md:gap-8 text-sm text-zinc-400"> |