From fe63393f70166ccfc3c186c6b48f368158266d4e Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 11 Jul 2015 10:41:04 +0000
Subject: [PATCH] Preliminar support for fossil commits.

---
 repository/Grafoscopio/GrafoscopioBrowser.class.st |  9 +++++----
 repository/Grafoscopio/GrafoscopioNode.class.st    | 13 +++++++++++--
 2 files changed, 16 insertions(+), 6 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index 0ca8d0b..fe30185 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -418,7 +418,7 @@ GrafoscopioBrowser >> addFileToRepository [
 	fileStream isNil ifTrue: [ ^nil ].
 	fileToAdd := fileStream	fullName.
 	OSProcess command: 
-					'cd ', localRepository parent fullName, '; ',
+					'cd ', (mainTree metadata at: 'localRepository') asFileReference parent fullName, '; ',
 					fossil, ' add ', fileToAdd, '; ',
 					'echo "Added file to enabled repository"'.
 	self inform: 'Archivo adicionado al repositorio'
@@ -775,14 +775,15 @@ GrafoscopioBrowser >> enableLocalRepository [
 							extensions: #('fossil').
 	fileStream isNil ifTrue: [ ^nil ].						
 	localRepository := fileStream name asFileReference.
-	mainTree localRepository: fileStream name.
+	mainTree metadata ifNil: [mainTree metadata: Dictionary new].
+	mainTree metadata at: 'localRepository' put: fileStream name.
 	(Smalltalk platform name = 'unix') | (Smalltalk platform name = 'Mac OS')
 		ifTrue: [
 			OSProcess command: 
 				'cd ', localRepository parent fullName,';',
 				'exec ', fossil, ' open ', localRepository fullName].
-	self inform: 'Repositorio local abierto.'.
-	self inform: (mainTree localRepository asString).
+	self inform: 'Repositorio local activado: ', Character cr,
+					(mainTree metadata at: 'localRepository')
 ]
 
 { #category : #persistence }
diff --git a/repository/Grafoscopio/GrafoscopioNode.class.st b/repository/Grafoscopio/GrafoscopioNode.class.st
index 057470e..2b229b5 100644
--- a/repository/Grafoscopio/GrafoscopioNode.class.st
+++ b/repository/Grafoscopio/GrafoscopioNode.class.st
@@ -24,8 +24,7 @@ Class {
 		'level',
 		'nodesInPreorder',
 		'cacheNode',
-		'localRepository',
-		'remoteRepository'
+		'metadata'
 	],
 	#category : #'Grafoscopio-Model'
 }
@@ -375,6 +374,16 @@ GrafoscopioNode >> markdownContent [
 	^markdown contents 
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> metadata [
+	^ metadata
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> metadata: anObject [
+	metadata := anObject
+]
+
 { #category : #movement }
 GrafoscopioNode >> moveAfter [
 	"Moves the current node a place before in the children collection where is located"