hypo/hypoctl

#!/usr/bin/env hy
;; Hypo -- Quickly share stuff
;; Copyright (C) 2013  Tom Willemse

;; Hypo is free software: you can redistribute it and/or modify it
;; under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.

;; Hypo is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
;; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General
;; Public License for more details.

;; You should have received a copy of the GNU Affero General Public
;; License along with Hypo.  If not, see <http://www.gnu.org/licenses/>.

(import pycommand sys web os
        [hypo [hypo-start]])

(defclass hypoctl-command (pycommand.CommandBase)
  [[usagestr "usage: hypoctl <command> [<args]"]
   [description "Control hypo"]
   [run (lambda [self]
          (cond
           [(not self.args)
            (progn (print self.usage) 2)]
           [(= (car self.args) "start")
            (hypo-start (cdr self.args))]
           [True
            (print (.format "error: command {0} does not exist"
                            (car self.args)))]))]])

(when (= __name__ "__main__")
  (let ((cmd (hypoctl-command (cdr sys.argv))))
    (if cmd.error
      (progn (print (.format "error: {0}" cmd.error))
             (sys.exit 1))
      (sys.exit (cmd.run)))))