Offray/TiddlyWikiPharo
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Commit before migrating to a new image.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-07-03 21:50:26 -05:00
parent ff5a5ca804
commit 14ecfa16f7
2 changed files with 43 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
repository/TiddlyWiki/TWSeed.class.st
View File

@ -26,6 +26,34 @@ TWSeed class >> deleteWikiFileFromFolder: folder andSubfolder: shortName [
^ file ensureDelete. ^ 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 } { #category : #accessing }
TWSeed class >> install: seedName into: folder as: shortName [ 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 } { #category : #accessing }
TWSeed class >> selectSeed: aSeedName [ TWSeed class >> selectSeed: aSeedName [
@ -81,31 +115,6 @@ TWSeed >> demo: anUrl [
demo := anUrl asZnUrl 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 } { #category : #accessing }
TWSeed >> name [ TWSeed >> name [
^ name ^ name
@ -121,3 +130,10 @@ TWSeed >> preview: anObject [
^ demo := anObject ^ demo := anObject
] ]
{ #category : #accessing }
TWSeed >> printOn: aStream [
super printOn: aStream.
aStream
nextPutAll: '( ', self name, ' )'
]

4
repository/TiddlyWiki/Tiddler.class.st
View File

@ -48,7 +48,7 @@ Tiddler >> asDictionary [
at: 'title' put: self title; at: 'title' put: self title;
at: 'text' put: self text; at: 'text' put: self text;
at: 'created' put: self created; at: 'created' put: self created;
at: 'tags' put: self tags; at: 'tags' put: self tags asArray;
at: 'type' put: self type; at: 'type' put: self type;
at: 'creator' put: self creator; at: 'creator' put: self creator;
at: 'modifier' put: self modifier; at: 'modifier' put: self modifier;
@ -479,7 +479,7 @@ Tiddler >> revision: aNumberString [
{ #category : #accessing } { #category : #accessing }
Tiddler >> tags [ Tiddler >> tags [
^ tags ^ tags ifNil: [tags := Set new]
] ]
{ #category : #accessing } { #category : #accessing }