 
 
 ;====================================================================================
-; Command Line Usage
+; Command Line usage summary
 ;====================================================================================
 (defn cmd-usage [options-summary]
   (->> [server-name

   ;; twitter
   [nil "--twitter-key KEY" "Twitter application key"]
   [nil "--twitter-secret SECRET" "Twitter application secret"]
   [nil "--twitter-callback" "Twitter application callback URL"]

   ;Command Line Common Args--------------------------------------------------------------------------------------------
   ["-s" "--script SCRIPT" "JavaScript String to Execute."]

   ["-i" "--input-file INPUT_FILE" "JavaScript file to Execute"]

   [nil "--svg SVG" "SVG string to Execute"]

   [nil "--svg-file SVG_FILE" "SVG file to Execute"]

   ;[nil "--page HTML_PAGE" "HTML page string to Execute"]

   [nil "--html-file HTML_FILE" "HTML page file to Execute"]


          mode (:mode options)]
      (reset! web/allow-script-executing (:allow-scripts-executing options))
      (case mode
        "server" (start-server options full-server-summary)
        "cmd" (cmd-export options full-cmd-summary)
        (exit (if (:help options) 0 1)
              (usage common-summary server-summary cmd-summary))))))
