[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/code-cells f6cf4cc72d 1/5: Use let-alist instead of map
From: |
ELPA Syncer |
Subject: |
[elpa] externals/code-cells f6cf4cc72d 1/5: Use let-alist instead of map.el |
Date: |
Sun, 15 Oct 2023 09:57:39 -0400 (EDT) |
branch: externals/code-cells
commit f6cf4cc72d3d62c9d68441573a8a015ea8a97a39
Author: Augusto Stoffel <arstoffel@gmail.com>
Commit: Augusto Stoffel <arstoffel@gmail.com>
Use let-alist instead of map.el
---
code-cells.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/code-cells.el b/code-cells.el
index 6c2302c0ee..44756bc196 100644
--- a/code-cells.el
+++ b/code-cells.el
@@ -51,13 +51,12 @@
;;; Code:
-(require 'map)
(require 'json)
(require 'outline)
(require 'pulse)
-(require 'subr-x)
(eval-when-compile
(require 'cl-lib)
+ (require 'let-alist)
(require 'rx))
(defgroup code-cells nil
@@ -393,8 +392,9 @@ program name followed by arguments."
(((symbol-function 'json-read-array) 'forward-sexp))
(json-read)))
(pt (point))
- (lang (or (map-nested-elt nb '(metadata kernelspec language))
- (map-nested-elt nb '(metadata jupytext main_language))))
+ (lang (let-alist nb
+ (or .metadata.kernelspec.language
+ .metadata.jupytext.main_language)))
(mode (or (nth 2 code-cells-convert-ipynb-style)
(intern (concat lang "-mode"))))
(exit (code-cells--call-process t (nth 1
code-cells-convert-ipynb-style))))