2007-03-06 01:07:00 +01:00
|
|
|
{ stdenv, writeText, lib, xorg, mesa, xterm, slim, gnome
|
|
|
|
, compiz, feh
|
2007-03-28 23:16:35 +02:00
|
|
|
, kdelibs, kdebase
|
2006-11-28 23:27:56 +01:00
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
, config
|
|
|
|
|
2006-11-28 23:27:56 +01:00
|
|
|
, # Virtual console for the X server.
|
|
|
|
tty ? 7
|
|
|
|
|
|
|
|
, # X display number.
|
|
|
|
display ? 0
|
|
|
|
|
2007-02-25 16:53:57 +01:00
|
|
|
, # List of font directories.
|
|
|
|
fontDirectories
|
|
|
|
|
2006-11-28 23:27:56 +01:00
|
|
|
}:
|
|
|
|
|
|
|
|
let
|
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
getCfg = option: config.get ["services" "xserver" option];
|
|
|
|
|
|
|
|
optional = condition: x: if condition then [x] else [];
|
|
|
|
|
|
|
|
|
2007-03-06 01:07:00 +01:00
|
|
|
# Get a bunch of user settings.
|
2007-02-27 00:11:32 +01:00
|
|
|
videoDriver = getCfg "videoDriver";
|
|
|
|
resolutions = map (res: "\"${toString res.x}x${toString res.y}\"") (getCfg "resolutions");
|
2007-03-06 01:07:00 +01:00
|
|
|
sessionType = getCfg "sessionType";
|
|
|
|
sessionStarter = getCfg "sessionStarter";
|
|
|
|
|
|
|
|
|
|
|
|
sessionCmd =
|
|
|
|
if sessionType == "" then sessionStarter else
|
|
|
|
if sessionType == "xterm" then "${xterm}/bin/xterm -ls" else
|
|
|
|
if sessionType == "gnome" then "${gnome.gnometerminal}/bin/gnome-terminal" else
|
|
|
|
abort ("unknown session type "+ sessionType);
|
2007-03-01 00:00:09 +01:00
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
windowManager =
|
|
|
|
let wm = getCfg "windowManager"; in
|
|
|
|
if wm != "" then wm else
|
|
|
|
if sessionType == "gnome" then "metacity" else
|
|
|
|
if sessionType == "kde" then "none" /* started by startkde */ else
|
|
|
|
"twm";
|
|
|
|
|
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
modules = [
|
2007-02-26 22:39:07 +01:00
|
|
|
xorg.xorgserver
|
|
|
|
xorg.xf86inputkeyboard
|
|
|
|
xorg.xf86inputmouse
|
2007-02-27 00:11:32 +01:00
|
|
|
]
|
|
|
|
++ optional (videoDriver == "vesa") xorg.xf86videovesa
|
|
|
|
++ optional (videoDriver == "i810") xorg.xf86videoi810;
|
|
|
|
|
2007-02-26 22:39:07 +01:00
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
configFile = stdenv.mkDerivation {
|
2006-11-28 23:27:56 +01:00
|
|
|
name = "xserver.conf";
|
|
|
|
src = ./xserver.conf;
|
2007-02-27 00:11:32 +01:00
|
|
|
inherit fontDirectories videoDriver resolutions;
|
2007-02-25 16:53:57 +01:00
|
|
|
buildCommand = "
|
|
|
|
buildCommand= # urgh, don't substitute this
|
2007-02-26 22:39:07 +01:00
|
|
|
|
2007-02-25 16:53:57 +01:00
|
|
|
export fontPaths=
|
|
|
|
for i in $fontDirectories; do
|
|
|
|
if test \"\${i:0:\${#NIX_STORE}}\" == \"$NIX_STORE\"; then
|
|
|
|
for j in $(find $i -name fonts.dir); do
|
|
|
|
fontPaths=\"\${fontPaths}FontPath \\\"$(dirname $j)\\\"\\n\"
|
|
|
|
done
|
|
|
|
fi
|
|
|
|
done
|
2007-02-26 22:39:07 +01:00
|
|
|
|
|
|
|
export modulePaths=
|
2007-02-27 00:11:32 +01:00
|
|
|
for i in $(find ${toString modules} -type d); do
|
2007-02-26 22:39:07 +01:00
|
|
|
if ls $i/*.so 2> /dev/null; then
|
|
|
|
modulePaths=\"\${modulePaths}ModulePath \\\"$i\\\"\\n\"
|
|
|
|
fi
|
|
|
|
done
|
|
|
|
|
2007-02-25 16:53:57 +01:00
|
|
|
substituteAll $src $out
|
|
|
|
";
|
2006-11-28 23:27:56 +01:00
|
|
|
};
|
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
|
2007-02-25 17:20:14 +01:00
|
|
|
clientScript = writeText "xclient" "
|
2007-03-06 01:07:00 +01:00
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
source /etc/profile
|
|
|
|
|
2007-03-06 01:07:00 +01:00
|
|
|
exec > $HOME/.Xerrors 2>&1
|
|
|
|
|
|
|
|
|
|
|
|
### Start a window manager.
|
|
|
|
|
2007-03-01 00:00:09 +01:00
|
|
|
${if windowManager == "twm" then "
|
2007-03-28 23:16:35 +02:00
|
|
|
${xorg.twm}/bin/twm &
|
2007-03-01 01:00:16 +01:00
|
|
|
"
|
|
|
|
|
|
|
|
else if windowManager == "metacity" then "
|
2007-03-28 23:16:35 +02:00
|
|
|
# !!! Hack: load the schemas for Metacity.
|
|
|
|
GCONF_CONFIG_SOURCE=xml::~/.gconf ${gnome.GConf}/bin/gconftool-2 \\
|
|
|
|
--makefile-install-rule ${gnome.metacity}/etc/gconf/schemas/*.schemas
|
|
|
|
${gnome.metacity}/bin/metacity &
|
|
|
|
"
|
|
|
|
|
|
|
|
else if windowManager == "kwm" then "
|
|
|
|
${kdebase}/bin/kwin &
|
2007-03-01 01:00:16 +01:00
|
|
|
"
|
|
|
|
|
|
|
|
else if windowManager == "compiz" then "
|
2007-03-06 01:07:00 +01:00
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
# !!! Hack: load the schemas for Compiz.
|
|
|
|
GCONF_CONFIG_SOURCE=xml::~/.gconf ${gnome.GConf}/bin/gconftool-2 \\
|
|
|
|
--makefile-install-rule ${compiz}/etc/gconf/schemas/*.schemas
|
|
|
|
|
|
|
|
# !!! Hack: turn on most Compiz modules.
|
|
|
|
${gnome.GConf}/bin/gconftool-2 -t list --list-type=string \\
|
|
|
|
--set /apps/compiz/general/allscreens/options/active_plugins \\
|
|
|
|
[gconf,png,decoration,wobbly,fade,minimize,move,resize,cube,switcher,rotate,place,scale,water]
|
|
|
|
|
|
|
|
# Start Compiz and the GTK-style window decorator.
|
|
|
|
${compiz}/bin/compiz gconf &
|
|
|
|
${compiz}/bin/gtk-window-decorator &
|
|
|
|
"
|
|
|
|
|
|
|
|
else if windowManager == "none" then "
|
|
|
|
|
|
|
|
# The session starter will start the window manager.
|
|
|
|
|
2007-03-01 01:00:16 +01:00
|
|
|
"
|
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
else abort ("unknown window manager " + windowManager)}
|
2007-03-06 01:07:00 +01:00
|
|
|
|
|
|
|
|
|
|
|
### Show a background image.
|
2007-03-28 23:16:35 +02:00
|
|
|
# (but not if we're starting a full desktop environment that does it for us)
|
|
|
|
${if sessionType != "kde" then "
|
2007-03-01 01:00:16 +01:00
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
if test -e $HOME/.background-image; then
|
|
|
|
${feh}/bin/feh --bg-scale $HOME/.background-image
|
|
|
|
fi
|
|
|
|
|
|
|
|
" else ""}
|
|
|
|
|
|
|
|
|
|
|
|
### Start the session.
|
|
|
|
${if sessionType == "kde" then "
|
|
|
|
|
|
|
|
# Start KDE.
|
|
|
|
export KDEDIRS=${kdebase}:${kdelibs}
|
|
|
|
export XDG_CONFIG_DIRS=${kdebase}/etc/xdg:${kdelibs}/etc/xdg
|
|
|
|
export XDG_DATA_DIRS=${kdebase}/share
|
|
|
|
exec ${kdebase}/bin/startkde
|
|
|
|
|
|
|
|
" else "
|
2007-03-06 01:07:00 +01:00
|
|
|
|
2007-03-28 23:16:35 +02:00
|
|
|
# For all other session types, we currently just start a
|
|
|
|
# terminal of the kind indicated by sessionCmd.
|
|
|
|
# !!! yes, this means that you 'log out' by killing the X server.
|
|
|
|
while ${sessionCmd}; do
|
|
|
|
sleep 1
|
|
|
|
done
|
|
|
|
|
|
|
|
"}
|
|
|
|
|
2007-03-06 01:07:00 +01:00
|
|
|
"; # */ <- hack to fix syntax highlighting
|
2007-02-25 17:20:14 +01:00
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
|
2007-02-25 23:27:17 +01:00
|
|
|
xserverArgs = [
|
|
|
|
"-ac"
|
|
|
|
"-nolisten tcp"
|
|
|
|
"-terminate"
|
|
|
|
"-logfile" "/var/log/X.${toString display}.log"
|
2007-02-27 00:11:32 +01:00
|
|
|
"-config ${configFile}"
|
2007-02-25 23:27:17 +01:00
|
|
|
":${toString display}" "vt${toString tty}"
|
|
|
|
];
|
|
|
|
|
2007-03-06 01:07:00 +01:00
|
|
|
|
2007-02-25 23:27:17 +01:00
|
|
|
# Note: lines must not be indented.
|
|
|
|
slimConfig = writeText "slim.cfg" "
|
2007-02-26 22:39:07 +01:00
|
|
|
xauth_path ${xorg.xauth}/bin/xauth
|
|
|
|
default_xserver ${xorg.xorgserver}/bin/X
|
2007-02-25 23:27:17 +01:00
|
|
|
xserver_arguments ${toString xserverArgs}
|
|
|
|
login_cmd exec ${stdenv.bash}/bin/sh ${clientScript}
|
|
|
|
";
|
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
|
2006-11-28 23:27:56 +01:00
|
|
|
in
|
|
|
|
|
2007-02-27 00:11:32 +01:00
|
|
|
|
2006-11-28 23:27:56 +01:00
|
|
|
rec {
|
|
|
|
name = "xserver";
|
|
|
|
|
2007-03-06 01:07:00 +01:00
|
|
|
|
|
|
|
extraPath = [
|
|
|
|
xorg.xrandr
|
|
|
|
feh
|
|
|
|
]
|
|
|
|
++ optional (windowManager == "twm") [
|
|
|
|
xorg.twm
|
|
|
|
]
|
|
|
|
++ optional (windowManager == "metacity") [
|
|
|
|
gnome.metacity
|
|
|
|
]
|
|
|
|
++ optional (windowManager == "compiz") [
|
|
|
|
compiz
|
|
|
|
]
|
|
|
|
++ optional (sessionType == "xterm") [
|
|
|
|
xterm
|
|
|
|
]
|
|
|
|
++ optional (sessionType == "gnome") [
|
|
|
|
gnome.gnometerminal
|
|
|
|
gnome.GConf
|
|
|
|
gnome.gconfeditor
|
2007-03-28 23:16:35 +02:00
|
|
|
]
|
|
|
|
++ optional (sessionType == "kde") [
|
|
|
|
kdelibs
|
|
|
|
kdebase
|
|
|
|
xorg.iceauth # absolutely required by dcopserver
|
|
|
|
xorg.xset # used by startkde, non-essential
|
2007-03-06 01:07:00 +01:00
|
|
|
];
|
|
|
|
|
|
|
|
|
2006-11-28 23:27:56 +01:00
|
|
|
job = "
|
2007-02-27 01:50:22 +01:00
|
|
|
#start on network-interfaces
|
2006-11-28 23:27:56 +01:00
|
|
|
|
2007-02-27 01:50:22 +01:00
|
|
|
start script
|
|
|
|
rm -f /var/state/opengl-driver
|
|
|
|
${if getCfg "driSupport"
|
2007-03-06 01:07:00 +01:00
|
|
|
then "ln -sf ${mesa} /var/state/opengl-driver"
|
|
|
|
else ""
|
|
|
|
}
|
2007-02-27 01:50:22 +01:00
|
|
|
end script
|
2006-11-28 23:27:56 +01:00
|
|
|
|
2007-02-27 01:50:22 +01:00
|
|
|
env SLIM_CFGFILE=${slimConfig}
|
|
|
|
env FONTCONFIG_FILE=/etc/fonts/fonts.conf # !!! cleanup
|
2006-11-28 23:27:56 +01:00
|
|
|
|
2007-02-27 01:50:22 +01:00
|
|
|
${if getCfg "driSupport"
|
2007-03-06 01:07:00 +01:00
|
|
|
then "env XORG_DRI_DRIVER_PATH=${mesa}/lib/modules/dri"
|
|
|
|
else ""
|
|
|
|
}
|
2007-02-25 23:27:17 +01:00
|
|
|
|
2007-02-27 01:50:22 +01:00
|
|
|
exec ${slim}/bin/slim
|
2006-11-28 23:27:56 +01:00
|
|
|
";
|
|
|
|
|
|
|
|
}
|