(use-modules (tsukundere)
	     (sdl2)
	     (sdl2 ttf)
	     (ice-9 match)
	     (tsukundere button)
	     (tsukundere game)
	     (tsukundere scene)
	     (tsukundere geometry)
	     (tsukundere script utils))

(define (load)
  (let* ((scene
          (make-scene '(background
                        text
                        menu)))
         (paper (load-image "paper.png"))
         (texture (load-image "unchecked_box.png"))
         (selected (load-image "checked_box.png"))
         (radio (load-image "unselected_radio_button.png"))
         (radio-selected (load-image "selected_radio_button.png"))
         (simple (load-image "round_button_normal.png"))
         (simple-hover (load-image "round_button_hover.png"))
         (simple-pressed (load-image "round_button_mouse_down.png"))
	 (font (load-font "JuliaMono.ttf" 18))
	 (colors `((none . ,(make-color 0 255 0 255))
		   (hover . ,(make-color 255 0 0 255))
		   (pressed . ,(make-color 0 0 255 255))))
	 (textures `((none . ,texture)
		     (pressed . ,selected)))
         (textures-radio
          `((none . ,radio)
	    (pressed . ,radio-selected)))
         (textures-button
          `((none . ,simple)
            (hover . ,simple-hover)
	    (pressed . ,simple-pressed)))
         (checkbox-button
          (make-button (s32vector 0 0) "" 0 font textures
                       #:text-colors colors
                       #:callback checkbox-button-callback))
         (radio-button
          (make-button (s32vector 0 0) "" 0 font textures-radio
                       #:text-colors colors
                       #:callback radio-button-callback))
         (simple-button
          (make-button (s32vector 0 0) "" 0 font textures-button
                       #:text-colors colors
                       #:callback simple-button-callback)))
    (init-script!
     (lambda ()
       (background paper)
       (say "nixo" "This is not an exam!")
       (pause)
       (say "nixo" "Chose one and press enter!")
       (say "nixo"
            (format #f "You choose: ~a\n"
                    (menu
                     '("Select me!" "Or me!" "No, select me!")
                     #:template radio-button)))
       (pause)
       (say "nixo" "Chose as many as you want!")
       (say "nixo"
            (format #f "You selected: ~a\n"
                    (menu '(("A") ("B") ("C"))
                          #:template checkbox-button)))
       (pause)
       (say "nixo" "Click it!")
       (say "nixo"
            (format #f "You selected the element number: ~a\n"
                    (menu
                     '("Yes" "Maybe" "No way"))))
       (say "nixo"
            (format #f "You selected the element: ~a\n"
                    (menu
                     '(("Yes") ("Maybe") ("No way")))))
       (say "nixo"
            (format #f "You selected the element: ~a\n"
                    (menu
                     '((yep "Yes") (maybe "Maybe") (nope "No way")))))
       (pause)
       ;; (format #f "You selected the element with value: ~a\n"
       ;;         (menu
       ;;          '(("Yes" I am happy now)
       ;;            ("Maybe" you have more time to decide)
       ;;            ("No way" that makes me sad))))
       )
     scene)
    (init-menu! 100 100 (s32vector 0 50) font textures
                (s32vector 50 18)
                #:colors colors
                #:template simple-button)
    (init-text! 10 300 280 font font)))

(run-game
 #:game-name ".tsukundere-example-buttons"
 #:window-width 400
 #:window-height 400
 #:init! load)

(use-modules (ice-9 match))
(let ((option "OK"))
  (match option
    (selected selected)
    ((value selected) selected)
    ((selected . value) selected)))