define basic create-var fn

define basic create-var fn

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/aamedina/clojure.llvm.git/'


analyze cljs source

analyze cljs source

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/modnakasta/weasel.git/'


Stub for new test: test-text-renderer

Stub for new test: test-text-renderer

error: pathspec 'test/clouseau/test_text_renderer.clj' did not match any file(s) known to git

--- test/clouseau/test_text_renderer.clj
+++ test/clouseau/test_text_renderer.clj
@@ -0,0 +1,42 @@
+;;;
+;;;   Clouseau
+;;;
+;;;    Copyright (C) 2015 Pavel Tisnovsky <ptisnovs@redhat.com>
+;;;
+;;; Clouseau is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 2, or (at your option)
+;;; any later version.
+;;;
+;;; Clouseau is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with Clouseau; see the file COPYING.  If not, write to the
+;;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
+;;; 02110-1301 USA.
+;;;
+;;; Linking this library statically or dynamically with other modules is
+;;; making a combined work based on this library.  Thus, the terms and
+;;; conditions of the GNU General Public License cover the whole
+;;; combination.
+;;;
+;;; As a special exception, the copyright holders of this library give you
+;;; permission to link this library with independent modules to produce an
+;;; executable, regardless of the license terms of these independent
+;;; modules, and to copy and distribute the resulting executable under
+;;; terms of your choice, provided that you also meet, for each linked
+;;; independent module, the terms and conditions of the license of that
+;;; module.  An independent module is a module which is not derived from
+;;; or based on this library.  If you modify this library, you may extend
+;;; this exception to your version of the library, but you are not
+;;; obligated to do so. If you do not wish to do so, delete this
+;;; exception statement from your version.
+;;;
+
+(ns clouseau.test-core
+  (:require [clojure.test :refer :all]
+            [clouseau.text-renderer :refer :all]))
+


lp-tester to midje.

lp-tester to midje.

error: pathspec 'test/elephantdb/keyval/core_test.clj' did not match any file(s) known to git

