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

Fixing folder request in methods and replacing tiddler ston exporter for common tiddlers.

This commit is contained in:
ruidajo 2022-10-10 11:13:21 -05:00
parent 854a398a50
commit 1e6bcf218f
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -184,7 +184,7 @@ Tiddler >> exportSTONFile [
Tiddler >> exportSTONFileInto: subfolder [
| stonFile |
stonFile := self wiki file parent / subfolder / self fileName.
stonFile := self wiki folder / subfolder / self fileName.
^ MarkupFile exportAsFileOn: stonFile containing: self asStonStringPretty
]

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

@ -160,16 +160,16 @@ TiddlyWiki >> contentTiddlers [
{ #category : #accessing }
TiddlyWiki >> detectRepositoryLocal [
| folder folderItems |
folder := self file parent.
folderItems := folder children.
| wikiFolder folderItems |
wikiFolder := self folder.
folderItems := wikiFolder children.
[(folderItems select: [ :path | (path basename beginsWith: '.fslckout') or:
[ path basename beginsWith: '.fossil']]) isEmpty
and:[ (folder = FileLocator root) not ]]
whileTrue: [folder := folder parent.
folderItems := folder children.].
folder = FileLocator root ifTrue: [ ^ nil ].
^ folder
and:[ (wikiFolder = FileLocator root) not ]]
whileTrue: [wikiFolder := wikiFolder parent.
folderItems := wikiFolder children.].
wikiFolder = FileLocator root ifTrue: [ ^ nil ].
^ wikiFolder
]
{ #category : #accessing }
@ -194,7 +194,7 @@ TiddlyWiki >> exportCommonTiddlers [
| content |
content := self commonTiddlers.
content do: [ :each |
each exportSTONFileOptimized ].
each exportSTONFile ].
^ self tiddlersFolder
]
@ -313,7 +313,8 @@ TiddlyWiki >> exportTW5Tiddlers [
{ #category : #accessing }
TiddlyWiki >> file [
^ file
^ file ifNil: [ file := self folder / 'index.html' ]
]
{ #category : #accessing }