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

Enabling local repositories.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2015-03-14 19:19:13 +00:00
parent d57f3e5606
commit 89cd7daa18
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -611,17 +611,19 @@ GrafoscopioBrowser >> defineRemoteRepository [
] ]
{ #category : #persistence } { #category : #persistence }
GrafoscopioBrowser >> enableRepository [ GrafoscopioBrowser >> enableLocalRepository [
"Just a temporary message to enable working with fossil on a specific repository. This should be generalized" "Just a temporary message to enable working with fossil on a specific repository. This should be generalized"
| repositoryLocalPath repositoryRemotePath | | fileStream |
(FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') ensureCreateDirectory.
repositoryLocalPath := (FileSystem disk workingDirectory / 'Grafoscopio' / 'Projects' / 'SoftwareLibre-Educacion') fullName. fileStream := UITheme builder
repositoryRemotePath := 'http://mutabit.com/deltas/repos.fossil/soliedu'. fileOpen: 'Coloque la ruta al repositorio del proyecto (.fossil)'
OSProcess command: 'cd ', repositoryLocalPath,'; ', extensions: #('fossil').
fossil, ' clone ', repositoryRemotePath, ' soliedu.fossil; ', fileStream isNil ifTrue: [ ^nil ].
fossil, ' open ', repositoryLocalPath, '/soliedu.fossil ;', localRepository := fileStream name asFileReference.
' echo "fossil repo OK"'. OSProcess command:
'cd ', localRepository parent fullName,';',
'exec ', fossil, ' open ', localRepository fullName.
] ]
{ #category : #persistence } { #category : #persistence }
@ -1178,7 +1180,7 @@ GrafoscopioBrowser >> treeOn: constructor [
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas'; act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
"For projects" "For projects"
act: [self messageNotImplementedYet "enableRepository"] entitled: 'Activar' categorized: 'Proyecto'; act: [self enableLocalRepository] entitled: 'Activar repositorio local...' categorized: 'Proyecto';
act: [self messageNotImplementedYet "addFileToRepository"] entitled: 'Agregar archivo' categorized: 'Proyecto'; act: [self messageNotImplementedYet "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 messageNotImplementedYet "repositoryCommit"] entitled: 'Enviar al histórico' categorized: 'Proyecto';