Gravatar: support linking to site other than http://gravatar.com/

ngocdaothanh · Jul 19, 2009 · b30831c · b30831c
1 parent 847c000
commit b30831c
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/ale.erl b/src/ale.erl
@@ -59,5 +59,9 @@ flash()      -> ale_session:flash().
 %-------------------------------------------------------------------------------
 
 ff(Basename, Data)    -> ale_utils:ff(Basename, Data).
+
 md5_hex(Module, Data) -> ale_utils:md5_hex(Module, Data).
-gravatar(Email, Size) -> ale_utils:gravatar(Email, Size).
+
+gravatar(Email)            -> ale_utils:gravatar(Email).
+gravatar(Email, Size)      -> ale_utils:gravatar(Email, Size).
+gravatar(Email, Size, Url) -> ale_utils:gravatar(Email, Size, Url).
diff --git a/src/ale_utils.erl b/src/ale_utils.erl
@@ -4,6 +4,8 @@
 
 -include("ale.hrl").
 
+-define(DEFAULT_GRAVATAR_SIZE, 80).
+
 %% Scans the project directory to find the first file with Basename, then reads
 %% the file and apply io_lib:format/2. This function can be used to render
 %% JavaScript template file.
@@ -43,10 +45,16 @@ md5_hex(Module, Data) ->
     Md5 = Module:md5(Data),
     lists:flatten([io_lib:format("~2.16.0b", [N]) || N <- binary_to_list(Md5)]).
 
+gravatar(Email) ->
+    gravatar(Email, ?DEFAULT_GRAVATAR_SIZE).
+
 gravatar(Email, Size) ->
+    gravatar(Email, Size, "http://gravatar.com").
+
+gravatar(Email, Size, Url) ->
     GravatarId = case Email of
         undefined -> "";
         _         -> md5_hex(erlang, Email)
     end,
     Src = io_lib:format("http://www.gravatar.com/avatar.php?size=~p&gravatar_id=~s", [Size, GravatarId]),
-    {a, [{href, "http://gravatar.com"}], {img, [{src, Src}]}}.
+    {a, [{href, Url}], {img, [{src, Src}]}}.