jolby

(in-package :schemata)

;; Marker class for objects that know how to validate themselves.
(defclass validating-object-mixin ()
  ((%schema :initarg :schema
            :initform (error "No schema specified")
            :reader object-schema)))

(defmethod initialize-instance :after ((instance validating-object-mixin) &rest args)
  (declare (ignore args)

jolby

; Based on https://gist.github.com/athos/1033052

(ns cljl.java-interop
  (:require [clojure.string :as str])
  (:import (clojure.asm         Opcodes Type ClassWriter)
           (clojure.asm.commons Method GeneratorAdapter)))

(def ^:dynamic *version* Opcodes/V1_6)

(def modifier->opcode

jolby

- (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(NSDictionary *)launchOptions
{
  NSURL *jsCodeLocation;

  // Loading JavaScript code - uncomment the one you want.

  // OPTION 1
  // Load from development server. Start the server from the repository root:
  //
  // $ npm start

jolby

cljs.closure> (load-externs {})
[#<JSSourceFile externs.zip//es3.js> #<JSSourceFile externs.zip//es5.js> #<JSSourceFile externs.zip//w3c_event.js> #<JSSourceFile externs.zip//w3c_event3.js> #<JSSourceFile externs.zip//gecko_event.js> #<JSSourceFile externs.zip//ie_event.js> #<JSSourceFile externs.zip//webkit_event.js> #<JSSourceFile externs.zip//w3c_dom1.js> #<JSSourceFile externs.zip//w3c_dom2.js> #<JSSourceFile externs.zip//w3c_dom3.js> #<JSSourceFile externs.zip//gecko_dom.js> #<JSSourceFile externs.zip//ie_dom.js> #<JSSourceFile externs.zip//webkit_dom.js> #<JSSourceFile externs.zip//w3c_css.js> #<JSSourceFile externs.zip//gecko_css.js> #<JSSourceFile externs.zip//ie_css.js> #<JSSourceFile externs.zip//webkit_css.js> #<JSSourceFile externs.zip//google.js> #<JSSourceFile externs.zip//deprecated.js> #<JSSourceFile externs.zip//fileapi.js> #<JSSourceFile externs.zip//flash.js> #<JSSourceFile externs.zip//gears_symbols.js> #<JSSourceFile externs.zip//gears_types.js> #<JSSourceFile externs.zip//gecko_xml.js> #

jolby

(ns tiexample.core)

(defn ^{:export dbg} dbg [s]
  (js* "Titanium.API.debug(~{s})"))

;;stolen from another gist I saw
(defn make-js-map
  "makes a javascript map from a clojure one"
  [cljmap]
  (let [out (js-obj)]

jolby

(ns colorstats.core
  (:use
   (com.evocomputing [colors :only [create-color awt-color]])
   (incanter [charts :only [line-chart set-stroke set-stroke-color bar-chart]]
             [core :only [view]]
             [datasets :only [get-dataset]])
   (clojure.contrib [seq-utils :only [indexed]]))
  (:require
   [com.evocomputing.colors.palettes.core :as core-palettes]
   [com.evocomputing.colors.palettes.color-brewer :as color-brewer]))