memo.xight.org

Home > Changelogメモ > 2002-12 > 2002-12-16 > マシン毎に設定を切り替える

2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12
2003 : 01 02 03 04 05 06 07 08 09 10 11 12
2002 : 01 02 03 04 05 06 07 08 09 10 11 12

2002-12-16

マシン毎に設定を切り替える

- Summary
マシン毎に設定を切り替える場合，関数 system-name を利用して実行中のマシンの名前を調べることが可能．

(let ((system-name (system-name)))
(cond
	;; systemA または systemB で実行中の場合
	((string-match "^\\(systemA\\|systemB\\)\\(\\..+\\)*$" system-name)
		(load "$HOME/.emacs-AorB"))
	;; systemC で実行中の場合
	((string-match "^systemC\\(\\..+\\)*$" system-name)
		(load "$HOME/.emacs-C"))
	;; 指定されていないマシンで実行中の場合
	(t
		(message (concat "Unknown Host: " system-name)))))