Just some GUI stuff

target.rkt

#lang aurakit

(require aurakit/layout)
(require aurakit/material)

(define main-view-state%
  (class ak-state%
    (super-new)

    (init-field [counter 0])

    (define/public (increment [value 1])
      (update (lambda ()
                (set! counter (+ counter value)))))

    (define/public (decrement [value 1])
      (update (lambda ()
                (set! counter (- counter value))))))

(define (main-view . children)
  (define state (new main-view-state%))

  (ak-view
   #:name "Hello, World!"
   #:state state
   #:build (lambda (ctx)
             (mt-scaffold
              #:appbar (mt-appbar
                        #:title "Hello, World!")
              (lt-center
               (lt-vbox
                (mt-text "~a" (get-field counter state)))
               (lt-hbox
                (mt-button
                 #:label "Increment"
                 #:on-click (lambda (ctx)
                              (send state increment)))
                (mt-button
                 #:label "Decrement"
                 #:on-click (lambda (ctx)
                              (send state decrement)))))))))