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

Improving defaults and user feedback messages.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2021-11-04 04:37:45 -05:00
parent 18ac255deb
commit 56e048ecb3
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
repository/TiddlyWiki/TiddlyWiki.class.st
View File

@ -60,7 +60,11 @@ TiddlyWiki >> exportJSONSubtiddlers: subtiddlersCollection [
{ #category : #accessing }
TiddlyWiki >> exportSTONFile [
| stonFile output wikiTemp |
stonFile := self tiddlersJSONFile withoutExtension, 'ston'.
self tiddlersJSONFile
ifNil: [
self inform: 'No JSON Tiddlers file found. If you have one, please provide its location'.
stonFile := FileLocator temp / 'tiddlers.ston' ]
ifNotNil: [ stonFile := self tiddlersJSONFile withoutExtension, 'ston' ].
output := '' writeStream.
(STON writer on: output )
newLine: String lf;
@ -199,8 +203,8 @@ TiddlyWiki >> tiddlers: anOrderedCollection [
{ #category : #accessing }
TiddlyWiki >> tiddlersJSONFile [
| jsonFile |
file ifNil: [
self inform: 'Provide the location of the TiddlyWiki HTML file.'.
self file ifNil: [
self inform: 'No TiddlyWiki HTML file found. If you have one, please provide its location.'.
^ nil
].
jsonFile := file parent / 'tiddlers.json'.