NB. cfguser
NB.
NB. save user folders in config file

18!:4 <'jcfg'

NB. =========================================================
getuserfolders=: 3 : 0
ids=. {."1 USERFOLDERS_j_
pth=. {:"1 USERFOLDERS_j_
usr=. ids, each ' ', each pth
'USERFOLDERS=: 0 : 0';usr,<')'
)

NB. =========================================================
NB. configsaveuser
configsaveuser=: 3 : 0
fl=. <jpath '~config\config.ijs'
dat=. 1!:1 :: 0: fl
if. dat -: 0 do. return. end.
ndx=. ('USERFOLDERS' E. dat) i. 1
hdr=. ndx {. dat
dat=. ndx }. dat
ndx=. dat i. ')'
dat=. (ndx + 1) }. dat
usr=. getuserfolders''
usr=. ; usr ,each LF
dat=. hdr, usr, dat
dat 1!:2 fl
)

configsaveuser$0
coerase <'jcfg'