1 files changed, 0 insertions, 45 deletions
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)))