simon/squirrel-parse
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Identifying headers added to generated files.

Browse source
This commit is contained in:
Simon Brooke 2018-03-17 19:06:02 +00:00
parent 0800756288
commit 05623f0168
2 changed files with 16 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/squirrel_parse/to_hugsql_queries.clj
View file

@ -4,6 +4,8 @@
(:require [clojure.java.io :refer [file]]
[clojure.math.combinatorics :refer [combinations]]
[clojure.string :as s]
[clj-time.core :as t]
[clj-time.format :as f]
[squirrel-parse.to-adl :refer [migrations-to-xml]]
[squirrel-parse.utils :refer [is-link-table? singularise]]))
@ -281,13 +283,20 @@
[adl-struct (migrations-to-xml migrations-path "Ignored")
file-content (apply
str
(doall (map
(cons
(str "-- "
output
" autogenerated by \n-- [squirrel-parse](https://github.com/simon-brooke/squirrel-parse)\n-- at "
(f/unparse (f/formatters :basic-date-time) (t/now))
"\n\n")
(doall
(map
#(:query %)
(vals
(apply
merge
(map
#(queries % adl-struct)
(vals adl-struct)))))))]
(vals adl-struct))))))))]
(spit output file-content)
file-content)))

6
src/squirrel_parse/to_json_routes.clj
View file

@ -5,6 +5,8 @@
[clojure.math.combinatorics :refer [combinations]]
[clojure.pprint :refer [pprint write]]
[clojure.string :as s]
[clj-time.core :as t]
[clj-time.format :as f]
[squirrel-parse.to-adl :refer [migrations-to-xml]]
[squirrel-parse.to-hugsql-queries :refer [queries]]
[squirrel-parse.utils :refer [is-link-table? singularise]]))
@ -40,8 +42,10 @@
(defn file-header [parent-name this-name]
(list
'ns
^{:doc "JSON routes auto-generated by squirrel-parse"}
(symbol (str parent-name "." this-name))
(str "JSON routes for " parent-name
" auto-generated by [squirrel-parse](https://github.com/simon-brooke/squirrel-parse) at "
(f/unparse (f/formatters :basic-date-time) (t/now)))
(list
'require
'[noir.response :as nresponse]