33 lines
991 B
Smalltalk
33 lines
991 B
Smalltalk
Extension { #name : #MetacelloPlatform }
|
|
|
|
{ #category : #'*ExoRepo' }
|
|
MetacelloPlatform >> createGiteaRepository: aRepositorySpec [
|
|
| cl |
|
|
|
|
cl := MCGiteabRepository.
|
|
^ cl location: aRepositorySpec description
|
|
]
|
|
|
|
{ #category : #'*ExoRepo' }
|
|
MetacelloPlatform >> extractTypeFromDescription: description [
|
|
description == nil
|
|
ifTrue: [ ^ nil ].
|
|
((description beginsWith: '/') or: [ description second = $: ])
|
|
ifTrue: [ ^ 'directory' ].
|
|
(description beginsWith: 'dictionary://')
|
|
ifTrue: [ ^ 'dictionary' ].
|
|
(description beginsWith: 'filetree://')
|
|
ifTrue: [ ^ 'filetree' ].
|
|
(description beginsWith: 'tonel://')
|
|
ifTrue: [ ^ 'tonel' ].
|
|
(description beginsWith: 'github://')
|
|
ifTrue: [ ^ 'github' ].
|
|
(description beginsWith: 'gitorious://')
|
|
ifTrue: [ ^ 'gitorious' ].
|
|
(description beginsWith: 'gitea://')
|
|
ifTrue: [ ^ 'gitea' ].
|
|
(description beginsWith: 'bitbucket://')
|
|
ifTrue: [ ^ 'bitbucket' ].
|
|
^ 'http'
|
|
]
|