orb

upstream myapp {
    server 127.0.0.1:8000;
}

server {
  listen 80;
   server_name localhost;
   location / {
     proxy_pass http://myapp;
     proxy_read_timeout 180;

orb

(define-key input-decode-map "\e[1;10A" [M-S-up])
(define-key input-decode-map "\e[1;10B" [M-S-down])
(define-key input-decode-map "\e[1;10C" [M-S-right])
(define-key input-decode-map "\e[1;10D" [M-S-left])

;(define-key input-decode-map "\e[1;9A" [M-up])
;(define-key input-decode-map "\e[1;9B" [M-down])
;(define-key input-decode-map "\e[1;9C" [M-right])
;(define-key input-decode-map "\e[1;9D" [M-left])

orb

public class Marker {
	public String color;
	public String tip;

	public Marker(String color, String tip) {
		this.color = color;
		this.tip = tip;
	}
	
	public void write() {

orb

<Resource name="jdbc/QuoteDB" auth="Container" type="javax.sql.DataSource"
	maxActive="100" maxIdle="30" maxWait="10000" username="SA" password=""
	driverClassName="org.hsqldb.jdbc.JDBCDriver" url="jdbc:hsqldb:hsql://localhost:9001/" />

orb

(defn find-timer [timer-name]
  (timers/timer ["APPNAME" "timer" (name timer-name)]))

(defmacro with-timer [timer-name & body]
  `(let [timer# (find-timer ~timer-name)]
     (timers/time! timer#
                  (do ~@body))))

orb

(def matches
  {:a {:a "foo" :b "bar"}
   :b {:a "blue" :b {:a "fred" :b "bob"}}})

(defn winner [node]
  (if (map? node)
    (:winner node)
    node))

(defn select-winner [node aorb]

orb

Infortunately I am unable at accept this pull request because it fails one of my unit tests. 

test.job> (fact "job is in the correct city"
            (let [job {:company "Amazon" :location :seattle}]
              (:location job) => :austin))


FAIL "job is in the correct city" at (form-init8310622436901647370.clj:3)
    Expected: :austin
      Actual: :seattle

orb

(ns logic.once
  (:refer-clojure :exclude [==])
  (:use [clojure.core.logic])
  (:require [clojure.core.logic.fd :as fd]))


(defne occurs-noneo [x xs]
  ([x []])
  ([x [y . ys]]
     (!= y x)

orb

(ns logic.sudoku
  (:refer-clojure :exclude [==])
  (:use [clojure.core.logic])
  (:require [clojure.core.logic.fd :as fd]))


(defn init-board [vars puzzle]
  (matche [vars puzzle]
          ([[] []]
             succeed)

orb

(defproject demo "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.5.1"]])