worker.clj

(defn partition-with
   [partfn coll]
   (->> coll (reduce (fn [xs x]
                       (let [c (peek xs)
                             p (conj c x)]
                         (if (partfn p)
                           (conj xs [x])
                           (conj (pop xs) p))))
                     [[]])))

(partition-with
  #(< 3 (apply + %))
  [1 1 1 1 1 1 1 1 1 1])

;=> [[1 1 1] [1 1 1] [1 1 1] [1]]