From c60959527231976a1e60ad378e6381e3b3d46b15 Mon Sep 17 00:00:00 2001 From: Offray Luna Date: Sat, 30 Mar 2024 10:41:25 -0500 Subject: [PATCH] Starting implementation of default app view body. --- repository/Brea/BreaApp.class.st | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/repository/Brea/BreaApp.class.st b/repository/Brea/BreaApp.class.st index 855aaac..7e8148f 100644 --- a/repository/Brea/BreaApp.class.st +++ b/repository/Brea/BreaApp.class.st @@ -10,6 +10,13 @@ Class { #category : #Brea } +{ #category : #accessing } +BreaApp >> add: anObject [ + anObject class = String ifFalse: [ ]. + self body + nextPutAll: (Pandoc htmlStringToMarkdown: anObject); cr. +] + { #category : #accessing } BreaApp >> appName [ ^ self name asCamelCase @@ -17,7 +24,7 @@ BreaApp >> appName [ { #category : #accessing } BreaApp >> body [ - ^ body ifNil: [ body := '' writeStream contents ] + ^ body ifNil: [ body := '' writeStream ] ] { #category : #accessing } @@ -33,7 +40,7 @@ BreaApp >> defaultView [
- ', self body, ' + ', self body contents, '
'