From 925cdbe626639f54b9aa4c35f749a86160d66726 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 10 Feb 2024 11:29:51 +0200 Subject: Add yeetueb--sort-date This function is from Boruch-Baum fork: --- yeetube.el | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/yeetube.el b/yeetube.el index 67e9e69..02f27d1 100644 --- a/yeetube.el +++ b/yeetube.el @@ -515,6 +515,19 @@ column." (< (string-to-number (replace-regexp-in-string ":" "" (aref (cadr a) 2))) (string-to-number (replace-regexp-in-string ":" "" (aref (cadr b) 2))))) +(defun yeetube--sort-date (a b) + "PREDICATE for function 'sort'. +Used by variable 'tabulated-list-format' to sort the \"Date\" +column." + (let* ((intervals '("second" "minute" "hour" "day" "week" "month" "year")) + (split-a (split-string (replace-regexp-in-string "s" "" (aref (cadr a) 3)))) + (split-b (split-string (replace-regexp-in-string "s" "" (aref (cadr b) 3)))) + (units-a (length (member (nth 1 split-a) intervals))) + (units-b (length (member (nth 1 split-b) intervals)))) + (if (= units-a units-b) + (< (string-to-number (nth 0 split-a)) (string-to-number (nth 0 split-b))) + (> units-a units-b)))) + (define-derived-mode yeetube-mode tabulated-list-mode "Yeetube" "Yeetube mode." :keymap yeetube-mode-map -- cgit v1.2.3