From d4f8a7a1f085e8858483738792d7c2111822c3fd Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sat, 11 Jul 2015 11:40:08 +0000
Subject: [PATCH] IMPORTANTE: Justo antes de extraer los datos principales del
 archivo en Ston, en lugar de ponerlos a mano como hasta ahora.

---
 .../Grafoscopio/GrafoscopioBrowser.class.st   | 24 +++++++++++++++----
 1 file changed, 20 insertions(+), 4 deletions(-)

diff --git a/repository/Grafoscopio/GrafoscopioBrowser.class.st b/repository/Grafoscopio/GrafoscopioBrowser.class.st
index fe30185..486d4b7 100644
--- a/repository/Grafoscopio/GrafoscopioBrowser.class.st
+++ b/repository/Grafoscopio/GrafoscopioBrowser.class.st
@@ -709,6 +709,23 @@ browser
 	 transformed: [:node :text | node header: text asString]
 ]
 
+{ #category : #'persistance / repositories' }
+GrafoscopioBrowser >> commitToRepository [
+	"Commits to the associated repository for the current document tree"
+	| commitMessage |
+	commitMessage := UIManager default 
+							textEntry: 'Ingrese el mensaje asociado a este envío al historial' 
+							title: 'Mensaje para el historial'.						
+	commitMessage isNil ifTrue: [ ^nil ].
+	(mainTree metadata at: 'localRepository') notNil
+		ifTrue: [
+			OSProcess command: 
+					'cd ', (mainTree metadata at: 'localRepository') asFileReference parent fullName, '; ',
+					fossil, ' commit -m "', commitMessage, '"; ',
+					'echo "commit sended to the repository"'.
+			self inform: 'Archivo adicionado al repositorio']
+]
+
 { #category : #'system-support' }
 GrafoscopioBrowser >> configureInitialTags [
 	"Configures a list of predefined tags available to use. More tags should be added from a repository.
@@ -798,8 +815,7 @@ GrafoscopioBrowser >> exportAsHtml [
 				ifTrue: [ 
 					OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation.
 					OSProcess command: 'exec echo "exportando como html"'.
-					self inform: 'Archivo exportado como html en: ', htmlFileLocation.
-					self inform: pandoc].
+					self inform: 'Archivo exportado como html en: ', htmlFileLocation].
 			Smalltalk platform name = 'Win32'
 				ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]]
 		ifFalse: [GrafoscopioBrowser configureSettings].
@@ -997,7 +1013,7 @@ GrafoscopioBrowser >> openFromUrl: anUrl [
 		ifFalse: [self inform: 'Algo salió mal. Verifique su conexión a Internet y que el contenido buscado estén disponibles'  ]
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #persistence }
 GrafoscopioBrowser >> openFromUrlUI [
 	"This method generates the UI for the openFromUrl: method, it asks for a URL from the user"
 
@@ -1388,7 +1404,7 @@ GrafoscopioBrowser >> treeOn: constructor [
 		act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto';
 		act: [self 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';
+		act: [self commitToRepository] entitled: 'Enviar al histórico' categorized: 'Proyecto';
 		act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'.
 ]