packages/md.source.sh


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

md::make_img () {
    local link="$1"; shift
    local descr="$1"; shift

    if [ -z "$descr" ]; then
        echo "[![$link]($link)]($link)  "
    else
        echo "[![$descr]($link \"$descr\")]($link)  "
    fi
}

md::make_link () {
    local link="$1"; shift
    local descr="$1"; shift

    grep -F -q '://' <<< "$link" || link=${link/.gmi/.md}
    test -z "$descr" && descr="$link"

    echo "[$descr]($link)  "
}

md::test () {
    local line='=> https://example.org'
    assert::equals "$(generate::make_link md "$line")" \
        '[https://example.org](https://example.org)  '

    line='=> index.md'
    assert::equals "$(generate::make_link md "$line")" \
        '[index.md](index.md)  '

    line='=> http://example.org Description of the link'
    assert::equals "$(generate::make_link md "$line")" \
        '[Description of the link](http://example.org)  '

    line='=> http://example.org/image.png'
    assert::equals "$(generate::make_link md "$line")" \
        '[![http://example.org/image.png](http://example.org/image.png)](http://example.org/image.png)  '

    line='=> http://example.org/image.png Image description'
    assert::equals "$(generate::make_link md "$line")" \
        '[![Image description](http://example.org/image.png "Image description")](http://example.org/image.png)  '
}

md::fromgmi () {
    while IFS='' read -r line; do
        case "$line" in
            '=> '*)
                generate::make_link md "$line"
                ;;
            *)
                echo "$line"
                ;;
        esac
    done
}