diff options
| -rw-r--r-- | jakob/utils/comments.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/jakob/utils/comments.scm b/jakob/utils/comments.scm index 06c15b5..a698f1d 100644 --- a/jakob/utils/comments.scm +++ b/jakob/utils/comments.scm @@ -39,13 +39,15 @@ (define (gravatar-url email) "Return the gravatar.com URL for user identified by EMAIL" + (define default-icon-url "https://jakob.space/static/image/user.png") (chain email (string-downcase _) (string-trim-both _) (string->bytevector _ "utf8") (bytevector-hash _ (lookup-hash-algorithm 'md5)) (bytevector->base16-string _) - (format #f "https://www.gravatar.com/avatar/~a" _))) + (format #f "https://www.gravatar.com/avatar/~a?d=~a" + _ default-icon-url))) (define (safe-markdown->sxml text) "Convert TEXT to an sxml form filtering out any unsafe entities" |