Be better on startup

src/Carp/CarpModuleCoderElement.class.st

@@ -15,8 +15,7 @@ Class {
 { #category : #accessing }
 CarpModuleCoderElement >> build [
 	| application commandFactory |
-	application := CarpApplication uniqueInstance.
-	application isRunning ifFalse: [ application start ].
+	application := CarpApplication start.
 	commandFactory := application newCommandFactory.
 
 	^ commandFactory

src/Carp/GtCarpNewFunctionCoderModel.class.st

@@ -10,6 +10,9 @@ Class {
 
 { #category : #accessing }
 GtCarpNewFunctionCoderModel >> initializeAddOns: addOns [
+	addOns
+		addStyler: (GtCoderAstSmaCCParserStyler new smaccStyler: CarpParser gtStyler).
+
 	addOns
 		addMainAction: 'Save' translated
 		icon: BrGlamorousVectorIcons accept

src/Carp/LeCarpApplicationStrategy.class.st

@@ -13,8 +13,6 @@ LeCarpApplicationStrategy class >> strategyName [
 { #category : #accessing }
 LeCarpApplicationStrategy >> applicationServer [
 
-	CarpApplication uniqueInstance ifNil:
-		[ CarpApplication uniqueInstance: self newCarpApplication ].
 	^ CarpApplication uniqueInstance
 ]
 
@@ -26,32 +24,5 @@ LeCarpApplicationStrategy >> applicationSettings [
 	^ CarpApplication isRunning ifTrue:
 		[ CarpApplication uniqueInstance settings ]
 	ifFalse:
-		[ self updatedSettings: CarpApplication defaultSettings ]
-]
-
-{ #category : #accessing }
-LeCarpApplicationStrategy >> newCarpApplication [
-
-	^ CarpApplication new initializeWith: 
-		(self updatedSettings: LanguageLinkSettings carpDefaultSettings)
-
-]
-
-{ #category : #accessing }
-LeCarpApplicationStrategy >> updatedSettings: applicationCarpSettings [
-	"Update the supplied settings with the lepiter configuration"
-
-	| lepiterCarpSettings lepiterDatabase carpDir |
-	lepiterDatabase := content database.
-	(lepiterDatabase isKindOf: LeNullDatabase)
-		ifTrue: [ ^ applicationCarpSettings ].
-	lepiterCarpSettings := lepiterDatabase properties carpLinkSettings.
-	lepiterCarpSettings directory
-		ifNotNil: [ :relativeDir | 
-			carpDir := lepiterDatabase localStoreRootDirectory resolve: relativeDir.
-			applicationCarpSettings workingDirectory: carpDir ].	"lepiterCarpSettings carpPath ifNotNil:
-		[ :carpPath | applicationCarpSettings serverExecutable: carpPath ]."
-	applicationCarpSettings serverDebugMode: lepiterCarpSettings serverDebugMode.
-
-	^ applicationCarpSettings
+		[ CarpApplication defaultSettings ]
 ]