diff options
| author |  Tom Willemse | 2014-03-03 23:59:19 +0100 |
|---|---|---|
| committer | Tom Willemse | 2014-03-04 00:06:51 +0100 |
| commit | 3c831f9381d8268cf07d659419066e03979e19b0 (patch) | |
| tree | 952fe93050f31eb1dd876856c7b8b886dc94becd /gitto/git.scm | |
| parent | 53db54e71da298fca37e5ae10ca8295ba33af441 (diff) | |
| download | gitto-3c831f9381d8268cf07d659419066e03979e19b0.tar.gz gitto-3c831f9381d8268cf07d659419066e03979e19b0.zip | |
Allow a name to be used to remove a repository
Allow users to specify a name instead of a path to remove a repository
from the repository list. Paths may also still be used.
Diffstat (limited to 'gitto/git.scm')
| -rw-r--r-- | gitto/git.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gitto/git.scm b/gitto/git.scm index 3f760e2..fc40077 100644 --- a/gitto/git.scm +++ b/gitto/git.scm @@ -40,6 +40,7 @@ repository-location<? repository-location-exists? repository-name<? + repository-name=? same-repository?)) (define show-unchanged-branches? #f) @@ -74,6 +75,10 @@ "Compare REPO1 and REPO2 to see if REPO1 should be considered less." (string<? (repo-name repo1) (repo-name repo2))) +(define (repository-name=? repo name) + "Company the name of REPO1 to NAME and determine equality." + (string= (repo-name repo) name)) + (define-method (branch-pullable (branch <branch>)) (force (slot-ref branch 'pullable))) |