para

unit module BackupAndSync:ver<0.2.0>:auth<Francis Grizzly Smit (grizzlysmit@smit.id.au)>;
my Int:D $version-major     = 0;
my Int:D $version-minor     = 2;
my Int:D $version-sub-minor = 0;
use IO::Glob;
use Terminal::Gauge;



head

item

NAME

Francis Grizzly Smit (grizzly@smit.id.au)


AUTHOR

VERSION

TITLE

A B<Raku> module for supporting the backup and sync of a set of boxes.


SUBTITLE

LGPL V3.0+ L<LICENSE|https://github.com/grizzlysmit/GUI-Editors/blob/main/LICENSE>


COPYRIGHT

A B<Raku> module for supporting the backup and sync of a set of boxes. 




sub version( --> Str:D) is export {
    return sprintf "%d.%d.%d", $version-major, $version-minor, $version-sub-minor;
}

sub version-suffix( --> Str:D) is export {
    return  $*KERNEL.archname;
}


# the name of this host   #
constant $thishost is export = qx<hostname>.chomp;

# the home dir #
constant $home is export = %*ENV<HOME>.Str();

# config files
constant $config is export = "$home/.local/share/backup-and-sync";

# the user name #
constant $user is export = %*ENV<USER>.Str();

# the editor to use #
my Str $editor = '';
if %*ENV<GUI_EDITOR>:exists {
    $editor = %*ENV<GUI_EDITOR>.Str();
} elsif %*ENV<VISUAL>:exists {
    $editor = %*ENV<VISUAL>.Str();
} elsif %*ENV<EDITOR>:exists {
    $editor = %*ENV<EDITOR>.Str();
} else {
    my Str $gvim = qx{/usr/bin/which gvim 2> /dev/null };
    my Str $vim  = qx{/usr/bin/which vim  2> /dev/null };
    my Str $vi   = qx{/usr/bin/which vi   2> /dev/null };
    if $gvim {
        $editor = $gvim;
    } elsif $vim {
        $editor = $vim;
    } elsif $vi {
        $editor = $vi;
    }
}

insure-config-is-present();

# The default name of the backup device #
my Str @backup-devices = slurp("$config/device").split("\n").map( { my Str $e = $_; $e ~~ s/ '#' .* $$ //; $e } ).map( { $_.trim() } ).grep: { !rx/ [ ^^ \s* '#' .* $$ || ^^ \s* $$ ] / };
my Str $backup-device = "";
my Str @guieditors;
#@backup-devices.raku.say;
if @backup-devices {
    #@backup-devices.raku.say;
    for @backup-devices -> $device {
        #"'$device'".say;
        #"Got here $?FILE [$?LINE]".say;
        if $device ~~ rx/ ^^ 'device' \s* '=' $<dev> = [ .+ ] $$ / {
            #"Got here $?FILE [$?LINE]".say;
            $backup-device = ~$<dev>;
            #"'$backup-device'".say;
            $backup-device .=trim;
            #"'$backup-device'".say;
        } elsif $device ~~ rx/ ^^ \s* 'guieditors' \s* '+'? '=' $<dev> = [ .+ ] $$ / {
            my Str $guieditor = ~$<dev>;
            $guieditor .=trim;
            @guieditors.append($guieditor);
        }
    }
}
if %*ENV<GUI_EDITOR>:exists {
    my Str $guieditor = ~%*ENV<GUI_EDITOR>;
    if ! @guieditors.grep( { $_ eq $guieditor.IO.basename } ) {
        @guieditors.prepend($guieditor.IO.basename);
    }
}
if $backup-device ~~ rx/ ^^ \s* $$ / {
    "No backup device specified!!!".say;
    exit -1;
} else {
    $backup-device ~~ s:g/ \{ 'user' \} /$user/;
    $backup-device ~~ s:g/ \{ 'hostname' \} /$thishost/;
    $backup-device ~~ s:g/ \{ 'home' \} /$home/;
}



sub backup-device-val(--> Str) is export 


code

=begin code :lang<raku>

sub backup-device-val(--> Str) is export 

=end code


root

README

A Raku application for synchronising a set of boxes.


sync.raku


A Raku module for supporting the backup and sync of a set of boxes.


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<AI|file:../mcp/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>
    =item2 L<Hand these documents to an AI assistant|file:../mcp/index.podlite>

=end nested
=begin nested :!nested
=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>

=end nested
=end React


Built with L<Podlite|https://podlite.org> — the markup and publishing tools behind this site.


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


BackupAndSync.rakumod

BackupAndSync

Table of Contents

NAME

AUTHOR

VERSION

COPYRIGHT

Introduction

sub backup-device-val(--> Str) is export

App::Backup v0.1.4

Authors

License

Dependencies

Test Dependencies

Provides

Documentation