+(let* ((hosts '(("netbsd." .
+ (("~/sandbox/yxmimeproc" "yxmimeproc")
+ ("~/sandbox/YxMIME" "YxMIME.pm")
+ ))
+ ("g1.cuenote.jp" .
+ (("~/sandbox/MR/engine/libycom" "libycom")
+ ))
+ ("aria.cielonegro.org" .
+ (("~/sandbox/_web-app/Rakka" "Rakka")
+ ("~/sandbox/_haskell/Lucu" "Lucu")
+ ("~/sandbox/_web-app/Kirschbaum" "Kirschbaum")
+ ("~/sandbox/_haskell/HsOpenSSL" "HsOpenSSL")
+ ("~/sandbox/_haskell/HsHyperEstraier" "HsHyperEstraier")
+ ("~/sandbox/_haskell/HsSVN" "HsSVN")
+ ("~/sandbox/_game/RoRo" "RoRo")
+ ("~/sandbox/_haskell/HXT" "HXT")
+ ("~/sandbox/_haskell/hxt-compile" "hxt-compile")
+ ("~/src/ghc-6.10.1" "ghc-6.10.1")
+ ("~/sandbox/sugar" "sugar")
+ ("~/sandbox/_haskell/dns" "dns")
+ ("~/sandbox/_haskell/blackboard-ddns" "blackboard-ddns")
+ ))))
+ (paths (cdr (assoc (system-name) hosts))))
+ (setq ecb-source-path paths))