Small function for nice integration with git add and commit in Emacs workflow

git add and commit current file for Emacs

(defun git-add-and-commit-current-file ()
  (interactive)
  (let ((bufn (buffer-file-name (current-buffer))))
    (if bufn
        (progn
          (shell-command (format "git add %s" bufn))
          (shell-command (format "git commit -m \"%s\"" (read-from-minibuffer "Message: "))))
        (print "Current buffer has no file associated with it"))))

;; (global-set-key (kbd "C-c C-f") 'git-add-and-commit-current-file)