From 772911547255a7ec56dba09b5cc4622960766320 Mon Sep 17 00:00:00 2001
From: Artyom <yom@artyom.me>
Date: Sat, 23 Apr 2016 19:30:43 +0300
Subject: [PATCH] Add padding to the whole thing

---
 src/View.hs    | 2 +-
 static/css.css | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/View.hs b/src/View.hs
index a811827..9fb3678 100644
--- a/src/View.hs
+++ b/src/View.hs
@@ -579,7 +579,7 @@ renderCategoryNotes :: (MonadIO m, MonadRandom m) => Category -> HtmlT m ()
 renderCategoryNotes category = do
   let thisId = "category-notes-" <> uidToText (category^.uid)
       this   = JS.selectId thisId
-  div_ [id_ thisId] $ do
+  div_ [id_ thisId, class_ "category-notes"] $ do
 
     section "normal" [shown, noScriptShown] $ do
       div_ [class_ "notes-like"] $ do
diff --git a/static/css.css b/static/css.css
index 2b2d75b..f1bacc3 100644
--- a/static/css.css
+++ b/static/css.css
@@ -24,6 +24,7 @@ body {
   border-top: 1px solid black; }
 
 body {
+  padding: 0px 15px;
   padding-top: 2em;
   margin: auto;
   max-width: 800px;