Skip to content

Instantly share code, notes, and snippets.

@christianberg

christianberg/core.clj

Created May 31, 2010 15:26
Show Gist options
  • Save christianberg/419936 to your computer and use it in GitHub Desktop.
Save christianberg/419936 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
core.clj
(defn create-post [title body]
"Stores a new post in the datastore and issues an HTTP Redirect to the main page."
(ds/create-entity {:kind "post" :title title :body body})
(redirect "/"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment