Responsive

@jxa Let's talk about this when we have a chance. Lots of code review needed :smiley_cat: 
Since the query is just a data structure (a vector), it's possible to build it up programmatically. For example

```clojure
(defn make-query [include-county?]
  (let [q '[:find ?county ?state (sum ?count) (count ?e)
            :in $ ?taxon ?ym
            :where
            [?t :taxon/order ?taxon]
            [?e :sighting/taxon ?t]
            [?e :sighting/month-yr ?ym]
            [?e :sighting/state-code ?state]
            [?e :sighting/count ?count]]]
    (if include-county?
      (conj q '[?e :sighting/county ?county])
      q)))

(make-query false)
;; [:find ?county ?state (sum ?count) (count ?e) :in $ ?taxon ?ym :where [?t :taxon/order ?taxon] [?e :sighting/taxon ?t] [?e :sighting/month-yr ?ym] [?e :sighting/state-code ?state] [?e :sighting/count ?count]]

(make-query true)
;; [:find ?county ?state (sum ?count) (count ?e) :in $ ?taxon ?ym :where [?t :taxon/order ?taxon] [?e :sighting/taxon ?t] [?e :sighting/month-yr ?ym] [?e :sighting/state-code ?state] [?e :sighting/count ?count] [?e :sighting/county ?county]] 

```