fix(custom-datetime): make sortable-time actually sortable

sortable-time-format was 12-hour with AM/PM ("%I:%M:%S %p %Z"), so "01:00:00 PM" sorted before "09:00:00 AM". I switched it to 24-hour "%H:%M:%S %Z", matching sortable-date-time, and updated the test that asserted the AM/PM output.

2 files changed, 4 insertions, 3 deletions

diff --git a/modules/custom-datetime.el b/modules/custom-datetime.el
index 0528688c..52e8c2b3 100644
--- a/modules/custom-datetime.el
+++ b/modules/custom-datetime.el
@@ -51,7 +51,7 @@ See `format-time-string' for possible replacements.")
 
 ;; ------------------------------- Sortable Time -------------------------------
 
-(defvar sortable-time-format "%I:%M:%S %p %Z "
+(defvar sortable-time-format "%H:%M:%S %Z "
   "Format string used by `cj/insert-sortable-time'.
 See `format-time-string' for possible replacements.")
 
diff --git a/tests/test-custom-datetime-all-methods.el b/tests/test-custom-datetime-all-methods.el
index 62b421bd..1f31c6c4 100644
--- a/tests/test-custom-datetime-all-methods.el
+++ b/tests/test-custom-datetime-all-methods.el
@@ -54,9 +54,10 @@
     (should (string-match-p "14:30:45" result))))
 
 (ert-deftest test-custom-datetime-all-methods-normal-sortable-time ()
-  "cj/insert-sortable-time should insert time with AM/PM and timezone."
+  "cj/insert-sortable-time should insert 24-hour time so it sorts lexically."
   (let ((result (test-datetime--run #'cj/insert-sortable-time)))
-    (should (string-match-p "02:30:45 PM" result))))
+    (should (string-match-p "14:30:45" result))
+    (should-not (string-match-p "PM" result))))
 
 (ert-deftest test-custom-datetime-all-methods-normal-readable-time ()
   "cj/insert-readable-time should insert short time with AM/PM."