Starting implementation of default app view body.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-03-30 10:41:25 -05:00
parent 81298aefba
commit c609595272

View File

@ -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 [
</head>
<body>
<main class="container">
', self body, '
', self body contents, '
</main>
</body>
</html>'