From 975b67af1f46623376bf0609e5beef94682286b4 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Sun, 5 Dec 2021 22:16:30 +0530 Subject: [PATCH] fix: order of records returned by plist-group to-list --- elisp/chronometrist.el | 3 ++- elisp/chronometrist.org | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el index 4624b24..e421230 100644 --- a/elisp/chronometrist.el +++ b/elisp/chronometrist.el @@ -1493,7 +1493,8 @@ Return ;; [[file:chronometrist.org::*to-list][to-list:1]] (cl-defmethod chronometrist-to-list ((backend chronometrist-plist-group-backend)) - (chronometrist-loop-sexp-file for expr in (chronometrist-backend-file backend) append (rest expr))) + (chronometrist-loop-sexp-file for expr in (chronometrist-backend-file backend) + append (reverse (rest expr)))) ;; to-list:1 ends here ;; [[file:chronometrist.org::*to-hash-table][to-hash-table:1]] diff --git a/elisp/chronometrist.org b/elisp/chronometrist.org index ebf037d..6f52f84 100644 --- a/elisp/chronometrist.org +++ b/elisp/chronometrist.org @@ -2337,7 +2337,8 @@ We apply the same hack as in the [[<>][insert]] me **** to-list :reader:method: #+BEGIN_SRC emacs-lisp (cl-defmethod chronometrist-to-list ((backend chronometrist-plist-group-backend)) - (chronometrist-loop-sexp-file for expr in (chronometrist-backend-file backend) append (rest expr))) + (chronometrist-loop-sexp-file for expr in (chronometrist-backend-file backend) + append (reverse (rest expr)))) #+END_SRC **** to-hash-table :reader:method: