   (:out (apply sh (flatten
                    (conj (list search-title) iplayer-command)))))
 
-
-
 (defn iplayer-search
-  "run external command with given args list."
+  "If old-recording? display a list of all programmes,
+   that have to be deleted, otherwise, return a list of 
+   all matching programmes for search input."
   [search-title]
   (let [result (iplayer-search-resultstring search-title)]
     (if (old-recordings? (split-lines result))
       (split-lines (subs result (.indexOf result delete-string)))
       (split-lines result))))
-
 
 (defn search-categories
   "search iplayer for a given category"

  [index]
  (split-lines (:out (apply sh (flatten (conj (list index) iplayer-info))))))

(defn load-thumbandinfo-for-index
  "grep url for thumbnail size44, title and description
   for entered index."

    (list
     (map #(re-find #"htt.*" %) (filter #(re-find #"thumbnail4.*" %) ind))
     (map #(re-find #"[A-Z].*" %) (filter #(re-find #"desc:.*" %) ind))
     (map #(re-find #"[A-Z0-9].*" %) (filter #(re-find #"title:.*" %) ind))
     (get-download-modes ind))))

(defn get-thumb-from-search
  "return list of thumbnail for searchterm."
