Permalink
Browse files

remove unused code

  • Loading branch information...
1 parent 4b2ce7f commit 0fc16e86ce1cc02b8aaf540039a030e4fd382db0 Takahiro Hozumi committed Jul 8, 2012
Showing with 1 addition and 15 deletions.
  1. +1 −15 src/leiningen/hicv.clj
View
@@ -4,9 +4,7 @@
[clojure.java.io :as io]
[clojure.pprint :as pp]
[hozumi.det-enc :as enc]
- [org.satta.glob :as glob])
- (:import [java.io StringReader PushbackReader
- FileInputStream InputStreamReader LineNumberReader]))
+ [org.satta.glob :as glob]))
(def ^{:private true} hicv-dir-name "hicv")
@@ -15,18 +13,6 @@
(if-not (.exists f)
(.mkdir f))))
-#_(defn- list-s [path]
- (let [encoding (enc/detect path :default)]
- (with-open [pbr (-> path
- FileInputStream.
- (InputStreamReader. encoding)
- PushbackReader.)]
- (doall (take-while identity
- (repeatedly
- #(try (read pbr)
- (catch java.lang.Exception _
- nil))))))))
-
(defn- remove-extension [file-path]
(if-let [[_ pure-file-path] (re-matches #"(.*)\..*" file-path)]
pure-file-path

0 comments on commit 0fc16e8

Please sign in to comment.