Advertisement
dredder

slide condition clojure

Mar 19th, 2018
1,248
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (let [this-num-of-slide? (fn [n] (= (:focus-slide db) (- (:slides-count db) n)))]
  2.                                     (cond
  3.                                         (this-num-of-slide? 2) (update db :focus-slide inc) ; если предпоследний слайд
  4.                                         (this-num-of-slide? 1) db                           ; если последний слайд
  5.                                         :else (-> (assoc db :current-slides (->> (nth (:current-slides db) 2)
  6.                                                                            inc
  7.                                                                            (conj (into [] (take-last 2 (:current-slides db)))))
  8.                                                       :right-next-slide false)
  9.                                                   (update :focus-slide inc))))
Advertisement
RAW Paste Data Copied
Advertisement