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

Improving download for wikis with embedded media.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-07-28 13:28:53 -05:00
parent d72f4df6fe
commit eedff7e4cc
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -229,7 +229,16 @@ TiddlyWiki >> downloadHTML [
] ]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> downloadJSONCache [ TiddlyWiki >> downloadLink: v into: subfolder [
| filePath fileName semiFilePath |
fileName := v asUrl segments last.
semiFilePath := subfolder , fileName.
filePath := (FileLocator temp / semiFilePath) fullName.
GtSubprocessWithInMemoryOutput new
shellCommand: 'curl -L -# ' , v , ' -o ' , filePath;
runAndWait;
stdout.
^ FileLocator temp / semiFilePath
] ]
{ #category : #accessing } { #category : #accessing }
@ -557,6 +566,11 @@ TiddlyWiki >> isInTiddlyHost [
^ self remote host endsWith: 'tiddlyhost.com' ^ self remote host endsWith: 'tiddlyhost.com'
] ]
{ #category : #accessing }
TiddlyWiki >> jsonCache [
self downloadLink: self tiddlersJSONUrl into: self folder.
]
{ #category : #accessing } { #category : #accessing }
TiddlyWiki >> jsonFile [ TiddlyWiki >> jsonFile [
^ jsonFile ifNil: [ ^ jsonFile ifNil: [
@ -859,7 +873,7 @@ TiddlyWiki >> remoteTiddlersContentsString [
self isInTiddlyHost ifFalse: [ ^ self ]. self isInTiddlyHost ifFalse: [ ^ self ].
jsonAddress := self remote asString, '/tiddlers.json'. jsonAddress := self remote asString, '/tiddlers.json'.
^ [jsonAddress asZnUrl retrieveContents] ^ [jsonAddress asZnUrl retrieveContents]
onErrorDo: [ self downloadJSONCache ]. onErrorDo: [ self jsonCache ].
] ]
{ #category : #accessing } { #category : #accessing }