Cleaning the code: Quitting support for Fossil repositories. It was not working. PAY PARTICULAR ATTENTION.
This commit is contained in:
parent
2cdb2f61a1
commit
79c04b04d2
@ -567,25 +567,6 @@ GrafoscopioBrowser class >> updateUI [
|
|||||||
self startDockingBar.
|
self startDockingBar.
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'persistance / repositories' }
|
|
||||||
GrafoscopioBrowser >> addFileToRepository [
|
|
||||||
"Adds a selected file to a defined repository."
|
|
||||||
|
|
||||||
| fileStream fileToAdd |
|
|
||||||
|
|
||||||
self buildBrowser.
|
|
||||||
fileStream := UITheme builder
|
|
||||||
fileOpen: 'Elija un archivo para agregar al repositorio'.
|
|
||||||
|
|
||||||
fileStream isNil ifTrue: [ ^nil ].
|
|
||||||
fileToAdd := fileStream fullName.
|
|
||||||
OSProcess command:
|
|
||||||
'cd ', (mainTree metadata at: 'localRepository') asFileReference parent fullName, '; ',
|
|
||||||
fossil, ' add ', fileToAdd, '; ',
|
|
||||||
'echo "Added file to enabled repository"'.
|
|
||||||
self inform: 'Archivo adicionado al repositorio'
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #tags }
|
{ #category : #tags }
|
||||||
GrafoscopioBrowser >> addTagTo: aNode [
|
GrafoscopioBrowser >> addTagTo: aNode [
|
||||||
"Tags the node passed as argument with a value from the collection of tags available"
|
"Tags the node passed as argument with a value from the collection of tags available"
|
||||||
@ -634,7 +615,7 @@ GrafoscopioBrowser >> bodyForCodeIn: constructor for: aNode [
|
|||||||
GrafoscopioBrowser >> bodyIn: constructor [
|
GrafoscopioBrowser >> bodyIn: constructor [
|
||||||
"Shows the body of a selected node"
|
"Shows the body of a selected node"
|
||||||
|
|
||||||
(constructor text)
|
(constructor text asString)
|
||||||
title: 'Texto';
|
title: 'Texto';
|
||||||
format:[:eachNode |
|
format:[:eachNode |
|
||||||
(eachNode body) isNil
|
(eachNode body) isNil
|
||||||
@ -711,21 +692,6 @@ browser
|
|||||||
transformed: [:node :text | node header: text asString]
|
transformed: [:node :text | node header: text asString]
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'graphical interface' }
|
|
||||||
GrafoscopioBrowser >> buildBrowserLandscape [
|
|
||||||
|
|
||||||
browser := GLMTabulator new
|
|
||||||
title: 'Grafoscopio'.
|
|
||||||
browser
|
|
||||||
column: #original span: 3;
|
|
||||||
column: #transmediado span: 3.
|
|
||||||
browser
|
|
||||||
updateOn: GLMItemAdded from: #yourself;
|
|
||||||
updateOn: GLMItemRemoved from: #yourself.
|
|
||||||
|
|
||||||
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #'graphical interface' }
|
{ #category : #'graphical interface' }
|
||||||
GrafoscopioBrowser >> buildBrowserNamed: aName [
|
GrafoscopioBrowser >> buildBrowserNamed: aName [
|
||||||
"Main method for building the interface for trees and its nodes. The name of the browser corresponds to the name of the file
|
"Main method for building the interface for trees and its nodes. The name of the browser corresponds to the name of the file
|
||||||
@ -765,7 +731,7 @@ browser
|
|||||||
transformed: [:node :content |
|
transformed: [:node :content |
|
||||||
node tags = 'código'
|
node tags = 'código'
|
||||||
ifFalse: [node body: content asString]
|
ifFalse: [node body: content asString]
|
||||||
ifTrue: [node body: content asString]].
|
ifTrue: [node body: content string "text asString"]].
|
||||||
(browser transmit)
|
(browser transmit)
|
||||||
from: #tree;
|
from: #tree;
|
||||||
to: #nodeHeader;
|
to: #nodeHeader;
|
||||||
@ -778,25 +744,6 @@ 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.
|
|
||||||
REFACTORING NOTE: A more interactive use of external OS process, using pipeable os process should be done
|
|
||||||
allowing to capture console message."
|
|
||||||
| 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 --no-warnings -m "', commitMessage, '"; ',
|
|
||||||
'echo "commit sended to the repository"'.
|
|
||||||
self inform: 'Histórico del proyecto sincronizado']
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #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.
|
||||||
@ -844,56 +791,6 @@ GrafoscopioBrowser >> customKeys [
|
|||||||
stream nextPutAll: bibStream contents withUnixLineEndings ]].
|
stream nextPutAll: bibStream contents withUnixLineEndings ]].
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'persistance / repositories' }
|
|
||||||
GrafoscopioBrowser >> defineRemoteRepository [
|
|
||||||
"Defines a remote fossil repository from an url"
|
|
||||||
|
|
||||||
| remoteRepoUrl localRepoDirectory |
|
|
||||||
"remoteRepoUrl := UIManager default
|
|
||||||
textEntry: 'Ingrese la dirección web del repositorio remoto'
|
|
||||||
title: 'Dirección web del repositorio'."
|
|
||||||
remoteRepoUrl := 'http://hackbo.co/deltas/repos.fossil/reco2/'.
|
|
||||||
localRepoDirectory := FileLocator documents asFileReference / 'ReCo2'.
|
|
||||||
localRepoDirectory ensureCreateDirectory.
|
|
||||||
mainTree metadata ifNil: [mainTree metadata: Dictionary new].
|
|
||||||
mainTree metadata
|
|
||||||
at: 'remoteRepository' put: remoteRepoUrl;
|
|
||||||
at: 'localRepository' put: (localRepoDirectory / 'reco2.fossil') fullName.
|
|
||||||
OS2Process command:
|
|
||||||
'cd ', localRepoDirectory asFileReference fullName, '; ',
|
|
||||||
fossil, ' clone ', remoteRepoUrl, ' reco2.fossil; ',
|
|
||||||
'echo "Repositorio clonado"'.
|
|
||||||
(localRepoDirectory / '.fslckout') exists ifFalse: [
|
|
||||||
OS2Process command:
|
|
||||||
'cd ', localRepoDirectory asFileReference fullName, '; ',
|
|
||||||
fossil, ' open reco2.fossil; ',
|
|
||||||
'echo "Repositorio clonado"'].
|
|
||||||
self inform: 'Repositorio remoto definido y activado'.
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #'persistance / repositories' }
|
|
||||||
GrafoscopioBrowser >> enableLocalRepository [
|
|
||||||
"Just a temporary message to enable working with fossil on a specific repository. This should be generalized"
|
|
||||||
|
|
||||||
| fileStream |
|
|
||||||
|
|
||||||
fileStream := UITheme builder
|
|
||||||
fileOpen: 'Coloque la ruta al repositorio del proyecto (.fossil)'
|
|
||||||
extensions: #('fossil').
|
|
||||||
fileStream isNil ifTrue: [ ^nil ].
|
|
||||||
localRepository := fileStream name asFileReference.
|
|
||||||
mainTree metadata ifNil: [mainTree metadata: Dictionary new].
|
|
||||||
mainTree metadata at: 'localRepository' put: fileStream name.
|
|
||||||
(Smalltalk platform name = 'unix') | (Smalltalk platform name = 'Mac OS')
|
|
||||||
ifTrue: [
|
|
||||||
OSProcess command:
|
|
||||||
'cd ', localRepository parent fullName,';',
|
|
||||||
'exec ', fossil, ' open ', localRepository fullName].
|
|
||||||
self inform:
|
|
||||||
'Repositorio local activado: ', Character cr,
|
|
||||||
(mainTree metadata at: 'localRepository')
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #persistence }
|
{ #category : #persistence }
|
||||||
GrafoscopioBrowser >> exportAsHtml [
|
GrafoscopioBrowser >> exportAsHtml [
|
||||||
"Exports the current tree to HTML, using the same name but different extension (.html)"
|
"Exports the current tree to HTML, using the same name but different extension (.html)"
|
||||||
@ -1118,16 +1015,6 @@ GrafoscopioBrowser >> openHelpInGrafoscopio [
|
|||||||
browser openOn: mainTree children.
|
browser openOn: mainTree children.
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #'as yet unclassified' }
|
|
||||||
GrafoscopioBrowser >> openLandscape [
|
|
||||||
"Opens a new browser with a default tree in landscape mode"
|
|
||||||
self buildBrowserLandscape.
|
|
||||||
mainTree := GrafoscopioNode new.
|
|
||||||
mainTree becomeDefaultTree.
|
|
||||||
browser openOn: mainTree children.
|
|
||||||
|
|
||||||
]
|
|
||||||
|
|
||||||
{ #category : #persistence }
|
{ #category : #persistence }
|
||||||
GrafoscopioBrowser >> openTutorialInGrafoscopio [
|
GrafoscopioBrowser >> openTutorialInGrafoscopio [
|
||||||
"Opens the help tree from a file"
|
"Opens the help tree from a file"
|
||||||
@ -1466,15 +1353,7 @@ GrafoscopioBrowser >> treeOn: constructor [
|
|||||||
]]
|
]]
|
||||||
entitled: 'Desetiquetar nodo como...' categorized: 'Etiquetas';
|
entitled: 'Desetiquetar nodo como...' categorized: 'Etiquetas';
|
||||||
act: [self showTagsAvailable] entitled: 'Ver disponibles' categorized: 'Etiquetas';
|
act: [self showTagsAvailable] entitled: 'Ver disponibles' categorized: 'Etiquetas';
|
||||||
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas';
|
act: [self addToTagsAvailable] entitled: 'Agregar a disponibles' categorized: 'Etiquetas'.
|
||||||
|
|
||||||
"For projects"
|
|
||||||
act: [self defineRemoteRepository] entitled: 'Activar repositorio remoto...' categorized: 'Proyecto';
|
|
||||||
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 commitToRepository] entitled: 'Enviar al histórico' categorized: 'Proyecto';
|
|
||||||
act: [self messageNotImplementedYet "repositoryCredentials"] entitled: 'Acreditarse' categorized: 'Proyecto'.
|
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #persistence }
|
{ #category : #persistence }
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user