Created
February 2, 2013 23:16
-
-
Save amitrathore/4699679 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns cms.data | |
(:require [cms.domain.author :as au] | |
[cms.domain.article :as ar])) | |
(defn setup [] | |
(au/create "Siva" "s@e.com") | |
(au/create "Amit" "a@e.com") | |
(let [siva (au/find-by-email "s@e.com")] | |
(au/add-article-with-tags siva "Datomic Workshop" "Datomic is cool" :category/tech ["database" "logic"]) | |
(au/add-article-with-tags siva "Walking around" "Walking is good, mmkay?" :category/fun ["health" "exercise" "logic"]) | |
(au/add-article-with-tags siva "Sleeping in" "Laziness is functional" :category/fun ["coding" "health"]))) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment