 
 (defn- period-heading
   [budget index]
-  [:th (budget-period-start-date budget index)])
+  [:th.text-right (budget-period-start-date budget index)])
 
 (defn- budget-header-row
   [budget]

      [:table.table.table-striped
       (html
       (budget-header-row budget)
       (map #(budget-data-row budget %) (:items budget)))]
      [:a.btn.btn-primary {:href (format "/budgets/%s/items/new" (:id budget))} "Add"]
      "&nbsp;"
      [:a.btn.btn-default {:href (format "/entities/%s/budgets" (:entity-id budget))} "Back"]]])))

(ns clj-money.web.budgets
  (:refer-clojure :exclude [update])
  (:require [clojure.tools.logging :as log]
            [clojure.pprint :refer [pprint cl-format]]
            [environ.core :refer [env]]
            [clj-time.core :as t]
            [clj-time.format :as tf]
