Improve styling (#46)

format.sh

@@ -0,0 +1,38 @@
+#!/bin/bash
+files=$(find . -type f -name "*.st")
+
+#Trailing whitespace
+sed -i -e 's/[ \t]*$//' $files
+
+#Point before parentheses
+sed -i 's/\.)/)/g' $files
+sed -i 's/\.]/]/g' $files
+sed -i 's/\.}/}/g' $files
+
+#Space before parentheses
+sed -i 's/[ ]\+)/)/g' $files
+sed -i 's/[ ]\+]/]/g' $files
+sed -i 's/[ ]\+}/}/g' $files
+
+#Space after parentheses
+sed -i 's/\[[ ]\+/[/g' $files
+sed -i 's/([ ]\+/(/g' $files
+sed -i 's/{[ ]\+/{/g' $files
+
+#Second Line is new line (Doesn't work with comments)
+#sed -i '3,3s/[^"\S]\+/\n&/' $files
+
+#Remove Space after and before |
+sed -i -E 's/\|(\s)*(\S*)(\s)*\|/\|\2\|/g' $files
+
+#Old syntax to new syntax
+sed -i 's/_/:=/g' $files
+
+#Spaces befor dots (To strict right now)
+#sed -i 's/[ ]\+\./\./g' $files
+
+#Spaces around @
+sed -i 's/[ ]*@[ ]*/ @ /g' $files
+
+#Dot after return consistency
+sed -i '$s/\.$//' $files

packages/BaselineOfSVGMorph.package/BaselineOfSVGMorph.class/instance/baseline..st

@@ -18,6 +18,6 @@ baseline: spec
 				group: 'editor' with: #('SVG-Editor');
 				group: 'tests' with: #('Tests-SVG-Morphic' 'Tests-SVG-Editor');
 				group: 'mtf' with: #('MorphicTestingFramework');
-        group: 'swalinter' with: #('SwaLint');
-				yourself .
+        		group: 'swalinter' with: #('SwaLint');
+				yourself
 ]

packages/SVG-Editor.package/SVGEditor.class/instance/buildAndOpen.st

@@ -1,6 +1,6 @@
 toolbuilder
 buildAndOpen
-	
+
 	| builder  windowSpec |
 	builder := ToolBuilder default.
 	windowSpec := self buildWith: builder.

packages/SVG-Editor.package/SVGEditor.class/instance/buildCloseButtonWith..st

@@ -8,4 +8,4 @@ buildCloseButtonWith: aToolBuilder
 		help: 'Close the currently opened file';
 		enabled: #canCloseFile;
 		action: #actionCloseFile;
-		yourself	
+		yourself

packages/SVG-Editor.package/SVGEditor.class/instance/buildInfoPanelWith..st

@@ -4,5 +4,4 @@ buildInfoPanelWith: aToolBuilder
 	^ aToolBuilder pluggableMultiColumnListSpec new
 		name: #infoPanel;
 		model: self model;
-		list: #infoForSelectedElement.
-
+		list: #infoForSelectedElement

packages/SVG-Editor.package/SVGEditor.class/instance/buildOpenButtonWith..st

@@ -7,4 +7,4 @@ buildOpenButtonWith: aToolBuilder
 		label: 'Open';
 		help: 'Open an SVG file for editing';
 		action: #actionOpenFile;
-		yourself	
+		yourself

packages/SVG-Editor.package/SVGEditor.class/instance/buildSaveButtonWith..st

@@ -8,4 +8,4 @@ buildSaveButtonWith: aToolBuilder
 		help: 'Save the SVG to a file';
 		enabled: #canSaveFile;
 		action: #actionSaveFile;
-		yourself	
+		yourself

packages/SVG-Editor.package/SVGEditor.class/instance/buildWith..st

@@ -1,11 +1,11 @@
 toolbuilder
 buildWith: aToolBuilder
 
-	| window |
+	|window|
 	window := self model buildWindowWith: aToolBuilder specs: {
 		(self switchesFrame) -> (self buildSwitchesWIth: aToolBuilder) .
 		(self panelDrawingFrame) -> (self buildDrawingAreaWith: aToolBuilder) .
-		(self treeFrame) -> (self buildTreeViewWith: aToolBuilder) . 
+		(self treeFrame) -> (self buildTreeViewWith: aToolBuilder) .
 		(self infoPanelFrame) -> (self buildInfoPanelWith: aToolBuilder)
 	}.
 

packages/SVG-Editor.package/SVGEditorModel.class/instance/actionOpenFile.st

@@ -5,6 +5,6 @@ actionOpenFile
 	filename := self askOpenPath.
 	filename ifNil: [^ self].
 	stream := self getReadStreamForFileNamed: filename.
-	
+
 	[self svg: (SVGMorph fromFileStream: stream)]
 		ensure: [stream close]

packages/SVG-Editor.package/SVGEditorModel.class/instance/actionSaveFile.st

@@ -1,13 +1,13 @@
 actions
 actionSaveFile
-	
+
 	| filename stream |
 	self canSaveFile ifFalse: [^self].
-	
+
 	filename := self askSavePath.
 	filename ifNil: [^ self].
 	stream := self getWriteStreamForFileNamed: filename.
-	
+
 	[SVGExporter new
 		visitSVGMorph: self svg;
 		exportOn: stream]

packages/SVG-Editor.package/SVGEditorModel.class/instance/displayNameOf..st

@@ -1,4 +1,4 @@
 accessing
 displayNameOf: aNode
-	
+
 	^ aNode displayName

