Add Lepiter snippets for Carp

src/Carp/LeCarpSnippetViewModel.class.st

@@ -0,0 +1,29 @@
+Class {
+	#name : #LeCarpSnippetViewModel,
+	#superclass : #LeCodeSnippetViewModel,
+	#category : #'Carp-Lepiter'
+}
+
+{ #category : #accessing }
+LeCarpSnippetViewModel >> initializeCoderAddOns: aCoderViewModel [
+	"Initialise the keyboard shortcuts in the code editor"
+
+	aCoderViewModel
+		"Create New snippet (after the current snippet)"
+		addShortcut: (LeSnippetSplitSnippetShortcut new combination: (self keyboardShortcut: #SplitSnippet));
+		"Delete previous character, or merge with previous snippet"	
+		addShortcut: (LeSnippetDeletePreviousShortcut new combination: (self keyboardShortcut: #DeletePrevious));
+		"Indent LeSnippet"
+		addShortcut: (LeSnippetIndentSnippetShortcut new combination: (self keyboardShortcut: #IndentSnippet));
+		"Unindent LeSnippet"
+		addShortcut: (LeSnippetUnindentSnippetShortcut new combination: (self keyboardShortcut: #UnindentSnippet));
+		"Move Snippet up"
+		addShortcut: (LeSnippetMoveSnippetUpShortcut new combination: (self keyboardShortcut: #MoveSnippetUp));
+		"Move Snippet down"
+		addShortcut: (LeSnippetMoveSnippetDownShortcut new combination: (self keyboardShortcut: #MoveSnippetDown))
+]
+
+{ #category : #accessing }
+LeCarpSnippetViewModel >> snippetElementClass [
+	^ LeCarpSnippetElement
+]