/-  cnt=contact
/+  sigil=sigil-sigil, lib=boke
/+  lib=boke
|_  [u=@p =whoms:cnt avatar-size=@ud]
++  $  ^-  [avatar=manx name=manx]
=/  ming  (get-name:lib u)
=/  sig  sigil(size avatar-size)  
  =/  sigl  ?:  (lth u (bex 64))  
  ;div.avatar  ;+  (sig u)  ==
  =/  random  (random-avatar:lib (jam u))
  ;img.avatar@"{random}";
=/  nam   ;div.name:"{ming}"

=/  prof  (~(get by whoms) [%.y u])
?~  prof  [sigl nam]
=/  avatar
  =/  avatar-data  (~(get by info.u.prof) %avatar)
  ?~  avatar-data  sigl
  ?.  ?=(%look -.u.avatar-data)  sigl
  ;img.avatar@"{(trip +.u.avatar-data)}";
=/  name-div
  =/  name-data  (~(get by info.u.prof) %nickname)
  ?~  name-data  nam
  ?.  ?=(%text -.u.name-data)  nam
  ;div.name:"{(trip +.u.name-data)}"

[avatar name-div]
--