From 89cd7daa18918bb13b9ad1a662c979df92bdece2 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 14 Mar 2015 19:19:13 +0000
Subject: [PATCH] Enabling local repositories.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 22 ++++++++++---------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index ffe7e84..dee58fe 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -611,17 +611,19 @@ GrafoscopioBrowser >> defineRemoteRepository [
 ]
 
 { #category : #persistence }
-GrafoscopioBrowser >> enableRepository [
+GrafoscopioBrowser >> enableLocalRepository [
 	"Just a temporary message to enable working with fossil on a specific repository. This should be generalized"
 
-	| repositoryLocalPath repositoryRemotePath |
-	(FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') ensureCreateDirectory.
-	repositoryLocalPath := (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') fullName.
-	repositoryRemotePath := 'http://mutabit.com/deltas/repos.fossil/soliedu'.
-	OSProcess command: 'cd ', repositoryLocalPath,'; ', 
-							fossil, ' clone ', repositoryRemotePath, ' soliedu.fossil; ', 
-							fossil, ' open ', repositoryLocalPath, '/soliedu.fossil ;',
-							' echo "fossil repo OK"'.
+	| fileStream |
+
+	fileStream := UITheme builder 
+							fileOpen: 'Coloque la ruta al repositorio del proyecto (.fossil)'
+							extensions: #('fossil').
+	fileStream isNil ifTrue: [ ^nil ].						
+	localRepository := fileStream name asFileReference.
+	OSProcess command: 
+			'cd ', localRepository parent fullName,';',
+			'exec ', fossil, ' open ', localRepository fullName.
 ]
 
 { #category : #persistence }
@@ -1178,7 +1180,7 @@ GrafoscopioBrowser >> treeOn: constructor [
 		act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
 
 		"For projects"
-		act: [self messageNotImplementedYet "enableRepository"] entitled: 'Activar' categorized: 'Proyecto';
+		act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto';
 		act: [self messageNotImplementedYet "addFileToRepository"] entitled: 'Agregar archivo' categorized: 'Proyecto';
 		act: [self messageNotImplementedYet] entitled: 'Eliminar archivo' categorized: 'Proyecto';
 		act: [self messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';