packages/SVG-Editor.package/SVGEditorModel.class/instance/selectElement..st

@@ -1,6 +1,6 @@
 accessing
 selectElement: anElement
-	
+
 	|current|
 	selectedPath := OrderedCollection new.
 	current := anElement.

packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st

@@ -1,7 +1,7 @@
 accessing
 selectedElement: anObject
-	
+
 	selectedElement := anObject.
-	self 
+	self
 		changed: #selectedElement;
 		changed: #infoForSelectedElement

packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st

@@ -1,4 +1,4 @@
 accessing
 selectedElement
-	
+
 	^ selectedElement

packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st

@@ -1,4 +1,4 @@
 accessing
 selectedPath
-	
+
 	^ selectedPath

packages/SVG-Editor.package/SVGEditorModel.class/instance/svg..st

@@ -2,7 +2,7 @@ accessing
 svg: anSVGMorph
 
 	anSVGMorph = self svg ifTrue: [^ self].
-	
+
 	svg := anSVGMorph.
 	self
 		changed: #svg;

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/class/for..st

@@ -1,6 +1,6 @@
 accessing
 for: aMorph
 
-	aMorph 
+	aMorph
 		ifNil: [^ Array new].
 	^ aMorph accept: self new

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st

@@ -1,7 +1,6 @@
 initialize-release
 initialize
 
-	self 
+	self
 		keys: OrderedCollection new;
 		values: OrderedCollection new
-

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCircleAttributesOf..st

@@ -1,6 +1,6 @@
 helpers
 readCircleAttributesOf: aCircle
 
-	self 
+	self
 		at: 'Position' put: aCircle rectangle center asString;
 		at: 'Radius' put: (aCircle rectangle width / 2) asString

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCommonAttributesOf..st

@@ -1,8 +1,7 @@
 helpers
 readCommonAttributesOf: aMorph
 
-	self 
+	self
 		at: 'Type' put: aMorph humanReadableClassName;
 		at: 'ID' put: aMorph id;
-		readStylesOf: aMorph.
-
+		readStylesOf: aMorph

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readEllipseAttributesOf..st

@@ -1,7 +1,7 @@
 helpers
 readEllipseAttributesOf: anEllipse
 
-	self 
+	self
 		at: 'Position' put: anEllipse rectangle center asString;
 		at: 'Horizontal Radius' put: (anEllipse rectangle width / 2) asString;
 		at: 'Vertical Radius' put: (anEllipse rectangle height / 2) asString

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readLineAttributesOf..st

@@ -1,6 +1,6 @@
 helpers
 readLineAttributesOf: aLine
 
-	self 
+	self
 		at: 'Start' put: aLine rectangle origin asString;
 		at: 'End' put: aLine rectangle corner asString

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st

@@ -2,4 +2,3 @@ helpers
 readPointsOf: aPolygonalMorph
 
 	self at: 'Points' put: (aPolygonalMorph points joinSeparatedBy: ' ')
-

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readRectangleAttributesOf..st

@@ -1,7 +1,7 @@
 helpers
 readRectangleAttributesOf: aRectangle
 
-	self 
+	self
 		at: 'Position' put: aRectangle rectangle origin asString;
 		at: 'Width' put: (aRectangle rectangle width) asString;
 		at: 'Height' put: (aRectangle rectangle height) asString

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readStylesOf..st

@@ -1,5 +1,5 @@
 helpers
 readStylesOf: aMorph
 
-	aMorph style keysAndValuesDo: [ :key :value |
+	aMorph style keysAndValuesDo: [:key :value |
 		self at: key put: value asString]

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st

@@ -1,8 +1,7 @@
 visiting
 visitSVGCircle: aCircle
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: aCircle;
 		readCircleAttributesOf: aCircle;
 		asList
-

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGEllipse: anEllipse
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: anEllipse;
 		readEllipseAttributesOf: anEllipse;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st

@@ -1,6 +1,6 @@
 visiting
 visitSVGGroup: aGroup
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: aGroup;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGLine: aLine
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: aLine;
 		readLineAttributesOf: aLine;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st

@@ -1,6 +1,6 @@
 visiting
 visitSVGMorph: aMorph
 
-	^ self 
+	^ self
 		readCommonAttributesOf: aMorph;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st

@@ -1,6 +1,6 @@
 visiting
 visitSVGPath: aPath
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: aPath;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGPolygon: aPolygon
 
-	^ self 
+	^ self
 		readCommonAttributesOf: aPolygon;
 		readPointsOf: aPolygon;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGPolyline: aPolyline
 
-	^ self 
+	^ self
 		readCommonAttributesOf: aPolyline;
 		readPointsOf: aPolyline;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGRectangle: aRectangle
-	
-	^ self 
+
+	^ self
 		readCommonAttributesOf: aRectangle;
 		readRectangleAttributesOf: aRectangle;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGTSpan: aTSpan
 
-	^ self 
+	^ self
 		readCommonAttributesOf: aTSpan;
 		readTextAttributesOf: aTSpan;
 		asList

packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGText..st

@@ -1,7 +1,7 @@
 visiting
 visitSVGText: aText
 
-	^ self 
+	^ self
 		readCommonAttributesOf: aText;
 		readTextAttributesOf: aText;
 		asList

packages/SVG-Editor.package/SVGPanel.class/instance/model..st

@@ -1,8 +1,8 @@
 accessing
 model: anObject
-	
+
 	self model = anObject ifTrue: [^ self].
-	
+
 	self model ifNotNil: [self model removeDependent: self].
 	model := anObject.
 	self model addDependent: self