Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

IMPORTANTE: Justo antes de extraer los datos principales del archivo en Ston, en lugar de ponerlos a mano como hasta ahora.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-07-11 11:40:08 +00:00
parent fe63393f70
commit d4f8a7a1f0
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
repository/Grafoscopio/GrafoscopioBrowser.class.st
View File

@ -709,6 +709,23 @@ browser
transformed: [:node :text | node header: text asString] 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' } { #category : #'system-support' }
GrafoscopioBrowser >> configureInitialTags [ GrafoscopioBrowser >> configureInitialTags [
"Configures a list of predefined tags available to use. More tags should be added from a repository. "Configures a list of predefined tags available to use. More tags should be added from a repository.
@ -798,8 +815,7 @@ GrafoscopioBrowser >> exportAsHtml [
ifTrue: [ ifTrue: [
OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation. OSProcess command: 'exec ', pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation.
OSProcess command: 'exec echo "exportando como html"'. OSProcess command: 'exec echo "exportando como html"'.
self inform: 'Archivo exportado como html en: ', htmlFileLocation. self inform: 'Archivo exportado como html en: ', htmlFileLocation].
self inform: pandoc].
Smalltalk platform name = 'Win32' Smalltalk platform name = 'Win32'
ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]] ifTrue: [ OSProcess command: pandoc, ' ', markdownFileLocation , ' --standalone -o ' , htmlFileLocation ]]
ifFalse: [GrafoscopioBrowser configureSettings]. 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' ] 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 [ GrafoscopioBrowser >> openFromUrlUI [
"This method generates the UI for the openFromUrl: method, it asks for a URL from the user" "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 enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto';
act: [self addFileToRepository] entitled: 'Agregar archivo...' categorized: 'Proyecto'; act: [self addFileToRepository] entitled: 'Agregar archivo...' categorized: 'Proyecto';
act: [self messageNotImplementedYet] entitled: 'Eliminar 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'. act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'.
] ]