Initial implementation

fnl/conjure-macroexpand/main.fnl

@@ -1,4 +1,49 @@
-(module conjure-macroexpand.main)
+(module conjure-macroexpand.main
+  {require {a aniseed.core
+            nvim aniseed.nvim
+            bridge conjure.bridge
+            client conjure.client
+            eval conjure.eval
+            extract conjure.extract
+            log conjure.log
+            mapping conjure.mapping}})
+
+;; Adapted from conjure.eval/current-form
+(defn- current-form []
+  (let [form (extract.form {})]
+    (when form
+      (let [{: content} form]
+        content))))
+
+(defn- clj-client [f args]
+  (client.with-filetype "clojure" f args))
+
+(defn- output-expanded [orig]
+  (fn [r]
+    (log.append [(.. "; " orig) r] {:break? true})))
+
+(defn conjure-macroexpand [expand-cmd]
+  (let [form (current-form)
+        me-form (.. "(" (or expand-cmd "clojure.walk/macroexpand-all") " '" form ")")]
+    (clj-client eval.eval-str
+                {:origin :conjure-macroexpand
+                 :code me-form
+                 :passive? true
+                 :on-result (output-expanded me-form)})))
 
 (defn init []
-  (print "Hello, World!"))
+  (nvim.ex.command_
+    "ConjureMacroexpand"
+    (bridge.viml->lua :conjure-macroexpand.main :conjure-macroexpand))
+  (nvim.ex.command_
+    "ConjureMacroexpand0"
+    (bridge.viml->lua :conjure-macroexpand.main :conjure-macroexpand {:args "\"clojure.core/macroexpand\""}))
+  (nvim.ex.command_
+    "ConjureMacroexpand1"
+    (bridge.viml->lua :conjure-macroexpand.main :conjure-macroexpand {:args "\"clojure.core/macroexpand-1\""}))
+
+  (when (or (not nvim.g.conjure_macroexpand_disable_mappings)
+            (= 0 nvim.g.conjure_macroexpand_disable_mappings))
+    (mapping.buf :n nil "cm" ":ConjureMacroexpand<CR>")
+    (mapping.buf :n nil "c0" ":ConjureMacroexpand0<CR>")
+    (mapping.buf :n nil "c1" ":ConjureMacroexpand1<CR>")))