From f79b643d5066965e842bb374f8770ddfe4f2020e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?St=C3=A9phaneDucasse?= Date: Fri, 19 Jul 2024 10:39:59 +0200 Subject: [PATCH] taking into account that some microdown packages are not from the microrepo. --- .../BaselineOfMicrodown.class.st | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/src/BaselineOfMicrodown/BaselineOfMicrodown.class.st b/src/BaselineOfMicrodown/BaselineOfMicrodown.class.st index 01f58113..32ad7d04 100644 --- a/src/BaselineOfMicrodown/BaselineOfMicrodown.class.st +++ b/src/BaselineOfMicrodown/BaselineOfMicrodown.class.st @@ -103,8 +103,19 @@ BaselineOfMicrodown >> preload: loader package: packageSpec [ unload; forget ] ]" - (PackageOrganizer default packages select: [ :each | each name beginsWith: 'Microdown' ]) - do: [ :each | each removeFromSystem ] + | packagesToUnload | +packagesToUnload := ((PackageOrganizer default packages + select: [ :each | each name beginsWith: 'Microdown' ]) collect: [ :each | each name ]) reject: + [ :each | + #('Microdown-RichTextPresenter' 'Microdown-RichTextPresenter-Tests') includes: each ]. + "these two are not managed by the microdown repo but the documentation. + I should rename them in the future to avoid confusion" + +packagesToUnload do: + [ :each | ((IceRepository repositoryNamed: 'Microdown') + packageNamed: each) unload ] + + ] { #category : 'external projects' }