From 9d114cfc773171b0a95bd4d2c39f1bb0eb783c8d Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 2 Nov 2019 15:33:13 -0700 Subject: rename everything back to caps to appease ghc --- com/simatime/caplinks.scm | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100755 com/simatime/caplinks.scm (limited to 'com/simatime/caplinks.scm') diff --git a/com/simatime/caplinks.scm b/com/simatime/caplinks.scm deleted file mode 100755 index 21f0b88..0000000 --- a/com/simatime/caplinks.scm +++ /dev/null @@ -1,45 +0,0 @@ - -(define-module (com simatime caplinks) - #:use-module ((ice-9 popen) #:prefix popen/) - #:use-module ((com simatime string) #:prefix string/) - #:use-module ((com simatime shell) #:prefix sh/) - #:export (main get-all-nodes make-symlink)) - -;; given a root directory, walk the tree and get a list of all the files. Then, -;; for each file, symlink a capitalized version -(define (main args) - (let* ((root (cadr args)) - (files (get-all-nodes root))) - (for-each (lambda (file) - (display file) - (move-file file (capitalize-file file))) - files) - (display root) (newline) - (display "done moving files") (newline) - (newline))) - -(define (get-all-nodes root) - (filter (lambda (s) (not (equal? "" s))) - (string-split (sh/stream - (format #f "find ~a -name '*.hs*'" root)) - #\newline))) - -(define (capitalize-file file) - (string-join (map string/capitalize (string-split file #\/)) - "/")) - -(define (butlast ls) - (let ((len (length ls))) - (list-head ls (- len 1)))) - -(define (dir-for f) - (string-join - (butlast (string-split f #\/)) - "/")) - -(define (move-file here there) - (display (format #f "~a -> ~a" here there)) - (newline) - ;; make the directory tree for the link, if it doesn't already exist - (system (format #f "mkdir -p ~a" (dir-for there))) - (system (format #f "mv ~a ~a" here there))) -- cgit v1.2.3