memo.xight.org

日々のメモ

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

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


Reference

  Namazu.org - Tsuchiya Masatoshi's WEB Site - Emacs Lisp Tips
  http://www.namazu.org/~tsuchiya/elisp/#depend-host