Jared314

(ns async4
  (:require [clojure.core.async :as async]
            [clojure.core.async.lab :as lab]))

(defn inmate [name c]
  (async/go 
   (async/<! c)
   (println name " released")))

(def alice (partial inmate "Alice"))

Jared314

(ns async3
  (:require [clojure.core.async :as async]))
 
(defn alice [c message]
  (async/>!! c message))

(defn person [name c]
  (async/go 
   (let [message (async/<! c)]
     (println name " received: " message)

Jared314

(ns async2
  (:require [clojure.core.async :as async]
            [clojure.core.async.lab :as lab]))

(defn make-fb-group [& members]
  (apply lab/broadcast members))

(defn alice [c]
  (async/>!! c "Dave Davenson's House @ 10pm"))

Jared314

(ns async1
  (:require [clojure.core.async :as async]))

(defn alice [c]
  (async/>!! c "Carol Carolson's House @ 10pm"))

(defn bob [c]
  (async/go (println "Bob received: " (async/<! c))))

(let [phonenumber-555-555-9292 (async/chan)]

Jared314

(ns gittree.TreeIterator
  (:import [org.eclipse.jgit.lib Repository FileMode]
           [org.eclipse.jgit.treewalk WorkingTreeIterator WorkingTreeIterator$Entry WorkingTreeOptions]
           [java.io ByteArrayInputStream])
  (:gen-class :extends org.eclipse.jgit.treewalk.WorkingTreeIterator
              :init init2
              :post-init postinit
              :state state
              :constructors {[org.eclipse.jgit.lib.Repository Object] [org.eclipse.jgit.treewalk.WorkingTreeOptions]
                             [org.eclipse.jgit.lib.Repository Object org.eclipse.jgit.treewalk.WorkingTreeIterator] [org.eclipse.jgit.treewalk.WorkingTreeIterator]}))

Jared314

(def closing {\) \(
              \} \{
              \] \[})
(def opening [\( \{ \[])
(defn zero-or-more [x] (if (>= x 0) x 0))
(defn indent-exception? [[a b]] (not (and (= a \') (= b \())))

; warning: Very basic clojure language parsing. It does not handle strings.
(defn reverse-parse 
  ([data] (reverse-parse data []))

Jared314

;[org.jodd/jodd-lagarto "3.4.2"]
;(:import [jodd.csselly CSSelly CssSelector Combinator Selector$Type])

(defn format-attr-selector [x]
      (case (.getName x)
            "id" (str "#" (.getValue x))
            "class" (str "." (.getValue x))
            ""))
  
(defn format-selector [x]

Jared314

//Run this while at the main menu
ig.game.registerTarget=function(letter,ent){if(this.targets[letter]===undefined)this.targets[letter]=[];this.targets[letter].push(ent);};
ig.game.unregisterTarget=function(letter,ent){(this.targets[letter]||[]).erase(ent);};
window.removeEventListener('keydown',ig.game.keydown.bind(ig.game));
ig.game.keydown=function (event){if(event.target.type=='text'||event.ctrlKey||event.altKey||this.mode!=ZType.MODE.GAME||this.menu){return true;}var c=event.which;if(c==189)c=45;if(event.shiftKey&&c==191)c=63;if(event.shiftKey&&c==56)c=42;if(event.shiftKey&&c==49)c=33;if(c==187)c=61;if(!((c>64&&c<91)||(c>96&&c<123)||(c==45||c==33||c==63||c==42||c==61))||c==16){return true;} event.stopPropagation();event.preventDefault();var letter=String.fromCharCode(c).toLowerCase();if(!this.currentTarget){var potentialTargets=this.targets[letter];var nearestDistance=-1;var nearestTarget=null;for(var i=0;i<potentialTargets.length;i++){var distance=this.player.distanceTo(potentialTargets[i]);if(distance<n

Jared314

//Run this while at the main menu
WORDS={2:[],3:[],4:[],5:[],6:[],7:[],8:[],9:[],10:[],11:[],12:[]};
var w = 'at el id on add cid get has off set url make save sort sync clear clone fetch model parse pluck reset route start unset create escape extend length models remove render router routes setdom tojson changed destroy emulate history isvalid library trigger urlroot defaults delegate getbycid navigate previous validate attributes collection comparator haschanged initialize noconflict setelement undelegate constructor idattribute'
.toLowerCase().split(' ');
for (var i = w.length - 1; i >= 0; i--) { if(w[i].length < 13 && w[i].length > 1) WORDS[w[i].length].push(w[i]); }	

Jared314

require 'parslet'

class Parslet::Transform
  def transform_elt(elt, context) # :nodoc: 
    rules.each do |pattern, block|
      if bindings=pattern.match(elt, context)
        # Produces transformed value
        return call_on_match({:node => elt}.merge(bindings), block)
      end
    end