         ((:error-handler opts) opts e)))))
 
 (defn send-message
-  "
-  Sends given message to Xymon host(s).
+  "Sends given message to Xymon host(s).
 
   If (:hosts opts) is a sequence _and_ (:host opts) is false, sends
   the message to all hosts described in (:hosts opts). When

    (format "enable %s.%s" host service)))

(defn event->disable
  "
  Convert an event to a Xymon disable message:
  disable HOSTNAME.TESTNAME DURATION <additional text>

  Fields mapping is the same as event->status'. Also, the event ttl is

      (send-message opts combo-message))))

(defn xymon-batch
  "Returns a function which accepts an event or a vector of events and
  which sends them to Xymon, as 'combo' messages if needed. Filters
  events with nil :state or :service.

  (xymon {:host \"127.0.0.1\" :port 1984
          :timeout 5 :formatter event->status})
  "
  [opts]
  (fn [events]
