added janky footnotes creating scripts

This commit is contained in:
Alexander Bocken 2020-08-13 22:00:54 +02:00
parent 62080dab5c
commit 4588f0b172
3 changed files with 43 additions and 0 deletions

View File

@ -0,0 +1,7 @@
#!/bin/zsh
#first script used to create a file with nicer formatting, here just for Genesis
for chapter in {0..50}; do
for i in {0..50}; do
cat Gen_$chapter.html | grep "fnm$i" | tr '\n' '@' | perl -pe "s/<div class=\"v\" id=\"v([0-9]{1,2}).*?<\/span> (.*?)<\/div>/Genesis\tGen\t1\t$chapter\t\1\t\2\*/g" | perl -pe "s/<sup class=\"fnm\".*?<\/sup>//g" | perl -pe "s/<div class=\"fn\"><sup class=\"fnt\">.*?<\/sup> (.*?)<\/div>/\1/" | tr '@' '\n'
done
done

View File

@ -0,0 +1,20 @@
#!/bin/awk
#uses file genereated from 1_create_footnotes to format each line of to be inserted into the final tsv
BEGIN{
FS="\t"
}
function printline(){
if ($2 != "" ){
book=$1
abbrev=$2
bookno=$3
chapter=$4
verseno=$5
}
else {
printf("%s\t%s\t%d\t%d\t%d\t*\t%s\n",book,abbrev,bookno,chapter,verseno,$1)
}
}
{printline()}

View File

@ -0,0 +1,16 @@
#!/bin/zsh
#Adds the footnotes in the right location in the larger tsv file
while read line; do
start_of_line="$(echo "$line" | awk 'BEGIN{FS="\t"}{printf("%s\t%s\t%d\t%d\t%d\t\n",$1,$2,$3,$4,$5)}')"
if grep -q "$start_of_line" notes_formatted; then
count=$( grep "$start_of_line" notes_formatted | wc -l )
printf '%s' "$line"
for i in {1..$count}; do
printf '*'
done
printf '\n'
grep "$start_of_line" notes_formatted
else
echo "$line"
fi
done<Genesis_from_tsv