From 2f4898f3f748bcd5f018a9d00f066575af2b3ec7 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 16 Jul 2021 18:43:48 -0500
Subject: [PATCH] Moving between pages.

---
 src/LepiterPlugins/GfLeSnippet.class.st   |  5 -----
 src/LepiterPlugins/LeSnippet.extension.st | 26 ++++++++++++++++++++++-
 src/LepiterPlugins/LepiterPlugin.class.st |  5 -----
 3 files changed, 25 insertions(+), 11 deletions(-)
 delete mode 100644 src/LepiterPlugins/GfLeSnippet.class.st
 delete mode 100644 src/LepiterPlugins/LepiterPlugin.class.st

diff --git a/src/LepiterPlugins/GfLeSnippet.class.st b/src/LepiterPlugins/GfLeSnippet.class.st
deleted file mode 100644
index 5ea523b..0000000
--- a/src/LepiterPlugins/GfLeSnippet.class.st
+++ /dev/null
@@ -1,5 +0,0 @@
-Class {
-	#name : #GfLeSnippet,
-	#superclass : #Object,
-	#category : #LepiterPlugins
-}
diff --git a/src/LepiterPlugins/LeSnippet.extension.st b/src/LepiterPlugins/LeSnippet.extension.st
index a998adb..3bfdaa0 100644
--- a/src/LepiterPlugins/LeSnippet.extension.st
+++ b/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.
 ]
diff --git a/src/LepiterPlugins/LepiterPlugin.class.st b/src/LepiterPlugins/LepiterPlugin.class.st
deleted file mode 100644
index 8247ce8..0000000
--- a/src/LepiterPlugins/LepiterPlugin.class.st
+++ /dev/null
@@ -1,5 +0,0 @@
-Class {
-	#name : #LepiterPlugin,
-	#superclass : #Object,
-	#category : #LepiterPlugins
-}