(defproject trinity "0.1.0-SNAPSHOT"
  :description "A sweet little Clojure API for Atomix"
  :url "http://github.com/atomix/trinity"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [io.atomix/atomix "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-atomic "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-collections "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-coordination "0.1.0-SNAPSHOT"]
                 [io.atomix/catalyst-netty "1.0.0-SNAPSHOT"]]
  :repositories [["sonatype-nexus-snapshots" {:url "https://oss.sonatype.org/content/repositories/snapshots"}]]
  :plugins [[codox "0.8.13"]]
  :codox {:output-dir "target/docs/docs"
          :defaults {:doc/format :markdown}
          :src-dir-uri "http://github.com/atomix/trinity/blob/master/"
          :src-linenum-anchor-prefix "L"})

(defproject trinity "0.1.0-SNAPSHOT"
  :description "A sweet little Clojure API for Atomix"
  :url "http://github.com/atomix/trinity"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [io.atomix/atomix "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-atomic "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-collections "0.1.0-SNAPSHOT"]
                 [io.atomix/atomix-coordination "0.1.0-SNAPSHOT"]
                 [io.atomix.catalyst/catalyst-netty "1.0.0-SNAPSHOT"]]
  :repositories [["sonatype-nexus-snapshots" {:url "https://oss.sonatype.org/content/repositories/snapshots"}]]
  :plugins [[codox "0.8.13"]]
  :codox {:output-dir "target/docs/docs"
          :defaults {:doc/format :markdown}
          :src-dir-uri "http://github.com/atomix/trinity/blob/master/"
          :src-linenum-anchor-prefix "L"})

Change Catalyst dependency to use new groupId.


(defproject clucy "0.4.0"
  :description "A Clojure interface to the Lucene search engine"
  :url "http://github/weavejester/clucy"
  :dependencies [[org.clojure/clojure "1.7.0"]
                 [org.apache.lucene/lucene-core "5.3.0"]
                 [org.apache.lucene/lucene-queryparser "5.3.0"]
                 [org.apache.lucene/lucene-analyzers-common "5.3.0"]
                 [org.apache.lucene/lucene-highlighter "5.3.0"]]
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :profiles {:1.4  {:dependencies [[org.clojure/clojure "1.4.0"]]}
             :1.5  {:dependencies [[org.clojure/clojure "1.5.0"]]}
             :1.6  {:dependencies [[org.clojure/clojure "1.6.0-master-SNAPSHOT"]]}}
  :codox {:src-dir-uri "http://github/weavejester/clucy/blob/master"
          :src-linenum-anchor-prefix "L"})

(defproject org.clojars.kostafey/clucy "0.5.3"
  :description "A Clojure interface to the Lucene search engine"
  :url "http://github/kostafey/clucy"
  :dependencies [[org.clojure/clojure "1.7.0"]
                 [org.apache.lucene/lucene-core "5.3.0"]
                 [org.apache.lucene/lucene-queryparser "5.3.0"]
                 [org.apache.lucene/lucene-analyzers-common "5.3.0"]
                 [org.apache.lucene/lucene-highlighter "5.3.0"]]
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :profiles {:1.6  {:dependencies [[org.clojure/clojure "1.6.0"]]}
             :1.7  {:dependencies [[org.clojure/clojure "1.7.0"]]}})

Update fork version and url.

Update fork version and url.


(defproject stencil "0.1.0-SNAPSHOT"
  :description "Mustache in Clojure"
  :dependencies [[clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]]
  :dev-dependencies [[swank-clj "0.1.6-SNAPSHOT"]
                     [org.clojure/clojure-contrib "1.2.0"]]
  :tasks [cake.tasks.swank-clj stencil.cake.tasks])

(defproject stencil "0.1.0"
  :description "Mustache in Clojure"
  :dependencies [[clojure "1.2.0"]
                 [org.clojure/clojure-contrib "1.2.0"]]
  :dev-dependencies [[swank-clj "0.1.6-SNAPSHOT"]
                     [org.clojure/clojure-contrib "1.2.0"]]
  :tasks [cake.tasks.swank-clj stencil.cake.tasks])

Change version number for 0.1.0 release.


;; The Climate Corporation licenses this file to you under under the Apache
;; License, Version 2.0 (the "License"); you may not use this file except in
;; compliance with the License.  You may obtain a copy of the License at
;;
;;   http://www.apache.org/licenses/LICENSE-2.0
;;
;; See the NOTICE file distributed with this work for additional information
;; regarding copyright ownership.  Unless required by applicable law or agreed
;; to in writing, software distributed under the License is distributed on an
;; "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
;; or implied.  See the License for the specific language governing permissions
;; and limitations under the License.

(defproject com.climate/claypoole
  "1.1.0"
  :description "Claypoole: Threadpool tools for Clojure."
  :url "http://github.com/TheClimateCorporation/claypoole/"
  :license {:name "Apache License Version 2.0"
            :url "http://www.apache.org/licenses/LICENSE-2.0"
            :distribution :repo}
  :min-lein-version "2.0.0"
  :source-paths ["src/clj"]
  :java-source-paths ["src/java"]
  :pedantic? :warn
  :profiles {:dev {:dependencies [[org.clojure/clojure "1.7.0"]]}}
  :plugins [[jonase/eastwood "0.2.1"]
            [lein-ancient "0.6.7"]])

;; The Climate Corporation licenses this file to you under under the Apache
;; License, Version 2.0 (the "License"); you may not use this file except in
;; compliance with the License.  You may obtain a copy of the License at
;;
;;   http://www.apache.org/licenses/LICENSE-2.0
;;
;; See the NOTICE file distributed with this work for additional information
;; regarding copyright ownership.  Unless required by applicable law or agreed
;; to in writing, software distributed under the License is distributed on an
;; "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
;; or implied.  See the License for the specific language governing permissions
;; and limitations under the License.

(defproject com.climate/claypoole
  "1.1.0-SNAPSHOT"
  :description "Claypoole: Threadpool tools for Clojure."
  :url "http://github.com/TheClimateCorporation/claypoole/"
  :license {:name "Apache License Version 2.0"
            :url "http://www.apache.org/licenses/LICENSE-2.0"
            :distribution :repo}
  :min-lein-version "2.0.0"
  :source-paths ["src/clj"]
  :java-source-paths ["src/java"]
  :pedantic? :warn
  :profiles {:dev {:dependencies [[org.clojure/clojure "1.7.0"]]}}
  :plugins [[jonase/eastwood "0.2.1"]
            [lein-ancient "0.6.7"]])

Change version back to snapshot

Change version back to snapshot


(defproject onyx-app/lein-template "0.9.0.9"
  :description "Onyx Leiningen application template"
  :url "https://github.com/onyx-platform/onyx-template"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :plugins [[lein-set-version "0.4.1"]]
  :profiles {:dev {:plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}}
  :eval-in-leiningen true)

(defproject onyx-app/lein-template "0.9.0.10-SNAPSHOT"
  :description "Onyx Leiningen application template"
  :url "https://github.com/onyx-platform/onyx-template"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :plugins [[lein-set-version "0.4.1"]]
  :profiles {:dev {:plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}}
  :eval-in-leiningen true)

Prepare for next release cycle.

Prepare for next release cycle.


(defproject sparkle "0.2.0-SNAPSHOT"
  :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.7.0"]
                 [org.clojure/core.async "0.2.374"]
                 [org.clojure/algo.generic "0.1.2"]
                 [com.stuartsierra/component "0.3.1"]
                 [com.evocomputing/colors "1.0.3"]]
  :target-path "target/%s"
  :profiles {:uberjar {:aot :all}
             :dev {:source-paths ["dev"]
                   :dependencies [[org.clojure/tools.namespace "0.2.3"]
                                  [org.clojure/java.classpath "0.2.0"]]}})

(defproject sparkle "0.2.0-SNAPSHOT"
  :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.9.0-alpha5"]
                 [org.clojure/core.async "0.2.374"]
                 [org.clojure/algo.generic "0.1.2"]
                 [com.stuartsierra/component "0.3.1"]
                 [com.evocomputing/colors "1.0.3"]]
  :target-path "target/%s"
  :profiles {:uberjar {:aot :all}
             :dev {:source-paths ["dev"]
                   :dependencies [[org.clojure/tools.namespace "0.2.3"]
                                  [org.clojure/java.classpath "0.2.0"]]}})

Bump Clojure to 1.9.0-alpha 5 for spec

Bump Clojure to 1.9.0-alpha 5 for spec


(defproject statuses "1.0.0-SNAPSHOT"
  :description "Statuses app for innoQ"
  :url "https://github.com/innoq/statuses"
  :license {:name "Apache License, Version 2.0"
            :url "http://www.apache.org/licenses/LICENSE-2.0"
            :distribution :repo
            :comments "A business-friendly OSS license"}
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [ring "1.3.2"]
                 [compojure "1.3.2"]
                 [clj-time "0.9.0"]
                 [org.clojure/data.json "0.2.5"]]
  :pedantic? :abort
  :plugins [[jonase/eastwood "0.2.0"]]
  :profiles {:dev {:dependencies [[ring-mock "0.1.5"]]}
             :uberjar {:aot [statuses.server]}}
  :main statuses.server
  :aliases {"lint" "eastwood"}
  :eastwood {:exclude-linters [:constant-test]})

(defproject statuses "1.0.0-SNAPSHOT"
  :description "Statuses app for innoQ"
  :url "https://github.com/innoq/statuses"
  :license {:name "Apache License, Version 2.0"
            :url "http://www.apache.org/licenses/LICENSE-2.0"
            :distribution :repo
            :comments "A business-friendly OSS license"}
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [ring "1.3.2"]
                 [compojure "1.3.2"]
                 [clj-time "0.9.0"]
                 [org.clojure/data.json "0.2.6"]]
  :pedantic? :abort
  :plugins [[jonase/eastwood "0.2.0"]]
  :profiles {:dev {:dependencies [[ring-mock "0.1.5"]]}
             :uberjar {:aot [statuses.server]}}
  :main statuses.server
  :aliases {"lint" "eastwood"}
  :eastwood {:exclude-linters [:constant-test]})

Update data.json from 0.2.5 to 0.2.6.

Update data.json from 0.2.5 to 0.2.6.


(defproject fixturex/fixturex "0.3.0"
  :description "A library of helpful test fixture macros and functions."
  :url "http://www.ryanmcg.com/fixturex/"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]]
  :repack [{:type :clojure
            :levels 1
            :path "src"}]
  :profiles {:dev {:dependencies [[incise "0.5.0"]
                                  [com.ryanmcg/incise-codox "0.1.0"]
                                  [com.ryanmcg/incise-vm-layout "0.5.0"]]
                   :plugins [[lein-repack "0.2.7"]]
                   :aliases {"incise" ^:pass-through-help ["run" "-m" "incise.core"]}}
             :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
             :1.5 {:dependencies [[org.clojure/clojure "1.5.1"]]}
             :1.7 {:dependencies [[org.clojure/clojure "1.7.0-alpha4"]]}})

