Fixing unreachable code.
This commit is contained in:
parent
d04db00cb5
commit
0ff99de896
@ -342,7 +342,7 @@ TiddlyWiki >> exportTW5Tiddlers [
|
||||
{ #category : #accessing }
|
||||
TiddlyWiki >> file [
|
||||
|
||||
^ file ifNil: [ file := self folder / 'index.html' ]
|
||||
^ file
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
@ -353,9 +353,8 @@ TiddlyWiki >> file: anObject [
|
||||
{ #category : #accessing }
|
||||
TiddlyWiki >> folder [
|
||||
folder ifNotNil: [ ^ folder ].
|
||||
self file
|
||||
ifNotNil: [ folder := self file parent ]
|
||||
ifNil: [ folder := FileLocator temp ]
|
||||
self file ifNotNil: [ file parent ].
|
||||
^ folder := FileLocator temp
|
||||
|
||||
]
|
||||
|
||||
@ -428,10 +427,7 @@ TiddlyWiki >> importJSONFile [
|
||||
{ #category : #accessing }
|
||||
TiddlyWiki >> importJSONLink [
|
||||
|
||||
jsonFile := self folder / 'tiddlers.json'.
|
||||
self
|
||||
name;
|
||||
file.
|
||||
self jsonFile: self folder / 'tiddlers.json'.
|
||||
MarkupFile exportAsFileOn: jsonFile containing: self remoteTiddlersContentsString.
|
||||
^ self fromString: self remoteTiddlersContentsString
|
||||
]
|
||||
@ -468,8 +464,8 @@ TiddlyWiki >> isInTiddlyHost [
|
||||
TiddlyWiki >> jsonFile [
|
||||
^ jsonFile ifNil: [
|
||||
self htmlFileExists ifNotNil:
|
||||
[ jsonFile := file parent / 'tiddlers.json' ]
|
||||
]
|
||||
[ jsonFile := self folder / 'tiddlers.json' ]
|
||||
]
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
|
Loading…
Reference in New Issue
Block a user