Merge pull request 'Improving Windows support.' (#2) from Windows into master
This commit is contained in:
commit
6055fd04f4
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user