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

Improving Markdeep exportation.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-01-30 13:57:25 -05:00
parent c5f71e8230
commit abbafcf4e5
4 changed files with 63 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
repository/Grafoscopio-Utils/LeModel.extension.st Normal file
View File

@ -0,0 +1,24 @@
Extension { #name : #LeModel }
{ #category : #'*Grafoscopio-Utils-Core' }
LeModel >> metadata [
^ OrderedDictionary new
at: 'id' put: self uidString;
at: 'parent' put: self parent uidString;
at: 'created' put: self createTime asString;
at: 'edited' put: self latestEditTime asString;
at: 'creator' put: self createEmail asString;
at: 'editor' put: self editEmail asString;
yourself.
]
{ #category : #'*Grafoscopio-Utils-Core' }
LeModel >> metadataDiv [
| output |
output := '' writeStream.
output
nextPutAll: '<div st-class="', self class asString, '"'; lf;
nextPutAll: ' st-data="', (STON toString: self metadata), '">'; lf.
^ output contents.
]

19
repository/Grafoscopio-Utils/LePage.extension.st
View File

@ -20,6 +20,13 @@ LePage >> asMarkdeep [
^ markdeep.
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePage >> asMarkdeepFile [
| folder |
folder := self options at: 'storage' ifAbsent: [ FileLocator temp ].
^ self asMarkdeep exportAsFileOn: folder / self markdeepFileName
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePage >> asMarkdeepInto: aFileLocator [
@ -32,16 +39,16 @@ LePage >> fileName [
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePage >> markdeepPreview [
^ self asMarkdeep exportAsFileOn: self markdeepTemporalFile
LePage >> markdeepFileName [
| sanitized |
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePage >> markdeepTemporalFile [
| fileName sanitized |
sanitized := self title asDashedLowercase copyWithoutAll: #($/).
fileName := sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
^ FileLocator temp / fileName.
^ FileLocator temp / self markdeepFileName.
]
{ #category : #'*Grafoscopio-Utils-Core' }

26
repository/Grafoscopio-Utils/LePictureSnippet.extension.st Normal file
View File

@ -0,0 +1,26 @@
Extension { #name : #LePictureSnippet }
{ #category : #'*Grafoscopio-Utils-Core' }
LePictureSnippet >> asMarkdeep [
| output |
output := '' writeStream.
output
nextPutAll: self metadataDiv;
nextPutAll: self centeredFigure; lf;
nextPutAll: '</div>'; lf; lf.
^ output contents
]
{ #category : #'*Grafoscopio-Utils-Core' }
LePictureSnippet >> centeredFigure [
^ '<center>
<figure>
<img src="' , self urlString , '"
width="' , (self optionAt: 'width' ifAbsent: [ '75%' ]) , '"
/>
<figcaption>*' , (self optionAt: 'caption' ifAbsent: [ '' ]) , '*
</figcaption>
</figure>
</center>'
]

12
repository/Grafoscopio-Utils/LeTextualSnippet.extension.st
View File

@ -30,15 +30,3 @@ LeTextualSnippet >> markdeepCustomCloser [
LeTextualSnippet >> markdeepCustomOpener [
^ ''
]
{ #category : #'*Grafoscopio-Utils-Core' }
LeTextualSnippet >> metadata [
^ OrderedDictionary new
at: 'id' put: self uidString;
at: 'parent' put: self parent uidString;
at: 'created' put: self createTime asString;
at: 'edited' put: self latestEditTime asString;
at: 'creator' put: self createEmail asString;
at: 'editor' put: self editEmail asString;
yourself.
]