     sections ; already contains the section-name
     (let [category-name (common/category-for section-name)] ; get the category for this section name
       (update-in sections [category-name] conj section-name)))) ; add the section name to the category
-
-;; (defn- notes-for
-;;   "
-;;   Return a sequence of the sections that do have notes in the form:
-
-;;   [[:section-name :notes] [:section-name :notes]]
-;;   "
-;;   [company]
-;;   (let [possible-sections-with-notes (cset/intersection common/notes-sections
-;;                                                         (set (:sections company)))
-;;         sections-with-notes (filter #(get-in company [(keyword %) :notes])
-;;             possible-sections-with-notes)]
-;;     (vec (map #(vec [(keyword %) :notes]) sections-with-notes))))
-
-;; (defun- author-for
-;;   "Add or replace the :author map for each specified section with the specified author for this revision."
-;;   ;; determine sections with notes
-;;   ([author sections company] (author-for author sections (notes-for company) company))
-;;   ;; all done!
-;;   ([_author _sections :guard empty? _notes-sections :guard empty? company] company)
-;;   ;; replace the :author in the section notes and recurse
-;;   ([author _sections :guard empty? notes-sections company]
-;;     (author-for author [] (rest notes-sections)
-;;       (assoc-in company (flatten [(first notes-sections) :author]) author)))
-;;   ;; replace the :author in the section and recurse
-;;   ([author sections notes-sections company]
-;;     (author-for author (rest sections) notes-sections
-;;       (assoc-in company [(keyword (first sections)) :author] author))))
-
-;; (defun- updated-for
-;;   "Add or replace the :updated-at for each specified section with the specified timestamp for this revision."
-;;   ;; determine sections with notes
-;;   ([timestamp sections company] (updated-for timestamp sections (notes-for company) company))
-;;   ;; all done!
-;;   ([_timestamp _sections :guard empty? _notes-sections :guard empty? company] company)
-;;   ;; replace the :updated-at in the section notes and recurse
-;;   ([timestamp _sections :guard empty? notes-sections company]
-;;     (updated-for timestamp [] (rest notes-sections)
-;;       (assoc-in company (flatten [(first notes-sections) :updated-at]) timestamp)))
-;;   ;; replace the :updated-at in the section and recurse
-;;   ([timestamp sections notes-sections company]
-;;     (updated-for timestamp (rest sections) notes-sections
-;;       (assoc-in company [(keyword (first sections)) :updated-at] timestamp))))
 
 ;; ----- Validations -----
 

  []
  ;; Delete all sections and all companies
  (common/delete-all-resources! common/section-table-name)
  (common/delete-all-resources! table-name))
    (doseq [[_ section] real-sections]
      (common/create-resource common/section-table-name section ts))
    (common/create-resource table-name (merge company rs-w-ts) ts)))

(defn update-company
  "
