Class {
	#name : #TWSeed,
	#superclass : #Object,
	#instVars : [
		'name',
		'demo'
	],
	#classVars : [
		'list'
	],
	#category : #'TiddlyWiki-Model'
}

{ #category : #accessing }
TWSeed class >> initialize [

	super initialize.
	"self name: (self class list at: #Wikilexias) asFileReference basenameWithoutExtension.
	self preview: (self class list at: #Wikilexias) contents."
	
]

{ #category : #accessing }
TWSeed class >> installDefaultInto: folder as: shortName [

	| url subfolder |
	url := self list first demo.
	subfolder := (folder / shortName) ensureCreateDirectory. 
	^ url asUrl saveContentsToFile: subfolder / 'index.html'.
]

{ #category : #accessing }
TWSeed class >> list [

	| l |
	l := OrderedCollection new.
	l add: (self new 
		name: 'Projectify';
		demo: 'https://mutabit.com/repos.fossil/tiddlywiki/uv/seeds/projectify/projectify-mod.html').
	^ l
]

{ #category : #accessing }
TWSeed >> demo [
	
	^ demo 
]

{ #category : #accessing }
TWSeed >> demo: anUrl [
	
	demo := anUrl asZnUrl
]

{ #category : #accessing }
TWSeed >> name [
 ^ name
]

{ #category : #accessing }
TWSeed >> name: aString [ 
	name := aString
]

{ #category : #accessing }
TWSeed >> preview: anObject [
	
	^ demo := anObject
]