Rebol Programming/write-user

= USAGE: = WRITE-USER

= DESCRIPTION: = Write network config to user.r file

WRITE-USER is a function value. = SOURCE CODE = write-user: func [ "Write network config to user.r file" /local user.r ][ user.r: either view? [view-root/user.r] [system/options/home/user.r]    write user.r trim reform [{ ^-^-REBOL [ ^-^-^-Title: "User Preferences" ^-^-^-Date: } now { ^-^-]

^-^-set-net [} system/user/email system/schemes/default/host system/schemes/pop/host system/schemes/default/proxy/host system/schemes/default/proxy/port-id system/schemes/default/proxy/type "]^/^-^-" either found? system/user/name [ reform ["set-user-name" mold system/user/name newline] ] [#]        either view? [           reform [{if (not none? system/view) [ ^-system/view/screen-face/options:} mold system/view/screen-face/options "^/]^/" ]       ] [#]    ] ]