patches set name fixing

fix-name.scm

#! /usr/local/bin/guile \
-e main -s
!#

(use-modules (ice-9 regex) (ice-9 ftw))

(define (sub from to str) (regexp-substitute #f (string-match from str) 'pre to 'post))
(define (usage args) (format #t "~a from to path~%" (car args)))

(define main
  (lambda (args)
    (and (< (length (cdr args)) 3) (usage args) (primitive-exit))
    (let* ((from (cadr args)) (to (caddr args)) (path (cadddr args)) (fl (cddr (scandir path))))
      (for-each (lambda (file) (let ((f (string-append path "/" file))) (rename-file f (sub from to f)))) fl))))