diff options
author | rsiddharth <s@ricketyspace.net> | 2016-07-10 20:26:22 +0000 |
---|---|---|
committer | rsiddharth <s@ricketyspace.net> | 2016-07-10 20:26:22 +0000 |
commit | b64bf97cde034e4a23fd11b7830ae919ecb6a1f9 (patch) | |
tree | 8e7a345767483819602a5fe417a71680e2dc043a /git-difme.scm | |
parent | e285c0aecfad93907fa209a8b94043779621a1a3 (diff) |
add `difme-stage-commit` function.
* git-difme.scm (difme-stage-commit): new function.
Diffstat (limited to 'git-difme.scm')
-rw-r--r-- | git-difme.scm | 7 |
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")) |