Initial commit

src/leiningen/adl.clj

@@ -0,0 +1,57 @@
+(ns leiningen.adl
+  (:require [adl.main :refer [process]]
+            [adl-support.core :refer [*warn*]]
+            [leiningen.core.main :refer [debug info warn]]))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;;;
+;;;; leiningen.adl: integrate Application Description Language processing with
+;;;; leiningen.
+;;;;
+;;;; This program is distributed under the ECLIPSE PUBLIC LICENSE, for
+;;;; compatibility with leiningen.
+;;;;
+;;;; Copyright (C) 2018 Simon Brooke
+;;;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defn adl
+  "Process an Application Description Language file using
+  configuration taken from the `project.clj`.
+
+  A key `:adl` may be supplied, whose value should be a map with
+  some or all of the following keys:
+
+  * `:adl-file` the filename of the ADL file to generate from
+    (defaults to `[project-name].adl.xml`);
+  * `:locale` the locale to generate files for (defaults to your
+    default locale);
+  * `:path` the path under which to generate files (defaults to
+    the current directory);
+  * `:verbosity` if set to an integer greater than zero, will
+    print additional information about what ADL is doing.
+
+  Additionally, the name of an ADL file may be supplied as an
+  argument, in which case that file will be used in preference
+  to any specified in the `project.clj`."
+  [project & args]
+  (let [c (:adl project)
+        config {:options (merge {:path "."} c)
+                :arguments (cond
+                            (not (empty? args)) args
+                            (not (nil? (:adl-file c))) (:adl-file c)
+                            true
+                            [(str (:name project) ".adl.xml")])}]
+    (binding [*warn* info]
+      (try
+        (process config)
+        (catch Exception any
+          (warn
+           (str
+            (.getName (.getClass any))
+            ": "
+            (.getMessage any)))
+          nil)))))
+
+
+