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

code cleanup

Browse Source
This commit is contained in:
Stephen Chang 2013-10-16 23:38:46 +00:00
parent e62a875c43
commit 5d91b1c453
1 changed files with 9 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
pasterack.rkt
View File

@ -18,7 +18,8 @@
(define-runtime-path here-dir ".") (define-runtime-path here-dir ".")
(define-runtime-path tmp-dir "tmp") (define-runtime-path tmp-dir "tmp")
(define pastebin-url "http://162.243.38.241:8000/") ;(define pastebin-url "http://162.243.38.241:8000/")
(define pastebin-url "http://pasterack.org/")
(define paste-url-base (++ pastebin-url "pastes/")) (define paste-url-base (++ pastebin-url "pastes/"))
(define racket-docs-url "http://docs.racket-lang.org/") (define racket-docs-url "http://docs.racket-lang.org/")
(define racket-lang-url "http://racket-lang.org") (define racket-lang-url "http://racket-lang.org")
@ -41,9 +42,11 @@
;irc bot ;irc bot
(define-values (irc-connection ready) (define-values (irc-connection ready)
(irc-connect "card.freenode.net" 6667 "pasterackm" "pasterackm" "pasterack.org mirror")) ; (irc-connect "card.freenode.net" 6667 "pasterackm" "pasterackm" "pasterack.org mirror"))
(irc-connect "card.freenode.net" 6667 "pasterack" "pasterack" "pasterack.org"))
(sync ready) (sync ready)
(define irc-channels '("#racktest")) ;(define irc-channels '("#racktest"))
(define irc-channels '("#racket"))
(for ([chan irc-channels]) (irc-join-channel irc-connection chan)) (for ([chan irc-channels]) (irc-join-channel irc-connection chan))
(define sample-pastes (define sample-pastes
@ -111,9 +114,6 @@
(++ valid-reqs " " (++ valid-reqs " "
"(subtract-in " (car lang-lst) "(subtract-in " (car lang-lst)
" (combine-in " valid-reqs "))")] " (combine-in " valid-reqs "))")]
;; (car lang-lst) " (subtract-in (combine-in "
;; (string-join reqs) ") " (car lang-lst) ")")]
; [else (string-join (append lang-lst reqs))])
[else (++ valid-reqs " " [else (++ valid-reqs " "
"(subtract-in (combine-in " (string-join lang-lst) ")" "(subtract-in (combine-in " (string-join lang-lst) ")"
" (combine-in " valid-reqs "))")]) " (combine-in " valid-reqs "))")])
@ -326,17 +326,14 @@
"background-size:cover")]) "background-size:cover")])
;; head ---------------------------------------------------------------- ;; head ----------------------------------------------------------------
(head (head
(title "PasteRack (MIRROR): A Racket-evaluating pastebin") ; (title "PasteRack (MIRROR): A Racket-evaluating pastebin")
(title "PasteRack: A Racket-evaluating pastebin")
(script ((type "text/javascript")) ,google-analytics-script) (script ((type "text/javascript")) ,google-analytics-script)
,droidsansmono-css/x ,ptsans-css/x ,droidsansmono-css/x ,ptsans-css/x
;; (link ([type "text/css"] [rel "stylesheet"]
;; [href "http://fonts.googleapis.com/css?family=PT+Sans"]))
;; (link ([type "text/css"] [rel "stylesheet"]
;; [href "http://fonts.googleapis.com/css?family=Droid+Sans+Mono"])
) )
;; body ---------------------------------------------------------------- ;; body ----------------------------------------------------------------
(body ((style "font-family:'PT Sans',sans-serif")) (body ((style "font-family:'PT Sans',sans-serif"))
(h1 "MIRROR") ; (h1 "MIRROR")
;; left -------------------------------------------------------------- ;; left --------------------------------------------------------------
(div ((style ,(~~ "position:absolute;left:1em;top:2em" (div ((style ,(~~ "position:absolute;left:1em;top:2em"
"width:12em" "width:12em"
@ -605,16 +602,6 @@
(title ,(++ "Paste # " pastenum ": " name)) (title ,(++ "Paste # " pastenum ": " name))
,scrbl-css/x ,rkt-css/x ,scrbl-style-css/x ,scrbl-css/x ,rkt-css/x ,scrbl-style-css/x
,droidsansmono-css/x ,ptsans-css/x ,droidsansmono-css/x ,ptsans-css/x
;; (link ((href "/scribble.css") (rel "stylesheet")
;; (title "default") (type "text/css")))
;; (link ((href "/racket.css") (rel "stylesheet")
;; (title "default") (type "text/css")))
;; (link ((href "/scribble-style.css") (rel "stylesheet")
;; (title "default") (type "text/css")))
;; (link ([type "text/css"] [rel "stylesheet"]
;; [href "http://fonts.googleapis.com/css?family=PT+Sans"]))
;; (link ([type "text/css"] [rel "stylesheet"]
;; [href "http://fonts.googleapis.com/css?family=Droid+Sans+Mono"]))
(script ((src "/scribble-common.js") (type "text/javascript"))) (script ((src "/scribble-common.js") (type "text/javascript")))
(script ,twitter-script)) (script ,twitter-script))
(body ([style ,(~~ "font-family:'PT Sans',sans-serif" (body ([style ,(~~ "font-family:'PT Sans',sans-serif"