gistfile1.clj

(defn- parse-interface [ifstr]
  (let [[_ iface flags] (re-find #"^(.*): flags=\d+<([^>]+)> mtu \d+ index \d+" ifstr)
	flags (re-seq #"[^,]+" flags)]
    {"interface" iface
     "flags" flags
     "ip" (second (re-find #"inet ([^\s]+)" ifstr))
     "netmask" (second (re-find #"netmask ([^\s]+)" ifstr))
     "broadcast" (second (re-find #"broadcast ([^\s]+)" ifstr))
     "ether" (second (re-find #"ether ([^\s]+)" ifstr))
     "groupname" (second (re-find #"groupname ([^\s]+)" ifstr))}))
	

(register-command
 "Interfaces"
 "su \"root\" -c \"ifconfig -a\""
 (fn [s]
   (map
    (fn [ifstr]
      (parse-interface ifstr))
    (re-seq #"(?m)^(?:[^\s].*)$(?:\n^[\s].*$)+" s))))