dirty work to support metadata in defn; alpha release

README.md

@@ -18,7 +18,7 @@ compiles to:
 ### API Usage [![Clojars Project](https://img.shields.io/clojars/v/cirru/sepal.svg)](https://clojars.org/cirru/sepal)
 
 ```edn
-[cirru/sepal "0.2.8"]
+[cirru/sepal "0.2.9-a1"]
 ```
 
 ```clojure

data/compiled/def.cljs

@@ -11,6 +11,8 @@
 
 (defn f2 ([a b] (+ a b)) ([a b c] (+ a b c)))
 
+(defn ^:dev/after-load f3 [])
+
 (defn- f1 [x] (+ x 1))
 
 (println :key "string" "c" "\n")

data/examples/def.edn

@@ -7,5 +7,6 @@
   "f2"
   [["a" "b"] ["+" "a" "b"]]
   [["a" "b" "c"] ["+" "a" "b" "c"]]]
+ ["defn" "^:dev/after-load" "f3" []]
  ["defn-" "f1" ["x"] ["+" "x" "1"]]
  ["println" ":key" "|string" "\\c" "\\newline"]]

package.json

@@ -1,6 +1,6 @@
 {
   "name": "sepal.clj",
-  "version": "0.2.8",
+  "version": "0.2.9-a1",
   "main": "index.js",
   "repository": "git@github.com:Cirru/sepal.clj.git",
   "author": "jiyinyiyong <jiyinyiyong@gmail.com>",
@@ -11,6 +11,6 @@
     "test": "yarn compile && node target/test.js"
   },
   "devDependencies": {
-    "shadow-cljs": "^2.10.17"
+    "shadow-cljs": "^2.10.19"
   }
 }

polyfill/cirru_sepal/core.cljs

@@ -12,10 +12,18 @@
 (defn transform-apply [xs]
   (map transform-x xs))
 
+(defn transform-defn-meta [tag func params & body]
+   (assert (string? func) "[Sepal] function name should be a symbol!")
+   (assert (coll? params) "[Sepal] params should be a sequence!")
+   `(~'defn ~(symbol tag) ~(symbol func) [~@(map transform-x params)] ~@(map transform-x body)))
+
 (defn transform-defn [func params & body]
-  (assert (string? func) "[Sepal] function name should be a symbol!")
-  (assert (coll? params) "[Sepal] params should be a sequence!")
-  `(~'defn ~(symbol func) [~@(map transform-x params)] ~@(map transform-x body)))
+ (if (string/starts-with? func "^")
+  (apply transform-defn-meta func params body)
+  (do
+   (assert (string? func) "[Sepal] function name should be a symbol!")
+   (assert (coll? params) "[Sepal] params should be a sequence!")
+   `(~'defn ~(symbol func) [~@(map transform-x params)] ~@(map transform-x body)))))
 
 (defn transform-defn$ [func & body]
   (assert (string? func) "[Sepal] function name should be a symbol!")

release.edn

@@ -1,4 +1,4 @@
-{:version "0.2.8",
+{:version "0.2.9-a1",
  :group-id "cirru",
  :artifact-id "sepal",
  :skip-tag true,