     (format "enable %s.%s" host service)))
 
 (defn event->disable
-  "
-  Convert an event to a Xymon disable message:
+  "Converts 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 a vector of events and which sends
  them to Xymon as 'combo' messages. Filters events with nil :state
  or :service.
  "
  [opts]
  (fn [events]

    (send-single-message opts message)))

(defn xymon
  "Returns a function which accepts an event and sends it to Xymon.
  Drops events when Xymon is down. Use:

  (xymon {:host \"127.0.0.1\" :port 1984
