loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

Clojure client: put docstrings in the right place in core.clj.

Browse Source
This commit is contained in:
Ian McEwen 2015-12-02 10:05:37 -07:00
parent a2025c286e
commit 4edeed6053
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
modules/swagger-codegen/src/main/resources/clojure/core.mustache
View File

@ -169,15 +169,17 @@
(map (fn [[k v]] [k (normalize-param v)])) (map (fn [[k v]] [k (normalize-param v)]))
(into {}))) (into {})))
(defn json-mime? [mime] (defn json-mime?
"Check if the given MIME is a standard JSON MIME or :json." "Check if the given MIME is a standard JSON MIME or :json."
[mime]
(if mime (if mime
(or (= :json mime) (or (= :json mime)
(re-matches #"application/json(;.*)?" (name mime))))) (re-matches #"application/json(;.*)?" (name mime)))))
(defn json-preferred-mime [mimes] (defn json-preferred-mime
"Choose a MIME from the given MIMEs with JSON preferred, "Choose a MIME from the given MIMEs with JSON preferred,
i.e. return JSON if included, otherwise return the first one." i.e. return JSON if included, otherwise return the first one."
[mimes]
(-> (filter json-mime? mimes) (-> (filter json-mime? mimes)
first first
(or (first mimes)))) (or (first mimes))))

6
samples/client/petstore/clojure/src/swagger_petstore/core.clj
View File

@ -169,15 +169,17 @@
(map (fn [[k v]] [k (normalize-param v)])) (map (fn [[k v]] [k (normalize-param v)]))
(into {}))) (into {})))
(defn json-mime? [mime] (defn json-mime?
"Check if the given MIME is a standard JSON MIME or :json." "Check if the given MIME is a standard JSON MIME or :json."
[mime]
(if mime (if mime
(or (= :json mime) (or (= :json mime)
(re-matches #"application/json(;.*)?" (name mime))))) (re-matches #"application/json(;.*)?" (name mime)))))
(defn json-preferred-mime [mimes] (defn json-preferred-mime
"Choose a MIME from the given MIMEs with JSON preferred, "Choose a MIME from the given MIMEs with JSON preferred,
i.e. return JSON if included, otherwise return the first one." i.e. return JSON if included, otherwise return the first one."
[mimes]
(-> (filter json-mime? mimes) (-> (filter json-mime? mimes)
first first
(or (first mimes)))) (or (first mimes))))