implemented support for avatars, cards, polls, and attachments

pleroma-comments.css

@@ -0,0 +1,107 @@
+
+/* colors  */
+
+/*.pleroma-comment blockquote {
+    border-left: 3px solid red;
+}*/
+
+/*.pleroma-comment  .bar {
+    background-color: green;
+}*/
+
+/*.pleroma-comment .card-link {
+    background-color: blue;
+    color: white;
+}*/
+
+/*.pleroma-comment .card-link:hover {
+    background-color: orange;
+}*/
+
+.pleroma-comment blockquote {
+    padding-left:1%;
+}
+
+.pleroma-comment h3 > a {
+    text-decoration:none;
+}
+
+.pleroma-comment > figure {
+    display:flex;
+    align-items:center;
+}
+.pleroma-comment > figure img {
+    height:5em;
+    margin-right: 1em;
+}
+
+/* meta information about post */
+.pleroma-comment p, .pleroma-comment .chart {
+    margin-left: 5%;
+}
+
+/* usernames can either be figcaption or the first paragraph in the element */
+
+.pleroma-comment + p, .pleroma-comment figcaption {
+    font-weight:bold;
+}
+.pleroma-comment p > a, .pleroma-comment figcaption > a {
+    font-weight:normal;
+    text-decoration:none;
+}
+
+.pleroma-comment .card {
+    border: 1px solid #ccc;
+    border-radius: 8px;
+    overflow: hidden;
+    margin: 1%;
+    margin-left:10%;
+/*     adjust this */
+    width: 300px; 
+}
+.pleroma-comment .card-title {
+    font-size: 1.5em;
+    margin: 3%;
+}
+.pleroma-comment .card-description {
+    font-size: 1em;
+    margin:5%;
+}
+.pleroma-comment .card-image {
+    width: 100%;
+    height: auto;
+}
+.pleroma-comment .card-link {
+    display: block;
+    text-align: center;
+    padding: 10px;
+    text-decoration: none;
+    border-radius: 5px;
+    margin: 10px;
+}
+
+.pleroma-comment  .chart {
+/*     border:1px solid red; */
+    display: flex;
+    flex-direction: column;
+}
+
+@media only screen and (min-width:768px){
+    .pleroma-comment  .chart {
+        width: 45%;
+    }
+}
+
+.pleroma-comment .bar-container {
+    align-items: center;
+    margin: 1% 0;
+}
+
+.pleroma-comment .bar {
+    padding-top: 0.5em;
+    padding-bottom:0.5em;
+}
+
+.pleroma-comment .bar-text {
+    ;
+}

pleroma-comments.lua

@@ -3,6 +3,7 @@
 -- local https = "wget"
 local json = require("cjson")
 
+-- for testing 
 function printTable(t)
     for key, value in pairs(t) do
         print(key, value)
@@ -48,7 +49,127 @@ function get_short_date(timestamp)
     )
 end
 
-function write_comments(pleroma_posts, instance)
+function write_comments(pleroma_posts, instance, show_avatars)
+    show_avatars = show_avatars or false
+
+    function get_user(acct_data, instance, include_img)
+        -- user data
+        local user_info = ""
+        local result = ""
+        local vars = {
+            alias = acct_data["display_name"],
+            uid = acct_data["id"],
+            handle = acct_data["acct"],
+            host=instance
+        }
+        if include_img then 
+            user_info = [[
+            <figure>
+                <img src="$avatar$" loading="lazy" alt="avatar"/>
+                <figcaption>$alias$ <a href="$host$/users/$uid$">@$handle$</a> </figcaption>
+            </figure>
+            ]]
+            vars.avatar = acct_data["avatar_static"]
+            result = user_info:gsub("%$(%w+)%$", vars)
+        else
+            user_info = "<p>$alias$ <a href=\"$host$/users/$uid$\">@$handle$</a></p>"
+            result = user_info:gsub("%$(%w+)%$", vars)
+        end
+        return result
+    end
+
+    function get_card(card, instance)
+        if card == nil or type(card) ~= "table" then
+            return ""
+        end
+        if card["provider_url"] == instance then
+            -- skip rendering a card
+            return ""
+        end
+--         print(type(card))
+        local card_template = [[
+    <article class="card">
+        <header>
+            <h1 class="card-title">$title$</h1>
+            <p class="card-description">$description$</p>
+        </header>
+<!--        <img src="$image$" alt="$image_description$" class="card-image" loading="lazy"/> -->
+        <footer>
+            <a href="$link$" class="card-link">Read More</a>
+        </footer>
+    </article>
+        ]]
+        local vars = {
+            title = card["title"],
+            description = card["description"],
+            image = card["image"],
+            image_description=card["image_description"],
+            link = card["url"]
+        }
+        return card_template:gsub("%$(%w+)%$", vars)
+    end
+
+    function get_media(attachments)
+        if type(attachments) ~= "table" then
+            return ""
+        end
+        if #attachments < 1 then
+            return ""
+        end
+        local media_list = {"<p>media attached: </p><ol>"}
+        local item = "<li><a href=\"$link$\">$mime$</a></li>"
+        for _, v in pairs(attachments) do
+            local vars = {
+                link = v["preview_url"],
+                mime = v["pleroma"]["mime_type"]
+            }
+            local foo = item:gsub("%$(%w+)%$", vars)
+            print(foo)
+            table.insert(media_list, foo)
+        end
+        table.insert(media_list, "</ol>")
+        return table.concat(media_list, "\n")
+    end
+
+    function get_poll(poll)
+        if type(poll) ~= "table" then
+            return ""
+        end
+        local bar_chart = {"<div class=\"chart\">"}
+        local bar_template = [[
+            <div class="bar-container">
+                <div class="bar" style="width: $pct$%;">
+                    <span>$pct$%</span>
+                </div>
+                <div class="bar-text">
+                    $label$
+                </div>
+            </div>
+        ]]
+        local total_votes = math.floor(poll["votes_count"])
+        local total_voters = math.floor(poll["voters_count"])
+        for _, v in pairs(poll["options"]) do
+            local percentage = (v["votes_count"]/total_votes) * 100
+            local rounded = math.floor(0.5 + percentage)
+            local vars = {
+                label = v["title"],
+                pct = rounded
+            }
+            local bar = bar_template:gsub("%$(%w+)%$", vars)
+            table.insert(bar_chart, bar)
+        end
+        -- close chart div
+        table.insert(bar_chart, "</div>")
+
+        local summary = "<p>$x$ people have cast $y$ votes</p>"
+        local foo = summary:gsub(
+            "%$(%w+)%$", 
+            {x=total_voters, y=total_votes}
+        ) 
+        table.insert(bar_chart, foo)
+        return table.concat(bar_chart,"\n")
+    end
+
     if #pleroma_posts == 0  then
         return ""
     end
