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