aboutsummaryrefslogtreecommitdiffstats
path: root/hypo.hy
diff options
context:
space:
mode:
Diffstat (limited to 'hypo.hy')
-rwxr-xr-xhypo.hy8
1 files changed, 4 insertions, 4 deletions
diff --git a/hypo.hy b/hypo.hy
index 4e9dcb1..a8e27b9 100755
--- a/hypo.hy
+++ b/hypo.hy
@@ -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)])