        #(-> % string/upper-case (subs 1)))
       symbol))
 
-(defn- parent-method [method]
-  "Appends string 'Parent' to given symbol"
+(defn- parent-method
+  "Appends string 'Parent' to given symbol."
+  [method]
   (symbol (str method "Parent")))
 
 (def listeners [:key-pressed

      :nothing)))

(defn applet-disposed
  "This function is called when PApplet executes 'dispose' method.
  It means we can dispose frame, call on-close function and perform other
  clean ups."
  [applet]
  (with-applet applet
    ((:on-close (meta applet))))

  (destroy-window applet))

(defn applet-state
  "Fetch an element of state from within the `applet`."
  [applet k]
  (get @(:state (meta applet)) k))

