カレントディレクトリ内のhtmlファイルからmarkdownファイルを作成するシェルスクリプトファイルを作る。 pandoc 1.11.1 Gauche 0.9.3.3

html2md.scm

(use file.util)

(let1 html-files (filter (^f (string=? "html" (cadr (string-split f "."))))
                         (directory-list (current-directory)))
  (call-with-output-file "script.sh"
    (^p (dolist (f html-files)
          (display (string-append "pandoc -f html -t markdown_github "
                                  f " -o "
                                  (string-append (car (string-split f ".")) ".md"))
                   p)
          (newline p)))))