github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-12-22 11:08:54 +00:00
Code Issues Projects Releases Packages Wiki Activity

Also convert json-fix.el to use cl-lib

Browse source
This commit is contained in:
Steve Purcell 2013-04-10 11:05:41 +01:00
parent 376be7f890
commit 3b9792f778
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
json-fix.el
View file

@ -1,6 +1,7 @@
;;; Fixes for json.el such that integer plist / alist keys are rendered as strings, in order to comply with the json spec ;;; Fixes for json.el such that integer plist / alist keys are rendered as strings, in order to comply with the json spec
(require 'json) (require 'json)
(require 'cl-lib)
(defun json-encode-key-value-pair (pair) (defun json-encode-key-value-pair (pair)
"Encode a (key . value) PAIR as JSON, ensuring that key is encoded into a string." "Encode a (key . value) PAIR as JSON, ensuring that key is encoded into a string."
@ -26,9 +27,9 @@
(defun json-encode-plist (plist) (defun json-encode-plist (plist)
"Return a JSON representation of PLIST." "Return a JSON representation of PLIST."
(json-encode-alist (json-encode-alist
(loop while plist (cl-loop while plist
collect (cons (car plist) (cadr plist)) collect (cons (car plist) (cadr plist))
do (setf plist (cddr plist))))) do (setf plist (cddr plist)))))
(provide 'json-fix) (provide 'json-fix)