xmonad環境でxmobarの設定をホスト名で振り分ける

[`evernote` not found]

Tweet

gitとかで設定ファイルを管理して，新しいマシンではgit clone hogehogeし，ホームディレクトリにシンボリックリンクを張るだけでいつもの環境になって欲しい．
この時，shの設定は簡単に振り分けられるが，馴染のないhaskellで書かされるxmonadの設定とxmobarの設定をどう振り分けるのか困るのであった．

haskellを普段使いしている人には何のことない話なんだけど…

import System.Posix.Unistd

main = do
    host <- fmap nodeName getSystemID -- ホスト名を host にセット
    -- どれが良いか分からんので，上手くいかない時は以下も試してみる
    -- or host <- nodeName `fmap` getSystemID
    -- or host <- nodeName <$> getSystemID  -- 要 import Control.Applicative
    myStatusBar <- spawnPipe $ "xmobar ~/.xmonad/.xmobarrc_" ++ host -- 文字列の連結