add `difme-stage-commit` function.

* git-difme.scm (difme-stage-commit): new function.

1 files changed, 6 insertions, 1 deletions

diff --git a/git-difme.scm b/git-difme.scm
index a20d855..f67dfe6 100644
--- a/git-difme.scm
+++ b/git-difme.scm
@@ -89,7 +89,7 @@ returned."
   (let ((cmd (string-append "git add " file)))
     (with-directory-excursion repo
       (difme-exec cmd))))
-
+
 (define (difme-commit repo msg)
 "do `git commit` on REPO.
 
@@ -112,6 +112,11 @@ the commit message will be in the following format:
     (with-directory-excursion repo
       (difme-exec cmd))))
 
+(define (difme-stage-commit repo file msg)
+  "stage and commit FILE in REPO with MSG as the commit message."
+  (difme-stage repo file)
+  (difme-commit repo msg))
+
 (define (difme-push repo)
   "do `git push` REPO to its default upstream remote."
   (let ((cmd "git push"))