Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Snap-based config init |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2ade3d4f87d1b69b2e23961941f9df47 |
| User & Date: | bernd 2020-02-25 23:23:12 |
Context
|
2020-02-25
| ||
| 23:49 | Fix way overcomplicated write-groups check-in: 87d74c78da user: bernd tags: trunk | |
| 23:23 | Snap-based config init check-in: 2ade3d4f87 user: bernd tags: trunk | |
| 22:50 | If netlink permission denied, just don't run netlink task check-in: e894818bf1 user: bernd tags: trunk | |
Changes
Changes to tools.fs.
440 441 442 443 444 445 446 447 448 449 450 451 452 453 ... 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 ... 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 |
$Variable .net2o$
$Variable .net2o-config$
$Variable .net2o-cache$
$Variable invite$
}scope
also config
: .net2o/ ( addr u -- addr' u' ) [: .net2o$ $. '/' emit type ;] $tmp ;
: subdir-config ( -- )
"keys" .net2o/ keys$ $!
"chats" .net2o/ chats$ $!
"objects" .net2o/ objects$ $! ;
................................................................................
"SNAP_USER_COMMON" getenv 2dup d0= IF 2drop
"~/.local/share/net2o" .net2o$ $!
"~/.config/net2o" .net2o-config$ $!
"~/.cache/net2o" .net2o-cache$ $!
ELSE
.net2o$ $!
.net2o$ $@ .net2o-config$ $!
[: .net2o$ $. ." /cache" ;] .net2o-cache$ $exec
THEN
xdg-dir-config
subdir-config ;
default-dir-config
#2 date# !
#20 logsize# !
................................................................................
: fsane-init ( -- )
false to hash-sanitize? false to chat-sanitize?
?.net2o/objects objects/.no-fat-file ?create-file
0= to hash-sanitize?
?.net2o/chats chats/.no-fat-file ?create-file
0= to chat-sanitize? ;
$Variable config-file$ "~/.config/net2o/config" config-file$ $!
Variable configured?
:noname defers 'cold
configured? off
pad $400 get-dir rootdirs$ $!
; is 'cold
:noname ( -- )
|
> > | > < |
440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 ... 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 ... 522 523 524 525 526 527 528 529 530 531 532 533 534 535 |
$Variable .net2o$ $Variable .net2o-config$ $Variable .net2o-cache$ $Variable invite$ }scope $Variable config-file$ "~/.config/net2o/config" config-file$ $! also config : .net2o/ ( addr u -- addr' u' ) [: .net2o$ $. '/' emit type ;] $tmp ; : subdir-config ( -- ) "keys" .net2o/ keys$ $! "chats" .net2o/ chats$ $! "objects" .net2o/ objects$ $! ; ................................................................................ "SNAP_USER_COMMON" getenv 2dup d0= IF 2drop "~/.local/share/net2o" .net2o$ $! "~/.config/net2o" .net2o-config$ $! "~/.cache/net2o" .net2o-cache$ $! ELSE .net2o$ $! .net2o$ $@ .net2o-config$ $! [: .net2o$ $. ." /cache" ;] .net2o-cache$ dup $free $exec [: .net2o-config$ $. ." /config" ;] config-file$ dup $free $exec THEN xdg-dir-config subdir-config ; default-dir-config #2 date# ! #20 logsize# ! ................................................................................ : fsane-init ( -- ) false to hash-sanitize? false to chat-sanitize? ?.net2o/objects objects/.no-fat-file ?create-file 0= to hash-sanitize? ?.net2o/chats chats/.no-fat-file ?create-file 0= to chat-sanitize? ; Variable configured? :noname defers 'cold configured? off pad $400 get-dir rootdirs$ $! ; is 'cold :noname ( -- ) |