gered/clj-hl7-fhir
Archived
1
0
Fork 0
Code Issues 1 Pull requests Packages Projects Releases Wiki Activity

refactor

Browse source
This commit is contained in:
Gered 2014-07-04 13:40:03 -04:00
parent 002c7d3054
commit c8fdf4bbd2
2 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/clj_hl7_fhir/core.clj
View file

@ -1,9 +1,7 @@
(ns clj-hl7-fhir.core
(:import (java.util Date)
(clojure.lang ExceptionInfo))
(:require [clojure.string :as str]
[clj-http.client :as http]
[cheshire.core :as json])
(:require [clojure.string :as str])
(:use [camel-snake-kebab]
[clj-hl7-fhir.util]))
@ -14,10 +12,7 @@
(let [query (cond
(sequential? params) (->> params (concat [:_format "json"]) (kv-vector->query))
:else (merge {:_format "json"} params))]
(-> (build-url base-url resource-url query)
(http/get)
:body
(json/parse-string true))))
(http-get-json (build-url base-url resource-url query))))
(defn- ->search-param-name [parameter & [modifier]]
(keyword

9
src/clj_hl7_fhir/util.clj
View file

@ -2,7 +2,9 @@
(:import (java.util TimeZone Date)
(java.text SimpleDateFormat))
(:require [clojure.string :as str]
[cemerick.url :refer [url url-encode]]))
[clj-http.client :as http]
[cemerick.url :refer [url url-encode]]
[cheshire.core :as json]))
(def tz (TimeZone/getDefault))
(def iso8601 "yyyy-MM-dd'T'HH:mm:ssZZ")
@ -41,3 +43,8 @@
(join-paths existing-path path)))
(assoc :query params)
(str)))
(defn http-get-json [url]
(-> (http/get url)
:body
(json/parse-string true)))