suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add text-only button; closes #5

Browse Source
This commit is contained in:
Stephen Chang 2013-10-02 01:48:22 -04:00
parent c03464f361
commit 2d32cd8df4
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -1,6 +1,6 @@
pasterack
=========
The Racket evaluating [pastebin](http://www.pasterack.org).
An evaluating [pastebin](http://www.pasterack.org) for Racket.
pkg dependencies: ring-buffer, redis

13
pasterack.rkt
View File

@ -120,7 +120,11 @@
" (optional title)" (br)(br)
(textarea ((rows "20") (cols "80") (name "paste")))
(br)
(input ((type "submit") (value "Submit Paste"))))
(table (tr (td ((style "width:10em")))
(td ((style "width:8em"))
(input ((type "submit") (value "Submit Paste"))))
(td (input ((type "checkbox") (name "astext") (value "off")))
" Submit as text only"))))
(br)
(h3 "Total pastes: " ,(number->string (DBSIZE)))
(h3 "Recent pastes:")
@ -140,7 +144,8 @@
(define paste-num (fresh-str))
(define paste-name (extract-binding/single 'name bs))
(define pasted-code (extract-binding/single 'paste bs))
(define html-res (generate-paste-html pasted-code))
(define html-res
(if (exists-binding? 'astext bs) #f (generate-paste-html pasted-code)))
(define paste-html-str (or html-res pasted-code))
(define eval-html-str (and html-res (generate-eval-html pasted-code)))
(define paste-url (mk-paste-url paste-num))
@ -260,8 +265,8 @@
(src ,(++ "/" new-file)) ,width)))))]
[x x]))
results))))]
[_ `(div ,eval-main-div)]))]
[_ `(div ,code-main-div)])))))]))
[_ `(div (pre ,eval-main-div))]))]
[_ `(div (pre ,code-main-div))])))))]))
(define-values (do-dispatch mk-url)
(dispatch-rules