@@ -9,6 +9,7 @@ module Language.Javascript.JSaddle.WKWebView
99 , runHTMLWithBaseURL
1010 , runFile
1111 , mainBundleResourcePath
12+ , ApplicationState (..)
1213 , AppDelegateConfig (..)
1314 , AppDelegateNotificationConfig (..)
1415 , AuthorizationOption (..)
@@ -24,6 +25,7 @@ import Language.Javascript.JSaddle.WKWebView.Internal
2425 (jsaddleMain, jsaddleMainHTMLWithBaseURL, jsaddleMainFile, WKWebView(..), mainBundleResourcePath)
2526import System.Environment (getProgName)
2627import Foreign.C.String (CString, withCString)
28+import Foreign.C.Types (CBool, CInt)
2729import Foreign.StablePtr (StablePtr, newStablePtr)
2830import Language.Javascript.JSaddle (JSM)
2931
@@ -39,6 +41,7 @@ foreign import ccall runInWKWebView
3941 -> StablePtr (IO ()) -- applicationWillTerminate
4042 -> StablePtr (IO ()) -- applicationSignificantTimeChange
4143 -> StablePtr (CString -> IO ()) -- applicationUniversalLink
44+ -> StablePtr (CInt -> CString -> IO ()) -- applicationDidReceiveRemoteNotification
4245 -> Word64 -- whether to run requestAuthorizationWithOptions
4346 -> Word64 -- Ask for Badge authorization
4447 -> Word64 -- Ask for Sound authorization
@@ -47,7 +50,8 @@ foreign import ccall runInWKWebView
4750 -> Word64 -- registerForRemoteNotifications
4851 -> StablePtr (CString -> IO ()) -- didRegisterForRemoteNotificationsWithDeviceToken
4952 -> StablePtr (CString -> IO ()) -- didFailToRegisterForRemoteNotificationsWithError
50− -> Word64 -- Allow developer tools
53+ -> Word64 -- developerExtrasEnabled
54+ -> StablePtr (CString -> IO CBool) -- applicationOpenFile
5155 -> IO ()
5256
5357data AppDelegateConfig = AppDelegateConfig
@@ -60,8 +64,25 @@ data AppDelegateConfig = AppDelegateConfig
6064 , _appDelegateConfig_applicationWillTerminate :: IO ()
6165 , _appDelegateConfig_applicationSignificantTimeChange :: IO ()
6266 , _appDelegateConfig_applicationUniversalLink :: CString -> IO ()
67+ -- ^ Called when the app is launched from a URL. 'CString' contains the URL.
68+ --
69+ -- The Core Foundation plist key CFBundleURLTypes controls which URL schemes
70+ -- the app should respond to.
71+ , _appDelegateConfig_applicationDidReceiveRemoteNotification :: ApplicationState -> CString -> IO ()
72+ -- ^ Called when the application receives a remote notification.
73+ -- 'ApplicationState' is the current state of the app.
74+ -- The 'CString' JSON-encoded user info contained in the notification.
75+ -- For more information see https://developer.apple.com/documentation/uikit/uiapplicationdelegate/1623117-application?language=objc
6376 , _appDelegateConfig_appDelegateNotificationConfig :: AppDelegateNotificationConfig
6477 , _appDelegateConfig_developerExtrasEnabled :: Bool
78+ -- ^ Allow devtools in the app. Defaults to 'True'
79+ , _appDelegateConfig_applicationOpenFile :: CString -> IO Bool
80+ -- ^ Called when the app is launched by opening a file. 'CString' contains
81+ -- the file path. Return value is 'True' if the file was successfully
82+ -- opened. Defaults to ignoring the file and returning 'False'.
83+ --
84+ -- The Core Foundation plist key CFBundleDocumentTypes controls which file
85+ -- types should be associated with the app.
6586 }
6687
6788instance Default AppDelegateConfig where
@@ -75,8 +96,10 @@ instance Default AppDelegateConfig where
7596 , _appDelegateConfig_applicationWillTerminate = return ()
7697 , _appDelegateConfig_applicationSignificantTimeChange = return ()
7798 , _appDelegateConfig_applicationUniversalLink = \_ -> return ()
99+ , _appDelegateConfig_applicationDidReceiveRemoteNotification = \_ _ -> return ()
78100 , _appDelegateConfig_appDelegateNotificationConfig = def
79101 , _appDelegateConfig_developerExtrasEnabled = True
102+ , _appDelegateConfig_applicationOpenFile = \_ -> return False
80103 }
81104
82105data AuthorizationOption = AuthorizationOption_Badge
@@ -85,6 +108,12 @@ data AuthorizationOption = AuthorizationOption_Badge
85108 | AuthorizationOption_CarPlay
86109 deriving (Show, Read, Eq, Ord)
87110
111+data ApplicationState = ApplicationState_Active
112+ | ApplicationState_Inactive
113+ | ApplicationState_Background
114+ | ApplicationState_Unknown CInt
115+ deriving (Show, Read, Eq, Ord)
116+
88117data AppDelegateNotificationConfig = AppDelegateNotificationConfig
89118 { _appDelegateNotificationConfig_requestAuthorizationWithOptions :: Maybe (Set AuthorizationOption)
90119 , _appDelegateNotificationConfig_registerForRemoteNotifications :: Bool
@@ -147,6 +176,14 @@ run' cfg main = do
147176 applicationWillTerminate <- newStablePtr $ _appDelegateConfig_applicationWillTerminate cfg
148177 applicationSignificantTimeChange <- newStablePtr $ _appDelegateConfig_applicationSignificantTimeChange cfg
149178 applicationUniversalLink <- newStablePtr $ _appDelegateConfig_applicationUniversalLink cfg
179+ applicationDidReceiveRemoteNotification <- newStablePtr $ \n s -> do
180+ let appState = case n of
181+ 0 -> ApplicationState_Active
182+ 1 -> ApplicationState_Inactive
183+ 2 -> ApplicationState_Background
184+ _ -> ApplicationState_Unknown n
185+ _appDelegateConfig_applicationDidReceiveRemoteNotification cfg appState s
186+ applicationOpenFile <- newStablePtr $ fmap fromBool . _appDelegateConfig_applicationOpenFile cfg
150187
151188 -- AppDelegate notification configuration
152189 let ncfg = _appDelegateConfig_appDelegateNotificationConfig cfg
@@ -169,6 +206,7 @@ run' cfg main = do
169206 applicationWillTerminate
170207 applicationSignificantTimeChange
171208 applicationUniversalLink
209+ applicationDidReceiveRemoteNotification
172210 (fromBool requestAuthorizationWithOptions)
173211 (fromBool $ Set.member AuthorizationOption_Badge authorizationOptions)
174212 (fromBool $ Set.member AuthorizationOption_Sound authorizationOptions)
@@ -178,3 +216,4 @@ run' cfg main = do
178216 didRegisterForRemoteNotificationsWithDeviceToken
179217 didFailToRegisterForRemoteNotificationsWithError
180218 (fromBool $ _appDelegateConfig_developerExtrasEnabled cfg)
219+ applicationOpenFile