   [:section.section
    (apply vector :div.container views)])
 
+(defn section-size
+  "Take the bulma class for size as the first parameter, i.e. :is-half"
+  [size & views]
+  [:section.section
+   [:div.container
+    [:div.columns.is-centered
+     (apply vector :div.column {:class (name size)} views)]]])
+
 ;;; AUTH VIEWS
 
 (defn login-view []
   [:div
    [header-section "Login" [:p "Please enter your credentials."]]
-   [section
+   [section-size :is-one-third
     [message-view]
     [forms/form-view {:submit-text "Login"
                       :on-submit   [:auth-submit]

  [channel]
  [:div
   [header-section "Edit Channel" [:p "Fill the channel configuration"]]
   [section
    [message-view]
    [forms/form-view {:submit-text "Save"
                      :on-submit   [:channel-submit]

(defn channel-add-view []
  [:div
   [header-section "Create Channel" [:p "Fill the channel configuration"]]
   [section-size :is-half
    [message-view]
    [forms/form-view {:submit-text "Save"
                      :on-submit   [:channel-submit]
