From ee5f0a1413bbee95ac5dd4940d17f49d1a418e9c Mon Sep 17 00:00:00 2001 From: riton Date: Mon, 31 Mar 2025 20:53:44 +0300 Subject: =?UTF-8?q?=C3=BCretimin=20terminal=20aray=C3=BCz=C3=BC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/ana.lisp | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/src/ana.lisp b/src/ana.lisp index 1a226bc..ef47ecc 100644 --- a/src/ana.lisp +++ b/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]~%")))) -- cgit v1.2.3