Jump to content

Rebol Programming/write-user

From Wikibooks, open books for an open world

USAGE:

[edit | edit source]
WRITE-USER 

DESCRIPTION:

[edit | edit source]

Write network config to user.r file

WRITE-USER is a function value.

SOURCE CODE

[edit | edit source]
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 "^/]^/"
            ]
        ] [#]
    ]
]