README.md

@@ -3,18 +3,16 @@
 A visual schedule builder for kids.
 
 TODO:
-- edit schedule
-  - make a list, choosing from a (text-searchable) library of images/tasks
-    - use modal-panel component and typeahead component
 - name the schedule/track
-- add little numbers to each box
-- green outline + check mark
 - save state (preserve across refresh)
+  - need server
+  - use localstorage ??
 - (saveable) preset schedules (in edit menu)
 - (optional) multiple simultaneous schedules (ex: one for each kid, or general vs specific)
 - (optional) split decision tracks (conditions)
 - (saveable) make-your-own tasks
-- use localstorage ??
+  - incorporate an internet search in the editor?
+  - crowdsource images??
 
 library (each category has a representative picture/task, as does each sub-item):
 - bedtime routine

curator.clj

@@ -0,0 +1,50 @@
+#!/usr/bin/env bb
+
+(require '[clojure.java.io :as io]
+         '[clojure.string :as string]
+         '[clojure.pprint :refer [pprint]])
+
+(def exceptions
+  #{"index.html"
+    "styles.css"
+    "js"
+    "clapping.gif"
+    "go.png"
+    "clapping.png"
+    "vendor"})
+
+(let [foldername "./resources/public"
+      folder (io/file foldername)
+      existing-filename "./library.edn"
+      existing (try
+                 (-> existing-filename
+                     (slurp)
+                     (read-string))
+                 (catch Exception _ []))
+      existing-files (->> existing
+                          (map :image)
+                          (set))
+      highest-index (or (some->> existing
+                                 (map :id)
+                                 (not-empty)
+                                 (apply max)
+                                 (inc))
+                        1)]
+  (if (.isDirectory folder)
+    (->> (.list folder)
+         (remove exceptions)
+         (remove existing-files)
+         (map-indexed (fn [ind file]
+                        {:id (+ highest-index ind)
+                         :name (-> file
+                                   (string/replace #"\.[^\.]*$" "")
+                                   (string/replace #"[-\._]" " "))
+                         :image file}))
+         (concat existing)
+         (vec)
+         ((fn [new-data]
+            (with-open [writer (io/writer existing-filename)]
+              (pprint new-data writer))
+            (println "wrote to" existing-filename))))
+    (println "Folder not found. Make sure to run this script from its containing folder.")))
+

library.edn

@@ -0,0 +1,55 @@
+[{:id 1,
+  :name "sleep",
+  :categories ["bedtime" "naping"],
+  :keywords ["bed" "nap"],
+  :image "sleep.png"}
+ {:id 2,
+  :name "eat",
+  :categories ["eating"],
+  :keywords ["meal" "food" "chopsticks"],
+  :image "eating1.png"}
+ {:id 3,
+  :name "eat",
+  :categories ["eating"],
+  :keywords ["meal" "food" "spaghetti"],
+  :image "eating2.png"}
+ {:id 4,
+  :name "go to school",
+  :categories ["school"],
+  :keywords ["class"],
+  :image "school.png"}
+ {:id 5,
+  :name "brush teeth",
+  :categories ["bedtime"],
+  :keywords ["bedtime" "routine"],
+  :image "teeth-brushing.png"}
+ {:id 6, :name "ten second tidy", :image "ten-second-tidy.jpg"}
+ {:id 7, :name "sing", :image "sing.jpg"}
+ {:id 8, :name "blessing", :image "blessing.jpeg"}
+ {:id 9,
+  :name "family home evening",
+  :image "family-home-evening.jpeg"}
+ {:id 11, :name "bath", :image "bath.png"}
+ {:id 12, :name "ice cream cone", :image "ice-cream-cone.png"}
+ {:id 13, :name "sacrament", :image "sacrament.jpeg"}
+ {:id 14, :name "potty", :image "potty.jpg"}
+ {:id 15, :name "temple", :image "temple.jpeg"}
+ {:id 16, :name "church", :image "church.jpg"}
+ {:id 17, :name "clean up", :image "clean-up.jpg"}
+ {:id 18, :name "numbers", :image "numbers.png"}
+ {:id 19, :name "cleaning", :image "cleaning.png"}
+ {:id 20, :name "read", :image "read.png"}
+ {:id 21, :name "walk", :image "walk.jpg"}
+ {:id 22, :name "shoes", :image "shoes.png"}
+ {:id 23, :name "flush", :image "flush.jpg"}
+ {:id 24, :name "video", :image "video.png"}
+ {:id 25, :name "car", :image "car.png"}
+ {:id 26, :name "get dressed", :image "get-dressed.png"}
+ {:id 27, :name "scriptures", :image "scriptures.jpg"}
+ {:id 28, :name "letters", :image "letters.png"}
+ {:id 30, :name "wash hands", :image "wash-hands.png"}
+ {:id 31, :name "typing2", :image "typing2.png"}
+ {:id 32, :name "writing", :image "writing.jpg"}
+ {:id 33, :name "wait", :image "wait.png"}
+ {:id 34, :name "typing1", :image "typing1.png"}
+ {:id 35, :name "pray", :image "pray.jpeg"}]

src/lineup/components/edit/selector.cljs

@@ -10,36 +10,41 @@
     [re-com/modal-panel
      :backdrop-on-click #(re-frame/dispatch [::events/select-selecting nil])
      :child
-     [re-com/v-box
-      :gap "10px"
-      :align :center
-      :children
-      (concat
-       [[re-com/title
-         :label "Select an Activity"
-         :level :level3]
-        [:div "(TODO: search box here)"]]
-       (map
-        (fn [library-item]
-          [re-com/h-box
-           :gap "20px"
-           :align :center
-           :align-self :start
-           :attr {:on-click #(re-frame/dispatch [::events/select-task which (:id library-item)])}
-           :class "task-selector"
-           :children
-           [[re-com/box
-             :width "50px"
-             :height "50px"
-             :max-width "50px"
-             :max-height "50px"
-             :justify :center
-             :child
-             [:img
-              {:src (:image library-item)}]]
-            [re-com/box
-             :child
-             [re-com/title
-              :label (:name library-item)
-              :level :level3]]]])
-        @library-data))]]))
+     [re-com/scroller
+      :v-scroll :auto
+      :h-scroll :off
+      :height "80vh"
+      :child
+      [re-com/v-box
+       :gap "10px"
+       :align :center
+       :children
+       (concat
+        [[re-com/title
+          :label "Select an Activity"
+          :level :level3]
+         [:div "(TODO: search box here)"]]
+        (map
+         (fn [library-item]
+           [re-com/h-box
+            :gap "20px"
+            :align :center
+            :align-self :start
+            :attr {:on-click #(re-frame/dispatch [::events/select-task which (:id library-item)])}
+            :class "task-selector"
+            :children
+            [[re-com/box
+              :width "50px"
+              :height "50px"
+              :max-width "50px"
+              :max-height "50px"
+              :justify :center
+              :child
+              [:img
+               {:src (:image library-item)}]]
+             [re-com/box
+              :child
+              [re-com/title
+               :label (:name library-item)
+               :level :level3]]]])
+         @library-data))]]]))

