Wes Morgan cap10morgan

## index.html
<!DOCTYPE html>
<meta charset="utf-8">
<link rel="stylesheet" href="http://cmx.io/v/0.1/cmx.css">
<script src="http://cmx.io/v/0.1/cmx.js" charset="utf-8"></script>
<style>.cmx-user-scene4 .cmx-text-border .cmx-path {stroke: orange}</style>
<body>
  <div style="max-width:900px; -webkit-transform:rotate(0deg)">

    <scene id="scene1">
      <label t="translate(0,350)">

## reduce-kv->transducer.clj
;; Usually when doing a shallow transform on a map in Clojure I reach for `reduce-kv`, but when I have more than one reduce-kv
;; I start thinking I should use transducers instead.

;; So if I start with something like this:
(ns my.ns
  (:require [clojure.edn :as edn]))

(defn strip-key-namespaces [m]
  (reduce-kv
   (fn [a k v]

## clojure_dev_candidate_exercise.md

      
              1 file
            
          
              1 fork
            
          
              0 comments
            
          
              0 stars
            
          
                cap10morgan
                / clojure_dev_candidate_exercise.md
            
            
              Last active
              February 16, 2017 19:44
            
              
                Clojure dev candidate exercise
              
          
    TODO List

NOTE: This is version 1 of the exercise. We used it for the first 2 rounds of dev hiring in which we had an anonymous coding exercise at all. There is now a version 2 developed in collaboration with staff developers who were subjected to this one as candidates. They had... opinions.
This assignment is designed to gauge how well you know or can pick up Clojure
and some common libraries to build a simple web application.
You should spend no more than a week on it. In fact, it is due one week after it
is assigned. You should also focus on depth rather than breadth. Do as much good work
as you can on each step rather than trying to do a little work on more steps.

  
## rabbitmq_bug_str.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                cap10morgan
                / rabbitmq_bug_str.md
            
            
              Last active
              December 15, 2016 21:18
            
              
                Steps to reproduce RabbitMQ qos admin UI bug
              
          
Run docker run --rm -ti -p 5672:5672 -p 15672:15672 rabbitmq:3.6.5-management
Fire up a Clojure REPL w/ langohr available
(require '[langohr.core :as rmq])
(def rconn (rmq/connect))
(require '[langohr.channel :as lch])
(def rch (lch/open rconn))
(require '[langohr.queue :as lq])
(lq/declare rch "foo.bar" {:exclusive false :auto-delete false :durable true})
(require '[langohr.consumers :as lcons])
(lcons/subscribe rch "foo.bar" (fn [_ _ ^bytes m] (println (String. m "UTF-8"))) {:auto-ack true})


## gist:270027a1a79dfbcf4cc80e9e3f26f990
Verifying that "wesmorgan.id" is my Blockstack ID. https://onename.com/wesmorgan

## gist:7811378
Now listening on 53541
('got user_input', {u'id': 0, u'initial': u'~/floobits/share/democracyworks/payments-api', u'prompt': u'Give me a directory to sync data to: ', u'name': u'user_input', u'response': u'~/turbovote/payments-api'})
[Thu Dec  5 11:35:23 2013] Connecting to floobits.com:3448

Connecting to floobits.com:3448
SSL handshake completed to floobits.com:3448
Overwrite the following local files?

test/payments_api/service_test.clj
.gitignore

## async_geolocation.cljs
(ns cljs-minimal.core
  (:require [cljs.core.async :as async :refer [put! <! >! <!! >!! chan]])
  (:require-macros [cljs.core.async.macros :as m :refer [go]]))

(defn get-position []
  (let [out (chan)
        geo (.-geolocation js/navigator)]
    (.getCurrentPosition geo (fn [pos] (put! out pos)))
    out))

## gist:6284911
elections-api.peer=> (init-db)
#<promise$settable_future$reify__5429@127cc7ca: {:db-before datomic.db.Db@1ea21c76, :db-after datomic.db.Db@61f108a4, :tx-data [#Datum{:e 13194139534313 :a 50 :v #inst "2013-08-20T17:13:49.111-00:00" :tx 13194139534313 :added true} #Datum{:e 17592186045418 :a 10 :v :election-constructor :tx 13194139534313 :added true} #Datum{:e 17592186045418 :a 52 :v #db/fn{:code "(if (not (nil? district)) (let [txn [(merge district [:db/id #db/id[:db.part/user -2]]) (merge election {:db/id #db/id[:db.part/user -1], :turbovote.election/district #db/id[:db.part/user -2]})]] txn) (let [txn [(merge election {:db/id #db/id[:db.part/user -1]})]] txn))", :params [db election district], :requires [], :imports [], :lang :clojure} :tx 13194139534313 :added true}], :tempids {-9223350046623220306 17592186045418}}>

elections-api.peer=> (def conn (d/connect "datomic:mem://elections-api"))
#'elections-api.peer/conn

elections-api.peer=> (d/transact conn [[:election-constructor {:turbovote.election/name "Foo

## project.clj
(defproject mail-batcher "0.0.1-SNAPSHOT"
  :description "Find and generate forms for registrations and elections in date range"
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [turbovote/clj-time "0.5.1-SNAPSHOT"]
                 [korma "0.3.1-SNAPSHOT"]
                 [mysql/mysql-connector-java "5.1.24"]
                 [sonian/carica "1.0.2"]
                 [cheshire "5.1.1"]
                 [resque-clojure "0.2.2"]
                 [org.clojure/tools.cli "0.2.2"]

## gist:6224916
ᐅ lein with-profile production uberjar
Performing task 'uberjar' with profile(s): 'production'
Retrieving lein-midje/lein-midje/3.0.1/lein-midje-3.0.1.pom from clojars
Retrieving lein-midje/lein-midje/3.0.1/lein-midje-3.0.1.jar from clojars
Created /Users/wmorgan/dev/mail-batcher/target/production+uberjar/mail-batcher-0.0.1-SNAPSHOT.jar
Created /Users/wmorgan/dev/mail-batcher/target/production/mail-batcher-0.0.1-SNAPSHOT-standalone.jar

ᐅ java -jar target/production/mail-batcher-0.0.1-SNAPSHOT-standalone.jar
Error: Could not find or load main class mail_batcher.core
	<!DOCTYPE html>
	<meta charset="utf-8">
	<link rel="stylesheet" href="http://cmx.io/v/0.1/cmx.css">
	<script src="http://cmx.io/v/0.1/cmx.js" charset="utf-8"></script>
	<style>.cmx-user-scene4 .cmx-text-border .cmx-path {stroke: orange}</style>
	<body>
	<div style="max-width:900px; -webkit-transform:rotate(0deg)">

	<scene id="scene1">
	<label t="translate(0,350)">
	;; Usually when doing a shallow transform on a map in Clojure I reach for `reduce-kv`, but when I have more than one reduce-kv
	;; I start thinking I should use transducers instead.

	;; So if I start with something like this:
	(ns my.ns
	(:require [clojure.edn :as edn]))

	(defn strip-key-namespaces [m]
	(reduce-kv
	(fn [a k v]
	Now listening on 53541
	('got user_input', {u'id': 0, u'initial': u'~/floobits/share/democracyworks/payments-api', u'prompt': u'Give me a directory to sync data to: ', u'name': u'user_input', u'response': u'~/turbovote/payments-api'})
	[Thu Dec 5 11:35:23 2013] Connecting to floobits.com:3448

	Connecting to floobits.com:3448
	SSL handshake completed to floobits.com:3448
	Overwrite the following local files?

	test/payments_api/service_test.clj
	.gitignore
	(ns cljs-minimal.core
	(:require [cljs.core.async :as async :refer [put! <! >! <!! >!! chan]])
	(:require-macros [cljs.core.async.macros :as m :refer [go]]))

	(defn get-position []
	(let [out (chan)
	geo (.-geolocation js/navigator)]
	(.getCurrentPosition geo (fn [pos] (put! out pos)))
	out))
	elections-api.peer=> (init-db)
	#<promise$settable_future$reify__5429@127cc7ca: {:db-before datomic.db.Db@1ea21c76, :db-after datomic.db.Db@61f108a4, :tx-data [#Datum{:e 13194139534313 :a 50 :v #inst "2013-08-20T17:13:49.111-00:00" :tx 13194139534313 :added true} #Datum{:e 17592186045418 :a 10 :v :election-constructor :tx 13194139534313 :added true} #Datum{:e 17592186045418 :a 52 :v #db/fn{:code "(if (not (nil? district)) (let [txn [(merge district [:db/id #db/id[:db.part/user -2]]) (merge election {:db/id #db/id[:db.part/user -1], :turbovote.election/district #db/id[:db.part/user -2]})]] txn) (let [txn [(merge election {:db/id #db/id[:db.part/user -1]})]] txn))", :params [db election district], :requires [], :imports [], :lang :clojure} :tx 13194139534313 :added true}], :tempids {-9223350046623220306 17592186045418}}>

	elections-api.peer=> (def conn (d/connect "datomic:mem://elections-api"))
	#'elections-api.peer/conn

	elections-api.peer=> (d/transact conn [[:election-constructor {:turbovote.election/name "Foo
	(defproject mail-batcher "0.0.1-SNAPSHOT"
	:description "Find and generate forms for registrations and elections in date range"
	:dependencies [[org.clojure/clojure "1.5.1"]
	[turbovote/clj-time "0.5.1-SNAPSHOT"]
	[korma "0.3.1-SNAPSHOT"]
	[mysql/mysql-connector-java "5.1.24"]
	[sonian/carica "1.0.2"]
	[cheshire "5.1.1"]
	[resque-clojure "0.2.2"]
	[org.clojure/tools.cli "0.2.2"]
	ᐅ lein with-profile production uberjar
	Performing task 'uberjar' with profile(s): 'production'
	Retrieving lein-midje/lein-midje/3.0.1/lein-midje-3.0.1.pom from clojars
	Retrieving lein-midje/lein-midje/3.0.1/lein-midje-3.0.1.jar from clojars
	Created /Users/wmorgan/dev/mail-batcher/target/production+uberjar/mail-batcher-0.0.1-SNAPSHOT.jar
	Created /Users/wmorgan/dev/mail-batcher/target/production/mail-batcher-0.0.1-SNAPSHOT-standalone.jar

	ᐅ java -jar target/production/mail-batcher-0.0.1-SNAPSHOT-standalone.jar
	Error: Could not find or load main class mail_batcher.core