YouTube download helper

yt.clj

#!/usr/bin/env clojure

(ns yt.core
  (:require [clojure.java.shell :as sh]
            [clojure.java.io :as io]))

(def home-dir (System/getProperty "user.home"))

(def download-dir-suffix "/Downloads/yt")

(def download-dir (str home-dir download-dir-suffix))

(defn run-cmd [cmd]
  (let [proc (.exec (Runtime/getRuntime) (into-array cmd) nil (io/file download-dir))]
    (with-open [rdr (io/reader (.getInputStream proc))]
      (doseq [line (line-seq rdr)]
        (println line)))))

(defn main []
  (print "link: ")

  (flush)

  (let [link (read-line)]
    (run-cmd ["youtube-dl" "--no-playlist" link])))

(main)