     (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

(def- combo-header-len (count combo-header))

(defn events->combo
  "
  Returns a lazy sequence of combo messages. Each message is at most
  message-max-length long.
  "
  ([formatter 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
