| (ns version-dispatch.dispatch-test | |
| (:use | |
| clojure.test | |
| version-dispatch.dispatch)) | |
| (def os-hierarchy | |
| (-> (make-hierarchy) | |
| (derive :linux :os) | |
| ;; base distibutions |
Zero to running in five minutes with lein.
The first thing we need is leiningen,
a build tool for clojure. You can downlaod this with your web browser, curl or
wget or your favourite download tool. Here we show using curl.
bash$ curl -O http://github.com/technomancy/leiningen/raw/stable/bin/lein
| (ns pallet.common.slingshot-test-util | |
| (:use clojure.test)) | |
| (defn slingshot-exception-class | |
| "Return the best guess at a slingshot exception class." | |
| [] | |
| (try | |
| (Class/forName "slingshot.Stone") | |
| (catch Exception _ | |
| (let [ei (Class/forName "slingshot.ExceptionInfo")] |
| (when (and (featurep 'paredit) paredit-mode (>= paredit-version 21)) | |
| (define-key clojure-mode-map "{" 'paredit-open-curly) | |
| (define-key clojure-mode-map "}" 'paredit-close-curly)) |
| ;;;; slime setup | |
| ;;; Setup the hooks for loading customisations | |
| ;; one-off slime configuration | |
| (add-hook 'slime-load-hook 'my-slime-setup) | |
| ;; per slime connection | |
| (add-hook 'slime-connected-hook 'my-slime-connection-setup) | |
| (add-hook 'slime-clj-connected-hook 'my-slime-clj-connection-setup) | |
| ;; per buffer |
| (action/def-clj-action post-to-port | |
| [session port] | |
| ;; forward port remote port `port` to local port `local-port` | |
| (execute/with-ssh-tunnel session {local-port port} | |
| (let [endpoint (format "http://localhost:%s%s" local-port url-path)] | |
| (comment do something here) | |
| session))) |
| (def s1 (pallet.core/server-spec :phases {:fred (fn [x] (+ x 1))})) | |
| #'user/s1 | |
| (def s2 (pallet.core/server-spec :extends [s1] :phases {:fred (fn [x] (+ x 2))})) | |
| #'user/s2 | |
| ((-> s2 :phases :fred) 0) | |
| 3 | |
| (def g (pallet.core/group-spec "g" :extends [s2] :phases {:fred (fn [x] (+ x 4))})) | |
| #'user/g | |
| ((-> g :phases :fred) 0) | |
| 7 |
| #! /usr/bin/env bash | |
| # Script to build the pallet-1.3 branch | |
| git checkout pallet-1.3 | |
| git reset --hard clojure-1.3.0 | |
| git merge 1.3-001/update-pom | |
| git merge 1.3-860/add-disable-locals-clearing | |
| git merge 1.3-103/incorrect-error-with-if-let | |
| git merge 1.3-196/fix-docstring-for-file-refs |
| (defproject lein-ritz "0.1.0-SNAPSHOT" | |
| :description "Lein plugin for launching a ritz server" | |
| :dev-dependencies [[org.clojure/clojure "1.3.0-lc"]]) |
| {:1.2 {:dependencies [[org.clojure/clojure "1.2.1"]]} | |
| :1.4 {:dependencies [[org.clojure/clojure "1.4.0-beta1"]]}} |