diff --git a/repository/TiddlyWiki/TWSeed.class.st b/repository/TiddlyWiki/TWSeed.class.st index 35a35ea..15d5345 100644 --- a/repository/TiddlyWiki/TWSeed.class.st +++ b/repository/TiddlyWiki/TWSeed.class.st @@ -26,6 +26,34 @@ 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: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/notebook/notebook-mod.html'); + add: (self new + name: 'Grafoscopedia'; + demo: 'https://mutabit.com/repos.fossil/grafoscopedia/uv/'); + add: (self new + name: 'Holonica'; + demo: 'https://mutabit.com/repos.fossil/holonica/uv/'); + add: (self new + name: 'Krystal Whitespace'; + demo: 'https://krytsal-whitespace.tiddlyhost.com/'). + ^ self + +] + { #category : #accessing } TWSeed class >> install: seedName into: folder as: shortName [ @@ -63,6 +91,12 @@ TWSeed class >> list [ ] +{ #category : #accessing } +TWSeed class >> preview: wikiSeedName [ + + WebBrowser openOn: (self selectSeed: wikiSeedName) demo. +] + { #category : #accessing } TWSeed class >> selectSeed: aSeedName [ @@ -81,31 +115,6 @@ 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 @@ -121,3 +130,10 @@ TWSeed >> preview: anObject [ ^ demo := anObject ] + +{ #category : #accessing } +TWSeed >> printOn: aStream [ +super printOn: aStream. + aStream + nextPutAll: '( ', self name, ' )' +] diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st index 33998e2..b43d106 100644 --- a/repository/TiddlyWiki/Tiddler.class.st +++ b/repository/TiddlyWiki/Tiddler.class.st @@ -48,7 +48,7 @@ Tiddler >> asDictionary [ at: 'title' put: self title; at: 'text' put: self text; at: 'created' put: self created; - at: 'tags' put: self tags; + at: 'tags' put: self tags asArray; at: 'type' put: self type; at: 'creator' put: self creator; at: 'modifier' put: self modifier; @@ -479,7 +479,7 @@ Tiddler >> revision: aNumberString [ { #category : #accessing } Tiddler >> tags [ - ^ tags + ^ tags ifNil: [tags := Set new] ] { #category : #accessing }