üretimin terminal arayüzü

src/ana.lisp

@@ -44,7 +44,7 @@
 
 (defun dönüştürmeli? (kaynak hedef)
   "Kaynak dosyadan hedef dosya oluşturulmalı mı ?
-Markdown dosyası değişmediyse yeniden oluşturma."
+Dosya değişmediyse yeniden oluşturma."
   (or (not (dosya-var? hedef))
       (> (mod-zamanı kaynak)
          (mod-zamanı hedef))))
@@ -59,8 +59,10 @@ Markdown dosyası değişmediyse yeniden oluşturma."
 
 (defun dizin-kopyala (kaynak hedef)
   (ensure-directories-exist hedef)
-  (mapc (lambda (yol)
-          (dosya-kopyala yol (yol-çeviri yol kaynak hedef)))
+  (mapc (lambda (kaynak-dosya)
+          (let ((hedef-dosya (yol-çeviri kaynak-dosya kaynak hedef)))
+            (when (dönüştürmeli? kaynak-dosya hedef-dosya)
+              (dosya-kopyala kaynak-dosya hedef-dosya))))
         (uiop:directory-files kaynak))
   (loop :for d :in (uiop:subdirectories kaynak)
         :do (dizin-kopyala d (yol-çeviri d kaynak hedef))))
@@ -80,8 +82,9 @@ Markdown dosyası değişmediyse yeniden oluşturma."
 
 (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))))
+    (if (= 4 (length args))
+        (apply #'tamamen-üret (mapcar (lambda (str)
+                                        (merge-pathnames str (uiop:getcwd)))
+                                      (cdr args)))
+        (format *error-output* "Kullanım: [prog-adı] [statik dizin] [içerik dizini] [hedef dizin]~%"))))