Default Markdown and webView for DataFrames.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2024-04-01 13:17:59 -05:00
parent da4c9bf9c4
commit 6832d9024d
3 changed files with 48 additions and 0 deletions

View File

@ -1,5 +1,26 @@
Extension { #name : #DataFrame } Extension { #name : #DataFrame }
{ #category : #'*MiniDocs' }
DataFrame >> asMarkdown [
| response |
response := '' writeStream.
self columnNames do: [ :name | response nextPutAll: '| ' , name , ' ' ].
response
nextPutAll: '|';
cr.
self columns size timesRepeat: [ response nextPutAll: '|---' ].
response
nextPutAll: '|';
cr.
self asArrayOfRows
do: [ :row |
row do: [ :cell | response nextPutAll: '| ' , cell asString , ' ' ].
response
nextPutAll: '|';
cr ].
^ response contents withInternetLineEndings.
]
{ #category : #'*MiniDocs' } { #category : #'*MiniDocs' }
DataFrame >> viewDataFor: aView [ DataFrame >> viewDataFor: aView [
<gtView> <gtView>
@ -17,3 +38,9 @@ DataFrame >> viewDataFor: aView [
]. ].
^ columnedList ^ columnedList
] ]
{ #category : #'*MiniDocs' }
DataFrame >> webView [
^ Pandoc convertString: self asMarkdown from: 'markdown' to: 'html'
]

View File

@ -10,6 +10,16 @@ Class {
#category : #'MiniDocs-Core' #category : #'MiniDocs-Core'
} }
{ #category : #'*MiniDocs' }
Pandoc class >> convertString: aString from: inputFormat to: outputFormat [
OSSUnixSubprocess new
shellCommand: 'echo "', aString , '" | pandoc -f ', inputFormat,' -t ', outputFormat;
redirectStdout;
runAndWaitOnExitDo: [ :command :outString |
^ outString
].
]
{ #category : #'as yet unclassified' } { #category : #'as yet unclassified' }
Pandoc class >> downloadLuaFilters [ Pandoc class >> downloadLuaFilters [
self luaFilters do: [ :filter | | filterUrl | self luaFilters do: [ :filter | | filterUrl |

View File

@ -0,0 +1,11 @@
Extension { #name : #Pandoc }
{ #category : #'*MiniDocs' }
Pandoc class >> convertString: aString from: inputFormat to: outputFormat [
OSSUnixSubprocess new
shellCommand: 'echo "', aString , '" | pandoc -f ', inputFormat,' -t ', outputFormat;
redirectStdout;
runAndWaitOnExitDo: [ :command :outString |
^ outString
].
]