Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

remove functions unneeded thanks for db views

  • Loading branch information...
commit 6d226f5211cee93a7f090f5d08a1c6498d3a43ea 1 parent e80dc27
@dakrone dakrone authored
Showing with 0 additions and 35 deletions.
  1. +0 −35 src/cd_wsapi/core.clj
View
35 src/cd_wsapi/core.clj
@@ -27,8 +27,6 @@
(def clojuredocs-base "http://clojuredocs.org")
-(def clojure-default-version "1.2.0")
-
(defn default [request]
{:status 200
@@ -36,39 +34,6 @@
:body *default-page*})
-(defn get-ns-id
- "Given the name of a namespace, return it's id."
- ([ns]
- (with-query-results
- rs
- ["select id from namespaces where name = ?" ns]
- (:id (first (doall rs)))))
- ([ns version]
- (with-query-results
- rs
- ["select id from namespaces where name = ? and version = ?" ns version]
- (:id (first (doall rs))))))
-
-
-(defn get-id
- "Retrieve the id of a given namespace and method.
- Must be called from within a transaction.
-
- If a version is specified, retrieve that version's id,
- otherwise return the default version id."
- [ns name & [version]]
- (let [ns-id (if version
- (get-ns-id ns version)
- (get-ns-id ns))
- _ (println "ns-id:" ns-id)
- id (with-query-results
- rs
- ["select id from functions where namespace_id = ? and name = ?" ns-id name]
- (:id (first (doall rs))))]
- (println "id:" id)
- id) )
-
-
(defn get-available-versions
"Given nothing, return all available clojure.core versions clojuredocs knows about.
Given a namespace, return a list of versions for the namespace.
Please sign in to comment.
Something went wrong with that request. Please try again.