diff --git a/repository/Brea/BreaApp.class.st b/repository/Brea/BreaApp.class.st index 7e8148f..ad1c7a8 100644 --- a/repository/Brea/BreaApp.class.st +++ b/repository/Brea/BreaApp.class.st @@ -5,7 +5,7 @@ Class { 'name', 'folder', 'server', - 'body' + 'componets' ], #category : #Brea } @@ -23,8 +23,26 @@ BreaApp >> appName [ ] { #category : #accessing } -BreaApp >> body [ - ^ body ifNil: [ body := '' writeStream ] +BreaApp >> at: key put: anObject [ + self components at: key put: anObject. +] + +{ #category : #accessing } +BreaApp >> components [ + ^ componets ifNil: [ componets := OrderedDictionary new] +] + +{ #category : #accessing } +BreaApp >> componentsWebView [ + | response | + response := '' writeStream. + self components ifEmpty: [ ^ response contents ]. + self components valuesDo: [ :component | + response + nextPutAll: component webView; cr + ]. + ^ response contents + ] { #category : #accessing } @@ -40,7 +58,7 @@ BreaApp >> defaultView [
- ', self body contents, ' + ', self componentsWebView,'
' diff --git a/repository/Brea/String.extension.st b/repository/Brea/String.extension.st new file mode 100644 index 0000000..448ac73 --- /dev/null +++ b/repository/Brea/String.extension.st @@ -0,0 +1,6 @@ +Extension { #name : #String } + +{ #category : #'*Brea' } +String >> webView [ + ^ Pandoc htmlStringToMarkdown: self +]