@@ -11,15 +11,10 @@ racket/system "../dust.rkt") (provide main) -(define (normalize str) - (define alphanum-only - (regexp-replace* #rx"[^A-Za-z0-9 ]" str "")) - (string-normalize-spaces (string-downcase alphanum-only) #px"\\s+" "-")) - (define (make-filename basename) (build-path (current-directory) articles-folder (string-append basename ".poly.pm"))) (define (comment . strs) (format "◊; ~a" (apply string-append strs)))