(defproject fixturex/fixturex "0.3.0"
  :description "A library of helpful test fixture macros and functions."
  :url "http://www.ryanmcg.com/fixturex/"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.6.0"]]
  :repack [{:type :clojure
            :levels 1
            :path "src"}]
  :scm {:name "git"
        :url "https://github.com/RyanMcG/fixturex"}
  :profiles {:dev {:dependencies [[incise "0.5.0"]
                                  [com.ryanmcg/incise-codox "0.1.0"]
                                  [com.ryanmcg/incise-vm-layout "0.5.0"]]
                   :plugins [[lein-repack "0.2.10"]]
                   :aliases {"incise" ^:pass-through-help ["run" "-m" "incise.core"]}}
             :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
             :1.5 {:dependencies [[org.clojure/clojure "1.5.1"]]}
             :1.7 {:dependencies [[org.clojure/clojure "1.7.0-alpha4"]]}})

Upgrade lein-repack and set scm.

Upgrade lein-repack and set scm.


(defproject wall-follower "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"}
  :uberjar-name "ev3main.jar"
  :main wall_follower.Main
  :source-paths ["src/clj"]
  :java-source-paths ["src/java"]
  :aliases {"run-ev3" ["do" "uberjar,"
                       "shell" "scp" "target/ev3main.jar" "root@10.0.1.1:,"
                       "shell" "ssh" "root@10.0.1.1" "/bin/jrun -jar /home/root/ev3main.jar"]
            "shutdown-ev3" ["shell" "ssh" "root@10.0.1.1" "halt"]}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [org.clojars.earthlingzephyr/lejos-ev3 "0.5.0-SNAPSHOT"]]
  :plugins [[lein-shell "0.3.0"]])

(defproject wall-follower "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"}
  :uberjar-name "ev3main.jar"
  :main wall_follower.Main
  :source-paths ["src/clj"]
  :java-source-paths ["src/java"]
  :aliases {"run-ev3" ["do" "uberjar,"
                       "shell" "scp" "target/ev3main.jar" "root@10.0.1.1:,"
                       "shell" "ssh" "root@10.0.1.1" "/bin/jrun -jar /home/root/ev3main.jar"]
            "shutdown-ev3" ["shell" "ssh" "root@10.0.1.1" "halt"]}
  :dependencies [[org.clojars.earthlingzephyr/lejos-ev3 "0.5.0-SNAPSHOT"]]
  :plugins [[lein-shell "0.3.0"]])

Remove clojure as a dependency

Remove clojure as a dependency


(defproject org.onyxplatform/onyx-bookkeeper "0.8.1.0-0.8.1"
  :description "Onyx plugin for BookKeeper"
  :url "https://github.com/onyx-platform/onyx-bookkeeper"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :dependencies [[org.clojure/clojure "1.7.0"]
                 ^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
                 [org.onyxplatform/onyx "0.8.1"]]
  :profiles {:dev {:plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}
             :circle-ci {:jvm-opts ["-Xmx4g"]}})

(defproject org.onyxplatform/onyx-bookkeeper "0.8.1.1-SNAPSHOT"
  :description "Onyx plugin for BookKeeper"
  :url "https://github.com/onyx-platform/onyx-bookkeeper"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :dependencies [[org.clojure/clojure "1.7.0"]
                 ^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
                 [org.onyxplatform/onyx "0.8.1"]]
  :profiles {:dev {:plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}
             :circle-ci {:jvm-opts ["-Xmx4g"]}})

Prepare for next release cycle.

Prepare for next release cycle.


(defproject org.toomuchcode/clara-rules "0.1.1"
  :description "Clara Rules Engine"
  :url "http://rbrush.github.io/clara-rules/"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [org.codehaus.jsr166-mirror/jsr166y "1.7.0"]]
  :plugins [[codox "0.6.4"]
            [lein-javadoc "0.1.1"]]
  :codox {:exclude [clara.other-ruleset clara.sample-ruleset clara.test-java
                    clara.test-rules clara.rules.memory clara.test-accumulators
                    clara.rules.testfacts clara.rules.java clara.rules.engine]}
  :javadoc-opts {:package-names ["clara.rules"]}
  :source-paths ["src/main/clojure"]
  :test-paths ["src/test/clojure"]
  :java-source-paths ["src/main/java"])

(defproject org.toomuchcode/clara-rules "0.1.2-SNAPSHOT"
  :description "Clara Rules Engine"
  :url "http://rbrush.github.io/clara-rules/"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [org.codehaus.jsr166-mirror/jsr166y "1.7.0"]]
  :plugins [[codox "0.6.4"]
            [lein-javadoc "0.1.1"]]
  :codox {:exclude [clara.other-ruleset clara.sample-ruleset clara.test-java
                    clara.test-rules clara.rules.memory clara.test-accumulators
                    clara.rules.testfacts clara.rules.java clara.rules.engine]}
  :javadoc-opts {:package-names ["clara.rules"]}
  :source-paths ["src/main/clojure"]
  :test-paths ["src/test/clojure"]
  :java-source-paths ["src/main/java"])

Increment to next development version.

Increment to next development version.


(defproject compojure "1.1.8"
  :description "A concise routing library for Ring"
  :url "https://github.com/weavejester/compojure"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [org.clojure/tools.macro "0.1.0"]
                 [clout "1.2.0"]
                 [ring/ring-core "1.3.1"]]
  :plugins [[codox "0.8.0"]]
  :codox {:src-dir-uri "http://github.com/weavejester/compojure/blob/1.1.8/"
          :src-linenum-anchor-prefix "L"}
  :profiles
  {:dev {:dependencies [[ring-mock "0.1.3"]
                        [javax.servlet/servlet-api "2.5"]]}
   :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
   :1.5 {:dependencies [[org.clojure/clojure "1.5.1"]]}
   :1.6 {:dependencies [[org.clojure/clojure "1.6.0"]]}})

(defproject compojure "1.1.8"
  :description "A concise routing library for Ring"
  :url "https://github.com/weavejester/compojure"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [org.clojure/tools.macro "0.1.0"]
                 [clout "1.2.0"]
                 [ring/ring-core "1.3.1"]]
  :plugins [[codox "0.8.10"]]
  :codox {:src-dir-uri "http://github.com/weavejester/compojure/blob/1.1.8/"
          :src-linenum-anchor-prefix "L"}
  :profiles
  {:dev {:dependencies [[ring-mock "0.1.3"]
                        [javax.servlet/servlet-api "2.5"]]}
   :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}
   :1.5 {:dependencies [[org.clojure/clojure "1.5.1"]]}
   :1.6 {:dependencies [[org.clojure/clojure "1.6.0"]]}})

Update Codox plugin to 0.8.10

Update Codox plugin to 0.8.10


(defproject govuk/blinken "0.1.0-SNAPSHOT"
  :description "Dashboard to integrate multiple alert systems"
  :url "https://github.com/alphagov/blinken"
  :license {:name "MIT"
            :url "http://opensource.org/licenses/MIT"}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [docopt "0.6.1"]
                 [http-kit "2.1.16"]
                 [cheshire "5.2.0"]
                 [hiccup "1.0.4"]
                 [clj-yaml "0.4.0"]
                 [compojure "1.1.6"]
                 [org.clojure/core.async "0.1.267.0-0d7780-alpha"]
                 [org.clojure/tools.logging "0.2.6"]]
  :main govuk.blinken)

(defproject govuk/blinken "0.1.0-SNAPSHOT"
  :description "Dashboard to integrate multiple alert systems"
  :url "https://github.com/alphagov/blinken"
  :license {:name "MIT"
            :url "http://opensource.org/licenses/MIT"}
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [docopt "0.6.1"]
                 [http-kit "2.1.16"]
                 [cheshire "5.2.0"]
                 [hiccup "1.0.4"]
                 [clj-yaml "0.4.0"]
                 [compojure "1.1.6"]
                 [lein-daemon "0.5.4"]
                 [org.clojure/core.async "0.1.267.0-0d7780-alpha"]
                 [org.clojure/tools.logging "0.2.6"]]
  :main govuk.blinken)

Add lein-daemon as a dependency.

Add lein-daemon as a dependency.


(defproject uruk "0.3.12-SNAPSHOT"
  :description "Clojure wrapper of MarkLogic XML Content Connector For Java (XCC/J)"
  :url "https://github.com/daveliepmann/uruk"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.9.0"]
                 [com.marklogic/marklogic-xcc "9.0.6"]
                 ;; required but not included by MarkLogic (e.g. for ContentFactory):
                 [com.fasterxml.jackson.core/jackson-databind "2.9.4"]
                 [org.clojure/data.json "0.2.6"]
                 [org.clojure/data.xml "0.1.0-beta2"]
                 [slingshot "0.12.2"]]
  :profiles {:codox {:dependencies [[codox-theme-rdash "0.1.2"]]
                     :plugins [[lein-codox "0.10.3"]]
                     :codox {:metadata {:doc/format :markdown} ;; docstring format
                             :output-path "gh-pages"
                             :themes [:rdash]}}}
  :repositories [["MarkLogic-releases" "http://developer.marklogic.com/maven2"]]
  :jar-exclusions     [#"examples", #".jpg"]
  :uberjar-exclusions [#"examples", #".jpg"])

(defproject uruk "0.3.12-SNAPSHOT"
  :description "Clojure wrapper of MarkLogic XML Content Connector For Java (XCC/J)"
  :url "https://github.com/daveliepmann/uruk"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :dependencies [[org.clojure/clojure "1.9.0"]
                 [com.marklogic/marklogic-xcc "9.0.9"]
                 ;; required but not included by MarkLogic (e.g. for ContentFactory):
                 [com.fasterxml.jackson.core/jackson-databind "2.9.4"]
                 [org.clojure/data.json "0.2.6"]
                 [org.clojure/data.xml "0.1.0-beta2"]
                 [slingshot "0.12.2"]]
  :profiles {:codox {:dependencies [[codox-theme-rdash "0.1.2"]]
                     :plugins [[lein-codox "0.10.3"]]
                     :codox {:metadata {:doc/format :markdown} ;; docstring format
                             :output-path "gh-pages"
                             :themes [:rdash]}}}
  :repositories [["MarkLogic-releases" "http://developer.marklogic.com/maven2"]]
  :jar-exclusions     [#"examples", #".jpg"]
  :uberjar-exclusions [#"examples", #".jpg"])

Bump MarkLogic dependency to 9.0-9

Bump MarkLogic dependency to 9.0-9

See release notes: https://docs.marklogic.com/guide/relnotes/chap3#id_16504


(defproject madouc "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.8.0"]
                 [ring/ring-core "1.5.1"]
                 [ring/ring-devel "1.5.1"]
                 [ring-logger "0.7.7"]
                 [ring-logger-timbre "0.7.5"]
                 [com.taoensso/timbre "4.8.0"]
                 [com.fzakaria/slf4j-timbre "0.3.4"]
                 [compojure "1.5.2"]
                 [metosin/compojure-api "1.1.10"]
                 [yogthos/config "0.8"]
                 [org.immutant/web "2.1.6"
                  :exclusions [ch.qos.logback/logback-classic]]
                 [selmer "1.10.6"]
                 [mount "0.1.11"]]
  :main madouc.core
  :profiles {:dev {:resource-paths ["config/dev"]}
             :prod {:resource-paths ["config/prod"]}
             :uberjar {:aot :all}})

(defproject madouc "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.8.0"]
                 [ring/ring-core "1.5.1"]
                 [ring/ring-devel "1.5.1"]
                 [ring-logger "0.7.7"]
                 [ring-logger-timbre "0.7.5"]
                 [com.taoensso/timbre "4.8.0"]
                 [com.fzakaria/slf4j-timbre "0.3.4"]
                 [compojure "1.5.2"]
                 [metosin/compojure-api "1.1.10"]
                 [cprop "0.1.10"]
                 [org.immutant/web "2.1.6"
                  :exclusions [ch.qos.logback/logback-classic]]
                 [selmer "1.10.6"]
                 [mount "0.1.11"]]
  :main madouc.core
  :profiles {:dev {:resource-paths ["config/dev"]}
             :prod {:resource-paths ["config/prod"]}
             :uberjar {:aot :all}})

Replace props dependency by cprop

Replace props dependency by cprop


(defproject com.draines/postal "1.12-SNAPSHOT"
  :repositories {"java.net" "http://download.java.net/maven/2"}
  :dependencies [[commons-codec "1.7"]
                 [javax.mail/mail "1.4.4"
                  :exclusions [javax.activation/activation]]]
  :profiles {:dev {:dependencies [[org.clojure/clojure "1.5.1"]]}
             :1.3 {:dependencies [[org.clojure/clojure "1.3.0"]]}
             :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}})

