jsown-utils is utilities for Common Lisp JSON library jsown, to pretty print JSON and so on.
Copyright(c) 2017 Muyinliu Xing Released under the ISC License.
In shell:
git clone https://github.com/muyinliu/jsown-utils.git
cp -r jsown-utils ~/quicklisp/local-projects/jsown-utilsThen in Common Lisp:
(ql:quickload 'jsown-utils)(jsown:pprint-json "{\"HeWeather5\":[{\"basic\":{\"city\":\"北京\",\"cnty\":\"中国\",\"id\":\"CN101010100\",\"lat\":\"39.904000\",\"lon\":\"116.391000\",\"update\":{\"loc\":\"2017-03-21 08:51\",\"utc\":\"2017-03-21 00:51\"}},\"now\":{\"cond\":{\"code\":\"101\",\"txt\":\"多云\"},\"fl\":\"0\",\"hum\":\"73\",\"pcpn\":\"0\",\"pres\":\"1027\",\"tmp\":\"6\",\"vis\":\"7\",\"wind\":{\"deg\":\"350\",\"dir\":\"东北风\",\"sc\":\"4-5\",\"spd\":\"18\"}},\"status\":\"ok\"}]}"){
"HeWeather5": [
{
"basic": {
"city": "北京",
"cnty": "中国",
"id": "CN101010100",
"lat": "39.904000",
"lon": "116.391000",
"update": {
"loc": "2017-03-21 08:51",
"utc": "2017-03-21 00:51"
}
},
"now": {
"cond": {
"code": "101",
"txt": "多云"
},
"fl": "0",
"hum": "73",
"pcpn": "0",
"pres": "1027",
"tmp": "6",
"vis": "7",
"wind": {
"deg": "350",
"dir": "东北风",
"sc": "4-5",
"spd": "18"
}
},
"status": "ok"
}
]
}
; No value
Make JSON much more readable by add some newline or indent.
(jsown:pretty-json "{\"HeWeather5\":[{\"basic\":{\"city\":\"北京\",\"cnty\":\"中国\",\"id\":\"CN101010100\",\"lat\":\"39.904000\",\"lon\":\"116.391000\",\"update\":{\"loc\":\"2017-03-21 08:51\",\"utc\":\"2017-03-21 00:51\"}},\"now\":{\"cond\":{\"code\":\"101\",\"txt\":\"多云\"},\"fl\":\"0\",\"hum\":\"73\",\"pcpn\":\"0\",\"pres\":\"1027\",\"tmp\":\"6\",\"vis\":\"7\",\"wind\":{\"deg\":\"350\",\"dir\":\"东北风\",\"sc\":\"4-5\",\"spd\":\"18\"}},\"status\":\"ok\"}]}")"{
\"HeWeather5\": [
{
\"basic\": {
\"city\": \"北京\",
\"cnty\": \"中国\",
\"id\": \"CN101010100\",
\"lat\": \"39.904000\",
\"lon\": \"116.391000\",
\"update\": {
\"loc\": \"2017-03-21 08:51\",
\"utc\": \"2017-03-21 00:51\"
}
},
\"now\": {
\"cond\": {
\"code\": \"101\",
\"txt\": \"多云\"
},
\"fl\": \"0\",
\"hum\": \"73\",
\"pcpn\": \"0\",
\"pres\": \"1027\",
\"tmp\": \"6\",
\"vis\": \"7\",
\"wind\": {
\"deg\": \"350\",
\"dir\": \"东北风\",
\"sc\": \"4-5\",
\"spd\": \"18\"
}
},
\"status\": \"ok\"
}
]
}"
(jsown:json-val (jsown:parse "{\"key1\":\"value1\",\"key2\":2}") "key1")=>
"value1"
(jsown:json-vals (jsown:parse "{\"key1\":{\"key1.1\":\"value1.1\"},\"key2\":2}")
"key1" "key1.1")=>
"value1.1"
(defvar *json* (jsown:parse "{\"key1\":{\"key1.1\":\"value1.1\"},\"key2\":2}"))
(jsown:json-update-in *json* ("key1" "key1.1") "new-value1.1")=>
"new-value1.1"
*json*=>
(:OBJ ("key1" :OBJ ("key1.1" . "new-value1.1")) ("key2" . 2))
Welcome to reply.