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")

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What type of object does `for-each' expect as second argument?
Visually impaired? Let me spell it for you (wav file) download WAV