Transforms the level into a calculated number.

Implements 'see html' / 'see pdf'. 
Changes parts of the process usage to taskit shell. 
Starts implementation of wrapBody in image.

repository/Grafoscopio/GfWorldMenu.class.st

@@ -44,7 +44,6 @@ GfWorldMenu class >> helpMenuOn: aBuilder [
 { #category : #'world menu' }
 GfWorldMenu class >> launchMenuOn: aBuilder [
 	<worldMenu>
-	
 	(aBuilder item: #'New notebook')
 		label: 'New notebook';
 		order: 1;
@@ -55,6 +54,10 @@ GfWorldMenu class >> launchMenuOn: aBuilder [
 		order: 2;
 		parent: #GfLaunch;
 		action: [ GrafoscopioNotebook new openFromFileSelector ].
+	(aBuilder item: #GfLaunchOpenRecent)
+		label: 'Open recent...';
+		order: 2;
+		parent: #GfLaunch.
 	(aBuilder item: #'Notebook from the Internet...')
 		label: 'Notebook from the Internet...';
 		order: 3;
@@ -64,7 +67,7 @@ GfWorldMenu class >> launchMenuOn: aBuilder [
 		label: 'Recent notebooks...';
 		order: 4;
 		parent: #GfLaunch;
-		action: [ GfUIHelpers openFromRecentlyUsed ].	
+		action: [ GfUIHelpers openFromRecentlyUsed ]
 ]
 
 { #category : #'world menu' }
@@ -81,6 +84,19 @@ GfWorldMenu class >> mainMenuItemsOn: aBuilder [
 			(aBuilder item: #GfHelpAndDocs; label: 'Help & Docs') target: self. ]
 ]
 
+{ #category : #'world menu' }
+GfWorldMenu class >> openRecentMenu: aBuilder [
+	<worldMenu>
+
+	GrafoscopioNotebook recents
+		do: [ :f | 
+			(aBuilder item: #'Open', f basename )
+				label: 'Open ', f basename;
+				order: 1;
+				parent: #GfLaunchOpenRecent;
+				action: [ GrafoscopioNotebook open: f ] ]
+]
+
 { #category : #'world menu' }
 GfWorldMenu class >> updateMenuOn: aBuilder [
 	<worldMenu>

repository/Grafoscopio/GrafoscopioNode.class.st

@@ -24,7 +24,6 @@ Class {
 		'children',
 		'parent',
 		'node',
-		'level',
 		'nodesInPreorder',
 		'links',
 		'output'
@@ -96,7 +95,6 @@ GrafoscopioNode >> addNode: aNode [
 	 of the node"
 	"aNode parent = self ifTrue: [ ^ self ]."
 	self children add: aNode.
-	aNode level: (self level) + 1.
 	aNode parent: self.
 	^aNode
 ]
@@ -105,10 +103,12 @@ GrafoscopioNode >> addNode: aNode [
 GrafoscopioNode >> addNodeAfterMe [
 	"Adds a generic node after the given node so they become slibings of the same parent"
 	| genericNode |
-	genericNode := self class new header: 'newNode'; body: ''.
+	genericNode := self class new 
+		created: DateAndTime now printString;
+		header: 'newNode'; 
+		body: ''.
 	self parent children add: genericNode after: self.
 	genericNode parent: self parent.
-	genericNode level: self level.
 	^ genericNode
 	
 ]
@@ -185,6 +185,17 @@ GrafoscopioNode >> asSton [
 	"Exports current tree as STON format"
 	| stonOutput |
 	
+	stonOutput := '' writeStream.
+	stonOutput nextPutAll:  (STON toStringPretty: self "flatten").	
+	^stonOutput contents 
+	
+]
+
+{ #category : #exporting }
+GrafoscopioNode >> asStonFromRoot [
+	"Exports current tree as STON format"
+	| stonOutput |
+	
 	stonOutput := '' writeStream.
 	self flatten.
 	stonOutput nextPutAll:  (STON toStringPretty: self children).	
@@ -192,33 +203,31 @@ GrafoscopioNode >> asSton [
 	
 ]
 
-{ #category : #accessing }
-GrafoscopioNode >> asText [
-	^ self body
-]
-
 { #category : #initialization }
 GrafoscopioNode >> becomeDefaultTestTree [
 	| node1 node2 node3 node4 |
 	self 
-		level: 0; 
+		created: DateAndTime now printString;
 		header: 'Arbol principal'.	
 	node1 := self class new
+		created: DateAndTime now printString;
 		header: 'Markup';
 		body:  'I am <b>just a node with markup</b>';
 		tagAs: 'text';
-		links: 'temp.md';
+		links: 'temp.md'.
-		level: 1.
 	node2 := self class new
+		created: DateAndTime now printString;
 		header: '%output Code';
 		tagAs: 'código';
 		body:  '(ConfigurationOfGrafoscopio>>#version14:) sourceCode'.
 	node3 := self class new
+		created: DateAndTime now printString;
 		header: '%invisible';
 		tagAs: 'text';
 		body:  '<i>Just testing</i>'.
 	node1 addNode: node3.
 	node4 := self class new
+		created: DateAndTime now printString;
 		header: 'Something';
 		tagAs: 'text';
 		body:  '<h1>else</h1>'.
@@ -234,10 +243,11 @@ GrafoscopioNode >> becomeDefaultTree [
 	| node1 |
 	self class new.
 	self
-		level: 0;
+		created: DateAndTime now printString;
 		header: 'Arbol principal';
 		tagAs: 'código'.	
 	node1 := self class new
+		created: DateAndTime now printString;
 		header: 'Node 1';
 		body:  '';
 		tagAs: 'text'.	
@@ -255,8 +265,6 @@ GrafoscopioNode >> body [
 
 { #category : #accessing }
 GrafoscopioNode >> body: anObject [
-	"Sets the receivers body to the given object"
-	
 	body := anObject
 ]
 
@@ -279,11 +287,33 @@ GrafoscopioNode >> bodyAsMarkdownInto: aStream [
 	self embeddedNodes ifNotNil: [ aStream nextPutAll: (self embedNodes contents asString withInternetLineEndings); crlf; crlf].
 ]
 
+{ #category : #exporting }
+GrafoscopioNode >> calculateLevel [
+	^ parent ifNil: [ 0 ] ifNotNil: [ 1 + parent calculateLevel ]
+]
+
 { #category : #operation }
 GrafoscopioNode >> checksum [
+	"I return the SHA1SUM of the current node. 
+	I'm used to test changes on the node contents, without including changes in the children."
+	| nodeCopy |
+	nodeCopy := self surfaceCopy.
+	^ self checksumFor: nodeCopy asSton.
+]
+
+{ #category : #utility }
+GrafoscopioNode >> checksumFor: aText [
 	"I return the SHA1SUM of the current tree. I'm used to test changes on the contents
 	and for traceability of how the document tree is converted to other formats, as markdown."
-	^ (SHA1 new hashMessage: self root flatten asSton) hex
+	^ (SHA1 new hashMessage: aText) hex
+]
+
+{ #category : #operation }
+GrafoscopioNode >> checksumForRootSubtree [
+	"I return the SHA1SUM of the current tree. I'm used to test changes on the contents
+	and for traceability of how the document tree is converted to other formats, as markdown."
+	^ self checksumFor: self root flatten asStonFromRoot.
+	"^ (SHA1 new hashMessage: self root flatten asStonFromRoot) hex"
 ]
 
 { #category : #accessing }
@@ -305,7 +335,7 @@ GrafoscopioNode >> children: aCollection [
 GrafoscopioNode >> content [
 	"Returns the receivers body"
 	
-	^ body
+	^ self body
 
 ]
 
@@ -323,6 +353,19 @@ GrafoscopioNode >> copyToClipboard [
 	
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> created [
+	
+	^ created
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> created: aTimestamp [
+	"I tell when this object was created"
+	
+	created :=  aTimestamp
+]
+
 { #category : #operation }
 GrafoscopioNode >> currentLink [
 	"TODO: This method should not only select sanitized links, but also provide ways to detect wich link
@@ -353,6 +396,34 @@ GrafoscopioNode >> demote [
 	
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioNode >> detectSelectionIndex [
+	"I tell which is the index of the current selected node or return the first childre
+	(indexed at 1) if is not found."
+
+	| root |
+	root := self root.
+	root preorderTraversal allButFirst doWithIndex: [ :currentNode :index |
+		currentNode isSelected ifTrue: [ ^ index ] ].
+	^ 1.
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> edited [
+	^ edited
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> edited: aTimestamp [
+	"I store the last time when a node was edited.	
+	Because nodes in the notebook have a autosave feature, I'm updated automatically when nodes are
+	edited from the GUI.
+	
+	If I'm in the notebook root (i.e. node's level equals 0) I should store the last time the notebook
+	was saved on the hard drive."
+	edited := aTimestamp
+]
+
 { #category : #'custom markup' }
 GrafoscopioNode >> embedAll [
 	"This is just a previous part of the messy markDownContent. The %embed-all keyword should be revaluated.
@@ -387,6 +458,13 @@ GrafoscopioNode >> embeddedNodes [
 	^ self children select: [:each | each headerStartsWith: '%embed']
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> expanded: aBoolean [
+	"I tell if the node is expanded from the UI, showing my children.
+	Several nodes can be expanded in a single document."
+	selected := aBoolean 
+]
+
 { #category : #exporting }
 GrafoscopioNode >> exportCodeBlockTo: aStream [
 	"I convert the content of a node taged as 'código' (code) as pandoc markdown and put it 
@@ -465,7 +543,7 @@ GrafoscopioNode >> footnoteAsMarkdownInto: aStream [
 	and replace all line endings to make them Internet friendly.
 	Maybe I should include the condition about my own header, instead of leaving it to markdownCotent..."
 	aStream nextPutAll: ('[^',(self header copyReplaceAll: '%footnote ' with: ''),']: ' ); lf.
-	self body contents withInternetLineEndings 
+	self body contents asString withInternetLineEndings 
 		linesDo: [ :line | aStream nextPutAll: '    ', line; lf ].
 	aStream nextPutAll: String lf.
 	
@@ -567,6 +645,18 @@ GrafoscopioNode >> icon: aSymbol [
 	icon := aSymbol
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> id [
+	^id
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> id: aChecksum [
+	"I'm a unique identifier that changes when node content changes (i.e. header, body, links)."	
+		
+	id := aChecksum  
+]
+
 { #category : #importing }
 GrafoscopioNode >> importHtmlLink [
 	"I take the last link and import its contents in node body. "
@@ -601,8 +691,7 @@ GrafoscopioNode >> initialize [
 	self
 		header: 'newHeader';
 		tagAs: 'text';
-		body: '';
+		body: ''
-		level: 0
 ]
 
 { #category : #accessing }
@@ -610,6 +699,21 @@ GrafoscopioNode >> isEmpty [
 	body ifNil: [ ^ true ] ifNotNil: [ ^ false ] 
 ]
 
+{ #category : #operation }
+GrafoscopioNode >> isSavedAfterLastEdition [
+	| root  |
+	root := self root.
+	root edited ifNil: [ ^ false ].
+	^ self unsavedNodes isEmpty.
+	"self unsavedNodes isEmpty ifFalse: [ ^ self unsavedNodes inspect ]"
+]
+
+{ #category : #testing }
+GrafoscopioNode >> isSelected [
+	self selected ifNil: [ ^ false ].
+	^ self selected. 
+]
+
 { #category : #operation }
 GrafoscopioNode >> isTaggedAs: aString [
 	self tags ifEmpty: [ self tagAs: 'text' ].
@@ -668,15 +772,7 @@ GrafoscopioNode >> lastNetLink [
 GrafoscopioNode >> level [ 	
 	"Returns the level of the node. See the setter message for details"	
 		
-	^level
+	^ self calculateLevel 
-]
-
-{ #category : #accessing }
-GrafoscopioNode >> level: anInteger [
-	"Sets the node level in a hierarchy. The only node with level 0 is the root node and from there levels increase
-	 in 1 for its direct children, 2 for its grand children and so on. Silibings nodes has the same level"	
-		
-	level := anInteger 
 ]
 
 { #category : #accessing }
@@ -691,12 +787,12 @@ GrafoscopioNode >> links: anObject [
 ]
 
 { #category : #operation }
-GrafoscopioNode >> linksToMarkdownFile [
+GrafoscopioNode >> linksToMarkupFile [
 	"I detect if the links contains any reference to a file ending in '.md' or '.markdown'"
 	self links 
 		ifNotNil: [ 
 			self links 
-				detect: [:l | (l endsWith: '.md') or: [ l endsWith: '.markdown']]
+				detect: [:l | (l endsWithAnyOf:  #('.md' '.markdown' '.md.html'))]
 					ifFound: [ ^ true ]
 					ifNone: [^ false]].
 	^ false
@@ -831,9 +927,12 @@ GrafoscopioNode >> newNode [
 
 { #category : #accessing }
 GrafoscopioNode >> output [
-	(self isTaggedAs: 'código') ifFalse: [ ^ self ].
+	(self isTaggedAs: 'código')
+		ifFalse: [ ^ self ].
 	self body ifNil: [ ^ nil ].
-	^ (Compiler evaluate: self body) 
+	^ OpalCompiler new
+		source: self body;
+		evaluate
 ]
 
 { #category : #accessing }
@@ -904,6 +1003,21 @@ GrafoscopioNode >> preorderTraversal [
 	^ nodesInPreorder.
 ]
 
+{ #category : #'as yet unclassified' }
+GrafoscopioNode >> preorderTraversalIndex [
+	"I tell which place I occupy in the tree children (without counting the root)."
+
+	| root |
+	root := self root.
+	root preorderTraversalRootChildren doWithIndex: [ :currentNode :index |
+		currentNode = self ifTrue: [^ index] ].
+]
+
+{ #category : #'as yet unclassified' }
+GrafoscopioNode >> preorderTraversalRootChildren [
+	^ self root preorderTraversal allButFirst
+]
+
 { #category : #movement }
 GrafoscopioNode >> promote [
 	"Moves the current node up in the hierachy, making it a slibing of its current parent"
@@ -913,7 +1027,6 @@ GrafoscopioNode >> promote [
 	collection isNotNil & grandparent isNotNil 
 		ifTrue: [ 
 			(grandparent children) add: self after: (self parent).
-			self level: (self parent) level.
 			self parent: grandparent.
 			collection remove: self.]
 	
@@ -996,8 +1109,20 @@ GrafoscopioNode >> saveContent: anObject [
 ]
 
 { #category : #operation }
-GrafoscopioNode >> selectMarkdownSubtreesToExport [
+GrafoscopioNode >> selectMarkupSubtreesToExport [
-	^ (self root preorderTraversal) select: [ :each | each linksToMarkdownFile ].
+	^ (self root preorderTraversal) select: [ :each | each linksToMarkupFile ].
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> selected [
+	^ selected 
+]
+
+{ #category : #accessing }
+GrafoscopioNode >> selected: aBoolean [
+	"I tell if the node is selected from the UI.
+	Once other node is selected my value becomes false."
+	selected := aBoolean 
 ]
 
 { #category : #accessing }
@@ -1029,10 +1154,12 @@ GrafoscopioNode >> surfaceCopy [
 	to the rest of the container tree, which could end in copying the whole tree."
 	| newNode |
 	newNode := self class new.
-	^ newNode
+	newNode
 		header: self header;
 		body: self body;
 		tags: self tags.
+	self links ifNotEmpty: [ newNode links addAll: self links ].
+	^ newNode.
 	
 	
 ]
@@ -1088,6 +1215,36 @@ GrafoscopioNode >> toggleCodeText [
 		ifTrue: [ ^ self tags replaceAll: 'código' with: 'text' ].
 ]
 
+{ #category : #accessing }
+GrafoscopioNode >> toggleSelected [
+	"I made the receiver the current selected node and deselect all other nodes."
+	
+	| root previousSelection |	
+	self isSelected ifTrue: [ ^ self ].
+	root := self root.
+	previousSelection := self preorderTraversalRootChildren at: (self detectSelectionIndex).
+	previousSelection selected: false.
+	self selected: true.
+	^ self.
+]
+
+{ #category : #operation }
+GrafoscopioNode >> unsavedNodes [
+	"I collect all nodes that have changed after the last saving"
+	| lastSavedOn root unsavedNodes |
+	root := self root.
+	lastSavedOn := root edited asDateAndTime.
+	unsavedNodes := root preorderTraversal select: [ :currentNode | 
+		currentNode edited isNotNil and: [currentNode edited asDateAndTime > lastSavedOn] ].
+	^ unsavedNodes.
+
+]
+
+{ #category : #'as yet unclassified' }
+GrafoscopioNode >> updateEditionTimestamp [
+	self edited: DateAndTime now printString 
+]
+
 { #category : #importing }
 GrafoscopioNode >> uploadBodyFrom: fileLocator filteredFor: selectedLink [
 	(self linksFilters contains: selectedLink)
@@ -1126,23 +1283,3 @@ GrafoscopioNode >> wrapBodyLines [
 		ifTrue: [ self shouldBeImplemented ].
 	bodyFile ensureDelete.
 ]
-
-{ #category : #'as yet unclassified' }
-GrafoscopioNode >> wrapBodyLinesFor: inputFile [ 
-	| outputFile |
-	outputFile := FileLocator temp / 'body.tmp.txt'.
-	outputFile ensureDelete.
-	outputFile ensureCreateFile.
-	OSSUnixSubprocess new
-		command: 'fold';
-		arguments: {'-sw'.  '80'. inputFile fullName. outputFile fullName};
-	redirectStdout;
-	redirectStderr;
-	runAndWaitOnExitDo: [ :process :outString :errString |
-		process isSuccess
-			ifTrue: [ ^ outString  ]
-			ifFalse: [ 
-				self inform: errString.
-				^inputFile contents ]
-	]
-]

repository/Grafoscopio/GrafoscopioNodeTest.class.st

@@ -60,7 +60,7 @@ GrafoscopioNodeTest >> testHasMarkdownSubtreesToExport [
 	Please see look #becomeDefaultTestTree message to see the details that makes this test true."
 	| tree | 
 	tree := GrafoscopioNode new becomeDefaultTestTree.
-	self assert: tree selectMarkdownSubtreesToExport isNotEmpty equals: true.
+	self assert: tree selectMarkupSubtreesToExport isNotEmpty equals: true.
 	
 ]
 
@@ -69,6 +69,17 @@ GrafoscopioNodeTest >> testInitializeIsOk [
 	self shouldnt: [ GrafoscopioNode new ] raise: Error 
 ]
 
+{ #category : #tests }
+GrafoscopioNodeTest >> testNodeSelection [
+	| tree child1 | 
+	tree := GrafoscopioNode new becomeDefaultTestTree.
+	child1 := tree preorderTraversalRootChildren at: 1.
+	child1 selected: true.
+	self assert: tree detectSelectionIndex equals: 1
+	
+	
+]
+
 { #category : #tests }
 GrafoscopioNodeTest >> testPromoteNode [
 	| tree child1 child2 | 
@@ -135,3 +146,16 @@ GrafoscopioNodeTest >> testSanitizedLink [
 	self assert: (node sanitizeDefaultLink = 'https://docutopia.tupale.co/hackbo:hackbot')   equals: true
 
 ]
+
+{ #category : #tests }
+GrafoscopioNodeTest >> testToggleNodeSelection [
+	"I verify that a selected node can be unchosen once a new selection has been done."
+
+	| tree testNode1 testNode2 |
+	tree := GrafoscopioNode new becomeDefaultTestTree.
+	testNode1 := (tree preorderTraversalRootChildren at: 1) selected: true.
+	self assert: tree detectSelectionIndex equals: testNode1 preorderTraversalIndex.
+	testNode2 := (tree preorderTraversalRootChildren at: 2).
+	testNode2 toggleSelected.
+	self assert: tree detectSelectionIndex equals: testNode2 preorderTraversalIndex
+]

repository/Grafoscopio/GrafoscopioNotebook.class.st

@@ -20,7 +20,11 @@ Class {
 		'workingFile',
 		'notebook',
 		'debugMessage',
-		'imagesList'
+		'imagesList',
+		'exporting'
+	],
+	#classInstVars : [
+		'recents'
 	],
 	#category : #'Grafoscopio-UI'
 }
@@ -48,6 +52,11 @@ GrafoscopioNotebook class >> defaultSpec [
 							bc add: #body; add: #links height: self toolbarHeight ]]]
 ]
 
+{ #category : #'instance creation' }
+GrafoscopioNotebook class >> initialize [
+	recents := Set new.
+]
+
 { #category : #'instance creation' }
 GrafoscopioNotebook class >> newDefault [
 	^ self new.
@@ -58,6 +67,16 @@ GrafoscopioNotebook class >> open: aFileReference [
 	self newDefault openFromFile: aFileReference 
 ]
 
+{ #category : #'instance creation' }
+GrafoscopioNotebook class >> recents [
+	^ recents
+]
+
+{ #category : #'instance creation' }
+GrafoscopioNotebook class >> registerRecent: aFileReference [
+	recents add: aFileReference 
+]
+
 { #category : #utilities }
 GrafoscopioNotebook >> addCommandFrom: dictionary into: stream [
 	dictionary keysAndValuesDo: [ :k :v |
@@ -72,17 +91,41 @@ GrafoscopioNotebook >> addNode [
 	self notebookContent: notebook.
 ]
 
+{ #category : #persistence }
+GrafoscopioNotebook >> askToSaveBeforeClosing [
+
+	| saveChanges |
+	
+	saveChanges := UIManager default
+	question: 'Do you want to save changes in the notebook before closing?' 
+	title:  'Save changes before closing?'.
+	saveChanges ifNil: [ ^ self notebook unsavedNodes inspect ].
+	^ saveChanges
+]
+
 { #category : #operation }
 GrafoscopioNotebook >> autoSaveBodyOf: aNode [
-	| playground |
+	| playground bodyContents |
+	bodyContents := aNode body.
 	self body class = GrafoscopioTextModel 
-		ifTrue: [ body body whenTextChanged: [ :arg | aNode body: arg ] ].
+		ifTrue: [ self body body whenTextChanged: [ :arg | 
-	body body class = GlamourPresentationModel
+				aNode body: arg.
+				"self body body whenTextIsAccepted: [:bodyText | 
+					self inform: bodyText.
+					aNode updateEditionTimestamp ]."
+				bodyContents = arg ifFalse: [ 
+					"self inform: arg."
+					"aNode updateEditionTimestamp" ]]].
+	self body body class = GlamourPresentationModel
 		ifFalse: [ ^ self ].
-	playground := body body glmPres.
+	playground := self body body glmPres.
 	playground
 		onChangeOfPort: #text
-		act: [ :x | aNode body: (x pane port: #entity) value content ]
+		act: [ :x | 
+			aNode body: (x pane port: #entity) value content.
+			"aNode updateEditionTimestamp."
+			"self inform: aNode edited" ]
+		
 ]
 
 { #category : #accessing }
@@ -96,7 +139,7 @@ GrafoscopioNotebook >> body: anObject [
 ]
 
 { #category : #utilities }
-GrafoscopioNotebook >> checksum [
+GrafoscopioNotebook >> checksumForRootSubtree [
 	"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."
@@ -187,9 +230,15 @@ GrafoscopioNotebook >> downloadImages [
 ]
 
 { #category : #persistence }
-GrafoscopioNotebook >> exportAllSubtreesAsMarkdow [
+GrafoscopioNotebook >> ensureNotExporting [
+	self isAlreadyExporting
+		ifTrue: [ ^ self error: ' Already exporting! Please wait ' ]
+]
+
+{ #category : #persistence }
+GrafoscopioNotebook >> exportAllSubtreesAsMarkup [
 	| toBeExported |
-	toBeExported := self notebook selectMarkdownSubtreesToExport.
+	toBeExported := self notebook selectMarkupSubtreesToExport.
 	toBeExported ifEmpty: [ ^ self ].
 	toBeExported do: [ :each | self subtreeAsMarkdownFileFor: each ].
 	self inform: toBeExported size asString , ' exported markdown subtrees.'
@@ -199,24 +248,26 @@ GrafoscopioNotebook >> exportAllSubtreesAsMarkdow [
 GrafoscopioNotebook >> exportAsHTML [
 	"I export the current tree/document to a HTML file, using pandoc external app.
 	I suppose pandoc is already installed and available in the system."
+
 	| htmlFile |
-	self markdownFile exists ifTrue: [ self markdownFile delete ].
+	self markdownFile exists
+		ifTrue: [ self markdownFile delete ].
 	self exportAsMarkdown.
-	htmlFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.html'.
+	htmlFile := self htmlFile.
-	htmlFile asFileReference exists ifTrue: [ htmlFile asFileReference delete ].
+	htmlFile exists
-	Smalltalk platformName = 'unix' 
+		ifTrue: [ htmlFile delete ].
-		ifTrue: [
+	self
-			OSSUnixSubprocess new 
+		exportUsing:
-				command: 'pandoc'; 
+			{'--standalone'.
-				arguments: {'--standalone'. self markdownFile fullName. '--output' . htmlFile};
+			self markdownFile fullName.
-				redirectStdout;
+			'--output'.
-				runAndWaitOnExitDo: [ :process :outString :errString |
+			htmlFile fullName}
-					process isSuccess 
+		output: htmlFile fullName
-						ifTrue: [ self inform: ('File exported as: ', String cr, htmlFile) ]
+	"
-						ifFalse: [ self inform: 'Exportation unsuccesful. Please review that you have
+	
-							installed Pandoc and have used the exportation options properly.' ]]].
+	
 	Smalltalk platformName = 'Win32' 
-		ifTrue: ["WinProcess createProcess: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile"].
+		ifTrue: [WinProcess createProcess: 'pandoc --standalone ', self markdownFile fullName, ' -o ', htmlFile]."
 ]
 
 { #category : #persistence }
@@ -225,12 +276,14 @@ GrafoscopioNotebook >> exportAsLaTeX [
 	I suppose pandoc is already installed and available in the system."
 	| texFile |
 	self markdownFile exists ifTrue: [ self markdownFile delete ].
+	self halt. 
+	
 	"self exportAsMarkdown.""<- This violates the separation of concenrs. Markdown exportation should
 	be explicit. There is still the issue of how to deal with desynchronization between a notebook 
 	which has unsaved changes as markdown.... TO BE REVIWED!"
 	texFile := self markdownFile parent fullName,'/', self markdownFile basenameWithoutExtension, '.tex'.
 	texFile asFileReference exists ifTrue: [ texFile asFileReference delete ].
-	OSProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', texFile.
+	"OSProcess command: 'pandoc --standalone ', self markdownFile fullName, ' -o ', texFile."
 	self inform: ('File exported as: ', String cr, texFile).
 ]
 
@@ -247,26 +300,28 @@ GrafoscopioNotebook >> exportAsPDF [
 	"I export the current tree/document to a PDF file, using pandoc and LaTeX external apps.
 	The latex engine used is xelatex, to minimize errors and warnings related with UTF8 support.
 	I suppose all them are already installed and defined in the system."
-	| pandocCommonCommand  |
+
-	self markdownFile exists ifFalse: [ self exportAsMarkdown ].	
+	| pandocCommonCommand |
+	self ensureNotExporting.
+	self exportAsMarkdown.
 	self pdfFile ensureDelete.
-	pandocCommonCommand := 'pandoc ', self pandocOptionsComputed, ' ', self markdownFile fullName, 
+	pandocCommonCommand := self pandocOptionsComputed , ' '
-		' --output ', self pdfFile fullName.
+		, self markdownFile fullName , ' --output ' , self pdfFile fullName.
-	Smalltalk platformName = 'unix' 
+	^ self
-		ifTrue: [ ExternalOSProcess command: 'cd ', self markdownFile parent fullName,'; ', pandocCommonCommand ].
+		exportUsing: ((' ' split: pandocCommonCommand) reject: #isEmpty)
-	Smalltalk platformName = 'Win32' 
+		output: self pdfFile fullName
-		ifTrue: [ WinProcess createProcess: pandocCommonCommand ].
-	self inform: ('File exported as: ', String cr, self pdfFile fullName)
 ]
 
 { #category : #persistence }
 GrafoscopioNotebook >> exportAsSton: aNotebook on: aFileStream [
 	aNotebook flatten.
-    (STON writer on: aFileStream)
+	self notebook root updateEditionTimestamp.
+   (STON writer on: aFileStream)
 		newLine: String crlf;	
       	prettyPrint: true;
 		keepNewLines: true;
-      	nextPut: aNotebook children
+      	nextPut: aNotebook children.
+	
 ]
 
 { #category : #utility }
@@ -284,7 +339,7 @@ GrafoscopioNotebook >> exportNode: aGrafoscopioNode asMarkdownIn: aFile [
 			stream 
 				nextPutAll: 
 					('---', String cr,
-					'exportedFrom: ', self checksum, String cr) withInternetLineEndings.
+					'exportedFrom: ', self checksumForRootSubtree, String cr) withInternetLineEndings.
 			aGrafoscopioNode metadataAsYamlIn: stream.
 			stream 
 				nextPutAll: 
@@ -293,6 +348,37 @@ GrafoscopioNotebook >> exportNode: aGrafoscopioNode asMarkdownIn: aFile [
 		self inform: 'Exported as: ', String cr, aFile fullName
 ]
 
+{ #category : #persistence }
+GrafoscopioNotebook >> exportUsing: arguments [
+	self ensureNotExporting.
+	exporting := (#pandoc command arguments: arguments) future.
+	exporting
+		onSuccessDo: [ :val | 
+			exporting := nil.
+			self
+				inform: 'File exported as: ' , String cr , self pdfFile fullName ].
+	exporting
+		onFailureDo: [ :e | 
+			exporting := nil.
+			self
+				inform: 'Error exporting, ' , self pdfFile fullName , ': ' , e messageText ]
+]
+
+{ #category : #persistence }
+GrafoscopioNotebook >> exportUsing: arguments output: aName [
+	self ensureNotExporting.
+	exporting := (#pandoc command arguments: arguments) future.
+	exporting
+		onSuccessDo: [ :val | 
+			exporting := nil.
+			self inform: 'File exported as: ' , String cr , aName ].
+	exporting
+		onFailureDo: [ :e | 
+			exporting := nil.
+			self inform: 'Error exporting, ' , aName , ': ' , e messageText ].
+	^ exporting
+]
+
 { #category : #api }
 GrafoscopioNotebook >> extent [
 	^900@500
@@ -313,6 +399,11 @@ GrafoscopioNotebook >> findAndReplace [
 	
 ]
 
+{ #category : #testing }
+GrafoscopioNotebook >> hasAWorkingFileDefined [
+	self workingFile ifNil: [ ^ false ] ifNotNil: [ ^ true ]
+]
+
 { #category : #accessing }
 GrafoscopioNotebook >> header [
 	^ header
@@ -323,6 +414,13 @@ GrafoscopioNotebook >> header: anObject [
 	header := anObject
 ]
 
+{ #category : #persistence }
+GrafoscopioNotebook >> htmlFile [
+	^ (self markdownFile parent fullName , '/'
+		, self markdownFile basenameWithoutExtension , '.html')
+		asFileReference
+]
+
 { #category : #operation }
 GrafoscopioNotebook >> htmlToMarkdown [
 	self currentNodeContent htmlToMarkdown.
@@ -343,6 +441,7 @@ GrafoscopioNotebook >> imagesList [
 
 { #category : #accessing }
 GrafoscopioNotebook >> imagesList: anObject [
+self halt.
 	imagesList := anObject
 ]
 
@@ -394,8 +493,12 @@ GrafoscopioNotebook >> initializePresenter [
 		(tree highlightedItem content header) = arg
 			ifFalse: [ 
 				tree highlightedItem content header: arg.
+				tree highlightedItem content updateEditionTimestamp.
 				tree roots: tree roots]].
-	links whenTextChanged: [ :arg | tree highlightedItem content addLink: arg ]
+	links whenTextChanged: [ :arg | 
+		tree highlightedItem content addLink: arg.
+		tree highlightedItem content updateEditionTimestamp. 
+		 ]
 ]
 
 { #category : #initialization }
@@ -404,6 +507,7 @@ GrafoscopioNotebook >> initializeWidgets [
 	header := self newTextInput.
 	header autoAccept: true.
 	body := self newText.
+	body class logCr.
 	body disable.
 	body text: '<- Select a node'.
 	body autoAccept: true.
@@ -420,6 +524,22 @@ GrafoscopioNotebook >> initializeWidgets [
 	self askOkToClose: true.
 ]
 
+{ #category : #persistence }
+GrafoscopioNotebook >> isAlreadyExporting [
+	^ exporting isNotNil
+]
+
+{ #category : #persistence }
+GrafoscopioNotebook >> isSaved [
+	"I tell if a notebook has been saved in a persistence storage, including last editions."
+	^ self hasAWorkingFileDefined and: [self isSavedAfterLastEdition ].
+]
+
+{ #category : #testing }
+GrafoscopioNotebook >> isSavedAfterLastEdition [
+	^ self notebook isSavedAfterLastEdition
+]
+
 { #category : #accessing }
 GrafoscopioNotebook >> links [
 	^ links
@@ -552,7 +672,7 @@ GrafoscopioNotebook >> notebookContent: aTree [
 
 { #category : #initialization }
 GrafoscopioNotebook >> notebookSubMenu [
-	^ MenuModel new
+	^ MenuPresenter new
 		addGroup: [ :group | 
 			group
 				addItem: [ :item | 
@@ -613,15 +733,20 @@ GrafoscopioNotebook >> notebookSubMenu [
 				addItem: [ :item | 
 					item
 						name: 'See html';
-						icon:
+						icon: (self iconNamed: #smallInspectIt);
-							(self iconNamed: #smallInspectIt);
+						action: [ self seeHtml ] ].
-						action: [ self inform: 'To be implemented...' ] ].
 			group
 				addItem: [ :item | 
 					item
 						name: 'See pdf';
 						icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
-						action: [ self inform: 'To be implemented...' ] ].
+						action: [ self seePdf ] ].
+			group
+				addItem: [ :item | 
+					item
+						name: 'Import Article';
+						icon: (Smalltalk ui icons iconNamed: #smallInspectIt);
+						action: [ self importArticle ] ].
 			group
 				addItem: [ :item | 
 					item
@@ -630,9 +755,10 @@ GrafoscopioNotebook >> notebookSubMenu [
 						action: [ self defineDebugMessageUI ] ] ]
 ]
 
-{ #category : #private }
+{ #category : #'event handling' }
 GrafoscopioNotebook >> okToChange [
-	^ true
+	
+	self isSaved ifTrue: [ ^ true ] ifFalse: [ ^ self askToSaveBeforeClosing ]
 ]
 
 { #category : #persistence }
@@ -644,7 +770,7 @@ GrafoscopioNotebook >> openDefault [
 
 { #category : #persistence }
 GrafoscopioNotebook >> openFromFile: aFileReference [
-							
+	self class registerRecent: aFileReference.
 	self loadFromFile: aFileReference.
 	^ self openWithSpec.
 ]
@@ -799,7 +925,7 @@ GrafoscopioNotebook >> removeNode [
 
 { #category : #persistence }
 GrafoscopioNotebook >> saveToFile: aFileReference [
-	"I save the current tree/document to a file."
+	"I save the current tree/document to a file and update storage timestamp."
 
 	aFileReference ifNil: [ self inform: 'No file selected for saving. Save NOT done.'. ^ self ].
 	workingFile := aFileReference.
@@ -831,11 +957,24 @@ GrafoscopioNotebook >> saveWorkingNotebook [
 	self workingFile 
 		ifNil: [ self saveToFileUI ] 
 		ifNotNil: [ self saveToFile: workingFile ].
+	self notebook root updateEditionTimestamp.	
 	GfUIHelpers updateRecentNotebooksWith: workingFile
 	
 	
 ]
 
+{ #category : #inspecting }
+GrafoscopioNotebook >> seeHtml [
+	self pdfFile exists
+		ifTrue: [ (#open command argument: self htmlFile fullName) schedule ]
+]
+
+{ #category : #persistence }
+GrafoscopioNotebook >> seePdf [
+	self exportAsPDF
+		onSuccessDo: [ :v | (#open command argument: self pdfFile fullName) schedule ]
+]
+
 { #category : #persistence }
 GrafoscopioNotebook >> subtreeAsMarkdown [
 	| currentNode |
@@ -891,7 +1030,7 @@ GrafoscopioNotebook >> topBar [
 						name: nil;
 						description: 'Export all Markdown subtrees';
 						icon: (self iconNamed: #glamorousMore);
-						action: [ self exportAllSubtreesAsMarkdow ] ].
+						action: [ self exportAllSubtreesAsMarkup ] ].
 			group
 				addItem: [ :item | 
 					item
@@ -1062,6 +1201,7 @@ GrafoscopioNotebook >> updateBodyFor: aNodeContainer [
 	tree needRebuild: false.
 	body needRebuild: true.
 	aNode := aNodeContainer content.
+	aNode toggleSelected.
 	header text: aNode header.
 	body := self instantiate: aNode specModelClass new.
 	body content: aNode body.

repository/Grafoscopio/GrafoscopioTextModel.class.st

@@ -4,7 +4,7 @@ Usually my content is markdown text.
 "
 Class {
 	#name : #GrafoscopioTextModel,
-	#superclass : #ComposableModel,
+	#superclass : #ComposablePresenter,
 	#instVars : [
 		'body'
 	],
@@ -36,6 +36,6 @@ GrafoscopioTextModel >> content: aGrafoscopioNodeContent [
 GrafoscopioTextModel >> initializeWidgets [
 
 	body := self newText.
-	body beForText.
+	body beForGrafoscopio.
 	body autoAccept: true.
 ]

repository/Grafoscopio/TextPresenter.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #TextPresenter }
+
+{ #category : #'*Grafoscopio' }
+TextPresenter >> beForGrafoscopio [
+	self
+		isCodeCompletionAllowed: true;
+		menuHolder: [ self getMenu ];
+		isForSmalltalkCode: true
+]