Welcome to the CHICKEN Scheme pasting service
no title added by anonymous on Sun Mar 3 23:41:00 2013
#!/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")