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.216
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
Unified Diff Ignore Whitespace Patch
Changes to tools.fs.
440
441
442
443
444
445
446


447
448
449
450
451
452
453
$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$ $! ;







>
>







440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
$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$ $! ;
463
464
465
466
467
468
469
470

471
472
473
474
475
476
477
    "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# !







|
>







465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
    "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# !
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
: 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 ( -- )







<







522
523
524
525
526
527
528

529
530
531
532
533
534
535
: 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 ( -- )