Add Lepiter snippets for Carp

src/Carp/LeCarpSnippet.class.st

@@ -0,0 +1,42 @@
+Class {
+	#name : #LeCarpSnippet,
+	#superclass : #LeCodeSnippet,
+	#category : #'Carp-Lepiter'
+}
+
+{ #category : #'api - accessing menu' }
+LeCarpSnippet class >> contextMenuItemSpecification [
+	<leSnippetSpecification>
+	^ LeContextMenuItemSpecification new
+		snippetClass: self;
+		title: 'Carp'
+]
+
+{ #category : #'lepiter-store' }
+LeCarpSnippet class >> leJsonV3Name [
+
+	^ 'carpSnippet'
+]
+
+{ #category : #'lepiter-store' }
+LeCarpSnippet class >> leJsonV4Name [
+
+	^ 'carpSnippet'
+]
+
+{ #category : #visiting }
+LeCarpSnippet >> acceptVisitor: aVisitor [
+
+	^ aVisitor visitCarpSnippet: self
+]
+
+{ #category : #converting }
+LeCarpSnippet >> asSnippetViewModel [
+	<return: #LeSnippetViewModel>
+	^ LeCarpSnippetViewModel new snippetModel: self
+]
+
+{ #category : #accessing }
+LeCarpSnippet >> newCoder [
+	^ GtCarpCoderModel new
+]