tu-lambda.github.io/pollen.rkt at main · tu-lambda/tu-lambda.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
#lang racket/base

(require pollen/core
         racket/function
         racket/string
         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)
  `(div ([class "mr-1.5 mb-2"])
		(div ([class ,"flex items-center rounded-full bg-[@{celadon}]/10 px-3 lg:px-4 py-1 lg:py-2 text-xs lg:text-sm 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 ","))])
    `(div ([class "flex flex-wrap justify-center"] [aria-label "Tools/Techniques used"])
         ,(for/splice ([topic top-list]) (badge topic)))))

(define (link url . body)
  `(a ([class ,"text-[@{jordy}] hover:underline decoration-2 underline-offset-2 decoration-[@{jordy}] hover:text-[@{jordy}]"] [rel "noreferrer noopener"] [target "_blank"] [href ,url])
    ,@body))

(define (par . body)
  `(p ([class "my-4 sm:text-lg leading-relaxed"]) ,@body))

(define (id-ify text)
  (string-replace (string-downcase text) " " "-"))

(define (heading text)
  `(a ((href ,(id-ify (string-append "#" text)))
       (class "cursor-pointer"))
      (h1 ([id ,(id-ify text)] [class ,"text-3xl font-fira-code text-[@{jordy}] tracking-tighter leading-snug"])
                                 ,text)))

(define (orga . body)
  `(div ([class "flex items-center gap-2 -mx-2 my-4"])
      (span ([class "border-solid border-b border-zinc-300 flex-1"]))
      (p ([class "italic text-zinc-500"]) ,@body)
      (span ([class "border-solid border-b border-zinc-300 flex-1"]))))

(define (abstract . body)
  `(div ([class "abstract-wrapper relative flex flex-col overflow-hidden italic text-base md:mx-8 mt-2 mb-4"])
        (div ([class "abstract-content line-clamp-[8] transition-all duration-300 ease-in-out mb-2"])
             ,@body)
        (div ([class "fade-overlay absolute bottom-6 left-0 w-full h-12 pointer-events-none bg-gradient-to-t from-white"]))
        (button ([class ,"toggle-button inset-x-0 bottom-0 inline-flex justify-center items-center gap-2 self-center bg-white text-[@{jordy}]/80 hover:text-[@{jordy}] transition-all duration-200 hidden"])
              (span ([class "button-text"]) "Show more")
        )))


(define (meetup #:title title #:img [img ""] . body)
  `(div ([class "overflow-hidden my-4 snap-center flex w-[90%] shrink-0 mx-8 sm:mx-16 shadow-lg rounded-lg"])
      ,(if (string=? img "")
           ""
           `(img ([class "w-full"] [src ,img])))
      (div ([class "px-6 py-4 w-full"])
        ,(heading title)
        ,@body)))

(define (meetups . body)
  `(div ([id "meetups"] [class "scroll-container mb-4 -mx-6 md:-mx-12 lg:-mx-24 md:gap-4 lg:gap-8 relative"])
    (div ([class "flex justify-between"])
      (button ([id "meetups-scroll-left"] [class "
        sticky -mr-6 sm:-mr-2 md:mr-0 left-0 top-0 transform
        text-zinc-500 bg-gradient-to-r from-white md:bg-white h-auto
        duration-200 ease-out transition
        z-10"])
        (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1.5"] [stroke "currentColor"] [class "size-10"])
            (path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "M15.75 19.5 8.25 12l7.5-7.5"]))
        )
      )
      (div ([id "meetups-container"] [class "relative flex flex-row-reverse items-center flex-grow snap-x overflow-x-auto"])
        ,@body
      )
      (button ([id "meetups-scroll-right"] [class "
        sticky -ml-6 sm:-ml-2 md:ml-0 right-0 top-0 transform
        text-zinc-500 bg-gradient-to-l from-white sm:bg-white h-auto
        duration-200 ease-out transition
        z-10"])
        (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1.5"] [stroke "currentColor"] [class "size-10"])
            (path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "m8.25 4.5 7.5 7.5-7.5 7.5"]))
        )
      )
    )
  )
)