gistfile1.clj

(defn mount-shared-folder
  "Mount a shared folder in vmware."
  [request]
  (-> request
      (directory/directory "/Users/David" :owner "david")
      (exec-script/exec-script
       (defvar uid @(id "-u" "david"))
       (defvar gid @(id "-g" "david"))
       (if (!= 0 @(mountpoint -q "/Users/David"))
         (sudo mount "-t" vboxsf "-o"
               "uid=${uid},gid=${gid}"
               machome "/Users/David/")))))