blob: 82091d974091c89d1b32d843148d72efd2515a2d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#! /usr/bin/guile \
-e main -s
!#
(define (main args)
(for-each
(lambda (file)
(system (string-append "./clean_up_html.scm " file ".html"
" | tidy | pandoc -f html -t org > "
"org/" file ".org")))
'("index" "linux_room" "music_room" "nathans_philosophy"
"truth" "ttr" "tv_corner" "distro_guides/arch"
"distro_guides/fedora" "distro_guides/xfce"
"error/404")))
|
