Moving between pages.

src/LepiterPlugins/GfLeSnippet.class.st

@@ -1,5 +0,0 @@
-Class {
-	#name : #GfLeSnippet,
-	#superclass : #Object,
-	#category : #LepiterPlugins
-}

src/LepiterPlugins/LeSnippet.extension.st

@@ -4,5 +4,29 @@ Extension { #name : #LeSnippet }
 LeSnippet >> index [
 	| uuids |
 	uuids := self parent children collect: [:each | each uidString ].
-	^ uuids
+	uuids doWithIndex: [ :unId :i | 
+		unId = self uidString ifTrue: [ ^ i ] 
+	]
+]
+
+{ #category : #'*LepiterPlugins' }
+LeSnippet >> moveFrom: originPage to: destinationPage [
+	| db origin thisSnippet  destination |
+	db := self page database.
+	destination := db pageNamed: destinationPage.
+	origin := db pageNamed: originPage.
+	thisSnippet := origin children at: self index.
+	origin removeSnippet: thisSnippet.
+	destination addSnippet: thisSnippet.
+]
+
+{ #category : #'*LepiterPlugins' }
+LeSnippet >> moveTo: pageName [
+	| db origin destination thisSnippet  |
+	thisSnippet := self snippetModel.
+	db := self page database.
+	destination := db pageNamed: pageName.
+	origin := db pageNamed: thisSnippet page title.
+	origin removeSnippet: thisSnippet.
+	destination addSnippet: thisSnippet.
 ]

src/LepiterPlugins/LepiterPlugin.class.st

@@ -1,5 +0,0 @@
-Class {
-	#name : #LepiterPlugin,
-	#superclass : #Object,
-	#category : #LepiterPlugins
-}