run coffee script file bound to current buffer

coffee-run-file-saving.el

(defun coffee-run-file-saving ()
  "Run coffee script in current buffer in new window"
  (interactive)

  (if buffer-file-name
      (progn
        (save-buffer)
        (set-buffer
         (apply 'make-comint "CoffeeRun"
                coffee-command nil (cons buffer-file-name '())))

        (display-buffer "*CoffeeRun*")
        (read-string "press some key to close..")
        (kill-buffer "*CoffeeRun*"))

    (message "Please save buffer to file first.")))