Exercise 3.23, refactoring

Exercise 3.23, refactoring

--- src/sicp/chapter3_3.clj
+++ src/sicp/chapter3_3.clj
@@ -725,11 +725,10 @@
   (let [new-pair (kons item nil)]
     (if (empty-queue? queue)
       (do (set-front-ptr! queue new-pair)
-          (set-rear-ptr! queue new-pair)
-          queue)
+          (set-rear-ptr! queue new-pair))
       (do (set-cdr! (rear-ptr queue) new-pair)
-          (set-rear-ptr! queue new-pair)
-          queue))))
+          (set-rear-ptr! queue new-pair)))
+    queue))

 (defn delete-queue! [queue]
   (if (empty-queue? queue)
@@ -758,21 +757,22 @@
         front-queue (fn []
                       (if (empty-queue?)
                         (throw (IllegalArgumentException.
-                                "FRONT called with an empty queue"))
+                                (str "FRONT called with an empty queue"
+                                     @front-ptr)))
                         (car @front-ptr)))
         insert-queue! (fn [item]
                         (let [new-pair (kons item nil)]
                           (if (empty-queue?)
                             (do (reset! front-ptr new-pair)
-                                (reset! rear-ptr new-pair)
-                                @front-ptr)
+                                (reset! rear-ptr new-pair))
                             (do (set-cdr! @rear-ptr new-pair)
-                                (reset! rear-ptr new-pair)
-                                @front-ptr))))
+                                (reset! rear-ptr new-pair)))
+                          @front-ptr))
         delete-queue! (fn []
                         (if (empty-queue?)
                           (throw (IllegalArgumentException.
-                                  "DELETE called with an empty queue"))
+                                  (str "DELETE called with an empty queue"
+                                       @front-ptr)))
                           (do (reset! front-ptr (cdr @front-ptr))
                               @front-ptr)))
         dispatch (fn [m]
@@ -786,7 +786,89 @@
     dispatch))

 ;; Exercise 3.23
-;; TODO
+(defn make-deque []
+  (kons nil nil))
+
+(defn empty-deque? [deque]
+  (nil? (front-ptr deque)))
+
+(defn deque-element [item]
+  (scheme-like-list item nil nil))
+(defn deque-item [deque]
+  (car deque))
+(defn deque-next [deque]
+  (car (cdr deque)))
+(defn deque-previous [deque]
+  (car (cdr (cdr deque))))
+(defn set-deque-next! [deque ptr]
+  (set-car! (cdr deque) ptr))
+(defn set-deque-previous! [deque ptr]
+  (set-car! (cdr (cdr deque)) ptr))
+
+(defn deque->vector [deque]
+  (loop [coll (front-ptr deque)
+         v []]
+    (if (nil? coll)
+      v
+      (recur (deque-next coll) (conj v (deque-item coll))))))
+
+(defn front-deque [deque]
+  (if (empty-deque? deque)
+    (throw (IllegalArgumentException.
+            (str "FRONT called with an empty deque "
+                 (deque->vector deque))))
+    (deque-item (front-ptr deque))))
+
+(defn rear-deque [deque]
+  (if (empty-deque? deque)
+    (throw (IllegalArgumentException.
+            (str "REAR called with an empty deque "
+                 (deque->vector deque))))
+    (deque-item (rear-ptr deque))))
+
+(defn front-insert-deque! [deque item]
+  (let [new-elem (deque-element item)]
+    (if (empty-deque? deque)
+      (do (set-front-ptr! deque new-elem)
+          (set-rear-ptr! deque new-elem))
+      (do (set-deque-next! new-elem (front-ptr deque))
+          (set-deque-previous! (front-ptr deque) new-elem)
+          (set-front-ptr! deque new-elem)))
+    (deque->vector deque)))
+
+(defn rear-insert-deque! [deque item]
+  (let [new-elem (deque-element item)]
+    (if (empty-deque? deque)
+      (do (set-front-ptr! deque new-elem)
+          (set-rear-ptr! deque new-elem))
+      (do (set-deque-next! (rear-ptr deque) new-elem)
+          (set-deque-previous! new-elem (rear-ptr deque))
+          (set-rear-ptr! deque new-elem)))
+    (deque->vector deque)))
+
+(defn front-delete-deque! [deque]
+  (if (empty-deque? deque)
+    (throw (IllegalArgumentException.
+            (str "DELETE called with an empty deque "
+                 (deque->vector deque))))
+    (do (if-let [next (deque-next (front-ptr deque))]
+          (do (set-deque-previous! next nil)
+              (set-front-ptr! deque next))
+          (do (set-front-ptr! deque nil)
+              (set-rear-ptr! deque nil)))
+        (deque->vector deque))))
+
+(defn rear-delete-deque! [deque]
+  (if (empty-deque? deque)
+    (throw (IllegalArgumentException.
+            (str "DELETE called with an empty deque "
+                 (deque->vector deque))))
+    (do (if-let [previous (deque-previous (rear-ptr deque))]
+          (do (set-deque-next! previous nil)
+              (set-rear-ptr! deque previous))
+          (do (set-front-ptr! deque nil)
+              (set-rear-ptr! deque nil)))
+        (deque->vector deque))))

 ;;; 3.3.3  Representing Tables

@@ -797,69 +879,59 @@
     :else (recur key (cdr records))))

 (defn lookup [key table]
-  (let [record (assok key (cdr table))]
-    (if record
-      (cdr record)
-      false)))
+  (if-let [record (assok key (cdr table))]
+    (cdr record)
+    false))

 (defn insert! [key value table]
-  (let [record (assok key (cdr table))]
-    (if record
-      (set-cdr! record value)
-      (set-cdr! table
-                (kons (kons key value) (cdr table)))))
+  (if-let [record (assok key (cdr table))]
+    (set-cdr! record value)
+    (set-cdr! table
+              (kons (kons key value) (cdr table))))
   :ok)

 (defn make-table []
   (scheme-like-list '*table*))

 (defn lookup' [key-1 key-2 table]
-  (let [subtable (assok key-1 (cdr table))]
-    (if subtable
-      (let [record (assok key-2 (cdr subtable))]
-        (if record
-          (cdr record)
-          false))
-      false)))
+  (if-let [subtable (assok key-1 (cdr table))]
+    (if-let [record (assok key-2 (cdr subtable))]
+      (cdr record)
+      false)
+    false))

 (defn insert!' [key-1 key-2 value table]
-  (let [subtable (assok key-1 (cdr table))]
-    (if subtable
-      (let [record (assok key-2 (cdr subtable))]
-        (if record
-          (set-cdr! record value)
-          (set-cdr! subtable
-                    (kons (kons key-2 value)
-                          (cdr subtable)))))
-      (set-cdr! table
-                (kons (scheme-like-list key-1
-                                        (kons key-2 value))
-                      (cdr table)))))
+  (if-let [subtable (assok key-1 (cdr table))]
+    (if-let [record (assok key-2 (cdr subtable))]
+      (set-cdr! record value)
+      (set-cdr! subtable
+                (kons (kons key-2 value)
+                      (cdr subtable))))
+    (set-cdr! table
+              (kons (scheme-like-list key-1
+                                      (kons key-2 value))
+                    (cdr table))))
   :ok)

 (defn make-table' []
   (let [local-table (scheme-like-list '*table*)
         lookup (fn [key-1 key-2]
-                 (let [subtable (assok key-1 (cdr local-table))]
-                   (if subtable
-                     (let [record (assok key-2 (cdr subtable))]
-                       (if record
-                         (cdr record)
-                         false))
-                     false)))
+                 (if-let [subtable (assok key-1 (cdr local-table))]
+                   (if-let [record (assok key-2 (cdr subtable))]
+                     (cdr record)
+                     false)
+                   false))
         insert! (fn [key-1 key-2 value]
-                  (let [subtable (assok key-1 (cdr local-table))]
-                    (if subtable
-                      (let [record (assok key-2 (cdr subtable))]
-                        (if record
-                          (set-cdr! record value)
-                          (set-cdr! subtable
-                                    (kons (kons key-2 value)
-                                          (cdr subtable)))))
-                      (set-cdr! local-table
-                                (kons (scheme-like-list key-1
-                                                        (kons key-2 value))
-                                      (cdr local-table)))))
+                  (if-let [subtable (assok key-1 (cdr local-table))]
+                    (if-let [record (assok key-2 (cdr subtable))]
+                      (set-cdr! record value)
+                      (set-cdr! subtable
+                                (kons (kons key-2 value)
+                                      (cdr subtable))))
+                    (set-cdr! local-table
+                              (kons (scheme-like-list key-1
+                                                      (kons key-2 value))
+                                    (cdr local-table))))
                   :ok)
         dispatch (fn [m]
                    (case m
@@ -872,32 +944,28 @@
 ;; Exercise 3.24
 (defn make-table'' [& {:keys [same-key?] :or {same-key? =}}]
   (let [local-table (scheme-like-list '*table*)
-        assok (fn [key records]
+        assok (fn assok [key records]
                 (cond
                   (nil? records) false
                   (same-key? key (car (car records))) (car records)
                   :else (recur key (cdr records))))
         lookup (fn [key-1 key-2]
-                 (let [subtable (assok key-1 (cdr local-table))]
-                   (if subtable
-                     (let [record (assok key-2 (cdr subtable))]
-                       (if record
-                         (cdr record)
-                         false))
-                     false)))
+                 (if-let [subtable (assok key-1 (cdr local-table))]
+                   (if-let [record (assok key-2 (cdr subtable))]
+                     (cdr record)
+                     false)
+                   false))
         insert! (fn [key-1 key-2 value]
-                  (let [subtable (assok key-1 (cdr local-table))]
-                    (if subtable
-                      (let [record (assok key-2 (cdr subtable))]
-                        (if record
-                          (set-cdr! record value)
-                          (set-cdr! subtable
-                                    (kons (kons key-2 value)
-                                          (cdr subtable)))))
-                      (set-cdr! local-table
-                                (kons (scheme-like-list key-1
-                                                        (kons key-2 value))
-                                      (cdr local-table)))))
+                  (if-let [subtable (assok key-1 (cdr local-table))]
+                    (if-let [record (assok key-2 (cdr subtable))]
+                      (set-cdr! record value)
+                      (set-cdr! subtable
+                                (kons (kons key-2 value)
+                                      (cdr subtable))))
+                    (set-cdr! local-table
+                              (kons (scheme-like-list key-1
+                                                      (kons key-2 value))
+                                    (cdr local-table))))
                   :ok)
         dispatch (fn [m]
                    (case m
@@ -912,28 +980,26 @@
 (defn lookup'' [keys table]
   (loop [keys keys
          table table]
-    (let [subtable (assok (first keys) (cdr table))]
-      (if subtable
-        (if (empty? (rest keys))
-          (cdr subtable)
-          (recur (rest keys) subtable))
-        false))))
+    (if-let [subtable (assok (first keys) (cdr table))]
+      (if (empty? (rest keys))
+        (cdr subtable)
+        (recur (rest keys) subtable))
+      false)))

 ;; FIXME
 (defn insert!'' [keys value table]
   (loop [keys keys
          table table]
-    (let [subtable (assok (first keys) (cdr table))]
-      (if subtable
-        (if (empty? (rest keys))
-          (set-cdr! subtable value)
-          (recur (rest keys) subtable))
-        (set-cdr! table
-                  (let [rkeys (reverse keys)]
-                    (kons (reduce #(scheme-like-list %2 %1)
-                                  (kons (first rkeys) value)
-                                  (rest rkeys))
-                          (cdr table)))))))
+    (if-let [subtable (assok (first keys) (cdr table))]
+      (if (empty? (rest keys))
+        (set-cdr! subtable value)
+        (recur (rest keys) subtable))
+      (set-cdr! table
+                (let [rkeys (reverse keys)]
+                  (kons (reduce #(scheme-like-list %2 %1)
+                                (kons (first rkeys) value)
+                                (rest rkeys))
+                        (cdr table))))))
   :ok)

 ;;; 3.3.4  A Simulator for Digital Circuits


This is a bit of a hack but concurrent build/testing works better with a more unique index name.

--- test/clj_ravendb/client_watching_test.clj
+++ test/clj_ravendb/client_watching_test.clj
@@ -6,13 +6,14 @@
             [clj-ravendb.config :refer :all]
             [clojure.core.async :refer [go chan thread <!! >!! <! >!]]))

-(let [client (client ravendb-url ravendb-database {:ssl-insecure? true :oauth-url oauth-url :api-key api-key})]
+(let [client (client ravendb-url ravendb-database {:ssl-insecure? true :oauth-url oauth-url :api-key api-key})
+      id (str "TestDocToWatch" (System/currentTimeMillis))
+      index-name (str "WatchedDocuments" (System/currentTimeMillis))]
   (deftest test-watching-document-puts-to-channel-on-document-change
     (testing "Watching a document puts to a channel on document change"
-      (let [id "TestDocToWatch"
-            document {:test 2 :name "WatchedDocument"}
+      (let [document {:test 2 :name "WatchedDocument"}
             ch (chan)
-            watcher (watch-documents client ["TestDocToWatch"] ch {:wait 0})
+            watcher (watch-documents client [id] ch {:wait 0})
             _ (Thread/sleep 2000)
             _ (put-document! client id document)
             _ (Thread/sleep 2000)
@@ -24,10 +25,9 @@

   (deftest test-watching-index-puts-to-channel-on-index-change
     (testing "Watching an index puts to a channel on index change"
-      (let [id "TestDocToWatch"
-            document {:test 2 :name "WatchedDocument"}
+      (let [document {:test 2 :name "WatchedDocument"}
             ch (chan)
-            watcher (watch-index client {:index "WatchedDocuments"} ch {:wait 0})
+            watcher (watch-index client {:index index-name} ch {:wait 0})
             _ (Thread/sleep 2000)
             _ (put-document! client id document)
             _ (Thread/sleep 2000)
@@ -36,14 +36,14 @@
         (is (= actual document)))))

   (use-fixtures :each (fn [f]
-                        (put-index! client {:name "WatchedDocuments"
+                        (put-index! client {:name index-name
                                             :alias "doc"
                                             :where "doc.name ==\"WatchedDocument\""
                                             :select "new { doc.name }"})
                         (bulk-operations! client [{:method "PUT"
-                                                   :id "TestDocToWatch"
+                                                   :id id
                                                    :document {:test 1 :name "WatchedDocument"}
                                                    :metadata {}}])
                         (f)
                         (bulk-operations! client [{:method "DELETE"
-                                                   :id "TestDocToWatch"}]))))
+                                                   :id id}]))))


Revert version number change

Revert version number change

--- metrics-clojure-ring/project.clj
+++ metrics-clojure-ring/project.clj
@@ -1,4 +1,4 @@
-(defproject metrics-clojure-ring "2.1.1-SNAPSHOT"
+(defproject metrics-clojure-ring "2.1.0-SNAPSHOT"
   :description "Various things gluing together metrics-clojure and ring."
   :dependencies [[cheshire "5.3.1"]
                  [metrics-clojure "2.0.0"]]


less verbose log messages

less verbose log messages

--- test/babel/test/it.cljc
+++ test/babel/test/it.cljc
@@ -297,7 +297,7 @@
                           (let [surface (morph expr)
                                 parsed (reduce concat (map :parses (parse surface)))]
                             (if (not (empty? parsed))
-                              (log/info (str "parse OK:" surface))
+                              (log/info (str surface))
                               (log/error (str "parse failed: " surface)))
                             (is (not (empty? parsed)))))
                         expressions))))))


stub out curriculum idea

stub out curriculum idea

--- test/babel/test/la.cljc
+++ test/babel/test/la.cljc
@@ -3,7 +3,7 @@
    [babel.directory :refer [models]]
    [babel.engine :as engine]
    [babel.latin.morphology :refer [analyze conjugate]]
-   [babel.latin :refer [fo generate lexicon model]]
+   [babel.latin :as la :refer [fo generate lexicon model]]
    [clojure.test :refer [deftest is]]))

 ;; https://en.wikipedia.org/wiki/Latin_conjugation#Present_indicative
@@ -85,7 +85,25 @@
     (is (or (= target "respondebat")))))

+(defn intersection [curriculum model]
+  ;; TODO implement this stub
+  model)

+(defn choose-spec [curriculum model]
+  ;; TODO: implement this stub
+  :top)

+(deftest reader2
+  (let [curriculum
+        {:nouns ["lui" "lei"]
+         :verbs :all
+         :tenses :all}

+        custom-model
+        (intersection
+         curriculum
+         la/model)

+        spec (choose-spec curriculum la/model)]
+    (is (= :top
+           spec))))


+(deftest engine-generate)

+(deftest engine-generate)

--- test/babel/test/la.cljc
+++ test/babel/test/la.cljc
@@ -1,5 +1,6 @@
 (ns babel.test.la
   (:require
+   [babel.engine :as engine]
    [babel.latin.morphology :refer [analyze conjugate]]
    [babel.latin :refer [model]]
    [clojure.test :refer [deftest is]]))
@@ -27,7 +28,9 @@
                :synsem {:sem {:subj {:pred :voi}}}})))))

-
-
-
-
+(deftest engine-generate
+  (is (= "ardetis"
+         (fo (engine/generate
+              {:root "ardēre"
+               :synsem {:sem {:subj {:pred :voi}}}}
+              model)))))


Fix a spec failure.

Fix a spec failure.

--- test/frmr/dstt_test.clj
+++ test/frmr/dstt_test.clj
@@ -20,13 +20,13 @@
   (is (= 0 (standard-deviation nil)))
   (is (= 0 (standard-deviation [5]))))

-(deftest issue-timed-request-passes-body-to-handler
+(deftest issue-timed-request-passes-response-to-handler
   (let [last-handler-string (atom "")
         test-request-invoker (fn [] {:status 200 :body "Bacon123"})
         test-handler (fn [_ body] (reset! last-handler-string body))
         future (issue-timed-request test-request-invoker 0 test-handler)
         _ @future]
-    (is (= @last-handler-string "Bacon123") "Handler receives body content.")))
+    (is (= @last-handler-string {:status 200, :body "Bacon123"}) "Handler receives body content.")))

 (deftest load-test-url-returns-expected-keys
   (let [test-request-invoker (fn [] (Thread/sleep 10) {:status 200 :body "Bacon123"})


empty? is tests, WIP

empty? is tests, WIP

--- test/is/predicates.cljs
+++ test/is/predicates.cljs
@@ -98,3 +98,9 @@
 (is (= (coll? "foo") false))
 (is (= (coll? 42) false))
 (is (= (coll? false) false))
+
+(is (= (empty? ()) true))
+(is (= (empty? '(1 2 3)) false))
+(is (= (empty? []) true))
+(is (= (empty? {}) true))
+(is (= (empty? #{}) true))


Nix completed TODO

Nix completed TODO

--- test/uruk/core_test.clj
+++ test/uruk/core_test.clj
@@ -275,5 +275,3 @@
                       "xquery version \"1.0-ml\";
                        xdmp:document-delete('/content-factory/new-doc');"
                       {:shape :single}))))
-
-;; TODO test element insertion with content creation option, e.g. quality=2


logging task id

logging task id

--- src/riak_mesos/executor.clj
+++ src/riak_mesos/executor.clj
@@ -9,6 +9,7 @@
                                               (println "Framework Registered"))
                  (launchTask [driver task-info]
                              (println "[launchTask] Sending status Update")
+                             (println "[launchTask] Task-ID" (:task-id task-info) )
                              (try
                                (exec/send-status-update driver {:task-id (:task-id task-info)
                                                                :task-state 1


Add more dom creation and manipulation functions to util.dom ns.

--- src/uxbox/util/dom.cljs
+++ src/uxbox/util/dom.cljs
@@ -82,3 +82,33 @@
   "Extract the files from event instance."
   [event]
   (get-files (get-target event)))
+
+(defn create-element
+  ([tag]
+   (.createElement js/document tag))
+  ([ns tag]
+   (.createElementNS js/document ns tag)))
+
+(defn set-html!
+  [el html]
+  (set! (.-innerHTML el) html))
+
+(defn append-child!
+  [el child]
+  (.appendChild el child))
+
+(defn get-first-child
+  [el]
+  (.-firstChild el))
+
+(defn get-tag-name
+  [el]
+  (.-tagName el))
+
+(defn get-outer-html
+  [el]
+  (.-outerHTML el))
+
+(defn query
+  [el query]
+  (.querySelector el query))


Writers don't block readers and mutations shadow clean data.

--- src/cbfg/kvs.cljs
+++ src/cbfg/kvs.cljs
@@ -18,8 +18,6 @@

 ; TODO: Track age, utilization, compaction for simulated performance.
 ; TODO: Compaction/maintenance/re-org/vaccuum abstraction.
-; TODO: Readers not blocked by writers.
-; TODO: Mutations shadow old values.
 ; TODO: Simulated slow-disks, full-disks, half-written mutation, rollback, etc.

 (defn make-kc [] ; A kc is a keys & changes map.


Removed unnecessary println

Removed unnecessary println

--- src/wireframes/renderer.clj
+++ src/wireframes/renderer.clj
@@ -23,5 +23,4 @@
 (defn calculate-illumination
   "Lighting from (1,-1,-1) direction, results in range 0 .. 255"
   [points]
-  (println points)
   (int (* 255 (/ (reduce - (apply t/normal points)) √3))))


forgot to rename

forgot to rename

--- src/runtime/q.clj
+++ src/runtime/q.clj
@@ -422,7 +422,7 @@
     ;it will only work once, unless you modify it

     (pri "(re)loaded namespace: `" (str *ns*))
-    (pri "` lexical env: `" (show-env))
+    (pri "` lexical env: `" (show-lexical-env))
     (pri "` caller form: `" '~&form)
     (pri "` caller line: `" '~(meta &form))
     (pri "` caller file: `" *file*)


Fix indentation

Fix indentation

--- src-cljs/frontend/components/insights/project.cljs
+++ src-cljs/frontend/components/insights/project.cljs
@@ -167,16 +167,16 @@
        (take 10)))

 (defn- failed-tests-card [failed-tests junit-enabled?]
-    [:div.card
-     [:div.card-header
-      [:h2
-       (popover/tooltip {:placement :top-left
-                         :body "Results pulled from the last ten failed builds."}
-         "Failed Tests")]]
-     [:div.card-body.failed-tests
-      (cond
-        (not-empty failed-tests)
-        (om/build failed-tests-table failed-tests)
+  [:div.card
+   [:div.card-header
+    [:h2
+     (popover/tooltip {:placement :top-left
+                       :body "Results pulled from the last ten failed builds."}
+       "Failed Tests")]]
+   [:div.card-body.failed-tests
+    (cond
+      (not-empty failed-tests)
+      (om/build failed-tests-table failed-tests)

         (false? junit-enabled?)
         [:span "Implement test metadata to view output. Find out more in the "


Add documentation link to chatroom integrations header

--- src-cljs/frontend/components/project_settings.cljs
+++ src-cljs/frontend/components/project_settings.cljs
@@ -639,6 +639,8 @@
          [:section
           [:article
            [:h2 "Chatroom Integrations"]
+           [:p "If you want to control chat notifications on a per branch basis, "
+                                          [:a {:href "https://circleci.com/docs/configuration#per-branch-notifications"} "see our documentation"] "."]
            [:div.chat-rooms
             (for [chat-spec [{:service "Slack"
                               :doc [:p "To get your Webhook URL, visit Slack's "


queue position is now current-track not next-track

--- cljs/sledge/core.cljs
+++ cljs/sledge/core.cljs
@@ -23,87 +23,92 @@
      :player {
               :queue {
                       :tracks []
-                      :next-track 0 ; now-playing (dec next-track)
+                      :current-track 0
                       }
               :want-play true
               :audio-el {:track-offset 0 :playing false}
               }
      }))

-(defn empty-queue [] {:tracks [] :next-track 0})
+
+(defn empty-queue [] {:tracks [] :current-track 0})
+
+(defn queue-empty?
+  "True if there is no music left and playback must stop until a track is added"
+  [queue]
+  (>= (:current-track queue) (count (:tracks queue))))
+
+(deftest queue-empty-test
+  (is (queue-empty? (empty-queue)))
+  (is (not (queue-empty? {:tracks [:a] :current-track 0})))
+  (is (queue-empty? {:tracks [:a] :current-track 1}))
+  (let [q {:tracks [:a :b :c :d] :current-track 0}]
+    (is (not (queue-empty? q)))))

 (defn queue-current-entry
-  "Return the current entry in the queue, or nil if empty"
+  "Return the current entry in the queue, or nil if at end"
   [queue]
-  (let [tracks (:tracks queue)
-        nxt (:next-track queue)]
-    (if (seq tracks)
-      (if (zero? nxt)
-        (first tracks)                  ; dubious
-        (nth tracks (dec nxt))))))
+  (if (queue-empty? queue)
+    nil
+    (let [tracks (:tracks queue)
+          cur (:current-track queue)]
+      (nth tracks cur))))

 (deftest queue-current-test
   (is (nil? (queue-current-entry (empty-queue))))
-  (let [q {:tracks [:a :b :c :d] :next-track 2}]
-    (is (= (queue-current-entry q) :b))
-    (is (= (queue-current-entry {:tracks [] :next-track 0}) nil))))
-
-
-(defn queue-empty?
-  "Have we run out of tracks to play when the current track (if any) is done?"
-  [queue]
-  (>= (:next-track queue) (count (:tracks queue))))
+  (let [q {:tracks [:a :b :c :d] :current-track 2}]
+    (is (= (queue-current-entry q) :c))
+    (is (= (queue-current-entry (empty-queue)) nil))
+    (is (= (queue-current-entry {:tracks [:a] :current-track 0}) :a))
+    (is (= (queue-current-entry {:tracks [:a] :current-track 1}) nil))))

 (defn queued-track
   [queue]
   (if (not (queue-empty? queue))
-    (nth (:tracks queue) (:next-track queue))))
-
-(deftest queue-empty-test
-  (is (queue-empty? (empty-queue)))
-  (is (not (queue-empty? {:tracks [:a] :next-track 0})))
-  (is (queue-empty? {:tracks [:a] :next-track 1}))
-  (let [q {:tracks [:a :b :c :d] :next-track 0}]
-    (is (= (queued-track q) :a))
-    (is (not (queue-empty? q)))))
+    (nth (:tracks queue) (inc (:current-track queue)))))
+
+(deftest queued-track-test
+  (let [q {:tracks [:a :b :c :d] :current-track 0}]
+    (is (= (queued-track q) :b))))

 (defn advance-queue [queue]
   (if (queue-empty? queue)
     queue
-    (update-in queue [:next-track] inc)))
+    (update-in queue [:current-track] inc)))

 (deftest advance-queue-test
-  (let [q {:tracks [:a :b :c :d] :next-track 0}
+  (let [q {:tracks [:a :b :c :d] :current-track 0}
         q1 (advance-queue q)
         q2 (-> q1 advance-queue advance-queue advance-queue advance-queue)]
-    (is (= (:next-track q1) 1))
+    (is (= (:current-track q1) 1))
     (is (nil? (queued-track q2) ))
     (is (= (queued-track q2) (queued-track (advance-queue q2))))
     (is (= (:tracks q1) (:tracks q)))))

+(defn enqueue-track [queue track]
+  (update-in queue [:tracks] conj track))
+
+(deftest enqueue-test
+  (let [q (-> (empty-queue) (enqueue-track :a) (enqueue-track :b))]
+    (is (= (queue-current-entry q) :a))
+    (is (= (:tracks q) [:a :b]))))
+

 (defn remove-from-queue [queue track]
-  (if (some #{track} (subvec (:tracks queue) (:next-track queue)))
+  (if (and (not (queue-empty? queue))
+           (some #{track} (subvec (:tracks queue) (inc (:current-track queue)))))
     (update-in queue [:tracks] (partial remove #{track}))
     queue))

 (deftest remove-from-queue-test
-  (let [q {:tracks [:a :b :c :d] :next-track 2}]
+  (let [q {:tracks [:a :b :c :d] :current-track 2}]
     ;; can only remove unplayed tracks from queue
-    (is (= (remove-from-queue q :c) {:tracks [:a :b :d] :next-track 2}))
+    (is (= (remove-from-queue q :d) {:tracks [:a :b :c] :current-track 2}))
+    (is (= (remove-from-queue q :c) q))
     (is (= (remove-from-queue q :a) q)))
   (let [q (empty-queue)]
     ;; ok to remove a track that's not there
     (is (= (remove-from-queue q :foo) q))))
-
-
-(defn enqueue-track [queue track]
-  (update-in queue [:tracks] conj track))
-
-(deftest enqueue-test
-  (let [q {:tracks [:a :b :c :d] :next-track 2}]
-    (is (= (:tracks (enqueue-track q :z)) [:a :b :c :d :z]))))
-

 (defn mmss [seconds]
   (let [m (quot seconds 60)
@@ -348,7 +353,7 @@
                           %1
                           {:state
                            {:index %2
-                            :current? (= (dec (:next-track queue)) %2)
+                            :current? (= (:current-track queue) %2)
                             }})
                (:tracks queue) (range 0 999))
           ])))))


Add Compliance Test.

Add Compliance Test.

--- test/konserve/core_test.clj
+++ test/konserve/core_test.clj
@@ -7,7 +7,51 @@
             [konserve.filestore :refer [new-fs-store delete-store]]
             [clojure.java.io :as io]))

+(defn compliance-test [store]
+  (testing "Test the core API."
+    (let [store (<!! store)]
+      (is (= (<!! (get store :foo))
+             nil))
+      (<!! (assoc store :foo :bar))
+      (is (= (<!! (get store :foo))
+             :bar))
+      (<!! (assoc-in store [:foo] :bar2))
+      (is (= :bar2 (<!! (get store :foo))))
+      (is (= :default
+             (<!! (get-in store [:fuu] :default))))
+      (is (= :bar2 (<!! (get store :foo))))
+      (is (= :default
+             (<!! (get-in store [:fuu] :default))))
+      (<!! (update-in store [:foo] name))
+      (is (= "bar2"
+             (<!! (get store :foo))))
+      (<!! (assoc-in store [:baz] {:bar 42}))
+      (is (= (<!! (get-in store [:baz :bar]))
+             42))
+      (<!! (update-in store [:baz :bar] inc))
+      (is (= (<!! (get-in store [:baz :bar]))
+             43))
+      (<!! (update-in store [:baz :bar] + 2 3))
+      (is (= (<!! (get-in store [:baz :bar]))
+             48))
+      (<!! (dissoc store :foo))
+      (is (= (<!! (get-in store [:foo]))
+             nil))
+      (<!! (bassoc store :binbar (byte-array (range 10))))
+      (<!! (bget store :binbar (fn [{:keys [input-stream]}]
+                                 (go
+                                   (is (= (map byte (slurp input-stream))
+                                          (range 10)))))))
+      (let  [{:keys [key type :konserve.core/timestamp]} (first (<!! (keys store)))]
+         (are [x y] (= x y)
+           (type (java.util.Date.)) (type timestamp)
+           true (contains? #{:foo :baz} key)
+           true (contains? #{:edn} type))))))
+
 (deftest memory-store-test
+  (compliance-test (new-mem-store)))
+
+(deftest memory-store-test
   (testing "Test the core API."
     (let [store (<!! (new-mem-store))]
       (is (= (<!! (get store :foo))


Extended CLI tests.

Extended CLI tests.

--- test/leiningen/cli_test.clj
+++ test/leiningen/cli_test.clj
@@ -29,6 +29,7 @@
   [":interactive"]          [:interactive true]
   [":allow-snapshots"
    ":allow-qualified"]      [:snapshots? true :qualified? true]
+  [":allow-all"]            [:snapshots? true :qualified? true]
   [":aggressive"]           [:aggressive? true]
   [":overwrite-backup"]     [:overwrite-backup true]
   [":no-tests"]             [:tests false]


Expected/actuals in wrong order.

Expected/actuals in wrong order.

--- test/onyx/peer/dag_test.clj
+++ test/onyx/peer/dag_test.clj
@@ -211,14 +211,14 @@

 (fact (last l-results) => :done)

-(fact (into #{} (concat a-segments b-segments))
-      => (into #{} (butlast j-results)))
-
-(fact (into #{} (concat a-segments b-segments))
-      => (into #{} (butlast k-results)))
-
-(fact (into #{} (concat a-segments b-segments c-segments))
-      => (into #{} (butlast l-results)))
+(fact (into #{} (butlast j-results))
+      => (into #{} (concat a-segments b-segments)))
+
+(fact (into #{} (butlast k-results))
+      => (into #{} (concat a-segments b-segments)))
+
+(fact (into #{} (butlast l-results))
+      => (into #{} (concat a-segments b-segments c-segments)))

 (doseq [v-peer v-peers]
   (onyx.api/shutdown-peer v-peer))


Change a non sensical test.

Change a non sensical test.

--- test/picard/test/client.clj
+++ test/picard/test/client.clj
@@ -402,25 +402,23 @@
 (defcoretest issuing-immediate-abort
   [_ ch]
   :hello-world
-  (let [downstream (client/request
-                    ["localhost" 4040]
-                    [{:path-info      "/"
-                      :request-method "POST"} nil]
-                    (fn [_]
-                      (fn [evt val]
-                        (enqueue ch [evt val]))))]
-
-    (downstream :abort nil))
-
-  (is (not-receiving-messages))
-
-  ;; Need to issue a real request to get the connection closed
-  (client/request
-   ["localhost" 4040]
-   [{:path-info      "/"
-     :request-method "GET"
-     "connection"    "close"}]
-   (fn [_] (fn [_ _]))))
+  (let [pool (client/mk-pool)
+        downstream
+        (client/request
+         ["localhost" 4040]
+         [{:path-info      "/"
+           :request-method "POST"} nil]
+         {:pool pool}
+         (fn [_]
+           (fn [evt val]
+             (when (and (not= :connected evt)
+                        (not= :abort evt))
+               (enqueue ch [evt val])))))]
+
+    (downstream :abort nil)
+
+    (is (no-msgs-for ch))
+    (picard/shutdown-pool pool)))

 (defcoretest handling-100-continue-requests-and-responses
   [ch1 ch2]


Work on code

Work on code

--- src/day8/re_frame_10x/view/code.cljs
+++ src/day8/re_frame_10x/view/code.cljs
@@ -1,7 +1,9 @@
 (ns day8.re-frame-10x.view.code
   (:require [day8.re-frame-10x.utils.re-com :as rc]
             [mranderson047.re-frame.v0v10v2.re-frame.core :as rf]
-            [day8.re-frame-10x.common-styles :as common]))
+            [day8.re-frame-10x.common-styles :as common]
+            [clojure.string :as str]
+            [day8.re-frame-10x.view.components :as components]))

 (defn render []
   (let [code-traces @(rf/subscribe [:code/current-code])]
@@ -14,9 +16,13 @@
   [rc/v-box
    :children
          [[:h2 (:title section)]
-          [:pre
-           (:code section)]]]

-        )
-
-      ]]))
+          (map-indexed
+            (fn [i line]
+              ^{:key i}
+              [rc/v-box
+               :children [[:pre (str (:form line))]
+                          ;; TODO: disable history expansion, or at least storing it in ls.
+                          [components/simple-render (:result line) [(:id section) i]]
+                          [:br]]])
+            (:code section))]])]]))


update helmsman-definition to handle 'system instead of db-conn


Fix bad agets

Fix bad agets

--- Clojure/src/ambly/core.clj
+++ Clojure/src/ambly/core.clj
@@ -563,7 +563,7 @@
             '(set! (.-require js/goog)
                (fn [name]
                  (js/CLOSURE_IMPORT_SCRIPT
-                   (aget (.. js/goog -dependencies_ -nameToPath) name)))))
+                   (js* "~{}[~{}]" (.. js/goog -dependencies_ -nameToPath) name)))))
           ;; load cljs.core, setup printing
           (repl/evaluate-form repl-env env "<cljs repl>"
             '(do
@@ -578,7 +578,7 @@
                    (when (or (not (contains? *loaded-libs* name)) reload)
                      (set! *loaded-libs* (conj (or *loaded-libs* #{}) name))
                      (js/CLOSURE_IMPORT_SCRIPT
-                       (aget (.. js/goog -dependencies_ -nameToPath) name))))))))
+                       (js* "~{}[~{}]" (.. js/goog -dependencies_ -nameToPath) name))))))))
         (let [expected-clojurescript-version (cljs.util/clojurescript-version)
               actual-clojurescript-version (:value (jsc-eval repl-env "cljs.core._STAR_clojurescript_version_STAR_"))]
           (when-not (= expected-clojurescript-version actual-clojurescript-version)


Add clean button

Add clean button


Fix non-var test to properly fail.

Fix non-var test to properly fail.

--- modules/web/test/immutant/web_test.clj
+++ modules/web/test/immutant/web_test.clj
@@ -28,7 +28,7 @@
 (deftest run-non-var
   (let [handler hello]
     (run handler)
-    (is (= "hello") (get-body url))))
+    (is (= "hello" (get-body url)))))

 (deftest mount-pedestal-service
   (mount-servlet (server) pedestal/servlet)


Hide the clean button for boot projects

Hide the clean button for boot projects

--- src/net/sekao/nightcode/builders.clj
+++ src/net/sekao/nightcode/builders.clj
@@ -7,7 +7,8 @@
   (:import [clojure.lang LineNumberingPushbackReader]
            [javafx.scene.web WebEngine]
            [java.io PipedWriter PipedReader PrintWriter]
-           [javafx.application Platform]))
+           [javafx.application Platform]
+           [javafx.beans.value ChangeListener]))

 (defn pipe-into-console! [^WebEngine engine in-pipe]
   (let [ca (char-array 256)]
@@ -98,27 +99,34 @@
             (isConsole []
               true))))))

+(defn get-selected-build-system [pane]
+  (cond
+    (.isSelected (.lookup pane "#boot")) :boot
+    (.isSelected (.lookup pane "#lein")) :lein))
+
 (defn update-builder-buttons! [pane systems]
   (when (< (count systems) 2)
     (.setManaged (.lookup pane "#boot") false)
     (.setManaged (.lookup pane "#lein") false))
+  (.addListener (-> (.lookup pane "#boot") .getToggleGroup .selectedToggleProperty)
+    (reify ChangeListener
+      (changed [this observable old-value new-value]
+        (let [show? (-> pane get-selected-build-system (= :lein))]
+          (doto (.lookup pane "#clean")
+            (.setManaged show?)
+            (.setVisible show?))))))
   (cond
     (:boot systems)
     (.setSelected (.lookup pane "#boot") true)
     (:lein systems)
     (.setSelected (.lookup pane "#lein") true)))

-(defn get-selected-build-system [runtime-state ^String project-path]
-  (when-let [pane (get-in runtime-state [:project-panes project-path])]
-    (cond
-      (.isSelected (.lookup pane "#boot")) :boot
-      (.isSelected (.lookup pane "#lein")) :lein)))
-
 (defn start-builder! [pref-state runtime-state-atom print-str cmd]
   (when-let [project-path (u/get-project-path pref-state)]
     (refresh-builder! @runtime-state-atom project-path (= cmd "repl"))
-    (when-let [system (get-selected-build-system @runtime-state-atom project-path)]
-      (start-builder-process! runtime-state-atom project-path print-str [(name system) cmd]))))
+    (when-let [pane (get-in @runtime-state-atom [:project-panes project-path])]
+      (when-let [system (get-selected-build-system pane)]
+        (start-builder-process! runtime-state-atom project-path print-str [(name system) cmd])))))

 (defn stop-builder! [pref-state runtime-state-atom]
   (when-let [project-path (u/get-project-path pref-state)]
@@ -156,7 +164,7 @@
   :args (s/cat :pane spec/pane? :systems (s/coll-of keyword? #{})))

 (fdef get-selected-build-system
-  :args (s/cat :runtime-state map? :project-path string?)
+  :args (s/cat :pane spec/pane?)
   :ret (s/nilable keyword?))

 (fdef start-builder!


Add --version cmd.

Add --version cmd.

--- src/cavm/core.clj
+++ src/cavm/core.clj
@@ -155,6 +155,7 @@
    ["-r" "--root DIR" "Set document root directory" :default docroot-default]
    ["-d" "--database FILE" "Database to use" :default db-default]
    [nil "--logfile FILE" "Log file to use" :default logfile-default]
+   [nil "--version" "Print version and exit"]
    ["-j" "--json" "Fix json"]
    ["-t" "--tmp DIR" "Set tmp dir" :default tmp-dir-default]])

@@ -234,6 +235,7 @@
         (println (s/join "\n" errors)))
       (cond
         (:help options) (println summary)
+        (:version options) (println (get pom-props "version"))
         (:json options) (cgdata/fix-json docroot)
         (:load options) (loadfiles port always arguments)
         :else (if-let [error (some mkdir [tmp docroot])]


Added new fn mapify-current-movies which returns movies in a map, e.g. ({:name Mov-Name} {:name Another-Mov})

--- src/cine/core.clj
+++ src/cine/core.clj
@@ -22,6 +22,10 @@
         (enlive/select [:a]))
     (map #(:content %))
     (flatten)))
+
+(defn mapify-current-movies
+  "Returns current movies in a map e.g. {:name 'MI5'}"
+  (map #(assoc {} :name %1) (get-current-movies)))

 (defn get-upcoming-movies
   "Returns a list of upcoming movies"


fix indentation

fix indentation

--- src/metabase/db.clj
+++ src/metabase/db.clj
@@ -41,15 +41,15 @@
   (let [conn (jdbc/get-connection {:subprotocol "h2"
                                    :subname @db-file})]
     (case direction
-      :up (com.metabase.corvus.migrations.LiquibaseMigrations/setupDatabase conn)
-      :down (com.metabase.corvus.migrations.LiquibaseMigrations/teardownDatabase conn)
+      :up    (com.metabase.corvus.migrations.LiquibaseMigrations/setupDatabase conn)
+      :down  (com.metabase.corvus.migrations.LiquibaseMigrations/teardownDatabase conn)
       :print (let [sql (com.metabase.corvus.migrations.LiquibaseMigrations/genSqlDatabase conn)]
                (log/info (str "Database migrations required\n\n"
-                           "NOTICE: Your database requires updates to work with this version of Metabase.  "
-                           "Please execute the following sql commands on your database before proceeding.\n\n"
-                           sql
-                           "\n\n"
-                           "Once you're database is updated try running the application again.\n"))))))
+                              "NOTICE: Your database requires updates to work with this version of Metabase.  "
+                              "Please execute the following sql commands on your database before proceeding.\n\n"
+                              sql
+                              "\n\n"
+                              "Once you're database is updated try running the application again.\n"))))))

 (defn setup


take in 'system for helmsman-definition

take in 'system for helmsman-definition

--- src/navigator.clj
+++ src/navigator.clj
@@ -11,10 +11,11 @@

 ;; front end

-(defn helmsman-def [db-conn]
-  [[:get "/comp-map/" (resource :allowed-methods [:get]
-                                :available-media-types ["text/html"]
-                                :handle-ok (fn [ctx] (apply str (templates/view-comp-map (data/get-comp-map db-conn ctx) ctx))))]])
+(defn helmsman-def [system]
+  (let [db-conn (:db-conn system)]
+    [[:get "/comp-map/" (resource :allowed-methods [:get]
+                                  :available-media-types ["text/html"]
+                                  :handle-ok (fn [ctx] (apply str (templates/view-comp-map (data/get-comp-map db-conn ctx) ctx))))]]))

 ;; Get functions


Thin down default configuration

Thin down default configuration

--- resources/default.clj
+++ resources/default.clj
@@ -1,7 +1 @@
-;Here we define a configuration as a Clojure map, it must be at the end of the file to be used by Shuppet.
-{
-;IAM role doc http://docs.aws.amazon.com/IAM/latest/APIReference/Welcome.html
- :Role {:RoleName $app-name
-        ; This tool http://awspolicygen.s3.amazonaws.com/policygen.html helps to create policy documents
-        }
- }
+{:Role {:RoleName $app-name}}


Replaced un-needed map-indexed with map

Replaced un-needed map-indexed with map

--- src/parbench/core.clj
+++ src/parbench/core.clj
@@ -36,9 +36,8 @@
   "Runs all HTTP Requests in a thread pool"
   (initialize-requests requests concurrency)
   (let [pool    (Executors/newFixedThreadPool concurrency)
-        tasks   (map-indexed (fn [idx request]
-                                 #(run-request request url))
-                                 (deref req-map))]
+        tasks   (map (fn [request] #(run-request request url))
+                         (deref req-map))]
       (.get (future (.invokeAll pool tasks)))
       (.shutdown pool)))


Rename scroll-states/state to touches

Rename scroll-states/state to touches

--- src/playmary/one.cljs
+++ src/playmary/one.cljs
@@ -228,8 +228,8 @@
   (mapcat< touch-data->touches (util/listen (dom/getElement canvas-id) type)))

 (defn scroll?
-  [scroll-states cur-t]
-  (let [prev-t (get scroll-states (cur-t :touch-id))]
+  [touches cur-t]
+  (let [prev-t (get touches (cur-t :touch-id))]
     (and prev-t
          (= (cur-t :type) "touchmove")
          (or (= (prev-t :type) "touchmove")
@@ -237,37 +237,37 @@
                   (= (prev-t :age) 0)
                   (> (distance (cur-t :position) (prev-t :position)) 5))))))

-(defmulti handle-touch (fn [t touch-state out-c] (:type t)))
+(defmulti handle-touch (fn [t touches out-c] (:type t)))

 (defmethod handle-touch "touchstart"
-  [{touch-id :touch-id :as t} state out-c]
-  (assoc state touch-id t))
+  [{touch-id :touch-id :as t} touches out-c]
+  (assoc touches touch-id t))

 (defmethod handle-touch "touchmove"
-  [{touch-id :touch-id :as t} state out-c]
-  (if (scroll? state t)
-    (let [{{x1 :x y1 :y} :position} (get state touch-id)
+  [{touch-id :touch-id :as t} touches out-c]
+  (if (scroll? touches t)
+    (let [{{x1 :x y1 :y} :position} (get touches touch-id)
           {{x2 :x y2 :y} :position} t]
-      (assoc state touch-id
+      (assoc touches touch-id
              (-> t (assoc :x-distance (- x1 x2)) (assoc :y-distance (- y1 y2)))))
-    (dissoc state touch-id)))
+    (dissoc touches touch-id)))

 (defmethod handle-touch "touchend"
-  [{touch-id :touch-id :as t} state out-c]
-  (assoc state touch-id t))
+  [{touch-id :touch-id :as t} touches out-c]
+  (assoc touches touch-id t))

 (defn emit-touch?
-  [{t-type :type t-age :age} state]
+  [{t-type :type t-age :age} touches]
   (or (and (or (= t-type "touchstart") (= t-type "touchend"))
            (> t-age 0))
       (= t-type "touchmove")))

 (defn touch-tick
-  [state out-c]
-  (let [{emit true keep false} (group-by emit-touch? (vals state))]
-    (onto-chan out-c (or (vals (select-keys state (map :touch-id emit))) '()) false)
+  [touches out-c]
+  (let [{emit true keep false} (group-by emit-touch? (vals touches))]
+    (onto-chan out-c (or (vals (select-keys touches (map :touch-id emit))) '()) false)
     (reduce (fn [m k] (update-in m [k :age] inc))
-            (select-keys state (map :touch-id keep))
+            (select-keys touches (map :touch-id keep))
             (map :touch-id keep))))

 (defn touch-chan
@@ -276,11 +276,11 @@
         c-touchstart (touches canvas-id :touchstart)
         c-touchmove (touches canvas-id :touchmove)
         c-touchend (touches canvas-id :touchend)]
-    (go (loop [state {}]
+    (go (loop [touches {}]
           (let [[v _] (alts! [c-touchstart c-touchmove c-touchend (timeout wait)])]
             (if (nil? v)
-              (recur (touch-tick state out-c))
-              (recur (handle-touch v state out-c))))))
+              (recur (touch-tick touches out-c))
+              (recur (handle-touch v touches out-c))))))
     out-c))

 (defn step-time


removed comic strip from what why how

removed comic strip from what why how

--- src/prais2/intro.cljs
+++ src/prais2/intro.cljs
@@ -35,7 +35,8 @@
      [:p "This site is to help people make sense of the "
       [:a {:href "https://www.ucl.ac.uk/nicor/audits/congenital/documents/datasets/NCHDA2011-14Report" :target "_blank"}
        "published survival statistics"] " about children’s heart surgery. "]
-     [:img.thumbnail.img-responsive {:src "assets/keypoint-slides.png"}]]
+     ;     [:img.thumbnail.img-responsive {:src "assets/keypoint-slides.png"}]
+     ]
     [:#intro.col-sm-12

      (key-points)


removed printlns

removed printlns

--- src/selmer/parser.clj
+++ src/selmer/parser.clj
@@ -23,9 +23,6 @@
 (declare parse parse-file expr-tag tag-content)

 (defn render [template context-map]
-  (doseq [element template]
-        (println element))
-
   (let [buf (StringBuilder.)]
     (doseq [^selmer.parser.INode element template]
         (.append buf (.render-node element context-map)))


Срочные исправления...

Срочные исправления...

--- radiolamp-6P3/src/r6p3/complex/areal_web.clj
+++ radiolamp-6P3/src/r6p3/complex/areal_web.clj
@@ -21,7 +21,7 @@
       (as-> query
           (if all
             query
-            (rc/com-pred-page* (dec page) page-size)))
+            (rc/com-pred-page* query (dec page) page-size)))

       (as-> query
           (let [fts-query (clojure.string/trim fts-query)]


Hint type and assert not nil on delete-connection parameter

--- src/sqls/stor.clj
+++ src/sqls/stor.clj
@@ -61,7 +61,8 @@

 (defn delete-connection!
   "Delete connection by name."
-  [name]
+  [^String name]
+  (assert (not= name nil))
   (let [connections (load-connections!)
         connections-without-deleted (remove #(= (% "name") name) connections)]
     (save-connections! connections-without-deleted)


Increment version to 3.2.1

Increment version to 3.2.1

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(def pdb-version "3.2.1-SNAPSHOT")
+(def pdb-version "3.2.1")

 (defn deploy-info
   "Generate deployment information from the URL supplied and the username and


upgraded the version compojure, ring/ring-core and ring/ring-jetty-adapter to a newer version

--- project.clj
+++ project.clj
@@ -5,9 +5,9 @@
             :url "http://opensource.org/licenses/MIT"}
   :dependencies [[org.clojure/clojure "1.6.0"]
                  [environ "1.0.0"]
-                 [compojure "1.1.8"]
-                 [ring/ring-jetty-adapter "1.2.2"]
-                 [ring/ring-core "1.3.1"]
+                 [compojure "1.4.0"]
+                 [ring/ring-core "1.3.2"]
+                 [ring/ring-jetty-adapter "1.3.2"]
                  [ragtime "0.5.2"]
                  [yesql "0.4.2"]
                  [org.postgresql/postgresql "9.4-1201-jdbc41"]


remove unused plugins

remove unused plugins

--- project.clj
+++ project.clj
@@ -32,7 +32,6 @@
   :plugins [[lein-ring "0.8.13"]
             [ragtime/ragtime.lein "0.3.7"]
             [lein-environ "1.0.0"]
-            [lein-beanstalk "0.2.7"]
             [lein-cljsbuild "1.0.3"]]
   :ragtime {:migrations ragtime.sql.files/migrations
             :database "jdbc:postgresql://localhost/dreiser"}


upgrade dependencies

upgrade dependencies

Upgrade all dependencies to the latest versions

--- project.clj
+++ project.clj
@@ -11,32 +11,32 @@
   :min-lein-version "2.0.0"

   :dependencies [[org.clojure/clojure "1.8.0"]
-                 [org.clojure/tools.logging "0.3.1"]
+                 [org.clojure/tools.logging "0.4.0"]

                  [circleci/clj-yaml "0.5.5"]

-                 [prismatic/schema "1.1.3"]
+                 [prismatic/schema "1.1.6"]

-                 [clj-time "0.12.2"]
+                 [clj-time "0.13.0"]

                  [ring-basic-authentication "1.0.5"]
-                 [clj-http "3.3.0"]
-                 [cheshire "5.6.3"]]
+                 [clj-http "3.6.1"]
+                 [cheshire "5.7.1"]]

   :plugins [[lein-cloverage "1.0.9"]]

-  :profiles {:dev {:dependencies [[ring/ring-core "1.5.0"]
-                                  [ring/ring-devel "1.5.0"]
-                                  [ring/ring-mock "0.3.0" :exclusions [ring/ring-codec]]
+  :profiles {:dev {:dependencies [[ring/ring-core "1.6.1"]
+                                  [ring/ring-devel "1.6.1"]
+                                  [ring/ring-mock "0.3.1"]
                                   [javax.servlet/servlet-api "2.5"]
-                                  [org.slf4j/slf4j-api "1.7.21"]
-                                  [org.slf4j/jul-to-slf4j "1.7.21"]
-                                  [org.slf4j/jcl-over-slf4j "1.7.21"]
-                                  [org.apache.logging.log4j/log4j-api "2.7"]
-                                  [org.apache.logging.log4j/log4j-core "2.7"]
-                                  [org.apache.logging.log4j/log4j-slf4j-impl "2.7"]
+                                  [org.slf4j/slf4j-api "1.7.25"]
+                                  [org.slf4j/jul-to-slf4j "1.7.25"]
+                                  [org.slf4j/jcl-over-slf4j "1.7.25"]
+                                  [org.apache.logging.log4j/log4j-api "2.8.2"]
+                                  [org.apache.logging.log4j/log4j-core "2.8.2"]
+                                  [org.apache.logging.log4j/log4j-slf4j-impl "2.8.2"]
                                   [criterium "0.4.4"]
-                                  [com.newrelic.agent.java/newrelic-api "3.33.0"]]}}
+                                  [com.newrelic.agent.java/newrelic-api "3.40.0"]]}}

   :test-selectors {:default (complement :performance)
                    :performance :performance


Fix project.clj

Fix project.clj

--- project.clj
+++ project.clj
@@ -35,5 +35,6 @@
                  :welcome (println "Type (dev) to start")}

   :profiles {:dev {:dependencies [[org.clojure/clojure "1.8.0"]
-                                  [org.clojure/tools.namespace "0.2.10"]]
+                                  [org.clojure/tools.namespace "0.2.10"]
+                                  [reloaded.repl "0.2.1"]]
                    :source-paths ["dev"]}})


Added core.incubator dependency

Added core.incubator dependency

Signed-off-by: Laurent Petit <35308fdebc253c376da9c08cd3eb3d3f02225328@gmail.com>

--- project.clj
+++ project.clj
@@ -5,6 +5,7 @@
             :distribution :repo
             :comments "same as Clojure"}
   :dependencies [[org.clojure/clojure           "1.3.0"]
+                 [org.clojure/core.incubator "0.1.1"]
                  [org.lpetit/net.cgrand.parsley "0.0.12.STABLE001"]
                  [org.lpetit/net.cgrand.regex   "0.0.4.STABLE001"]]
   :warn-on-reflection true)


Bump version in project.clj as well.

Bump version in project.clj as well.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject dakait "0.1.0"
+(defproject dakait "0.1.1"
   :description "A tool to download files from your FTP/SFTP servers in an organized way."
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.onyxplatform/onyx-dashboard "0.9.7.0-alpha17"
+(defproject org.onyxplatform/onyx-dashboard "0.9.7.0-SNAPSHOT"
   :description "Dashboard for the Onyx distributed computation system"
   :url "http://github.com/lbradstreet/onyx-dashboard"
   :license {:name "Eclipse Public License"


Add Codox configurations

Add Codox configurations

--- project.clj
+++ project.clj
@@ -19,10 +19,13 @@
                                   [criterium "0.4.3"]
                                   [cavia "0.2.1"]
                                   [primitive-math "0.1.4"]]
+                   :plugins [[lein-codox "0.9.5"]]
                    :global-vars {*warn-on-reflection* true}}
              :uberjar {:aot :all}}
   :main cljam.main
   :aot [cljam.main]
   :bin {:name "cljam"}
+  :codox {:namespaces [#"^cljam\.(?!cli)(?!lsb)(?!main)(?!util)[^\.]+$"]
+          :source-uri "https://github.com/chrovis/cljam/blob/{version}/{filepath}#L{line}"}
   :repl-options {:init-ns user}
   :signing {:gpg-key "developer@xcoo.jp"})


Release version 0.8.1.2.

Release version 0.8.1.2.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject onyx-plugin/lein-template "0.8.2.2-SNAPSHOT"
+(defproject onyx-plugin/lein-template "0.8.1.2"
   :description "A Leiningen 2.0 template for new Onyx plugins"
   :url "http://github.com/MichaelDrogalis/onyx-plugin"
   :license {:name "Eclipse Public License"


Update ezbake to 0.3.11

Update ezbake to 0.3.11

Updates sine 0.3.6:

 * Fixes for service account handling on package
   and source based installations
 * Update default startup timeout to 180 seconds
 * Remove EL-5 as a build target
 * Add support for systemd tmpfiles.d configs

 * On package upgrade, update service account information (home dir,
   group membership, etc) if necessary

 * Packaging: Fix varlibdir to use real_name for PE (so its
   app_data/lib/puppetdb, not app_data/lib/pe-puppetdb)
 * Packaging: In Debian, ignore service stops for services that are already
   stopped during upgrade.
 * Packaging: In Debian, add a prerm section to stop services gracefully on a
   failed upgrade.
 * Packaging: Fixed lots of inconsistencies between PE and FOSS, now we are
   closer then ever.
 * Packaging: Users were being created using the old FOSS based homedirs.
 * Packaging: Removal of log files for FOSS during package uninstall removed old
   non-AIO log file dirs.
 * Packaging: sharedstatedir and localstatedir were no longer used, app_data is
   preferred so these have been removed.
 * Packaging: call install.sh in PE using exec
 * Packaging: Debian with PE was not using the group to set permissions, default
   file and init set correctly.
 * Packaging: Tighten up permissions on application data directories, no longer
   world-readable.

 * Packaging: Correct termini install.sh rubylibdir fallback detection for
   source based builds to work.
 * Packaging: Make rubylibdir setting in packaging consistent between PE/FOSS
   and Debian/Redhat.
 * Packaging: Fix: rundir should be created by the rpm package on install/upgrade
 * Packaging: Make install.sh use "localstatedir" variable instad of hardcoding '/var'

 * Packaging: Add Ubuntu Precise and SLES for PE builds

--- project.clj
+++ project.clj
@@ -94,7 +94,7 @@
              :ezbake {:dependencies ^:replace [[puppetlabs/puppetserver ~ps-version]
                                                [puppetlabs/trapperkeeper-webserver-jetty9 ~tk-jetty-version]
                                                [org.clojure/tools.nrepl "0.2.3"]]
-                      :plugins [[puppetlabs/lein-ezbake "0.3.6"]]
+                      :plugins [[puppetlabs/lein-ezbake "0.3.11"]]
                       :name "puppetserver"}
              :uberjar {:aot [puppetlabs.trapperkeeper.main]
                        :dependencies [[puppetlabs/trapperkeeper-webserver-jetty9 ~tk-jetty-version]]}


Version 2.0.6

Version 2.0.6

--- project.clj
+++ project.clj
@@ -1,10 +1,10 @@
-(defproject dda/dda-managed-ide "2.0.6-SNAPSHOT"
+(defproject dda/dda-managed-ide "2.0.6"
   :description "module to install and configure ide based on ubuntu vm."
   :url "https://www.domaindrivenarchitecture.org"
   :license {:name "Apache License, Version 2.0"
             :url "https://www.apache.org/licenses/LICENSE-2.0.html"}
-  :dependencies [[dda/dda-pallet "2.2.1"]
-                 [dda/dda-managed-vm "2.2.3"]]
+  :dependencies [[dda/dda-pallet "2.2.2"]
+                 [dda/dda-managed-vm "2.3.0"]]
   :source-paths ["main/src"]
   :resource-paths ["main/resources"]
   :repositories [["snapshots" :clojars]


https

https

--- project.clj
+++ project.clj
@@ -36,7 +36,7 @@
     ;; Environ - Get environment settings from different sources https://github.com/weavejester/environ
   ]

-  :repositories [["jfreechart" "http://central.maven.org/maven2/"]]
+  :repositories [["jfreechart" "https://central.maven.org/maven2/"]]

   ;; All profile plugins
   :plugins [


actioncli version

actioncli version

--- project.clj
+++ project.clj
@@ -23,7 +23,7 @@
                  [org.clojure/tools.logging "0.3.1"]

                  ;; command line
-                 [com.zensols.tools/actioncli "0.0.6"]
+                 [com.zensols.tools/actioncli "0.0.8"]

                  ;; dev
                  [com.zensols.gui/tabres "0.0.5"]


bump clojure/closure deps

bump clojure/closure deps

--- project.clj
+++ project.clj
@@ -17,13 +17,13 @@
    [com.google.errorprone/error_prone_annotations "2.1.3"]
    [com.google.code.findbugs/jsr305 "3.0.2"]]

+  ;; FIXME: not actually using any 1.10 features since I don't want
+  ;; not sure how to best handle this in a library situation
+  ;; can't use :scope "provided" since I otherwise need to track
+  ;; it manually in the npm launcher which just installs shadow-cljs
+  ;; and would be missing clojure then
   :dependencies
-  [[org.clojure/clojure "1.9.0"]
-   ;; java9, not required for java8
-   ;; [javax.xml.bind/jaxb-api "2.3.0"]
-
-   ;; [org.clojure/spec.alpha "0.1.108"]
-   ;; [org.clojure/core.specs.alpha "0.1.10"]
+  [[org.clojure/clojure "1.10.0"]

    [org.clojure/data.json "0.2.6"]
    [org.clojure/tools.cli "0.3.7"]
@@ -42,7 +42,7 @@

    ;; [com.google.javascript/closure-compiler-unshaded "v20180319"]
    ;;  v20180506
-   [com.google.javascript/closure-compiler-unshaded "v20181125"]
+   [com.google.javascript/closure-compiler-unshaded "v20190121"]

    [thheller/shadow-util "0.7.0"]
    [thheller/shadow-client "1.3.2"]


going to release

going to release

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject dda/dda-user-crate "1.0.0"
+(defproject dda/dda-user-crate "1.0.1-SNAPSHOT"
   :description "A crate to handle users"
   :url "https://www.domaindrivenarchitecture.org"
   :license {:name "Apache License, Version 2.0"


Add `test-all` alias for test with different clojure versions.

--- project.clj
+++ project.clj
@@ -23,7 +23,10 @@
   :profiles
   {:dev {:dependencies [[org.clojure/tools.namespace "0.2.11"]
                         [funcool/promesa "1.8.1"]]
-
+         :aliases {"test-all" ["with-profile" "dev,1.9:dev,1.7:dev" "test"]}
          :global-vars {*warn-on-reflection* false}
          :plugins [[funcool/codeina "0.5.0"]
-                   [lein-ancient "0.6.10"]]}})
+                   [lein-ancient "0.6.10"]]}
+   :1.9 {:dependencies [[org.clojure/clojure "1.9.0-alpha16"]]}
+   :1.7 {:dependencies [[org.clojure/clojure "1.7.0"]]}})
+


for some reason, the merge did not modify project.clj. Changed Clojure versions.

--- project.clj
+++ project.clj
@@ -1,6 +1,6 @@
 (defproject fnparse "2.2.7"
   :description "A library for creating functional parsers in Clojure."
-  :dependencies [[org.clojure/clojure "1.1.0-master-SNAPSHOT"]
-                 [org.clojure/clojure-contrib "1.1.0-master-SNAPSHOT"]]
+  :dependencies [[org.clojure/clojure "1.2.0"]
+                 [org.clojure/clojure-contrib "1.2.0"]]
   :dev-dependencies [[lein-clojars "0.5.0"]])


🔧 Always produce stack traces in dev and test mode

Why:
- The JVM stops generating stack traces for exceptions which are thrown
  more than a few times. In Clojure development this seems to happen
  more often than with Java, because the JVM instances is reused for
  multiple test runs.

--- project.clj
+++ project.clj
@@ -73,10 +73,12 @@
                                           [ring/ring-devel "1.7.1" :exclusions [ns-tracker]]
                                           [ring/ring-mock "0.4.0"]]

-                           :jvm-opts ["-Dconf=dev-config.edn"]
+                           :jvm-opts ["-Dconf=dev-config.edn"
+                                      "-XX:-OmitStackTraceInFastThrow"]
                            :repl-options {:init-ns user}
                            :injections [(require 'pjstadig.humane-test-output)
                                         (pjstadig.humane-test-output/activate!)]}
-             :project/test {:jvm-opts ["-Dconf=test-config.edn"]}
+             :project/test {:jvm-opts ["-Dconf=test-config.edn"
+                                       "-XX:-OmitStackTraceInFastThrow"]}
              :profiles/dev {}
              :profiles/test {}})


Update Cljsjs React dependency

Update Cljsjs React dependency

The latest Cljsjs React build adds missing nativeEvent property for
SyntheticEvent object on the extern file.

--- project.clj
+++ project.clj
@@ -5,8 +5,8 @@

   :dependencies [[org.clojure/clojure "1.7.0"]
                  [org.clojure/clojurescript "1.7.145"]
-                 [cljsjs/react-dom "15.0.1-0"]
-                 [cljsjs/react-dom-server "15.0.1-0"]]
+                 [cljsjs/react-dom "15.0.1-1"]
+                 [cljsjs/react-dom-server "15.0.1-1"]]

   :plugins [[lein-cljsbuild "1.1.0"]
             [codox "0.9.0"]]


Version 0.6.1-SNAPSHOT

Version 0.6.1-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject pandect "0.6.0"
+(defproject pandect "0.6.1-SNAPSHOT"
   :description "Message Digest and Checksum Library for Clojure"
   :url "https://github.com/xsc/pandect"
   :license {:name "MIT License"


lein-release plugin: preparing 0.17 release

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject onix "0.17-SNAPSHOT"
+(defproject onix "0.17"
   :description "Onix service"
   :url "http://wikis.in.nokia.com/NokiaMusicArchitecture/Onix"


Version 1.1.3

Version 1.1.3

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.zalando.stups/friboo "1.1.3-SNAPSHOT"
+(defproject org.zalando.stups/friboo "1.1.3"
   :description "A utility library to write microservices in clojure."
   :url "https://github.com/zalando-stups/friboo"


Update project dependencies

Update project dependencies

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@
                            [clojurewerkz/elastisch "2.0.0"]
                            [cljs-http "0.1.16"]
                            [clj-http "1.0.0"]
-                           [org.clojure/core.async "0.1.267.0-0d7780-alpha"]
+                           [org.clojure/core.async "0.1.338.0-5c5012-alpha"]
                            [overtone/at-at "1.2.0"]
                            [garden "1.2.1"]
                            [org.clojure/data.json "0.2.5"]


Version 5.3.5-SNAPSHOT

Version 5.3.5-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(def ps-version "5.3.4")
+(def ps-version "5.3.5-SNAPSHOT")
 (def jruby-1_7-version "1.7.27-1")
 (def jruby-9k-version "9.1.16.0-1")


obb-rules 1.11

obb-rules 1.11


Release version 0.13.4.0.

Release version 0.13.4.0.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject onyx-app/lein-template "0.13.3.1-SNAPSHOT"
+(defproject onyx-app/lein-template "0.13.4.0"
   :description "Onyx Leiningen application template"
   :url "https://github.com/onyx-platform/onyx-template"
   :license {:name "MIT License"


upping to 0.1.2-SNAPSHOT

upping to 0.1.2-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject chazel "0.1.1"
+(defproject chazel "0.1.2-SNAPSHOT"
   :description "hazelcast bells and whistles under the clojure belt"
   :url "https://github.com/tolitius/chazel"
   :license {:name "Eclipse Public License"
@@ -9,7 +9,7 @@
   :profiles {:dev {:repl-options {:init-ns chazel}}}

   :dependencies [[org.clojure/clojure "1.6.0"]
-                 [cprop "0.1.0"]
+                 [cprop "0.1.1-SNAPSHOT"]
                  [org.clojure/tools.logging "0.3.1"]
                  [com.hazelcast/hazelcast "3.4.2"]
                  [com.hazelcast/hazelcast-client "3.4.2"]


Upgrade Clojure and ClojureScript versions

--- project.clj
+++ project.clj
@@ -2,10 +2,10 @@
   :description "2D Visibility"
   :url "https://toblux.github.io/visibility-2d/"

-  :dependencies [[org.clojure/clojure "1.7.0"]
-                 [org.clojure/clojurescript "1.7.170"]]
+  :dependencies [[org.clojure/clojure "1.8.0"]
+                 [org.clojure/clojurescript "1.8.51"]]

-  :plugins [[lein-cljsbuild "1.1.1"]]
+  :plugins [[lein-cljsbuild "1.1.3"]]

   :clean-targets ^{:protect false} ["target" "resources/public/js"]


lein-release plugin: bumped version from 0.40 to 0.41-SNAPSHOT for next development cycle

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject lister "0.40"
+(defproject lister "0.41-SNAPSHOT"
   :description "Lists environments and applications for cloud deployment"
   :license  "https://github.com/mixradio/mr-lister/blob/master/LICENSE"


Version 1.0.9-SNAPSHOT

Version 1.0.9-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject mr-clojure/lein-template "1.0.8"
+(defproject mr-clojure/lein-template "1.0.9-SNAPSHOT"
   :description "MixRadio clojure skeleton template for Leiningen. Generates a Clojure HTTP REST service in the style of MixRadio"
   :url "http://github.com/mixradio/mr-clojure"
   :eval-in-leiningen true


set upper limit for heap size on JVM when running tests

--- project.clj
+++ project.clj
@@ -59,6 +59,12 @@
   :profiles {:dev {:dependencies [[clj-http "1.0.1"]                         ; HTTP Client
                                   [expectations "2.0.16"]   ; unit tests
                                   [ring/ring-mock "0.2.0"]]
-                   :jvm-opts ["-Dlogfile.path=target/log -XX:PermSize=64m -XX:MaxPermSize=256m -XX:+CMSClassUnloadingEnabled -XX:+UseConcMarkSweepGC"]}
+                   :jvm-opts ["-Dlogfile.path=target/log"
+                              "-Xms1024m"                     ; give JVM a decent heap size to start with
+                              "-Xmx2048m"                     ; hard limit of 2GB so we stop hitting the 4GB container limit on CircleCI
+                              "-XX:PermSize=64m"              ; start with a little more PermGen space
+                              "-XX:MaxPermSize=128m"          ; a little more headroom for PermGen
+                              "-XX:+CMSClassUnloadingEnabled" ; let Clojure's dynamically generated temporary classes be GC'ed from PermGen
+                              "-XX:+UseConcMarkSweepGC"]}     ; Concurrent Mark Sweep GC needs to be used for Class Unloading (above)
              :uberjar {:aot :all
                        :prep-tasks ["npm" "gulp" "javac" "compile"]}})


Cleanup - we don't actually need the Frege compiler dependency in the plugin, just in the subprocess dependencies.

--- project.clj
+++ project.clj
@@ -3,8 +3,4 @@
   :url "https://github.com/seancorfield/lein-fregec"
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
-  :eval-in :leiningen
-  ;; the plugin depends on the Frege runtime in order to drive the
-  ;; compiler, but the subprocess-profile used in the plugin also
-  ;; has to manipulate the dependencies so make sure to keep this in sync!
-  :dependencies [[com.theoryinpractise.frege/frege "3.22.324-g630677b"]])
+  :eval-in :leiningen)


Version 0.8.7-SNAPSHOT

Version 0.8.7-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject grafter/grafter "0.8.6"
+(defproject grafter/grafter "0.8.7-SNAPSHOT"
   :description "Tools for the hard graft of data processing"
   :url "http://grafter.org/"
   :license {:name "Eclipse Public License - v1.0"


Version 0.3.9

Version 0.3.9

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject com.lemondronor/turboshrimp "0.3.9-SNAPSHOT"
+(defproject com.lemondronor/turboshrimp "0.3.9"
   :description "Clojure API for the Parrot AR.Drone."
   :url "https://github.com/wiseman/turboshrimp"
   :license {:name "MIT License"


Version 1.5.2

Version 1.5.2

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject puppetlabs/lein-ezbake "1.5.2-SNAPSHOT"
+(defproject puppetlabs/lein-ezbake "1.5.2"
   :description "A system for building packages for trapperkeeper-based applications"
   :url "https://github.com/puppetlabs/ezbake"
   :license {:name "Apache License 2.0"


Bump versions

Bump versions

--- project.clj
+++ project.clj
@@ -4,20 +4,20 @@
   :license {:name "MIT License"
             :url "http://github.com/vitalreactor/derive/blob/master/LICENSE"}
   :dependencies [[org.clojure/clojure "1.6.0"]
-                 [org.clojure/clojurescript "0.0-2268"]
+                 [org.clojure/clojurescript "0.0-2311"]
                  [im.chit/purnam.native "0.4.3"]
-                 [prismatic/schema "0.2.2"]
+                 [prismatic/schema "0.2.6"]
                  [reagent "0.4.2"]
                  [com.vitalreactor/figwheel "0.1.4-SNAPSHOT"]
-                 [sablono "0.2.18"]
+                 [sablono "0.2.22"]
                  [clj-stacktrace "0.2.7"]
-                 [vitalreactor/om "0.6.3.1"]]
+                 [om "0.7.1"]]
   :plugins [[lein-cljsbuild "1.0.3"]
             [lein-exec "0.3.3"]
             [lein-externs "0.1.3"]
             [clj-stacktrace "0.2.7"]
             [com.vitalreactor/lein-figwheel "0.1.4-SNAPSHOT"]
-            [com.cemerick/clojurescript.test "0.2.2"]
+            [com.cemerick/clojurescript.test "0.3.1"]
             [com.cemerick/austin "0.1.4"]]
   :profiles
   {:dev {:cljsbuild


Remove plugin.

Remove plugin.

--- project.clj
+++ project.clj
@@ -75,7 +75,6 @@
         [lein-ancient "0.6.8-SNAPSHOT"] ; Check for outdated dependencies https://github.com/xsc/lein-ancient
         [lein-spell "0.1.0"] ; Catch spelling mistakes in docs and docstrings https://github.com/cldwalker/lein-spell
         [lein-deps-tree "0.1.2"] ; Print a tree of project dependencies https://github.com/the-kenny/lein-deps-tree
-        [lein-cljfmt "0.3.0"] ; Code formatting https://github.com/weavejester/cljfmt
         [venantius/ultra "0.3.4"] ; Enhancement's to Leiningen's REPL https://github.com/venantius/ultra
         [venantius/yagni "0.1.4"] ; Dead code finder https://github.com/venantius/yagni
       ]


latest deps

latest deps

--- project.clj
+++ project.clj
@@ -13,16 +13,16 @@
                  [clj-http "3.5.0"]
                  [me.raynes/fs "1.4.6"]
                  [markdown-clj "0.9.99"]
-                 [cheshire "5.7.0"]
+                 [cheshire "5.7.1"]
                  [cljsjs/moment "2.17.1-0"]
                  [com.drewnoakes/metadata-extractor "2.10.1"]
                  [ubergraph "0.3.1"]
                  [factual/geo "1.0.0"]
                  [camel-snake-kebab "0.4.0"]
-                 [matthiasn/systems-toolbox "0.6.7"]
+                 [matthiasn/systems-toolbox "0.6.8"]
+                 [matthiasn/systems-toolbox-sente "0.6.14"]
                  [reagent "0.6.1"]
                  [capacitor "0.6.0"]
-                 [matthiasn/systems-toolbox-sente "0.6.14"]
                  [re-frame "0.9.2"]
                  [clucy "0.4.0"]
                  [seesaw "1.4.5"]
@@ -46,7 +46,7 @@
   :jvm-opts ["-XX:-OmitStackTraceInFastThrow"]

   :profiles {:uberjar {:aot :all}
-             :dev     {:dependencies [[re-frisk "0.4.4"]]}}
+             :dev     {:dependencies [[re-frisk "0.4.5"]]}}

   :plugins [[lein-cljsbuild "1.1.5"
              :exclusions [org.apache.commons/commons-compress]]
@@ -54,7 +54,7 @@
             [lein-sassy "1.0.8"
              :exclusions [org.clojure/clojure org.codehaus.plexus/plexus-utils]]
             [com.jakemccrary/lein-test-refresh "0.19.0"]
-            [test2junit "1.2.5"]
+            [test2junit "1.2.6"]
             [lein-doo "0.1.7"]
             [lein-codox "0.10.3"]]


remove comments

remove comments

--- project.clj
+++ project.clj
@@ -9,8 +9,8 @@

   :deploy-repositories {"releases" {:url "https://repo.clojars.org" :creds :gpg}}

-  :release-tasks [;; ["vcs" "assert-committed"]
-                  ;; ["shell" "make" "docker-test"]
+  :release-tasks [["vcs" "assert-committed"]
+                  ["shell" "make" "docker-test"]
                   ["shell" "make" "gh-build"]
                   ["change" "version" "leiningen.release/bump-version" "release"]
                   ["vcs" "commit"]


start working on 1.7.2

start working on 1.7.2

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject babel "1.7.1"
+(defproject babel "1.7.2-SNAPSHOT"
   :description "A Clojure library for generation of expressions from grammars and lexicons."
   :url "http://github.com/ekoontz/babel"
   :license {:name "Proprietary: all rights reserved. No distribution allowed without consent of owners."}


Fix comment

Fix comment

--- project.clj
+++ project.clj
@@ -21,7 +21,7 @@
                                   [org.clojure/core.rrb-vector
                                    ;; TODO Added this when I upgraded to
                                    ;;      midje 1.9.3 -- which caused many
-                                   ;;      boxed arithmetic warnings.
+                                   ;;      boxed math warnings.
                                    "0.0.13"
                                    :scope "test"]
                                   [midje "1.9.3"


Use correct name for jogl: jogl-all.

Use correct name for jogl: jogl-all.

--- project.clj
+++ project.clj
@@ -10,7 +10,7 @@
                  [quil/processing-core "2.1.2"]
                  [quil/processing-pdf "2.1.2"]
                  [quil/processing-dxf "2.1.2"]
-                 [quil/jogl-fat "2.1.5"]
+                 [quil/jogl-all-fat "2.1.5"]
                  [quil/gluegen-rt-fat "2.1.5"]
                  [com.lowagie/itext "2.1.7"]]
   :aot [quil.helpers.applet-listener quil.applet])


upgrade clojure

upgrade clojure

--- project.clj
+++ project.clj
@@ -3,13 +3,11 @@
   :url "https://github.com/AndreaCrotti/just-married"
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
-  :dependencies [[org.clojure/clojure "1.8.0"]
-                 [clojure-future-spec "1.9.0-beta4"]
+  :dependencies [[org.clojure/clojure "1.9.0"]
                  ;; ring dependencies
                  [ring "1.6.3"]
                  [ring/ring-defaults "0.3.1"]
                  [compojure "1.6.0"]
-
                  [ch.qos.logback/logback-classic "1.2.3" :exclusions [org.slf4j/slf4j-api]]
                  ;; various integrations
                  [racehub/stripe-clj "0.3.5"]


adding yaml

adding yaml

--- project.clj
+++ project.clj
@@ -14,6 +14,7 @@
                  [org.clojure/core.incubator "0.1.2"]
                  [slingshot "0.10.3"]
                  [clj-http "0.6.4"]
+                 [clj-yaml "0.4.0"]
                  [compojure "1.1.1"]
                  [ring "1.0.2"]
                  [org.clojure/data.json "0.2.1"]


Bump dataflow to most recent

Bump dataflow to most recent

--- project.clj
+++ project.clj
@@ -5,7 +5,7 @@
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[cheshire "5.6.3"]
                  [clj-stacktrace "0.2.8"]
-                 [com.google.cloud.dataflow/google-cloud-dataflow-java-sdk-all "1.6.0"]
+                 [com.google.cloud.dataflow/google-cloud-dataflow-java-sdk-all "1.6.1"]
                  [com.taoensso/nippy "2.12.1"]
                  [org.clojure/clojure "1.8.0"]
                  [org.clojure/math.combinatorics "0.1.3"]


Release version 0.9.7.0-beta1.

Release version 0.9.7.0-beta1.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject onyx-cheat-sheet "0.9.7.0-SNAPSHOT"
+(defproject onyx-cheat-sheet "0.9.7.0-beta1"
   :description "Cheat sheet for Onyx"
   :url "https://github.com/onyx-platform/onyx-cheat-sheet"
   :license {:name "Eclipse Public License"
@@ -16,7 +16,7 @@
                  [compojure "1.4.0"]
                  [enlive "1.1.6"]
                  ^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
-                 [org.onyxplatform/onyx "0.9.7-alpha21"]
+                 [org.onyxplatform/onyx "0.9.7-beta1"]
                  [prismatic/om-tools "0.4.0"]
                  [markdown-clj "0.9.77"]
                  [org.omcljs/om "0.9.0"]


start unit tests

start unit tests

--- project.clj
+++ project.clj
@@ -4,6 +4,7 @@
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[org.clojure/clojure "1.8.0"]
+                 [expectations "2.1.8"]
                  [javax.servlet/servlet-api "2.5"]
                  [http-kit "2.2.0-beta1"]
                  [ring/ring-devel "1.5.0"]


lein-release plugin: bumped version from 0.61 to 0.62-SNAPSHOT for next development cycle

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject shuppet "0.61"
+(defproject shuppet "0.62-SNAPSHOT"
   :description "Shuppet service"
   :url "http://wikis.in.nokia.com/NokiaMusicArchitecture/Shuppet"


Compile java w/ debug output

Compile java w/ debug output

--- project.clj
+++ project.clj
@@ -12,6 +12,7 @@

   :source-path      "src/clojure"
   :java-source-path "src/java"
+  :javac-options    {:debug "true"}
   :aot              [picard.log4j.CommonLogFormatLayout
                      picard.log4j.VerboseLayout
                      picard.exceptions.PoolFullException]


(SERVER-2431) Take up bouncycastle 1.60

(SERVER-2431) Take up bouncycastle 1.60

Includes minor security fixes

--- project.clj
+++ project.clj
@@ -20,7 +20,7 @@
   :pedantic? :abort

   :dependencies [[org.clojure/tools.logging]
-                 [org.bouncycastle/bcpkix-jdk15on "1.59"]
+                 [org.bouncycastle/bcpkix-jdk15on "1.60"]
                  [commons-codec]
                  [clj-time]
                  [puppetlabs/i18n]


Bump version

Bump version

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject salava "2.5.0-SNAPSHOT"
+(defproject salava "2.5.0"
   :description "Salava application server"
   :url "http://salava.org"
   :license {:name "Apache 2.0"


Version 0.4.56-SNAPSHOT

Version 0.4.56-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject yetibot.core "0.4.55"
+(defproject yetibot.core "0.4.56-SNAPSHOT"
   :description "Core yetibot utilities, extracted for shared use among yetibot
                 and its various plugins"
   :url "https://github.com/yetibot/yetibot.core"


Upgrade aeron back to 1.2.5.

Upgrade aeron back to 1.2.5.

--- project.clj
+++ project.clj
@@ -26,7 +26,7 @@
                  [metrics-clojure "2.9.0"]
                  [com.taoensso/timbre "4.8.0"]
                  [com.taoensso/nippy "2.13.0"]
-                 [io.aeron/aeron-all "1.1.0"]
+                 [io.aeron/aeron-all "1.2.5"]
                  [io.replikativ/hasch "0.3.3"
                   :exclusions [org.clojure/clojurescript com.cognitect/transit-clj
                                com.cognitect/transit-cljs org.clojure/data.fressian


Pick up update to avoid xnio LinkageError

--- project.clj
+++ project.clj
@@ -68,7 +68,7 @@
                         tools.reader               "0.8.4"
                         ring                       "1.3.0"

-                        org.projectodd.wunderboss  "1.x.incremental.97"
+                        org.projectodd.wunderboss  "1.x.incremental.98"
                         ;; org.projectodd.wunderboss  "0.1.0-SNAPSHOT"

                         org.immutant               :version}})


Use the EOSDIS docs theme.

Use the EOSDIS docs theme.

--- project.clj
+++ project.clj
@@ -8,6 +8,10 @@
     ;; If another project can't find the banner, just skip it;
     ;; this function is really only meant to be used by Dragon itself.
     (catch Exception _ "")))
+
+(defn get-tophat
+  []
+  (slurp (clojure.java.io/resource "eosdis/tophat-include.html")))

 (defn get-prompt
   [ns]
@@ -92,7 +96,7 @@
         :default (complement :system)}}
     :docs {
       :dependencies [
-        [clojang/codox-theme "0.2.0-SNAPSHOT"]]
+        [gov.nasa.earthdata/codox-theme "1.0.0-SNAPSHOT"]]
       :plugins [
         [lein-codox "0.10.3"]
         [lein-marginalia "0.9.1"]]
@@ -105,7 +109,17 @@
         :metadata {
           :doc/format :markdown
           :doc "Documentation forthcoming"}
-        :themes [:clojang]
+        :themes [:eosdis]
+        :html {
+          :transforms [[:head]
+                       [:append
+                       [:script {
+                         :src "https://cdn.earthdata.nasa.gov/tophat2/tophat2.js"
+                         :id "earthdata-tophat-script"
+                         :data-show-fbm "true"
+                         :data-show-status "true"
+                         :data-status-api-url "https://status.earthdata.nasa.gov/api/v1/notifications"
+                         :data-status-polling-interval "10"}]]]}
         :doc-paths ["resources/docs/markdown"]
         :output-path "resources/public/docs/opendap/docs/reference"}}}
   :aliases {


Version 0.1.0

Version 0.1.0

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject api "0.1.0-SNAPSHOT"
+(defproject api "0.1.0"
   :min-lein-version "2.6.1"
   :description "Optly API"
   :url "https://github.com/optly/api"


Version bump.

Version bump.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject lspector/clojush "1.3.1"
+(defproject lspector/clojush "1.3.2"
             :description "The Push programming language and the PushGP genetic programming
                           system implemented in Clojure.
                           See http://hampshire.edu/lspector/push.html"


(maint) Update to clj-parent 2.0.0

(maint) Update to clj-parent 2.0.0

--- project.clj
+++ project.clj
@@ -35,10 +35,13 @@

   :min-lein-version "2.7.1"

-  :parent-project {:coords [puppetlabs/clj-parent "1.7.3"]
+  :parent-project {:coords [puppetlabs/clj-parent "2.0.0"]
                    :inherit [:managed-dependencies]}

   :dependencies [[org.clojure/clojure]
+
+                 ;; See SERVER-2216
+                 [org.clojure/tools.nrepl "0.2.13"]

                  [slingshot]
                  [circleci/clj-yaml]
@@ -145,7 +148,7 @@
                                    [puppetlabs/trapperkeeper-metrics :classifier "test" :scope "test"]
                                    [puppetlabs/kitchensink nil :classifier "test" :scope "test"]
                                    [ring-basic-authentication]
-                                   [ring-mock]
+                                   [ring/ring-mock]
                                    [grimradical/clj-semver "0.3.0" :exclusions [org.clojure/clojure]]
                                    [beckon]
                                    [com.cemerick/url "0.1.1"]
@@ -156,6 +159,11 @@

                                    ;; dependencies for cljs development
                                    [leiningen "2.7.1" :exclusions [org.codehaus.plexus/plexus-utils
+                                                                   ;; This exclusion doesn't seem to actually work (see
+                                                                   ;; comment where we explicitly define tools.nrepl's
+                                                                   ;; version above
+                                                                   ;; See SERVER-2216
+                                                                   org.clojure/tools.nrepl
                                                                    org.clojure/tools.cli]]
                                    [cljsbuild ~cljsbuild-version]


Bump to 0.3.0-SNAPSHOT.

Bump to 0.3.0-SNAPSHOT.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject pjstadig/es "0.2.0"
+(defproject pjstadig/es "0.3.0-SNAPSHOT"
   :description "A simple REST-based Elasticsearch client for Clojure."
   :url "http://github.com/pjstadig/es"
   :license {:name "Mozilla Public License, v. 2.0"


Test against latest Clojure 1.9 alpha (alpha the 7th)

--- project.clj
+++ project.clj
@@ -29,7 +29,7 @@
                                 (pjstadig.humane-test-output/activate!)]}
              :integs {}
              :clojure-1.8 {:modules {:versions {clojure "1.8.0"}}}
-             :clojure-1.9 {:modules {:versions {clojure "1.9.0-alpha1"}}}}
+             :clojure-1.9 {:modules {:versions {clojure "1.9.0-alpha7"}}}}

   :aliases {"docs-from-index" ["build-helper" "docs" "generate" "docs/guides"
                                "caching" "core" "messaging" "scheduling" "transactions" "web" "wildfly"]


Version 0.1.1

Version 0.1.1

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject re-frame-forms "0.1.1-SNAPSHOT"
+(defproject re-frame-forms "0.1.1"
   :description "Reagent library for form processing"
   :url "https://github.com/tomasd/re-frame-forms"
   :license {:name "MIT"}


Update react-dom to 0.14.0

Update react-dom to 0.14.0

--- project.clj
+++ project.clj
@@ -5,7 +5,7 @@

   :dependencies [[org.clojure/clojure "1.7.0"]
                  [org.clojure/clojurescript "1.7.48"]
-                 [cljsjs/react-dom "0.14.0-rc1-0"]]
+                 [cljsjs/react-dom "0.14.0-0"]]

   :plugins [[lein-cljsbuild "1.1.0"]
             [codox "0.8.12"]]


cljsbuild added as a hook to lein compile

--- project.clj
+++ project.clj
@@ -11,6 +11,7 @@
                            [org.pegdown/pegdown "1.1.0"]
                            [noir "1.3.0-beta1"]]
             :plugins [[lein-cljsbuild "0.1.10"]]
+            :hooks [leiningen.cljsbuild]
             :jvm-opts ["-Dfile.encoding=utf-8"]
             :cljsbuild
             {:crossovers [NoteHub.crossover],


Bump version to v1.0.0.

Bump version to v1.0.0.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject mtrx9 "0.1.0"
+(defproject mtrx9 "1.0.0"
   :description "MTRX9 is a 3-dimensional simple monitoring tool using Clojure and Websockets. The live MTRX9 service is provided by mtrx9.com (http://www.mtrx9.com). If
 you're a tweetling, you might like to follow @mtrx9."
   :url "http://mtrx9.com"


Adding github project details and define version 0.1.0 ready for publishing

--- project.clj
+++ project.clj
@@ -1,7 +1,7 @@
-(defproject ws-parrot "0.1.0-SNAPSHOT"
+(defproject ws-parrot "0.1.0"
   :main ws-parrot.handler
-  :description "FIXME: write description"
-  :url "http://example.com/FIXME"
+  :description "A testing tool for stubbing out HTTP web services"
+  :url "https://github.com/trcooke/ws-parrot"
   :min-lein-version "2.0.0"
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [compojure "1.5.1"]


Updated deps

Updated deps

--- project.clj
+++ project.clj
@@ -6,9 +6,9 @@
                       :url  "http://www.apache.org/license/LICENSE-2.0.html"}
             :scm {:name "git"
                   :url  "https://github.com/otto-de/oscillator"}
-            :plugins [[lein-cljsbuild "1.0.6"]]
+            :plugins [[lein-cljsbuild "1.1.4"]]
             :dependencies [[org.clojure/clojure "1.8.0"]
-                           [compojure "1.3.4"]
+                           [compojure "1.5.1"]
                            [hiccup "1.0.5"]
                            [org.clojure/data.json "0.2.6"]]
             :lein-release {:deploy-via :clojars}
@@ -20,9 +20,9 @@
                                                       :optimizations :whitespace
                                                       :pretty-print  true}}}}
             :hooks [leiningen.cljsbuild]
-            :profiles {:provided {:dependencies [[org.clojure/clojurescript "1.7.48"]
-                                                 [cljs-ajax "0.3.13"]
+            :profiles {:provided {:dependencies [[org.clojure/clojurescript "1.9.229"]
+                                                 [cljs-ajax "0.5.8"]
                                                  [prismatic/dommy "1.1.0"]
-                                                 [hipo "0.4.0"]]}
+                                                 [hipo "0.5.2"]]}
                        :dev      {:plugins [[lein-release/lein-release "1.0.9"]]}
                        :uberjar  {:aot :all}})


Added license

Added license

--- project.clj
+++ project.clj
@@ -2,6 +2,8 @@
   :description
 "A network event stream processor. Intended for analytics, metrics, and alerting; and to glue various monitoring systems together."
   :url "https://github.com/riemann/riemann"
+  :license {:name "Eclipse Public License"
+            :url "http://www.eclipse.org/legal/epl-v10.html"}
 ;  :warn-on-reflection true
 ;  :jvm-opts ["-server" "-d64" "-Xms1024m" "-Xmx1024m" "-XX:+CMSParallelRemarkEnabled" "-XX:+AggressiveOpts" "-verbose:gc" "-XX:+PrintGCDetails"]
   :jvm-opts ["-server" "-Xms1024m" "-Xmx1024m" "-XX:+CMSParallelRemarkEnabled" "-XX:+AggressiveOpts" "-XX:+CMSClassUnloadingEnabled" "-XX:+IgnoreUnrecognizedVMOptions" "--add-modules=java.xml.bind"]


upgrade deps

upgrade deps

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@

   :dependencies [[org.clojure/clojure "1.7.0"]
                  [org.clojure/clojurescript "1.7.122" :scope "provided"]
-                 [devcards "0.2.0-2"]
+                 [devcards "0.2.0-3"]

                  [org.clojure/core.match "0.3.0-alpha4"]
                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]
@@ -31,15 +31,15 @@
                  [environ "1.0.1"]
                  [org.clojure/test.check "0.8.2"]

-                 [org.xerial/sqlite-jdbc "3.8.11.1"]
+                 [org.xerial/sqlite-jdbc "3.8.11.2"]
                  [org.postgresql/postgresql "9.2-1003-jdbc4"]
-                 [org.clojure/java.jdbc "0.4.1"]
-                 [yesql "0.5.0"]
+                 [org.clojure/java.jdbc "0.4.2"]
+                 [yesql "0.5.1"]

                  [jarohen/phoenix "0.1.2"]
-                 [com.stuartsierra/component "0.2.3"]
+                 [com.stuartsierra/component "0.3.0"]

-                 [prismatic/schema "0.4.4"]]
+                 [prismatic/schema "1.0.1"]]

   :plugins [[lein-cljsbuild "1.0.5"]
             [lein-environ "1.0.0"]]
@@ -59,8 +59,8 @@
   :profiles {:dev {:source-paths ["env/dev/clj"]
                    :test-paths ["test/clj"]

-                   :dependencies [[figwheel "0.4.0"]
-                                  [figwheel-sidecar "0.4.0"]
+                   :dependencies [[figwheel "0.4.1"]
+                                  [figwheel-sidecar "0.4.1"]
                                   [com.cemerick/piggieback "0.2.1"]
                                   [org.clojure/tools.nrepl "0.2.11"]
                                   [weasel "0.7.0"]]


fixed om version to 41

fixed om version to 41

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@
                  [lein-doo "0.1.6" :scope "test"]
                  [com.lucasbradstreet/cljs-uuid-utils "1.0.2"]
                  [navis/untangled-spec "0.3.7-1" :scope "test"]
-                 [org.omcljs/om "1.0.0-alpha41-SNAPSHOT" :scope "provided"]]
+                 [org.omcljs/om "1.0.0-alpha41" :scope "provided"]]

   :jvm-opts ["-XX:-OmitStackTraceInFastThrow"]
   :clean-targets ^{:protect false} ["resources/private/js" "resources/public/js/test" "resources/public/js/compiled" "target"]


Bump nREPL dependency

Bump nREPL dependency

--- project.clj
+++ project.clj
@@ -4,7 +4,7 @@
                  [jline "2.7"]
                  [org.thnetos/cd-client "0.3.4"]
                  [clj-stacktrace "0.2.4"]
-                 [org.clojure/tools.nrepl "0.2.0-beta6"]
+                 [org.clojure/tools.nrepl "0.2.0-beta7"]
                  [com.cemerick/drawbridge "0.0.3"]
                  [clojure-complete "0.2.1"]]
   :profiles {:dev {:dependencies


ok, actually we need clojure 1.3 to compile

--- project.clj
+++ project.clj
@@ -3,7 +3,7 @@
   :url "https://github.com/weavejester/lein-ring"
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
-  :dependencies [[org.clojure/clojure "1.2.1"]
+  :dependencies [[org.clojure/clojure "1.3.0"]
                  [org.clojure/data.xml "0.0.6"]
                  [leinjacker "0.4.1"]
                  [javax.servlet/servlet-api "2.5"]]


Updates http-kit and clj-wamp versions.

Updates http-kit and clj-wamp versions.

--- project.clj
+++ project.clj
@@ -14,9 +14,9 @@
                  [com.taoensso/timbre "2.1.2"]
                  [compojure "1.1.5"]
                  [ring-server "0.2.8" :exclusions [ring/ring-jetty-adapter]]
-                 [http-kit "2.1.2"]
+                 [http-kit "2.1.6"]
                  [cheshire "5.2.0"]
-                 [clj-wamp "1.0.0-beta3"]
+                 [clj-wamp "1.0.0-rc1"]
                  [jayq "2.4.0"]
                  [hiccup "1.0.3"]]
   :plugins [[lein-cljsbuild "0.3.2"]]


Back to snapshot.

Back to snapshot.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject com.mdrogalis/onyx "0.6.0-alpha1"
+(defproject com.mdrogalis/onyx "0.6.0-SNAPSHOT"
   :description "Distributed, masterless, fault tolerant data processing for Clojure"
   :url "https://github.com/MichaelDrogalis/onyx"
   :license {:name "Eclipse Public License"


re-namespace project

re-namespace project

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject navigator "0.1.0-SNAPSHOT"
+(defproject org.vlacs/navigator "0.1.0-SNAPSHOT"
   :description "Navigator supports VLACS' vision for competency-based virtual education."
   :url "https://github.com/vlacs/navigator"
   :license {:name "Eclipse Public License"


bump version

bump version

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject salava "2.9.0"
+(defproject salava "2.9.1"
   :description "Salava application server"
   :url "http://salava.org"
   :license {:name "Apache 2.0"


supernal version ++

supernal version ++

--- project.clj
+++ project.clj
@@ -29,7 +29,7 @@
                  [metrics-clojure-ring "0.9.2"]
                  [ch.qos.logback/logback-classic "1.0.9"]
                  [org.codehaus.groovy/groovy "2.1.2"]
-                 [supernal "0.1.1"]
+                 [supernal "0.1.2"]
                  [ring "1.1.8"]
                  [compojure "1.1.5" :exclusions  [ring/ring-core]]
                  [ring/ring-jetty-adapter "1.1.8"]


Version 0.1.3-37iow1

Version 0.1.3-37iow1

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.spootnik/cyanite "0.1.3-36iow1"
+(defproject org.spootnik/cyanite "0.1.3-37iow1"
   :description "Alternative storage backend for graphite, backed by cassandra"
   :url "https://github.com/pyr/cyanite"
   :license {:name "MIT License"


Use latest wboss.

Use latest wboss.

--- project.clj
+++ project.clj
@@ -92,7 +92,7 @@
                         environ                    "1.0.0"

                         ;; org.projectodd.wunderboss  "0.8.1"
-                        org.projectodd.wunderboss  "1.x.incremental.286"
+                        org.projectodd.wunderboss  "1.x.incremental.287"
                         ;; org.projectodd.wunderboss  "0.8.2-SNAPSHOT"

                         org.immutant               :version


Don't sign releases

Don't sign releases

--- project.clj
+++ project.clj
@@ -15,8 +15,8 @@
                  ]
   :plugins [[thomasa/mranderson "0.4.8"]
             [lein-less "RELEASE"]]
-  :deploy-repositories {"releases"  :clojars
-                        "snapshots" :clojars}
+  :deploy-repositories {"releases"  {:sign-releases false :url "https://clojars.org/repo"}
+                        "snapshots" {:sign-releases false :url "https://clojars.org/repo"}}

   ;:source-paths ["target/srcdeps"]


Version 0.8.3

Version 0.8.3

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject sablono "0.8.3-SNAPSHOT"
+(defproject sablono "0.8.3"
   :description "Lisp style templating for Facebook's React."
   :url "http://github.com/r0man/sablono"
   :author "r0man"


Update lein-cljsbuild

Update lein-cljsbuild

--- project.clj
+++ project.clj
@@ -7,7 +7,7 @@
                  [compliment "0.0.3"]
                  [leiningen "2.3.4"]
                  [lein-ancient "0.5.4" :exclusions [clj-aws-s3]]
-                 [lein-cljsbuild "1.0.2"]
+                 [lein-cljsbuild "1.0.3"]
                  [lein-droid "0.2.2"]
                  [lein-fruit "0.1.1"]
                  [net.java.balloontip/balloontip "1.2.4.1"]


Version 2.6.5-SNAPSHOT

Version 2.6.5-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject dda/dda-managed-vm "2.6.4"
+(defproject dda/dda-managed-vm "2.6.5-SNAPSHOT"
   :description "The managed vm desktop crate"
   :url "https://www.domaindrivenarchitecture.org"
   :license {:name "Apache License, Version 2.0"