From 19af267a856dfcd963e645eef436e3ab180f53a2 Mon Sep 17 00:00:00 2001 From: Matt Furden Date: Thu, 15 Sep 2011 22:22:56 -0700 Subject: [PATCH] Added functions to remove skills/jobs --- src/andrew_site/models/db.clj | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/andrew_site/models/db.clj b/src/andrew_site/models/db.clj index 6bdc374..4fcc464 100644 --- a/src/andrew_site/models/db.clj +++ b/src/andrew_site/models/db.clj @@ -34,9 +34,18 @@ (defn add-lesser-skill [skill] (insert! :skills {:level "lesser" :skill skill})) +(defn remove-skill [name] + (let [skill (fetch-one :skills :where {:skill name})] + (destroy! :skills skill))) + (defn add-job [{:keys [name start-year end-year url description]}] (insert! :jobs {:name name :start-year start-year :end-year end-year :url url :description description})) +(defn remove-job [name] + (let [job (fetch-one :jobs :where {:name name})] + (destroy! :jobs job))) + + (defn jobs [] (fetch :jobs))