Skip to content

GitLab

Commit 1134602d authored by Dario Pinto's avatar Dario Pinto
Browse files

Merge branch '404' into 'master' 

Add the creepy 404 page

See merge request !91
parents 74d709cb 519bb74a
Hide whitespace changes
Inline Side-by-side
Showing with 39 additions and 3 deletions
src/content/assets/img/photo_leo.png
View file @ 1134602d
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
src/content/assets/js/404.js 0 → 100644
View file @ 1134602d
File suppressed by a .gitattributes entry or the file's encoding is unsupported.
src/content/template.html
View file @ 1134602d
...@@ -3,6 +3,7 @@ ...@@ -3,6 +3,7 @@
<head> <head>
<title>![title] | OCamlPro</title> <title>![title] | OCamlPro</title>
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="![description]" /> <meta name="description" content="![description]" />
<meta name="keywords" content="![keywords]" /> <meta name="keywords" content="![keywords]" />
<link rel="icon" type="image/svg+xml" href="/assets/img/logo_ocp_icon.svg"> <link rel="icon" type="image/svg+xml" href="/assets/img/logo_ocp_icon.svg">
...@@ -116,4 +117,4 @@ ...@@ -116,4 +117,4 @@
</script> </script>
</body> </body>
</html> </html>
\ No newline at end of file
src/error.ml
View file @ 1134602d
...@@ -3,7 +3,41 @@ let error_msg code reason = Format.sprintf "<h1>Error: %d - %s</h1>" code reason ...@@ -3,7 +3,41 @@ let error_msg code reason = Format.sprintf "<h1>Error: %d - %s</h1>" code reason
let page code reason = let page code reason =
let content = let content =
match code with match code with
| 404 -> Format.sprintf {|%s<br />|} (error_msg code reason) | 404 -> {html|
<style type="text/css">
body {
background-color: black;
}
br, hr {
display: none;
}
h1 {
text-align: center;
position: fixed;
color: black;
left: 0;
right: 0;
top: 40%;
z-index: 1;
font-family: helvetica;
text-transform: uppercase;
font-size: 6vmin;
font-weight: bold;
mix-blend-mode: overlay;
user-select: none;
text-shadow: 0 0 .7vmin black;
}
footer {
position: fixed;
bottom: 0;
left: 0;
right: 0;
text-align: center;
}
</style>
<h1>Error 404</h1>
<script src="/assets/js/404.js"></script>
|html}
| n -> error_msg n reason | n -> error_msg n reason
in in
content content
src/server.ml
View file @ 1134602d
...@@ -83,7 +83,8 @@ let blog_asset_loader _root path _request = ...@@ -83,7 +83,8 @@ let blog_asset_loader _root path _request =
| None -> Dream.empty `Not_Found | None -> Dream.empty `Not_Found
| Some asset -> Dream.respond asset | Some asset -> Dream.respond asset
let feed_loader _root _path _request = Dream.respond Feed.generate let feed_loader _root _path _request =
Dream.respond ~headers:["content-type","application/rss+xml"] Feed.generate
let page path = let page path =
match read_content (path ^ ".md") with match read_content (path ^ ".md") with
......
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