diff options
| -rw-r--r-- | ana.lisp | 7 | ||||
| -rwxr-xr-x | build.sh | 5 | ||||
| -rw-r--r-- | html-jen.asd | 5 |
3 files changed, 16 insertions, 1 deletions
@@ -27,3 +27,10 @@ :if-does-not-exist :create :if-exists :supersede) (şablonlu-yazdır root dış))))) + +(defun ana () + (let ((args sb-ext:*posix-argv*)) + (assert (= 3 (length args))) + (let ((kaynak (nth 1 args)) + (hedef (nth 2 args))) + (markdown->html kaynak hedef)))) diff --git a/build.sh b/build.sh new file mode 100755 index 0000000..82e247a --- /dev/null +++ b/build.sh @@ -0,0 +1,5 @@ +#!/bin/sh + +sbcl --eval '(asdf:load-system :html-jen)' \ + --eval '(asdf:make :html-jen)' \ + --eval '(quit)' diff --git a/html-jen.asd b/html-jen.asd index bbad5d4..e2532cd 100644 --- a/html-jen.asd +++ b/html-jen.asd @@ -7,4 +7,7 @@ (:file "tanım") (:file "okur") (:file "üretim") - (:file "ana"))) + (:file "ana")) + :build-operation "program-op" + :build-pathname "html-üret" + :entry-point "html-jen::ana") |