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

add eval

Browse Source
This commit is contained in:
Stephen Chang 2013-09-30 07:50:15 +00:00
parent 16c11ac20f
commit edad26aa51
1 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
pasterack.rkt
View File

@ -28,10 +28,12 @@
(lambda () (lambda ()
(printf (+++ "#lang scribble/manual\n" (printf (+++ "#lang scribble/manual\n"
"@(require (for-label racket))\n" "@(require (for-label racket))\n"
"@(require scribble/eval)\n"
"@(define the-eval (make-base-eval))\n"
; "@codeblock[#:line-numbers 0]{\n~a}") ; "@codeblock[#:line-numbers 0]{\n~a}")
"@codeblock{\n~a}") "@codeblock{\n~a}\n"
; "@racketblock[\n~a]") "@interaction-eval-show[#:eval the-eval ~a]")
code)) code code))
#:mode 'text #:mode 'text
#:exists 'replace)) #:exists 'replace))
(define (compile-scribble-file code) (define (compile-scribble-file code)
@ -95,8 +97,12 @@
,(mk-link pastebin-url "Go Back"))))] ,(mk-link pastebin-url "Go Back"))))]
[else [else
(compile-scribble-file code) (compile-scribble-file code)
(define doc (define main-div
(document-element (with-input-from-file tmp-html-file read-xml))) (car (filter
(lambda (d) (equal? "main" (se-path* '(div #:class) d)))
(se-path*/list '(div)
(xml->xexpr (document-element
(with-input-from-file tmp-html-file read-xml)))))))
(define paste-url (string-append paste-url-base pastenum)) (define paste-url (string-append paste-url-base pastenum))
(response/xexpr (response/xexpr
`(html () `(html ()
@ -115,9 +121,13 @@
((id "scribble-racket-lang-org")) ((id "scribble-racket-lang-org"))
"Paste # " (a ((href ,paste-url)) ,pastenum) "Paste # " (a ((href ,paste-url)) ,pastenum)
(div ((class "maincolumn")) (div ((class "maincolumn"))
(div ((class "main")) ,(match main-div
(blockquote ((class "SCodeFlow")) [`(div ((class "main")) ,ver (p () ,code ,res))
,(se-path* '(blockquote) (xml->xexpr doc))))))))])) `(div ((class "main")) (p () ,code (div "=>") ,res))])))))]))
;; ,(cons (car main-div) (cons (cadr main-div) (cdddr main-div)))))))]))
;; (div ((class "main"))
;; (blockquote ((class "SCodeFlow"))
;; ,(se-path* '(blockquote) doc-xexpr)))))))]))
(define-values (do-dispatch mk-url) (define-values (do-dispatch mk-url)
(dispatch-rules (dispatch-rules