(ns leiningen.clean-tokyo
  (:use [clojure.java.shell :only [sh]]
        [clojure.java.io :only [file]]))

(defn clean [srcdir]
  (when (.exists (file srcdir "Makefile"))
    (println (:out (sh "make" "distclean" :dir (file srcdir))))))

(defn clean-tokyo []
  (clean (file "src/tokyocabinet"))
  (clean (file "src/tokyocabinet-java")))


(ns leiningen.clean-tokyo
  (:use [clojure.java.io :only [file]])
  (:require [conch.core :as sh]))

(defn clean [srcdir]
  (when (.exists (file srcdir "Makefile"))
    (sh/stream-to-out (sh/proc "make" "distclean" :dir (file srcdir)) :out)))

(defn clean-tokyo []
  (clean (file "src/tokyocabinet"))
  (clean (file "src/tokyocabinet-java")))


Make clean-tokyo task also use conch.
Make clean-tokyo task also use conch.

ninjudd/tokyocabinet,ninjudd/tokyocabinet,ninjudd/tokyocabinet,ninjudd/tokyocabinet,ninjudd/tokyocabinet,ninjudd/tokyocabinet,ninjudd/tokyocabinet