-- vim: ft=terra
local pstr = lib.mem.ptr(int8)
local terra cs(s: rawstring)
return pstr { ptr = s, ct = lib.str.sz(s) }
end
local terra
render_profile(
co: &lib.srv.convo,
actor: &lib.store.actor,
relationship: &lib.store.relationship
): pstr
var aux: lib.str.acc
var followed = false -- FIXME
if co.aid ~= 0 and co.who.id == actor.id then
aux:pcompose(&co.srv.pool,'<a accesskey="a" class="button" href="/conf/profile?go=/@',actor.handle,'">alter</a>')
elseif co.aid ~= 0 then
if not relationship.rel.follow() then
aux:pcompose(&co.srv.pool,'<button accesskey="f" method="post" class="pos" name="act" value="follow">follow</button>')
elseif relationship.rel.follow() then
aux:pcompose(&co.srv.pool,'<button accesskey="f" method="post" class="neg" name="act" value="unfollow">unfollow</button>')
end
aux:lpush('<a accesskey="h" class="button" href="/'):push(actor.xid,0):lpush('/chat">chat</a>')
if co.who.rights.powers:affect_users() and co.who:overpowers(actor) then
aux:lpush('<a accesskey="n" class="button" href="/'):push(actor.xid,0):lpush('/ctl">control</a>')
end
else
aux:pcompose(&co.srv.pool,'<a accesskey="f" class="button" href="/', actor.xid, '/follow">remote follow</a>')
end
var auxp = aux:finalize()
var timestr: int8[26] lib.osclock.ctime_r(&actor.knownsince, ×tr[0])
var strfbuf: int8[28*4]
var stats = co.srv:actor_stats(actor.id)
var sn_posts = cs(lib.math.decstr_friendly(stats.posts, &strfbuf[ [strfbuf.type.N - 1] ]))
var sn_follows = cs(lib.math.decstr_friendly(stats.follows, sn_posts.ptr - 1))
var sn_followers = cs(lib.math.decstr_friendly(stats.followers, sn_follows.ptr - 1))
var sn_mutuals = cs(lib.math.decstr_friendly(stats.mutuals, sn_followers.ptr - 1))
var bio = pstr '<em style="opacity:0.6">tall, dark, and mysterious</em>'
if actor.bio ~= nil then
bio = lib.smackdown.html(&co.srv.pool,cs(actor.bio),false)
end
var fullname = lib.render.nym(actor,0,nil,false) defer fullname:free()
var comments = co:stra(64)
if co.srv.cfg.master == actor.id then
var foundertxt = pstr 'founder'
if co.srv.cfg.ui_cue_founder:ref() then
if co.srv.cfg.ui_cue_founder.ct == 0 -- empty string, suppress field
then foundertxt = pstr.null()
else foundertxt = co.srv.cfg.ui_cue_founder
end
end
if foundertxt:ref() then
comments:lpush('<li style="--co:-70">'):ppush(foundertxt):lpush('</li>')
end
end
if co.aid ~= 0 and actor.rights.rank ~= 0 then
var stafftxt = pstr 'site staff'
if co.srv.cfg.ui_cue_staff:ref() then
if co.srv.cfg.ui_cue_staff.ct == 0 -- empty string, suppress field
then stafftxt = pstr.null()
else stafftxt = co.srv.cfg.ui_cue_staff
end
end
-- this is really more what epithets are for, i think
if actor.rights.rank > 0 and stafftxt:ref() then
comments:lpush('<li>'):ppush(stafftxt):lpush('</li>')
end
if co.who.rights.rank ~= 0 then
if co.who:outranks(actor) then
comments:lpush('<li style="--co:50">underling</li>')
elseif actor:outranks(co.who) then
comments:lpush('<li style="--co:-50">outranks you</li>')
end
end
if relationship.recip.follow() then
comments:lpush('<li style="--co:30">follows you</li>')
end
end
var profile = data.view.profile {
nym = fullname;
bio = bio;
xid = cs(actor.xid);
avatar = cs(actor.avatar);
nposts = sn_posts, nfollows = sn_follows;
nfollowers = sn_followers, nmutuals = sn_mutuals;
tweetday = cs(timestr);
timephrase = lib.trn(actor.origin == 0, pstr 'joined', pstr 'known since');
remarks = '';
auxbtn = auxp;
}
if comments.sz > 0 then profile.remarks = comments:finalize() end
var ret = profile:poolstr(&co.srv.pool)
-- auxp:free()
--if actor.bio ~= nil then bio:free() end
--if comments.sz > 0 then profile.remarks:free() end
return ret
end
return render_profile