From e3fe471c601b2fa890f8692757aab74adf96fa28 Mon Sep 17 00:00:00 2001 From: Julien Eluard Date: Tue, 15 May 2018 16:13:52 +0200 Subject: [PATCH] Initial commit --- .gitignore | 1 + LICENSE.md | 355 +++++++++++++++++++++++++++++++++++++++++++ README.md | 38 +++++ deps.edn | 2 + src/clj_rn/core.clj | 111 ++++++++++++++ src/clj_rn/main.clj | 123 +++++++++++++++ src/clj_rn/shell.clj | 6 + src/clj_rn/specs.clj | 15 ++ src/clj_rn/utils.clj | 19 +++ 9 files changed, 670 insertions(+) create mode 100644 .gitignore create mode 100644 LICENSE.md create mode 100644 README.md create mode 100644 deps.edn create mode 100644 src/clj_rn/core.clj create mode 100644 src/clj_rn/main.clj create mode 100644 src/clj_rn/shell.clj create mode 100644 src/clj_rn/specs.clj create mode 100644 src/clj_rn/utils.clj diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..bd04223 --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +.cpcache/ diff --git a/LICENSE.md b/LICENSE.md new file mode 100644 index 0000000..c21b426 --- /dev/null +++ b/LICENSE.md @@ -0,0 +1,355 @@ +Mozilla Public License Version 2.0 +================================== + +### 1. Definitions + +**1.1. “Contributor”** + means each individual or legal entity that creates, contributes to + the creation of, or owns Covered Software. + +**1.2. “Contributor Version”** + means the combination of the Contributions of others (if any) used + by a Contributor and that particular Contributor's Contribution. + +**1.3. “Contribution”** + means Covered Software of a particular Contributor. + +**1.4. “Covered Software”** + means Source Code Form to which the initial Contributor has attached + the notice in Exhibit A, the Executable Form of such Source Code + Form, and Modifications of such Source Code Form, in each case + including portions thereof. + +**1.5. “Incompatible With Secondary Licenses”** + means + +* **(a)** that the initial Contributor has attached the notice described + in Exhibit B to the Covered Software; or +* **(b)** that the Covered Software was made available under the terms of + version 1.1 or earlier of the License, but not also under the + terms of a Secondary License. + +**1.6. “Executable Form”** + means any form of the work other than Source Code Form. + +**1.7. “Larger Work”** + means a work that combines Covered Software with other material, in + a separate file or files, that is not Covered Software. + +**1.8. “License”** + means this document. + +**1.9. “Licensable”** + means having the right to grant, to the maximum extent possible, + whether at the time of the initial grant or subsequently, any and + all of the rights conveyed by this License. + +**1.10. “Modifications”** + means any of the following: + +* **(a)** any file in Source Code Form that results from an addition to, + deletion from, or modification of the contents of Covered + Software; or +* **(b)** any new file in Source Code Form that contains any Covered + Software. + +**1.11. “Patent Claims” of a Contributor** + means any patent claim(s), including without limitation, method, + process, and apparatus claims, in any patent Licensable by such + Contributor that would be infringed, but for the grant of the + License, by the making, using, selling, offering for sale, having + made, import, or transfer of either its Contributions or its + Contributor Version. + +**1.12. “Secondary License”** + means either the GNU General Public License, Version 2.0, the GNU + Lesser General Public License, Version 2.1, the GNU Affero General + Public License, Version 3.0, or any later versions of those + licenses. + +**1.13. “Source Code Form”** + means the form of the work preferred for making modifications. + +**1.14. “You” (or “Your”)** + means an individual or a legal entity exercising rights under this + License. For legal entities, “You” includes any entity that + controls, is controlled by, or is under common control with You. For + purposes of this definition, “control” means **(a)** the power, direct + or indirect, to cause the direction or management of such entity, + whether by contract or otherwise, or **(b)** ownership of more than + fifty percent (50%) of the outstanding shares or beneficial + ownership of such entity. + + +### 2. License Grants and Conditions + +#### 2.1. Grants + +Each Contributor hereby grants You a world-wide, royalty-free, +non-exclusive license: + +* **(a)** under intellectual property rights (other than patent or trademark) + Licensable by such Contributor to use, reproduce, make available, + modify, display, perform, distribute, and otherwise exploit its + Contributions, either on an unmodified basis, with Modifications, or + as part of a Larger Work; and +* **(b)** under Patent Claims of such Contributor to make, use, sell, offer + for sale, have made, import, and otherwise transfer either its + Contributions or its Contributor Version. + +#### 2.2. Effective Date + +The licenses granted in Section 2.1 with respect to any Contribution +become effective for each Contribution on the date the Contributor first +distributes such Contribution. + +#### 2.3. Limitations on Grant Scope + +The licenses granted in this Section 2 are the only rights granted under +this License. No additional rights or licenses will be implied from the +distribution or licensing of Covered Software under this License. +Notwithstanding Section 2.1(b) above, no patent license is granted by a +Contributor: + +* **(a)** for any code that a Contributor has removed from Covered Software; + or +* **(b)** for infringements caused by: **(i)** Your and any other third party's + modifications of Covered Software, or **(ii)** the combination of its + Contributions with other software (except as part of its Contributor + Version); or +* **(c)** under Patent Claims infringed by Covered Software in the absence of + its Contributions. + +This License does not grant any rights in the trademarks, service marks, +or logos of any Contributor (except as may be necessary to comply with +the notice requirements in Section 3.4). + +#### 2.4. Subsequent Licenses + +No Contributor makes additional grants as a result of Your choice to +distribute the Covered Software under a subsequent version of this +License (see Section 10.2) or under the terms of a Secondary License (if +permitted under the terms of Section 3.3). + +#### 2.5. Representation + +Each Contributor represents that the Contributor believes its +Contributions are its original creation(s) or it has sufficient rights +to grant the rights to its Contributions conveyed by this License. + +#### 2.6. Fair Use + +This License is not intended to limit any rights You have under +applicable copyright doctrines of fair use, fair dealing, or other +equivalents. + +#### 2.7. Conditions + +Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted +in Section 2.1. + + +### 3. Responsibilities + +#### 3.1. Distribution of Source Form + +All distribution of Covered Software in Source Code Form, including any +Modifications that You create or to which You contribute, must be under +the terms of this License. You must inform recipients that the Source +Code Form of the Covered Software is governed by the terms of this +License, and how they can obtain a copy of this License. You may not +attempt to alter or restrict the recipients' rights in the Source Code +Form. + +#### 3.2. Distribution of Executable Form + +If You distribute Covered Software in Executable Form then: + +* **(a)** such Covered Software must also be made available in Source Code + Form, as described in Section 3.1, and You must inform recipients of + the Executable Form how they can obtain a copy of such Source Code + Form by reasonable means in a timely manner, at a charge no more + than the cost of distribution to the recipient; and + +* **(b)** You may distribute such Executable Form under the terms of this + License, or sublicense it under different terms, provided that the + license for the Executable Form does not attempt to limit or alter + the recipients' rights in the Source Code Form under this License. + +#### 3.3. Distribution of a Larger Work + +You may create and distribute a Larger Work under terms of Your choice, +provided that You also comply with the requirements of this License for +the Covered Software. If the Larger Work is a combination of Covered +Software with a work governed by one or more Secondary Licenses, and the +Covered Software is not Incompatible With Secondary Licenses, this +License permits You to additionally distribute such Covered Software +under the terms of such Secondary License(s), so that the recipient of +the Larger Work may, at their option, further distribute the Covered +Software under the terms of either this License or such Secondary +License(s). + +#### 3.4. Notices + +You may not remove or alter the substance of any license notices +(including copyright notices, patent notices, disclaimers of warranty, +or limitations of liability) contained within the Source Code Form of +the Covered Software, except that You may alter any license notices to +the extent required to remedy known factual inaccuracies. + +#### 3.5. Application of Additional Terms + +You may choose to offer, and to charge a fee for, warranty, support, +indemnity or liability obligations to one or more recipients of Covered +Software. However, You may do so only on Your own behalf, and not on +behalf of any Contributor. You must make it absolutely clear that any +such warranty, support, indemnity, or liability obligation is offered by +You alone, and You hereby agree to indemnify every Contributor for any +liability incurred by such Contributor as a result of warranty, support, +indemnity or liability terms You offer. You may include additional +disclaimers of warranty and limitations of liability specific to any +jurisdiction. + + +### 4. Inability to Comply Due to Statute or Regulation + +If it is impossible for You to comply with any of the terms of this +License with respect to some or all of the Covered Software due to +statute, judicial order, or regulation then You must: **(a)** comply with +the terms of this License to the maximum extent possible; and **(b)** +describe the limitations and the code they affect. Such description must +be placed in a text file included with all distributions of the Covered +Software under this License. Except to the extent prohibited by statute +or regulation, such description must be sufficiently detailed for a +recipient of ordinary skill to be able to understand it. + + +### 5. Termination + +**5.1.** The rights granted under this License will terminate automatically +if You fail to comply with any of its terms. However, if You become +compliant, then the rights granted under this License from a particular +Contributor are reinstated **(a)** provisionally, unless and until such +Contributor explicitly and finally terminates Your grants, and **(b)** on an +ongoing basis, if such Contributor fails to notify You of the +non-compliance by some reasonable means prior to 60 days after You have +come back into compliance. Moreover, Your grants from a particular +Contributor are reinstated on an ongoing basis if such Contributor +notifies You of the non-compliance by some reasonable means, this is the +first time You have received notice of non-compliance with this License +from such Contributor, and You become compliant prior to 30 days after +Your receipt of the notice. + +**5.2.** If You initiate litigation against any entity by asserting a patent +infringement claim (excluding declaratory judgment actions, +counter-claims, and cross-claims) alleging that a Contributor Version +directly or indirectly infringes any patent, then the rights granted to +You by any and all Contributors for the Covered Software under Section +2.1 of this License shall terminate. + +**5.3.** In the event of termination under Sections 5.1 or 5.2 above, all +end user license agreements (excluding distributors and resellers) which +have been validly granted by You or Your distributors under this License +prior to termination shall survive termination. + + +### 6. Disclaimer of Warranty + +> Covered Software is provided under this License on an “as is” +> basis, without warranty of any kind, either expressed, implied, or +> statutory, including, without limitation, warranties that the +> Covered Software is free of defects, merchantable, fit for a +> particular purpose or non-infringing. The entire risk as to the +> quality and performance of the Covered Software is with You. +> Should any Covered Software prove defective in any respect, You +> (not any Contributor) assume the cost of any necessary servicing, +> repair, or correction. This disclaimer of warranty constitutes an +> essential part of this License. No use of any Covered Software is +> authorized under this License except under this disclaimer. + +### 7. Limitation of Liability + +> Under no circumstances and under no legal theory, whether tort +> (including negligence), contract, or otherwise, shall any +> Contributor, or anyone who distributes Covered Software as +> permitted above, be liable to You for any direct, indirect, +> special, incidental, or consequential damages of any character +> including, without limitation, damages for lost profits, loss of +> goodwill, work stoppage, computer failure or malfunction, or any +> and all other commercial damages or losses, even if such party +> shall have been informed of the possibility of such damages. This +> limitation of liability shall not apply to liability for death or +> personal injury resulting from such party's negligence to the +> extent applicable law prohibits such limitation. Some +> jurisdictions do not allow the exclusion or limitation of +> incidental or consequential damages, so this exclusion and +> limitation may not apply to You. + + +### 8. Litigation + +Any litigation relating to this License may be brought only in the +courts of a jurisdiction where the defendant maintains its principal +place of business and such litigation shall be governed by laws of that +jurisdiction, without reference to its conflict-of-law provisions. +Nothing in this Section shall prevent a party's ability to bring +cross-claims or counter-claims. + + +### 9. Miscellaneous + +This License represents the complete agreement concerning the subject +matter hereof. If any provision of this License is held to be +unenforceable, such provision shall be reformed only to the extent +necessary to make it enforceable. Any law or regulation which provides +that the language of a contract shall be construed against the drafter +shall not be used to construe this License against a Contributor. + + +### 10. Versions of the License + +#### 10.1. New Versions + +Mozilla Foundation is the license steward. Except as provided in Section +10.3, no one other than the license steward has the right to modify or +publish new versions of this License. Each version will be given a +distinguishing version number. + +#### 10.2. Effect of New Versions + +You may distribute the Covered Software under the terms of the version +of the License under which You originally received the Covered Software, +or under the terms of any subsequent version published by the license +steward. + +#### 10.3. Modified Versions + +If you create software not governed by this License, and you want to +create a new license for such software, you may create and use a +modified version of this License if you rename the license and remove +any references to the name of the license steward (except to note that +such modified license differs from this License). + +#### 10.4. Distributing Source Code Form that is Incompatible With Secondary Licenses + +If You choose to distribute Source Code Form that is Incompatible With +Secondary Licenses under the terms of this version of the License, the +notice described in Exhibit B of this License must be attached. + +## Exhibit A - Source Code Form License Notice + + 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/. + +If it is not possible or desirable to put the notice in a particular +file, then You may include the notice in a location (such as a LICENSE +file in a relevant directory) where a recipient would be likely to look +for such a notice. + +You may add additional accurate notices of copyright ownership. + +## Exhibit B - “Incompatible With Secondary Licenses” Notice + + This Source Code Form is "Incompatible With Secondary Licenses", as + defined by the Mozilla Public License, v. 2.0. diff --git a/README.md b/README.md new file mode 100644 index 0000000..caf95ae --- /dev/null +++ b/README.md @@ -0,0 +1,38 @@ +# CLJ-RN + +A utility for building ClojureScript-based React Native apps + +## Usage + +This small lib provides just some basic functionality that re-natal has: `enable-source-maps` and `rebuild-index`, which is equivalence of re-natal's `enable-source-maps`, `use-*-device`, `use-figwheel`. + +``` +clj -R:repl -m clj-rn.main help +enable-source-maps Patches RN packager to server *.map files from filesystem, so that chrome can download them. +rebuild-index Generate index.*.js for development with figwheel +help Show this help +``` + +`rebuild-index` has the following options: +``` +clj -R:repl -m clj-rn.main rebuild-index --help + -p, --platform BUILD-IDS [:android] Platform Build IDs + -a, --android-device TYPE Android Device Type + -i, --ios-device TYPE iOS Device Type + --figwheel-port PORT 3449 Figwheel Port + -h, --help +``` + +**Example usage** + +``` +$ clj -R:repl -m clj-rn.main rebuild-index -p android,ios -a genymotion -i real --figwheel-port 3456 +``` + +## Thanks + +Special thanks to @psdp for the initial implementation. Awesome job! + +## License + +Licensed under the [Mozilla Public License v2.0](LICENSE.md) diff --git a/deps.edn b/deps.edn new file mode 100644 index 0000000..db8efb5 --- /dev/null +++ b/deps.edn @@ -0,0 +1,2 @@ +{:deps {org.clojure/tools.cli {:mvn/version "0.3.7"}} + :paths ["src" "resources"]} diff --git a/src/clj_rn/core.clj b/src/clj_rn/core.clj new file mode 100644 index 0000000..81b188e --- /dev/null +++ b/src/clj_rn/core.clj @@ -0,0 +1,111 @@ +(ns clj-rn.core + (:require [clj-rn.utils :as utils] + [clojure.java.io :as io] + [clojure.pprint :as pprint] + [clojure.string :as str])) + +(def debug-host-rx #"host]\s+\?:\s+@\".*\";") + +(defn edit-file-contents! [path replacements-map] + (as-> (slurp path) $ + (reduce (fn [contents [match replacement]] + (str/replace contents match replacement)) + $ replacements-map) + (spit path $))) + +(defn enable-source-maps [] + (doseq [path ["node_modules/metro/src/Server/index.js" + "node_modules/metro-bundler/src/Server/index.js" + "node_modules/metro-bundler/build/Server/index.js" + "node_modules/react-native/packager/src/Server/index.js"]] + (when (.exists (io/as-file path)) + (utils/log (str "Patching file " path " to serve *.map files.")) + (spit path + (str/replace (slurp path) "/\\.map$/" "/index\\..*\\.map$/")))) + (utils/log "Source maps enabled.")) + +(defn get-lan-ip + "If .lan-ip file exists, it fetches the ip from the file." + [] + (if-let [ip (try (slurp ".lan-ip") (catch Exception e nil))] + (str/trim-newline ip) + (cond + (some #{(System/getProperty "os.name")} ["Mac OS X" "Windows 10"]) + (.getHostAddress (java.net.InetAddress/getLocalHost)) + :else + (->> (java.net.NetworkInterface/getNetworkInterfaces) + (enumeration-seq) + (filter #(not (or (str/starts-with? (.getName %) "docker") + (str/starts-with? (.getName %) "br-")))) + (map #(.getInterfaceAddresses %)) + (map + (fn [ip] + (seq (filter #(instance? + java.net.Inet4Address + (.getAddress %)) + ip)))) + (remove nil?) + (first) + (filter #(instance? + java.net.Inet4Address + (.getAddress %))) + (first) + (.getAddress) + (.getHostAddress))))) + +(defmulti resolve-dev-host (fn [platform _] platform)) + +(defmethod resolve-dev-host :android [_ device-type] + (case device-type + :real "localhost" + :avd "10.0.2.2" + :genymotion "10.0.3.2" + (get-lan-ip))) + +(defmethod resolve-dev-host :ios [_ device-type] + (if (= device-type :simulator) + "localhost" + (get-lan-ip))) + +(defn write-env-dev [hosts-map & [figwheel-port]] + (-> "(ns env.config)\n\n(def figwheel-urls %s)" + (format (-> (into {} + (for [[platform host] hosts-map] + {platform (str "ws://" host ":" (or figwheel-port 3449) "/figwheel-ws")})) + pprint/pprint + with-out-str)) + ((partial spit "env/dev/env/config.cljs")))) + +(defn rebuild-index-js [platform {:keys [app-name host-ip js-modules resource-dirs]}] + (let [modules (->> (for [dir resource-dirs] + (->> (file-seq (io/file dir)) + (filter #(and (not (re-find #"DS_Store" (str %))) + (.isFile %))) + (map (fn [file] (when-let [unix-path (->> file .toPath .iterator iterator-seq (str/join "/"))] + (-> (str "./" unix-path) + (str/replace "\\" "/") + (str/replace "@2x" "") + (str/replace "@3x" ""))))))) + flatten + (concat js-modules ["react" "react-native" "create-react-class"]) + distinct) + modules-map (zipmap modules modules) + target-file (str "index." (if (= :ios platform) "ios" "android") ".js")] + (try + (-> "var modules={};%s;\nrequire('figwheel-bridge').withModules(modules).start('%s','%s','%s');" + (format + (->> modules-map + (map (fn [[module path]] + (str "modules['" module "']=require('" path "')"))) + (str/join ";")) + app-name + (name platform) + host-ip) + ((partial spit target-file))) + (utils/log (str target-file " was regenerated")) + (catch Exception e + (utils/log-err (.getMessage e)))))) + +(defn update-ios-rct-web-socket-executor [host] + (edit-file-contents! "node_modules/react-native/Libraries/WebSocket/RCTWebSocketExecutor.m" + {debug-host-rx (str "host] ?: @\"" host "\";")})) diff --git a/src/clj_rn/main.clj b/src/clj_rn/main.clj new file mode 100644 index 0000000..2b19c67 --- /dev/null +++ b/src/clj_rn/main.clj @@ -0,0 +1,123 @@ +(ns clj-rn.main + (:require [clj-rn.core :as core] + [clj-rn.shell :as shell] + clj-rn.specs + [clj-rn.utils :as utils] + [clojure.edn :as edn] + [clojure.java.io :as io] + [clojure.spec.alpha :as spec] + [clojure.string :as str] + [clojure.tools.cli :as cli])) + +(defn get-main-config [] + (try + (let [usr-config-file "clj-rn.conf.edn"] + (when-not (.isFile (io/as-file usr-config-file)) + (throw (Exception. "Please create a clj-rn.conf.edn config file"))) + (let [config (edn/read-string (slurp usr-config-file))] + (when-not (spec/valid? :config/main config) + (throw (Exception. "Invalid config."))) + config)) + (catch Exception e + (utils/println-colorized (.getMessage e) shell/color-red) + (System/exit 1)))) + +(def cli-tasks-info + {:enable-source-maps {:desc "Patches RN packager to server *.map files from filesystem, so that chrome can download them."} + :rebuild-index {:desc "Generate index.*.js for development with figwheel"} + :help {:desc "Show this help"}}) + +(defn- show-help [] + (doseq [[task {:keys [desc usage]}] cli-tasks-info] + (println (format (str shell/color-yellow "%-20s" shell/color-reset + shell/color-green "%s" shell/color-reset) + (name task) desc)) + (when usage + (println) + (->> usage + (map #(str " " %)) + (str/join "\n") + println) + (println)))) + +(defn parse-cli-opts [args opts] + (let [{:keys [options errors summary]} (cli/parse-opts args opts)] + (cond + (:help options) (do (println summary) + (System/exit 1)) + (not (nil? errors)) (utils/log-err errors) + :else options))) + +;;; Task dispatching + +(defmulti task (comp keyword str/lower-case #(or % "") first)) + +(defmethod task :default [args] + (println (format "Unknown or missing task. Choose one of: %s\n" + (->> cli-tasks-info + keys + (map name) + (interpose ", ") + (apply str)))) + (show-help) + (System/exit 1)) + +;;; :enable-source-maps task + +(defmethod task :enable-source-maps [_] + (core/enable-source-maps)) + +(def rebuild-index-task-opts + [["-p" "--platform BUILD-IDS" "Platform Build IDs " + :id :build-ids + :default [:android] + :parse-fn #(->> (.split % ",") + (map (comp keyword str/lower-case str/trim)) + vec) + :validate [(fn [build-ids] (every? #(some? (#{:android :ios} %)) build-ids)) "Must be \"android\", and/or \"ios\""]] + ["-a" "--android-device TYPE" "Android Device Type " + :id :android-device + :parse-fn #(keyword (str/lower-case %)) + :validate [#(some? (#{:avd :genymotion :real} %)) "Must be \"avd\", \"genymotion\", or \"real\""]] + ["-i" "--ios-device TYPE" "iOS Device Type " + :id :ios-device + :parse-fn #(keyword (str/lower-case %)) + :validate [#(some? (#{:simulator :real} %)) "Must be \"simulator\", or \"real\""]] + [nil "--figwheel-port PORT" "Figwheel Port" + :id :figwheel-port + :default 3449 + :parse-fn #(Integer/parseInt %) + :validate [#(< 0 % 0x10000) "Must be a number between 0 and 65536"]] + ["-h" "--help"]]) + +(defmethod task :rebuild-index [[_ & args]] + (let [{:keys [build-ids + android-device + ios-device + figwheel-port]} (parse-cli-opts args rebuild-index-task-opts) + hosts-map {:android (core/resolve-dev-host :android android-device) + :ios (core/resolve-dev-host :ios ios-device)}] + (core/write-env-dev hosts-map figwheel-port) + (doseq [build-id build-ids + :let [host-ip (get hosts-map build-id) + platform-name (if (= build-id :ios) "iOS" "Android") + {:keys [name + js-modules + resource-dirs]} (get-main-config)]] + (core/rebuild-index-js build-id {:app-name name + :host-ip host-ip + :js-modules js-modules + :resource-dirs resource-dirs}) + (when (= build-id :ios) + (core/update-ios-rct-web-socket-executor host-ip) + (utils/log "Host in RCTWebSocketExecutor.m was updated")) + (utils/log (format "Dev server host for %s: %s" platform-name host-ip))))) + +;;; Help + +(defmethod task :help [_] + (show-help) + (System/exit 1)) + +(defn -main [& args] + (task args)) diff --git a/src/clj_rn/shell.clj b/src/clj_rn/shell.clj new file mode 100644 index 0000000..783f775 --- /dev/null +++ b/src/clj_rn/shell.clj @@ -0,0 +1,6 @@ +(ns clj-rn.shell) + +(def color-reset "\u001b[0m") +(def color-red "\u001b[31m") +(def color-green "\u001b[32m") +(def color-yellow "\u001b[33m") diff --git a/src/clj_rn/specs.clj b/src/clj_rn/specs.clj new file mode 100644 index 0000000..359c5c3 --- /dev/null +++ b/src/clj_rn/specs.clj @@ -0,0 +1,15 @@ +(ns clj-rn.specs + (:require [clojure.spec.alpha :as s])) + +(def not-empty-string? + (and string? #(not (empty? %)))) + +;;; config + +(s/def :config/main (s/merge (s/keys :req-un [:config/name] + :opt-un [:config/js-modules :config/resource-dirs]) + (s/map-of #{:name :js-modules :resource-dirs} any?))) + +(s/def :config/name (and not-empty-string? #(re-matches #"^[A-Z][A-Za-z0-9]+$" %))) +(s/def :config/js-modules (s/coll-of not-empty-string?)) +(s/def :config/resource-dirs (s/coll-of not-empty-string?)) diff --git a/src/clj_rn/utils.clj b/src/clj_rn/utils.clj new file mode 100644 index 0000000..fe38f69 --- /dev/null +++ b/src/clj_rn/utils.clj @@ -0,0 +1,19 @@ +(ns clj-rn.utils + (:require [clj-rn.shell :as shell])) + +(defn colorizer [c] + (fn [& args] + (str c (apply str args) shell/color-reset))) + +(defn println-colorized [message color] + (println ((colorizer color) message))) + +(defn log + ([s] + (log s shell/color-green)) + ([s color] + (println-colorized s color))) + +(defn log-err [s] + (println-colorized s shell/color-red) + (System/exit 1))