rbutler

Keybase proof

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:

rbutler

require 'curses'

p $stdin.tty?
p $stdin.read
Curses.init_screen
Curses.clear
Curses.refresh

begin
  Curses.setpos(6, 3)  # column 6, row 3

rbutler

(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)))]

rbutler

(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."))))