    ;; 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."]
+   [nil "--twitter-callback" "Twitter application callback URL"]])
+
+
+(def server-summary (:summary (parse-opts nil server-options)))
+(def full-server-summary (:summary (parse-opts nil (concat common-options server-options))))
+
+
+(def cmd-options
+  [["-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"]
 

           (POST "/xlsx" [] web/xlsx)
           (route/not-found "<p>Page not found.</p>"))

;(def app (-> app-routes wrap-params))
(def app (-> app-routes wrap-params (wrap-session {:store (create-storage)})))

(defn shutdown-server []
  (timbre/info "Shutdown...")
  (state/stop-server!)
  (browser/stop-drivers))

(defn start-server [options summary]
  (if (:help options) (exit 0 (server-usage summary)))

   ["-y" "--pdf-y PDF-Y" "Pdf Y"
    :parse-fn #(Integer/parseInt %)]

   ["-O" "--pdf-landscape PDF-LANDSCAPE" "PDF Orientation"]])

(def cmd-summary (:summary (parse-opts nil cmd-options)))
(def full-cmd-summary (:summary (parse-opts nil (concat common-options cmd-options))))

(def all-options
  (concat common-options server-options cmd-options))


;====================================================================================
