Corrects feed link placement

2017-04-01 17:56:49 +01:00 · 2017-04-01 17:56:49 +01:00 · 957c87d70c
commit 957c87d70c
parent 9eb1dd7b3f
2 changed files with 2 additions and 1 deletions
--- a/share/html_templates/header.mustache
+++ b/share/html_templates/header.mustache
@ -1 +1 @@
-<header><h1><a href="{{blog_url}}">{{title}}</a></h1><link rel="alternate" type="application/atom+xml" title="{{title}} feed" href="/feed.atom" /></header>
+<header><h1><a href="{{blog_url}}">{{title}}</a></h1></header>
--- a/src/html.ml
+++ b/src/html.ml
@ -4,6 +4,7 @@ let to_string tyxml = Format.asprintf "%a" (Tyxml.Html.pp ()) tyxml
 let head ?(style="/static/main.css") t =
  head (title (pcdata t)) [
         link ~rel:[`Stylesheet] ~href:style ();
+         link ~rel:[`Alternate]  ~href:"/feed.atom" ~a:[a_mime_type "application/atom+xml"] ();
         meta ~a:[a_charset "utf-8"] ();
       ]