NAME

WriteAt - suite for make books and docs in pod6 format

SYNOPSIS

    =TITLE MyBook
    =SUBTITLE My first free book
    =AUTHOR Alex Green
    =DESCRIPTION  Short description about this book
    =begin CHANGES
    Aug 18th 2010(v0.2)[zag]   preface
    
    May 27th 2010(v0.1)[zag]   Initial version
    =end CHANGES
     
    =Include src/book_preface.pod
    =CHAPTER Intro
    
    B<Pod> is an evolution of Perl 5's L<I<Plain Ol' Documentation>|doc:perlpod>
    (POD) markup. Compared to Perl 5 POD, Perldoc's Pod dialect is much more 
    uniform, somewhat more compact, and considerably more expressive. The
    Pod dialect also differs in that it is a purely descriptive mark-up
    notation, with no presentational components.

DESCRIPTION

Books must be high available for readers and writers ! WriteAt - suite for free book makers. It help make and prepare book for publishing.

INSTALLATION

There are several ways to install WriteAt to your system.

Install under Ubuntu

    sudo add-apt-repository ppa:zahatski/ppa
    sudo apt-get install writeat

From CPAN

    cpanm WriteAt

For book creation it is necessary following software:

   * docbook-4.5
   * xslt processor
   * GNU make

Checkout templates

Grab template:

        git clone https://github.com/zag/writeat-tmpl-firstbook.git
        cd writeat-tmpl-firstbook
        make

Point your web brouser to index.html file in work directory.

FUNCTIONS

 {
    =tagname
    =childs
 }

make_levels ( blockname, level, $parsed_tree )

Make tree using levels

    my $tree = Perl6::Pod::Utl::parse_pod( $t, default_pod => 1 )
        || die "Can't parse ";
    my ($root) = @$tree;
    my $tree1 = $tree;
    if ( $root->name eq 'pod' ) {
        $tree1 = $root->childs;
    }
    
    my $levels = &WriteAt::make_levels( "CHAPTER", 0, $tree1 );

    return 

    [
        {
            node => {ref to object},
            childs => [ array of childs]
        
        },
        ...
    ]

get_text(node1, node2, ...)

return string of all childs texts nodes

rus2lat

Translit rus to lat ( gost 7.79-2000 )

    rus2lat('russian text');

get_time_stamp_from_string <str>

Get time stamp from strnigs like this:

        2012-11-27T09:39:19Z
        2012-11-27 09:39:19
        2012-11-27 09:39
        2012-11-27 09
        2012-11-27

return unixtimestamp

unixtime_to_string timestamp

Return

METHODS

SEE ALSO

Perl6::Pod, The world's first book in the pod6 format: Russian book "Everything about Perl 6" https://github.com/zag/ru-perl6-book, book template: https://github.com/zag/writeat-tmpl-firstbook.git, russian book template: https://github.com/zag/writeat-tmpl-firstbook-ru.git

AUTHOR

Zahatski Aliaksandr, <zag@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2012-2015 by Zahatski Aliaksandr

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.