Commit 9ea48904 authored by Robert Ricci's avatar Robert Ricci

Put code in (literal ...) 'tags' to prevent it from being decoded

parent 2fba8441
......@@ -250,13 +250,13 @@
([filename (string-append "profile/" project "/" profile ".py")])
(list
(code-sample filename
(elem #:style profile-sample-style (hyperlink (profile-url project profile)
(string-append "Open this profile on " (tb))))))))
(elem #:style profile-sample-style (hyperlink (profile-url project profile)
(string-append "Open this profile on " (tb))))))))
(define (code-sample filename [extra null])
; We include the code sample twice; the second time, it's hidden. This is
; so that we get to keep a 'clean' copy for the download button
(list
(elem #:style code-sample-style (file->string (string-append "code-samples/" filename)))
(elem #:style code-sample-style (literal (file->string (string-append "code-samples/" filename))))
extra
(elem #:style downloadable-code-sample-style (file->string (string-append "code-samples/" filename)))))
(elem #:style downloadable-code-sample-style (literal (file->string (string-append "code-samples/" filename))))))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment