From 96bf1ae638d567ff9cf02bbf2a12921dbb9ccbe8 Mon Sep 17 00:00:00 2001
From: Stavros Polymenis <sp@orbitalfox.com>
Date: Wed, 26 Oct 2016 23:21:23 +0100
Subject: [PATCH] validation attributes in article form

---
 src/html.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/html.ml b/src/html.ml
index ea58689..a9da8c3 100644
--- a/src/html.ml
+++ b/src/html.ml
@@ -64,13 +64,13 @@ let form ?(header_tpl=None) blog_url lgrn ymd =
     [
       input_set
         "Title"
-        (input ~a:[a_name "title"; a_value ymd.meta.title] ());
+        (input ~a:[a_name "title"; a_value ymd.meta.title; a_required ()] ());
       input_set
         "Author name"
         (input ~a:[a_name "name"; a_value auth_name] ()); 
       input_set
         "Author email"
-        (input ~a:[a_name "email"; a_value auth_addr] ());
+        (input ~a:[a_name "email"; a_value auth_addr; a_input_type `Email] ());
       input_set
         "Topics"
         (input ~a:[a_name "topics"; a_value (String.concat ", " ymd.meta.topics)] ());