From cfeaf8bb9b3ab3438defe8642302c951426da7b4 Mon Sep 17 00:00:00 2001
From: Zajcev Evgeny <zevlg@yandex.ru>
Date: Mon, 10 Feb 2025 14:11:30 +0300
Subject: [PATCH] More support for TDLib 1.8.44 features

- [add] Support for `emojiStatusTypeUpgradedGift`

- docs update, fixes https://t.me/emacs_telega/47704
---
 docs/index.html        | 26 +++++++++++++-------------
 docs/telega-manual.org |  4 ++--
 telega-emoji.el        | 32 +++++++++++++++-----------------
 telega-msg.el          | 30 ++++++++++++++++++------------
 telega-webpage.el      | 16 +++++++++-------
 5 files changed, 57 insertions(+), 51 deletions(-)
diff --git a/docs/index.html b/docs/index.html
index 7abf9d5..8e5aa2b 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -3,10 +3,10 @@
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml" lang="telega" xml:lang="telega">
 <head>
-<!-- 2025-01-31 Пт 19:17 -->
+<!-- 2025-02-10 Пн 13:47 -->
 <meta http-equiv="Content-Type" content="text/html;charset=utf-8" />
 <meta name="viewport" content="width=device-width, initial-scale=1" />
-<title>Telega Manual (v0.8.420)</title>
+<title>Telega Manual (v0.8.441)</title>
 <meta name="author" content="Zajcev Evgeny" />
 <meta name="generator" content="Org Mode" />
 <link rel="stylesheet" type="text/css" href="https://zevlg.github.io/org-html-themes/src/readtheorg_theme/css/htmlize.css"/>
@@ -68,7 +68,7 @@
 <body>
 <div id="content" class="content">
 <div id="table-of-contents" role="doc-toc">
-<h2><img id="toc-logo" src="https://raw.githubusercontent.com/zevlg/telega.el/master/etc/telega-logo.svg"/>&nbsp;Telega Manual (v0.8.420)</h2>
+<h2><img id="toc-logo" src="https://raw.githubusercontent.com/zevlg/telega.el/master/etc/telega-logo.svg"/>&nbsp;Telega Manual (v0.8.441)</h2>
 <div id="text-table-of-contents" role="doc-toc">
 <ul>
 <li><a href="#introduction">Introduction</a></li>
@@ -372,7 +372,7 @@ <h3 id="building-tdlib"><a class="self-link" href="#building-tdlib"><svg class="
 <p>
 <a href="https://core.telegram.org/tdlib">TDLib</a> is the library for building Telegram clients. It requires a
 large amount of memory to be built.  Make sure you are using TDLib
-version equal to v1.8.39-056963e48.
+version equal to v1.8.44-28c6f2e9c.
 </p>
 
 <p>
@@ -865,7 +865,7 @@ <h2 id="telega-glossary"><a class="self-link" href="#telega-glossary"><svg class
 <p>
 rootbuf lists the chat buttons, such as:
 </p>
-<pre class="example" id="org31bacd5">
+<pre class="example" id="orgbddedaa">
 {🎗Saved Messages            }📌  📹 Video (10s)               Fri✓
 [Emacs | Emacs (english)     ]  @oldosfan: same                Fri
 ...
@@ -883,7 +883,7 @@ <h2 id="telega-glossary"><a class="self-link" href="#telega-glossary"><svg class
 Custom chat filters are displayed as buttons above the chat list in
 the rootbuf, such as:
 </p>
-<pre class="example" id="org65c7ffe">
+<pre class="example" id="orga924c97">
 [243:📑Main      4890]  [51:Groups       4677]  [27:Channels      210]
 [53:Contacts         ]  [0:Important         ]  [3:📑Archive      670]
 </pre>
@@ -972,7 +972,7 @@ <h2 id="telega-glossary"><a class="self-link" href="#telega-glossary"><svg class
 are displayed in rootbuf.  Active chat filter is displayed above the
 chat list in rootbuf, such as:
 </p>
-<pre class="example" id="orgd93d1e4">
+<pre class="example" id="orgf840a59">
 -/------------------------------(main)--------------------------------
 </pre>
 
@@ -1010,7 +1010,7 @@ <h2 id="telega-glossary"><a class="self-link" href="#telega-glossary"><svg class
 In case active sorter is enabled, it is displayed above the chat
 list in rootbuf, such as:
 </p>
