Skip to content

Instantly share code, notes, and snippets.

@sogaiu
Created March 23, 2025 06:13
Show Gist options
  • Save sogaiu/f7252088c2f8b430c15bf5466453f4a6 to your computer and use it in GitHub Desktop.
Save sogaiu/f7252088c2f8b430c15bf5466453f4a6 to your computer and use it in GitHub Desktop.
imagemap draft
diff --git a/www/index.html.pm b/www/index.html.pm
index 3782522..e0313d8 100644
--- a/www/index.html.pm
+++ b/www/index.html.pm
@@ -1,6 +1,9 @@
#lang pollen
-◊(require racket-lang-org/www/util racket-lang-org/www/color racket/format)
+◊(require racket-lang-org/www/util racket-lang-org/www/color racket/format pollen/tag)
+
+◊; for the image map
+◊(define my-map (default-tag-function 'map))
◊provide[top]
@@ -246,7 +249,18 @@ ancestor(A, B)?}}}
◊tab[#:id "easy-dsls" #:title "Easy DSLs"]{
◊div[#:class "container-fluid vertical-in-smartphones-horizontal-otherwise"]{
◊div[#:class "block-with-1em-margin"]{
- ◊img/size["frosthaven.png" #:alt "Frosthaven Manager application tech stack diagram" #:size (cons 350 350) #:class "lop-image"]$
+◊; ◊img/size["frosthaven.png" #:alt "Frosthaven Manager application tech stack diagram" #:size (cons 350 350) #:class "lop-image"]{}
+ ◊img[#:src "img/frosthaven.png" #:alt "Frosthaven Manager application tech stack diagram" #:class "lop-image" #:usemap "#frostha$
+
+ ◊my-map[#:name "frosthaven-map"]{
+ ◊area[#:alt "Bestiary" #:title "Bestiary" #:href "https://benknoble.github.io/frosthaven-manager/Programming_a_Scenario.html#$
+ ◊area[#:alt "Foes" #:title "Foes" #:href "https://benknoble.github.io/frosthaven-manager/Programming_a_Scenario.html#%28part.$
+ ◊area[#:alt "Area of Effect" #:title "Area of Effect" #:href "https://benknoble.github.io/frosthaven-manager/Programming_a_Sc$
+ ◊area[#:alt "Syntax parse" #:title "Syntax parse" #:href "https://docs.racket-lang.org/syntax/stxparse.html" #:coords "7,287,$
+ ◊area[#:alt "Syntax spec" #:title "Syntax spec" #:href "https://docs.racket-lang.org/syntax-spec-v2/index.html" #:coords "156$
+ ◊area[#:alt "Qi" #:title "Qi" #:href "https://docs.racket-lang.org/qi/index.html" #:coords "116,285,327,348" #:shape "rect"]
+ ◊area[#:alt "Web server" #:title "Web server" #:href "https://docs.racket-lang.org/web-server/index.html" #:coords "336,285,4$
+ ◊area[#:alt "GUI Easy" #:title "GUI Easy" #:href "https://docs.racket-lang.org/gui-easy/index.html" #:coords "437,285,527,347$
◊div{
◊p[#:class "block-with-1em-margin"]{
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment