|
19 | 19 |
|
20 | 20 | ; (->badges "Haskell, Nix, Racket") |
21 | 21 | (define (->badges topics) |
22 | | - (let ([top-list (map (curry string-trim #:left? #t) |
| 22 | + (let ([top-list (map (curry string-trim #:left? #t) |
23 | 23 | (string-split topics ","))]) |
24 | 24 | `(div ([class "flex flex-wrap justify-center"] [aria-label "Tools/Techniques used"]) |
25 | 25 | ,(for/splice ([topic top-list]) (badge topic))))) |
|
59 | 59 | ,(if (string=? img "") |
60 | 60 | "" |
61 | 61 | `(img ([class "w-full"] [src ,img]))) |
62 | | - (div ([class "px-6 py-4"]) |
| 62 | + (div ([class "px-6 py-4 w-full"]) |
63 | 63 | ,(heading title) |
64 | 64 | ,@body))) |
65 | 65 |
|
66 | 66 | (define (meetups . body) |
67 | 67 | `(div ([id "meetups"] [class "scroll-container mb-4 -mx-6 md:-mx-12 lg:-mx-24 md:gap-4 lg:gap-8 relative"]) |
68 | 68 | (div ([class "flex justify-between"]) |
69 | 69 | (button ([id "meetups-scroll-left"] [class " |
70 | | - sticky -mr-6 sm:-mr-2 md:mr-0 left-0 top-0 transform |
71 | | - text-zinc-500 bg-gradient-to-r from-white md:bg-white h-auto |
| 70 | + sticky -mr-6 sm:-mr-2 md:mr-0 left-0 top-0 transform |
| 71 | + text-zinc-500 bg-gradient-to-r from-white md:bg-white h-auto |
72 | 72 | duration-200 ease-out transition |
73 | 73 | z-10"]) |
74 | 74 | (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1.5"] [stroke "currentColor"] [class "size-10"]) |
|
79 | 79 | ,@body |
80 | 80 | ) |
81 | 81 | (button ([id "meetups-scroll-right"] [class " |
82 | | - sticky -ml-6 sm:-ml-2 md:ml-0 right-0 top-0 transform |
83 | | - text-zinc-500 bg-gradient-to-l from-white sm:bg-white h-auto |
| 82 | + sticky -ml-6 sm:-ml-2 md:ml-0 right-0 top-0 transform |
| 83 | + text-zinc-500 bg-gradient-to-l from-white sm:bg-white h-auto |
84 | 84 | duration-200 ease-out transition |
85 | | - z-10"]) |
| 85 | + z-10"]) |
86 | 86 | (svg ([xmlns "http://www.w3.org/2000/svg"] [fill "none"] [viewBox "0 0 24 24"] [stroke-width "1.5"] [stroke "currentColor"] [class "size-10"]) |
87 | 87 | (path ([stroke-linecap "round"] [stroke-linejoin "round"] [d "m8.25 4.5 7.5 7.5-7.5 7.5"])) |
88 | 88 | ) |
|
0 commit comments