diff --git a/repository/TiddlyWiki/TWSeed.class.st b/repository/TiddlyWiki/TWSeed.class.st index e32e196..35a35ea 100644 --- a/repository/TiddlyWiki/TWSeed.class.st +++ b/repository/TiddlyWiki/TWSeed.class.st @@ -26,31 +26,6 @@ TWSeed class >> deleteWikiFileFromFolder: folder andSubfolder: shortName [ ^ file ensureDelete. ] -{ #category : #accessing } -TWSeed class >> initialize [ - - super initialize. - list := OrderedCollection new. - list - add: (self new - name: 'ProjectifyMod'; - demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html'); - add: (self new - name: 'Wikilexias'; - demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html'); - add: (self new - name: 'NotebookMod'; - demo: ''); - add: (self new - name: 'Grafoscopedia'; - demo: ''); - add: (self new - name: 'Holonica'; - demo: ''). - ^ self - -] - { #category : #accessing } TWSeed class >> install: seedName into: folder as: shortName [ @@ -106,6 +81,31 @@ TWSeed >> demo: anUrl [ demo := anUrl asZnUrl ] +{ #category : #accessing } +TWSeed >> initialize [ + + super initialize. + list := OrderedCollection new. + list + add: (self class new + name: 'ProjectifyMod'; + demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html'); + add: (self class new + name: 'Wikilexias'; + demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/wikilexias/wikilexias.html'); + add: (self class new + name: 'NotebookMod'; + demo: ''); + add: (self class new + name: 'Grafoscopedia'; + demo: ''); + add: (self class new + name: 'Holonica'; + demo: ''). + ^ self + +] + { #category : #accessing } TWSeed >> name [ ^ name diff --git a/repository/TiddlyWiki/TWSeedTest.class.st b/repository/TiddlyWiki/TWSeedTest.class.st index 9d93f86..1a2d018 100644 --- a/repository/TiddlyWiki/TWSeedTest.class.st +++ b/repository/TiddlyWiki/TWSeedTest.class.st @@ -7,7 +7,9 @@ Class { { #category : #accessing } TWSeedTest >> testCreateAlternativeSeed [ - | seed | + | seed folder | + folder := FileLocator temp / 'Wikilexias'. + folder ensureDeleteAll. seed := TWSeed install: 'Wikilexias' into: FileLocator temp as: 'Wikilexias'. self assert: seed file equals: (FileLocator temp / 'Wikilexias' / 'index.html') ]