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

Merge 6055fd04f4

This commit is contained in:
Offray Vladimir Luna Cárdenas 2020-12-19 11:24:36 -05:00
parent 9f28bccc1e 6055fd04f4
commit 5b04df81b7
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
repository/Brea/BreaFile.class.st
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

3
repository/Brea/BreaPage.class.st
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

2
repository/Brea/BreaTheme.class.st
View File

@ -143,7 +143,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
]