Skip to content

Commit 8bce9e8

Browse files
committed
Change to pollen syntax
1 parent ec6e9af commit 8bce9e8

File tree

2 files changed

+47
-39
lines changed

2 files changed

+47
-39
lines changed

index.html.pm

Lines changed: 44 additions & 39 deletions
Original file line numberDiff line numberDiff line change
@@ -58,45 +58,50 @@
5858
)
5959
)
6060

61-
◊`(div ([class "bg-white"])
62-
(div ([id "meetup"] [class "min-h-[94vh] text-zinc-700 mx-auto h-full max-w-screen-md px-6 pt-12 md:px-12 md:pt-20 lg:px-24"])
63-
,(heading "About")
64-
(p ([class "my-4 sm:text-lg leading-relaxed"])
65-
"Hi 👋")
66-
(p ([class "my-4 sm:text-lg leading-relaxed"])
67-
"We're " ,(link "Dirk" "https://www.linkedin.com/in/dirk-hüsken-414b8b101") ", " ,(link "Thomas" "https://www.linkedin.com/in/thomas-graf-253629ba") ", " ,(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!).")
68-
(p ([class "my-4 sm:text-lg leading-relaxed"])
69-
"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. At the same time, this is a relaunch of " ,(link "Tü.λ—Functional Programming Night Tübingen" "https://www.meetup.com/tu-lambda/") ".")
70-
(p ([class "my-4 sm:text-lg leading-relaxed"])
71-
"Looking forward to see you at our next meetup!")
72-
,(heading "Schedule")
73-
(p ([class "my-4 sm:text-lg leading-relaxed"])
74-
"The first event will take place at the 28.08.24 at the " (a ([href "https://itdesign.de/"]) "itdesign office") ", Friedrichstraße 12.")
75-
(ul ([class "list-disc list-inside mx-2 my-4 sm:text-lg leading-relaxed"])
76-
(li "18.45 Doors open & Welcome")
77-
(li "Simple development environments with Nix (Beat)")
78-
(li "Short break")
79-
(li "Persistent Data Structures: From Lists to Hashmaps (David)")
80-
(li "Food, talking, coding, whatever")
81-
(li "22.00 End")
82-
)
83-
84-
(p ([class "my-4 sm:text-lg leading-relaxed"])
85-
"If you want to attend the meetup, please " ,(link "tell us about it" "https://matrix.to/#/#functional-coders-tuebingen:matrix.org") " so that we can plan accordingly 😊")
86-
, (heading "Contact")
61+
div[#:class "bg-white"]{
62+
div[#:id "meetup" #:class "min-h-[94vh] text-zinc-700 mx-auto h-full max-w-screen-md px-6 pt-12 md:px-12 md:pt-20 lg:px-24"]{
63+
◊heading["About"]
64+
◊par{"Hi 👋"}
65+
◊par{
66+
We're ◊(link "Dirk" "https://www.linkedin.com/in/dirk-hüsken-414b8b101"), ◊(link "Thomas" "https://www.linkedin.com/in/thomas-graf-253629ba"), ◊(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!).
67+
}
68+
◊par{
69+
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. At the same time, this is a relaunch of ◊(link "Tü.λ—Functional Programming Night Tübingen" "https://www.meetup.com/tu-lambda/").
70+
}
71+
◊par{
72+
Looking forward to see you at our next meetup!
73+
}
8774

88-
(div ([class "mt-8"])
89-
(p ([class "my-4 sm:text-lg leading-relaxed"])
90-
"Do you want to keep posted about the next event or continue the discussion? Maybe you even want to contribute a talk yourself?")
91-
(a ([href "https://matrix.to/#/#functional-coders-tuebingen:matrix.org"]
92-
[class ,"ml-4 inline-flex gap-4 items-center hover:text-[@{jordy}] focus-visible:text-[@{jordy}] duration-300"])
93-
(svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1"] [stroke "currentColor"] [class "size-8"])
94-
(path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "M13.5 4.5 21 12m0 0-7.5 7.5M21 12H3"]))
95-
(span ([class "text-xl text-[@{jordy}] font-fira-code tracking-tighter leading-snug"]) "Join our Matrix Room")))
96-
)
75+
◊heading["Schedule"]
76+
◊par{
77+
The first event will take place at the 28.08.24 at the ◊link["itdesign office" "https://itdesign.de/"], Friedrichstraße 12.
78+
}
79+
◊ul[#:class "list-disc list-inside mx-2 my-4 sm:text-lg leading-relaxed"]{
80+
◊li{18.45 Doors open & Welcome}
81+
◊li{Simple development environments with Nix (Beat)}
82+
◊li{Short break}
83+
◊li{Persistent Data Structures: From Lists to Hashmaps (David)}
84+
◊li{Food, talking, coding, whatever}
85+
◊li{22.00 End}
86+
}
87+
◊par{
88+
If you want to attend the meetup, please ◊(link "tell us about it" "https://www.meetup.com/tu-lambda/") so that we can plan accordingly 😊
89+
}
9790

98-
)
99-
)
100-
91+
◊heading["Contact"]
92+
div[#:class "mt-8"]{
93+
◊par{
94+
Do you want to keep posted about the next event or continue the discussion? Maybe you even want to contribute a talk yourself?
95+
}
96+
◊a[#:href "https://matrix.to/#/#functional-coders-tuebingen:matrix.org" #:class "ml-4 inline-flex gap-4 items-center hover:text-[@{jordy}] focus-visible:text-[@{jordy}] duration-300"]{
97+
◊svg[#:xmlns "http://www.w3.org/2000/svg" #:fill "none" #:viewBox "0 0 24 24" #:stroke-width "1" #:stroke "currentColor" #:class "size-8"]{
98+
◊path[#:stroke-linecap "round" #:stroke-linejoin "round" #:d "M13.5 4.5 21 12m0 0-7.5 7.5M21 12H3"]
99+
}
100+
◊span[#:class "text-xl text-[@{jordy}] font-fira-code tracking-tighter leading-snug"]{
101+
Join our Matrix Room
102+
}
103+
}
104+
}
105+
}
106+
}
101107

102-
◊; ,(->badges "Haskell, Nix, Elixir, Erlang, Rust, Clojure, Racket, Category Theory, Lenses")

pollen.rkt

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,9 @@
2626
`(a ([class ,"text-[@{jordy}] hover:underline decoration-2 underline-offset-2 decoration-[@{jordy}] hover:text-[@{jordy}]"] [rel "noreferrer noopener"] [target "_blank"] [href ,url])
2727
,text))
2828

29+
(define (par . body)
30+
`(p ([class "my-4 sm:text-lg leading-relaxed"]) ,@body))
31+
2932
(define (id-ify text)
3033
(string-replace (string-downcase text) " " "-"))
3134

0 commit comments

Comments
 (0)