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'
]