bumped up version for release

bumped up version for release

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject selmer "1.12.11"
+(defproject selmer "1.12.12"
   :description "Django style templates for Clojure"
   :url "https://github.com/yogthos/Selmer"
   :license {:name "Eclipse Public License"


Version 0.7.1

Version 0.7.1

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


bump fulcro

bump fulcro

--- project.clj
+++ project.clj
@@ -106,7 +106,7 @@
    :cljs
    {:java-opts ^:replace ["-XX:-OmitStackTraceInFastThrow"]
     :dependencies
-    [[fulcrologic/fulcro "2.6.3"
+    [[fulcrologic/fulcro "2.6.4"
       :exclusions
       [clojure-future-spec
        com.stuartsierra/component


Version 0.1.2-SNAPSHOT

Version 0.1.2-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,6 +1,6 @@
 (def ks-version "1.0.0")

-(defproject puppetlabs/jdbc-util "0.1.1"
+(defproject puppetlabs/jdbc-util "0.1.2-SNAPSHOT"
   :description "Common JDBC helpers for use in Puppet Labs projects"
   :url "https://github.com/puppetlabs/jdbc-util"


Upgraded Clojure & ClojureScript to the latest

Only for 1.9 profile

--- project.clj
+++ project.clj
@@ -23,8 +23,8 @@
              :test {:dependencies [[print-foo "1.0.2"]]
                     :src-paths ["test/resources"]}
              :1.8 {:dependencies [[org.clojure/clojure "1.8.0"]]}
-             :1.9 {:dependencies [[org.clojure/clojure "1.9.0-alpha14"]
-                                  [org.clojure/clojurescript "1.9.660"]]}
+             :1.9 {:dependencies [[org.clojure/clojure "1.9.0-alpha17"]
+                                  [org.clojure/clojurescript "1.9.671"]]}
              :dev {:plugins [[jonase/eastwood "0.2.0"]]
                    :global-vars {*warn-on-reflection* true}
                    :dependencies [[org.clojure/clojurescript "1.7.48"]


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.onyxplatform/onyx-sql "0.7.12"
+(defproject org.onyxplatform/onyx-sql "0.7.13-SNAPSHOT"
   :description "Onyx plugin for JDBC-backed SQL databases"
   :url "https://github.com/MichaelDrogalis/onyx-sql"
   :license {:name "Eclipse Public License"


comment out clean-targets from project

comment out clean-targets from project

--- project.clj
+++ project.clj
@@ -36,7 +36,7 @@
             [lein-cljsbuild "1.0.6"]
             [jamesnvc/lein-lesscss "1.4.0"] ]

-  :clean-targets ^{:protect false} ["resources/public/js/out"]
+  ;:clean-targets ^{:protect false} ["resources/public/js/out"]
   :lesscss-paths ["resources/less"]
   :lesscss-output-path "resources/public/css/out"
   :cljsbuild {:builds


Version 0.0.39-SNAPSHOT

Version 0.0.39-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject pe-fp-rest "0.0.38"
+(defproject pe-fp-rest "0.0.39-SNAPSHOT"
   :description "A Clojure library providing a REST API interface on top of the fuel purchase abstractions."
   :url "https://github.com/evanspa/pe-fp-rest"
   :license {:name "MIT"


New version

New version

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject day8.re-frame/async-flow-fx "0.0.2"
+(defproject day8.re-frame/async-flow-fx "0.0.3.SNAPSHOT"
   :description  "A re-frame effects handler for coordinating the kind of async control flow which often happens on app startup."
   :url          "https://github.com/Day8/re-frame-async-flow-fx.git"
   :license      {:name "MIT"}


release 2.7.3

release 2.7.3

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject babel "2.7.3-SNAPSHOT"
+(defproject babel "2.7.3"
   :description "A library for natural language generation and parsing"
   :url "http://github.com/ekoontz/babel"
   :license {:name "Eclipse Public License"


Back into snapshot mode, now for 0.0.2

Back into snapshot mode, now for 0.0.2

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject coffee-table "0.0.1"
+(defproject coffee-table "0.0.1-SNAPSHOT"
   :description "A site for Gaelan's café reviews"
   :url "http://github.com/RobotDisco/coffee-table"
   :license {:name "Eclipse Public License - v 1.0"


Update project.clj

Update project.clj

--- project.clj
+++ project.clj
@@ -7,8 +7,9 @@
   :source-paths ["src/clojure"]
   :java-source-paths ["src/java"]

-  :jar-exclusions [#"\.swp|\.swo|user.clj"]
+  :jar-exclusions [#"\.swp|\.swo|bench\.clj|user\.clj"]
   :javac-options ["-target" "1.8" "-source" "1.8" "-Xlint:-options" "-Xlint:unchecked"]
+
   :repositories [["clojars" {:sign-releases false}]]
   :dependencies [[org.clojure/clojure "1.7.0" :scope "provided"]
                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]


jsonevent-layout 1.5 -> 1.7

jsonevent-layout 1.5 -> 1.7

--- project.clj
+++ project.clj
@@ -18,7 +18,7 @@
                                        javax.jms/jms
                                        com.sun.jdmk/jmxtools
                                        com.sun.jmx/jmxri]]
-    [net.logstash.log4j/jsonevent-layout "1.5"]
+    [net.logstash.log4j/jsonevent-layout "1.7"]
     [com.cemerick/pomegranate "0.3.0"]
     [org.spootnik/http-kit "2.1.18.1"]
     [clj-http "1.0.0"]


Upgrade tools.namespace

Upgrade tools.namespace

--- project.clj
+++ project.clj
@@ -9,7 +9,7 @@
                  ^:source-dep [cheshire "5.4.0"]
                  ^:source-dep [alembic "0.3.2"]
                  ^:source-dep [org.clojure/tools.analyzer.jvm "0.6.6"]
-                 ^:source-dep [org.clojure/tools.namespace  "0.3.0-alpha1"]
+                 ^:source-dep [org.clojure/tools.namespace  "0.3.0-alpha2"]
                  ^:source-dep [org.clojure/tools.reader "0.10.0-alpha3"]
                  ^:source-dep [org.clojure/java.classpath "0.2.2"]
                  ^:source-dep [lein-cljfmt "0.3.0"]


Update fipp

Update fipp

--- project.clj
+++ project.clj
@@ -9,7 +9,7 @@
   :dependencies [[org.clojure/clojure "1.9.0" :scope "provided"]
                  [org.clojure/clojurescript "1.9.946" :scope "provided"]
                  [clansi "1.0.0"]
-                 [fipp "0.6.10"]
+                 [fipp "0.6.18"]
                  [spectrace "0.1.0"]]

   :plugins [[lein-cloverage "1.0.9"]


Bump nippy with perf improvement.

Bump nippy with perf improvement.

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@
                  [com.stuartsierra/dependency "0.1.1"]
                  [com.stuartsierra/component "0.2.1"]
                  [com.taoensso/timbre "3.0.1"]
-                 [com.taoensso/nippy "2.9.0-RC1"]
+                 [com.taoensso/nippy "2.9.0-RC2"]
                  [uk.co.real-logic/Agrona "0.3.1-SNAPSHOT"]
                  [uk.co.real-logic/aeron-client "0.1-SNAPSHOT"]
                  [uk.co.real-logic/aeron-driver "0.1-SNAPSHOT"]


0.8.0-RC20

--- project.clj
+++ project.clj
@@ -39,7 +39,7 @@
        (vec (set (concat (get JVMOPTS :any)
                          (get JVMOPTS os))))))

-(defproject overtone "0.8.0-RC19"
+(defproject overtone "0.8.0-RC20"
   :description "Collaborative Programmable Music. (http://overtone.github.com)"
   :url "http://overtone.github.com/"
   :dependencies [[org.clojure/clojure "1.3.0"]


lein-release plugin: preparing 0.3.4 release

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.clojars.mhuebert/re-view "0.3.4-SNAPSHOT"
+(defproject org.clojars.mhuebert/re-view "0.3.4"
   :description "Tiny React wrapper"
   :url "http://example.com/FIXME"
   :license {:name "Eclipse Public License"


core.async 0.2.374

core.async 0.2.374

--- project.clj
+++ project.clj
@@ -11,7 +11,7 @@
                  [cc.qbits/alia "2.5.3"]
                  [net.jpountz.lz4/lz4 "1.3.0"]
                  [org.xerial.snappy/snappy-java "1.1.2"]
-                 [org.clojure/core.async "0.1.346.0-17112a-alpha"]
+                 [org.clojure/core.async "0.2.374"]
                  [clojurewerkz/elastisch "2.2.0-beta4"]
                  [throttler "1.0.0"]
                  [com.climate/claypoole "1.1.0"]


Dependencies added: JDBC + sqlite connector

--- project.clj
+++ project.clj
@@ -19,7 +19,9 @@
                    [irclj "0.5.0-alpha4"]
                    [clojure-ini "0.0.1"]
                    [sunrise "0.1.0"]
-                   [org.clojars.tisnik/clj-calendar "0.2.0-SNAPSHOT"]]
+                   [org.clojars.tisnik/clj-calendar "0.2.0-SNAPSHOT"]
+                   [org.clojure/java.jdbc "0.3.5"]
+                   [org.xerial/sqlite-jdbc "3.7.2"]]
     :main ^:skip-aot clj-mrazik.core
     :target-path "target/%s"
     :plugins [[test2junit "1.1.0"]


adding core.async!

adding core.async!

--- project.clj
+++ project.clj
@@ -4,13 +4,16 @@
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[org.clojure/clojure "1.5.1"]
+                 [org.clojure/core.async "0.1.0-SNAPSHOT"]
+                 [cljs-ajax "0.1.6"]
+                 [compojure "1.1.5"]
+                 [jayq "2.4.0"]
                  [prismatic/dommy "0.1.1"]
-                 [ring-middleware-format "0.3.1"]
-                 [compojure "1.1.5"]
-                 [cljs-ajax "0.1.6"]]
+                 [ring-middleware-format "0.3.1"]]
+  :repositories {"sonatype-oss-public" "https://oss.sonatype.org/content/groups/public/"}
   :plugins [[lein-cljsbuild "0.3.2"]
-            [lein-ring "0.8.5"]
-            [lein-cloverage "1.0.2"]]
+            [lein-cloverage "1.0.2"]
+            [lein-ring "0.8.5"]]
   :ring {:handler jasons-game.routes/app}
   :profiles {:dev {:dependencies [[midje "1.6-beta1"]
                                   [ring-mock "0.1.5"]]}}


Update jackson to 2.6.3

Update jackson to 2.6.3

--- project.clj
+++ project.clj
@@ -5,9 +5,9 @@
             :url "http://opensource.org/licenses/MIT"
             :distribution :repo}
   :global-vars {*warn-on-reflection* false}
-  :dependencies [[com.fasterxml.jackson.core/jackson-core "2.5.3"]
-                 [com.fasterxml.jackson.dataformat/jackson-dataformat-smile "2.5.3"]
-                 [com.fasterxml.jackson.dataformat/jackson-dataformat-cbor "2.5.3"]
+  :dependencies [[com.fasterxml.jackson.core/jackson-core "2.6.3"]
+                 [com.fasterxml.jackson.dataformat/jackson-dataformat-smile "2.6.3"]
+                 [com.fasterxml.jackson.dataformat/jackson-dataformat-cbor "2.6.3"]
                  [tigris "0.1.1"]]
   :profiles {:dev {:dependencies [[org.clojure/clojure "1.6.0"]
                                   [org.clojure/test.generative "0.1.4"]]}


release 2.9.12

release 2.9.12

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject babel "2.9.12-SNAPSHOT"
+(defproject babel "2.9.12"
   :description "A library for natural language generation and parsing"
   :url "http://github.com/ekoontz/babel"
   :license {:name "Eclipse Public License"


Moved My Datomic Repo under the datomic-pro Profile

--- project.clj
+++ project.clj
@@ -21,8 +21,6 @@
                  [org.slf4j/slf4j-api "1.7.7"]
                  [ch.qos.logback/logback-classic "1.1.2"]]

-  :repositories [["my.datomic.com" "https://my.datomic.com/repo"]]
-
   :profiles {:dev
              {:source-paths ["dev"]
               :dependencies [[org.clojure/tools.namespace "0.2.4"]
@@ -41,7 +39,8 @@
                                            joda-time]]]}

              :datomic-pro
-             {:dependencies [[com.datomic/datomic-pro "0.9.5173"
+             {:repositories [["my.datomic.com" "https://my.datomic.com/repo"]]
+              :dependencies [[com.datomic/datomic-pro "0.9.5173"
                               :exclusions [org.slf4j/slf4j-nop
                                            org.slf4j/slf4j-log4j12
                                            org.apache.httpcomponents/httpclient


stuff

stuff

--- project.clj
+++ project.clj
@@ -3,7 +3,7 @@
   :url "http://example.com/FIXME"
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
-  :dependencies [[org.clojure/clojure "1.9.0-alpha4"]
+  :dependencies [[org.clojure/clojure "1.9.0-alpha5"]
                  [org.clojure/core.async "0.1.346.0-17112a-alpha"]
                  [instaparse "1.4.2"]
                  [criterium "0.4.4"]


Prepare for next release cycle.

Prepare for next release cycle.

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


Update lib, roll back clojure to 1.10.3

Update lib, roll back clojure to 1.10.3

--- project.clj
+++ project.clj
@@ -14,7 +14,7 @@
   ;; All profile dependencies
   :dependencies [
     ;; Lisp on the JVM http://clojure.org/documentation
-    [org.clojure/clojure "1.11.0-alpha1"]
+    [org.clojure/clojure "1.10.3"]
     ;; Command-line parsing https://github.com/clojure/tools.cli
     [org.clojure/tools.cli "1.0.206"]
     ;; Web application library https://github.com/ring-clojure/ring
@@ -49,7 +49,7 @@
     ;; ***************** (JWT schema changes, more info here: *****************
     ;; ******* https://github.com/open-company/open-company-lib/pull/82) ******
     ;; ************************************************************************
-    [open-company/lib "0.18.0-alpha" :exclusions [commons-codec]]
+    [open-company/lib "0.18.0-alpha1" :exclusions [commons-codec]]
     ;; ************************************************************************
     ;; In addition to common functions, brings in the following common dependencies used by this project:
     ;; httpkit - HTTP client/server http://www.http-kit.org/


Updated both clojure and midje to 1.7.0.

You'd think `lein new` would give us the most recent versions, but it apparently didn't. This fixes that.

--- project.clj
+++ project.clj
@@ -1,5 +1,5 @@
 (defproject simple-symbolic-regression-clojure "0.0.1-SNAPSHOT"
   :description "Cool new project to do things and stuff"
-  :dependencies [[org.clojure/clojure "1.4.0"]]
-  :profiles {:dev {:dependencies [[midje "1.5.1"]]}})
-
+  :dependencies [[org.clojure/clojure "1.7.0"]]
+  :profiles {:dev {:dependencies [[midje "1.7.0"]]}})
+


We're no longer using the jarfile for deployment, so the procfile no longer needs to be dynamically generated with the version.

--- project.clj
+++ project.clj
@@ -122,17 +122,14 @@
       ["version"]
       ["shell" "echo" "-n" "CMR-OPeNDAP: "]
       ["project-version"]]
-    "procfile" ["with-profile" "+local" "shell" "resources/scripts/make-procfile"]
     "build-lite" ["do"
       ["ltest" ":unit"]
-      ["junit" ":unit"]
-      ["procfile"]]
+      ["junit" ":unit"]]
     "build" ["do"
       ["ltest" ":unit"]
       ["junit" ":unit"]
       ["ubercompile"]
-      ["uberjar"]
-      ["procfile"]]
+      ["uberjar"]]
     ;; Documentation
     "codox" ["with-profile" "+docs"
       "codox"]


Added debugger support.

Added debugger support.

--- project.clj
+++ project.clj
@@ -66,6 +66,8 @@
         [venantius/ultra "0.5.2"]]
       :source-paths ["dev-resources/src"]}
     :dev {
+      :dependencies [
+        [debugger "0.2.1"]]
       :jvm-opts [
         "-Dcmr.testing.config.data=testing-value"
         "-Dcmr.opendap.logging.color=true"]


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.onyxplatform/onyx-metrics "0.11.0.0-alpha4"
+(defproject org.onyxplatform/onyx-metrics "0.11.0.0-SNAPSHOT"
   :description "Instrument Onyx workflows"
   :url "https://github.com/onyx-platform/onyx-metrics"
   :license {:name "Eclipse Public License"


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.onyxplatform/onyx-bookkeeper "0.10.0.0-alpha4"
+(defproject org.onyxplatform/onyx-bookkeeper "0.10.0.0-SNAPSHOT"
   :description "Onyx plugin for BookKeeper"
   :url "https://github.com/onyx-platform/onyx-bookkeeper"
   :license {:name "Eclipse Public License"


update cider

update cider

--- project.clj
+++ project.clj
@@ -20,7 +20,7 @@
                  [log4j/apache-log4j-extras "1.1"]
                  [org.slf4j/slf4j-api "1.6.2"]
                  [org.slf4j/slf4j-log4j12 "1.6.2"]
-                 [cider/cider-nrepl "0.7.0-SNAPSHOT"]
+                 [cider/cider-nrepl "0.8.1"]
                  [clj-http "1.0.0"]
                  [com.datomic/datomic-free "0.9.4899" :exclusions [org.slf4j/slf4j-nop]]


Version 0.0.7

Version 0.0.7

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject day8.re-frame/abra "0.0.7-SNAPSHOT"
+(defproject day8.re-frame/abra "0.0.7"
   :description "Tracing and developer tools for re-frame apps"
   :url         "https://github.com/Day8/re-frame-trace"
   :license     {:name "MIT"}


Rollback midje 1.9.1 to 1.8.3

Rollback midje 1.9.1 to 1.8.3

--- project.clj
+++ project.clj
@@ -31,7 +31,7 @@
   :javac-options ["-source" "1.8"
                   "-target" "1.8"]

-  :profiles {:dev {:dependencies [[midje "1.9.1"]]
+  :profiles {:dev {:dependencies [[midje "1.8.3"]]
                    :plugins      [[lein-midje "3.2.1"]]}}

   :aot [uio.main.main]


Version 0.4.0-alpha9

Version 0.4.0-alpha9

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


Version 1.1.0

Version 1.1.0

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject puppetlabs/pcp-client "1.1.0-SNAPSHOT"
+(defproject puppetlabs/pcp-client "1.1.0"
   :description "client library for PCP"
   :url "https://github.com/puppetlabs/clj-pcp-client"
   :license {:name "Apache License, Version 2.0"


Version 1.2.0-SNAPSHOT

Version 1.2.0-SNAPSHOT

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


Release version 0.1.0.

Release version 0.1.0.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject inet.data "0.1.0-SNAPSHOT"
+(defproject inet.data "0.1.0"
   :description "Represent and manipulate various Internet entities as data."
   :url "http://github.com/llasram/inet.data"
   :license {:name "Eclipse Public License"


Version 0.2.6

Version 0.2.6

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject riemann "0.2.6-SNAPSHOT"
+(defproject riemann "0.2.6"
   :description
 "A network event stream processor. Intended for analytics, metrics, and alerting; and to glue various monitoring systems together."
   :url "http://github.com/aphyr/riemann"


Version 1.2.1-SNAPSHOT

Version 1.2.1-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject puppetlabs/pcp-client "1.2.0"
+(defproject puppetlabs/pcp-client "1.2.1-SNAPSHOT"
   :description "client library for PCP"
   :url "https://github.com/puppetlabs/clj-pcp-client"
   :license {:name "Apache License, Version 2.0"


version bump

version bump

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject dwc-analysis "0.0.11"
+(defproject dwc-analysis "0.0.12"
   :description "Analysis on darwincore occurrences: EOO, AOO and Populations."
   :url "http://github.com/CNCFlora/dwc-analysis"
   :license {:name "MIT"}


updates server deps

updates server deps

--- project.clj
+++ project.clj
@@ -3,12 +3,12 @@
   :url "https://github.com/build-canaries/nevergreen"
   :dependencies [[org.clojure/clojure "1.9.0"]
                  [ring "1.6.3" :exclusions [org.eclipse.jetty/jetty-server]]
-                 [org.eclipse.jetty/jetty-server "9.4.10.RC0"]
+                 [org.eclipse.jetty/jetty-server "9.4.10.RC1"]
                  [compojure "1.6.1"]
                  [environ "1.1.0"]
                  [cheshire "5.8.0"]
                  [clj-cctray "1.0.0"]
-                 [clj-http "3.8.0"]
+                 [clj-http "3.9.0"]
                  [ring-curl "0.3.1"]
                  [ring/ring-json "0.4.0"]
                  [ring/ring-defaults "0.3.1"]


Version 2.0.68 [ci skip]

Version 2.0.68 [ci skip]

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


Upgrade all the things and other figwheel changes.

--- project.clj
+++ project.clj
@@ -23,26 +23,28 @@
                                     "target"]

   :figwheel {:css-dirs       ["resources/public/css"]
-             :server-logfile "log/figwheel-logfile.log"
-             :ring-handler   reagent-toolbox-docs.core/app}
+             :server-logfile "log/figwheel.log"
+             :ring-handler   reagent-toolbox-docs.core/app
+             :server-port    3460}

   :uberjar-name "reagent-toolbox-docs-standalone.jar"
   :heroku {:app-name "reagent-toolbox-docs"}

   :shell {:commands {"lein" {:windows ["cmd.exe" "/c" "lein.bat"]}}}

-  :profiles {:dev     {:cljsbuild    {:builds {:app {:source-paths ["checkouts/reagent-toolbox/src/cljs"]
+  :profiles {:dev     {:cljsbuild    {:builds {:app {:source-paths ["..\\reagent-toolbox\\src\\cljs"]
                                                      :compiler     {:preloads             [devtools.preload]
                                                                     :source-map           true
                                                                     :source-map-timestamp true
                                                                     :pretty-print         true
                                                                     :external-config      {:devtools/config {:features-to-install :all}}}
                                                      :figwheel     {:on-jsload "reagent-toolbox-docs.core/mount-root"}}}}
-                       :dependencies [[figwheel-sidecar "0.5.9"]
-                                      [binaryage/devtools "0.9.0"]
-                                      [com.cemerick/piggieback "0.2.1"]
-                                      [org.clojure/tools.nrepl "0.2.12"]
-                                      [org.slf4j/slf4j-nop "1.7.13"]]
+                       :dependencies [[figwheel "0.5.11"]
+                                      [figwheel-sidecar "0.5.11"]
+                                      [binaryage/devtools "0.9.4"]
+                                      [com.cemerick/piggieback "0.2.2"]
+                                      [org.clojure/tools.nrepl "0.2.13"]
+                                      [org.slf4j/slf4j-nop "1.7.25"]]
                        :repl-options {:nrepl-middleware [cemerick.piggieback/wrap-cljs-repl]}}
              :uberjar {:omit-source true
                        :aot         :all
@@ -51,7 +53,7 @@
                        :prep-tasks  ["javac"
                                      "compile"
                                      ["cljsbuild" "once"]
-                                     #_["sass4clj" "once"]  ; This should be the correct way of compiling SCSS, but: https://github.com/Deraen/sass4clj/issues/18
+                                     #_["sass4clj" "once"]                                                              ; This should be the correct way of compiling SCSS, but: https://github.com/Deraen/sass4clj/issues/18
                                      ["shell" "lein" "sass4clj" "once"]]
                        :cljsbuild   {:jar    true
                                      :builds {:app {:compiler {:closure-defines {goog.DEBUG false}}}}}}}
@@ -59,27 +61,26 @@
   :min-lein-version "2.5.3"

   :dependencies [[org.clojure/clojure "1.8.0"]
-                 [org.clojure/clojurescript "1.9.456"]
-                 [cljsjs/react-with-addons "15.4.2-2"]
-                 [reagent "0.6.1" :exclusions [cljsjs/react]]
-                 [re-frame "0.9.2"]
+                 [org.clojure/clojurescript "1.9.671"]
+                 [cljsjs/react-with-addons "15.6.1-0"]
+                 [reagent "0.7.0" :exclusions [cljsjs/react]]
+                 [re-frame "0.9.4"]
                  [com.domkm/silk "0.1.2"]
-                 [kibu/pushy "0.3.6"]
-                 [compojure "1.5.2"]
-                 [ring/ring-defaults "0.2.3"]
-                 [ring/ring-jetty-adapter "1.5.1"]
+                 [kibu/pushy "0.3.7"]
+                 [compojure "1.6.0"]
+                 [ring/ring-defaults "0.3.0"]
+                 [ring/ring-jetty-adapter "1.6.2"]
                  [environ "1.1.0"]
                  [replumb "0.2.4"]
-                 [org.clojure/tools.reader "1.0.0-beta1"]   ; Required by replumb
-                 [com.cognitect/transit-clj "0.8.297"]      ; Required by replumb
-                 [com.cognitect/transit-cljs "0.8.239"]     ; Required by replumb
-                 [cljsjs/codemirror "5.21.0-2"]
+                 [org.clojure/tools.reader "1.0.2"]                                                                     ; Required by replumb
+                 [com.cognitect/transit-clj "0.8.300"]                                                                  ; Required by replumb
+                 [com.cognitect/transit-cljs "0.8.239"]                                                                 ; Required by replumb
+                 [cljsjs/codemirror "5.24.0-1"]
                  [camel-snake-kebab "0.4.0"]
-                 [cheshire "5.7.0"]                         ; Required by sass4clj
+                 [cheshire "5.7.1"]                                                                                ; Required by sass4clj
                  [tech.dashman/reagent-toolbox "0.1.0-SNAPSHOT"]]

   :plugins [[lein-cljsbuild "1.1.4"]
-            ;[lein-figwheel "0.5.9"]
             [deraen/lein-sass4clj "0.3.0"]
             [lein-heroku "0.5.3"]
             [lein-shell "0.5.0"]])


Back to snapshot

Back to snapshot

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject reply "0.1.0-beta1"
+(defproject reply "0.1.0-SNAPSHOT"
   :description "REPL-y: A fitter, happier, more productive REPL for Clojure."
   :dependencies [[org.clojure/clojure "1.3.0"]
                  [org.clojars.trptcolin/jline "2.7-alpha1"]


Version 0.0.2

Version 0.0.2

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject pe-fp-core "0.0.2-SNAPSHOT"
+(defproject pe-fp-core "0.0.2"
   :description "A Clojure library encapsulating the various domain objects associated with the fuel purchase application."
   :url "https://github.com/evanspa/pe-fp-core"
   :license {:name "MIT"


added org

added org

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject repl-from-java "1.0.1"
+(defproject com.github.kyleburton/repl-from-java "1.0.1"
   :description "CIDER + Nepl in a single dependency."
   :url "https://github.com/kyleburton/sandbox/tree/master/examples/clojure/repl-from-java"
   :license {:name "Eclipse Public License"


Bump up versions

Bump up versions

--- project.clj
+++ project.clj
@@ -4,14 +4,14 @@
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [;; clj stuff
-                 [org.clojure/clojure "1.9.0-alpha11"]
+                 [org.clojure/clojure "1.9.0-alpha12"]
                  [rewrite-clj "0.5.1"]
                  [clansi "1.0.0"]
                  ;; cljs stuff
                  [org.clojure/clojurescript "1.9.225" :scope "provided"]
                  [rewrite-cljs "0.4.1"]]

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

   :cljsbuild
   {:builds


Update deps

Update deps

--- project.clj
+++ project.clj
@@ -4,7 +4,7 @@
   :license {:name "Eclipse Public License"
             :url "http://www.eclipse.org/legal/epl-v10.html"}
   :dependencies [[org.clojure/clojure "1.5.1"]
-  				      [org.clojars.norgat/quil "2.0.0-SNAPSHOT"]
+  				      [org.clojars.norgat/quil "2.0.0-alpha"]
   				      [org.clojure/clojurescript "0.0-2234"]]

   :plugins [[lein-cljsbuild "1.0.3"]]


Add graph-generation note to project.

Add graph-generation note to project.

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

   :native-path "target/native"
   :jvm-opts ^:replace ["-Djava.library.path=target/native/linux"]
+
+  ; TODO: write some simple dev code to search for dot files in the doc folder and generate SVG graphs.
+  ;:aliases {"sysgraph" ["dot" "-Tsvg" "<" "doc/system-processes.dot" ">" "target/system-processes.svg"]}

   :dependencies
   [[com.codeminders/hidapi "1.1"]


0.8.1

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject vorrichtung "0.8.0"
+(defproject vorrichtung "0.8.1"
   :dependencies [[org.clojure/clojure "1.7.0"]
                  [org.clojure/clojurescript "1.7.170"]
                  [com.cognitect/transit-cljs "0.8.237"]


Remove unnecessary :all selector

Remove unnecessary :all selector

Originally thought necessary because a documentation example suggested
it. See technomancy/leiningen#1708.

--- project.clj
+++ project.clj
@@ -46,8 +46,7 @@
                  [com.taoensso/encore "1.9.3"]
                  [instaparse "1.3.4"]]
   :test-selectors {:default (complement #{:riak})
-                   :riak :riak
-                   :all (constantly true)}
+                   :riak :riak}
   :main ^:skip-aot icecap.core
   :target-path "target/%s"
   :profiles {:uberjar {:aot :all}


Update to jOOQ 3.8.2.

Update to jOOQ 3.8.2.

--- project.clj
+++ project.clj
@@ -4,7 +4,7 @@
   :license {:name "BSD (2-Clause)"
             :url "http://opensource.org/licenses/BSD-2-Clause"}
   :dependencies [[org.clojure/clojure "1.9.0-alpha3" :scope "provided"]
-                 [org.jooq/jooq "3.8.1"]]
+                 [org.jooq/jooq "3.8.2"]]
   :javac-options ["-target" "1.8" "-source" "1.8" "-Xlint:-options"]
   :profiles
   {:dev {:global-vars {*warn-on-reflection* false}


lein-ancient 0.6.5 released

lein-ancient 0.6.5 released

--- project.clj
+++ project.clj
@@ -51,7 +51,7 @@
                                         ["bikeshed"]
                                         ["eastwood"]]}
                    :plugins [[jonase/eastwood "0.1.4"]
-                             [lein-ancient "0.6.4"
+                             [lein-ancient "0.6.5"
                               :exclusions [rewrite-clj]]
                              [lein-bikeshed "0.1.8"]
                              [lein-cljfmt "0.1.10"]


lein-release plugin: preparing 0.3.17 release

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject re-view "0.3.17-SNAPSHOT"
+(defproject re-view "0.3.17"
   :description "Tiny React wrapper"
   :url "https://www.github.com/re-view/re-view"
   :license {:name "Eclipse Public License"


prismatic/schema 0.3.6 released

prismatic/schema 0.3.6 released

--- project.clj
+++ project.clj
@@ -17,7 +17,7 @@
                  [http-kit "2.1.19"]

                  ;; Schemata
-                 [prismatic/schema "0.3.5"]
+                 [prismatic/schema "0.3.6"]
                  [schema-contrib "0.1.5"
                   :exclusions [instaparse]]
                  [cddr/integrity "0.2.0-20140823.193326-1"


Version 3.1.0

Version 3.1.0

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject puppetlabs/trapperkeeper "3.1.0-SNAPSHOT"
+(defproject puppetlabs/trapperkeeper "3.1.0"
   :description "A framework for configuring, composing, and running Clojure services."

   :license {:name "Apache License, Version 2.0"


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject onyx-cheat-sheet "0.11.1.0-alpha1"
+(defproject onyx-cheat-sheet "0.11.1.0-SNAPSHOT"
   :description "Cheat sheet for Onyx"
   :url "https://github.com/onyx-platform/onyx-cheat-sheet"
   :license {:name "Eclipse Public License"


Use java.specification.version for version check

java.version on some platforms differs from what Puppetserver's project file tries to parse.
java.specification.version is however guaranteed to match the expected format.

On Debian openjdk-17-jre-headless's "java -XshowSettings:properties -version" is:
    file.encoding = UTF-8
    file.separator = /
    java.class.path =
    java.class.version = 61.0
    java.home = /usr/lib/jvm/java-17-openjdk-amd64
    java.io.tmpdir = /tmp
    java.library.path = /usr/java/packages/lib
        /usr/lib/x86_64-linux-gnu/jni
        /lib/x86_64-linux-gnu
        /usr/lib/x86_64-linux-gnu
        /usr/lib/jni
        /lib
        /usr/lib
    java.runtime.name = OpenJDK Runtime Environment
    java.runtime.version = 17-ea+24-Debian-1
    java.specification.name = Java Platform API Specification
    java.specification.vendor = Oracle Corporation
    java.specification.version = 17
    java.vendor = Debian
    java.vendor.url = https://tracker.debian.org/openjdk-17
    java.vendor.url.bug = https://bugs.debian.org/openjdk-17
    java.version = 17-ea
    java.version.date = 2021-09-14
    java.vm.compressedOopsMode = Zero based
    java.vm.info = mixed mode, sharing
    java.vm.name = OpenJDK 64-Bit Server VM
    java.vm.specification.name = Java Virtual Machine Specification
    java.vm.specification.vendor = Oracle Corporation
    java.vm.specification.version = 17
    java.vm.vendor = Debian
    java.vm.version = 17-ea+24-Debian-1
    jdk.debug = release
    line.separator = \n
    native.encoding = UTF-8
    os.arch = amd64
    os.name = Linux
    os.version = 5.10.0-7-amd64
    path.separator = :
    sun.arch.data.model = 64
    sun.boot.library.path = /usr/lib/jvm/java-17-openjdk-amd64/lib
    sun.cpu.endian = little
    sun.io.unicode.encoding = UnicodeLittle
    sun.java.launcher = SUN_STANDARD
    sun.jnu.encoding = UTF-8
    sun.management.compiler = HotSpot 64-Bit Tiered Compilers
    sun.stderr.encoding = UTF-8
    sun.stdout.encoding = UTF-8
    user.country = IE
    user.dir = /opt/deb/puppetserver
    user.home = /root
    user.language = en
    user.name = root

Which results in:
java.lang.Exception: Error loading /opt/deb/puppetserver/project.clj
 at leiningen.core.project$read_raw$fn__7634.invoke (project.clj:1046)
    leiningen.core.project$read_raw.invokeStatic (project.clj:1040)
    leiningen.core.project$read_raw.invoke (project.clj:1036)
    leiningen.core.project$read.invokeStatic (project.clj:1057)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.project$read.invokeStatic (project.clj:1058)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.main$_main$fn__7020.invoke (main.clj:447)
    leiningen.core.main$_main.invokeStatic (main.clj:442)
    leiningen.core.main$_main.doInvoke (main.clj:439)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.core$apply.invokeStatic (core.clj:665)
    clojure.main$main_opt.invokeStatic (main.clj:514)
    clojure.main$main_opt.invoke (main.clj:510)
    clojure.main$main.invokeStatic (main.clj:664)
    clojure.main$main.doInvoke (main.clj:616)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.main.main (main.java:40)
Caused by: clojure.lang.Compiler$CompilerException: Syntax error compiling at (/opt/deb/puppetserver/project.clj:25:1).
#:clojure.error{:phase :compile-syntax-check, :line 25, :column 1, :source "/opt/deb/puppetserver/project.clj"}
 at clojure.lang.Compiler.load (Compiler.java:7648)
    clojure.lang.Compiler.loadFile (Compiler.java:7574)
    clojure.lang.RT$3.invoke (RT.java:327)
    leiningen.core.project$read_raw$fn__7634.invoke (project.clj:1044)
    leiningen.core.project$read_raw.invokeStatic (project.clj:1040)
    leiningen.core.project$read_raw.invoke (project.clj:1036)
    leiningen.core.project$read.invokeStatic (project.clj:1057)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.project$read.invokeStatic (project.clj:1058)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.main$_main$fn__7020.invoke (main.clj:447)
    leiningen.core.main$_main.invokeStatic (main.clj:442)
    leiningen.core.main$_main.doInvoke (main.clj:439)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.core$apply.invokeStatic (core.clj:665)
    clojure.main$main_opt.invokeStatic (main.clj:514)
    clojure.main$main_opt.invoke (main.clj:510)
    clojure.main$main.invokeStatic (main.clj:664)
    clojure.main$main.doInvoke (main.clj:616)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.main.main (main.java:40)
Caused by: java.lang.NumberFormatException: For input string: "17-ea"
 at java.lang.NumberFormatException.forInputString (NumberFormatException.java:67)
    java.lang.Integer.parseInt (Integer.java:668)
    java.lang.Integer.parseInt (Integer.java:786)
    leiningen.core.project$eval664.invokeStatic (project.clj:140)
    leiningen.core.project$eval664.invoke (project.clj:25)
    clojure.lang.Compiler.eval (Compiler.java:7177)
    clojure.lang.Compiler.load (Compiler.java:7636)
    clojure.lang.Compiler.loadFile (Compiler.java:7574)
    clojure.lang.RT$3.invoke (RT.java:327)
    leiningen.core.project$read_raw$fn__7634.invoke (project.clj:1044)
    leiningen.core.project$read_raw.invokeStatic (project.clj:1040)
    leiningen.core.project$read_raw.invoke (project.clj:1036)
    leiningen.core.project$read.invokeStatic (project.clj:1057)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.project$read.invokeStatic (project.clj:1058)
    leiningen.core.project$read.invoke (project.clj:1054)
    leiningen.core.main$_main$fn__7020.invoke (main.clj:447)
    leiningen.core.main$_main.invokeStatic (main.clj:442)
    leiningen.core.main$_main.doInvoke (main.clj:439)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.core$apply.invokeStatic (core.clj:665)
    clojure.main$main_opt.invokeStatic (main.clj:514)
    clojure.main$main_opt.invoke (main.clj:510)
    clojure.main$main.invokeStatic (main.clj:664)
    clojure.main$main.doInvoke (main.clj:616)
    clojure.lang.RestFn.applyTo (RestFn.java:137)
    clojure.lang.Var.applyTo (Var.java:705)
    clojure.main.main (main.java:40)

--- project.clj
+++ project.clj
@@ -132,7 +132,7 @@
                     {:dependencies [[org.bouncycastle/bcpkix-fips]
                                     [org.bouncycastle/bc-fips]
                                     [org.bouncycastle/bctls-fips]]
-                     :jvm-opts ~(let [version (System/getProperty "java.version")
+                     :jvm-opts ~(let [version (System/getProperty "java.specification.version")
                                       [major minor _] (clojure.string/split version #"\.")
                                       unsupported-ex (ex-info "Unsupported major Java version. Expects 8 or 11."
                                                        {:major major


Bump to 1.3.0

Bump to 1.3.0


lein-release plugin: bumped version from 0.1.3 to 0.1.4-SNAPSHOT for next development cycle

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject re-view-routing "0.1.3"
+(defproject re-view-routing "0.1.4-SNAPSHOT"

   :description "ClojureScript routing tools"


Advance version number to 0.1.1

Advance version number to 0.1.1

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject io.aviso/tracker "0.1.0"
+(defproject io.aviso/tracker "0.1.1"
   :description "Track per-thread operations when exceptions occur"
   :url "https://github.com/AvisoNovate/tracker"
   :license {:name "Apache Sofware Licencse 2.0"


Upgrading kixi.comms 0.1.24

Upgrading kixi.comms 0.1.24

--- project.clj
+++ project.clj
@@ -32,7 +32,7 @@
                  [digest "1.4.4"]
                  [clojurewerkz/elastisch "3.0.0-beta1"]
                  [environ "1.1.0"]
-                 [kixi/kixi.comms "0.1.22"]
+                 [kixi/kixi.comms "0.1.24"]
                  [joplin.core "0.3.9"]
                  [joplin.elasticsearch "0.3.9"]
                  [manifold "0.1.6-alpha1"]


Update dependencies.

Update dependencies.

--- project.clj
+++ project.clj
@@ -82,7 +82,7 @@
         ;; NB: clj-time is pulled in by oc.lib
         ;; NB: joda-time is pulled in by oc.lib via clj-time
         ;; NB: commons-codec pulled in by oc.lib
-        [midje "1.9.2-alpha4" :exclusions [joda-time org.clojure/tools.macro clj-time commons-codec]]
+        [midje "1.9.2" :exclusions [joda-time org.clojure/tools.macro clj-time commons-codec]]
         ;; Test Ring requests https://github.com/weavejester/ring-mock
         [ring-mock "0.1.5"]
       ]
@@ -90,7 +90,7 @@
         ;; Example-based testing https://github.com/marick/lein-midje
         [lein-midje "3.2.1"]
         ;; Linter https://github.com/jonase/eastwood
-        [jonase/eastwood "0.2.7"]
+        [jonase/eastwood "0.2.9"]
         ;; Static code search for non-idiomatic code https://github.com/jonase/kibit
         [lein-kibit "0.1.6" :exclusions [org.clojure/clojure]]
       ]


Version 2.0.0

Version 2.0.0

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject wkf/clj-http "2.0.0-SNAPSHOT"
+(defproject wkf/clj-http "2.0.0"
   :description "A Clojure HTTP library wrapping the Apache HttpComponents client."
   :url "https://github.com/mojotech/clj-http/"
   :license {:name "The MIT License"


migrate to latest cljs compiler version (to use port of 'are' macro at cljs.test)

--- project.clj
+++ project.clj
@@ -6,7 +6,7 @@
   :dependencies [[org.clojure/clojure "1.6.0"]
                  [clj-http "1.0.1"]
                  [enlive "1.1.5"]
-                 [org.clojure/clojurescript "0.0-3058"]]
+                 [org.clojure/clojurescript "0.0-3123"]]
   :main cljs-workcalendar.app
   :plugins [[lein-cljsbuild "1.0.5"]]
   :cljsbuild {


Version 0.1.3-36iow1

Version 0.1.3-36iow1

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


add explicit lein :release-tasks

add explicit lein :release-tasks

--- project.clj
+++ project.clj
@@ -12,6 +12,16 @@
   :source-paths      ["src/clojure"]
   :java-source-paths ["src/java"]
   :javac-options     ["--release" "8"]
+
+  :release-tasks [["vcs" "assert-committed"]
+                  ["change" "version" "leiningen.release/bump-version" "release"]
+                  ["vcs" "commit"]
+                  ["vcs" "tag" "--no-sign"]
+                  ["deploy"]
+                  ["change" "version" "leiningen.release/bump-version"]
+                  ["vcs" "commit"]
+                  ;["vcs" "push"]
+                  ]
   :deploy-repositories [["releases" :clojars]] ;; lein release :patch
   :signing {:gpg-key "jimpil1985@gmail.com"}
   )


Include monger 2.0.0 as a dependency

Include monger 2.0.0 as a dependency

--- project.clj
+++ project.clj
@@ -6,7 +6,8 @@
   :license {:name "3-Clause BSD"
             :url "http://opensource.org/licenses/BSD-3-Clause"}
   :dependencies [[org.clojure/clojure "1.6.0"]
-                 [org.clojure/data.json "0.2.6"]]
+                 [org.clojure/data.json "0.2.6"]
+                 [com.novemberain/monger "2.0.0"]]
   :main ^:skip-aot whitman.core
   :target-path "target/%s"
   :jar-name "whitman.jar"


Version 0.2.7-SNAPSHOT

Version 0.2.7-SNAPSHOT

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject wb-es "0.2.6"
+(defproject wb-es "0.2.7-SNAPSHOT"
   :description "FIXME: write description"
   :url "http://example.com/FIXME"
   :min-lein-version "2.7.0"


Set clojure 1.6.0 as default clojure version.

--- project.clj
+++ project.clj
@@ -3,7 +3,7 @@
   :url "https://github.com/niwibe/buddy"
   :license {:name "Apache 2.0"
             :url "http://www.apache.org/licenses/LICENSE-2.0.txt"}
-  :dependencies [[org.clojure/clojure "1.5.1"]
+  :dependencies [[org.clojure/clojure "1.6.0"]
                  [org.clojure/algo.monads "0.1.4"]
                  [ring/ring-core "1.2.1"]
                  [commons-codec/commons-codec "1.8"]
@@ -32,5 +32,4 @@
                              :source-paths ["examples/oauthexample/src"]
                              :resource-paths ["example/oauthexample/resources"]
                              :target-path "examples/oauthexample/target/%s"
-                             :main ^:skip-aot oauthexample.core}]
-             :1.6 {:dependencies [[org.clojure/clojure "1.6.0"]]}})
+                             :main ^:skip-aot oauthexample.core}]})


added a warning-handler to fail on WARNINGs during compilation

--- project.clj
+++ project.clj
@@ -87,7 +87,13 @@
         :alias {:default [:chrome]}
         :paths {:karma "./node_modules/karma/bin/karma"}}

-  :cljsbuild {:builds {:dev {:source-paths ["src-cljs" "test-cljs"]
+  :cljsbuild ~(let [warning-handlers ['(fn [warning-type env extra]
+                                         (when (warning-type cljs.analyzer/*cljs-warnings*)
+                                           (when-let [s (cljs.analyzer/error-message warning-type extra)]
+                                             (binding [*out* *err*]
+                                               (println "WARNING:" (cljs.analyzer/message env s)))
+                                             (System/exit 1))))]]
+                `{:builds {:dev {:source-paths ["src-cljs" "test-cljs"]
                              ;; Port 4444 is proxied (with SSL) to 3449 (the Figwheel server port).
                              :figwheel {:websocket-url "wss://prod.circlehost:4444/figwheel-ws"}
                              :compiler {:output-to "resources/public/cljs/out/frontend-dev.js"
@@ -110,6 +116,7 @@
                        ;; This is the build normally used for testing on
                        ;; development machines. Use it by running lein doo.
                        :dev-test {:source-paths ["src-cljs" "test-cljs"]
+                                  :warning-handlers ~warning-handlers
                                   :compiler {:output-to "resources/public/cljs/dev-test/frontend-dev.js"
                                              :output-dir "resources/public/cljs/dev-test"
                                              ;; This is the default when we have :optimizations :advanced. It causes some
@@ -120,6 +127,7 @@
                                              :main frontend.test-runner}}

                        :whitespace {:source-paths ["src-cljs"]
+                                    :warning-handlers ~warning-handlers
                                     :compiler {:output-to "resources/public/cljs/whitespace/frontend-whitespace.js"
                                                :output-dir "resources/public/cljs/whitespace"
                                                :optimizations :whitespace
@@ -130,6 +138,7 @@
                        ;; compilation bugs. That's too slow to run in
                        ;; development, so we run this one in CI.
                        :test {:source-paths ["src-cljs" "test-cljs"]
+                              :warning-handlers ~warning-handlers
                               :compiler {:output-to "resources/public/cljs/test/frontend-test.js"
                                          :output-dir "resources/public/cljs/test"
                                          :optimizations :advanced
@@ -149,6 +158,7 @@
                                          :source-map "resources/public/cljs/test/frontend-test.js.map"}}

                        :production {:source-paths ["src-cljs"]
+                                    :warning-handlers ~warning-handlers
                                     :compiler {:pretty-print false
                                                :output-to "resources/public/cljs/production/frontend.js"
                                                :output-dir "resources/public/cljs/production"
@@ -161,7 +171,7 @@
                                                          "src-cljs/js/d3-externs.js"
                                                          "src-cljs/js/prismjs-externs.js"
                                                          "src-cljs/js/bootstrap-externs.js"]
-                                               :source-map "resources/public/cljs/production/frontend.js.map"}}}}
+                                               :source-map "resources/public/cljs/production/frontend.js.map"}}}})
   :profiles {:devtools {:repl-options {:port 8230
                                        :nrepl-middleware [dirac.nrepl.middleware/dirac-repl]
                                        :init (do


bump version

bump version

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject corpus-utils "0.1.0"
+(defproject corpus-utils "0.1.1"
   :description "Miscellaneous utilities to parse Japanese language corpora with Clojure"
   :url "https://github.com/borh/corpus-utils.git"
   :license {:name "Eclipse Public License"


[onyx-dashboard #58] Use onyx-visualization 0.2.0

--- project.clj
+++ project.clj
@@ -22,7 +22,7 @@
 		 ^{:voom {:repo "git@github.com:onyx-platform/onyx.git" :branch "master"}}
 		 [org.onyxplatform/onyx "0.9.10-beta1"]
 		 [org.onyxplatform/lib-onyx "0.9.7.1" :exclusions [ring-jetty-component org.onyxplatform/onyx]]
-                 [org.onyxplatform/onyx-visualization "0.1.0"]
+                 [org.onyxplatform/onyx-visualization "0.2.0"]
 		 [timothypratley/patchin "0.3.5"]
 		 [com.cognitect/transit-clj "0.8.285"]
 		 [com.cognitect/transit-cljs "0.8.237"]


Bump of version of lein-cloverage

Bump of version of lein-cloverage

--- project.clj
+++ project.clj
@@ -64,7 +64,7 @@
     :plugins [[lein-ring "0.8.10"]
               [codox "0.8.11"]
               [test2junit "1.1.0"]
-              [lein-cloverage "1.0.6"]]
+              [lein-cloverage "1.0.7-SNAPSHOT"]]
     :ring {:handler clouseau.core/app}
     :main clouseau.core)


Prepare for next release cycle.

Prepare for next release cycle.

--- project.clj
+++ project.clj
@@ -1,4 +1,4 @@
-(defproject org.onyxplatform/onyx-metrics "0.12.0.0-alpha1"
+(defproject org.onyxplatform/onyx-metrics "0.12.0.0-SNAPSHOT"
   :description "Instrument Onyx workflows"
   :url "https://github.com/onyx-platform/onyx-metrics"
   :license {:name "Eclipse Public License"


(maint) Add bouncycastle to ezbake profile

Ezbake does not use the :uberjar profile, so
it could not find any bouncycastle library.

--- project.clj
+++ project.clj
@@ -256,6 +256,10 @@
                                                ;; https://github.com/technomancy/leiningen/issues/2216
                                                ;; Hopefully we can remove those `nil`s (if we care)
                                                ;; and this comment when lein 2.7.2 is available.
+
+                                               ;; ezbake does not use the uberjar profile so we need
+                                               ;; to duplicate this dependency here
+                                               [org.bouncycastle/bcpkix-jdk15on nil]

                                                ;; we need to explicitly pull in our parent project's
                                                ;; clojure version here, because without it, lein


Version 0.7.6-SNAPSHOT

Version 0.7.6-SNAPSHOT

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


Bump tools.reader

Bump tools.reader

--- project.clj
+++ project.clj
@@ -8,7 +8,7 @@
                  ^:inline-dep [cheshire "5.10.0"]
                  ^:inline-dep [org.clojure/tools.analyzer.jvm "0.7.3"]
                  ^:inline-dep [org.clojure/tools.namespace "0.3.1" :exclusions [org.clojure/tools.reader]]
-                 ^:inline-dep [org.clojure/tools.reader "1.3.2"]
+                 ^:inline-dep [org.clojure/tools.reader "1.3.5"]
                  ^:inline-dep [cider/orchard "0.5.6"]
                  ^:inline-dep [cljfmt "0.7.0"]
                  ^:inline-dep [clj-commons/fs "1.5.0"]


add selmer for templating.

add selmer for templating.

--- project.clj
+++ project.clj
@@ -8,7 +8,10 @@
                  [environ "1.0.0"]
                  [ring/ring-core "1.4.0"]
                  [ring/ring-jetty-adapter "1.4.0"]
-                 [bidi "1.20.3"]]
+                 [bidi "1.20.3"]
+                 [selmer "0.8.8"]]
   :main ^:skip-aot slack-invite.core
   :target-path "target/%s"
+  :ring {:handler slack-invite.core/handler
+         :nrepl {:start? true}}
   :profiles {:uberjar {:aot :all}})


Make mvn produce a non-aot'd JAR

Make mvn produce a non-aot'd JAR

--- project.clj
+++ project.clj
@@ -69,7 +69,7 @@
   :pom-plugins [[com.theoryinpractise/clojure-maven-plugin "1.3.15"
                  {:extensions "true"
                   :configuration ([:sourceDirectories [:sourceDirectory "src"]]
-                                  [:temporaryOutputDirectory "false"]
+                                  [:temporaryOutputDirectory "true"]
                                   [:copyDeclaredNamespaceOnly "false"]
                                   [:compileDeclaredNamespaceOnly "false"]
                                   [:namespaces


Template version 0.2.0

Template version 0.2.0

--- template/project.clj
+++ template/project.clj
@@ -1,4 +1,4 @@
-(defproject friboo/lein-template "0.2.0-SNAPSHOT"
+(defproject friboo/lein-template "0.2.0"
   :description "Leiningen template for Friboo library"
   :url "https://github.com/dryewo/friboo-template"
   :license {:name "Apache License"


Remove repl test

Remove repl test

It doesn't make sense to try testing a macro like this. There's no way
to do good testing with it and I know it works. The parser uses the same
logic anyway.

--- test/chenex/repl.clj
+++ test/chenex/repl.clj
@@ -1,48 +0,0 @@
-(ns chenex.repl-tests
-  (:require [clojure.java.io :as io]
-            [plugin-helpers.core :as h])
-  (:use [clojure.test]
-        [greenyouse.chenex]))
-
-(defn build-fixture
-  "tests the chenex-repl.clj"
-  [do-tests]
-  (let [orig (h/get-project-value :chenex :repl)]
-    (h/assoc-in-project [:chenex :repl] #{:chrome :b})
-    (do-tests)
-    (if (nil? orig)
-      (h/remove-in-project [:chenex])
-      (h/assoc-in-project [:chenex :repl] orig))))
-
-(defn platform-fixture
-  "tests setting the platforms"
-  [do-tests]
-  (do
-    (reset! opts {:compiling true
-                  :features #{:chrome :b}})
-    (do-tests)
-    (reset! opts {:compiling false
-                  :features nil})))
-
-;; TODO: fix this test later, the chenex macros evaluate
-;;  immediately which keeps the fixtures from working.
-(deftest repl-test
-  (are [expected expr]
-      (= expected expr)
-    "chrome" (in! [:chrome] "chrome")
-    nil (in! [:safari] "safari")
-    "chrome" (ex! [:safari] "chrome")
-    nil (ex! [:chrome] "safari")
-    "chrome" (in-case! [:b] "chrome"
-               [:safari] "safari")
-    nil (in-case! [:opera] "opera"
-          [:safari] "safari")
-    "chrome" (in-case! [:opera] "opera"
-               :else
-               "chrome")))
-
-(use-fixtures :once (fn [test]
-                      (build-fixture test)
-                      (platform-fixture test)))
-
-(comment (run-tests))


Remove old link only after new one is loaded (#770)

Current implementation removes old link node just after inserting new one but before it is loaded. This results a blinking/flashing effect which is very annoying.

--- src/main/shadow/cljs/devtools/client/browser.cljs
+++ src/main/shadow/cljs/devtools/client/browser.cljs
@@ -124,9 +124,9 @@
             (doto (.cloneNode node true)
               (.setAttribute "href" (str path-match "?r=" (rand))))]

+        (set! (.-onload new-link) #(gdom/removeNode node))
         (devtools-msg "load CSS" path-match)
         (gdom/insertSiblingAfter new-link node)
-        (gdom/removeNode node)
         ))))

 (defn global-eval [js]


fixed typo

fixed typo

--- src/leiningen/new/reagent/env/prod/cljs/reagent/prod.cljs
+++ src/leiningen/new/reagent/env/prod/cljs/reagent/prod.cljs
@@ -2,6 +2,6 @@
   (:require [{{project-ns}}.core :as core]))

 ;;ignore println statements in prod
-(set! *print-fn* (fn [& -]))
+(set! *print-fn* (fn [& _]))

 (core/init!)


DNS back google

DNS back google

Livebox goes to eth2

--- orange_livebox.boot
+++ orange_livebox.boot
@@ -81,27 +81,6 @@
         description LAN1
         duplex auto
         speed auto
-        vif 835 {
-        }
-        vif 838 {
-            bridge-group {
-                bridge br0
-            }
-            description TV
-        }
-        vif 840 {
-            bridge-group {
-                bridge br0
-            }
-            description TV
-
-        }
-        vif 851 {
-            bridge-group {
-                bridge br0
-            }
-            description VoIP
-        }
     }
     ethernet eth1 {
         description Internet
@@ -124,7 +103,6 @@
                 name-server auto
                 user-id fti/user
                 password secret
-
             }
         }
         vif 838 {
@@ -152,6 +130,26 @@
         description LAN2
         duplex auto
         speed auto
+        vif 835 {
+        }
+        vif 838 {
+            bridge-group {
+                bridge br0
+            }
+            description TV
+        }
+        vif 840 {
+            bridge-group {
+                bridge br0
+            }
+            description TV
+        }
+        vif 851 {
+            bridge-group {
+                bridge br0
+            }
+            description VoIP
+        }
     }
     loopback lo {
     }
@@ -214,7 +212,6 @@
         secure-mode disable
         wan pppoe0
     }
-
     pppoe-server {
         dns-servers {
             server-1 80.10.246.2
@@ -232,10 +229,9 @@
             start 192.168.2.210
             stop 192.168.2.220
         }
-        interface eth0.835
+        interface eth2.835
         mtu 1492
     }
-
 }
 system {
     config-management {
@@ -250,8 +246,8 @@
             level admin
         }
     }
-    name-server 208.67.222.222
-    name-server 208.67.220.220
+    name-server 8.8.8.8
+    name-server 8.8.4.4
     ntp {
         server 0.ubnt.pool.ntp.org {
         }


Included cider repl

Included cider repl

--- go-fighweel/project.clj
+++ go-fighweel/project.clj
@@ -45,7 +45,12 @@
                                    :optimizations :advanced
                                    :pretty-print false}}]}

-  :repl-options { :port 6502 }
+  :repl-options { :port 6502
+                  :init-ns cloj.lwjgl.main
+                  :nrepl-middleware [cider.nrepl.middleware.stacktrace/wrap-stacktrace
+                                     ]
+
+                 }

   :figwheel {
              ;; :http-server-root "public" ;; default and assumes "resources"


STORM-2067 Fix "array element type mismatch" from compute-executors in nimbus.clj

* force set type to Map when calling into-array with seq which has Maps
** Clojure optimization occurs type mismatch: PersistentArrayMap vs PersistentHashMap

--- storm-core/src/clj/org/apache/storm/daemon/nimbus.clj
+++ storm-core/src/clj/org/apache/storm/daemon/nimbus.clj
@@ -29,7 +29,7 @@
            [java.util Collections List HashMap]
            [org.apache.storm.generated NimbusSummary])
   (:import [java.nio ByteBuffer]
-           [java.util Collections List HashMap ArrayList Iterator])
+           [java.util Collections List HashMap ArrayList Iterator Map])
   (:import [org.apache.storm.blobstore AtomicOutputStream BlobStoreAclHandler
             InputStreamWithMeta KeyFilter KeySequenceNumber BlobSynchronizer BlobStoreUtils])
   (:import [java.io File FileOutputStream FileInputStream])
@@ -641,7 +641,7 @@
          (Utils/reverseMap)
          clojurify-structure
          (map-val sort)
-         ((fn [ & maps ] (Utils/joinMaps (into-array (into [component->executors] maps)))))
+         ((fn [ & maps ] (Utils/joinMaps (into-array Map (into [component->executors] maps)))))
          (clojurify-structure)
          (map-val (partial apply (fn part-fixed [a b] (Utils/partitionFixed a b))))
          (mapcat second)


Refactor - add status atom support

Refactor - add status atom support

--- src/aerobio/htseq/tnseq.clj
+++ src/aerobio/htseq/tnseq.clj
@@ -271,21 +271,24 @@
     (cmn/ensure-dirs fit aggr)))

 (defn run-fitness-aggregate
-  [eid recipient comparison-file get-toolinfo template]
+  [eid recipient comparison-file get-toolinfo template status-atom]
   (let [_ (get-phase-2-dirs eid)
         cfg    (assoc-in template
                          [:nodes :ph2 :args]
-                         [eid comparison-file recipient])]
-    (pg/future+ (cmn/flow-program cfg get-toolinfo :run true))))
+                         [eid comparison-file recipient])
+        futs-vec (cmn/flow-program cfg get-toolinfo :run true)]
+    (cmn/job-flow-node-results futs-vec status-atom)
+    (@status-atom :done)))

 (defmethod cmn/run-comparison :tnseq
-  [_ eid recipient compfile get-toolinfo template]
-  (run-fitness-aggregate eid recipient compfile get-toolinfo template))
+  [_ eid recipient compfile get-toolinfo template status-atom]
+  (run-fitness-aggregate
+   eid recipient compfile get-toolinfo template status-atom))

 (defmethod cmn/run-phase-2 :tnseq
-  [_ eid recipient get-toolinfo template]
+  [_ eid recipient get-toolinfo template status-atom]
   (run-fitness-aggregate
-   eid recipient "ComparisonSheet.csv" get-toolinfo template))
+   eid recipient "ComparisonSheet.csv" get-toolinfo template status-atom))

 (defn get-aggregate-files
@@ -320,14 +323,20 @@

 #_(->>  (get-aggregate-files eid "BottleNeck.csv") clojure.pprint/pprint)

-(defn run-aggregation
-  [eid recipient compfile get-toolinfo template]
+(defn run-global-aggregation
+  [eid recipient compfile get-toolinfo template status-atom]
   #_(prn eid compfile)
   (let [cfg (assoc-in template
                       [:nodes :ph2 :args]
-                      [eid compfile recipient])]
-    #_(prn cfg)
-    (pg/future+ (cmn/flow-program cfg get-toolinfo :run true))))
+                      [eid compfile recipient])
+        futs-vec (cmn/flow-program cfg get-toolinfo :run true)]
+    (cmn/job-flow-node-results futs-vec status-atom)
+    (@status-atom :done)))
+
+(defmethod cmn/run-aggregation :tnseq
+  [_ eid recipient compfile get-toolinfo template status-atom]
+  (run-global-aggregation
+   eid recipient compfile get-toolinfo template status-atom))


s/:subj/:obj/

s/:subj/:obj/

--- src/babel/encyclopedia.cljc
+++ src/babel/encyclopedia.cljc
@@ -555,16 +555,16 @@
          :subj {:living true}}

         {:pred :wear
-         :subj {:clothing true}}
+         :obj {:clothing true}}

         {:pred :wear-i
-         :subj {:clothing true}}
+         :obj {:clothing true}}

         {:pred :wear-l
-         :subj {:clothing true}}
+         :obj {:clothing true}}

         {:pred :wear-p
-         :subj {:clothing true}}
+         :obj {:clothing true}}

         {:pred :win
          :subj {:human true}


Небольшая доработка net

Небольшая доработка net

--- radiolamp-6P3S/src/ixinfestor/net.cljs
+++ radiolamp-6P3S/src/ixinfestor/net.cljs
@@ -23,14 +23,16 @@
 (def w (t/writer :json))
 (def transit-header (clj->js {:content-type "application/transit+json"}))

-(defn get-data [uri params success-fn & [error-fn complete-fn]]
+(defn get-data [uri params success-fn & [error-fn complete-fn disable-progress-element?]]
   (let [req (goog.net.XhrIo.)
-        progress-element (.getElementById js/document progress-element-id)]
+        progress-element (if disable-progress-element?
+                           false
+                           (.getElementById js/document progress-element-id))]

     ;; Отобразить элемент прогресса выполнения
     (when progress-element
       (set! (-> progress-element .-style .-display) ""))
-
+
     (events/listen req goog.net.EventType.ERROR
                    (fn [e]
                      (let [response-text (.getResponseText (.-target e))
@@ -46,7 +48,7 @@
                        ;; Отобразить элемент прогресса выполнения
                        (when progress-element
                          (set! (-> progress-element .-style .-display) "none"))
-
+
                        (println "REQUEST COMPLETE")
                        (if complete-fn (complete-fn response)))))


Add better impl for util timers.

Add better impl for util timers.

--- frontend/src/uxbox/util/timers.cljs
+++ frontend/src/uxbox/util/timers.cljs
@@ -4,8 +4,19 @@
 ;;
 ;; Copyright (c) 2016-2017 Andrey Antukh <niwi@niwi.nz>

-(ns uxbox.util.timers)
+(ns uxbox.util.timers
+  (:require [beicon.core :as rx]))

 (defn schedule
   [ms func]
-  (js/setTimeout func ms))
+  (let [sem (js/setTimeout #(func) ms)]
+    (reify rx/ICancellable
+      (-cancel [_]
+        (js/clearTimeout sem)))))
+
+(defn interval
+  [ms func]
+  (let [sem (js/setInterval #(func) ms)]
+    (reify rx/ICancellable
+      (-cancel [_]
+        (js/clearInterval sem)))))


Stub for the Ring-based webserver

Stub for the Ring-based webserver

--- src/branch_handler/core.clj
+++ src/branch_handler/core.clj
@@ -1,2 +1,31 @@
 (ns branch-handler.core)

+(require '[ring.adapter.jetty      :as jetty])
+(require '[ring.middleware.params  :as http-params])
+(require '[ring.util.response      :as http-response])
+
+(require '[clojure.data.json       :as json])
+
+(require '[clojure.tools.cli       :as cli])
+(require '[clojure.tools.logging   :as log])
+
+(def verbose true)
+(def port 4000)
+
+(def ring-app
+    "Definition of a Ring-based application behaviour."
+    (-> http-request-handler      ; handle all events
+        http-params/wrap-params)) ; and process request parameters, of course
+
+(defn start-server
+    "Start the service on regular machine."
+    [ring-app port]
+    (log/info "Starting the server at the port: " port)
+    (jetty/run-jetty ring-app {:port port}))
+
+(defn -main
+    "Entry point to the branch handler service server."
+    [& args]
+    (log/info "started app on port" port)
+    (start-server ring-app port))
+


adding fetch all quotas and non fast fail quota for user

--- src/celestial/api/users.clj
+++ src/celestial/api/users.clj
@@ -63,8 +63,12 @@
 (defmodel limit :limit :int)

 (defroutes- quotas {:path "/quota" :description "User quota managment"}
+
+  (GET- "/quotas" [] {:nickname "getQuotas" :summary "Get all quotas"}
+    (success (map q/get-quota (q/all-quotas))))
+
   (GET- "/quotas/:name" [^:string name] {:nickname "getQuota" :summary "Get users quota"}
-    (success (q/get-quota! name)))
+    (success (q/get-quota name)))

   (POST- "/quotas/" [& ^:quota quota] {:nickname "addQuota" :summary "Adds a user quota"}
     (wrap-errors


adding test endpoint for public registration

--- src/chat/server/handler.clj
+++ src/chat/server/handler.clj
@@ -13,6 +13,7 @@
             [chat.server.sync :as sync :refer [sync-routes]]
             [environ.core :refer [env]]
             [chat.shared.util :refer [valid-nickname?]]
+            [chat.server.cache :refer [random-nonce]]
             [chat.server.db :as db]
             [chat.server.invite :as invites]
             [chat.server.digest :as digest]
@@ -20,7 +21,8 @@
             [chat.server.extensions :as ext :refer [b64->str]]
             ; just requiring to register multimethods
             chat.server.extensions.asana
-            [chat.server.email-digest :as email-digest]))
+            [chat.server.email-digest :as email-digest]
+            [chat.server.identicons :as identicons]))

 (defn edn-response [clj-body]
   {:headers {"Content-Type" "application/edn; charset=utf-8"}
@@ -43,6 +45,30 @@
                    clojure.java.io/resource
                    slurp)]
       (string/replace html #"\{\{\w*\}\}" replacements)))
+
+  ; TODO: verify that this is a group that you are allowed to join without an invite
+  (POST "/public-register/:group-id" [group-id email :as req]
+    (if (string/blank? email)
+      {:status 400 :body "Invalid email"}
+      (let [group-id (java.util.UUID/fromString group-id)
+            id (db/uuid)
+            avatar (identicons/id->identicon-data-url id)
+            ; XXX: copied from chat.shared.util/nickname-rd
+            disallowed-chars #"[ \t\n\]\[!\"#$%&'()*+,.:;<=>?@\^`{|}~/]"
+            nick (-> (first (string/split email #"@"))
+                     (string/replace disallowed-chars ""))
+            u (db/with-conn (db/create-user! {:id id
+                                              :email email
+                                              :password (random-nonce 50)
+                                              :avatar avatar
+                                              :nickname nick}))]
+        (db/with-conn
+          (db/user-add-to-group! id group-id)
+          (db/user-subscribe-to-group-tags! id group-id))
+        (sync/broadcast-user-change id [:chat/new-user u])
+        {:status 302 :headers {"Location" "/"}
+         :session (assoc (req :session) :user-id id)
+         :body ""})))

   (POST "/register" [token invite_id password email now hmac nickname avatar :as req]
     (let [fail {:status 400 :headers {"Content-Type" "text/plain"}}]
@@ -78,7 +104,7 @@
                 (db/user-add-to-group! (user :id) (invite :group-id))
                 (db/user-subscribe-to-group-tags! (user :id) (invite :group-id))
                 (db/retract-invitation! (invite :id)))
-              (sync/broadcast-user-change (user :id) [:chat/new-user (dissoc user :email)])
+              (sync/broadcast-user-change (user :id) [:chat/new-user user])
               {:status 302 :headers {"Location" "/"}
                :session (assoc (req :session) :user-id (user :id))
                :body ""}))))))


formatting

formatting

--- src/chat/server/handler.clj
+++ src/chat/server/handler.clj
@@ -46,13 +46,21 @@
     (let [fail {:status 400 :headers {"Content-Type" "text/plain"}}]
       (cond
         (string/blank? password) (assoc fail :body "Must provide a password")
-        (not (invites/verify-hmac hmac (str now token invite_id email))) (assoc fail :body "Invalid HMAC")
+
+        (not (invites/verify-hmac hmac (str now token invite_id email)))
+        (assoc fail :body "Invalid HMAC")
+
         (string/blank? invite_id) (assoc fail :body "Invalid invitation ID")
-        (not (valid-nickname? nickname)) (assoc fail :body "Nickname must be 1-30 characters without whitespace")
-        (db/with-conn (db/nickname-taken? nickname)) (assoc fail :body "nickname taken")
+
+        (not (valid-nickname? nickname))
+        (assoc fail :body "Nickname must be 1-30 characters without whitespace")
+
+        (db/with-conn (db/nickname-taken? nickname))
+        (assoc fail :body "nickname taken")

         ; TODO: be smarter about this
-        (not (#{"image/jpeg" "image/png"} (:content-type avatar))) (assoc fail :body "Invalid image")
+        (not (#{"image/jpeg" "image/png"} (:content-type avatar)))
+        (assoc fail :body "Invalid image")

         :else
         (let [invite (db/with-conn (db/get-invite (java.util.UUID/fromString invite_id)))]


remove old sanitize function

remove old sanitize function

--- src/clj/battlebots/game.clj
+++ src/clj/battlebots/game.clj
@@ -60,10 +60,6 @@
   "Randomizes player ids"
   [players]
   (shuffle (map #(:_id %) players)))
-
-(comment (defn- sanitize-player
-           [player]
-           (dissoc player :bot :saved-state)))

 (defn- sort-decisions
   "Sorts player decisions based of of a provided execution-order"


adpat to angles used in the new machine-arm

--- src/clj/calc_angle/core.clj
+++ src/clj/calc_angle/core.clj
@@ -15,11 +15,14 @@

 (def PI Math/PI)

-(def base-high 10.3)
-
-(def first-arm 14.)
-
-(def second-arm 15.2)
+;;
+;; Write field is x (-10, 10) y (22, 32)
+;;
+(def min-y 22)
+(def field-size 20)
+
+(def first-arm 22.2)
+(def second-arm 25.0)

 (defn to-int [val]
   (int (+ 0.5 val)))
@@ -120,7 +123,7 @@
         (conj reslt-strokes (fill-gap (last last-stroke) (first (first left-strokes))))))))

 (defn process-stroke [stroke scale default-z]
-  (map (fn [[x y]] (list (- (* 15. (/ x scale)) 7.5) (+ (* 15. (/ (- scale y) scale)) 7.5) default-z)) stroke))
+  (map (fn [[x y]] (list (- (* field-size (/ x scale)) (/ field-size 2.)) (+ (* field-size (/ (- scale y) scale)) min-y) default-z)) stroke))

 (defn dump-strokes [strokes title]
   (println (str title " >>>"))
@@ -141,13 +144,13 @@
   (let [serial-str (format "a=%.3f,b=%.3f,c=%.3f," base-angle first-angle second-angle)]
     (println (str "--> " serial-str))
     (.writeString *serial-conn* serial-str)
-    (let [echo (aget (.readBytes *serial-conn* 1) 0)]
+    (let [echo (char (aget (.readBytes *serial-conn* 1) 0))]
       (when-not (= echo \0) (println (str echo " angle out of range"))))
     (loop [reduce-str "<-- "
-           curr-char (aget (.readBytes *serial-conn* 1) 0)]
-      (if (= curr-char (byte \n))
+           curr-char (char (aget (.readBytes *serial-conn* 1) 0))]
+      (if (= curr-char \newline)
         (println reduce-str)
-        (recur (str reduce-str (char curr-char)) (aget (.readBytes *serial-conn* 1) 0))))))
+        (recur (str reduce-str curr-char) (char (aget (.readBytes *serial-conn* 1) 0)))))))

 (defn calc-angle-seq [input-str]
   (let [input (load-string input-str)
@@ -162,7 +165,7 @@
         alpha-beta-radian-list (map #(calc-alpha-beta (first %1) %2) r-theta-list (map (fn [x] (last x)) strokes-z))
         alpha-beta-degree-list (map (fn [[alpha beta]] (list (radian-to-degree alpha) (radian-to-degree beta))) alpha-beta-radian-list)]
     (println input-str)
-    (map (fn [[_ theta] [alpha beta]] (list theta beta (- 180 alpha beta))) r-theta-list alpha-beta-degree-list)))
+    (map (fn [[_ theta] [alpha beta]] (list (- theta) (- 90. beta) (+ alpha beta))) r-theta-list alpha-beta-degree-list)))

 (defn write-strokes [angles-seq]
   (doseq [[base-angle first-angle second-angle] angles-seq]


don't pretty print source maps unless :source-map-pretty-print true build option provided

--- src/clj/cljs/source_map.clj
+++ src/clj/cljs/source_map.clj
@@ -234,10 +234,12 @@
                                       (range (count @names->idx))))}
                   (:sources-content opts)
                   (assoc "sourcesContent" (:sources-content opts)))]
-      (with-out-str
-        (json/pprint
-         source-map-file-contents
-         :escape-slash false)))))
+      (if (true? (:source-map-pretty-print opts))
+        (with-out-str
+          (json/pprint
+            source-map-file-contents
+            :escape-slash false))
+        (json/write-str source-map-file-contents)))))

 ;; -----------------------------------------------------------------------------
 ;; Merging


Adding and updating some functions and refs to allow for repl load

--- src/conceptnet_clj/util.clj
+++ src/conceptnet_clj/util.clj
@@ -1,6 +1,8 @@
 (ns conceptnet-clj.util
   (:require [clojure.string :as string]
-            [clojure.set :as set]))
+            [clojure.set :as set])
+  (:require [clojure.string :refer [split join] :as str])
+  (:import [com.datomic.lucene.queryParser QueryParser]))

 (defn mean [coll]
   (let [accum (fn [[sum size] n]
@@ -60,3 +62,27 @@
 (defn set-diff [a b]
   [(set/difference a b) (set/difference b a)])

+;; -------------------- Ref ---------------------------
+(defn- tokenize-query [q]
+  (let [escaped (QueryParser/escape q)]
+    (if (= q escaped)
+      (str "+" escaped "*")
+      (str "+" escaped))))
+
+(defn format-query
+  "Makes each word of query required, front-stemmed.
+   Escapes all special characters.
+
+  (format-query \"Foo bar\")
+   ;=> \"+Foo* +bar*\"
+
+  This maps to Lucene's QueryParser.parse
+  See http://lucene.apache.org/core/3_6_1/api/core/org/apache/lucene/queryParser/QueryParser.html"
+  [query]
+  (->> (split query #",?\s+")
+       (remove str/blank?)
+       (map tokenize-query)
+       (join " ")))
+
+(defn format-name [name]
+  (str/replace-first name #"^([^,]+), (.+?)( \([IVX]+\))?$" "$2 $1$3"))


sliding-send on frontend

sliding-send on frontend

--- src-cljs/frontend/talaria.cljs
+++ src-cljs/frontend/talaria.cljs
@@ -101,6 +101,21 @@
   (.send ws (encode-msg msg))
   (swap! tal-state assoc :last-send-time (js/Date.)))

+(defn filter-repeats [messages filter-ops]
+  (->> (reduce (fn [acc msg]
+                 (if (contains? filter-ops (:op msg))
+                   (if (contains? (:seen-filtered-ops acc) (:op msg))
+                     acc
+                     (assoc acc
+                            :results (conj (:results acc) msg)
+                            :seen-filtered-ops (conj (:seen-filtered-ops acc) (:op msg))))
+                   (assoc acc :results (conj (:results acc) msg))))
+               {:results '() ; list for inserting at beginning
+                :seen-filtered-ops #{}}
+               (rseq messages))
+    :results
+    vec))
+
 (defn consume-send-queue [tal-state timer-atom]
   (let [send-queue (:send-queue @tal-state)]
     (when-let [ws (:ws @tal-state)]
@@ -108,7 +123,8 @@
         (js/clearTimeout timer-id))
       (let [messages (pop-all send-queue)]
         (when (seq messages)
-          (send-msg tal-state ws messages))))))
+          (send-msg tal-state ws (filter-repeats messages #{:frontend/mouse-position
+                                                            :tal/ping})))))))

 (defn start-send-queue [tal-state delay-ms]
   (let [send-queue (:send-queue @tal-state)
@@ -215,7 +231,7 @@
                           (swap! (:recv-queue @tal-state) (fn [q] (apply conj q (decode-msg (.-data %))))))
                        on-reconnect)]
     (swap! tal-state assoc :ws w)
-    (start-send-queue tal-state 100)
+    (start-send-queue tal-state 150)
     (.open w)))

 (defn setup-ws [url-parts tal-state & {:keys [on-open on-close on-error on-reconnect reconnecting?]


Delete compat.

Delete compat.

--- src/main/clojure/com/stuartsierra/lazytest/compat.clj
+++ src/main/clojure/com/stuartsierra/lazytest/compat.clj
@@ -1,18 +0,0 @@
-(ns #^{:doc "Compatibility layer for old clojure.test"}
-  com.stuartsierra.lazytest.compat
-  (:require [com.stuartsierra.lazytest :as lazy]
-            [clojure.test :as old]))
-
-(defmacro are [& args]
-  `(old/are ~@args))
-
-(defmacro is
-  ([form & other] `(assert ~form)))
-
-(defmacro deftest [name & body]
-  `(lazy/deftest ~name []
-     (do ~@body)))
-
-(defmacro testing [string & body]
-  `(do ~@body))
-


Fix checkbox styling

Fix checkbox styling

--- webapp/src/org/teamweek/webapp/endpoint/views.clj
+++ webapp/src/org/teamweek/webapp/endpoint/views.clj
@@ -54,7 +54,7 @@
          [:h1 "Welcome " [:span (or (:team/name data)
                                     (:team/domain data))] ]]
         [:div
-         "Welcome to your team page. Here you can set the schedule for the questionnaire as well as the list of users you want to send the questions to. The \"Cron string\" is only meant for testing and will be removed in a future release"]
+         "Welcome to your team page. Here you can set the schedule for the questionnaire as well as the list of users you want to send the questions to.
Note: The Cron expression is only meant for testing and will be removed in a future release"]
         [:div
          (form/form-to
           {:class "pure-form pure-form-stacked"}
@@ -63,15 +63,14 @@
           [:div.pure-control-group
            (if (map? schedule)
             (concat (for [[val checked? text] (:days schedule)]
-                      (list
-                       (form/check-box val checked? val)
-                       (form/label val text)))
+                      [:label.pure-checkbox {:for "val"}
+                       [:input {:type "checkbox" :value val :id val :name val :checked checked?} text]])
                     [(form/label "hr" "Hour: ")
                      (form/drop-down "hr" (map str (range 24)) (:hr schedule))

-                     (form/label "schedule_cron" "Cron string:")
+                     (form/label "schedule_cron" "Cron expression")
                      (form/text-field "schedule_cron" "")])
-            (list (form/label "schedule_cron" "Cron string (use a cron string like '0 0 12 ? * FRI *' to get the checkboxes back):")
+            (list (form/label "schedule_cron" "Cron expression (use a cron expression like
0 0 12 ? * FRI *
 to get the checkboxes back):")
                   (form/text-field "schedule_cron" schedule)))]
           (form/label "members" "Members:")
           (form/text-area {:style "width: 100%; height: 150px;"}


Improve comments

Improve comments

--- src/chat/client/views/helpers.cljs
+++ src/chat/client/views/helpers.cljs
@@ -6,10 +6,12 @@
             [chat.client.store :as store]
             [goog.style :as gstyle]))

-; TODO: clojure 1.8 should implement these
+; TODO: clojure 1.8 should implement this:
 (defn starts-with? [s prefix]
   ; not using .startsWith because it's only supported in ES6
   (= 0 (.indexOf s prefix)))
+
+; TODO: clojure 1.8 should implement this:
 (defn ends-with? [s suffix]
   (let [pos (- (count s) (count suffix))
         idx (.indexOf s suffix)]


:fire: Remove repeated code.

:fire: Remove repeated code.

--- backend/src/uxbox/services/mutations/project_files.clj
+++ backend/src/uxbox/services/mutations/project_files.clj
@@ -92,12 +92,7 @@
   [conn {:keys [user file-id] :as params}]
   (let [id  (uuid/next)
         name "Page 1"
-        data (blob/encode
-              {:version 1
-               :shapes []
-               :canvas []
-               :options {}
-               :shapes-by-id {}})
+        data (blob/encode cp/default-page-data)
         sql "insert into project_pages (id, user_id, file_id, name, version,
                                         ordering, data)
              values ($1, $2, $3, $4, 0, 1, $5) returning id"]


Allow only one consumer to hit the nREPL transport

Split messages back out into queues for the consumers. This ought to
take care of our deadlock issue.

--- src/clj/reply/eval_modes/nrepl.clj
+++ src/clj/reply/eval_modes/nrepl.clj
@@ -1,4 +1,5 @@
 (ns reply.eval-modes.nrepl
+  (:import [java.util.concurrent ConcurrentLinkedQueue])
   (:require [clojure.tools.nrepl.cmdline :as nrepl.cmdline]
             [clojure.tools.nrepl :as nrepl]
             [clojure.tools.nrepl.misc :as nrepl.misc]
@@ -22,6 +23,13 @@
                  :session @current-session
                  :interrupt-id command-id})))))

+(def response-queues (atom {}))
+
+(defn session-responses [session]
+  (lazy-seq
+    (cons (.poll (@response-queues session))
+          (session-responses session))))
+
 (defn execute-with-client [client options form]
   (let [command-id (nrepl.misc/uuid)
         session (or (:session options) @current-session)
@@ -33,7 +41,7 @@
               (#'nrepl/take-until
                 #(and (= command-id (:id %))
                       (some #{"done" "interrupted" "error"} (:status %)))
-                response-seq)]
+                (session-responses session))]
         (do
           (when (some #{"need-input"} (:status res))
             (.readLine *in*) ; pop off leftover newline from pushback
@@ -111,8 +119,10 @@
   (let [connection         (get-connection options)
         client             (nrepl/client connection Long/MAX_VALUE)
         session            (nrepl/new-session client)
-        completion-session (nrepl/new-session client) ]
+        completion-session (nrepl/new-session client)]
     (reset! current-session session)
+    (swap! response-queues assoc session (ConcurrentLinkedQueue.))
+    (swap! response-queues assoc completion-session (ConcurrentLinkedQueue.))
     (let [options (assoc options :prompt
                     (fn [ns]
                       (reader.jline/prepare-for-read
@@ -120,14 +130,17 @@
                         ns)))
           options (if (:color options)
                     (merge options nrepl.cmdline/colored-output)
-                    options)
-          session-sender (nrepl/client-session client :session session)
-          responses (session-sender {:op :eval :code ""})]
-      (future
-        (doseq [{:keys [out err] :as resp} responses]
-          (when err (print err))
-          (when out (print out))
-          (flush)))
+                    options)]
+      (.start (Thread.
+        (fn []
+          (when-let [{:keys [out err] :as resp}
+                  (nrepl.transport/recv connection 100)]
+            (when err (print err))
+            (when out (print out))
+            (when-not (or err out)
+              (.offer (@response-queues (:session resp)) resp))
+            (flush))
+          (recur))))
       (execute-with-client
                client
                (assoc options :value (constantly nil))


Remove bogus logging

Remove bogus logging

Apparently that never happens in practice...

--- src/clj/reply/eval_modes/nrepl.clj
+++ src/clj/reply/eval_modes/nrepl.clj
@@ -75,7 +75,7 @@
                             (catch Exception e
                               (if (= (.getMessage e) "EOF while reading")
                                 eof
-                                (do (print "ohai") (prn e)))))]
+                                (prn e))))]
           (cond (reply.exit/done? eof read-result)
                   nil
                 (= request-prompt read-result)


fetch-json-data error handling

fetch-json-data error handling

--- src/clj/salava/badge/assertion.clj
+++ src/clj/salava/badge/assertion.clj
@@ -11,6 +11,7 @@
             [salava.core.i18n :refer [t]]                    ;cljc
             [salava.badge.png :as p]))

+
 (defn fetch-json-data [url]
   (try+
     (:body
@@ -21,14 +22,18 @@
          :throw-entire-message? true
          :socket-timeout 30000
          :conn-timeout   30000}))
-    (catch [:status 403] {:keys [request-time headers body]}
-      {:error "badge/Errorfetchingjson" :status 403 :body body})
-    (catch [:status 410] {:keys [request-time headers body]}
-      {:error "badge/Errorfetchingjson" :status 410 :body body})
-    (catch [:status 404] {:keys [request-time headers body]}
-      {:error "badge/Errorfetchingjson" :status 404 :body body})
-    (catch Object _
-      {:error "badge/Errorfetchingjson" :body _ :status 400})))
+
+    (catch :status e
+      (let [{:keys [:status :body]} e
+            body-map (try+
+                       (json/read-str body :key-fn keyword)
+                       (catch Object _
+                         {:raw body}))]
+        {:error "badge/Errorfetchingjson" :status status :body body-map}))
+
+    (catch Object e
+      {:error "badge/Errorfetchingjson" :body e})))
+

 (defn copy-to-file [output-file url]
   (with-open [in (io/input-stream url)


Improve formatting of build timestamp

Improve formatting of build timestamp

--- src/cljc/zetawar/views/common.cljc
+++ src/cljc/zetawar/views/common.cljc
@@ -111,7 +111,7 @@
        [:a {:href (str "/builds/" site/build)} site/build]
        "DEV")
      (when (not-empty site/build-timestamp)
-       (str " Built at: " site/build-timestamp))]
+       (str " - " site/build-timestamp))]
     [:p
      "Follow "
      [:a {:href "https://twitter.com/ZetawarGame"} "@ZetawarGame"]


more specs

more specs

--- src/cljs/triboard/logic/board.cljs
+++ src/cljs/triboard/logic/board.cljs
@@ -38,33 +38,24 @@
 ;; Public Types
 ;; -----------------------------------------

+(s/def ::cell cst/cell?)
 (s/def ::board (s/every (s/every cst/cell? :count 11) :count 16))
 (s/def ::coord (s/tuple integer? integer?))

 (s/fdef new-board
-  ;; :args
   :ret ::board)

 (s/fdef to-iterable
   :args (s/cat :board ::board)
-  :ret (s/every (s/tuple ::coord cst/cell?))) ;; Success with (s/explain `to-iterable to-iterable)
+  :ret (s/every (s/tuple ::coord cst/cell?)))

 (s/fdef empty-cells
   :args (s/cat :board ::board)
   :ret (partial every? #(s/valid? ::coord %))) ;; TODO - Fails with coll-of ::coord or s/every. WHY?

-(defn board?
-  "A board is a vector of vector of cells"
-  [b]
-  (every? #(every? cst/cell? %) b))
-
-(defn coord?
-  "A cell is a pair of integer"
-  [p]
-  (and
-    (integer? (first p))
-    (integer? (second p))
-    (= 2 (count p))))
+;; TODO - Remove these predicates
+(defn board? [b] (s/valid? ::board b))
+(defn coord? [c] (s/valid? ::coord c))

 ;; -----------------------------------------
@@ -99,5 +90,6 @@
 ;; You can test this function by using
 ;; (empty-cells (first (gen/sample (s/gen ::board) 1)))
 ;; (stest/check `empty-cells)
+;; (s/explain `to-iterable to-iterable)
 ;; (s/explain `empty-cells empty-cells)
 ;; (stest/instrument `empty-cells)


Fixed compilation error.

Fixed compilation error.

--- src/cmr/spatial/dev/viz_helper.clj
+++ src/cmr/spatial/dev/viz_helper.clj
@@ -3,6 +3,7 @@
             [vdd-core.core :as vdd]
             [cmr.common.lifecycle :as lifecycle]
             [cmr.spatial.point :as p]
+            [cmr.spatial.polygon :as poly]
             [cmr.spatial.mbr :as m]
             [cmr.spatial.ring :as r]
             [clojure.string :as s]


Fix to use prepare undo!

Fix to use prepare undo!

--- src/exploud/web.clj
+++ src/exploud/web.clj
@@ -227,7 +227,7 @@
          (if-let [deployment (first (store/get-deployments {:application application
                                                             :environment environment
                                                             :size 1}))]
-           (let [{:keys [id]} (dep/prepare-deployment deployment)]
+           (let [{:keys [id]} (dep/prepare-undo deployment)]
              (dep/start-deployment id)
              (response {:id id}))
            (error-response "No previous deployment" 500)))


Support question mark in wildcards

Support question mark in wildcards


emit js from Gist's url

emit js from Gist's url

--- src/dasha/loader/clojurescript.clj
+++ src/dasha/loader/clojurescript.clj
@@ -3,6 +3,7 @@
             [clojure.tools.reader.reader-types :as readers]
             [cljs.compiler :as c]
             [cljs.closure :as cc]
+            [cljs.analyzer :as ana]
             [cljs.env :as env])
   (:import [java.io StringReader]))

@@ -27,10 +28,12 @@
 (defn- read-first-form [str]
   (first (forms-seq (string-reader str))))

-(defn emit-js
-  ([cljs-string]
-     (emit-js cljs-string :advanced))
-  ([cljs-string optimisations]
-     (let [form (read-first-form cljs-string)]
+(defn string->js
+  ([string]
+     (emit-js-from-string string :advanced))
+  ([string optimisations]
+     (let [form (read-first-form string)]
        (cc/optimize {:optimizations optimisations}
          (emit-str (ana/analyze user-env form))))))
+
+(def url->js (comp emit-js-from-string slurp))


Added some docs.

Added some docs.

--- core.clj
+++ core.clj
@@ -190,16 +190,16 @@

 ;; Generic
 (defn then
-  "Given a RSG.IPromise<T> run (f result-value) when the promise resolves."
+  "Given a RSG.IPromise<T> run (f result-value) when the promise resolves. A new
+  promise is returned."
   [ipromise f]
   (let [ptype (type ipromise)
-       of-type (.GetGenericArguments ptype)
-       atype (eval `(generate-generic-type Action ~of-type))
-       meth (.GetMethod ptype "Then" (into-array Type [atype]))
-       arg #_(eval `(sys-action ~(apply vector of-type) [~'s] (~f ~'s)))
-       (. clojure.lang.GenDelegate Create atype f)
-       ]
-       (.Invoke meth ipromise (into-array Object [arg]))))
+        of-type (.GetGenericArguments ptype)
+        atype (eval `(generate-generic-type Action ~of-type))
+        meth (.GetMethod ptype "Then" (into-array Type [atype]))
+        arg #_(eval `(sys-action ~(apply vector of-type) [~'s] (~f ~'s)))
+        (. clojure.lang.GenDelegate Create atype f)]
+    (.Invoke meth ipromise (into-array Object [arg]))))

 (defn pcatch
   "Given an RSG.IPromise p, if p is rejected, run (f e) where e is the
@@ -212,7 +212,8 @@
 (defn read-from-minibuffer
   "Read a string from the minibuffer prompt. This returns an IPromise.

-e.g. (then (read-from-minibuffer \"Who are you? \") #(message \"Hi, %s.\" %))"
+e.g. (then (read-from-minibuffer \"Who are you? \")
+           #(message \"Hi, %s.\" %))"
   [prompt & {:keys [input history completer require-match require-coerce]
              :or {input "" history nil completer nil
                   require-match false require-coerce false}}]
@@ -232,6 +233,11 @@
    ))

 (defn read-type
+  "Read from the minibuffer but of a particular type. Basically Minibuffer.Read<T>().
+
+(then (read-type Int64 \"How old are you?\")
+      #(message \"%d is a fine age.\" %))
+"
   [type prompt & {:keys [input history completer require-match require-coerce]
                   :or {input "" history nil completer nil
                        require-match false require-coerce false}}]
@@ -261,7 +267,8 @@
             (.set_Item (.completers Minibuffer/instance) name c)
             c))

-(def symbol-completer-exclude-namespaces (atom ['clojure.core 'clojure.repl]))
+(def symbol-completer-exclude-namespaces
+     (atom ['clojure.core 'clojure.repl]))

 (defn make-symbol-completer
   "Create a symbol completer. Accepts a filter function that will take a


[#11606] Favorites - when changing the name of a favorite, the past name appears quickly when saving it

Signed-off-by: andrey <b713972e59b8e606e23253c4a13e948139fea4d1@gmail.com>

--- src/status_im/ui/screens/browser/bookmarks/views.cljs
+++ src/status_im/ui/screens/browser/bookmarks/views.cljs
@@ -28,7 +28,7 @@
              :auto-focus          true
              :show-cancel         false
              :label               (i18n/label :t/name)
-             :default-value       name
+             :default-value       @input-name
              :on-change-text      #(reset! input-name %)}]
            [react/text {:style {:margin 16 :color colors/gray}}
             url]]


Returning also settlement population through rest interface

--- src/amindblowingworld/rest.clj
+++ src/amindblowingworld/rest.clj
@@ -20,7 +20,7 @@
   {:id (:id tribe) :name (.name tribe) :settlements (:settlements tribe)})

 (defn- settlement-info [s]
-  {:id (:id s) :name (.name s) :pos (:pos s) :tribe (:owner s)})
+  {:id (:id s) :name (.name s) :pos (:pos s) :tribe (:owner s) :pop (:pop s)})

 (defn tribes-request []
   (json/write-str (map tribe-info (vals (:tribes @game)))))


Implement binary reader for clj/cljs

Implement binary reader for clj/cljs

The funtion parse-rom will read from binary and convert it to 4-bit
array.

For example, the binary form is

	(79 FB 68 05 F2 00 00 05)

the parse-rom will convert it to

	(7 9 7 11 6 8 0 5 7 2 0 0 0 0 0 5)

Signed-off-by: Yen-Chin Lee <082d453d72dce940e12089a4ad48b97cfe1f3ec4@gmail.com>

--- src/emulator_4917/core.cljc
+++ src/emulator_4917/core.cljc
@@ -1,6 +1,37 @@
-(ns emulator-4917.core)
+(ns emulator-4917.core
+  (:require #?(:cljs [cljs.nodejs :as nodejs])
+            #?(:cljs [goog.crypt :as gcrypt])
+            [clojure.string :as str]))

-(defn foo
-  "I don't do a whole lot."
-  [x]
-  (println x "Hello, World!"))
+;; enable *print-fn* in clojurescript
+#?(:cljs (enable-console-print!))
+
+(defn to-4bit-array
+  "Convert 0xf4 to [f 4]"
+  [s]
+  (let [h (bit-shift-right s 4) ;; 0xf4 >> 4   => f
+        l (bit-and s 0x0f)]     ;; 0xf4 & 0x0f => 4
+    [h l]))
+
+(defn parse-rom
+  "Parse binary file and convert contents to vector."
+  [file]
+  (flatten
+   (map to-4bit-array
+        #?(:clj
+           (.getBytes (slurp file) "ascii")
+           :cljs
+           (->  (nodejs/require "fs")
+                (.readFileSync file "ascii")
+                .toString
+                gcrypt/stringToUtf8ByteArray)
+           ))))
+
+(defn -main [& args]
+  (let [arg1 (nth args 0)]
+    (if arg1
+      (println (parse-rom arg1))
+      (println "Error: Please specify filename."))))
+
+;; setup node.js starter point
+#?(:cljs (set! *main-cli-fn* -main))


+off,on,turn

+off,on,turn

--- src/babel/english/lexicon.cljc
+++ src/babel/english/lexicon.cljc
@@ -1505,9 +1505,17 @@
    "obtain" {:synsem {:cat :verb
                 :sem {:pred :obtain}}}

+   "off" {:synsem {:cat :prep
+                   :sem {:pred :off}
+                   :subcat '()}}
+
    "old" {:synsem {:cat :adjective
                    :sem {:mod {:pred :old}
                          :physical-object true}}}
+
+   "on" {:synsem {:cat :prep
+                  :sem {:pred :on}
+                  :subcat '()}}

    "organize" {:synsem {:cat :verb
                 :sem {:pred :organize}}}
@@ -2128,7 +2136,27 @@
                     :sem {:pred :try}
                     :subcat {:2 '()}}}]

-    "turn off"
+   "turn"
+   (let [subj (atom :top)
+         obj (atom :top)]
+     [{:synsem {:cat :verb
+                :sem {:pred :turn-on
+                      :subj subj
+                      :obj obj}
+                :subcat {:1 {:sem subj}
+                         :2 {:cat :prep
+                             :sem {:pred :on}}
+                         :3 {:sem obj}}}}
+      {:synsem {:cat :verb
+                :sem {:pred :turn-off
+                      :subj subj
+                      :obj obj}
+                :subcat {:1 {:sem subj}
+                         :2 {:cat :prep
+                             :sem {:pred :off}}
+                         :3 {:sem obj}}}}])
+
+   "turn off"
    {:synsem {:cat :verb
              :sem {:pred :turn-off}}
     :english {:past "turned off"


use babel.english/generate, not our own

use babel.english/generate, not our own

--- src/babel/english/workbook.clj
+++ src/babel/english/workbook.clj
@@ -3,7 +3,7 @@
   (:require
    [babel.engine :as engine]
    [babel.generate :refer [lightning-bolt]]
-   [babel.english :refer [parse]]
+   [babel.english :refer [generate parse]]
    [babel.english.grammar :refer [small small-plus-plus-np medium np-grammar]]
    [babel.english.lexicon :refer [lexicon]]
    [babel.english.morphology :as morph :refer [fo]]
@@ -34,20 +34,6 @@
    (analyze surface-form (:lexicon medium)))
   ([surface-form lexicon]
    (morph/analyze surface-form lexicon)))
-
-(defn generate
-  ([]
-   (let [result (engine/generate :top medium)]
-     (conj {:surface (fo result)}
-            result)))
-  ([spec]
-   (let [result (engine/generate spec medium)]
-     (conj {:surface (fo result)}
-            result)))
-  ([spec model]
-   (let [result (engine/generate spec model)]
-     (conj {:surface (fo result)}
-           result))))

 (defn lookup [lexeme]
   ((:lookup medium) lexeme))