   {:pre [(keyword? os) (string? webdav-mount-point)]}
   (zero? (sh 5000 -1 false "net" "use" webdav-mount-point "/delete")))
 
+(defmethod umount-webdav :linux
+  [os webdav-mount-point]
+  {:pre [(string? webdav-mount-point)]}
+  (umount-webdav :unknown webdav-mount-point))
+
 (defmethod umount-webdav :unknown
   [os webdav-mount-point]
   {:pre [(string? webdav-mount-point)]}

   (or
     (extract-drive-letter (subs shell-result 0 (min 28 (count shell-result))))
     (throw (IOException. shell-result)))))

(defmethod mount-webdav :unknown
  [os bonjour-name endpoint-address endpoint-port]

    (cond
      (substring-exists? os-name "mac") :mac
      (substring-exists? os-name "win") :win
      (substring-exists? os-name "linux") :linux
      :else :unknown)))

(defn sh
