I hereby claim:
- I am rbutler on github.
- I am rbutler (https://keybase.io/rbutler) on keybase.
- I have a public key ASBaMXYSM_NSRSDkU9ZJnO6lNbLBqjrA5XC524CV2IUYvwo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
require 'curses' | |
p $stdin.tty? | |
p $stdin.read | |
Curses.init_screen | |
Curses.clear | |
Curses.refresh | |
begin | |
Curses.setpos(6, 3) # column 6, row 3 |
(let [qparams {"cat" "meow"} | |
parammap {"cat" #(println "feline says" %), "dog" #(println "canine says" %)} | |
foundparam (into {} (filter #(contains? parammap (key %)) qparams))] | |
((get parammap (key (first foundparam))) (val (first foundparam)))) | |
;> feline says meow | |
; Cleaner? | |
(let [queryparams {:cat "meow", :cheese "nonsense"} | |
functionmap {:cat #(println "feline says" %), :dog #(println "canine says" %)} | |
selectedkey (first (select-keys functionmap (keys queryparams)))] |
(defn generic-insert [query] | |
(try | |
(with-mongo (get *conns* (get query "server_id" "default")) | |
(with-db (query "database") | |
(insert! | |
(query "collection") | |
(query "insert")))) | |
(catch Exception e | |
(error e "Mongo generic-insert failed.")))) |