-<pre class="example" id="org22de7b3">
+<pre class="example" id="org2bbfdee">
 -\---------------------(unread-count join-date)-----------------------
 </pre></dd>
 
@@ -2411,7 +2411,7 @@ <h2 id="chat-buffer"><a class="self-link" href="#chat-buffer"><svg class="octico
 Date break is a special mark separating two messages received on
 different days. Such as:
 </p>
-<pre class="example" id="org5834d70">
+<pre class="example" id="orgbd4086a">
 MSG1                              &lt;--- msg sent on 27dec
 -------(28 December 2020)------   &lt;--- date break
 MSG2                              &lt;--- msg sent on 28dec
@@ -2617,7 +2617,7 @@ <h3 id="sending-ordinary-messages"><a class="self-link" href="#sending-ordinary-
 There is also "markdown1" syntax to insert multiline code blocks of
 specified languge:
 </p>
-<pre class="example" id="orgb401890">
+<pre class="example" id="orgaebec07">
 ```&lt;language-name&gt;
 first line of multiline preformatted code
 second line
@@ -2649,7 +2649,7 @@ <h3 id="sending-ordinary-messages"><a class="self-link" href="#sending-ordinary-
 <p>
 Org syntax for code blocks is <b><b>NOT YET</b></b> supported:
 </p>
-<pre class="example" id="orgd49ee82">
+<pre class="example" id="orgdcb99ec">
 #+begin_src &lt;language-name&gt;
 code line
 next code line
@@ -3573,7 +3573,7 @@ <h3 id="media-controls-for-media-messages"><a class="self-link" href="#media-con
 "voice-note" or "video-note" messages) will have additional media
 control buttons to control media playback parameters:
 </p>
-<pre class="example" id="org85ebbf7">
+<pre class="example" id="orgfae9a03">
 [⏪] [⏩] [2×] [Stop] 
 </pre>
 
@@ -4771,7 +4771,7 @@ <h3 id="telega-url-shortenel--makes-urls-look-nicer"><a class="self-link" href="
 like:
 </p>
 
-<pre class="example" id="org86b2d88">
+<pre class="example" id="org0d8ef42">
 https://github.com/zevlg/telega.el/issues/105
 https://gitlab.com/jessieh/mood-line/issues/6
 https://www.youtube.com/watch?v=0m2jR6_eMkU
diff --git a/docs/telega-manual.org b/docs/telega-manual.org
index 0244411..2fb8917 100644
--- a/docs/telega-manual.org
+++ b/docs/telega-manual.org
@@ -1,5 +1,5 @@
 #+options: timestamp:nil \n:t num:nil ellit-cid:t
-#+title: Telega Manual (v0.8.420)
+#+title: Telega Manual (v0.8.441)
 #+author: Zajcev Evgeny
 #+startup: showall
 
@@ -244,7 +244,7 @@ Thanks to [[https://t.me/ritsch_master][=@ritsch_master=]]
 
 [[https://core.telegram.org/tdlib][TDLib]] is the library for building Telegram clients. It requires a
 large amount of memory to be built.  Make sure you are using TDLib
-version equal to v1.8.39-056963e48.
+version equal to v1.8.44-28c6f2e9c.
 
 On MacOS you can install a pre-built =TDLib= package using homebrew
 from [[https://brew.sh][brew.sh]].  Just run:
diff --git a/telega-emoji.el b/telega-emoji.el
index 23cbd7c..cc54b19 100644
--- a/telega-emoji.el
+++ b/telega-emoji.el
@@ -425,23 +425,21 @@ Do not fetch custom emojis for ignored messages."
 
 (defun telega-emoji-status--image (emoji-status &optional _ignoredfile)
   "Return image for the user's EMOJI-STATUS."
-  (let ((es-type (plist-get emoji-status :type)))
-    (cl-ecase (telega--tl-type es-type)
-      (emojiStatusTypeCustomEmoji
-       (let* ((custom-emoji-id (plist-get es-type :custom_emoji_id))
-              (sticker (telega-custom-emoji-get custom-emoji-id)))
-         (if sticker
-             (telega-sticker--image sticker)
-
-           (telega--getCustomEmojiStickers (list custom-emoji-id)
-             (lambda (stickers)
-               (seq-doseq (custom-emoji stickers)
-                 (telega-custom-emoji--ensure custom-emoji))))
-           (telega-etc-file-create-image "symbols/premium.svg" 2))))
-
-      (emojiStatusTypeUpgradedGift
-       ;; TODO
-       ))))
+  (let* ((es-type (plist-get emoji-status :type))
+         (custom-emoji-id (cl-ecase (telega--tl-type es-type)
+                            (emojiStatusTypeCustomEmoji
+                             (plist-get es-type :custom_emoji_id))
+                            (emojiStatusTypeUpgradedGift
+                             (plist-get es-type :model_custom_emoji_id))))
+         (sticker (telega-custom-emoji-get custom-emoji-id)))
+    (if sticker
+        (telega-sticker--image sticker)
+
+      (telega--getCustomEmojiStickers (list custom-emoji-id)
+        (lambda (stickers)
+          (seq-doseq (custom-emoji stickers)
+            (telega-custom-emoji--ensure custom-emoji))))
+      (telega-etc-file-create-image "symbols/premium.svg" 2))))
 
 (defun telega-ins--emoji-status (emoji-status)
   "Inserter for the EMOJI-STATUS."
diff --git a/telega-msg.el b/telega-msg.el
index f46225e..d96814f 100644
--- a/telega-msg.el
+++ b/telega-msg.el
@@ -2182,22 +2182,28 @@ be added."
                                            'update-recent-reactions))))
         (with-telega-help-win "*Telegram Custom Reaction*"
           (unless (seq-empty-p top-av-reactions)
-            (telega-ins "TOP:\n")
-            (telega-ins--available-reaction-list
-             top-av-reactions reaction-type-action)
-            (telega-ins "\n\n"))
+            (telega-ins--with-face 'telega-describe-item-title
+              (telega-ins "TOP:\n"))
+            (telega-ins--line-wrap-prefix "  "
+              (telega-ins--available-reaction-list
+               top-av-reactions reaction-type-action)
+              (telega-ins "\n\n")))
 
           (unless (seq-empty-p recent-av-reactions)
-            (telega-ins "RECENT:\n")
-            (telega-ins--available-reaction-list
-             recent-av-reactions reaction-type-action)
-            (telega-ins "\n\n"))
+            (telega-ins--with-face 'telega-describe-item-title
+              (telega-ins "RECENT:\n"))
+            (telega-ins--line-wrap-prefix "  "
+              (telega-ins--available-reaction-list
+               recent-av-reactions reaction-type-action)
+              (telega-ins "\n\n")))
 
           (unless (seq-empty-p popular-av-reactions)
-            (telega-ins "POPULAR:\n")
-            (telega-ins--available-reaction-list
-             popular-av-reactions reaction-type-action)
-            (telega-ins "\n\n"))
+            (telega-ins--with-face 'telega-describe-item-title
+              (telega-ins "POPULAR:\n"))
+            (telega-ins--line-wrap-prefix "  "
+              (telega-ins--available-reaction-list
+               popular-av-reactions reaction-type-action)
+              (telega-ins "\n\n")))
 
           (telega-ins--custom-emoji-stickersets
            (lambda (sticker)
diff --git a/telega-webpage.el b/telega-webpage.el
index 2c899ff..5c08b0f 100644
--- a/telega-webpage.el
+++ b/telega-webpage.el
@@ -388,7 +388,8 @@ Keymap:
        (telega-webpage--ins-rt (plist-get pb :subheader))
        (telega-ins "\n")))
     (pageBlockParagraph
-     (telega-ins "\n")
+     (unless (looking-back "\n\n")
+       (telega-ins "\n"))
      (telega-webpage--ins-rt (plist-get pb :text)))
     (pageBlockPreformatted
      (telega-ins "\n")
@@ -431,12 +432,13 @@ Keymap:
              (telega-webpage--ins-rt credit-rt))))
        (telega-ins "\n")))
     (pageBlockPullQuote
-     (telega-ins "\u00A0\u00A0")
-     (telega-ins--with-attrs (list :fill 'center
-                                   :fill-column (- telega-webpage-fill-column 2)
-                                   :fill-prefix "\u00A0\u00A0")
-       (telega-webpage--ins-rt (plist-get pb :text)))
-     (telega-ins "\n"))
+     (telega-ins-from-newline
+      (telega-ins "\u00A0\u00A0")
+      (telega-ins--with-attrs (list :fill 'center
+                                    :fill-column (- telega-webpage-fill-column 2)
+                                    :fill-prefix "\u00A0\u00A0")
+        (telega-webpage--ins-rt (plist-get pb :text)))
+      (telega-ins "\n")))
     (pageBlockAnimation
      (telega-webpage--ins-animation (plist-get pb :animation))
      (telega-ins "\n"))