(defproject com.draines/postal "1.12-SNAPSHOT"
  :repositories {"java.net" "http://download.java.net/maven/2"}
  :dependencies [[commons-codec "1.9"]
                 [javax.mail/mail "1.4.4"
                  :exclusions [javax.activation/activation]]]
  :profiles {:dev {:dependencies [[org.clojure/clojure "1.5.1"]]}
             :1.3 {:dependencies [[org.clojure/clojure "1.3.0"]]}
             :1.4 {:dependencies [[org.clojure/clojure "1.4.0"]]}})

Bump commons-codec version to 1.9.

Bump commons-codec version to 1.9.


(ns docker-clojure.dockerfile.tools-deps)

(defn install-deps [{:keys [distro]}]
  (case distro
    "alpine"
    ["RUN echo '@testing http://dl-cdn.alpinelinux.org/alpine/edge/testing' >> /etc/apk/repositories && \\"
     "  apk add --update --no-cache bash curl rlwrap@testing"]

    "debian"
    ["RUN apt-get update && apt-get install -y rlwrap"]

    nil))

(defn contents [{:keys [build-tool-version] :as variant}]
  (-> [(format "ENV CLOJURE_VERSION=%s" build-tool-version)
       ""
       "WORKDIR /tmp"
       ""]
      (concat (install-deps variant))
      (concat
       [""
        "RUN wget https://download.clojure.org/install/linux-install-$CLOJURE_VERSION.sh \\"
        "    && chmod +x linux-install-$CLOJURE_VERSION.sh \\"
        "    && ./linux-install-$CLOJURE_VERSION.sh"
        ""
        "RUN clojure -e \"(clojure-version)\""
        ""
        "# Docker bug makes rlwrap crash w/o short sleep first"
        "# Bug: https://github.com/moby/moby/issues/28009"
        "CMD sleep 1; clj"])
      (->> (remove nil?))))

(ns docker-clojure.dockerfile.tools-deps)

(defn install-deps [{:keys [distro]}]
  (case distro
    "alpine"
    ["RUN apk add --update --no-cache bash curl"]

    "debian"
    ["RUN apt-get update && apt-get install -y rlwrap"]

    nil))

(defn contents [{:keys [build-tool-version] :as variant}]
  (-> [(format "ENV CLOJURE_VERSION=%s" build-tool-version)
       ""
       "WORKDIR /tmp"
       ""]
      (concat (install-deps variant))
      (concat
       [""
        "RUN wget https://download.clojure.org/install/linux-install-$CLOJURE_VERSION.sh \\"
        "    && chmod +x linux-install-$CLOJURE_VERSION.sh \\"
        "    && ./linux-install-$CLOJURE_VERSION.sh"
        ""
        "RUN clojure -e \"(clojure-version)\""
        ""
        "# Docker bug makes rlwrap crash w/o short sleep first"
        "# Bug: https://github.com/moby/moby/issues/28009"
        "CMD sleep 1; clj"])
      (->> (remove nil?))))

Remove rlwrap from alpine tools-deps images

Addresses #55


(def start-t (System/currentTimeMillis))

