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

Created and edited times management started.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-01-22 23:33:24 -05:00
parent ae7d315699
commit 2f9bef131f
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/MiniDocs/GrafoscopioNode.class.st
View File

@ -23,9 +23,7 @@ GrafoscopioNode >> asLePage [
page := LePage new
title: 'Grafoscopio Notebook (imported)'.
self nodesInPreorder allButFirst do: [:node |
page addSnippet: node asSnippet.
(node level = 1)
ifFalse: [ node asSnippet parent: node parent asSnippet ]
page addSnippet: node asSnippet .
].
^ page.
]
@ -35,7 +33,8 @@ GrafoscopioNode >> asSnippet [
| snippet child |
snippet := LeTextSnippet new
string: self header;
createTime: self created.
createTime: self created;
uid: LeUID new.
(self tags includes: 'código')
ifFalse: [
child := LeTextSnippet new;
@ -43,7 +42,9 @@ GrafoscopioNode >> asSnippet [
ifTrue: [
child := LePharoSnippet new;
code: self body ].
child createTime: self created.
child
createTime: self created;
uid: LeUID new.
snippet addFirstSnippet: child.
snippet optionAt: 'tags' put: self tags.
^ snippet
@ -71,6 +72,7 @@ GrafoscopioNode >> children: anObject [
{ #category : #accessing }
GrafoscopioNode >> created [
created ifNotNil: [^created asDateAndTime].
^ created
]
@ -81,7 +83,7 @@ GrafoscopioNode >> created: anObject [
{ #category : #accessing }
GrafoscopioNode >> edited [
^ edited
^ edited asDateAndTime
]
{ #category : #accessing }