Handle images, html header

coke · coke · commit 7f983d3c4af2 · 2018-11-09T15:22:58.000-05:00
diff --git a/util/site b/util/site
@@ -20,16 +20,23 @@ my $application = route {
     get -> '' {
         content 'text/plain', "It's the home page"
     }
+    # Simple pod to HTML conversion
     for <language programs type> -> $section {
         get -> $section, $path {
             content 'text/html', pod-to-html("doc/{tc $section}/{$path}.pod6")
         }
     }
+    # Raw files
+    get -> 'images', $image {
+        content 'image/svg+xml', "html/images/{$image}".IO.slurp
+    }
 }
 
 # Helper routines
+my $template-header = "template/header.html".IO.slurp;
+
 sub pod-to-html($file) {
-    Pod::To::HTML.render($file.IO);
+    Pod::To::HTML.render($file.IO, :header($template-header));
 }
 
 my Cro::Service $hello = Cro::HTTP::Server.new:

Original file line number	Diff line number	Diff line change
`@@ -20,16 +20,23 @@ my $application = route {`
`20`	`20`	`get -> '' {`
`21`	`21`	`content 'text/plain', "It's the home page"`
`22`	`22`	`}`
	`23`	`+ # Simple pod to HTML conversion`
`23`	`24`	`for <language programs type> -> $section {`
`24`	`25`	`get -> $section, $path {`
`25`	`26`	`content 'text/html', pod-to-html("doc/{tc $section}/{$path}.pod6")`
`26`	`27`	`}`
`27`	`28`	`}`
	`29`	`+ # Raw files`
	`30`	`+ get -> 'images', $image {`
	`31`	`+ content 'image/svg+xml', "html/images/{$image}".IO.slurp`
	`32`	`+ }`
`28`	`33`	`}`
`29`	`34`
`30`	`35`	`# Helper routines`
	`36`	`+my $template-header = "template/header.html".IO.slurp;`
	`37`	`+`
`31`	`38`	`sub pod-to-html($file) {`
`32`		`- Pod::To::HTML.render($file.IO);`
	`39`	`+ Pod::To::HTML.render($file.IO, :header($template-header));`
`33`	`40`	`}`
`34`	`41`
`35`	`42`	`my Cro::Service $hello = Cro::HTTP::Server.new:`