From d4f8a7a1f085e8858483738792d7c2111822c3fd Mon Sep 17 00:00:00 2001 From: Offray Luna 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'. ]