Google+ Profile support

commercialhaskell · Nov 25, 2011 · c29bead · c29bead
1 parent c744e9a
commit c29bead
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 0 deletions.
diff --git a/Handler/Profile.hs b/Handler/Profile.hs
@@ -79,8 +79,11 @@ userForm maxY u = renderTable $ User
     <*> aopt doubleField "Latitude"
             { fsId = Just "latitude"
             } (Just $ userLatitude u)
+    <*> aopt (checkBool validGooglePlus ("Not a Google+ link" :: T.Text) urlField)
+            "Google+ Profile Link" (Just $ userGooglePlus u)
   where
     empOpts = map (pack . prettyEmployment &&& id) [minBound..maxBound]
+    validGooglePlus t = "https://plus.google.com/" `T.isPrefixOf` t
 
 getProfileR :: Handler RepHtml
 getProfileR = do

diff --git a/Haskellers.hs b/Haskellers.hs
@@ -422,6 +422,7 @@ instance YesodAuth Haskellers where
                     , userLocation = Nothing
                     , userLongitude = Nothing
                     , userLatitude = Nothing
+                    , userGooglePlus = Nothing
                     }
                 addBIDEmail uid
                 _ <- insert $ Ident (credsIdent creds) uid

diff --git a/entities b/entities
@@ -16,6 +16,7 @@ User
     location Text Maybe
     longitude Double Maybe Ne
     latitude Double Maybe Ne
+    googlePlus Text Maybe
 Username
     user UserId
     username Text

diff --git a/hamlet/user.hamlet b/hamlet/user.hamlet
@@ -27,6 +27,9 @@ $if viewerIsAdmin
     $maybe w <- userWebsite u
         <div .website>
             <a href="#{w}">#{w}
+    $maybe gp <- userGooglePlus u
+        <div .googleplus>
+            <a href=#{gp}>Google+ Profile
     $maybe e <- userEmployment u
         <div .employment>#{e}
     $maybe l <- userLocation u