From c0c228e39d604e23c862e3b8a978036543fa6597 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Sat, 30 Sep 2023 00:23:43 +0300
Subject: [feature] Add yeetube-buffer-strip-emojis

Custom function that will be used to strip emojis from titles
---
 yeetube-buffer.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'yeetube-buffer.el')

diff --git a/yeetube-buffer.el b/yeetube-buffer.el
index 80738c5..cfa0e93 100644
--- a/yeetube-buffer.el
+++ b/yeetube-buffer.el
@@ -31,12 +31,21 @@
 
 (require 'yeetube-face)
 
-;; TODO: Fix titles with emojis (ruin formatting)
+
 (defcustom yeetube-buffer-display-emojis nil
-  "Display video title's emojis."
+  "Display video title's emojis.
+
+Emojis cause formatting issues, this should be off by default."
   :type 'boolean
   :safe #'booleanp
   :group 'yeetube)
+
+(defun yeetube-buffer-strip-emojis (str)
+  "Remove characters which are part of the `emoji' script from STR."
+  (cl-remove-if (lambda (c)
+                  (equal (aref char-script-table c) 'emoji))
+                str))
+
 (defun yeetube-buffer-fix-title (title)
   "Adjust TITLE."
   (let ((replacements '(("&amp;" . "&")
-- 
cgit v1.2.3