Skip to content

Instantly share code, notes, and snippets.

@dalehenrich

dalehenrich/cleanUpDefaultRepositoryGroup.st

Created March 2, 2012 22:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dalehenrich/1961964 to your computer and use it in GitHub Desktop.
Save dalehenrich/1961964 to your computer and use it in GitHub Desktop.
Download ZIP
get rid of repositories that aren't in the given list of repostiroy descriptions.
Raw
cleanUpDefaultRepositoryGroup.st
"run this to remove cruft before saving image for download"
| standardRepos |
standardRepos := #('http://ss3.gemstone.com/ss/Pharo14' 'http://ss3.gemstone.com/ss/FileTree'
'http://www.squeaksource.com/OSProcess' 'http://seaside.gemstone.com/ss/metacello' ).
MCRepositoryGroup default repositories do: [:repo |
(standardRepos includes: repo description)
ifFalse: [ MCRepositoryGroup default removeRepository: repo ]].
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment