-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.clj
23 lines (18 loc) · 847 Bytes
/
main.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(import 'java.time.format.DateTimeFormatter
'java.time.LocalDateTime)
(def date (LocalDateTime/now))
;; (def formatter (DateTimeFormatter/ofPattern "yyyy-MM-dd HH:mm:ss"))
(def formatter (DateTimeFormatter/ofPattern "yyyy"))
;; (prn *command-line-args*)
(defn get-program-path [args]
(case (count args)
1 (let [args (conj args (.format date formatter))
[year day] (->> args (map #(Integer/parseInt %)))]
(format "%d/day%d/day%d.clj" year day day))
2 (let [[year day] (->> args (map #(Integer/parseInt %)))]
(format "%d/day%d/day%d.clj" year day day))
(throw (Exception. "Args must be year and day"))))
;; (prn (get-program-path *command-line-args*))
(-> (shell/sh "bb" (get-program-path *command-line-args*))
(#(do (print (:out %))
(when (not= (:exit %) 0) (print (:err %))))))