Check-in [2ade3d4f87]
Not logged in

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: 2ade3d4f87d1b69b2e23961941f9df4709a8a033
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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 ( -- )