fixup html, add rss feed

This commit is contained in:
rf
2022-09-24 12:27:10 -05:00
parent 6c59e99b50
commit dfd1b57a61
4 changed files with 71 additions and 18 deletions

View File

@@ -21,7 +21,9 @@ let () =
Dream.get "/philosophy" @@ Dream.from_filesystem "html" "philosophy.html";
Dream.get "/web-ring" @@ Dream.from_filesystem "html" "web-ring.html";
Dream.get "/blog" Render.render_blog_index;
Dream.scope "/blog" [Dream.origin_referrer_check] [
Dream.scope "/blog" [] [
Dream.get "/rss.xml" Render.render_rss_feed;
Dream.get "/:post" Render.render_blog_post
];
Dream.get "/**" (fun _ -> Render.handle_not_found ())
]