Add IN-file->OUT defuns to defconv

Also, update convert-file/3 and clean up convert-file/2 docstring.
quasiquoting · Feb 20, 2016 · 2ccbdb0 · 2ccbdb0
1 parent 1f5f7e9
commit 2ccbdb0
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/include/conversions.lfe b/include/conversions.lfe
@@ -4,6 +4,10 @@
      (defun ,(list_to_atom (++ input "->" output)) (string _options)
        (convert-string string ,input ,output))
      (defun ,(list_to_atom (++ input "->" output)) (string)
+       (,(list_to_atom (++ input "->" output)) string []))
+     (defun ,(list_to_atom (++ input "-file->" output)) (string _options)
+       (convert-file string ,input ,output))
+     (defun ,(list_to_atom (++ input "-file->" output)) (string)
        (,(list_to_atom (++ input "->" output)) string []))))
 
 (defmacro defconversions ()

diff --git a/src/levaindoc.lfe b/src/levaindoc.lfe
@@ -51,11 +51,13 @@ and return `` `#(ok ,output) ``."
         `#(ok ,output)))))
 
 (defun convert-file (file)
-  "Equivalent to `(`[[convert-file/3]]` file \"markdown_github\" \"html\")`."
-  (convert-file file "markdown" "html"))
+  "Equivalent to `markdown_github-file->html/1`, which calls [[convert-file/3]].
+
+See [conversions](conversions.html) and [levaindoc-util](levaindoc-util.html)."
+  (markdown_github-file->html file))
 
 (defun convert-file (file from to)
-  "Equivalent to `(`[[convert-file/4]]` file from to [])`."
+  "Equivalent to `(`[[convert-file/4]] `file from to [])`."
   (convert-file file from to []))
 
 (defun convert-file (file from to _options)