;;; Package --- Sumary:
;;; Emacs main config file
;;; Commentary:

;;; Code:

(defun parent-directory (dir)
  "return parent directory of dir"
  (unless (equal "/" dir)
    (file-name-directory (directory-file-name dir))))

(defun kitchen-converge ()
  "Run chef test kitchen converge"
  (interactive)
  (cd (parent-directory
       (file-name-directory (buffer-file-name))))
  (async-shell-command "kitchen converge"))

(provide 'chef)