Mercurial > rlm
annotate src/rlm/sanitize_file.clj @ 9:1065e7d615a4 tip
deactivate some cruft.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Mon, 08 Jul 2013 12:51:12 -0400 |
parents | 78a630e650d2 |
children |
rev | line source |
---|---|
rlm@0 | 1 (ns rlm.sanitize-file |
rlm@0 | 2 (:import java.io.File) |
rlm@0 | 3 (:use clojure.contrib.str-utils)) |
rlm@0 | 4 |
rlm@0 | 5 |
rlm@0 | 6 (defn sanitize-file-name |
rlm@0 | 7 "given a file name, convert it into a valid file name. |
rlm@0 | 8 currently only works for linux" |
rlm@0 | 9 [#^String name] |
rlm@0 | 10 ;; as far as I know, all that must be done is removal of the |
rlm@0 | 11 ;; path separator. |
rlm@0 | 12 |
rlm@0 | 13 (re-gsub |
rlm@0 | 14 (re-pattern (str File/separatorChar)) |
rlm@0 | 15 " " ;; replace "/" with " " |
rlm@0 | 16 name)) |
rlm@0 | 17 |
rlm@0 | 18 |
rlm@0 | 19 |