System.MIDI.Launchpad.AppFramework.Internal

Contents

• simple colors
• pure interface
• render only the difference between old and new display
• global variables
• helper functions
• update loop
• run applications
• render the buttons

Synopsis

• red :: Color
• orange :: Color
• yellow :: Color
• amber :: Color
• green :: Color
• controlColor :: Color
• data PureApp cfg mode state = PureApp {
  • pAppConfig :: cfg
  • pAppIniState :: (mode, state)
  • pAppStartStop :: cfg -> Bool -> state -> state
  • pAppRender :: cfg -> mode -> state -> Maybe Int -> [(Button, Color)]
  • pAppButton :: cfg -> ButtonPress -> (mode, state) -> ((mode, state), [MidiMessage'])
  • pAppSync :: cfg -> mode -> state -> Int -> (state, [MidiMessage'])
  }
• safeRenderDiff :: [(Button, Color)] -> [(Button, Color)] -> Messages
• unsafeRenderDiff :: [(Button, Color)] -> [(Button, Color)] -> Messages
• theSyncCounter :: MVar Int
• thePlayingFlag :: MVar Bool
• theLaunchpadMode :: MVar Control
• theLedUpdateBuffer :: MVar [Messages]
• theLastScreen :: MVar [(Button, Color)]
• whenUser2 :: GlobalConfig -> IO () -> IO ()
• whenUser2' :: IO () -> IO ()
• pushUpdates :: Messages -> IO ()
• replaceMVar :: MVar a -> a -> IO ()
• forceList :: [a] -> [a]
• appUpdateLoop :: IO ()
• data GlobalConfig = GlobalConfig {
  • defaultLaunchpadDevice :: String
  • defaultMidiOutputDevice :: String
  • outputChannel :: Int
  • onlyUserMode2 :: Bool
  }
• selectDevice :: String -> String -> IO (Source, Destination)
• runPureApp :: GlobalConfig -> PureApp cfg mode state -> IO ()
• appLaunchpadCallback :: (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> Connection -> MidiEvent -> IO ()
• appSyncHandler :: (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> Connection -> MidiEvent -> IO ()
• diffRender :: (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> IO ()
• fullRender :: (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> IO ()
• diffRender' :: Maybe Int -> (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> IO ()
• fullRender' :: Maybe Int -> (GlobalConfig, PureApp cfg mode state, MVar mode, MVar state) -> IO ()

simple colors

pure interface

render only the difference between old and new display

global variables

helper functions

update loop

run applications

render the buttons