Merge pull request #24 from pairshaped/initialized-outside-elm

Support firebase when initialized outside of elm

CREDITS.md

@@ -1,5 +1,5 @@
 ## Credits
 
  - [@tilmans](https://github.com/tilmans) - Early adopter, and guinea pig for all that code I should have tested and haven't yet.
-
+ - [@ucode](https://github.com/ucode) - Brought the new firebase environment initialization to my attention.
 

README.md

@@ -36,12 +36,12 @@ Then you can add elm-firebase to your elm-package.json like so:
 ```
 {
   "dependencies": {
-    "pairshaped/elm-firebase": "0.0.12 <= v < 1.0.0"
+    "pairshaped/elm-firebase": "0.0.13 <= v < 1.0.0"
   },
   "dependency-sources": {
     "pairshaped/elm-firebase": {
       "url": "https://github.com/pairshaped/elm-firebase",
-      "ref": "master"
+      "ref": "v0.0.13"
     }
   }
 }

elm-package.json

@@ -1,5 +1,5 @@
 {
-    "version": "0.0.12",
+    "version": "0.0.13",
     "summary": "Firebase bindings for elm",
     "repository": "https://github.com/pairshaped/elm-firebase.git",
     "license": "BSD3",

examples/kitchenSink/src/Main.elm

@@ -138,6 +138,7 @@ type Msg
     | SignInAnonymously
     | SignedIn (Result Error User)
     | SignOut
+    | GetApp
     | NoOp ()
 
 
@@ -238,6 +239,13 @@ update msg model =
                 , Task.perform NoOp (Firebase.Authentication.signOut auth)
                 )
 
+        GetApp ->
+            let
+                _ =
+                    Debug.log "Firebase app" (Firebase.app ())
+            in
+                update (NoOp ()) model
+
         NoOp _ ->
             ( model
             , Cmd.none
@@ -272,6 +280,9 @@ view model =
             ]
         , div [] [ text ("Collection query = " ++ (toString model.collection)) ]
         , viewSignIn model.currentUser
+        , button
+            [ onClick GetApp ]
+            [ text "Check console for current app" ]
         ]
 
 

src/Firebase.elm

@@ -4,6 +4,7 @@ module Firebase
         , Config
         , sdkVersion
         , apps
+        , app
         , init
         , initWithName
         , deinit
@@ -17,7 +18,7 @@ module Firebase
 @docs App, Config
 
 # App methods
-@docs init, initWithName, deinit, name, options
+@docs app, init, initWithName, deinit, name, options
 
 # Helpers
 @docs sdkVersion, apps
@@ -77,6 +78,34 @@ apps =
     Native.Firebase.apps
 
 
+{-| Get the currently initialized app if there is one
+
+Maps to `firebase.app`
+-}
+
+app : () -> Maybe App
+app =
+    Native.Firebase.app
+
+
+{-| Find an app with a given name
+
+To get the default app:
+
+```
+app : Maybe Firebase.App
+app =
+    Firebase.getAppByName "[DEFAULT]"
+```
+
+Does not map to a Firebase method, it's just a convenience
+-}
+getAppByName : String -> Maybe App
+getAppByName appName =
+    apps ()
+        |> List.filter (\app -> (name app) == appName)
+        |> List.head
+
 
 -- App Methods
 

src/Native/Firebase.js

@@ -29,6 +29,29 @@ var _pairshaped$elm_firebase$Native_Firebase = function () { // eslint-disable-l
     return _elm_lang$core$Native_List.fromArray(firebase.apps)
   }
 
+  var app = function (dummy) {
+    debug("Firebase.app", dummy)
+
+    try {
+      var app = firebase.app()
+
+      if (app) {
+        return {
+          ctor: "Just",
+          _0: {
+            ctor: "App",
+            app: function () { return app }
+          }
+        }
+      }
+    } catch (e) {
+      // No op
+      // firebase.app() can throw an error if an app hasn't been initialized.
+    }
+
+    return { ctor: "Nothing" }
+  }
+
 
   // Firebase.App methods
 
@@ -91,6 +114,7 @@ var _pairshaped$elm_firebase$Native_Firebase = function () { // eslint-disable-l
   return {
     "sdkVersion": sdkVersion,
     "apps": apps,
+    "app": app,
     "init": init,
     "initWithName": F2(initWithName),
     "deinit": deinit,