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)})
)))
(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
"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