go := Gofer new.

repo := MCSmalltalkhubRepository

     owner: 'Pharo'

     project: 'Pharo30'

     user: 'StephaneDucasse'

     password: ''.

go repository: repo.

"#('Nautilus' 'NautilusCommon' 'NautilusRefactoring' 'GroupManager'  'GroupManagerUI') do: [ :nam|  "

((go allResolved select: [ :each | '*GroupManager*' match: each packageName]) groupedBy: #packageName) keys

     do: [ :pack | pack  crLog.

                         go package: pack ; fetch]

goin := Gofer new.

goin squeaksource3: 'Pharo20'.

goin package: 'BLB'; fetch.

goout := Gofer new.

repo := MCSmalltalkhubRepository

     owner: 'Pharo'

     project: 'Pharo20'

     user: 'StephaneDucasse'

     password: ''.

goout repository: repo.

go := Gofer new.

go repository: repo.

(((FileSystem disk workingDirectory / 'package-cache')

     allFiles select: [:each | '*.mcz' match: each basename])

     groupedBy: [:each | (each base copyUpToLast: $-) ]) keys

          do: [ :name |

                    name crLog.

                    go package: name; push]

goin squeaksource3: 'Pharo14'.

goout := Gofer new.

repo := MCSmalltalkhubRepository

     owner: 'Pharo'

     project: 'Pharo14'

     user: 'StephaneDucasse'

     password: 'sn00py_papa'.

goout repository: repo.

'FETCHING' crLog.  

(goin allResolved select: [ :each | 'S*' match: each packageName])

     do: [ :pack |

               self crLog: pack name.

            goin package: pack packageName; fetch]

goin := Gofer new.

goin squeaksource3: 'Pharo14'.

goout := Gofer new.

repo := MCSmalltalkhubRepository

     owner: 'Pharo'

     project: 'Pharo14'

     user: 'StephaneDucasse'

     password: ''.

goout repository: repo.

#(A B C D E F G H IJ K L M N O P Q R S T U V W X Y Z) do:

     [ :nam |

'FETCHING' crLog.   

(goin allResolved select: [ :each | nam, '*' match: each packageName])

     do: [ :pack | self crLog: pack packageName.

                         goin package: pack packageName; fetch].].