imd2point.sh - pointtools - Simple point utilities to hold text presentations.	Err	bitreich.org	70
hgit clone git://bitreich.org/pointtools/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/pointtools/	URL:git://bitreich.org/pointtools/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/pointtools/	bitreich.org	70
1Log	/scm/pointtools/log.gph	bitreich.org	70
1Files	/scm/pointtools/files.gph	bitreich.org	70
1Refs	/scm/pointtools/refs.gph	bitreich.org	70
1Tags	/scm/pointtools/tag	bitreich.org	70
1README	/scm/pointtools/file/README.md.gph	bitreich.org	70
1LICENSE	/scm/pointtools/file/LICENSE.gph	bitreich.org	70
i---	Err	bitreich.org	70
imd2point.sh (772B)	Err	bitreich.org	70
i---	Err	bitreich.org	70
i     1 #!/bin/sh	Err	bitreich.org	70
i     2 	Err	bitreich.org	70
i     3 mkfilename() {	Err	bitreich.org	70
i     4         printf "%.4d-%s" "$1" "$2" | tr '# :.()/' '_'	Err	bitreich.org	70
i     5         printf ".txt"	Err	bitreich.org	70
i     6 }	Err	bitreich.org	70
i     7 	Err	bitreich.org	70
i     8 mkunderline() {	Err	bitreich.org	70
i     9         i=$1	Err	bitreich.org	70
i    10         while [ $i -gt 1 ];	Err	bitreich.org	70
i    11         do	Err	bitreich.org	70
i    12                 printf "%s" "$2"	Err	bitreich.org	70
i    13                 i=$(($i - 1))	Err	bitreich.org	70
i    14         done	Err	bitreich.org	70
i    15 }	Err	bitreich.org	70
i    16 	Err	bitreich.org	70
i    17 fname=""	Err	bitreich.org	70
i    18 snum=0	Err	bitreich.org	70
i    19 	Err	bitreich.org	70
i    20 while IFS='	Err	bitreich.org	70
i    21 ' read -r line;	Err	bitreich.org	70
i    22 do	Err	bitreich.org	70
i    23         case $line in	Err	bitreich.org	70
i    24         \#\#*)	Err	bitreich.org	70
i    25                 titlelen="$(utf8expr length "$line")"	Err	bitreich.org	70
i    26                 title="$(utf8expr substr "$line" 3 $titlelen)"	Err	bitreich.org	70
i    27                 fname="$(mkfilename "$snum" "$title")"	Err	bitreich.org	70
i    28                 snum=$((snum + 1))	Err	bitreich.org	70
i    29                 printf "\n  %s\n  %s\n\n" \	Err	bitreich.org	70
i    30                         "$title" "$(mkunderline $titlelen "=")" > $fname	Err	bitreich.org	70
i    31                 ;;	Err	bitreich.org	70
i    32         \#pause)	Err	bitreich.org	70
i    33                 fname="$(mkfilename "$snum" "$title")"	Err	bitreich.org	70
i    34                 cat "$(mkfilename "$((snum - 1))" "$title")" >> $fname	Err	bitreich.org	70
i    35                 snum=$((snum + 1))	Err	bitreich.org	70
i    36                 ;;	Err	bitreich.org	70
i    37         *)	Err	bitreich.org	70
i    38                 [ -n "$fname" ] && \	Err	bitreich.org	70
i    39                         printf " %s\n" "$line" \	Err	bitreich.org	70
i    40                         | sed 's,        ,        ,' \	Err	bitreich.org	70
i    41                         | sed 's,^\([[:blank:]]*\)\*,\1o,' >> $fname	Err	bitreich.org	70
i    42                 ;;	Err	bitreich.org	70
i    43         esac	Err	bitreich.org	70
i    44 done	Err	bitreich.org	70
i    45 	Err	bitreich.org	70
.