frontend.clj

(def state
  ref { :view-ns 'media-mogul.frontend.main-menu })
 
(defn- callback 
  [ name & args ]
  ; Rummages around in the specified namespace, extracts any public methods
  ; and then finds the one with the same name as the callback being requested.
  ;
  ; Then evals it for good measure.
  (let [ callback-fn @(name (ns-publics (the-ns (:view-ns @state)))) ]
    (eval (apply callback-fn args))))
 
(def application-proxy
  (proxy [ BasicGame ] [ "Media Mogul" ]
    (init [ container ])
    (render [ container graphics ]
      (callback 'render container graphics))
    (update [ container delta ]
      (callback 'update container delta))))

main-menu.clj

(defn update [ container delta ]
  (.setTitle container "Hello world"))
 
(defn render [ container graphics ]
  (.drawString graphics "Hello, world" 30 30))