From af874221aea1ef6e427a281096edbc7b2caad77e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 9 Jan 2024 20:56:08 +0200 Subject: Add yeetube-view-count-format --- yeetube.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'yeetube.el') diff --git a/yeetube.el b/yeetube.el index d0bac18..604575f 100644 --- a/yeetube.el +++ b/yeetube.el @@ -248,6 +248,17 @@ then for item." ("\\\\" . "")) "Unicode character replacements.") +(defun yeetube-view-count-format (string) + "Add commas for STRING." + (let* ((string (replace-regexp-in-string "[^0-9]" "" string)) + (len (length string)) + (result "")) + (cl-loop for i from 0 to (1- len) + do (setf result (concat (substring string (- len i 1) (- len i)) result)) + if (and (> (- len (1+ i)) 0) + (= (% (1+ i) 3) 0)) + do (setf result (concat "," result))) + result)) (defun yeetube-get-content () "Get content from youtube." @@ -273,7 +284,7 @@ then for item." (- (search-forward ",") 2)))) (push (list :title title :videoid videoid - :view-count (format "% 10s" (replace-regexp-in-string "[^0-9]" "" view-count)) + :view-count (yeetube-view-count-format view-count) :duration video-duration :channel channel) yeetube-content)))))))))) -- cgit v1.2.3