From 0cef2960c08ef23eb24acec788de34241f8f6dcc Mon Sep 17 00:00:00 2001
From: Raul Raja <raulraja@gmail.com>
Date: Tue, 4 Jul 2017 20:21:37 +0200
Subject: [PATCH] Adds `pressMenu` action to DSL

---
 .../src/main/kotlin/com/pguardiola/uigesturegen/dsl/dsl.kt     | 3 +++
 .../main/kotlin/com/pguardiola/uigesturegen/dsl/examples.kt    | 3 ++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/dsl.kt b/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/dsl.kt
index b03e7a5..aa62961 100644
--- a/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/dsl.kt
+++ b/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/dsl.kt
@@ -13,6 +13,7 @@ sealed class GestureDSL<out A> : HK<GestureDSL.F, A> {
     data class Wait<R>(val condition: SearchCondition<R>, val timeout: Long) : GestureDSL<R>()
     data class FindObject(val selector: UiSelector) : GestureDSL<UiObject>()
     data class WithDevice<out A>(val f: (UiDevice) -> A) : GestureDSL<A>()
+    object PressMenu : GestureDSL<Boolean>()
 
     companion object : FreeMonad<GestureDSL.F>
 
@@ -27,6 +28,7 @@ class SafeInterpreter<F>(val M: MonadError<F, Throwable>, val device: UiDevice)
             is GestureDSL.Wait<*> -> M.pure(device.wait(g.condition, g.timeout))
             is GestureDSL.FindObject -> M.pure(device.findObject(g.selector))
             is GestureDSL.WithDevice<*> -> M.pure(g.f(device))
+            is GestureDSL.PressMenu -> M.pure(device.pressMenu())
         } as HK<F, A>
     }
 }
@@ -51,6 +53,7 @@ fun pressHome(): DSLAction<Boolean> = Free.liftF(GestureDSL.PressHome)
 fun <R> wait(condition: SearchCondition<R>, timeout: Long): DSLAction<R> = Free.liftF(GestureDSL.Wait(condition, timeout))
 fun findObject(selector: UiSelector): DSLAction<UiObject> = Free.liftF(GestureDSL.FindObject(selector))
 fun <A> withDevice(f: (UiDevice) -> A): DSLAction<A> = Free.liftF(GestureDSL.WithDevice(f))
+fun pressMenu(): DSLAction<Boolean> = Free.liftF(GestureDSL.PressMenu)
 
 fun <A> Free<GestureDSL.F, A>.run(device: UiDevice): Try<A> =
         this.foldMap(SafeInterpreter(Try, device), Try).ev()
diff --git a/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/examples.kt b/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/examples.kt
index 14fa6f2..0ef8fef 100644
--- a/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/examples.kt
+++ b/uiagesturegen/src/main/kotlin/com/pguardiola/uigesturegen/dsl/examples.kt
@@ -11,9 +11,10 @@ object GestureDSLExamples {
     /**
      * compose multiple actions independently regardless of return types
      */
-    fun independentActionsWorkflow(): DSLAction<Tuple4<Boolean, UiObject, UiObject, UiObject>> =
+    fun independentActionsWorkflow(): DSLAction<Tuple5<Boolean, Boolean, UiObject, UiObject, UiObject>> =
             GestureDSL.tupled(
                     pressHome(),
+                    pressMenu(),
                     findObject(UiSelector().description("1")),
                     findObject(UiSelector().description("2")),
                     findObject(UiSelector().description("3"))).ev()