   (for [mark marks-loc]
     {:dp/temp-local-adjudicator (get-seq-attr mark)
      :judging/adjudicator :todo
-     ;; (first (filter
-     ;;         #(= (:adjudicator/position %)
-     ;;             (get-seq-attr mark))
-     ;;         adjudicators))
      :juding/marks [{:mark/x (= (zx/attr mark :X) "X")}]}))
 
-;; TODO - change participant number to actual id
 (defn mark-list->map [result-couple-loc adjudicators]
   (for [couple result-couple-loc]
     {:result/participant-number (get-number-attr couple)

                    (:participant/number %))
                participants)))))))

;; Might be abit redundant to convert twice..
(defn start-time-to-date [time-str date]
  (let [[hh mm] (map to-number (clojure.string/split time-str #":"))]
    (tcr/to-date (t/plus (tcr/to-date-time date) (t/hours hh) (t/minutes mm)))))

;; TODO can we add adjs to rounds aswell here?
(defn class-list-post-process [classes rounds adjudicators panels competition-date]
  (for [class classes]
    (dissoc

     (mapv #(dissoc % :dp/panel-id) dp-panels) ;(adjudicator-panels-xml->map xml id-generator-fn dp-adjudicators)
     (mapv #(dissoc % :dp/temp-id) dp-adjudicators)
     (make-activities (mapv :temp/activity dp-rounds) classes (mapcat :class/rounds classes))
     classes)))


