-- Copyright 2020 Evan Laforge
-- This program is distributed under the terms of the GNU General Public
-- License 3.0, see COPYING or http://www.gnu.org/licenses/gpl-3.0.txt
module Cmd.Repl.LKeycaps where
import qualified Cmd.Cmd as Cmd
import qualified Cmd.SyncKeycaps as SyncKeycaps
import qualified Ui.KeycapsT as KeycapsT


open :: Cmd.M m => m ()
open :: forall (m :: * -> *). M m => m ()
open = forall (m :: * -> *). M m => m ()
SyncKeycaps.open

close :: Cmd.M m => m ()
close :: forall (m :: * -> *). M m => m ()
close = forall (m :: * -> *). M m => m ()
SyncKeycaps.close

get_bindings :: Cmd.M m => m KeycapsT.Bindings
get_bindings :: forall (m :: * -> *). M m => m Bindings
get_bindings = forall (m :: * -> *). M m => KeycapsState -> m Bindings
SyncKeycaps.get_bindings forall a b. (a -> b) -> a -> b
$ Cmd.KeycapsState
    { kc_mods :: Set Modifier
kc_mods = forall a. Monoid a => a
mempty
    , kc_octave :: Octave
kc_octave = Octave
0
    , kc_is_kbd_entry :: Bool
kc_is_kbd_entry = Bool
False
    , kc_track_type :: Maybe Type
kc_track_type = forall a. Maybe a
Nothing
    , kc_instrument :: Maybe Instrument
kc_instrument = forall a. Maybe a
Nothing
    , kc_scale_id :: Maybe ScaleId
kc_scale_id = forall a. Maybe a
Nothing
    }