From 7f66c54f4c9753b94dbf46ec50b8b16549daf324 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 1 Dec 2016 11:00:44 -0400
Subject: - Collected the Lux compiler's repo, the Standard Library's, the
 Leiningen plugin's and the Emacs mode's into a big monorepo, to keep
 development unified.

---
 lux-lein/src/leiningen/luxc/compiler.clj | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lux-lein/src/leiningen/luxc/compiler.clj

(limited to 'lux-lein/src/leiningen/luxc/compiler.clj')

diff --git a/lux-lein/src/leiningen/luxc/compiler.clj b/lux-lein/src/leiningen/luxc/compiler.clj
new file mode 100644
index 000000000..18eef63a0
--- /dev/null
+++ b/lux-lein/src/leiningen/luxc/compiler.clj
@@ -0,0 +1,19 @@
+;;  Copyright (c) Eduardo Julian. All rights reserved.
+;;  This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0.
+;;  If a copy of the MPL was not distributed with this file,
+;;  You can obtain one at http://mozilla.org/MPL/2.0/.
+
+(ns leiningen.luxc.compiler
+  (:refer-clojure :exclude [compile])
+  (:require [leiningen.core.classpath :as classpath]
+            (leiningen.luxc [utils :as &utils]
+                            [packager :as &packager])))
+
+(defn compile [project]
+  (if-let [program-module (get-in project [:lux :program])]
+    (do (&utils/run-process (&utils/compile-path project program-module (get project :source-paths (list)))
+                            nil
+                            "[COMPILATION BEGIN]"
+                            "[COMPILATION END]")
+      (&packager/package project program-module (get project :resource-paths (list))))
+    (println "Please provide a program main module in [:lux :program]")))
-- 
cgit v1.2.3