From 2e5f718230b376ce2f790cd872c9c07e2fe19533 Mon Sep 17 00:00:00 2001 From: PHO Date: Tue, 20 Jan 2009 18:38:25 +0900 Subject: [PATCH] Auto commit by The Sugar System. --- dot-files/_emacs_el | 21 +++++++++++++++++---- 1 file changed, 17 insertions(+), 4 deletions(-) diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el index 6bf8419..ad328da 100644 --- a/dot-files/_emacs_el +++ b/dot-files/_emacs_el @@ -95,9 +95,23 @@ ;; ecb (require-if-present 'ecb-autoloads) -(if (equal (system-name) "netbsd.") - (setq ecb-source-path '(("~/sandbox/yxmimeproc" "yxmimeproc") - ))) +(let* ((hosts '(("netbsd." . + (("~/sandbox/yxmimeproc" "yxmimeproc") + )) + ("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") + ("~/src/ghc-6.10.1" "ghc-6.10.1") + ("~/sandbox/sugar" "sugar") + )))) + (paths (cdr (assoc (system-name) hosts)))) + (setq ecb-source-path paths)) ;; leim (require-if-present 'gaelic) @@ -303,7 +317,6 @@ '(ecb-layout-name "left14") '(ecb-options-version "2.32") '(ecb-show-sources-in-directories-buffer (quote always)) - '(ecb-source-path (quote (("~/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") ("~/src/ghc-6.8.3" "ghc-6.8.3") ("/Users/admin/sandbox/sugar" "sugar") ("/" "/")))) '(ecb-tip-of-the-day nil) '(ecb-tree-buffer-style (quote ascii-guides)) '(ecb-windows-width 0.2) -- 2.40.0