Nulo/menelaus
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Instructions. Ask for filename to save to.

Browse source
This commit is contained in:
Phil Hagelberg 2020-03-23 08:34:17 -07:00
parent 2326bf5359
commit d4c91e2cbe
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gui.rkt
View file

@ -72,7 +72,11 @@
(send canvas set-font (if special? small-font font)) (send canvas set-font (if special? small-font font))
(send canvas draw-text key (send canvas draw-text key
(+ (first xy) (if special? 2 4)) (+ (first xy) (if special? 2 4))
(+ (second xy) (if special? 2 0))))))) (+ (second xy) (if special? 2 0))))))
(send canvas set-font small-font)
(send canvas draw-text "Select a key with the arrows." 10 100)
(send canvas draw-text "Set its keycode with space." 10 108)
(send canvas draw-text "Press enter to write the layout to disk." 10 116))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Output ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Output
@ -153,7 +157,9 @@
[(escape) (set-state-mode! st 'quit)] [(escape) (set-state-mode! st 'quit)]
[(#\space) (set-state-mode! st 'set)] [(#\space) (set-state-mode! st 'set)]
[(#\tab) (printf "~s~n" st) st] [(#\tab) (printf "~s~n" st) st]
[(#\return) (write-layout "out.scm" (state-layers st))] [(#\return) (let ([filename (put-file "Save to:")])
(when filename
(write-layout filename (state-layers st))))]
[(release) #f] [(release) #f]
[else (printf "~s~n" keycode) st])) [else (printf "~s~n" keycode) st]))