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

Documentation: Update tutorial. Temporal fix while looking for a more robust solution which takes into account SHA1 integrity codes for downloading only the changed material.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-09-26 14:12:57 +00:00
parent bbbc0ed07c
commit 4895f003d6
1 changed files with 64 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -227,9 +227,10 @@ GrafoscopioBrowser class >> startDockingBar [
updateMenu := MenuMorph new. updateMenu := MenuMorph new.
updateMenu updateMenu
add: 'Documentación' target: GrafoscopioBrowser selector: #updateDocumentation;
add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio; add: 'Grafoscopio' target: GrafoscopioBrowser selector: #updateGrafoscopio;
add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites; add: 'Prerrequisitos' target: GrafoscopioBrowser selector: #updatePrerrequisites;
add: 'Documentación > Tutorial' target: GrafoscopioBrowser selector: #updateDocumentationTemp;
add: 'Documentación > Toda' target: GrafoscopioBrowser selector: #updateDocumentation;
add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet; add: 'Herramientas externas' target: GrafoscopioBrowser selector: #messageNotImplementedYet;
add: 'Ruta a pandoc' target: GrafoscopioBrowser selector: #configurePandoc; add: 'Ruta a pandoc' target: GrafoscopioBrowser selector: #configurePandoc;
add: 'Ruta a fossil' target: GrafoscopioBrowser selector: #configureFossil; add: 'Ruta a fossil' target: GrafoscopioBrowser selector: #configureFossil;
@ -255,28 +256,39 @@ GrafoscopioBrowser class >> startDockingBar [
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateDocumentation [ GrafoscopioBrowser class >> updateDocumentation [
"Updates documentation/manual from official repository" "Updates documentation (manual, tutorials) from official repository"
| update fileLocation filePath client docs | | update filePath fileLocation client docs |
update := (UIManager default update := (UIManager default
question: '¿Desea actualizar la documentación?' confirm: '¿Desea actualizar la documentación?'
title: '¿Actualizar documentación?'). label: 'Actualizar documentación').
update ifNotNil: [
docs := Dictionary new.
update update
ifTrue: [ ifTrue: [
fileLocation := './Docs/Es/Manual/'. docs := Dictionary
fileLocation asFileReference ensureCreateDirectory. with: 'manual' -> ( Dictionary
filePath := fileLocation,'manual-grafoscopio.ston'. with: 'remote' -> 'http://mutabit.com/repos.fossil/grafoscopio/doc/tip/Docs/Es/Manual/manual-grafoscopio.ston'
with: 'local' -> './Docs/Es/Manual/'
)
with: 'tutorial' -> (Dictionary
with: 'remote' -> 'http://mutabit.com/repos.fossil/grafoscopio/doc/tip/Docs/Es/Tutoriales/tutorial.ston'
with: 'local' -> './Docs/Es/Tutoriales/'
).
docs do: [:each |
client := ZnClient new. client := ZnClient new.
client get: 'http://mutabit.com/repos.fossil/grafoscopio/doc/tip/Docs/Es/Manual/manual-grafoscopio.ston'. client get: (each at: 'remote').
client isSuccess client isSuccess
ifTrue: [ filePath asFileReference ifFalse: [ self inform: 'Algo salió mal. Verifique su conexión a Internet.' ]
writeStreamDo: [ :stream | ifTrue: [
filePath := each at: 'local'.
filePath asFileReference ensureCreateDirectory.
fileLocation := filePath, ((each at: 'remote') splitOn: '/') last.
fileLocation asFileReference
writeStreamDo: [:stream |
stream write: client contents asString]. stream write: client contents asString].
self inform: 'Actualización de la documentación terminada'. ] ].
ifFalse: [ self inform: 'Algo salió mal. Verifique su conexión a Internet.' ] ] self inform: 'Actualización de la documentación terminada'.
ifFalse: [self inform: 'Actualización de la documentación cancelada'. ]] ]
].
] ]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
@ -303,6 +315,39 @@ localRepository exists
] ]
] ]
{ #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateDocumentationTemp [
"Updates documentation (manual, tutorials) from official repository"
| update filePath fileLocation client docs |
update := (UIManager default
confirm: '¿Desea actualizar la documentación?'
label: 'Actualizar documentación').
update
ifTrue: [
docs := Dictionary
with: 'tutorial' -> (Dictionary
with: 'remote' -> 'http://mutabit.com/repos.fossil/grafoscopio/doc/tip/Docs/Es/Tutoriales/tutorial.ston'
with: 'local' -> './Docs/Es/Tutoriales/'
).
docs do: [:each |
client := ZnClient new.
client get: (each at: 'remote').
client isSuccess
ifFalse: [ self inform: 'Algo salió mal. Verifique su conexión a Internet.' ]
ifTrue: [
filePath := each at: 'local'.
filePath asFileReference ensureCreateDirectory.
fileLocation := filePath, ((each at: 'remote') splitOn: '/') last.
fileLocation asFileReference
writeStreamDo: [:stream |
stream write: client contents asString].
].
self inform: 'Actualización de la documentación terminada'.
]
].
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
GrafoscopioBrowser class >> updateGrafoscopio [ GrafoscopioBrowser class >> updateGrafoscopio [
"Updates Grafoscopio with new versions of itself take from the source code repository and "Updates Grafoscopio with new versions of itself take from the source code repository and