aboutsummaryrefslogtreecommitdiffstats
path: root/yeetube-buffer.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-10-17 09:34:40 +0300
committerThanos Apollo <[email protected]>2023-10-17 09:34:40 +0300
commitf0dfd5508df5d33cbbc801a6e5a56b73b5aa3d7d (patch)
tree4244d6bbe7e8fb2eaa59a559311242bfe9c4d21b /yeetube-buffer.el
parent0a2719e72a8bb09d104044f0cf0c9ebf9485647b (diff)
parent1b4a3c46643cf08cf867d632078eaff446f2dd0c (diff)
Merge version 2.0.7 branch to 'master'2.0.7
- Add yeetube-replay (replay entry stored in yeetube-history) - Fix title issues & separate unicode character replacements into yeetube--title-replacements - Improve messages, for future debugging & aesthetics - Redo storing of content info and retrieval, using keywords This version marks yeetube.el in maintenance mode. I have no further plans for further feature additions. However, feel free to discuss with me any changes you'd like to see.
Diffstat (limited to 'yeetube-buffer.el')
-rw-r--r--yeetube-buffer.el30
1 files changed, 8 insertions, 22 deletions
diff --git a/yeetube-buffer.el b/yeetube-buffer.el
index 565d192..119c07f 100644
--- a/yeetube-buffer.el
+++ b/yeetube-buffer.el
@@ -75,22 +75,6 @@ Emojis cause formatting issues, this should be off by default."
(equal (aref char-script-table c) 'emoji))
str))
-;; Usually titles from youtube get messed up,
-;; This should fix some of the common issues.
-(defun yeetube-buffer-fix-title (title)
- "Adjust TITLE."
- (let ((replacements '(("&amp;" . "&")
- ("&quot;" . "\"")
- ("&#39;" . "'")
- ("u0026" . "&")
- ("\\\\" . ""))))
- (mapc (lambda (replacement)
- (setf title (replace-regexp-in-string (car replacement) (cdr replacement) title)))
- replacements)
- (if yeetube-buffer-display-emojis
- title
- (yeetube-buffer-strip-emojis title))))
-
(defun yeetube-buffer-fix-view-count (view-count)
"Fix VIEW-COUNT display issues."
(replace-regexp-in-string "[^0-9]" "" view-count))
@@ -183,12 +167,14 @@ Emojis cause formatting issues, this should be off by default."
(defun yeetube-buffer-insert-content (content)
"Insert formatted CONTENT."
(insert
- (concat (yeetube-buffer--format-title (yeetube-buffer-fix-title (car content)))
- (yeetube-buffer--format-view-count (yeetube-buffer-view-count-add-commas
- (yeetube-buffer-fix-view-count (nth 2 content))))
- (yeetube-buffer--format-video-duration (nth 3 content))
- (yeetube-buffer--format-channel (nth 4 content))
- "\n")))
+ (concat
+ (yeetube-buffer--format-title (cl-getf content :title))
+ (yeetube-buffer--format-view-count (yeetube-buffer-view-count-add-commas
+ (yeetube-buffer-fix-view-count
+ (cl-getf content :view-count))))
+ (yeetube-buffer--format-video-duration (cl-getf content :duration))
+ (yeetube-buffer--format-channel (cl-getf content :channel))
+ "\n")))
;;;###autoload
(defun yeetube-buffer-create (query content buffer-mode)