kumarshantanu

Keybase proof

I hereby claim:

• I am kumarshantanu on github.
• I am kumarshantanu (https://keybase.io/kumarshantanu) on keybase.
• I have a public key ASA0DqamW6PQjQyl_-bJHXrfpaCtJQkjYl6l02334oNRZQo

To claim this, I am signing this object:

kumarshantanu

==> Downloading http://dl.rust-lang.org/dist/rust-0.2.tar.gz
Already downloaded: /Users/shantanu/Library/Caches/Homebrew/rust-0.2.tar.gz
/usr/bin/tar xf /Users/shantanu/Library/Caches/Homebrew/rust-0.2.tar.gz
==> ./configure --prefix=/usr/local/Cellar/rust/0.2
./configure --prefix=/usr/local/Cellar/rust/0.2
configure: looking for configure programs
configure: found cmp
configure: found mkdir
configure: found printf
configure: found cut

kumarshantanu

This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.

It was created by configure, which was
generated by GNU Autoconf 2.65.  Invocation command line was

  $ ./configure --disable-debug --disable-dependency-tracking --prefix=/usr/local/Cellar/beanstalk/1.4.6 --with-event=/usr/local

## --------- ##
## Platform. ##

kumarshantanu

(ns example.flash
  (:use compojure.core)
  (:use ring.util.response)
  (:use ring.middleware.session)
  (:use ring.middleware.flash)
  (:require [compojure.route :as route]))

(defn show-new [flash]
  (str "Flash: " flash
    "<br/>

kumarshantanu

(in-txn db
  (let [e (find-by-id blog-entry-meta 3)
        r ((find-rels e entry-comment-meta) e)
        c (first r)]
    (println "** Deleting comment **")
    (delete c)
    (println "** Deleting entry-comment graph **")
    (delete-cascade e)))

kumarshantanu

(in-db db
  (let [e (find-by-id blog-entry-meta 2)
        r ((find-rels e entry-comment-meta) e)
        c (first r)
        s (find-siblings c e)
        sc (find-siblings c e :cols [:content :name :email])
        sw (find-siblings c e :where ["name LIKE ?" "Phi%"])
        sb (find-siblings c e :cols [:content :name :email] :where ["name LIKE ?" "Phi%"])]
    (ppe "\nChild: " c)
    (ppe "\nSiblings:" s)

kumarshantanu

(in-db db
  (let [e (find-by-id blog-entry-meta 2)
        r ((find-rels e entry-comment-meta) e)
        rc ((find-rels e entry-comment-meta :cols [:content :name :email]) e)
        rw ((find-rels e entry-comment-meta :where ["email=?" "hey@nospam.com"]) e)
        rb ((find-rels e entry-comment-meta :cols [:content :name :email]
             :where ["email=?" "hey@nospam.com"]) e)]
    (ppe "\nEntry:" e)
    (ppe "\nRelations:" r)
    (ppe "\nRelations with selected columns:" rc)

kumarshantanu

(in-txn db
  (let [e (find-by-id blog-entry-meta 1)
        c (EntryComment. {}
            {:content "Comment #1"
             :whenposted (new java.util.Date)
             :name "Whatever"
             :email "no@spam.com"} )
        saved (save-deps e [c])]
    (ppe "Saved 1 child for entry (ID=1)" saved))
  (let [e (find-by-id blog-entry-meta 2)

kumarshantanu

(in-db db
  (let [ea (find-by-criteria blog-entry-meta :cols count-col)
        ew (find-by-criteria blog-entry-meta :cols count-col :where ["title=?" "Hello World"])]
    (println "All records:" (read-count-col ea))
    (println "Records with WHERE clause:" (read-count-col ew)))

kumarshantanu

(in-db db
  (let [e1 (find-by-id blog-entry-meta 1)
        ea (find-by-criteria blog-entry-meta) ;; finds all records
        ec (find-by-criteria blog-entry-meta :cols [:title :content])
        ew (find-by-criteria blog-entry-meta :where ["title=?" "Hello World"])
        eb (find-by-criteria blog-entry-meta :cols [:title :content] :where ["title LIKE ?" "Hello%"])]
    (ppe "Entry 1:" e1)
    (ppe "All Entries:" ea)
    (ppe "Entries with selected columns:" ec)
    (ppe "Entries with WHERE clause:" ew)