src/lineup/db.cljs

@@ -5,28 +5,59 @@
    :selecting nil
    :schedule {:tasks [{:ref 2} {:ref 5} {:ref 4} {:ref 5} {:ref 1}]}
 
-   :library [{:id 1
-              :name "sleep"
-              :categories ["bedtime" "naping"]
-              :keywords ["bed" "nap"]
-              :image "sleep.png"}
-             {:id 2
-              :name "eat"
-              :categories ["eating"]
-              :keywords ["meal" "food" "chopsticks"]
-              :image "eating1.png"}
-             {:id 3
-              :name "eat"
-              :categories ["eating"]
-              :keywords ["meal" "food" "spaghetti"]
-              :image "eating2.png"}
-             {:id 4
-              :name "go to school"
-              :categories ["school"]
-              :keywords ["class"]
-              :image "school.png"}
-             {:id 5
-              :name "brush teeth"
-              :categories ["bedtime"]
-              :keywords ["bedtime" "routine"]
-              :image "teeth-brushing.png"}]})
+   :library
+   [{:id 1,
+     :name "sleep",
+     :categories ["bedtime" "naping"],
+     :keywords ["bed" "nap"],
+     :image "sleep.png"}
+    {:id 2,
+     :name "eat",
+     :categories ["eating"],
+     :keywords ["meal" "food" "chopsticks"],
+     :image "eating1.png"}
+    {:id 3,
+     :name "eat",
+     :categories ["eating"],
+     :keywords ["meal" "food" "spaghetti"],
+     :image "eating2.png"}
+    {:id 4,
+     :name "go to school",
+     :categories ["school"],
+     :keywords ["class"],
+     :image "school.png"}
+    {:id 5,
+     :name "brush teeth",
+     :categories ["bedtime"],
+     :keywords ["bedtime" "routine"],
+     :image "teeth-brushing.png"}
+    {:id 6, :name "ten second tidy", :image "ten-second-tidy.jpg"}
+    {:id 7, :name "sing", :image "sing.jpg"}
+    {:id 8, :name "blessing", :image "blessing.jpeg"}
+    {:id 9,
+     :name "family home evening",
+     :image "family-home-evening.jpeg"}
+    {:id 11, :name "bath", :image "bath.png"}
+    {:id 12, :name "ice cream cone", :image "ice-cream-cone.png"}
+    {:id 13, :name "sacrament", :image "sacrament.jpeg"}
+    {:id 14, :name "potty", :image "potty.jpg"}
+    {:id 15, :name "temple", :image "temple.jpeg"}
+    {:id 16, :name "church", :image "church.jpg"}
+    {:id 17, :name "clean up", :image "clean-up.jpg"}
+    {:id 18, :name "numbers", :image "numbers.png"}
+    {:id 19, :name "cleaning", :image "cleaning.png"}
+    {:id 20, :name "read", :image "read.png"}
+    {:id 21, :name "walk", :image "walk.jpg"}
+    {:id 22, :name "shoes", :image "shoes.png"}
+    {:id 23, :name "flush", :image "flush.jpg"}
+    {:id 24, :name "video", :image "video.png"}
+    {:id 25, :name "car", :image "car.png"}
+    {:id 26, :name "get dressed", :image "get-dressed.png"}
+    {:id 27, :name "scriptures", :image "scriptures.jpg"}
+    {:id 28, :name "letters", :image "letters.png"}
+    {:id 30, :name "wash hands", :image "wash-hands.png"}
+    {:id 31, :name "typing2", :image "typing2.png"}
+    {:id 32, :name "writing", :image "writing.jpg"}
+    {:id 33, :name "wait", :image "wait.png"}
+    {:id 34, :name "typing1", :image "typing1.png"}
+    {:id 35, :name "pray", :image "pray.jpeg"}]})