Welcome to the CHICKEN Scheme pasting service

#!/usr/bin/csi -s

;; [{"name":"ethernet",
;;   "instance":"enp2s0",
;;   "color":"#00FF00",
;;   "full_text":"enp2s0: up"},
;;  {"name":"run_watch",
;;   "instance":"/var/run/dhcpcd-enp2s0.pid",
;;   "color":"#00FF00",
;;   "full_text":"DHCP: yes"},
;;  {"name":"ipv6",
;;   "color":"#FF0000",
;;   "full_text":"no IPv6"},
;;  {"name":"load",
;;   "full_text":"0.02 0.04 0.15"},
;;  {"name":"disk_info",
;;   "instance":"/",
;;   "full_text":"47.1 GB"},
;;  {"name":"time",
;;   "full_text":"2013-03-03 21:12:23"},
;;  {"name":"volume",
;;   "instance":"default.Master.0",
;;   "full_text":"♪ 100%"}]

;; init
(use medea srfi-18)
(write-json '((version . 1)))
(display "\n[\n")

(let bar ((foo
	   (with-output-to-string
	     (lambda ()
	       (write-json '#(((name . "ethernet")
			       (instance . "enp2s0")
			       (color . "#00FF00")
			       (full_text . "enp2s0: up"))))))))
  (let loop ()
    (print foo)
    (display ",")
    (thread-sleep! 1)
    (loop)))
(display "]\n")