diff --git a/ana.lisp b/ana.lisp index ac4c9ca..4b74169 100644 --- a/ana.lisp +++ b/ana.lisp @@ -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")