Misophistful

(ns apples.core
  (:require [play-clj.core :refer :all]
            [play-clj.g2d :refer :all]
            [play-clj.math :refer :all]))

(declare apples main-screen)
(def speed 14)

(defn- get-direction []
  (cond

hiredman

(defn handle-file-select [evt]
  (.stopPropagation evt)
  (.preventDefault evt)
  (let [files (.-files (.-dataTransfer evt))]
    (dotimes [i (.-length files)]
      (let [rdr (js/FileReader.)
            the-file (aget files i)]
        (set! (.-onload rdr)
              (fn [e]
                (let [file-content (.-result (.-target e))

daveray

; A REPL-based, annotated Seesaw tutorial
; Please visit https://github.com/daveray/seesaw for more info
;
; This is a very basic intro to Seesaw, a Clojure UI toolkit. It covers
; Seesaw's basic features and philosophy, but only scratches the surface
; of what's available. It only assumes knowledge of Clojure. No Swing or
; Java experience is needed.
;
; This material was first presented in a talk at @CraftsmanGuild in
; Ann Arbor, MI.

vwood

/*
    Example of a C program embedding ECL with callbacks to C functions.
    Compiled via: gcc ecldemo.c -lecl
 */
#include <stdio.h>
#include <stdlib.h>
#include "ecl/ecl.h"

#define DEFUN(name,fun,args) \
    cl_def_c_function(c_string_to_object(name), \