Weekly calendar component, version bumped to 0.3.26

Author: guilespi

project.clj

@@ -1,4 +1,4 @@
-(defproject org.clojars.intception/om-widgets "0.3.25"
+(defproject org.clojars.intception/om-widgets "0.3.26"
   :description "Widgets for OM/React"
   :url "https://github.com/orgs/intception/"
   :license {:name "Eclipse Public License"

src/om_widgets/calendar.cljs

@@ -6,7 +6,7 @@
             [cljs.reader :as reader]
             [cljs-time.core :as time]
             [cljs-time.coerce :as timec])
-  (:use [om-widgets.datepicker :only [weeks-component day-header days-short]]))
+  (:use [om-widgets.datepicker :only [weeks-component day-header days-short week-component]]))
 
 (defn calendar
   "Calendar does not support date selection nor shows a specific date either"
@@ -41,3 +41,39 @@
                                 (map #(om/build day-header %) days-short))]
             (om/build weeks-component app
                       {:state {:path path :date date}})]]])))))
+
+
+
+(defn week-calendar
+  "Calendar with only one week shown"
+  [app owner]
+  (reify
+    om/IInitState
+    (init-state [_]
+      {:date (time/now)})
+
+    om/IRenderState
+    (render-state [_ {:keys [date path id on-week-changed] :as state}]
+      (letfn [(change-date [d]
+                (om/set-state! owner :date d)
+                (when on-week-changed
+                  (on-week-changed (timec/to-date
+                                    (time/date-time (time/year d)
+                                                    (time/month d)
+                                                    (time/day d))))))]
+        (html
+         [:div {:id id}
+          [:div {:class "box-header"}
+           [:a {:onClick #(change-date (time/minus date (time/weeks 1)))}
+            [:span {:class "icn-big-left-arrow"}]]
+           [:h2
+            (str  (utils/get-hr-month date) " " (time/year date))]
+           [:a {:onClick #(change-date (time/plus date (time/weeks 1)))}
+            [:span {:class "icn-big-right-arrow"}]]]
+          [:div {:class "calendar-content"}
+           [:table
+            [:thead
+             (utils/make-childs [:tr]
+                                (map #(om/build day-header %) days-short))]
+            (om/build week-component app
+                      {:state {:path path :date date}})]]])))))

src/om_widgets/datepicker.cljs

@@ -127,6 +127,41 @@
                                (when onChange (onChange date-updated)))}
               (day-renderer app owner {:day day})))))
 
+(defn days-of-week
+  [date]
+  (let [start-day (time/minus date
+                              (time/days (time/day-of-week date)))]
+    (map #(time/plus start-day
+                     (time/days %))
+         (range 1 8))))
+
+(defn current-week
+  "Returns a list of days for the current week"
+  [date]
+  (let [dow (days-of-week date)
+        start-day (first dow)]
+    (map (fn [d]
+           {:day (time/day d)
+            :month (time/month d)
+            :year (time/year d)
+            :belongs-to-month (cond
+                                (< (time/month d) (time/month start-day)) :previous
+                                (> (time/month d) (time/month start-day)) :next
+                                :else :current)} )
+         dow)))
+
+(defn week-component [app owner]
+  (reify
+    om/IDisplayName
+    (display-name [_] "DatepickerWeek")
+    om/IRenderState
+    (render-state [this {:keys [date path onChange] :as state}]
+      (dom/tbody nil
+                 (apply dom/tr nil
+                        (map (fn [d]
+                               (om/build day-component app {:state {:day d :path path :date date :onChange onChange}}))
+                             (current-week date)))))))
+
 (defn- weeks-component [app owner]
   (reify
     om/IDisplayName