[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/parseedn e1de65e463 30/32: Merge pull request #10 from clo
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/parseedn e1de65e463 30/32: Merge pull request #10 from clojure-emacs/cl-case-to-cond |
Date: |
Tue, 28 Dec 2021 14:04:43 -0500 (EST) |
branch: elpa/parseedn
commit e1de65e463adac2c8b46fc4b24d48ca62b74f23d
Merge: b00eb42a1c 1a3640d298
Author: Arne Brasseur <arne.brasseur@gmail.com>
Commit: GitHub <noreply@github.com>
Merge pull request #10 from clojure-emacs/cl-case-to-cond
Replace `cl-case` with `cond`
---
Cask | 4 +---
parseedn.el | 48 ++++++++++++++++++++++++------------------------
2 files changed, 25 insertions(+), 27 deletions(-)
diff --git a/Cask b/Cask
index 33c29274a8..58d69c9b1a 100644
--- a/Cask
+++ b/Cask
@@ -5,7 +5,5 @@
(development
(depends-on "a")
- (depends-on "parseclj"
- :git "https://github.com/clojure-emacs/parseclj"
- :ref "13059d8529f8352497f5ceaf671476d7b8968dac")
+ (depends-on "parseclj")
(depends-on "ert-runner"))
diff --git a/parseedn.el b/parseedn.el
index 959b53f542..7620cafb37 100644
--- a/parseedn.el
+++ b/parseedn.el
@@ -89,22 +89,22 @@ on available options."
(if (eq token-type :discard)
stack
(cons
- (cl-case token-type
- (:root children)
- (:lparen children)
- (:lbracket (apply #'vector children))
- (:set (list 'edn-set children))
- (:lbrace (let* ((kvs (seq-partition children 2))
- (hash-map (make-hash-table :test 'equal :size (length
kvs))))
- (seq-do (lambda (pair)
- (puthash (car pair) (cadr pair) hash-map))
- kvs)
- hash-map))
- (:tag (let* ((tag (intern (substring (alist-get :form opening-token)
1)))
- (reader (alist-get tag tag-readers :missing)))
- (when (eq :missing reader)
- (user-error "No reader for tag #%S in %S" tag (map-keys
tag-readers)))
- (funcall reader (car children)))))
+ (cond
+ ((eq :root token-type) children)
+ ((eq :lparen token-type) children)
+ ((eq :lbracket token-type) (apply #'vector children))
+ ((eq :set token-type) (list 'edn-set children))
+ ((eq :lbrace token-type) (let* ((kvs (seq-partition children 2))
+ (hash-map (make-hash-table :test
'equal :size (length kvs))))
+ (seq-do (lambda (pair)
+ (puthash (car pair) (cadr pair)
hash-map))
+ kvs)
+ hash-map))
+ ((eq :tag token-type) (let* ((tag (intern (substring (alist-get :form
opening-token) 1)))
+ (reader (alist-get tag tag-readers
:missing)))
+ (when (eq :missing reader)
+ (user-error "No reader for tag #%S in %S"
tag (map-keys tag-readers)))
+ (funcall reader (car children)))))
stack))))
(defun parseedn-read (&optional tag-readers)
@@ -198,14 +198,14 @@ DATUM can be any Emacs Lisp value."
((stringp datum)
(insert "\"")
(seq-doseq (char datum)
- (insert (cl-case char
- (?\t "\\t")
- (?\f "\\f")
- (?\" "\\\"")
- (?\r "\\r")
- (?\n"foo\t" "\\n")
- (?\\ "\\\\")
- (t (char-to-string char)))))
+ (insert (cond
+ ((eq ?\t char) "\\t")
+ ((eq ?\f char) "\\f")
+ ((eq ?\" char) "\\\"")
+ ((eq ?\r char) "\\r")
+ ((eq ?\n char) "\\n")
+ ((eq ?\\ char) "\\\\")
+ (t (char-to-string char)))))
(insert "\""))
((eq t datum)
- [nongnu] elpa/parseedn edfee3ae28 26/32: Bump versions, (continued)
- [nongnu] elpa/parseedn edfee3ae28 26/32: Bump versions, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn d6abb3adf7 25/32: Update parseclj dependency to 1.0.2, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 9c2a37d02c 04/32: Add a missing require, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 2a30c83198 02/32: Tweak the keywords, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 3f93aab1ed 23/32: Remove the a.el dependency, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 876dfead6b 16/32: Fix reference to parseedn-print-kvs -> parseedn-print-hash-or-alist, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn d25ebc5554 18/32: Add CHANGELOG.md, prep for v0.2.0, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn e7ff673cd9 24/32: Release 1.0, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 3e0b5d729e 09/32: Fix references in tests: s/parseclj/parseedn, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 3e74411f89 20/32: Add print handler for #uuid and #inst, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn e1de65e463 30/32: Merge pull request #10 from clojure-emacs/cl-case-to-cond,
ELPA Syncer <=
- [nongnu] elpa/parseedn 90cfe3df51 19/32: Add date/sha to CHANGELOG, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 6d80a59673 14/32: Add support for alist, plist and an explicit error for unsupported dotted pair notation., ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn ff3cb233bc 07/32: Bump the copyright years, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 5470d4ed67 21/32: Fix the inst parsing test for the case where TZ=UTC, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn acbea6bb1e 03/32: Fix a typo, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn ddf824bc1d 08/32: Update the installation instructions, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 4efa23a851 15/32: oops! fix test., ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn 1a3640d298 29/32: Replace `cl-case` with `cond`, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn b00eb42a1c 28/32: Update the required Emacs version, ELPA Syncer, 2021/12/28
- [nongnu] elpa/parseedn adf57f36f4 11/32: Fix printing of hash-maps with multiple entries, ELPA Syncer, 2021/12/28