db-find-rels.clj

(in-db db
  (let [e (find-by-id blog-entry-meta 2)
        r ((find-rels e entry-comment-meta) e)
        rc ((find-rels e entry-comment-meta :cols [:content :name :email]) e)
        rw ((find-rels e entry-comment-meta :where ["email=?" "[email protected]"]) e)
        rb ((find-rels e entry-comment-meta :cols [:content :name :email]
             :where ["email=?" "[email protected]"]) e)]
    (ppe "\nEntry:" e)
    (ppe "\nRelations:" r)
    (ppe "\nRelations with selected columns:" rc)
    (ppe "\nRelations with WHERE clause:" rw)
    (ppe "\nRelations with selected columns and WHERE clause:" rb))
  ;; Avoiding N+1 selects
  (let [entries (find-by-criteria blog-entry-meta)
        comments (find-rels entries entry-comment-meta)]
    (ppe "\nAll entries:" entries)
    (doseq [each entries]
      (ppe (str "\nComments for entry ID: " (:autoid each))
        (comments each))))
  ;; Avoiding N+1 selects while counting
  (let [entries (find-by-criteria blog-entry-meta)
        comments (find-rels entries entry-comment-meta :cols count-col)]
    (ppe "\nAll entries:" entries)
    (doseq [each entries]
      (println (str "\nComments# for entry ID: " (:autoid each))
        (read-count-col (comments each))))))