 
 (def key-length 4096)
 
+;; TODO Add final optional `options' map for :key-length
 (defn gen-keys
   [certname]
   {:pre [(string? certname)]

     :x500-name (ssl-utils/cn certname)
     :certname certname}))

(defn gen-cert*
  [ca-keys host-keys serial]
  {:pre [(ssl-keys? ca-keys)

      (:public-key host-keys)
      [])))

;; TODO Add final optional `options' map for :key-length and :extensions
(defn gen-cert
  [certname ca-cert serial]
  {:pre [(string? certname)
