More support for TDLib 1.8.44 features

- [add] Support for `emojiStatusTypeUpgradedGift` - docs update, fixes https://t.me/emacs_telega/47704
zevlg · Feb 10, 2025 · cfeaf8b · cfeaf8b
1 parent 85ad171
commit cfeaf8b
Show file tree

Hide file tree

Showing 5 changed files with 57 additions and 51 deletions.
diff --git a/docs/index.html b/docs/index.html
diff --git 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
@@ -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
@@ -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
@@ -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"))