hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-04 15:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use cl-labels in one place

Browse source 
* jupyter-rest-api.el (jupyter-api-get-ordered-checkpoints): Do it.
This commit is contained in:
Nathaniel Nicandro 2020-04-16 02:02:29 -05:00
parent a6c40a44fc
commit b4304ae473
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
jupyter-rest-api.el
View file

@ -991,10 +991,10 @@ Return a list of the checkpoints ordered most recently created first."
(declare (indent 1))
(sort
(jupyter-api-get-checkpoints client file)
(lambda (a b)
(let ((ta (jupyter-decode-time (plist-get a :last_modified)))
(tb (jupyter-decode-time (plist-get b :last_modified))))
(time-less-p tb ta)))))
(cl-labels ((decode-time
(a) (jupyter-decode-time (plist-get a :last_modified))))
(lambda (a b)
(time-less-p (decode-time b) (decode-time a))))))
(defun jupyter-api-get-latest-checkpoint (client file)
"Return the latest checkpoint for FILE on the server accessed by CLIENT.