--- test/elephantdb/keyval/core_test.clj
+++ test/elephantdb/keyval/core_test.clj
@@ -0,0 +1,354 @@
+(ns elephantdb.keyval.core-test
+  (:use clojure.test
+        elephantdb.keyval.testing
+        elephantdb.common.testing
+        [elephantdb.common.config :only (read-global-config)])
+  (:require [hadoop-util.core :as h]
+            [jackknife.core :as u]
+            [jackknife.logging :as log]
+            [elephantdb.common.config :as conf]
+            [elephantdb.common.status :as status])
+  (:import [elephantdb.persistence JavaBerkDB]))
+
+(defn get-val [elephant d k]
+  (.get_data (.get elephant d k)))
+
+(defn direct-get-val [elephant d k]
+  (.get_data (first (.directMultiGet elephant d [k]))))
+
+(defn multi-get-vals [elephant domain keys]
+  (map (memfn get_data)
+       (.multiGet elephant domain keys)))
+
+(defmacro expected-domain-data [handler domain & key-value-pairs]
+  `(doseq [[key-sym# val-sym#] (partition 2 [~@key-value-pairs])]
+     (if (seq val-sym#)
+       (is (barr= (apply barr val-sym#)
+                  (get-val ~handler ~domain (barr key-sym#))))
+       (is (= val-sym# (get-val ~handler ~domain (barr key-sym#)))))))
+
+(deftest test-basic
+  (with-sharded-domain [dpath
+                        {:num-shards 4, :coordinator (JavaBerkDB.)}
+                        [[(barr 0) (barr 0 0)]
+                         [(barr 1) (barr 1 1)]
+                         [(barr 2) (barr 2 2)]]]
+    (with-service-handler [elephant
+                           [(u/local-hostname)]
+                           {"test1" dpath}]
+      (expected-domain-data elephant "test1"
+                            0 [0 0]
+                            1 [1 1]
+                            2 [2 2]
+                            3 nil))))
+
+(deftest test-multi-domain
+  (let [data1 (domain-data 0 [0 0]
+                           10 [10 1]
+                           20 [20 2]
+                           30 [30 3])
+        data2 (domain-data 5 [5 0]
+                           15 [15 15]
+                           105 [110])]
+    (with-sharded-domain [dpath1
+                          {:num-shards 2 :coordinator (JavaBerkDB.)}
+                          data1]
+      (with-sharded-domain [dpath2
+                            {:num-shards 3 :coordinator (JavaBerkDB.)}
+                            data2]
+        (with-single-service-handler [handler {"d1" dpath1 "d2" dpath2}]
+          (check-domain "d1" handler data1)
+          (check-domain "d2" handler data2)
+          (check-domain-not "d1" handler data2)
+          (check-domain-not "d2" handler data1))))))
+
+(deftest test-multi-server
+  (with-presharded-domain ["test1"
+                           dpath
+                           (JavaBerkDB.)
+                           {0 [[(barr 0) (barr 0 0)]
+                               [(barr 1) (barr 1 1)]
+                               [(barr 2) nil]]
+                            1 (domain-data 10 [10 0])
+                            2 (domain-data 20 [20 0]
+                                           21 [21 1])
+                            3 (domain-data 30 [30 0])}]
+    (with-service-handler [elephant
+                           [(u/local-hostname) "host2"]
+                           {"test1" dpath}
+                           {(u/local-hostname) [0 2] "host2" [1 3]}]
+      (expected-domain-data elephant "test1"
+                            0 [0 0]
+                            20 [20 0]
+                            2 nil)
+      (is (thrown? Exception (direct-get-val elephant "test1" (barr 10)))))))
+
+(deftest test-update-synched
+  (with-local-tmp [lfs local-dir]
+    (with-fs-tmp [fs dtmp1 dtmp2 gtmp]
+      (let [domain-spec {:num-shards 4 :coordinator (JavaBerkDB.)}
+            local-config (mk-local-config local-dir)]
+        (conf/write-clj-config! {:replication 1
+                                 :hosts [(u/local-hostname)]
+                                 :domains {"no-update" dtmp1 "do-update" dtmp2}}
+                                fs
+                                gtmp)
+
+        ;; create version 1 for no-update
+        (mk-sharded-domain fs dtmp1 domain-spec
+                           (domain-data 0 [0 0]
+                                        1 [1 1]
+                                        2 [2 2]
+                                        3 [3 3]) :version 1)
+
+        ;; create version 1 for do-update
+        (mk-sharded-domain fs dtmp2 domain-spec
+                           (domain-data 0 [10 10]
+                                        1 [20 20]
+                                        2 [30 30]
+                                        3 [40 40]) :version 1)
+
+        ;; start edb and shutdown right away to get version 1 of both
+        ;; domains
+        (-> (read-global-config gtmp local-config)
+            (mk-service-handler local-dir nil)
+            (.shutdown))
+
+        ;; create new version only for do-update domain
+        ;;
+        ;; create version 1 for no-update (override to make sure it
+        ;; didn't reload this version)
+        (mk-sharded-domain fs dtmp1 domain-spec
+                           (domain-data 0 [1]
+                                        1 [2]
+                                        2 [3]
+                                        3 [4]) :version 1)
+
+        ;; create version 2 for do-update
+        (mk-sharded-domain fs dtmp2 domain-spec
+                           (domain-data 0 [11 11]
+                                        1 [22 22]
+                                        2 [33 33]
+                                        3 [44 44]) :version 2)
+
+        (let [handler (-> (read-global-config gtmp local-config)
+                          (mk-service-handler local-dir nil))]
+          ;; domain no-update should not have changed
+          (expected-domain-data handler "no-update"
+                                0 [0 0]
+                                1 [1 1]
+                                2 [2 2]
+                                3 [3 3])
+
+          ;; domain do-update should have changed
+          (expected-domain-data handler "do-update"
+                                0 [11 11]
+                                1 [22 22]
+                                2 [33 33]
+                                3 [44 44])
+          (.shutdown handler))
+
+        ;; now test with new version but different domain-spec
+        (let [domain-spec-new {:num-shards 6 :coordinator (JavaBerkDB.)}]
+          (h/delete fs dtmp2 true)
+          (mk-sharded-domain fs dtmp2 domain-spec-new
+                             (domain-data 0 [55 55]
+                                          1 [66 66]
+                                          2 [77 77]
+                                          3 [88 88]) :version 3))
+
+        (let [handler (-> (read-global-config gtmp local-config)
+                          (mk-service-handler local-dir nil))]
+          (is (status/failed? (.getDomainStatus handler "do-update")))
+          (is (status/ready? (.getDomainStatus handler "no-update")))
+          (.shutdown handler))
+
+        ;; if we delete a domain from the global conf, it should
+        ;; remove the local version of it too (delete dir), when starting up edb
+        (h/delete fs gtmp) ;; delete config
+        (conf/write-clj-config! {:replication 1
+                                 :hosts [(u/local-hostname)]
+                                 :domains {"no-update" dtmp1}}
+                                fs
+                                gtmp)
+        (let [handler (-> (read-global-config gtmp local-config)
+                          (mk-service-handler local-dir nil))
+              deleted-domain-path (.pathToFile lfs (h/path local-dir "do-update"))]
+          (is (= 1 (.size (.getDomains handler))))
+          (is (= "no-update" (first (.getDomains handler))))
+
+          "make sure local path of domain has been deleted:"
+          (is (= false (.exists deleted-domain-path)))
+          (.shutdown handler))))))
+
+;; TODO: need to do something to prioritize hosts in tests (override get-priority-hosts)
+(deftest test-multi-get
+  (let [shards-to-pairs {0 (domain-data 0 [0 0]
+                                        1 [1 1]
+                                        2 nil)
+                         1 (domain-data 10 [10 0])
+                         2 (domain-data 20 [20 0]
+                                        21 [21 1]
+                                        22 nil)
+                         3 (domain-data 30 [30 0])}
+        domain-to-host-to-shards {"test1" {(u/local-hostname) [0 3]
+                                           "host2" [1 0]
+                                           "host3" [2 1]
+                                           "host4" [3 2]}}]
+    (with-presharded-domain ["test1" dpath (JavaBerkDB.) shards-to-pairs]
+      (with-service-handler [elephant
+                             [(u/local-hostname) "host2"]
+                             {"test1" dpath}
+                             {(u/local-hostname) [0 3]
+                              "host2" [1 0]
+                              "host3" [2 1]
+                              "host4" [3 2]}]
+        (with-mocked-remote [domain-to-host-to-shards shards-to-pairs ["host4"]]
+          (expected-domain-data elephant
+                                "test1"
+                                0 [0 0]
+                                20 [20 0]
+                                2 nil)
+          (is (barrs= [[0 0] nil [30 0]]
+                      (multi-get-vals elephant "test1" [0 22 30])))
+          (is (barrs= [[0 0] [1 1] nil [30 0] [10 0]]
+                      (multi-get-vals elephant "test1" [0 1 2 30 10])))
+          (is (= [] (multi-get-vals elephant "test1" []))))
+        (with-mocked-remote [domain-to-host-to-shards shards-to-pairs ["host3" "host4"]]
+          (is (barrs= [[0 0] [10 0]]
+                      (multi-get-vals elephant "test1" [0 10])))
+          (is (thrown? Exception (multi-get-vals elephant "test1" [0 22]))))))))
+
+(deftest test-live-updating
+  (with-local-tmp [lfs local-dir]
+    (with-fs-tmp [fs dtmp1 dtmp2 gtmp]
+      (let [domain-spec {:num-shards 4 :coordinator (JavaBerkDB.)}
+            local-config (mk-local-config local-dir)]
+        (conf/write-clj-config! {:replication 1
+                                 :hosts [(u/local-hostname)]
+                                 :domains {"domain1" dtmp1 "domain2" dtmp2}}
+                                fs
+                                gtmp)
+
+        ;; create version 1 for domain1
+        (mk-sharded-domain fs dtmp1 domain-spec
+                           (domain-data 0 [0 0]
+                                        1 [1 1]
+                                        2 [2 2]
+                                        3 [3 3]) :version 1)
+
+        ;; create version 1 for domain2
+        (mk-sharded-domain fs dtmp2 domain-spec
+                           (domain-data 0 [10 10]
+                                        1 [20 20]
+                                        2 [30 30]
+                                        3 [40 40]) :version 1)
+
+        ;; start up edb service
+        (let [handler (-> (read-global-config gtmp local-config)
+                          (mk-service-handler local-dir nil))]
+
+          ;; create version 2 for domain2
+          (mk-sharded-domain fs dtmp2 domain-spec
+                             (domain-data 0 [11 11]
+                                          1 [22 22]
+                                          2 [33 33]
+                                          3 [44 44]) :version 2)
+
+          ;; domain1 should not have changed
+          (expected-domain-data handler "domain1"
+                                0 [0 0]
+                                1 [1 1]
+                                2 [2 2]
+                                3 [3 3])
+
+          ;; domain2 should not have changed either
+
+          (expected-domain-data handler "domain2"
+                                0 [10 10]
+                                1 [20 20]
+                                2 [30 30]
+                                3 [40 40])
+
+          ;; nothing should happen for domain1
+
+          (.update handler "domain1")
+
+
+          ;; wait a bit
+          (while (.isUpdating handler)
+            (Thread/sleep 100))
+
+          ;; domain1 should not have changed
+          (expected-domain-data handler "domain1"
+                                0 [0 0]
+                                1 [1 1]
+                                2 [2 2]
+                                3 [3 3])
+
+          ;; updating domain2 should cause update and new values being returned
+          (.update handler "domain2")
+
+          ;; wait a bit
+          (while (.isUpdating handler)
+            (Thread/sleep 100))
+
+          ;; domain2 should have changed
+          (expected-domain-data handler "domain2"
+                                0 [11 11]
+                                1 [22 22]
+                                2 [33 33]
+                                3 [44 44])
+
+          ;; create version 2 for domain1
+          (mk-sharded-domain fs dtmp1 domain-spec
+                             (domain-data 0 [1 1]
+                                          1 [2 2]
+                                          2 [3 3]
+                                          3 [4 4]) :version 2)
+
+          ;; create version 3 for domain2
+          (mk-sharded-domain fs dtmp2 domain-spec
+                             (domain-data 0 [12 12]
+                                          1 [23 23]
+                                          2 [34 34]
+                                          3 [45 45]) :version 3)
+
+          ;; force update of all domains
+          (.updateAll handler)
+
+          (is (status/loading? (.getDomainStatus handler "domain1")))
+          (is (status/loading? (.getDomainStatus handler "domain2")))
+
+          (is (status/ready? (.getDomainStatus handler "domain1")))
+          (is (status/ready? (.getDomainStatus handler "domain2")))
+
+          ;; wait a bit
+          (while (.isUpdating handler)
+            (Thread/sleep 100))
+
+          ;; domain1 and domain 2 should have changed
+          (expected-domain-data handler "domain1"
+                                0 [1 1]
+                                1 [2 2]
+                                2 [3 3]
+                                3 [4 4])
+
+          (expected-domain-data handler "domain2"
+                                0 [12 12]
+                                1 [23 23]
+                                2 [34 34]
+                                3 [45 45])
+
+          (is (status/ready? (.getDomainStatus handler "domain1")))
+          (is (status/ready? (.getDomainStatus handler "domain2")))
+
+          ;; make sure the old versions have been deleted locally
+          (let [domain1-old-path1 (.pathToFile lfs (h/path (h/str-path local-dir "domain1" "1")))
+                domain2-old-path1 (.pathToFile lfs (h/path (h/str-path local-dir "domain2" "1")))
+                domain2-old-path2 (.pathToFile lfs (h/path (h/str-path local-dir "domain2" "2")))]
+            (is (= false (.exists domain1-old-path1)))
+            (is (= false (.exists domain2-old-path1)))
+            (is (= false (.exists domain2-old-path2))))
+
+          (.shutdown handler))))))


Update doc of get method

Update doc of get method

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/colophon/clarango.git/'


add nrepl

add nrepl

error: pathspec 'src/clj/mapp/nrepl.clj' did not match any file(s) known to git

--- src/clj/mapp/nrepl.clj
+++ src/clj/mapp/nrepl.clj
@@ -0,0 +1,13 @@
+(ns mapp.nrepl
+  (:require [clojure.tools.nrepl.server :refer [start-server stop-server]]
+            [mount.core :as mount :refer [defstate]]
+            [mapp.config :as config :refer [config]]
+            [taoensso.timbre :as timbre]))
+
+(defn- start-nrepl [port]
+  (timbre/debug ::starting {:port port})
+  (start-server :port port))
+
+(defstate nrepl
+  :start (start-nrepl (config/nrepl-port config))
+  :stop  (stop-server nrepl))


Stub for IRC bot module

Stub for IRC bot module

error: pathspec 'src/emender_service/irc_bot.clj' did not match any file(s) known to git

--- src/emender_service/irc_bot.clj
+++ src/emender_service/irc_bot.clj
@@ -0,0 +1,16 @@
+;
+;  (C) Copyright 2016  Pavel Tisnovsky
+;
+;  All rights reserved. This program and the accompanying materials
+;  are made available under the terms of the Eclipse Public License v1.0
+;  which accompanies this distribution, and is available at
+;  http://www.eclipse.org/legal/epl-v10.html
+;
+;  Contributors:
+;      Pavel Tisnovsky
+;
+
+(ns emender-service.irc-bot)
+
+(require '[irclj.core :as irc])
+


[om.next] offenders

[om.next] offenders

error: pathspec 'src/om-next/deathrow/offenders.cljs' did not match any file(s) known to git

--- src/om-next/deathrow/offenders.cljs
+++ src/om-next/deathrow/offenders.cljs
@@ -0,0 +1,98 @@
+(ns deathrow.offenders
+  (:require [deathrow.common :as c]
+            [deathrow.parser :as p]
+            [deathrow.utils :as utils]
+            [goog.string :as gstr]
+            [om.next :as om :refer-macros [defui]]
+            [om.dom :as dom]))
+
+(defui Pager
+  static om/IQuery
+  (query [this]
+    [:paging])
+  Object
+  (render [this]
+    (let [{:keys [prev next]} (om/props this)
+          ;; ToDo: handle loading since it's in generic panel local state
+          loading false ;(:loading state)
+          ]
+      (dom/ul #js {:className "pager"}
+        (dom/li #js {:className (str "previous" (when (or (zero? prev) loading) " disabled"))}
+          (let [text (gstr/unescapeEntities "← Previous")]
+            (if (and (pos? prev) (not loading))
+              (dom/a #js {:href (str "/offenders/page/" prev)} text)
+              (dom/span nil text))))
+        (dom/li #js {:className (str "next" (when loading " disabled"))}
+          (let [text (gstr/unescapeEntities "Next →")]
+            (if (not loading)
+              (dom/a #js {:href (str "/offenders/page/" next)} text)
+              (dom/span nil text))))))))
+
+(def pager (om/factory Pager))
+
+(defui OffenderRow
+  static om/IQuery
+  (query [this]
+    [:executionNo :firstName :lastName :race :age])
+  Object
+  (render [this]
+    (let [{:keys [executionNo firstName lastName race age]} (om/props this)]
+      (dom/tr nil
+        (dom/td nil executionNo)
+        (dom/td nil
+          (dom/a #js{:href (str "/offenders/" executionNo)}
+                 (utils/display-name firstName lastName)))
+        (dom/td nil race)
+        (dom/td nil age)))))
+
+(def offender-row (om/factory OffenderRow {:keyfn :executionNo}))
+
+(defn- panel-heading-or-footer
+  [class-name pager-state]
+  (dom/div #js{:className class-name}
+    (pager pager-state)))
+
+(def panel-heading
+  (partial panel-heading-or-footer "panel-heading"))
+
+(def panel-footer
+  (partial panel-heading-or-footer "panel-footer"))
+
+(defn offenders-table
+  [{:keys [data] :as props}]
+  (dom/table #js{:className "table table-hover"}
+    (dom/thead nil
+      (dom/tr nil
+        (dom/th nil "Execution #")
+        (dom/th nil "Name")
+        (dom/th nil "Race")
+        (dom/th nil "Age")))
+    (apply dom/tbody nil
+      (map offender-row data))))
+
+(defui Offenders
+  static om/IQuery
+  (query [this]
+    (vec (concat [{:data (om/get-query OffenderRow)}]
+                 (om/get-query Pager))))
+  Object
+  (componentWillMount [this]
+    (utils/highlight-nav 2))
+  (render [this]
+    (let [props (om/props this)
+          {:keys [paging]} props]
+      (c/generic-panel props
+        (panel-heading paging)
+        (offenders-table props)
+        (panel-footer paging)))))
+
+(-> Offenders (utils/set-display-name "Offenders"))
+
+(def reconciler)
+
+(defn root [path]
+  (let [rec (om/reconciler {:state (c/build-app-state {:path path :nav-pos 2})
+                            :parser (om/parser {:read p/read})
+                            :send (utils/get-ajax-next path)})]
+    (set! reconciler rec)
+    (om/add-root! reconciler Offenders c/app-element)))


Solve Age in Days in clojure

Solve Age in Days in clojure

error: pathspec 'solutions/uri/1020/1020.clj' did not match any file(s) known to git

--- solutions/uri/1020/1020.clj
+++ solutions/uri/1020/1020.clj
@@ -0,0 +1,16 @@
+(ns main)
+
+(defn main []
+  (loop [line (read-line)]
+    (when line
+      (let [value (-> line
+                      (Integer/parseInt))
+            years (quot value 365)
+            months (-> (mod value 365)
+                       (quot 30))
+            days (-> (mod value 365)
+                     (mod 30))]
+        (printf "%d ano(s)%n%d mes(es)%n%d dia(s)%n" years months days))
+      (recur (read-line)))))
+
+(main)


Add http (-client)

Add http (-client)

error: pathspec 'src/cider_ci/utils/http.clj' did not match any file(s) known to git

--- src/cider_ci/utils/http.clj
+++ src/cider_ci/utils/http.clj
@@ -0,0 +1,33 @@
+(ns cider-ci.utils.http
+  (:require
+    [clj-http.client :as http-client]
+    [clj-logging-config.log4j :as logging-config]
+    [clojure.tools.logging :as logging]
+    [cider-ci.utils.with :as with]
+    ))
+
+;(logging-config/set-logger! :level :debug)
+;(logging-config/set-logger! :level :info)
+
+
+(defonce conf (atom nil))
+
+(defn post [url params]
+  (logging/debug post [url params])
+  (let [basic-auth (:basic_auth @conf)]
+    (with/logging
+      (logging/debug "http/post" {:url url :basic-auth basic-auth})
+      (http-client/post
+        url
+        (conj {:basic-auth [(:user basic-auth) (:secret basic-auth)]
+               :insecure? true
+               :content-type :json
+               :accept :json
+               :socket-timeout 1000
+               :conn-timeout 1000 }
+              params)))))
+
+(defn initialize [new-conf]
+  (reset! conf new-conf))
+
+


Passing draft API

Passing draft API

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/physion/ovation-webapi.git/'


Fix tests

Fix tests


remove comment

remove comment

--- cljs-client/cljsinfo_client/threading_macro.cljs
+++ cljs-client/cljsinfo_client/threading_macro.cljs
@@ -21,8 +21,6 @@

 (def small-x-unit 10)
 (def small-y-unit (twice small-x-unit))
-
-;; TODO: add red arrow class back in

 ;;------------------------------------------------------------------------------
 ;; Helpers


Add utility for connection pools.

Add utility for connection pools.

error: pathspec 'src/cavm/conn_pool.clj' did not match any file(s) known to git

--- src/cavm/conn_pool.clj
+++ src/cavm/conn_pool.clj
@@ -0,0 +1,38 @@
+(ns
+  ^{:author "Brian Craft"
+    :doc "c3p0 connection pool utilities."}
+  cavm.conn-pool
+  (:import (com.mchange.v2.c3p0 ComboPooledDataSource)))
+
+(defn pool
+  "Create a connection pool."
+  [{:keys [classname subprotocol subname
+           user password
+           excess-timeout idle-timeout
+           minimum-pool-size maximum-pool-size
+           test-connection-query idle-connection-test-period
+           test-connection-on-checkin test-connection-on-checkout
+           conn-customizer]
+    :or {excess-timeout (* 30 60)
+         idle-timeout (* 3 60 60)
+         minimum-pool-size 3
+         maximum-pool-size 15
+         test-connection-query nil
+         idle-connection-test-period 0
+         test-connection-on-checkin false
+         test-connection-on-checkout false
+         conn-customizer nil}}]
+  {:datasource (doto (ComboPooledDataSource.)
+                 (.setDriverClass classname)
+                 (.setJdbcUrl (str "jdbc:" subprotocol ":" subname))
+                 (.setUser user)
+                 (.setPassword password)
+                 (.setMaxIdleTimeExcessConnections excess-timeout)
+                 (.setMaxIdleTime idle-timeout)
+                 (.setMinPoolSize minimum-pool-size)
+                 (.setMaxPoolSize maximum-pool-size)
+                 (.setIdleConnectionTestPeriod idle-connection-test-period)
+                 (.setTestConnectionOnCheckin test-connection-on-checkin)
+                 (.setTestConnectionOnCheckout test-connection-on-checkout)
+                 (.setPreferredTestQuery test-connection-query)
+                 (.setConnectionCustomizerClassName conn-customizer))})


test/www.clj: copied tests from v4

test/www.clj: copied tests from v4

error: pathspec 'src/org/altlaw/test/www.clj' did not match any file(s) known to git

--- src/org/altlaw/test/www.clj
+++ src/org/altlaw/test/www.clj
@@ -0,0 +1,82 @@
+(ns org.altlaw.test.www
+  (:require org.altlaw.www.application
+            [org.altlaw.util.context :as context]
+            [org.altlaw.util.http-client :as client]
+            [org.altlaw.util.restlet :as restlet]
+            [clojure.contrib.duck-streams :as duck])
+  (:use clojure.contrib.test-is)
+  (:import (org.restlet.data MediaType)))
+
+(defn internal-server-fixture [f]
+  (restlet/with-server
+   13669 (new org.altlaw.www.application)
+   (f)))
+
+(defn internal-client-uri-fixture [f]
+  (binding [client/*client-base-uri* "http://localhost:13669"]
+    (f)))
+
+
+(use-fixtures :once
+              internal-server-fixture
+              internal-client-uri-fixture)
+
+(deftest can-get-static-files
+  (let [dirname (name (gensym "test_dir_"))
+        filename (name (gensym "test_file_"))
+        public-dir (duck/file (context/www-public-dir) "/" dirname)
+        public-html-file (duck/file public-dir "/" filename ".html")
+        static-dir (duck/file (context/www-static-dir) "/" dirname)
+        static-css-file (duck/file static-dir "/" filename ".css")
+        html "Hello, World!"
+        css "body { background: blue; }"]
+
+    ;; setup
+    (.mkdirs public-dir)
+    (.mkdirs static-dir)
+    (duck/spit public-html-file html)
+    (duck/spit static-css-file css)
+
+    ;; Test that we get the HTML file from /public
+    (let [response (client/http-get (str "/" dirname "/" filename ".html"))]
+      (is (.isSuccess (.getStatus response)))
+      (is (= MediaType/TEXT_HTML (.getMediaType (.getEntity response))))
+      (is (= html (.getText (.getEntity response)))))
+
+    ;; Test that we get the CSS file from /static
+    (let [response (client/http-get (str "/" dirname "/" filename ".css"))]
+      (is (.isSuccess (.getStatus response)))
+      (is (= MediaType/TEXT_CSS (.getMediaType (.getEntity response))))
+      (is (= css (.getText (.getEntity response)))))
+
+    ;; cleanup
+    (.delete public-html-file)
+    (.delete static-css-file)
+    (.delete public-dir)
+    (.delete static-dir)))
+
+
+(deftest can-get-case-text
+  (let [docid (str "98765432" (rand-int 10))
+        path (str "docs/98/76/54/32/" docid "-text")
+        html-file (duck/file (context/www-public-dir) "/" path ".html")
+        dir (.getParentFile html-file)
+        html "can-get-case-file"]
+
+    ;; setup
+    (.mkdirs dir)
+    (duck/spit html-file html)
+
+    ;; Test that we get the HTML file /v1/cases/{docid}
+    (let [response (client/http-get (str "/v1/cases/" docid))]
+      (is (.isSuccess (.getStatus response)))
+      (is (= MediaType/TEXT_HTML (.getMediaType (.getEntity response))))
+      (is (= html (.getText (.getEntity response)))))
+
+    ;; cleanup
+    (.delete html-file)))
+
+
+(deftest can-get-simple-search-page
+  (let [response (client/http-get (str "/v1/search"))]
+    (is (.isSuccess (.getStatus response)))))


Add latest-at-top display of events in re-lorean

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/Reefersleep/sleepydo.git/'


Ready for release

Ready for release

--- project.clj
+++ project.clj
@@ -1,6 +1,6 @@
 ;; Copyright © 2015, JUXT LTD.

-(defproject yada "1.1.10"
+(defproject yada "1.1.11"
   :description "A powerful Clojure web library, full HTTP, full async"
   :url "http://github.com/juxt/yada"
   :license {:name "The MIT License"


Update deps

Update deps

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/democracyworks/electorate-works.git/'


Begin work on next iteration.

Begin work on next iteration.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject com.damballa/abracad "0.4.10"
+(defproject com.damballa/abracad "0.4.11-SNAPSHOT"
   :description "De/serialize Clojure data structures with Avro."
   :url "http://github.com/damballa/abracad"
   :licenses [{:name "Eclipse Public License"


bump deps, return to using pub'd ver of core.async

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/michaelsbradleyjr/transwarp.git/'


Bump nrepl to 0.2.12 (#769)

Bump nrepl to 0.2.12 (#769)

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@
     [org.clojure/clojure "1.8.0"]
     [org.clojure/math.numeric-tower "0.0.4"]
     [org.clojure/tools.logging "0.3.1"]
-    [org.clojure/tools.nrepl "0.2.11"]
+    [org.clojure/tools.nrepl "0.2.12"]
     [org.clojure/core.cache "0.6.4"]
     [org.clojure/data.priority-map "0.0.7"]
     [org.clojure/java.classpath "0.2.2"]


Upgrade juxt.modular/aleph

Upgrade juxt.modular/aleph

--- project.clj
+++ project.clj
@@ -79,8 +79,7 @@

           [aero "0.1.5"]

-          [juxt.modular/aleph "0.1.3" :exclusions [manifold aleph]]
-          [aleph "0.4.1-beta3"]
+          [juxt.modular/aleph "0.1.4"]
           [juxt.modular/bidi "0.9.2" :exclusions [bidi]]
           [juxt.modular/stencil "0.1.0"]
           [juxt.modular/co-dependency "0.3.0"]


lein-release plugin: bumped version from 0.2.5 to 0.2.6-SNAPSHOT for next development cycle

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


Fix typo: envionment -> environment

Fix typo: envionment -> environment

remote: Support for password authentication was removed on August 13, 2021.
remote: Please see https://docs.github.com/en/get-started/getting-started-with-git/about-remote-repositories#cloning-with-https-urls for information on currently recommended modes of authentication.
fatal: Authentication failed for 'https://github.com/Yleisradio/yle-api-template.git/'