@@ -57,10 +178,12 @@ function write_comments(pleroma_posts, instance)
     <h3>
         #$i$ <a href="$host$/notice/$pid$">$datetime$</a>
     </h3>
-    <p>$alias$ <a href="$host$/users/$uid$">@$handle$</a></p>
+    $user$
     <blockquote>
         $text$
     </blockquote>
+    $card$
+    $attributes$
 </article>
 ]]
     local comments = {}
@@ -68,19 +191,23 @@ function write_comments(pleroma_posts, instance)
     for i, post in ipairs(replies) do
         local pid = post["id"]
         local datetime = get_short_date(post["created_at"])
-        local uid = post["account"]["id"]
+        local text = post["content"]
-        local alias = post["account"]["display_name"]
+
-        local handle = post["account"]["acct"]
+        local attrs = {}
-        local text = post["pleroma"]["content"]["text/plain"]
+        table.insert(
+            attrs, get_media(post["media_attachments"])
+        )
+        table.insert(attrs, get_poll(post["poll"]))
+
         local interpolated = template:gsub("%$(%w+)%$", {
             i= #replies - i + 1,
             host=instance,
             pid=pid,
             datetime=datetime,
-            uid = uid,
+            user=get_user(post["account"], instance, true),
-            handle = handle,
+            text = text,
-            alias=alias,
+            card = get_card(post["card"], instance),
-            text = text
+            attributes = table.concat(attrs)
         })
 --         print(interpolated)
         table.insert(
@@ -99,33 +226,53 @@ function combine_tables(a,b)
     return a
 end
 
+function get_url_from_pandoc_str(pandoc_str) 
+    local str = pandoc.utils.stringify(pandoc_str)
+    -- 1 = protocol, 2 = host ...
+    -- https://host.tld/notice/12345
+    local tokens = tokenizeString(str, '/')
+    local id = tokens[#tokens]
+
+    local host = tokens[2]
+    local id   = tokens[#tokens]
+    local link = str
+
+    return link, host, id
+end
+
+function get_status(host, post_id)
+    local url = "https://" .. host .. "/api/v1/statuses/" .. post_id
+    print(url)
+    return get(url)
+end
+
+function get_replies(host, id)
+    local url = "https://" .. host ..  "/api/v1/statuses/" .. id .. "/context"
+    print(url)
+    local got = get(url)
+    return got["descendants"]
+end
+
 function Meta(meta)
-    local elem = meta["pleroma-urls"]
+    local pleroma_urls = meta["pleroma-urls"]
 --     print(elem)
-    if elem == nil then
+    if pleroma_urls == nil then
         return -- abort
     end
     local all_replies = {}
-    local newelem = {}
+    local hrefs = {}
     local host = ""
-    for _, v in pairs(elem) do
+    -- for each listed url in "pleroma-urls"
-        local str = pandoc.utils.stringify(v)
+    for _, v in pairs(pleroma_urls) do
-        print(str)
+        local link, domain, id = get_url_from_pandoc_str(v)
-        -- 1 = protocol, 2 = host ...
+        host = domain
-        -- https://host.tld/notice/12345
+        table.insert(hrefs, 
-        local tokens = tokenizeString(str, '/')
+            {link = link, id = id}
-        local id = tokens[#tokens]
-        table.insert(newelem, 
-            {link = str, id = id}
         )
-        host = tokens[2] 
+        local op = get_status(host, id)
-        local url = "https://" .. host ..  "/api/v1/statuses/" .. id .. "/context"
+        table.insert(all_replies, op)
-        local got = get(url)
+        local replies = get_replies(host, id)
-        if #all_replies == 0 then
+        combine_tables(all_replies, replies)
-            all_replies = got["descendants"]
-        else
-            combine_tables(all_replies, got["descendants"])
-        end
     end
     table.sort(all_replies, 
         function(a, b) 
@@ -138,7 +285,7 @@ function Meta(meta)
     meta["pleroma-comments"] = c
     meta["pleroma-comments-count"] = #c
     meta["pleroma-has-comments"] = (#c > 0)
-    meta["pleroma"] = newelem
+    meta["pleroma"] = hrefs
     return meta
 end