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

add helper functions for converting between relative and absolute URLs

Browse source
This commit is contained in:
Gered 2014-09-02 13:09:41 -04:00
parent 0bb903a746
commit 28d5efd4b5
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/clj_hl7_fhir/core.clj
View file

@ -239,6 +239,24 @@
:id (second no-version-url-parts)}) :id (second no-version-url-parts)})
))) )))
(defn absolute->relative-url
"turns an absolute FHIR resource URL into a relative one."
[absolute-url]
(if-let [{:keys [type id version]} (parse-absolute-url absolute-url)]
(if version
(str type "/" id "/_history/" version)
(str type "/" id))))
(defn relative->absolute-url
"combines a base URL to a FHIR server and a relative FHIR resource URL into an
absolute resource URL."
[base-url relative-url]
(if-not (or (str/blank? base-url)
(str/blank? relative-url))
(-> (join-paths base-url relative-url)
(url)
(.toString))))
(defn collect-resources (defn collect-resources
"returns a sequence containing all of the resources contained in the given bundle. "returns a sequence containing all of the resources contained in the given bundle.
deleted resources listed in the bundle will not be included in the returned deleted resources listed in the bundle will not be included in the returned