On Wed, Sep 18, 2013 at 11:04 AM, Sabine Knöfel
<[email protected]> wrote:
> I always commit in smalltalkhub and ss3.gemtalksystems. So if one is down, I
> can use the other.
for those who don't know, each commit you do from Pharo is saved
locally on your hard drive (by default, in a package-cache directory).
So, even when servers are down, you should have access to your mcz
files. What I and some others do is to configure Pharo so that all
images share the same package-cache directory. This way, you can
change image frequently and still have all your mcz around. To do
that, we create a file ~/.config/pharo/monticello.st and place the
following in it:
StartupLoader default executeAtomicItems: {
StartupAction name: 'Monticello related stuff' code: [|
sharedPackageCacheDirectory |
FileStream stdout lf; nextPutAll: 'Executing Monticello related
stuff for Pharo 3.0'; lf.
sharedPackageCacheDirectory := '/home/cassou/Documents/smalltalk/cache'.
sharedPackageCacheDirectory asFileReference ensureCreateDirectory.
MCCacheRepository default directory: sharedPackageCacheDirectory
asFileReference.
MCDirectoryRepository defaultDirectoryName: sharedPackageCacheDirectory.
FileStream stdout lf; nextPutAll: 'Finished'; lf].
}.
In this file, you can also set the repositories you often use. That's
very convenient if you don't want to copy your username and password
all the time. Just before the last FileStream line, add:
MCRepositoryGroup default repositories
select: [:each | (each isKindOf: MCHttpRepository) and:
[each location includesSubstring: 'squeaksource.com']]
thenDo: [:each | each user: 'dc'; password: 'XXXXX'].
MCRepositoryGroup default repositories
select: [:each | (each isKindOf: MCHttpRepository) and:
[each location includesSubstring: 'ss3.gemstone.com']]
thenDo: [:each | each user: 'dc'; password: 'XXXXX'].
MCRepositoryGroup default repositories
select: [:each | (each isKindOf: MCHttpRepository) and:
[each location includesSubstring: 'source.squeak.org' ]]
thenDo: [ :repo | repo user: 'DamienCassou'; password: 'XXXXX' ].
MCRepositoryGroup default repositories
select: [:each | (each isKindOf: MCHttpRepository) and:
[each location includesSubstring: 'smalltalkhub.com' ]]
thenDo: [ :repo | repo user: 'DamienCassou'; password: 'XXXXX ].
--
Damien Cassou
http://damiencassou.seasidehosting.st
"Success is the ability to go from one failure to another without
losing enthusiasm."
Winston Churchill
