southfox/autumn-lisp-game-jam-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: render ascii art

Browse source
This commit is contained in:
SouthFox 2024-10-29 23:15:07 +08:00
parent bf128418cc
commit 688f694091
1 changed files with 20 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
game.scm
View file

@ -42,6 +42,10 @@
(set! *template* template-task)
(render))))
"Task")
(button (@ (click ,(lambda (event)
(set! *template* template-ascii-art)
(render))))
"Ascii art")
(div (@ (id "application")) ,(template))))
(define (render)
@ -146,6 +150,22 @@
(render))))))
"Add task")))
;; render ascii art
(define (template-ascii-art)
(define ink-script '(
"(\\ "
"\\'\\ "
" \\'\\ __________ "
" / '| ()_________) "
" \\ '/ \\ ~~~~~~~~ \\ "
" \\ \\ ~~~~~~ \\ "
" ==). \\__________\\ "
" (__) ()__________) "
))
`(pre ,(string-join ink-script "\n")))
;; Main
(set! *template* template-task)