adding help and updating dependencies

Author: ronen

project.clj

@@ -3,17 +3,17 @@
   :url "https://github.com/narkisr/octo-rewind"
   :license  {:name "Apache License, Version 2.0" :url "http://www.apache.org/licenses/LICENSE-2.0.html"}
   :dependencies [[org.clojure/clojure "1.9.0"]
+                 [cli-matic "0.3.3"]
                  [clj-yaml "0.4.0"]
-                 [irresponsible/tentacles "0.6.1"]
+                 [irresponsible/tentacles "0.6.3"]
                  [org.clojure/core.incubator "0.1.4"]
                  [me.raynes/fs "1.4.6"]
-                 [clj-http "3.8.0"]
-                 [org.clojure/tools.trace "0.7.9"]
+                 [clj-http "3.9.1"]
+                 [org.clojure/tools.trace "0.7.10"]
                  [com.taoensso/timbre "4.1.4"]]
   :plugins [
-     [jonase/eastwood "0.2.5"]
-     [lein-cljfmt "0.5.6"]
-     [lein-kibit "0.1.6"]
+     [jonase/eastwood "0.3.3"]
+     [lein-cljfmt "0.6.3"]
      [lein-ancient "0.6.15" :exclusions [org.clojure/clojure]]
      [lein-tag "0.1.0"]
      [lein-set-version "0.3.0"]
@@ -37,7 +37,8 @@
         }
 
         :dependencies [[org.clojure/tools.namespace "0.2.10"]
-                       [redl "0.2.4"] [org.clojure/tools.trace "0.7.9"]]
+                       [redl "0.2.4"]
+                       [org.clojure/tools.trace "0.7.10"]]
         :injections  [(require '[redl core complete])]
         :source-paths  ["dev" "src"]
         :test-paths  []

src/octo/core.clj

@@ -43,15 +43,26 @@
 (defn match [[k m]]
   [(find-fn k m) m])
 
+(defn help []
+  (println "
+Usage:
+  octo sync  {config}  - download remote repo changes locally.
+  octo push  {config}  - push local repositries into our backup location, repos are bundled and packaged before being pushed.
+  octo pull  {config}  - pull backup from remote backup destination to our local workspace folder.
+  octo stale {config}  - print a report listing stale repositries (repositries which code was updated in a while).
+  octo help            - print this help message
+
+{config} - All the commands expect an edn configuration file as input"))
+
 (defn -main [& args]
   (try
     (case (first args)
       "sync" (-> [:synch (c args)] match workspace auth run)
       "push" (-> [:push (c args)] match workspace push- run)
       "pull" (-> [:pull (c args)] match workspace push- run)
       "stale" (-> [:stale (c args)] match auth run)
-      "version" (version)
-      nil (version))
+      "help" (help)
+      nil (help))
     (catch Exception e
       (error e)
       (System/exit 1))))