Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

unmehing.

Browse Source
This commit is contained in:
Paul R. Tagliamonte 2013-03-09 23:16:04 -05:00
parent 2ddf743d18
commit 34e10a4dba
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
site/app.hy
View File

@ -6,44 +6,8 @@
(import-from flask
Flask render-template)
(import-from pygments highlight)
(import-from pygments.lexers PythonLexer ClojureLexer)
(import-from pygments.formatters HtmlFormatter)
(import codegen)
(def lexers {"python" (PythonLexer)
"lisp" (ClojureLexer)})
(def app (Flask "__main__")) ; long story, needed hack
(route "/" [] (render-template "index.html"))
(defn colorize-python [x]
(highlight x (index lexers "python") (HtmlFormatter)))
(defn hy-to-py [hython]
(.to_source codegen (forge-ast "stdin" (tokenize hython))))
(decorate-with (kwapply (.route app "/format/<language>") {"methods" ["POST"]})
(defn format-code [language]
"Language HTML Formatter"
(highlight
(index request.form "code") (index lexers language) (HtmlFormatter))))
(decorate-with (kwapply (.route app "/hy2py") {"methods" ["POST"]})
(defn translate-code []
"Pythonic converter"
(hy-to-py (index request.form "code"))))
(decorate-with (kwapply (.route app "/hy2pycol") {"methods" ["POST"]})
(defn translate-code-with-color []
"Pythonic converter"
(colorize-python (hy-to-py (index request.form "code")))))