(defn max-block [conn]
  (let [item (d/q '[:find (max ?block_nr)
                    :where [_ :item/block_nr ?block_nr]]
                  (d/db conn))]
    (touch conn item)))