2 -- ion/share/ioncore_wd.lua
4 -- Copyright (c) Tuomo Valkonen 2004-2008.
6 -- See the included file LICENSE for details.
9 local savefile="saved_wd"
13 if pcall(function() return require('lfs') end) then
17 local function checkdir(d)
21 local t, err=lfs.attributes(d, "mode")
24 elseif t=="directory" then
27 return nil, TR("Not a directory.")
32 local function regtreepath_i(reg)
33 local function f(s, v)
44 -- Change default working directory for new programs started in \var{reg}.
45 function ioncore.chdir_for(reg, dir)
46 assert(dir==nil or type(dir)=="string")
47 if dir=="" or dir==nil then
51 local ok, err=checkdir(dir)
60 -- Get default working directory for new programs started in \var{reg}.
61 function ioncore.get_dir_for(reg)
62 for r in regtreepath_i(reg) do
70 local function lookup_script_warn(script)
71 local script=ioncore.lookup_script(script)
73 warn(TR("Could not find %s", script))
79 local function lookup_runinxterm_warn(prog, title, wait)
80 local rx=lookup_script_warn("ion-runinxterm")
87 rx=rx.." -T "..string.shell_safe(title)
98 -- Run \var{cmd} with the environment variable DISPLAY set to point to the
99 -- root window of the X screen \var{reg} is on. If \var{cmd} is prefixed
100 -- by a colon (\code{:}), the following command is executed in an xterm
101 -- (or other terminal emulator) with the help of the \command{ion-runinxterm}
102 -- script. If the command is prefixed by two colons, \command{ion-runinxterm}
103 -- will ask you to press enter after the command is finished, even if it
104 -- returns succesfully.
105 function ioncore.exec_on(reg, cmd, merr_internal)
106 local _, _, col, c=string.find(cmd, "^[%s]*(:+)(.*)")
108 cmd=lookup_runinxterm_warn(c, nil, string.len(col)>1)
113 cmd='XTERMCMD='..string.shell_safe(XTERM)..' '..cmd
116 return ioncore.do_exec_on(reg, cmd, ioncore.get_dir_for(reg),
121 local function load_config()
122 local d=ioncore.read_savefile(savefile)
125 for nm, d in pairs(d) do
126 local r=ioncore.lookup_region(nm)
128 local ok, err=checkdir(d)
140 local function save_config()
142 for r, d in pairs(dirs) do
143 local nm=obj_exists(r) and r:name()
148 ioncore.write_savefile(savefile, t)
152 local function init()
154 ioncore.get_hook("ioncore_snapshot_hook"):add(save_config)
155 ioncore.get_hook("ioncore_post_layout_setup_hook"):add(load_config)