Add Load/Export feature to the New Settings Browser

src/NewTools-SettingsBrowser/SettingDeclaration.extension.st

@@ -5,7 +5,10 @@ SettingDeclaration >> asSettingPresenter [
 	"Answer an appropriate <SpPresenter> container for the receiver's value"
 
 	^ self precondition value 
-		ifTrue: [ self default asSettingPresenter: self ]
+		ifTrue: [ 
+			self hasValue
+				ifTrue: [ self realValue asSettingPresenter: self ]
+				ifFalse: [ self default asSettingPresenter: self ] ]
 		ifFalse: [ SpNullPresenter new ]
 ]
 

src/NewTools-SettingsBrowser/StSettingNode.class.st

@@ -10,7 +10,8 @@ Class {
 		'pragma',
 		'parentName',
 		'model',
-		'matchBlock'
+		'matchBlock',
+		'parentNode'
 	],
 	#category : 'NewTools-SettingsBrowser-Model',
 	#package : 'NewTools-SettingsBrowser',
@@ -241,3 +242,18 @@ StSettingNode >> settingDeclaration [
 
 	^ declaration
 ]
+
+{ #category : 'printing' }
+StSettingNode >> settingNodeIdentifier [
+	^ String streamContents: [ :aStream |
+			self settingNodeIdentifierOn: aStream ]
+]
+
+{ #category : 'printing' }
+StSettingNode >> settingNodeIdentifierOn: aWriteStream [
+
+	parentNode
+		ifNotNil: [ parentName settingNodeIdentifierOn: aWriteStream ]
+		ifNil: [ parentName ifNotNil: [ aWriteStream print: parentName ] ].
+	aWriteStream print: self settingDeclaration name
+]

src/NewTools-SettingsBrowser/StSettingsAbstractPresenter.class.st

@@ -23,6 +23,13 @@ StSettingsAbstractPresenter class >> appearanceIconContents [
 	^ 'iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAJZlWElmTU0AKgAAAAgABQESAAMAAAABAAEAAAEaAAUAAAABAAAASgEbAAUAAAABAAAAUgExAAIAAAARAAAAWodpAAQAAAABAAAAbAAAAAAAAABgAAAAAQAAAGAAAAABd3d3Lmlua3NjYXBlLm9yZwAAAAOgAQADAAAAAQABAACgAgAEAAAAAQAAACCgAwAEAAAAAQAAACAAAAAAs9pmNgAAAAlwSFlzAAAOxAAADsQBlSsOGwAAAi1pVFh0WE1MOmNvbS5hZG9iZS54bXAAAAAAADx4OnhtcG1ldGEgeG1sbnM6eD0iYWRvYmU6bnM6bWV0YS8iIHg6eG1wdGs9IlhNUCBDb3JlIDYuMC4wIj4KICAgPHJkZjpSREYgeG1sbnM6cmRmPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5LzAyLzIyLXJkZi1zeW50YXgtbnMjIj4KICAgICAgPHJkZjpEZXNjcmlwdGlvbiByZGY6YWJvdXQ9IiIKICAgICAgICAgICAgeG1sbnM6eG1wPSJodHRwOi8vbnMuYWRvYmUuY29tL3hhcC8xLjAvIgogICAgICAgICAgICB4bWxuczp0aWZmPSJodHRwOi8vbnMuYWRvYmUuY29tL3RpZmYvMS4wLyI+CiAgICAgICAgIDx4bXA6Q3JlYXRvclRvb2w+d3d3Lmlua3NjYXBlLm9yZzwveG1wOkNyZWF0b3JUb29sPgogICAgICAgICA8dGlmZjpZUmVzb2x1dGlvbj45NjwvdGlmZjpZUmVzb2x1dGlvbj4KICAgICAgICAgPHRpZmY6T3JpZW50YXRpb24+MTwvdGlmZjpPcmllbnRhdGlvbj4KICAgICAgICAgPHRpZmY6WFJlc29sdXRpb24+OTY8L3RpZmY6WFJlc29sdXRpb24+CiAgICAgIDwvcmRmOkRlc2NyaXB0aW9uPgogICA8L3JkZjpSREY+CjwveDp4bXBtZXRhPgryNKKqAAAGMklEQVRYCa1Xy29UVRz+zr137nSm0+m0QimlPKYlhpclAiGogC6MCYkYNxJdGP8Awa1Lw1oXJCTK2oUr3QhLjNHEpC6IEBtLigaU58D0wbQz07mv4/c7d2a4dKZNa/w1c+fMefy+7/c8twqUPefOn7YtdRAaHpRSMicSxV8d48T0xodaayi4KtI3bl787LIScNWb+/6BjtBDdb1a4T6RhywgowGPnx6OLcXBhkTskDNte5qnm3qUhai69I5TcOyDk9wz87BUexQ67ucvZvT1N2fUpZ93YWabxomJeXz1zVZUli24tka0AR6KIGFtEcFsiRbY5ELrw0hZmayX3jaWDYjtTFbrHkLgkmW7FQvO5VIDF34awtUHEe7Na5RLvZhcaMTGbMgDTeOpG5kCwZueIAfYJFOtA8t1zzm3r6iymT48rC0hxU3naOJN38L+osYEQ+EHwCd7NmB2B0kCt8BbaxLubA71+qJyPj59CoVCAU/nF0y4NOMmXONnfFZI/58i+gYGClhYWIATRBHCMIIfhUw0RXBlUofRhmxcSX69RGLSLeZN9yeSUjAF22GCG8stAod0TUAiUokpy2mDy2azraXH/Or+aJG2LGpkEkrVmcozlsQK4j0Kgu201Fjc/N2ja/iheg8MOz7dcgz7CttRmiuj9Ogx84aJs06JaMTW4WH09eUQ0Uo5KyS6SZuAxL7kVzEVLqOsA5wNGyYkQRBAPiKrKVmpWKz/Y3oGS7W6CenEgT0YHt4Mnxmd6HPmmImAjCT2adZqmWEQSamYtXhmoyKEi8UdeO3YEWQyPZj587bJs5XgorftgYguOrPlEN5+YT+nFQZSvWgEHgr9eWSpxCRKIonkcKfEbpZnTzoNx3GM1xaXqsb6VCr+nTxnCMSZr1Eg6KCbg7gwoidCkhL7M5mMcV03C5LKkmOJvYTsyKGXmAcarpuiF+IET+5re0AmA4JqHqxUavEhWpDLZowi3/fZRSP6Zv0iVSDkRbqBy3ybgLB1CViaq+DDr79FhaV3clMB599/F+lUCvcfPESNSSXeWY+IPgnByMiwyS/xQCskyfNtAjIppeozge40fIwyXgvLDVNGstbqBTLufsvFK2aV4BIuz/Mx+etvZsFxbLx67DBSNCZZTc+Zw3NwCXy0L4sBHhjJ9RqLJalEgSi1LGYMXSvj1T5200vptIuTx4/iyOEJlGcX6MUSZC1JoO0BURYwSQbzeXz50RlaHiLFBuISWDM3RreNtL3xzNbVR2IMVSLNalimJ8UAyQMxJiltAsnJnJQdWzFvbiYe3cnGZFtxR1tvDog+sVSqIZ/vw6m3XjfuX5mMXQjwnYFvRU59FplGmWoU/J5N8N1+6DBAtVoT1Wb+2Td/dki8Rzqs9IRsNmu8+nwuJaqgfV5YOy4KT35E//2zZvrpyEWUix+gUV3E7Tt3+XLD1Fnpy7aCxIAxiOj2fF8fvZA3vSXP+8FmxxViIl08ECtQ2odupShDIPUvLjWJyNC0FMS7V39K9yvPzuGv23fZDX1zJ7w8caBtQFcC8urmu8MI0ieM5iC9xSSibTtMKteQWB0yucIrnh7YuWOUwEP4feompqZvYby4E3m2+Ih/nQRonRV5eDp0HJXNr/DdnN1R8d3AW0a6pwdjxV0kIyDriUFMxlRYELIduxgs9JtSjnWsEQIDQeAok+LQBAAWXSgjmzkgSptM4uUY6/lnk2OL6vjYThR3befZ+K6hqV08kFTB+s9MT8OqVqFTLhq7x6GZ0bVazdS2YlNal5CBEM41G5uUplyAIp0hkFke0FRueR7yX1yAdfUaJwPM/nIF4ego5mbnMTs/37W3y/EOIbhccuNjRfN+0LUTdjskyUgUYPcI8E8Fikpi4TXNlipWmVB0HO6ciCRktCze3wqKeID1lGRkjnKvgEcE9944DnvvY+P6sLfXJKVcsR4vrWQ9d0J2zkgVtbDMN7FpnnYNM4v/BtJA8Rax5clsczD/3hlDRou14gG+1w0MDppPJ8TaM6KULyeSgx4xDbYTKX1DmPXn+7OC3kqOWJUkA0ex9+Jv4WYm1wZbc1VrRzCVbV03qTh16+/Tlua/56z2FQzW1POfFg177Qr43vHRK/8CwASYO3ntL1AAAAAASUVORK5CYII='
 ]
 
+{ #category : 'accessing' }
+StSettingsAbstractPresenter class >> application [
+
+	^ StPharoApplication current
+
+]
+
 { #category : 'accessing - icons' }
 StSettingsAbstractPresenter class >> codeBrowsingIcon [
 	"Private - Generated method"
@@ -184,7 +191,7 @@ StSettingsAbstractPresenter class >> toolsIconContents [
 { #category : 'accessing' }
 StSettingsAbstractPresenter >> application [ 
 
-	^ StPharoApplication current
+	^ self class application
 ]
 
 { #category : 'accessing' }

src/NewTools-SettingsBrowser/StSettingsExporter.class.st

@@ -0,0 +1,112 @@
+Class {
+	#name : 'StSettingsExporter',
+	#superclass : 'Object',
+	#instVars : [
+		'groupSize',
+		'basename'
+	],
+	#category : 'NewTools-SettingsBrowser-Model',
+	#package : 'NewTools-SettingsBrowser',
+	#tag : 'Model'
+}
+
+{ #category : 'export' }
+StSettingsExporter >> application [
+
+	^ StPharoApplication current
+
+]
+
+{ #category : 'accessing' }
+StSettingsExporter >> basename [
+
+	^ basename
+]
+
+{ #category : 'accessing' }
+StSettingsExporter >> basename: anObject [
+
+	basename := anObject
+]
+
+{ #category : 'export' }
+StSettingsExporter >> defaultBasename [
+	"Answer a <String> with the file where settings will be stored"
+
+	^ self settingsFileReference basename
+]
+
+{ #category : 'export' }
+StSettingsExporter >> defaultGroupSize [
+
+	^ 50
+]
+
+{ #category : 'export' }
+StSettingsExporter >> exportAllSettings: actions [
+	"Export all settings in files. No more than groupSize settings will be exported to the same file. 
+	If there are more than groupSize settings, settings will be exported in multiple files 
+	(named aString%d.st, with %d a number increasing from 1 to (actions size / groupSize)."
+
+	| index |
+	index := 1.
+	actions
+		groupsOf: self groupSize
+		atATimeDo: [ :setting |
+			self exportSettings: setting toFileNamed: (self settingsIndex: index fileNamed: self basename).
+			index := index + 1 ].
+	self
+		exportSettings: (actions last: (actions size rem: self groupSize))
+		toFileNamed: (self settingsIndex: index fileNamed: self basename)
+]
+
+{ #category : 'export' }
+StSettingsExporter >> exportSettings: aCollection toFileNamed: filename [
+	StartupPreferencesLoader default addAtStartupInPreferenceVersionFolder: aCollection named: filename
+]
+
+{ #category : 'export' }
+StSettingsExporter >> exportedFileFullName [
+	"Answer a <String> with the file where settings will be stored"
+
+	^ self settingsFileReference fullName
+]
+
+{ #category : 'export' }
+StSettingsExporter >> groupSize [ 
+
+	^ groupSize
+]
+
+{ #category : 'accessing' }
+StSettingsExporter >> groupSize: anObject [
+
+	groupSize := anObject
+]
+
+{ #category : 'initialization' }
+StSettingsExporter >> initialize [ 
+
+	super initialize.
+	groupSize := self defaultGroupSize.
+	basename := self defaultBasename
+]
+
+{ #category : 'export' }
+StSettingsExporter >> settingsFileReference [
+
+	^ self settingsTree settingsFileReference
+]
+
+{ #category : 'export' }
+StSettingsExporter >> settingsIndex: index fileNamed: aString [
+
+	^ aString , index printString , '.st'
+]
+
+{ #category : 'export' }
+StSettingsExporter >> settingsTree [
+	"Answer the receiver's <StSettingsTree>, the settings model"
+
+	^ self application propertyAt: #settingsTree.
+]

src/NewTools-SettingsBrowser/StSettingsMainPresenter.class.st

@@ -14,34 +14,21 @@ Class {
 	#instVars : [
 		'toolbarPresenter',
 		'detailsPresenter',
-		'mainCategoriesPresenter'
+		'mainCategoriesPresenter',
+		'buttonBarPresenter',
+		'exporter'
 	],
 	#category : 'NewTools-SettingsBrowser-UI',
 	#package : 'NewTools-SettingsBrowser',
 	#tag : 'UI'
 }
 
-{ #category : 'accessing' }
-StSettingsMainPresenter class >> application [
-
-	^ StPharoApplication current
-
-]
-
 { #category : 'adding' }
 StSettingsMainPresenter class >> descriptionBackgroundColor [
 
 	^ Smalltalk ui theme lightBackgroundColor asHexString
 ]
 
-{ #category : 'class initialization' }
-StSettingsMainPresenter class >> initialize [
-
-	self application
-		propertyAt: #settingsTree put: StSettingsTree new;
-		styleSheet: self styleSheet
-]
-
 { #category : 'world menu' }
 StSettingsMainPresenter class >> menuSettingsBrowserCommandOn: aBuilder [
 	<worldMenu>
@@ -123,17 +110,20 @@ StSettingsMainPresenter >> defaultInputPort [
 { #category : 'layout' }
 StSettingsMainPresenter >> defaultLayout [
 
-	^ SpPanedLayout newHorizontal 
-		positionOfSlider: 0.2;		
-		add: (SpBoxLayout newTopToBottom
-				add: toolbarPresenter withConstraints: [ : constraints |
-					constraints 
-						height: self class toolbarHeight + 10;
-						padding: 5 ];
-			add: mainCategoriesPresenter;
-			yourself);
-		add: detailsPresenter;
-		yourself
+	^ SpBoxLayout newTopToBottom
+		spacing: 5;
+		  add: (SpPanedLayout newHorizontal
+				   positionOfSlider: 0.2;
+				   add: (SpBoxLayout newTopToBottom
+						    add: toolbarPresenter withConstraints: [ :constraints |
+							    constraints
+								    height: self class toolbarHeight + 10;
+								    padding: 5 ];
+						    add: mainCategoriesPresenter;
+						    yourself);
+				   add: detailsPresenter);
+		  add: buttonBarPresenter expand: false;
+		  yourself
 ]
 
 { #category : 'ports' }
@@ -142,6 +132,26 @@ StSettingsMainPresenter >> defaultOutputPort [
 	^ mainCategoriesPresenter
 ]
 
+{ #category : 'initialization' }
+StSettingsMainPresenter >> exportSettings [
+	| nodes actions |
+
+	nodes := self settingsTree nodeList.
+	actions := nodes 
+		collect: [ : e | e item exportSettingAction ]
+		thenReject: [ : e | e isNil ].
+
+	self exporter exportAllSettings: actions.
+	self inform: 'Settings were exported to ' , self exporter exportedFileFullName.
+	buttonBarPresenter enable
+]
+
+{ #category : 'accessing' }
+StSettingsMainPresenter >> exporter [
+
+	^ exporter
+]
+
 { #category : 'searching' }
 StSettingsMainPresenter >> followPath: aStSettingNode in: aCollection [
 
@@ -151,6 +161,42 @@ StSettingsMainPresenter >> followPath: aStSettingNode in: aCollection [
 
 ]
 
+{ #category : 'initialization' }
+StSettingsMainPresenter >> initialize [
+
+	super initialize.
+	self application
+		propertyAt: #settingsTree ifAbsentPut: StSettingsTree new;
+		styleSheet: self class styleSheet.
+	exporter := StSettingsExporter new.
+]
+
+{ #category : 'initialization' }
+StSettingsMainPresenter >> initializeButtonBar [
+
+	buttonBarPresenter := self newButtonBar
+		placeAtEnd;
+		add: (self newButton
+			addStyle: 'large';
+			icon: (self iconNamed: #openFromUrl);
+			label: 'Load';
+			help: 'Load settings from a file';
+			action: [ self loadSettings ];
+			enabled: self settingsTree hasSettingsFile;
+			yourself);
+		add: (self newButton
+			icon: (self application iconNamed: #save);
+			label: 'Export';
+			help: 'Save settings into a file';
+			action: [ self exportSettings ];
+			yourself);
+		add: (self newButton
+			icon: (self iconNamed: #cancel);
+			action: [ self delete ];
+			label: 'Cancel';
+			yourself).
+]
+
 { #category : 'initialization' }
 StSettingsMainPresenter >> initializeFocus [
 
@@ -166,7 +212,8 @@ StSettingsMainPresenter >> initializePresenters [
 	toolbarPresenter := self instantiate: StSettingsToolbarPresenter on: self.
 	mainCategoriesPresenter := self instantiate: StSettingsCategoriesPresenter on: self.
 	detailsPresenter := self instantiate: StSettingsDetailsPresenter on: self.
-
+	self initializeButtonBar.
+
 	self initializeFocus.
 ]
 
@@ -179,8 +226,40 @@ StSettingsMainPresenter >> initializeWindow: aWindowPresenter [
 		centered
 ]
 
+{ #category : 'loading' }
+StSettingsMainPresenter >> loadSettings [
+	"Load the settings from the system settings file, if exists"
+
+	self settingsTree settingsFileDirectory
+		ifNotNil: [ : settingsDirectory | 
+			settingsDirectory hasFiles 
+				ifTrue: [ self loadSettingsFrom: (self selectDialog: settingsDirectory files) ]
+				ifFalse: [ self inform: 'No settings files were found in the settings directory' ] ]
+]
+
+{ #category : 'loading' }
+StSettingsMainPresenter >> loadSettingsFrom: aFileReference [ 
+
+	self settingsTree persistence fileReference: aFileReference.
+	self settingsTree updateSettingNodes.
+	self inform: 'Settings were loaded from ' , aFileReference fullName
+]
+
 { #category : 'initialization' }
 StSettingsMainPresenter >> pagePresenter [ 
 
 	^ detailsPresenter
 ]
+
+{ #category : 'execution' }
+StSettingsMainPresenter >> selectDialog: fileReferneces [
+
+	^ SpSelectDialog new 
+		title: 'Settings Browser Selector';
+		label: 'Select a Stored Settings File';
+		items: fileReferneces;
+		display: [ :each | each basename ];
+		displayIcon: [ :each | self iconNamed: each systemIconName ];
+		openModal.
+
+]

src/NewTools-SettingsBrowser/StSettingsTree.class.st

@@ -72,6 +72,19 @@ StSettingsTree >> processSearch: aString [
 		as: Set
 ]
 
+{ #category : 'as yet unclassified' }
+StSettingsTree >> settingsFileDirectory [
+
+	^ self persistence fileReference parent
+]
+
+{ #category : 'testing' }
+StSettingsTree >> settingsFileReference [
+	"Answer a <String> with the name of the file where settings are stored"
+
+	^ self persistence fileReference 
+]
+
 { #category : 'instance creation' }
 StSettingsTree >> settingsKeywords [