Merge pull request 'Improving Windows support.' (#2) from Windows into master

This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-12-18 13:54:40 -05:00
commit 6055fd04f4
13 changed files with 1110 additions and 1100 deletions

View File

@ -43,6 +43,13 @@ BreaFile >> contents [
(self name endsWith: '.json') ifTrue: [ ^ NeoJSONObject fromString: file contents ]
]
{ #category : #accessing }
BreaFile >> file [
self folder ifNil: [ ^ self ].
self name ifNil: [ ^ self ].
^ self folder / self name.
]
{ #category : #accessing }
BreaFile >> folder [
^ folder

View File

@ -26,6 +26,9 @@ Class {
BreaPage >> bodyContentsAsHTML [
| sourcePage |
self contentsFile ifNil: [ ^ self ].
Smalltalk os isWindows ifTrue: [
^ Pandoc markdownToHtml: self file file
].
sourcePage := FileLocator temp / 'wikiPage.md'.
MarkupFile exportAsFileOn: sourcePage containing: self contents.
^ Pandoc markdownToHtml: sourcePage

View File

@ -144,7 +144,7 @@ BreaTheme >> folder: anObject [
BreaTheme >> installInto: aFolder [
| zippedFile |
self url ifNil: [ ^ self ].
zippedFile := self downloadInto: aFolder.
zippedFile := self downloadInto: FileLocator temp.
(ZipArchive new readFrom: zippedFile) extractAllTo: aFolder.
^ aFolder
]