   (^:export did-change-content [this])
   (^:export section-index-title-for-section-name [this section-name]))
 
-(defn user-interface-idiom-ipad? []
+(defn user-interface-idiom-ipad?
+  "Returns true iff the interface idiom is iPad."
+  []
   (= "iPad" (:user-interface-idiom @env)))
 
-(defn reify-fetched-results-controller-delegate [table-view]
+(defn reify-fetched-results-controller-delegate
+  "Provides a refication of `FetchedResultsControllerDelegate` that maniuplates a table-view."
+  [table-view]
   (reify FetchedResultsControllerDelegate
 
     (did-change-object-at-index-path-for-change-type-new-index-path

  (^:export move-row-at-index-path [this source-section source-row destination-section destination-row]))

(defprotocol FetchedResultsControllerDelegate

  (^:export FetchedResultsControllerDelegate-implements [this])


  (^:export perform-action-for-row-at-index-path-with-sender [this sel section row sender]))

(defprotocol TableViewDataSource
  "Defines a protocol consistent with `UITableViewDataSource`."

  (^:export TableViewDataSource-implements [this])

