Better internalization of the environment: Now Pandoc PDF exportation is controlled by options defined in a %metadata node inside the notebook.
This is the beginning of more options to connect the notebook, the playgrounds inside it, and the operative system.
This commit is contained in:
parent
da2c24287a
commit
7d4cc79cf2
@ -55,44 +55,14 @@ GrafoscopioNode class >> clipboard: anObject [
|
||||
clipboard := anObject
|
||||
]
|
||||
|
||||
{ #category : #'instance creation' }
|
||||
GrafoscopioNode class >> header: aHeader body: aText [
|
||||
"Create a new instance with given header and body"
|
||||
|
||||
^(self new)
|
||||
header: aHeader;
|
||||
body: aText;
|
||||
yourself.
|
||||
]
|
||||
|
||||
{ #category : #'instance creation' }
|
||||
GrafoscopioNode class >> header: aHeader icon: anIcon body: aText [
|
||||
"Create a new instances with given header, icon and body"
|
||||
|
||||
^(self new)
|
||||
header: aHeader;
|
||||
icon: anIcon;
|
||||
body: aText;
|
||||
yourself.
|
||||
]
|
||||
|
||||
{ #category : #'instance creation' }
|
||||
GrafoscopioNode class >> named: aString [
|
||||
"Create a new instance with a given header and empty body"
|
||||
|
||||
^(self new)
|
||||
header: aString;
|
||||
yourself
|
||||
]
|
||||
|
||||
{ #category : #utility }
|
||||
GrafoscopioNode class >> specialWords [
|
||||
"I return a list of word that were used in the first versions of grafoscopio to mark node
|
||||
"I return a list of word that were used in the first versions of Grafoscopio to mark node
|
||||
headers to indicate special ways to handle them and their node contents.
|
||||
Previous versions of first notebooks stored in grafoscopio using this convention should be
|
||||
Previous versions of first notebooks stored in Grafoscopio using this convention should be
|
||||
migrated to newer versions where tags are used for the same function with simpler code"
|
||||
|
||||
^ #('%config' '%abstract' '%invisible' '%idea' '%footnote' 'nuevoNodo' '%embed' '%item').
|
||||
^ #('%config' '%abstract' '%invisible' '%idea' '%footnote' '%metadata' '%output' '%embed' '%item').
|
||||
]
|
||||
|
||||
{ #category : #operation }
|
||||
@ -179,17 +149,20 @@ GrafoscopioNode >> ancestorsHeaders [
|
||||
|
||||
{ #category : #exporting }
|
||||
GrafoscopioNode >> asMarkdown [
|
||||
"I export children of the current node as pandoc markdown, using special nodes accoding to tags.
|
||||
Early version... tags processing should be vastly improved"
|
||||
"I export children of the current node as pandoc markdown, using special nodes
|
||||
accoding to tags.
|
||||
Early version... tags processing should be vastly improved"
|
||||
| markdownOutput |
|
||||
|
||||
markdownOutput := '' writeStream.
|
||||
self metadataAsYamlIn: markdownOutput.
|
||||
"self metadataAsYamlIn: markdownOutput."
|
||||
(self preorderTraversal) do: [ :eachNode |
|
||||
(eachNode level > 0)
|
||||
ifTrue: [(eachNode hasAncestorTaggedAs: 'invisible') | (eachNode tags includes: 'invisible')
|
||||
ifFalse: [ markdownOutput nextPutAll: (eachNode markdownContent) ]]].
|
||||
^markdownOutput contents
|
||||
ifTrue: [(eachNode hasAncestorTaggedAs: 'invisible')
|
||||
| (eachNode tags includes: 'invisible')
|
||||
ifFalse: [
|
||||
markdownOutput nextPutAll: (eachNode markdownContent) ]]].
|
||||
^ markdownOutput contents
|
||||
]
|
||||
|
||||
{ #category : #exporting }
|
||||
@ -212,8 +185,9 @@ GrafoscopioNode >> asText [
|
||||
{ #category : #initialization }
|
||||
GrafoscopioNode >> becomeDefaultTestTree [
|
||||
| node1 node2 node3 node4 |
|
||||
self level: 0.
|
||||
self header: 'Arbol principal'.
|
||||
self
|
||||
level: 0;
|
||||
header: 'Arbol principal'.
|
||||
node1 := self class new
|
||||
header: 'Markup';
|
||||
body: 'I am just a node with markup';
|
||||
@ -221,18 +195,18 @@ GrafoscopioNode >> becomeDefaultTestTree [
|
||||
links: 'temp.md';
|
||||
level: 1.
|
||||
node2 := self class new
|
||||
header: 'Code';
|
||||
body: 'ProfStef openPharoZenWorkspace';
|
||||
tagAs: 'código'.
|
||||
header: '%output Code';
|
||||
tagAs: 'código';
|
||||
body: '(ConfigurationOfGrafoscopio>>#version14:) sourceCode'.
|
||||
node3 := self class new
|
||||
header: 'Child';
|
||||
body: 'Just testing';
|
||||
tagAs: 'text'.
|
||||
tagAs: 'text';
|
||||
body: 'Just testing'.
|
||||
node1 addNode: node3.
|
||||
node4 := self class new
|
||||
header: 'Something';
|
||||
body: 'else';
|
||||
tagAs: 'text'.
|
||||
tagAs: 'text';
|
||||
body: 'else'.
|
||||
node1 addNode: node4.
|
||||
self
|
||||
addNode: node1;
|
||||
@ -243,6 +217,7 @@ GrafoscopioNode >> becomeDefaultTestTree [
|
||||
GrafoscopioNode >> becomeDefaultTree [
|
||||
"I create a starting tree for all Grafoscopio notebooks with just one textual node as child."
|
||||
| node1 |
|
||||
self class new.
|
||||
self
|
||||
level: 0;
|
||||
header: 'Arbol principal';
|
||||
@ -252,6 +227,7 @@ GrafoscopioNode >> becomeDefaultTree [
|
||||
body: '';
|
||||
tagAs: 'text'.
|
||||
self addNode: node1.
|
||||
^ self
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
@ -401,8 +377,8 @@ GrafoscopioNode >> exportCodeBlockTo: aStream [
|
||||
|
||||
{ #category : #exporting }
|
||||
GrafoscopioNode >> exportCodeNodeTo: aStream [
|
||||
"I convert the content of a node taged as 'código' (code) as pandoc markdown and put it
|
||||
into aStream."
|
||||
"I convert the content of a node taged as 'código' (code) as pandoc markdown
|
||||
and put it into aStream."
|
||||
((self headerStartsWith: '%output') or: [ self headerStartsWith: '%metadata' ])
|
||||
ifTrue: [ self exportCodeOutputTo: aStream ]
|
||||
ifFalse: [ self exportCodeBlockTo: aStream ]
|
||||
@ -410,8 +386,8 @@ GrafoscopioNode >> exportCodeNodeTo: aStream [
|
||||
|
||||
{ #category : #exporting }
|
||||
GrafoscopioNode >> exportCodeOutputTo: aStream [
|
||||
"I convert the output of a node taged as 'código' (code) as pandoc markdown and put it
|
||||
into aStream."
|
||||
"I convert the output of a node taged as 'código' (code) as pandoc markdown and
|
||||
put it into aStream."
|
||||
(self headerStartsWith: '%metadata') ifTrue: [ ^ self ].
|
||||
aStream nextPutAll: ('~~~{.numberLines}'); lf.
|
||||
aStream nextPutAll: (self output asString withInternetLineEndings); lf.
|
||||
@ -565,6 +541,7 @@ GrafoscopioNode >> initialize [
|
||||
super initialize.
|
||||
self
|
||||
header: 'newHeader';
|
||||
tagAs: 'text';
|
||||
body: '';
|
||||
level: 0
|
||||
]
|
||||
@ -697,13 +674,16 @@ GrafoscopioNode >> margins [
|
||||
|
||||
{ #category : #exporting }
|
||||
GrafoscopioNode >> markdownContent [
|
||||
"I extract the markdown of a node using body as content, header as title and level as hierarchical level of the title.
|
||||
If special nodes types are present, that use %keywords in its header or body I convert them into proper markup"
|
||||
"I extract the markdown of a node using body as content, header as title and level as
|
||||
hierarchical level of the title.
|
||||
If special nodes types are present, that use %keywords in its header or body I convert them
|
||||
into proper markup"
|
||||
| markdownStream |
|
||||
markdownStream := '' writeStream.
|
||||
(self class specialWords includes: self header) not &
|
||||
(self class specialWords includes: ((self header findTokens: $ ) at: 1)) not & (self tags ~= 'código') &
|
||||
(self hasAncestorHeaderWith: '%invisible') not
|
||||
(self class specialWords includes: self header) not
|
||||
& (self class specialWords includes: ((self header findTokens: $ ) at: 1)) not
|
||||
& (self isTaggedAs: 'código') not
|
||||
& (self hasAncestorHeaderWith: '%invisible') not
|
||||
ifTrue: [
|
||||
self headerAsMarkdownInto: markdownStream.
|
||||
self bodyAsMarkdownInto: markdownStream ].
|
||||
@ -713,9 +693,10 @@ GrafoscopioNode >> markdownContent [
|
||||
ifTrue: [ self itemAsMarkdownInto: markdownStream ].
|
||||
(self headerStartsWith: '%footnote')
|
||||
ifTrue: [ self footnoteAsMarkdownInto: markdownStream ].
|
||||
((self tags = 'código') and: [(self hasAncestorHeaderWith: '%invisible') not
|
||||
& (self headerStartsWith: '%embed') not ])
|
||||
ifTrue: [ self exportCodeNodeTo: markdownStream ].
|
||||
((self isTaggedAs: 'código')
|
||||
and: [(self hasAncestorHeaderWith: '%invisible') not
|
||||
& (self headerStartsWith: '%embed') not ])
|
||||
ifTrue: [ self exportCodeNodeTo: markdownStream ].
|
||||
^ markdownStream contents
|
||||
]
|
||||
|
||||
@ -723,31 +704,32 @@ GrafoscopioNode >> markdownContent [
|
||||
GrafoscopioNode >> metadata [
|
||||
| mnode |
|
||||
mnode := self root preorderTraversal
|
||||
detect: [:n | n headerStartsWith: '%metadata' ]
|
||||
ifNone: [^ nil].
|
||||
detect: [ :n | n headerStartsWith: '%metadata' ]
|
||||
ifNone: [ ^ nil ].
|
||||
^ mnode output.
|
||||
|
||||
]
|
||||
|
||||
{ #category : #exporting }
|
||||
GrafoscopioNode >> metadataAsYamlIn: markdownStream [
|
||||
"I convert the first '%metadata' node into a YAML preamble to be used by Pandoc exportation."
|
||||
markdownStream
|
||||
nextPutAll: '---';
|
||||
lf;
|
||||
nextPutAll: 'exportedFrom: ', self checksum;
|
||||
lf.
|
||||
"I convert the first '%metadata' node into a YAML preamble contents to be used by Pandoc
|
||||
exportation."
|
||||
self metadata
|
||||
ifNotNil: [
|
||||
self metadata
|
||||
keysAndValuesDo: [ :k :v |
|
||||
markdownStream
|
||||
nextPutAll: (k , ': ' , v asString) withInternetLineEndings;
|
||||
nextPutAll: String cr ]].
|
||||
markdownStream
|
||||
nextPutAll: '---';
|
||||
lf;
|
||||
lf
|
||||
keysAndValuesDo: [ :k :v |
|
||||
k = 'pandocOptions'
|
||||
ifTrue: [
|
||||
markdownStream
|
||||
nextPutAll:
|
||||
(k, ': ', self pandocOptionsPrettyYaml) ]
|
||||
ifFalse: [
|
||||
markdownStream
|
||||
nextPutAll:
|
||||
(k , ': ' , v asString) withInternetLineEndings;
|
||||
lf] ]].
|
||||
markdownStream
|
||||
nextPutAll: String cr, String cr.
|
||||
]
|
||||
|
||||
{ #category : #movement }
|
||||
@ -788,7 +770,7 @@ GrafoscopioNode >> newNode [
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioNode >> output [
|
||||
self tags ~= 'código' ifTrue: [ ^ self ].
|
||||
(self isTaggedAs: 'código') ifFalse: [ ^ self ].
|
||||
self body ifNil: [ ^ nil ].
|
||||
^ (Compiler evaluate: self body)
|
||||
]
|
||||
@ -803,6 +785,24 @@ GrafoscopioNode >> pandocOptions [
|
||||
^ self metadata at: 'pandocOptions' ifAbsent: [ ^ '' ]
|
||||
]
|
||||
|
||||
{ #category : #utility }
|
||||
GrafoscopioNode >> pandocOptionsPrettyYaml [
|
||||
"I convert pandoc options, if present into an indented Yaml block."
|
||||
| yamlOutput pretyOutput |
|
||||
pretyOutput := STON toStringPretty: self pandocOptions.
|
||||
yamlOutput := '' writeStream.
|
||||
yamlOutput
|
||||
nextPutAll:
|
||||
'|';
|
||||
lf.
|
||||
pretyOutput linesDo: [ :line |
|
||||
yamlOutput
|
||||
nextPutAll:
|
||||
' ', line;
|
||||
lf ].
|
||||
^ yamlOutput contents
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioNode >> parent [
|
||||
"Returns the parent of the current node"
|
||||
@ -921,11 +921,13 @@ GrafoscopioNode >> specModelClass [
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioNode >> tagAs: aTag [
|
||||
"Tags the recipient node with aTag. For the moment we will have only one tag.
|
||||
"Tags the recipient node with aTag (string). For the moment we will have only one tag.
|
||||
In the future we will have several and there will be rules to know how tags interact with
|
||||
each other"
|
||||
aTag = 'código' ifTrue: [ ^ self toggleCodeText ].
|
||||
(self tags includes: aTag)
|
||||
ifFalse: [ self tags add: aTag ]
|
||||
ifFalse: [ self tags add: aTag ].
|
||||
^ self
|
||||
|
||||
]
|
||||
|
||||
@ -958,9 +960,9 @@ GrafoscopioNode >> toggleCodeText [
|
||||
In that case, I replace the ocurrence of one tag by the other to warranty that both are not
|
||||
in the same node."
|
||||
(self isTaggedAs: 'text')
|
||||
ifTrue: [ ^ self tags replaceAll: 'text' with: 'código'. ].
|
||||
ifTrue: [ ^ self tags replaceAll: 'text' with: 'código'].
|
||||
(self isTaggedAs: 'código')
|
||||
ifTrue: [ ^ self tags replaceAll: 'código' with: 'text'. ].
|
||||
ifTrue: [ ^ self tags replaceAll: 'código' with: 'text' ].
|
||||
]
|
||||
|
||||
{ #category : #operation }
|
||||
|
||||
@ -57,6 +57,12 @@ GrafoscopioNotebook class >> open: aFileReference [
|
||||
self newDefault openFromFile: aFileReference
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> addCommandFrom: dictionary into: stream [
|
||||
dictionary keysAndValuesDo: [ :k :v |
|
||||
k = 'thisNotebook' ifTrue: [ stream nextPutAll: (self perform: #markdownFileChecksumUpto: with: 10) ] ]
|
||||
]
|
||||
|
||||
{ #category : #'editing nodes' }
|
||||
GrafoscopioNotebook >> addNode [
|
||||
| addedNode |
|
||||
@ -91,12 +97,12 @@ GrafoscopioNotebook >> body: anObject [
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> checksum [
|
||||
"I return the cryptographic signature of the workingFile where this notebook is being stored.
|
||||
I'm useful for data provenance and traceability of derivated files related with this source
|
||||
"I return the checksum (crypto hash) of the workingFile where this notebook is being stored.
|
||||
I'm useful for data provenance and traceability of derivated files coming from this source
|
||||
notebook."
|
||||
self workingFile ifNil: [ ^ self ].
|
||||
self workingFile contents = '' ifTrue: [ ^ self ].
|
||||
^ (SHA1 new hashMessage: (self workingFile contents)) hex.
|
||||
^ GrafoscopioUtils checksumFor: self workingFile
|
||||
]
|
||||
|
||||
{ #category : #'editing nodes' }
|
||||
@ -201,8 +207,8 @@ GrafoscopioNotebook >> exportAsPDF [
|
||||
self markdownFile exists ifFalse: [ self exportAsMarkdown ].
|
||||
pdfFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.pdf'.
|
||||
pdfFile asFileReference exists ifTrue: [ pdfFile asFileReference delete ].
|
||||
pandocCommand := 'pandoc ',
|
||||
self notebook pandocOptions, ' ',
|
||||
pandocCommand := 'cd ', self workingFile parent fullName,'; pandoc ',
|
||||
self pandocOptionsComputed, ' ',
|
||||
self markdownFile fullName, ' -o ', pdfFile.
|
||||
Transcript show: pandocCommand.
|
||||
ExternalUnixOSProcess command: pandocCommand.
|
||||
@ -222,10 +228,19 @@ GrafoscopioNotebook >> exportAsSton: aNotebook on: aFileStream [
|
||||
{ #category : #persistence }
|
||||
GrafoscopioNotebook >> exportNode: aGrafoscopioNode asMarkdownIn: aFile [
|
||||
"I export the current tree/document to a markdown file"
|
||||
aFile exists ifTrue: [ aFile delete ].
|
||||
aFile ensureDelete.
|
||||
aFile
|
||||
ensureCreateFile;
|
||||
writeStreamDo: [:stream | stream nextPutAll: aGrafoscopioNode asMarkdown].
|
||||
writeStreamDo: [:stream |
|
||||
stream
|
||||
nextPutAll:
|
||||
'---', String cr,
|
||||
'exportedFrom: ', self checksum, String cr.
|
||||
aGrafoscopioNode metadataAsYamlIn: stream.
|
||||
stream
|
||||
nextPutAll:
|
||||
'---', String cr, String cr,
|
||||
aGrafoscopioNode asMarkdown ].
|
||||
self inform: 'Exported as: ', String cr, aFile fullName
|
||||
]
|
||||
|
||||
@ -311,6 +326,15 @@ GrafoscopioNotebook >> links: anObject [
|
||||
links := anObject
|
||||
]
|
||||
|
||||
{ #category : #persistence }
|
||||
GrafoscopioNotebook >> loadFromFile: aFileReference [
|
||||
"I load the contents of aFileReference into a GrafoscopioNotebook, without opening it."
|
||||
self workingFile: aFileReference.
|
||||
self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
|
||||
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.
|
||||
self notebookContent: self notebook.
|
||||
]
|
||||
|
||||
{ #category : #persistence }
|
||||
GrafoscopioNotebook >> markdownFile [
|
||||
"I define the location of the markdown file where the notebook will be exported"
|
||||
@ -319,6 +343,18 @@ GrafoscopioNotebook >> markdownFile [
|
||||
^ markdownFile
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> markdownFileChecksum [
|
||||
self workingFile ifNil: [ ^ self ].
|
||||
self workingFile contents = '' ifTrue: [ ^ self ].
|
||||
^ GrafoscopioUtils checksumFor: self markdownFile
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> markdownFileChecksumUpto: anInteger [
|
||||
^ self markdownFileChecksum copyFrom: 1 to: anInteger.
|
||||
]
|
||||
|
||||
{ #category : #'editing nodes' }
|
||||
GrafoscopioNotebook >> moveNodeAfter [
|
||||
| editedNode |
|
||||
@ -451,10 +487,7 @@ GrafoscopioNotebook >> openDefault [
|
||||
{ #category : #persistence }
|
||||
GrafoscopioNotebook >> openFromFile: aFileReference [
|
||||
|
||||
self workingFile: aFileReference.
|
||||
self notebook: ((STON fromString: self workingFile contents) at: 1) parent.
|
||||
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.
|
||||
self notebookContent: self notebook.
|
||||
self loadFromFile: aFileReference.
|
||||
^ self openWithSpec.
|
||||
]
|
||||
|
||||
@ -501,6 +534,28 @@ GrafoscopioNotebook >> openFromUrlUI [
|
||||
self class new openFromUrl: fileUrl
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> pandocOptions [
|
||||
^ self notebook pandocOptions
|
||||
]
|
||||
|
||||
{ #category : #utilities }
|
||||
GrafoscopioNotebook >> pandocOptionsComputed [
|
||||
"I convert the pandoc options array into a single line that can be used with the pandoc command."
|
||||
|
||||
| result |
|
||||
result := '' writeStream.
|
||||
self pandocOptions
|
||||
do: [ :option |
|
||||
option isDictionary
|
||||
ifTrue: [
|
||||
self addCommandFrom: option into: result ]
|
||||
ifFalse: [
|
||||
result
|
||||
nextPutAll: option] ].
|
||||
^ result contents
|
||||
]
|
||||
|
||||
{ #category : #'editing nodes' }
|
||||
GrafoscopioNotebook >> pasteNodeFromClipboard [
|
||||
tree highlightedItem content pasteFromClipboard.
|
||||
@ -573,11 +628,11 @@ GrafoscopioNotebook >> removeNode [
|
||||
GrafoscopioNotebook >> saveToFile: aFileReference [
|
||||
"I save the current tree/document to a file."
|
||||
|
||||
aFileReference ifNil: [ self inform: 'No file selected for saving. Save NOT done'. ^ self ].
|
||||
aFileReference ifNil: [ self inform: 'No file selected for saving. Save NOT done.'. ^ self ].
|
||||
workingFile := aFileReference.
|
||||
self workingFile ensureDelete.
|
||||
self workingFile writeStreamDo: [:stream |
|
||||
self exportAsSton: self notebook on:stream ].
|
||||
self exportAsSton: self notebook on: stream ].
|
||||
self title: self workingFile basenameWithIndicator, ' | Grafoscopio notebook'.
|
||||
self inform: ('File saved at: ', String cr, self workingFile fullName).
|
||||
GrafoscopioDockingBar updateRecentNotebooksWith: aFileReference.
|
||||
@ -828,6 +883,6 @@ GrafoscopioNotebook >> workingFile [
|
||||
]
|
||||
|
||||
{ #category : #accessing }
|
||||
GrafoscopioNotebook >> workingFile: aFile [
|
||||
workingFile := aFile.
|
||||
GrafoscopioNotebook >> workingFile: aFileReference [
|
||||
workingFile := aFileReference.
|
||||
]
|
||||
|
||||
Loading…
Reference in New Issue
Block a user