The flashcards from brianlitwin

flashcards's People

Contributors

Watchers

flashcards's Issues

Todos

** UI

think about how to organize groups and urls, and how to view the cards: in their groups, tags, etc
is tag a better way to describe the cards?

decide what the workflow should look like: adding cards, starting sessions, adding cards to groups, creating groups
Decide how you want the card session to look
Don't worry about editing cards for now

** Models

Decide how you want to handle sessions
A notion of lists or groups

** DevOps

figure out how to deploy to Digital Ocean
how to use docker

abstract back-next buttons

(defn back-next-model
  [{:keys [can-increment-fn next-item-fn total]}]
  (let [current (r/atom 0)
        can-inc-by?
            #(let [new-n (+ % current)
                  over (> new-n total)
                  under (> 0 new-n)]
                  (not (or over under (not (can-increment-fn)))))
        increment (do
                    (next-item-fn)
                    (reset! current (+ % @current)))]
          (prn current)
      {:can-inc-by? can-inc-by? :increment increment}))

(defn back-next-buttons [model-options]
  (let [{:keys [can-inc-by? increment]} (back-next-model model-options)]
  [:div.session-nav-container
    [:button.back-next-btn
    {:disabled (can-inc-by? -1)
     :on-click #(increment -1)}
      "Back"]
    [:button.back-next-btn
     {:disabled (not (can-inc-by? 1))
      :on-click #(increment 1)}
      "Next"]]))

(defn back-next []
  (back-next-buttons
    {:can-increment-fn #(nil? @(rf/subscribe [:session/answer]))
     :next-item-fn #(rf/dispatch [:session/inc-card -1])
     :total #(count @(rf/subscribe [:session/cards]))}))