From cd7cf527613ce220dc39bd705da72199b35fa0a1 Mon Sep 17 00:00:00 2001
From: Beat Hagenlocher
Date: Thu, 27 Jun 2024 00:32:51 +0200
Subject: Initial commit

---
 pollen.rkt | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 pollen.rkt

(limited to 'pollen.rkt')

diff --git a/pollen.rkt b/pollen.rkt
new file mode 100644
index 0000000..a18e169
--- /dev/null
+++ b/pollen.rkt
@@ -0,0 +1,24 @@
+#lang racket
+
+(require pollen/core
+         string-interpolation)
+
+(define raisin-black "#1F2030")
+(define celadon "#A7D995")
+; (define celadon-light "#97b6f0")
+(define jordy "#8AADF4")
+(define jordy-light "#8AADF4")
+
+(provide (all-defined-out))
+
+(define (badge topic)
+  `(li ([class "mr-1.5 mb-2"])
+		(div ([class ,"flex items-center rounded-full bg-[@{celadon}]/10 px-3 py-1 text-xs font-medium leading-5 text-[@{celadon}]"]) ,topic)))
+
+; (->badges "Haskell, Nix, Racket")
+(define (->badges topics)
+  (let ([top-list (map (curry string-trim #:left? #t) 
+  					   (string-split topics ","))])
+    `(ul ([class "flex flex-wrap justify-center"] [aria-label "Tools/Techniques used"])
+         ,(for/splice ([topic top-list]) (badge topic)))))
+
-- 
cgit v1.2.3