-- Hoogle documentation, generated by Haddock
-- See Hoogle, http://www.haskell.org/hoogle/


-- | Utilities (e.g. Googling the clipboard contents) for the `workflow` pacakge
--   
--   Over functions to defined your own custom workflows, which should be
--   shareable across platforms. (for example, the usage of <a>M-c</a>
--   ("meta") over <a>A-c</a> ("alt") or <a>C-c</a> ("control") is
--   encouraged).
--   
--   documention at <a>Workflow.Derived</a>.
--   
--   see the source of <a>Workflow.Derived.Main</a> for an example.
--   
--   Combine with one of the platform-specific packages
--   (<tt>workflow-osx</tt>, <tt>workflow-windows</tt>,
--   <tt>workflow-x11</tt>, etc) with <a>Workflow.Derived.Repl</a> to
--   verify that the bindings behave correctly on your system.
--   
--   transitive dependencies:
--   
@package workflow-extra
@version 0.0.1


-- | A command line interface for manual integration testing.
--   
--   <a>cmdln</a> is parametrized over a platform-specific workflow
--   executor.
module Workflow.Derived.Repl
type WorkflowIO_ = WorkflowT IO ()
data Action
Quit :: Action
Help :: Action
Stay :: (WorkflowIO_) -> Action
Pause :: Int -> (WorkflowIO_) -> Action
Action :: (WorkflowIO_) -> Action

-- | prefix with a number to pause (for that many seconds) before
--   execution.
--   
--   prefix with "stay" to disable "alt-tab"ing before execution.
--   
--   e.g.
--   
--   <pre>
--   &gt; help
--   ...
--   &gt; stay paste
--   &gt; copy                   # (Having selected some text topmost (besides the current) window)
--   &gt; 1000 paste             # Wait a second before pasting
--   &gt; quit
--   </pre>
cmdln :: ExecuteWorkflow -> IO ()
evalAction :: ExecuteWorkflow -> String -> Maybe (IO ())
runAction :: ExecuteWorkflow -> Action -> Maybe (IO ())
help :: IO ()
parseAction :: String -> Action
gAction :: Grammar r (Prod r e [Char] Action)

module Workflow.Derived.Extra
failed :: (MonadThrow m) => String -> m a
nothing :: (Monad m) => m ()
maybe2bool :: Maybe a -> Bool
either2maybe :: Either e a -> Maybe a
either2bool :: Either e a -> Bool


module Workflow.Derived
chord :: MonadFree WorkflowF m0 => [Modifier] -> Key -> m0 ()

-- | access the currently selected region from Haskell, by copying to the
--   clipboard, via the default keyboard shortcut. (<a>wait</a>s 30ms)
copy :: (MonadWorkflow m) => m String

-- | paste via the default keyboard shortcut.
paste :: (MonadWorkflow m) => m ()
zoomInByKeyboard :: MonadFree WorkflowF m0 => m0 ()
zoomOutByKeyboard :: MonadFree WorkflowF m0 => m0 ()
insert :: MonadFree WorkflowF m0 => String -> m0 ()

-- | "paste" by directly inserting the current clipboard contents.
paste' :: (MonadWorkflow m) => m ()
click :: (MonadWorkflow m) => [Modifier] -> Natural -> MouseButton -> m ()
leftClick :: MonadFree WorkflowF m0 => m0 ()
middleClick :: MonadFree WorkflowF m0 => m0 ()
rightClick :: MonadFree WorkflowF m0 => m0 ()
doubleClick :: MonadFree WorkflowF m0 => m0 ()
tripleClick :: MonadFree WorkflowF m0 => m0 ()
controlClick :: MonadFree WorkflowF m0 => m0 ()
shiftClick :: MonadFree WorkflowF m0 => m0 ()
scroll :: MonadFree WorkflowF m0 => [Modifier] -> MouseScroll -> Natural -> m0 ()
ticks :: Num a => a -> a

-- | scroll one "tick" of the wheel.
scrollOnce :: MonadFree WorkflowF m0 => MouseScroll -> m0 ()
zoomInByMouse :: MonadFree WorkflowF m0 => m0 ()
zoomOutByMouse :: MonadFree WorkflowF m0 => m0 ()
flingAway :: MonadFree WorkflowF m0 => m0 ()
wait :: (MonadWorkflow m, Integral a) => a -> m ()

-- | google a query. properly encodes the url.
google :: (MonadWorkflow m) => String -> m ()

-- | intersperse a delay between each action.
--   
--   <pre>
--   delayWorkflowT 1 $ do
--    sendKeyChord [CommandModifier] VKey
--    s &lt;- getClipboard
--    sendText s
--   </pre>
--   
--   is equivalent to:
--   
--   <pre>
--   do
--    sendKeyChord [CommandModifier] VKey
--    delay 1
--    s &lt;- getClipboard
--    delay 1
--    sendText s
--   </pre>
delayWorkflowT :: (Monad m) => Int -> WorkflowT m a -> WorkflowT m a
sendTextEach :: (MonadWorkflow m) => Int -> String -> m ()
digit2keychord :: (MonadThrow m, Num i, Eq i, Show i) => i -> m KeyChord

module Workflow.Derived.Main
main :: IO ()