411 REFERENCE · Wikibooks
Rebol Programming/write-user
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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 "^/]^/"
]
] [#]
]
]