From 5fa23846a66e7a57c0b9bb9894227f4cce3ebe30 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Thu, 7 Mar 2024 05:58:39 +0200
Subject: Disable sorting

Sorting columns does not work with current thumbnail implementation.
---
 yeetube.el | 41 +++++++++++++++++++----------------------
 1 file changed, 19 insertions(+), 22 deletions(-)

diff --git a/yeetube.el b/yeetube.el
index c8ce30e..c5904f5 100644
--- a/yeetube.el
+++ b/yeetube.el
@@ -429,9 +429,8 @@ SUBSTRING-END is the end of the string to return, interger."
 		      :thumbnail (replace-regexp-in-string "hq720" "default" thumbnail)
 		      :date (replace-regexp-in-string "Streamed " "" date)
 		      :image (if yeetube-display-thumbnails
-				 (format "[[%s.jpg]]" (expand-file-name
-						   videoid
-						   temporary-file-directory))
+				 (format "[[%s.jpg]]"
+					 (expand-file-name videoid temporary-file-directory))
 				 "disabled"))
 		yeetube-content))))))
 
@@ -607,25 +606,23 @@ A and B are vectors."
 (define-derived-mode yeetube-mode tabulated-list-mode "Yeetube"
   "Yeetube mode."
   :keymap yeetube-mode-map
-  (setf tabulated-list-format
-        [("Title" 60 t)
-         ("Views" 11 yeetube--sort-views)
-         ("Duration" 9 yeetube--sort-duration)
-	 ("Date" 13 yeetube--sort-date)
-         ("Channel" 12 t)
-	 ("Thumbnail" 0 t)]
-	tabulated-list-entries
-	(cl-map 'list
-		(lambda (content)
-                  (list content
-			(yeetube-propertize-vector content
-                                                   :title 'yeetube-face-title
-                                                   :view-count 'yeetube-face-view-count
-                                                   :duration 'yeetube-face-duration
-						   :date 'yeetube-face-date
-                                                   :channel 'yeetube-face-channel
-						   :image nil)))
-		(reverse yeetube-content))
+  (setf tabulated-list-format [("Title" 60 nil)
+			       ("Views" 11 nil)
+			       ("Duration" 9 nil)
+			       ("Date" 13 nil)
+			       ("Channel" 12 nil)
+			       ("Thumbnail" 0 nil)]
+	tabulated-list-entries (cl-map 'list
+				       (lambda (content)
+					 (list content
+					       (yeetube-propertize-vector content
+									  :title 'yeetube-face-title
+									  :view-count 'yeetube-face-view-count
+									  :duration 'yeetube-face-duration
+									  :date 'yeetube-face-date
+									  :channel 'yeetube-face-channel
+									  :image nil)))
+				       (reverse yeetube-content))
 	tabulated-list-sort-key (cons yeetube-default-sort-column
                                       yeetube-default-sort-ascending))
   (display-line-numbers-mode 0)
-- 
cgit v1.2.3