From 2d32cd8df487fc67d7377693f60434376dd7e5b6 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Wed, 2 Oct 2013 01:48:22 -0400 Subject: [PATCH] add text-only button; closes #5 --- README.md | 2 +- pasterack.rkt | 13 +++++++++---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/README.md b/README.md index 967aa78..e3f0e1b 100644 --- a/README.md +++ b/README.md @@ -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 diff --git a/pasterack.rkt b/pasterack.rkt index 2daf037..da40e24 100644 --- a/pasterack.rkt +++ b/pasterack.rkt @@ -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