ryuslash/hypo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update for compatibility with hy 0.9.12

Browse source
This commit is contained in:
Tom Willemse 2014-01-23 21:27:54 +01:00
parent 8e599478f7
commit f045a28463
2 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
hypo.hy
View file

@ -44,12 +44,12 @@
(defun get-type [ext]
(cond
((in ext (, ".jpg" ".jpeg" ".png" ".gif")) "image")
(true "text")))
[(in ext (, ".jpg" ".jpeg" ".png" ".gif")) "image"]
[True "text"]))
(defun read-file [filename]
(let (res)
(with [f (file filename "r")]
(with [[f (file filename "r")]]
(setv res (f.read)))
res))
@ -124,7 +124,7 @@ If no lexer is found fallback onto the text lexer."
(let ((h (hashes name))
(dirname (+ "files/" (get h 0))))
(os.mkdir dirname)
(with [f (file (+ dirname "/" name) "w")]
(with [[f (file (+ dirname "/" name) "w")]]
(.write f (web.data)))
(let ((repo (Gittle.init dirname)))
(.stage repo [(str name)])

14
hypoctl
View file

@ -23,16 +23,16 @@
[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
[(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))))))]])
(car self.args)))]))]])
(when (= __name__ "__main__")
(let ((cmd (hypoctl-command (cdr (cdr sys.argv)))))
(let ((cmd (hypoctl-command (cdr sys.argv))))
(if cmd.error
(progn (print (.format "error: {0}" cmd.error))
(sys.exit 1))