(defn random-sampler [ ]
  (let [current (atom 0.0)]
    (fn [ ]
      (swap! current #(+ % (/ (+ (Math/random) (Math/random)) 2) -0.5)))))

(def rs-0 (random-sampler))
(def rs-1 (random-sampler))
(def rs-2 (random-sampler))

(defsensor random-unconstrained {:poll-interval (seconds 10)}
  (rs-0))

(defsensor random-positive {:poll-interval (seconds 10)}
  (+ 0.1 (Math/abs (rs-1))))

(defsensor random-negative {:poll-interval (seconds 10)}
  (- -0.1 (Math/abs (rs-2))))

(defsensor math {:poll-interval (seconds 10)}
  {:sine (+ 0.3 (Math/sin (/ (- (System/currentTimeMillis) start-t) (minutes 1))))
   :cosine (Math/cos (/ (- (System/currentTimeMillis) start-t) (minutes 1))) })

(defsensor steps-ascending {:poll-interval (seconds 5)}
  (+ 2.3
     (mod (/ (- (System/currentTimeMillis) start-t) (minutes 4))
          3)))

(def start-t (System/currentTimeMillis))

(defn random-sampler [ ]
  (let [current (atom 0.0)]
    (fn [ ]
      (swap! current #(+ % (/ (+ (Math/random) (Math/random)) 2) -0.5)))))

(defsensor* random-unconstrained {:poll-interval (seconds 10)}
  (let [rs (random-sampler)]
    (fn [] (rs))))

(defsensor* random-positive {:poll-interval (seconds 10)}
  (let [rs (random-sampler)]
    (fn [] (+ 0.1 (Math/abs (rs))))))

(defsensor* random-negative {:poll-interval (seconds 10)}
  (let [rs (random-sampler)]
    (fn [] (- -0.1 (Math/abs (rs))))))

(defsensor* random-very-positive {:poll-interval (seconds 10)}
  (let [rs (random-sampler)]
    (fn [] (+ 10 (Math/abs (rs))))))

(defsensor* random-very-negative {:poll-interval (seconds 10)}
  (let [rs (random-sampler)]
    (fn [] (- -10 (Math/abs (rs))))))

(defsensor math {:poll-interval (seconds 10)}
  {:sine (+ 0.3 (Math/sin (/ (- (System/currentTimeMillis) start-t) (minutes 1))))
   :cosine (Math/cos (/ (- (System/currentTimeMillis) start-t) (minutes 1))) })

(defsensor steps-ascending {:poll-interval (seconds 5)}
  (+ 2.3
     (mod (/ (- (System/currentTimeMillis) start-t) (minutes 4))
          3)))

Add two additional test series for ranges, these for y ranges that do not include 0.


(ns user
  (:require [ruuvi.system]
            [clojure.edn :as edn]
            [clojure.tools.logging :refer [info error] :as log]
            [com.stuartsierra.component :as component]
            [clojure.tools.namespace.repl :refer [refresh refresh-all]]
            ))

(def system nil)

(defn init
  "Constructs the current development system."
  []
  (alter-var-root
   #'system
   (constantly (ruuvi.system/create-system "dev/config.edn"))))

(defn start
  "Starts the current development system."
  []
  (try
    (alter-var-root #'system component/start)
    (catch Exception e (error e "Failed to start system")
      (throw e))))

(defn stop
  "Shuts down and destroys the current development system."
  []
  (try
    (alter-var-root #'system
                    (fn [s] (when s (component/stop s))))
    (catch Exception e (error e "Failed to stop system")
      (throw e))))

(defn go
  "Initializes the current development system and starts it running."
  []
  (init)
  (start))

(defn reset []
  (stop)
  (info "Resetting...")
  (refresh :after 'user/go)
  (info "Reset complete")
  :reset-complete)

(ns user
  (:require [ruuvi.system]
            [clojure.edn :as edn]
            [clojure.tools.logging :refer [info error] :as log]
            [com.stuartsierra.component :as component]
            [clojure.tools.namespace.repl :refer [refresh refresh-all]]
            [midje.repl :as midje]
            ))

(def system nil)

(defn init
  "Constructs the current development system."
  [& [config-file]]
  (alter-var-root
   #'system
   (constantly (ruuvi.system/create-system (or config-file "dev/config.edn") ))))

(defn start
  "Starts the current development system."
  []
  (try
    (alter-var-root #'system component/start)
    (catch Exception e (error e "Failed to start system")
      (throw e))))

(defn stop
  "Shuts down and destroys the current development system."
  []
  (try
    (alter-var-root #'system
                    (fn [s] (when s (component/stop s))))
    (catch Exception e (error e "Failed to stop system")
      (throw e))))

(defn go
  "Initializes the current development system and starts it running."
  []
  (init)
  (start))

(defn reset
  "Stop any running components, reload all files and restart components."
  []
  (stop)
  (info "Resetting...")
  (refresh :after 'user/go)
  (info "Reset complete")
  :reset-complete)

(defn start-autotest
  "Start auto testing for test/ruuvi. When a file is changed, dependant midje tests are executed."
  []
  (midje/autotest :dirs "test/ruuvi")
  )

Add command to start midje autotest

Add command to start midje autotest


(ns user
  (:require [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.pprint :refer (pprint)]
            [clojure.repl :refer :all]
            [clojure.tools.namespace.repl :refer (refresh refresh-all)]
            [pathfinder.system :as sys]
            [midje.repl :refer (autotest)]))

;;; this file will be loaded by the repl automatically on start up

;;; lifecycle

(def system
  "Entry point in to the current system state."
  nil)

(defn init
  "Constructs the current development system."
  []
  (alter-var-root #'system
    (constantly (sys/system {:jetty {:port 9400
                                     :join? false}
                             :elasticsearch {:endpoint "http://localhost:9200"}}))))

(defn start
  "Starts the current development system."
  []
  (alter-var-root #'system sys/start))

(defn stop
  "Shuts down and destroys the current development system."
  []
  (alter-var-root #'system
    (fn [s] (when s (sys/stop s)))))

(defn go
  "Initializes the current development system and starts it running."
  []
  (init)
  (start))

(defn reset []
  (stop)
  (refresh :after 'user/go))

;;; utilities

(ns user
  (:require [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.pprint :refer (pprint)]
            [clojure.repl :refer :all]
            [clojure.tools.namespace.repl :refer (refresh refresh-all)]
            [pathfinder.system :as sys]
            [midje.repl :refer (autotest)]))

;;; this file will be loaded by the repl automatically on start up

;;; lifecycle

(def system
  "Entry point in to the current system state."
  nil)

(defn init
  "Constructs the current development system."
  []
  (alter-var-root #'system
    (constantly (sys/system {:jetty {:port 9400
                                     :join? false}
                             :elasticsearch {:endpoint "http://docker:9200"}}))))

(defn start
  "Starts the current development system."
  []
  (alter-var-root #'system sys/start))

(defn stop
  "Shuts down and destroys the current development system."
  []
  (alter-var-root #'system
    (fn [s] (when s (sys/stop s)))))

(defn go
  "Initializes the current development system and starts it running."
  []
  (init)
  (start))

(defn reset []
  (stop)
  (refresh :after 'user/go))

;;; utilities

Change ES endpoint to point to aliased docker hostname


(ns kolmogorov-music.kolmogorov
  (:require [clojure.repl :as repl]))

(defn in-ns? [sym ns]
  (contains? (ns-interns ns) sym))

(defn sexpr [sym]
  (-> sym repl/source-fn read-string))

(defn definition [sym]
  (-> sym sexpr last))

(defn complexity-sym [sym ns]
  (if (in-ns? sym ns)
    (->> (definition sym)
         flatten
         (map #(-> % (complexity-sym ns) inc))
         (apply +))
    0))

(defn complexity-sexpr [sexpr ns]
  (if (seq? sexpr)
    (->> sexpr
         (map #(-> % (complexity-fn ns) inc))
         (apply +))
    (complexity-fn sexpr ns)))

(defmacro complexity [sexpr]
  (complexity-sexpr sexpr *ns*))

(complexity (+ 4 4))

(ns kolmogorov-music.kolmogorov
  (:require [clojure.repl :as repl]))

(defn in-ns? [sym ns]
  (contains? (ns-interns ns) sym))

(defn sexpr [sym]
  (-> sym repl/source-fn read-string))

(defn definition [sym]
  (-> sym sexpr last))

(declare complexity-sexpr)

(defn complexity-sym [sym ns]
  (if (in-ns? sym ns)
    (->> (definition sym)
         flatten
         (complexity-sexpr ns))
    0))

(defn complexity-sexpr [ns sexpr]
  (->> sexpr
       (map #(complexity-sym % ns))
       (reduce + (count sexpr))))

(defmacro complexity [expr]
  (if (seq? expr)
    (complexity-sexpr *ns* expr)
    (complexity-sym expr *ns*)))

Use mutual recursion to make the sym/sexpr dance clearer.


(ns swanson.models.db
  (:require [clojure.java.jdbc :as sql]))

(def db {:subprotocol "postgresql"
         :subname "//localhost/swanson"
         :user "admin"
         :password "admin"})

(defn create-users-table []
  (sql/with-connection db
    (sql/create-table
      :users
      [:id "varchar(32) PRIMARY KEY"]
      [:username "varchar(100)"]
      [:pass "varchar(100)"])))

(defn get-user "first query" [id]
  (sql/with-connection db
    (sql/with-query-results
      res ["SELECT * FROM users WHERE id = ?"] (first res))))

(ns swanson.models.db
  (:require [clojure.java.jdbc :as sql]))

(def db {:subprotocol "postgresql"
         :subname "//localhost/swanson"
         :user "admin"
         :password "admin"})

(defn create-users-table []
  (sql/with-connection db
    (sql/create-table
      :users
      [:id "serial primary key"]
      [:fname "varchar(100) NOT NULL"]
      [:lname "varchar(100) NOT NULL"]
      [:email "varchar(100) NOT NULL"]
      [:encrypted_password "varchar(100)"])))

(defn get-user
  [id]
  (sql/with-connection
    db
    (sql/with-query-results
      res ["SELECT * FROM users WHERE id = ?" id] (first res))))

(defn make-user
  [fname lname email encrypted-pass]
  (sql/with-connection
    db
    (sql/insert-values
      :users
      [:fname :lname :email :encrypted_password]
      [fname lname email encrypted-pass])))

Make improvements to user model

Make improvements to user model


(defproject ring-example "0.1.0-SNAPSHOT"
  :description "Reitit Ring App with Swagger"
  :dependencies [[org.clojure/clojure "1.10.0"]
                 [ring/ring-jetty-adapter "1.7.1"]
                 [metosin/reitit "0.3.9"]]
  :repl-options {:init-ns example.server}
  :profiles{:dev {:dependencies [[ring/ring-mock "0.3.2"]]}})

(defproject ring-example "0.1.0-SNAPSHOT"
  :description "Reitit Ring App with Swagger"
  :dependencies [[org.clojure/clojure "1.10.0"]
                 [ring/ring-jetty-adapter "1.7.1"]
                 [metosin/reitit "0.3.9"]]
  :repl-options {:init-ns example.server}
  :profiles {:dev {:dependencies [[ring/ring-mock "0.3.2"]]}})

Add space between keyword and curly

Add space between keyword and curly


(ns script.bootstrap.build
  (:require
   [cljs.source-map :as sm]
   [cognitect.transit :as transit]
   [planck.core :refer [slurp spit]]
   [planck.repl :refer [strip-source-map]]))

(defn cljs->transit-json
  [x]
  (let [wtr (transit/writer :json)]
    (transit/write wtr x)))

(let [file (first *command-line-args*)
      sm-json (slurp file)
      decoded (sm/decode (.parse js/JSON sm-json))
      stripped (^:private-var-access-nowarn strip-source-map decoded)
      transit-json (cljs->transit-json stripped)]
  (spit file transit-json))

(ns script.bootstrap.build
  (:require
   [cljs.source-map :as sm]
   [cognitect.transit :as transit]
   [planck.core :refer [slurp spit]]
   [planck.repl :refer [strip-source-map]]))

(defn cljs->transit-json
  [x]
  (let [wtr (transit/writer :json)]
    (transit/write wtr x)))

(let [file (first *command-line-args*)
      sm-json (slurp file)
      decoded (sm/decode (.parse js/JSON sm-json))
      stripped (#'strip-source-map decoded)
      transit-json (cljs->transit-json stripped)]
  (spit file transit-json))

Fix for private var use

Fix for private var use


;; Copyright 2014 Red Hat, Inc, and individual contributors.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(defproject basic "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.6.0-beta2"]
                 ;; we can't depend on this, or we'll get the version
                 ;; from .m2, not the version we're building
                 ;;[org.projectodd.wunderboss/wunderboss-clojure "0.1.0-SNAPSHOT"]
                  ])

;; Copyright 2014 Red Hat, Inc, and individual contributors.
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;; http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

(defproject basic "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.6.0"]
                 ;; we can't depend on this, or we'll get the version
                 ;; from .m2, not the version we're building
                 ;;[org.projectodd.wunderboss/wunderboss-clojure "0.1.0-SNAPSHOT"]
                  ])

Update test app to latest clojure release.


(ns whitman.db-test
  (:require [clojure.test :refer :all]
            [whitman.db :as db]))

(deftest test-db-url-with-default
  (let [cfg {"database" "test"}]
    (is (= (db/db-url cfg) "mongodb://localhost:27017/test"))))

(deftest test-db-url-when-specified
  (let [cfg {"connection" "whitman.monkey-robot.com:27017"
             "database" "test"}]
    (is (= (db/db-url cfg) "mongodb://whitman.monkey-robot.com:27017/test"))))

(deftest test-db-with-default
  (let [cfg {"database" "test"}]
    (-> cfg
        db/db
        nil?
        not
        is)))

(deftest test-db-when-specified
  (let [cfg {"connection" "whitman.monkey-robot.com:27017"
             "database" "test"}]
    (-> cfg
        db/db
        nil?
        not
        is)))

(ns whitman.db-test
  (:require [clojure.test :refer :all]
            [whitman.db :as db]))

(deftest test-db-url-with-default
  (let [cfg {"database" "test"}]
    (is (= (db/db-url cfg) "mongodb://localhost:27017/test"))))

(deftest test-db-url-when-specified
  (let [cfg {"connection" "monkey-robot.com:27017"
             "database" "test"}]
    (is (= (db/db-url cfg) "mongodb://monkey-robot.com:27017/test"))))

(deftest test-db-with-default
  (let [cfg {"database" "test"}]
    (-> cfg
        db/db
        nil?
        not
        is)))

(deftest test-db-when-specified
  (let [cfg {"connection" "monkey-robot.com:27017"
             "database" "test"}]
    (-> cfg
        db/db
        nil?
        not
        is)))

Use monkey-robot.com:27017 as MongoDB test URL

Unlike whitman.monkey-robot.com, monkey-robot.com actually exists, so it
won't throw an error when trying to connect.


(ns nightcode.repl
  (:require [nightcode.editors :as editors]
            [nightcode.lein :as lein]
            [nightcode.sandbox :as sandbox]
            [nightcode.shortcuts :as shortcuts]
            [nightcode.ui :as ui]
            [nightcode.utils :as utils]
            [seesaw.core :as s]))

(defn run-repl!
  "Starts a REPL process."
  [process in-out]
  (lein/stop-process! process)
  (->> (if (sandbox/get-dir)
         (clojure.main/repl)
         (lein/start-process-indirectly! process nil "clojure.main"))
       (lein/start-thread! in-out)))

(defn create-pane
  "Returns the pane with the REPL."
  [console]
  (let [process (atom nil)
        run! (fn [& _]
               (s/request-focus! (-> console .getViewport .getView))
               (run-repl! process (ui/get-io! console)))
        pane (s/config! console :id :repl-console)]
    (utils/set-accessible-name! (.getTextArea pane) :repl-console)
    ; start the repl
    (run!)
    ; create a shortcut to restart the repl
    (when-not (sandbox/get-dir)
      (shortcuts/create-hints! pane)
      (shortcuts/create-mappings! pane {:repl-console run!}))
    ; return the repl pane
    pane))

(ns nightcode.repl
  (:require [nightcode.editors :as editors]
            [nightcode.lein :as lein]
            [nightcode.sandbox :as sandbox]
            [nightcode.shortcuts :as shortcuts]
            [nightcode.ui :as ui]
            [nightcode.utils :as utils]
            [seesaw.core :as s]))

(defn run-repl!
  "Starts a REPL process."
  [process in-out]
  (lein/stop-process! process)
  (->> (if (sandbox/get-dir)
         (clojure.main/repl)
         (lein/start-process-indirectly! process nil "clojure.main"))
       (lein/start-thread! in-out)))

(defn create-pane
  "Returns the pane with the REPL."
  [console]
  (let [process (atom nil)
        run! (fn [& _]
               (.setText (.getTextArea console) "")
               (run-repl! process (ui/get-io! console))
               (s/request-focus! (-> console .getViewport .getView)))
        pane (s/config! console :id :repl-console)]
    (utils/set-accessible-name! (.getTextArea pane) :repl-console)
    ; start the repl
    (run!)
    ; create a shortcut to restart the repl
    (when-not (sandbox/get-dir)
      (shortcuts/create-hints! pane)
      (shortcuts/create-mappings! pane {:repl-console run!}))
    ; return the repl pane
    pane))

Clear console pane when resetting it

Clear console pane when resetting it


(ns doctopus.configuration
  (:require [nomad :refer [defconfig]]
            [clojure.java.io :as io]))

(defconfig server-config (io/resource "configuration.edn"))
(def docs-uri-prefix "/docs")

Add a docs config prefix

Add a docs config prefix


(ns less4clj.util)

;;
;; Debugging
;; from boot.util
;;

; Hack to detect boot verbosity
(defn- get-verbosity []
  (try
    (require 'boot.util)
    ; Deref var and atom
    @@(resolve 'boot.util/*verbosity*)
    (catch Exception _
      1)))

(defn- print*
  [verbosity args]
  (when (>= (get-verbosity) verbosity)
    (binding [*out* *err*]
      (apply printf args) (flush))))

(defn dbug [& more] (print* 2 more))
(defn info [& more] (print* 1 more))
(defn warn [& more] (print* 1 more))
(defn fail [& more] (print* 1 more))

(ns less4clj.util)

;;
;; Debugging
;; from boot.util
;;

(def ^:dynamic *verbosity* 1)

; Hack to detect boot verbosity
(defn- get-verbosity []
  (try
    (require 'boot.util)
    ; Deref var and atom
    @@(resolve 'boot.util/*verbosity*)
    (catch Exception _
      *verbosity*)))

(defn- print*
  [verbosity args]
  (when (>= (get-verbosity) verbosity)
    (binding [*out* *err*]
      (apply printf args) (flush))))

(defn dbug [& more] (print* 2 more))
(defn info [& more] (print* 1 more))
(defn warn [& more] (print* 1 more))
(defn fail [& more] (print* 1 more))

Add dynamic var for setting verbosity

Add dynamic var for setting verbosity


{:npm-dev-deps {"shadow-cljs"           "2.8.69"
                "karma"                 "4.3.0"
                "karma-chrome-launcher" "3.1.0"
                "karma-cljs-test"       "0.1.0"
                "karma-junit-reporter"  "1.2.0"}}

{:npm-dev-deps {"shadow-cljs"           "2.8.69"
                "karma"                 "4.4.1"
                "karma-chrome-launcher" "3.1.0"
                "karma-cljs-test"       "0.1.0"
                "karma-junit-reporter"  "1.2.0"}}

Upgrade todomvc example karma to 4.4.1

Upgrade todomvc example karma to 4.4.1


(ns uk.org.potentialdifference.darknet.config)

(def ip "192.168.1.24")

(def config
  {:ws-url  (str "wss://" ip ":8081")
   :api-url (str "http://") ip ":8080"
   :api-key "x9RHJ2I6nWi376Wa"})

(ns uk.org.potentialdifference.darknet.config)

(def ip "192.168.1.25")

(def config
  {:ws-url  (str "wss://" ip ":8081")
   :api-url (str "http://" ip ":8080")
   :api-key "x9RHJ2I6nWi376Wa"})

Move server onto new IP

Move server onto new IP


(ns structural-typing.use.f-error-messages
  (:require [structural-typing.preds :as pred])
  (:use midje.sweet
        structural-typing.type
        structural-typing.global-type
        structural-typing.clojure.core
        structural-typing.assist.testutil))

(future-fact "There should be an error if there's an instance of `includes` in a path")

(future-fact "reject impossible condensed type descriptions"
  (type! :X 1)
  ;; vector is an old-style description
  ;; other kinds of seqs?
  ;; records?
  )

(ns structural-typing.use.f-error-messages
  (:require [structural-typing.preds :as pred])
  (:use midje.sweet
        structural-typing.type
        structural-typing.global-type
        structural-typing.clojure.core
        structural-typing.assist.testutil))

(future-fact "There should be an error if there's an instance of `includes` in a path")

(future-fact "error out if you use `requires` on the right-hand side"
  (type! :Line {(each-of :head :tail) (requires :x :y)})
  )

(future-fact "reject impossible condensed type descriptions"
  (type! :X 1)
  ;; vector is an old-style description
  ;; other kinds of seqs?
  ;; records?
  )

Add future-fact for error message

Add future-fact for error message


(ns isla.test.talk
  (:use [isla.talk])
  (:use [clojure.test])
  (:use [clojure.pprint]))

;; list-rooms

(deftest test-0-rooms
  (is (re-find #"no way out of this room"
               (list-rooms []))))

(deftest test-1-room
  (is (re-find #"see a door to the palace"
               (list-rooms [{:name "palace"}]))))

(deftest test-2-rooms
  (is (re-find #"see a door to the palace and the garden"
               (list-rooms [{:name "palace"} {:name "garden"}]))))

(deftest test-3-rooms
  (is (re-find #"see a door to the palace, the garden and the bedroom."
               (list-rooms [{:name "palace"} {:name "garden"} {:name "bedroom"}]))))

(ns isla.test.talk
  (:use [isla.talk])
  (:use [clojure.test])
  (:use [clojure.pprint]))

;; list-things

(def list-rooms-texts ["no way out of this room"
                       "you can see a door to" "you can see doors to" "the"])

(deftest test-0-rooms
  (is (re-find #"no way out of this room"
               (apply list-things (cons [] list-rooms-texts)))))

(deftest test-1-room
  (is (re-find #"see a door to the palace"
               (apply list-things (cons [{:name "palace"}] list-rooms-texts)))))

(deftest test-1-room
  (is (re-find #"see a door to the palace and the garden"
               (apply list-things (cons [{:name "palace"} {:name "garden"}]
                                        list-rooms-texts)))))

(deftest test-1-room
  (is (re-find #"see doors to the palace, the garden and the bedroom"
               (apply list-things (cons [{:name "palace"} {:name "garden"} {:name "bedroom"}]
                                        list-rooms-texts)))))

;; player

(deftest test-player-description
  (is (re-find #"you look like a girl You are carrying a flower."
               (player-description {:summary "you look like a girl"
                                    :items #{{:name "flower"}}}))))

Update tests to test list-things rather than list-rooms.


(defproject clik-clak-joe "0.1.0-SNAPSHOT"
  :description "React Native tic-tac-toe in ClojureScript"
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [org.clojure/clojurescript "0.0-3153"]
                 [org.omcljs/om "0.9.0-SNAPSHOT"]
                 [org.omcljs/ambly "0.1.0-SNAPSHOT"]]
  :plugins [[lein-cljsbuild "1.0.5"]]
  :source-paths ["src"]
  :clean-targets ["js" "out"]
  :cljsbuild {:builds {:dev
                       {:source-paths ["src"]
                        :compiler     {:output-dir     "out"
                                       :output-to      "out/main.js"
                                       :optimizations  :none
                                       #_:foreign-libs #_[{:provides ["reactnative"]
                   :file "http://localhost:8081/Examples/TicTacToe/TicTacToeApp.includeRequire.runModule.bundle"}]}}
                       :rel
                       {:source-paths ["src"]
                        :compiler     {:output-to     "out/main.js"
                                       :optimizations :advanced
                                       :externs       ["externs.js"]
                                       :pretty-print  false
                                       :pseudo-names  false}}}})

(defproject clik-clak-joe "0.1.0-SNAPSHOT"
  :description "React Native tic-tac-toe in ClojureScript"
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [org.clojure/clojurescript "0.0-3153"]
                 [org.omcljs/om "0.8.8"]
                 [org.omcljs/ambly "0.1.0-SNAPSHOT"]]
  :plugins [[lein-cljsbuild "1.0.5"]]
  :source-paths ["src"]
  :clean-targets ["js" "out"]
  :cljsbuild {:builds {:dev
                       {:source-paths ["src"]
                        :compiler     {:output-dir     "out"
                                       :output-to      "out/main.js"
                                       :optimizations  :none
                                       #_:foreign-libs #_[{:provides ["reactnative"]
                   :file "http://localhost:8081/Examples/TicTacToe/TicTacToeApp.includeRequire.runModule.bundle"}]}}
                       :rel
                       {:source-paths ["src"]
                        :compiler     {:output-to     "out/main.js"
                                       :optimizations :advanced
                                       :externs       ["externs.js"]
                                       :pretty-print  false
                                       :pseudo-names  false}}}})

Revert back to unmodified Om

Revert back to unmodified Om


(ns leiningen.difftest
  (:require [leiningen.test :as test]))

(defn difftest [project & args]
  (apply test/test (-> project
                       (update-in [:injections] conj
                                  '((ns-resolve (doto 'difftest.core
                                                  require) 'activate)))
                       (update-in [:dependencies] into {'difftest "1.3.8"}))
         args))

(ns leiningen.difftest
  (:require [leiningen.test :as test]
            [leiningen.core.project :as project]))

(def profile
  {:injections ['((ns-resolve (doto 'difftest.core require) 'activate))]
   :dependencies [['difftest "1.3.8"]]})

(defn difftest
  "Run tests with improved failure output."
  [project & args]
  (apply test/test (project/merge-profiles project [profile]) args))

Implement injections in terms of a profile.


;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.

;;;; Development settings.

{:config {:cassandra {:config-file "cassandra.yaml"}
          :kafka {:port "9090"
                  :broker-id "1"
                  :log-dir "target/kafka-log"
                  :zk-connect "localhost:2181"}
          :http-kit {:port 8080}}
 :modules []
 :resolve-dependencies true}

;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.

;;;; Development settings.

{:config {:cassandra {:config-file "cassandra.yaml"}
          :kafka {:port "9090"
                  :broker-id "1"
                  :log-dir "target/kafka-log"
                  :zk-connect "localhost:2181"}
          :http-kit {:port 8080}}
 :modules ["dev-resources/test-module/target/test-module-0.1.jar"]
 :resolve-dependencies true}

Add test module to Containium.

Add test module to Containium.


(ns user
  (:use io.aviso.repl
        clojure.pprint)
  (:require [clojure.tools.logging :as l]))

(install-pretty-exceptions)

(defmacro other-thread
  [& body]
  `(.start (Thread. (bound-fn [] ~@body))))

(ns user
  (:use io.aviso.repl
        io.aviso.logging
        io.aviso.tracker
        clojure.pprint)
  (:require [clojure.tools.logging :as l]))

(install-pretty-exceptions)
(io.aviso.logging/install-pretty-logging)
(io.aviso.logging/install-uncaught-exception-handler)

(defmacro other-thread
  [& body]
  `(.start (Thread. (bound-fn []
                      (checkpoint
                        ~@body)))))

(defn demo-1
  []
  (track "on main thread" (other-thread (throw (RuntimeException. "hello")))))

(defn demo-2
  []
  (track "outer" (track "middle - a" (other-thread (try
                                                     (track "inner - a" (throw (ex-info "blowed up - a" {})))
                                                     (catch Throwable _))))
         (track "middle - b" (other-thread (try
                                             (track "inner - b" (throw (ex-info "blowed up - b" {})))
                                             (catch Throwable _))))))

Add some tools to make it easier to experiment


(ns backend.boot
  {:boot/export-tasks true}
  (:require [boot.core :refer :all]
            [reloaded.repl :refer [go]]
            [backend.main :refer :all]))

(deftask start-app
  [p port   PORT int  "Port"]
  (let [x (atom nil)]
    (with-pre-wrap fileset
      (swap! x (fn [x]
                  (if x
                    x
                    (do (setup-app! {:port port})
                        (go)))))
      fileset)))

(ns backend.boot
  {:boot/export-tasks true}
  (:require [boot.core :refer :all]
            [reloaded.repl :refer [go]]
            [backend.main :refer :all]
            [clojure.tools.namespace.repl :refer [disable-reload!]]))

(disable-reload!)

(deftask start-app
  [p port   PORT int  "Port"]
  (let [x (atom nil)]
    (with-pre-wrap fileset
      (swap! x (fn [x]
                  (if x
                    x
                    (do (setup-app! {:port port})
                        (go)))))
      fileset)))

Disable reloading start-app task with c.t.n


(set-env!
 :source-paths #{"src/main/java"}
 :test-paths #{"src/test/java"}
 :dependencies '[[junit "4.12" :scope "test"]])

(def +version+ "0.1.0")

(task-options!
 pom {:project 'http-server
      :version +version+
      :description "A Java HTTP server."
      :url "https://github.com/RadicalZephyr/http-server"
      :scm {:url "https://github.com/RadicalZephyr/http-server.git"}
      :licens {"MIT" "http://opensource.org/licenses/MIT"}})

(require 'clojure.set)

(deftask junit
  "Run the jUnit test runner."
  []
  (set-env! :source-paths #(clojure.set/union % (get-env :test-paths)))
  (with-pre-wrap fileset
    fileset))

(deftask test
  "Compile and run my jUnit tests."
  []
  (comp (javac)
        (junit)))

(deftask build
  "Build my http server."
  []
  (comp (javac)
        (pom)
        (jar)))

(set-env!
 :source-paths #{"src/main/java" "src/test/java"}
 :dependencies '[[junit "4.12" :scope "test"]])

(def +version+ "0.1.0")

(task-options!
 pom {:project 'http-server
      :version +version+
      :description "A Java HTTP server."
      :url "https://github.com/RadicalZephyr/http-server"
      :scm {:url "https://github.com/RadicalZephyr/http-server.git"}
      :licens {"MIT" "http://opensource.org/licenses/MIT"}})

(require 'clojure.set)

(deftask junit
  "Run the jUnit test runner."
  []
  (with-pre-wrap fileset
    fileset))

(deftask test
  "Compile and run my jUnit tests."
  []
  (comp (javac)
        (junit)))

(deftask build
  "Build my http server."
  []
  (comp (javac)
        (pom)
        (jar)))

Add the tests to source-paths

Add the tests to source-paths


(ns aspire.core-test
  (:require [clojure.test :refer :all]
            [aspire.core :refer :all]))

(deftest a-test
  (testing "FIXME, I fail."
    (is (= 0 1))))

(deftest pass-test
  (testing "I pass"
    (is (= 1 1))))

(ns aspire.core-test
  (:require [clojure.test :refer :all]
            [aspire.core :refer :all]))

(deftest pass-test
  (testing "I pass"
    (is (= 1 1))))

Remove lein default failing test.

Remove lein default failing test.


(defproject {{raw-name}} "0.1.0-SNAPSHOT"
  :description "FIXME: Write a description."
  :url "FIXME: Add a URL."
  :scm {:name "git"
        :url "FIXME: Add a URL."}
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :main {{namespace}}.site
  :source-paths ["src/main/clj"
                 "src/main/cljs"]
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [org.clojure/clojurescript "0.0-2850"]
                 [aviary "0.1.6"]
                 [enlive "1.1.5"]
                 [garden "1.2.5"]]
  :profiles {:dev {:source-paths ["src/dev/clj"
                                  "src/dev/cljs"]
                   :dependencies [[weasel "0.5.0"]
                                  [com.cemerick/piggieback "0.1.5"]]
                   :repl-options {:init ({{namespace}}.dev/start-dev)
                                  :init-ns {{namespace}}.dev
                                  :nrepl-middleware
                                  [cemerick.piggieback/wrap-cljs-repl]}}}
  :aliases {"ship" ["run" ":ship"]
            "export" ["run" ":export"]})

(defproject {{raw-name}} "0.1.0-SNAPSHOT"
  :description "FIXME: Write a description."
  :url "FIXME: Add a URL."
  :scm {:name "git"
        :url "FIXME: Add a URL."}
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :main {{namespace}}.site
  :source-paths ["src/main/clj"
                 "src/main/cljs"]
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [org.clojure/clojurescript "0.0-2850"]
                 [aviary "0.1.6"]
                 [enlive "1.1.5"]
                 [garden "1.2.5"]]
  :profiles {:dev {:source-paths ["src/dev/clj"
                                  "src/dev/cljs"]
                   :dependencies [[weasel "0.5.0"]
                                  [com.cemerick/piggieback "0.1.5"]]
                   :repl-options {:init ({{namespace}}.dev/start)
                                  :init-ns {{namespace}}.dev
                                  :nrepl-middleware
                                  [cemerick.piggieback/wrap-cljs-repl]}}}
  :aliases {"ship" ["run" ":ship"]
            "export" ["run" ":export"]})

Fix typo in :repl-options :init.

lein-template: Fix typo in :repl-options :init.


;; Licensed to the Apache Software Foundation (ASF) under one
;; or more contributor license agreements.  See the NOTICE file
;; distributed with this work for additional information
;; regarding copyright ownership.  The ASF licenses this file
;; to you under the Apache License, Version 2.0 (the
;; "License"); you may not use this file except in compliance
;; with the License.  You may obtain a copy of the License at
;;
;;   http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing,
;; software distributed under the License is distributed on an
;; "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
;; KIND, either express or implied.  See the License for the
;; specific language governing permissions and limitations
;; under the License.
(ns chaintool.build.core
  (:require [chaintool.build.golang :as golang])
  (:refer-clojure :exclude [compile]))

(defn compile [params]
  ;; generate golang output (shim, protobufs, etc)
  ;; FIXME: we need to switch on the Platform type
  (golang/compile params))

;; Licensed to the Apache Software Foundation (ASF) under one
;; or more contributor license agreements.  See the NOTICE file
;; distributed with this work for additional information
;; regarding copyright ownership.  The ASF licenses this file
;; to you under the Apache License, Version 2.0 (the
;; "License"); you may not use this file except in compliance
;; with the License.  You may obtain a copy of the License at
;;
;;   http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing,
;; software distributed under the License is distributed on an
;; "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
;; KIND, either express or implied.  See the License for the
;; specific language governing permissions and limitations
;; under the License.
(ns chaintool.build.core
  (:require [chaintool.build.golang :as golang]
            [chaintool.util :as util])
  (:refer-clojure :exclude [compile]))

(def handlers
  {"org.hyperledger.chaincode.golang" golang/compile})

(defn compile [{:keys [config] :as params}]
  ;; generate platform output (shim, protobufs, etc)
  (let [platform (->> config :Platform :Name)]
    (if-let [handler (handlers platform)]
      (handler params)
      (util/abort -1 (str "Unknown platform type: \"" platform "\"")))))

Add support for platform based conditional

Signed-off-by: Greg Haskins <640d9fe47775e6723f0355b7315e38f7d98d3539@gmail.com>


interfaces {
    restore-original-config-on-shutdown: false
    interface eth0 {
        description: "Internal pNodes interface"
        disable: false
        default-system-config
    }
}

protocols {
    igmp {
        disable: false
        interface eth0 {
            vif eth0 {
                disable: false
                version: 3
            }
        }
        traceoptions {
            flag all {
                disable: false
            }
        }
    }
}

interfaces {
    restore-original-config-on-shutdown: false
    interface {{ hostvars[inventory_hostname][primary_interface]['device'] }} {
        description: "Internal pNodes interface"
        disable: false
        default-system-config
    }
}

protocols {
    igmp {
        disable: false
        interface {{ hostvars[inventory_hostname][primary_interface]['device'] }} {
            vif {{ hostvars[inventory_hostname][primary_interface]['device'] }} {
                disable: false
                version: 3
            }
        }
        traceoptions {
            flag all {
                disable: false
            }
        }
    }
}

Move xorp to use 'primary_interface'

Move xorp to use 'primary_interface'

xorp should adhere to the standard we have set which is to use
primary_interface when referencing (unsurprisingly) your primary
interface.


(ns metrics.core
  (:import [com.codahale.metrics MetricRegistry Metric]))

(def ^{:tag "MetricRegistry" :doc "Default registry used by public API functions when no explicit registry argument is given"}
  default-registry
  (MetricRegistry.))

(defn ^MetricRegistry new-registry
  []
  (MetricRegistry.))

(defn ^String metric-name
  [title]
  (if (string? title)
    (MetricRegistry/name "default"
                         ^"[Ljava.lang.String;" (into-array String ["default" ^String title]))
    (MetricRegistry/name
     ^String (first title)
     ^"[Ljava.lang.String;" (into-array String
                                        [(second title)
                                         (last title)]))))

(defn add-metric
  "Add a metric with the given title."
  ([title ^Metric metric]
   (add-metric default-registry title metric))
  ([^MetricRegistry reg title ^Metric metric]
   (.register reg (metric-name title) metric)))

(defn remove-metric
  "Remove the metric with the given title."
  ([title]
   (remove-metric default-registry title))
  ([^MetricRegistry reg title]
   (.remove reg (metric-name title))))

(defn replace-metric
  "Replace a metric with the given title."
  ([title ^Metric metric]
   (replace-metric default-registry title metric))
  ([^MetricRegistry reg title ^Metric metric]
   (remove-metric reg (metric-name title))
   (add-metric reg (metric-name title) metric)))

(ns metrics.core
  (:import [com.codahale.metrics MetricRegistry Metric]))

(def ^{:tag "MetricRegistry" :doc "Default registry used by public API functions when no explicit registry argument is given"}
  default-registry
  (MetricRegistry.))

(defn ^MetricRegistry new-registry
  []
  (MetricRegistry.))

(defn ^String metric-name
  [title]
  (if (string? title)
    (MetricRegistry/name "default"
                         ^"[Ljava.lang.String;" (into-array String ["default" ^String title]))
    (MetricRegistry/name
     ^String (first title)
     ^"[Ljava.lang.String;" (into-array String
                                        (if (= 3 (count title))
                                          [(second title) (last title)]
                                          (rest title))))))

(defn add-metric
  "Add a metric with the given title."
  ([title ^Metric metric]
   (add-metric default-registry title metric))
  ([^MetricRegistry reg title ^Metric metric]
   (.register reg (metric-name title) metric)))

(defn remove-metric
  "Remove the metric with the given title."
  ([title]
   (remove-metric default-registry title))
  ([^MetricRegistry reg title]
   (.remove reg (metric-name title))))

(defn replace-metric
  "Replace a metric with the given title."
  ([title ^Metric metric]
   (replace-metric default-registry title metric))
  ([^MetricRegistry reg title ^Metric metric]
   (remove-metric reg (metric-name title))
   (add-metric reg (metric-name title) metric)))

Handle title array with three items as a special case


(ns circle.backend.build.test-run-build
  (:use midje.sweet)
  (:use [circle.backend.build.test-utils :only (minimal-build)])
  (:use [circle.backend.action :only (defaction)])
  (:use [circle.backend.build :only (build successful?)])
  (:use [circle.backend.build.run :only (run-build)])
  (:use [circle.util.predicates :only (ref?)]))

(circle.db/init)

(defaction successful-action [act-name]
  {:name act-name}
  (fn [build]
    nil))

(defn successful-build []
  (build {:project-name "succesful build"
          :build-num 1
          :vcs-url "git@github.com:foo/bar.git"
          :vcs-revision "f00b4r"
          :actions [(successful-action "1")
                    (successful-action "2")
                    (successful-action "3")]}))

(fact "successful build is successful"
  (let [build (run-build (successful-build))]
    build => ref?
    @build => map?
    (-> @build :action-results) => seq
    (-> @build :action-results (count)) => 3
    (for [res (-> @build :action-results)]
      (> (-> res :stop-time) (-> res :start-time)) => true)
    (successful? build) => truthy))

(ns circle.backend.build.test-run-build
  (:use midje.sweet)
  (:use [circle.backend.build.test-utils :only (minimal-build)])
  (:use [circle.backend.action :only (defaction)])
  (:use [circle.backend.build :only (build successful?)])
  (:use [circle.backend.build.run :only (run-build)])
  (:use [circle.util.predicates :only (ref?)]))

(circle.db/init)

(defaction successful-action [act-name]
  {:name act-name}
  (fn [build]
    nil))

(defn successful-build []
  (minimal-build :project-name "succesful build"
                 :actions [(successful-action "1")
                           (successful-action "2")
                           (successful-action "3")]))

(fact "successful build is successful"
  (let [build (run-build (successful-build))]
    build => ref?
    @build => map?
    (-> @build :action-results) => seq
    (-> @build :action-results (count)) => 3
    (for [res (-> @build :action-results)]
      (> (-> res :stop-time) (-> res :start-time)) => true)
    (successful? build) => truthy))

Fix the tests after making (build) fn more strict


(ns io.aviso.rook.utils
  "Kitchen-sink of useful standalone utilities."
  (:import
    (java.util UUID))
  (:use
    [clojure.core.async :only [go >!]])
  (:require
    [clojure.pprint :as pprint]))

(defn new-uuid
  "Generates a new UUID string, via UUIDrandomUUID."
  []
  (-> (UUID/randomUUID) .toString))

(defn response
  "Construct Ring response for success or other status."
  ([body] (response 200 body))
  ([status body] {:status status :body body}))

(defn pretty-print
  "Pretty-prints the supplied object to a returned string."
  [object]
  (pprint/write object
                :stream nil
                :pretty true))

(defmacro try-go
  "Wraps the body in a go block and a try block. The try block will
  catch any throwable and put it into the exception channel. This allow a failure
  to be communicated out of an asynchronous process and back to some originator
  that can report it, or attempt recovery."
  [exception-ch & body]
  `(let [ch# ~exception-ch]
     (go
       (try
         ~@body
         (catch Throwable t#
           (>! ch# t#)
           ;; Re-throw the exception; that's the only way to get out of the go block
           ;; without returning a value.
           (throw t#))))))

(ns io.aviso.rook.utils
  "Kitchen-sink of useful standalone utilities."
  (:import
    (java.util UUID))
  (:use
    [clojure.core.async :only [go >!]])
  (:require
    [clojure.pprint :as pprint]))

(defn new-uuid
  "Generates a new UUID string, via UUIDrandomUUID."
  []
  (-> (UUID/randomUUID) .toString))

(defn response
  "Construct Ring response for success or other status."
  ([body] (response 200 body))
  ([status body] {:status status :body body}))

(defn pretty-print
  "Pretty-prints the supplied object to a returned string."
  [object]
  (pprint/write object
                :stream nil
                :pretty true))

(defmacro try-go
  "Wraps the body in a go block and a try block. The try block will
  catch any throwable and put it into the exception channel. This allow a failure
  to be communicated out of an asynchronous process and back to some originator
  that can report it, or attempt recovery."
  [exception-ch & body]
  `(let [ch# ~exception-ch]
     (go
       (try
         ~@body
         (catch Throwable t#
           ;; The exception is routed to the exception channel.
           ;; The go block returns nil (that's problematic according to the
           ;; docs), but re-throwing the exeption results in an ugly
           ;; exception trace on the console.
           (>! ch# t#))))))

Change go-try macro to return nil when exception is thrown (and sent to the channel)


;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>

(ns uxbox.services.core)

(def +hierarchy+
  (as-> (make-hierarchy) $
    (derive $ :auth/login :command)))

(defmulti -novelty
  (fn [conn data] (:type data))
  :hierarchy #'+hierarchy+)

(defmulti -query
  (fn [conn data] (:type data))
  :hierarchy #'+hierarchy+)

(defmethod -novelty :default
  [data]
  (throw (ex-info "Not implemented" {})))

(defmethod -query :default
  [data]
  (throw (ex-info "Not implemented" {})))

;; This Source Code Form is subject to the terms of the Mozilla Public
;; License, v. 2.0. If a copy of the MPL was not distributed with this
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
;;
;; Copyright (c) 2016 Andrey Antukh <niwi@niwi.nz>

(ns uxbox.services.core
  (:require [clojure.walk :as walk]
            [cuerdas.core :as str]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Main Api
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(def +hierarchy+
  (as-> (make-hierarchy) $
    (derive $ :auth/login :command)))

(defmulti -novelty
  (fn [conn data] (:type data))
  :hierarchy #'+hierarchy+)

(defmulti -query
  (fn [conn data] (:type data))
  :hierarchy #'+hierarchy+)

(defmethod -novelty :default
  [data]
  (throw (ex-info "Not implemented" {})))

(defmethod -query :default
  [data]
  (throw (ex-info "Not implemented" {})))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Common Helpers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defn normalize-attrs
  "Recursively transforms all map keys from strings to keywords."
  [m]
  (letfn [(tf [[k v]]
            (let [ks (-> (name k)
                         (str/replace "_" "-"))]
              [(keyword ks) v]))
          (walker [x]
            (if (map? x)
              (into {} (map tf) x)
              x))]
    (walk/postwalk walker m)))

Add helper function for normalize db returing record attributes.


(ns c2.core
  (:use [clojure.string :only [join]]))

(defn unify
  ([data mapping]
     (map mapping data))
  ([container data mapping]
      (into container (unify data mapping))))

(defn style
  "Convert map to CSS string. Optional :numeric-suffix added to numbers (defaults to 'px')."
  [m & {:keys [numeric-suffix]
        :or {numeric-suffix "px"}}]
  (join (for [[k v] m]
          (str (name k) ":"
               (if (number? v)
                 (str v numeric-suffix)
                 v)
               ";"))))

(ns c2.core
  (:use [clojure.string :only [join]]))

(defn unify
  "Map `data` to hiccup vectors via provided `mapping` function."
  ([data mapping]
     (map mapping data))
  ([container data mapping]
      (into container (unify data mapping))))

Remove style helper. If you want to generate CSS within JVM Clojure, look at https://github.com/paraseba/cssgen.


(ns cljs-workers.test
  (:require [cljs-workers.core :as main]
            [cljs-workers.worker :as worker]))

(defn app
  []
  (let [worker-pool (main/create-pool 2 "js/worker/worker.js")]
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10}} #(.debug js/console %))
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:d]} :transfer [:d]} #(.debug js/console %))
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:d]} :transfer [:c]} #(.debug js/console %))
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:c]} :transfer [:d]} #(.debug js/console %))))

(defn worker
  []
  (worker/register
   :mirror
   (fn [arguments]
     arguments))

  (worker/bootstrap))

(if (and (main/supported?) (main/main?))
  (app)
  (worker))

(ns cljs-workers.test
  (:require [cljs-workers.core :as main]
            [cljs-workers.worker :as worker]))

(defn app
  []
  (let [worker-pool (main/create-pool 2 "js/worker/worker.js")
        print-result #(.debug js/console (str (:state %)) %)]
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10}} print-result)
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:d]} :transfer [:d]} print-result)
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:d]} :transfer [:c]} print-result)
    (main/do-with-pool! worker-pool {:handler :mirror, :arguments {:a "Hallo" :b "Welt" :c 10 :d (js/ArrayBuffer. 10) :transfer [:c]} :transfer [:d]} print-result)))

(defn worker
  []
  (worker/register
   :mirror
   (fn [arguments]
     arguments))

  (worker/bootstrap))

(if (and (main/supported?) (main/main?))
  (app)
  (worker))

Test with better print fun

Test with better print fun


(ns bogo-clojure.core
  (:gen-class)
  (:require [clojure.string :as string]
            [bogo-clojure.bg-word :refer :all]
            [bogo-clojure.bg-telex :refer :all]))

(defn get-action
  ;; Action is a function taking in current string, make transform,
  ;; return the new string
  [key typemode]
  (if (contains? typemode key)
    (get typemode key)
    :addchar))

(defn process-key
  ([astring key]
     (process-key astring key TELEX))
  ([astring key typemode]
     (let [[first-word last-word] (grammar-split-word astring)
           action (get-action key typemode)]
       (str first-word
            (if (fn? action)
              (action last-word)
              (str last-word key))))))

(defn process-sequence
  ([sequence]
     (process-sequence sequence TELEX))
  ([sequence typemode]
     (reduce (fn [word key] (process-key word (str key) typemode))
             ""
             sequence)))

(ns bogo-clojure.core
  (:gen-class)
  (:require [clojure.string :as string]
            [bogo-clojure.bg-word :refer :all]
            [bogo-clojure.bg-telex :refer :all]))

(defn get-action
  ;; Action is a function taking in current string, make transform,
  ;; return the new string
  [key typemode]
  (if (contains? typemode key)
    (get typemode key)
    :addchar))

(defn process-key*
  [key old-string new-string]
  (if (and (= (inc (count old-string)) (count new-string))
           (= (string/lower-case key) (str (last new-string))))
    (str (subs new-string 0 (count old-string)) key)
    new-string))

(defn process-key
  ([astring key]
     (process-key astring key TELEX))
  ([astring key typemode]
     (let [[first-word last-word] (grammar-split-word astring)
           strkey (str key)
           lkey (string/lower-case strkey)
           action (get-action lkey typemode)]
       (process-key* strkey
                     astring
                     (str first-word
                          (if (fn? action)
                            (action last-word)
                            (str last-word strkey)))))))

(defn process-sequence
  ([sequence]
     (process-sequence sequence TELEX))
  ([sequence typemode]
     (reduce (fn [word key] (process-key word key typemode))
             ""
             sequence)))

Handle case in both upper or lower cases. The input key now can be a char or a string


(ns fcms.unit.resources.collection.collection-delete
  (:require [midje.sweet :refer :all]
            [fcms.lib.resources :refer :all]
            [fcms.lib.check :refer (about-now?)]
            [fcms.resources.collection :refer :all]
            [fcms.resources.common :as common]))

;; ----- Tests -----

(with-state-changes [(before :facts (do
                                      (delete-collection c)
                                      (create-collection c {:custom foo})))
                      (after :facts (delete-collection c))]

  (facts "about collection deletion failures"

    (fact "when the specified collection doesn't exist"
      (doseq [coll-slug (conj bad-strings "not-here")]
        (delete-collection coll-slug) => :bad-collection)))

  (facts "about deleting collections"

    (fact "the collection can no longer be retrieved"
      (delete-collection c)
      (get-collection c) => nil)

    (fact "the collection is no longer listed"
      (delete-collection c)
      (all-collections) => [])))

Add unit tests for collection deletion

Add unit tests for collection deletion


(defproject dotenv "0.1.0"
  :description "dotenv: Load environment variables from .env file into the JVM System Properties"
  :url "https://github.com/primedia/clj-dotenv"
  :dependencies [ [org.clojure/clojure "1.5.1"]
                  ;;[org.clojars.jackmorrill/dotenv   "0.1.0"]
                  [local/dotenv.core "0.1.0"]
                  ;;[org.clojars.jackmorrill/environs "0.1.0"]
                  [local/environs.core "0.1.0"]
                ]
  :repositories {"project" "file:repo"})

(defproject dotenv "0.1.0"
  :description "dotenv: Load environment variables from .env file into the JVM System Properties"
  :url "https://github.com/primedia/clj-dotenv"
  :dependencies [ [org.clojure/clojure "1.5.1"]
                  [org.clojars.jackmorrill/dotenv   "0.1.0"]
                  ;;[local/dotenv.core "0.1.0"]
                  [org.clojars.jackmorrill/environs "0.1.0"]
                  ;;[local/environs.core "0.1.0"]
                ]
  :repositories {"project" "file:repo"})

Switch repositories from local to clojars.org


(defproject jcf/lein-template "0.1.1-SNAPSHOT"
  :description "FIXME: write description"
  :url "https://github.com/jcf/lein-template"
  :license {:name "The MIT License"
            :url "http://opensource.org/licenses/MIT"}
  :deploy-repositories [["releases" :clojars]]
  :eval-in-leiningen true
  :profiles {:dev {:dependencies [[me.raynes/fs "1.4.6"]]}})

(defproject jcf/lein-template "0.1.1-SNAPSHOT"
  :description "FIXME: write description"
  :url "https://github.com/jcf/lein-template"
  :license {:name "The MIT License"
            :url "http://opensource.org/licenses/MIT"}
  :deploy-repositories [["releases" :clojars]]
  :eval-in-leiningen true
  :profiles {:dev {:dependencies [[leiningen "2.5.1"]
                                  [me.raynes/fs "1.4.6"]]}})

Add Leiningen to dev dependencies

Add Leiningen to dev dependencies


(ns clstreams.examples.count-words.system
  (:require [clstreams.examples.count-words.pipelines :as pipelines]
            [clstreams.examples.count-words.webapi :as webapi]
            [com.stuartsierra.component :as component]))

(defn count-words-system []
  (component/system-map
   :pipeline (pipelines/count-words)
   :webapi (component/using
            (webapi/web-test)
            [:pipeline])))

(ns clstreams.examples.count-words.system
  (:require [clstreams.examples.count-words.pipelines :as pipelines]
            [clstreams.examples.count-words.webapi :as webapi]
            [clstreams.kstreams.component :refer [producer-send!]]
            [clstreams.kstreams.helpers :as helpers]
            [com.stuartsierra.component :as component])
  (:import org.apache.kafka.common.serialization.Serdes))

(defn count-words-system []
  (component/system-map
   :producer (helpers/new-manual-producer "streams-file-input")
   :pipeline (pipelines/count-words)
   :printer (helpers/new-print-topic "streams-wordcount-output"
                                     {:key-serde (Serdes/String)
                                      :value-serde (Serdes/Long)})
   :webapi (component/using
            (webapi/web-test)
            [:pipeline])))

(defn produce-words [system & lines]
  (apply producer-send! (:producer system) (for [line lines] ["" line])))

Add a producer and a printer to the count-words example


(ns karmanaut.utils
  (:gen-class)
  (:require [clojure.java.io :as io])
  (:import [java.util Calendar
                      Date
                      GregorianCalendar
                      TimeZone]))

(defn env [key default]
  (get (System/getenv) key default))

(defn version []
  (if (.exists (io/as-file "project.clj"))
    (-> "project.clj" slurp read-string (nth 2))
    (-> (eval 'karmanaut.utils) .getPackage .getImplementationVersion)))

(defn utcnow []
  (Date.))

(defn utcnow-midnight []
  (let [tz (TimeZone/getTimeZone "UTC")
        c (GregorianCalendar. tz)]
    (doto c
      (.set Calendar/HOUR_OF_DAY 0)
      (.set Calendar/MINUTE 0)
      (.set Calendar/SECOND 0)
      (.set Calendar/MILLISECOND 0))
    (.getTime c)))

(defn long-to-date
  "Reddit timestamps are the number of seconds since the
  Unix epoch, in UTC."
  [epoch]
  (Date. (* 1000 (long epoch))))

(ns karmanaut.utils
  (:gen-class)
  (:require [clojure.java.io :as io])
  (:import [java.util Calendar
                      Date
                      GregorianCalendar
                      TimeZone]))

(defn env [key default]
  (get (System/getenv) key default))

(defn version []
  (if (.exists (io/as-file "project.clj"))
    (-> "project.clj" slurp read-string (nth 2))
    (-> (eval 'karmanaut.utils) .getPackage .getImplementationVersion)))

(defn utcnow []
  (Date.))

(defn midnight [dt]
  "Returns the given datetime at midnight"
  (let [tz (TimeZone/getTimeZone "UTC")
        c (GregorianCalendar. tz)]
    (doto c
      (.setTime dt)
      (.set Calendar/HOUR_OF_DAY 0)
      (.set Calendar/MINUTE 0)
      (.set Calendar/SECOND 0)
      (.set Calendar/MILLISECOND 0))
    (.getTime c)))

(defn long-to-date
  "Reddit timestamps are the number of seconds since the
  Unix epoch, in UTC."
  [epoch]
  (Date. (* 1000 (long epoch))))

Return the given date at midnight

Return the given date at midnight


(ns solver.core
  (:gen-class))

(defn create-grid
  ([] (create-grid 1000))
  ([w] (create-grid w w))
  ([w h] (let [row (vec (map (fn [x] false) (range w)))
               grid (vec (map (fn [x] row) (range h)))]
           grid)))

(defn act-on
  ([f row a b] (let [low a
                     high (+ b 1)
                     difference (- high low)]
                 (vec (concat
                       (take low row)
                       (map f (take difference (drop low row)))
                       (drop high row)))))
  ([f grid a b c d] (let [low a
                          high (+ c 1)
                          difference (- high low)
                          act-on-row (fn [row] (act-on f row b d))]
                      (vec (concat
                            (take low grid)
                            (map act-on-row (take difference (drop low grid)))
                            (drop high grid))))))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "Hello, World!"))

(ns solver.core
  (:gen-class))

(defn create-grid
  ([] (create-grid 1000))
  ([w] (create-grid w w))
  ([w h] (let [row (vec (map (fn [x] false) (range w)))
               grid (vec (map (fn [x] row) (range h)))]
           grid)))

(defn act-on
  ([f row a b] (let [low a
                     high (+ b 1)
                     difference (- high low)]
                 (vec (concat
                       (take low row)
                       (map f (take difference (drop low row)))
                       (drop high row)))))
  ([f grid a b c d] (let [low a
                          high (+ c 1)
                          difference (- high low)
                          act-on-row (fn [row] (act-on f row b d))]
                      (vec (concat
                            (take low grid)
                            (map act-on-row (take difference (drop low grid)))
                            (drop high grid))))))

(defn on [a b c d grid]
  (let [action (fn [_] true)]
    (act-on action grid a b c d)))
(defn off [a b c d grid]
  (let [action (fn [_] false)]
    (act-on action grid a b c d)))
(defn toggle [a b c d grid]
  (let [action (fn [x] (not x))]
    (act-on action grid a b c d)))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (println "Hello, World!"))

Create utility functions to act on grid

Create utility functions to act on grid


(defproject cascade "0.2-SNAPSHOT"
  :description "Simple, fast, easy web applications in idiomatic Clojure"
  :url "http://github.com/hlship/cascade"
  :source-path "src/main/clojure"
  :resources-path "src/main/resources"
  :test-path "src/test/clojure"
  :dev-resources-path "src/test/resources"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [org.clojure/algo.monads "0.1.0"]
                 [compojure "0.6.5"]]
  :dev-dependencies [[ring/ring-jetty-adapter "0.3.11"]])

(defproject cascade "0.2-SNAPSHOT"
  :description "Simple, fast, easy web applications in idiomatic Clojure"
  :url "http://github.com/hlship/cascade"
  :source-path "src/main/clojure"
  :resources-path "src/main/resources"
  :test-path "src/test/clojure"
  :dev-resources-path "src/test/resources"
  :dependencies [[org.clojure/clojure "1.3.0"]
                 [org.clojure/algo.monads "0.1.0"]
                 [compojure "0.6.5"]]
  :dev-dependencies [[ring/ring-jetty-adapter "0.3.11"]
                     [swank-coljure "1.3.1"]
                     [midje "1.1.1"]])

Add support for Emacs support

Add support for Emacs support


(defproject clj-ravendb "0.4.2-SNAPSHOT"
  :description "A Clojure library for consuming a RavenDB rest api."
  :url "https://github.com/markwoodhall/clj-ravendb"
  :license {:name "MIT License"
            :url "http://opensource.org/licenses/mit-license.php"}
  :plugins [[quickie "0.2.5"]]
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [clj-http "0.9.2"]
                 [org.clojure/core.async "0.1.303.0-886421-alpha"]
                 [org.clojure/data.json "0.2.3"]]
  :deploy-repositories [
    ["clojars" {:sign-releases false}]
  ]
  :scm {:name "github"
        :url "https://github.com/markwoodhall/clj-ravendb"})

(defproject clj-ravendb "0.5.0"
  :description "A Clojure library for consuming a RavenDB rest api."
  :url "https://github.com/markwoodhall/clj-ravendb"
  :license {:name "MIT License"
            :url "http://opensource.org/licenses/mit-license.php"}
  :plugins [[quickie "0.2.5"]]
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [clj-http "0.9.2"]
                 [org.clojure/core.async "0.1.303.0-886421-alpha"]
                 [org.clojure/data.json "0.2.3"]]
  :deploy-repositories [
    ["clojars" {:sign-releases false}]
  ]
  :scm {:name "github"
        :url "https://github.com/markwoodhall/clj-ravendb"})

Remove trailing whitespace and bump version.


(defproject org.onyxplatform/onyx-metrics "0.8.0.5"
  :description "Instrument Onyx workflows"
  :url "https://github.com/MichaelDrogalis/onyx"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :dependencies [[org.clojure/clojure "1.7.0"]
                 [interval-metrics "1.0.0"]
                 [stylefruits/gniazdo "0.4.0"]]
  :java-opts ^:replace ["-server" "-Xmx3g"]
  :global-vars  {*warn-on-reflection* true
                 *assert* false
                 *unchecked-math* :warn-on-boxed}
  :profiles {:dev {:dependencies [^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
                                  [org.onyxplatform/onyx "0.8.0"]
                                  [riemann-clojure-client "0.4.1"]]
                   :plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}})

(defproject org.onyxplatform/onyx-metrics "0.8.0.6-SNAPSHOT"
  :description "Instrument Onyx workflows"
  :url "https://github.com/MichaelDrogalis/onyx"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :repositories {"snapshots" {:url "https://clojars.org/repo"
                              :username :env
                              :password :env
                              :sign-releases false}
                 "releases" {:url "https://clojars.org/repo"
                             :username :env
                             :password :env
                             :sign-releases false}}
  :dependencies [[org.clojure/clojure "1.7.0"]
                 [interval-metrics "1.0.0"]
                 [stylefruits/gniazdo "0.4.0"]]
  :java-opts ^:replace ["-server" "-Xmx3g"]
  :global-vars  {*warn-on-reflection* true
                 *assert* false
                 *unchecked-math* :warn-on-boxed}
  :profiles {:dev {:dependencies [^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
                                  [org.onyxplatform/onyx "0.8.0"]
                                  [riemann-clojure-client "0.4.1"]]
                   :plugins [[lein-set-version "0.4.1"]
                             [lein-update-dependency "0.1.2"]
                             [lein-pprint "1.1.1"]]}})

Prepare for next release cycle.

Prepare for next release cycle.


(defproject fault "0.1.0"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :profiles {:dev {:dependencies [[junit/junit "4.11"]
                                  [org.mockito/mockito-core "1.10.8"]
                                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]
                                  [clj-http "1.0.1"]]
                   :junit ["test/java"]
                   :java-source-paths ["src/java" "test/java"]
                   :plugins [[lein-junit "1.1.3"]]
                   :junit-formatter "brief"}}
  :javac-target "1.7"
  :dependencies [[org.clojure/clojure "1.6.0"]
                 [criterium "0.4.3"]]
  :source-paths ["src/clojure"]
  :java-source-paths ["src/java"])

(defproject fault "0.1.0"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :license {:name "Eclipse Public License"
            :url "http://www.eclipse.org/legal/epl-v10.html"}
  :profiles {:dev {:dependencies [[junit/junit "4.11"]
                                  [org.mockito/mockito-core "1.10.8"]
                                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]
                                  [clj-http "1.0.1"]
                                  [criterium "0.4.3"]]
                   :junit ["test/java"]
                   :java-source-paths ["src/java" "test/java"]
                   :plugins [[lein-junit "1.1.3"]]
                   :junit-formatter "brief"}}
  :javac-target "1.7"
  :dependencies [[org.clojure/clojure "1.6.0"]]
  :source-paths ["src/clojure"]
  :java-source-paths ["src/java"])

Make criterium a dev dependencie

Make criterium a dev dependencie