Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Replace repositoryGroups for workingCopies with filetree: equivalent
"cd to a likely spot on disk and run the following at a shell prompt (after installing git):
git clone -b develop https://github.com/Phariverse/PharoCore.git
then set pharoCoreRepoPath below to path to repository directory inside PharoCore git repository.
Finally run the expressions in this workspace to connect your image up to the correct repositories.
"
| pharoCoreRepoPath metacelloRepository filetreeRepository
pharoCoreRepository pharoCoreHTTPRepo filetreeHTTPRepo metacelloHTTPRepo
pharoCoreRepoGroup metacelloRepoGroup filetreeRepoGroup |
pharoCoreRepoPath := '/opt/git/PharoCore/repository'. "Don't forget path should point at PharoCore/repository subdirectory"
pharoCoreRepository := MCFileTreeRepository new directory:
(FileDirectory default directoryNamed: pharoCoreRepoPath).
pharoCoreHTTPRepo := MCRepositoryGroup default repositories detect: [:repo |
repo description = 'http://ss3.gemstone.com/ss/Pharo14'].
metacelloRepository := MCGitHubRepository location: 'github://dalehenrich/metacello:newPackageFormat/repository'.
metacelloHTTPRepo := MCRepositoryGroup default repositories detect: [:repo |
repo description = 'http://seaside.gemstone.com/ss/metacello'].
filetreeRepository := MCGitHubRepository location: 'github://dalehenrich/filetree:pharoBugFix/repository'.
filetreeHTTPRepo := MCRepositoryGroup default repositories detect: [:repo |
repo description = 'http://ss3.gemstone.com/ss/FileTree'].
pharoCoreRepoGroup := MCRepositoryGroup new
addRepository: pharoCoreHTTPRepo;
addRepository: pharoCoreRepository;
yourself.
filetreeRepoGroup := MCRepositoryGroup new
addRepository: filetreeHTTPRepo;
addRepository: filetreeRepository;
yourself.
metacelloRepoGroup := MCRepositoryGroup new
addRepository: metacelloHTTPRepo;
addRepository: metacelloRepository;
yourself.
MCWorkingCopy registry valuesDo: [:wc |
(wc repositoryGroup includes: metacelloHTTPRepo)
ifTrue: [ wc repositoryGroup: metacelloRepoGroup ].
(wc repositoryGroup includes: filetreeHTTPRepo)
ifTrue: [ wc repositoryGroup: filetreeRepoGroup ].
(wc repositoryGroup includes: pharoCoreHTTPRepo)
ifTrue: [ wc repositoryGroup: pharoCoreRepoGroup ] ].
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment