From 3c831f9381d8268cf07d659419066e03979e19b0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 3 Mar 2014 23:59:19 +0100
Subject: 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.
---
 gitto/git.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'gitto/git.scm')

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)))
 
-- 
cgit v1.2.3-54-g00ecf