fix intro vs chap vs appendix

master
Bel LaPointe 2021-12-15 06:15:59 -07:00
parent 95518fc3a8
commit d6e7061738
1 changed files with 16 additions and 5 deletions

21
poc.sh
View File

@ -4,6 +4,7 @@
main() {
set -e
set -o pipefail
#set -x
local output="$(mktemp -d)"
log "$output"
@ -49,9 +50,14 @@ scrape_book() {
local f="$(mktemp)"
for chapter in $(list_chapters_in_book "$book_url"); do
log chapter=$chapter
log scraping book chapter $chapter of $book_url
scrape_book_chapter "$chapter" > "$f"
local title="$(grep -E 'Chapter|Appendix' "$f" | head -n 1 | sed 's/^\#*//' | sed 's/^[ ]*//' | sed 's/[ ]*$//')"
log scraping book title from $f
local title="$(grep '^\#' "$f" | head -n 1 | sed 's/^\#*//' | sed 's/^[ ]*//' | sed 's/[ ]*$//')"
if [ -z "$title" ]; then
log "WARNING: NO TITLE FOUND IN $f ($chapter): $(head -n 3 $f)"
return 1
fi
mv "$f" "$output"/"$title"
done
@ -67,6 +73,7 @@ scrape_book_chapter() {
list_chapters_in_book() {
local book_url="${1%/}"
local raw="$(scrape_dndbeyond "$book_url")"
if echo "$raw" | grep -q 'https:..www.dndbeyond.com.compendium[^"]*'; then
echo "$raw" | grep -o 'https:..www.dndbeyond.com.compendium[^"]*'
elif echo "$raw" | grep -q "$book_url/"; then
@ -111,7 +118,12 @@ html_to_markdown() {
| sed 's/\[\([^]]*\)]\(([^)]*)\)*\({[^}]*}\)*/\1/g' \
| sed "s/\\\\\([\"']\)/\1/g"
)"
local target="$(echo "$out" | grep -q '^[#]* Appendix' && echo Appendix || echo Chapter)"
local target="$(
(echo "$out" | grep -q '^##* Appendix' && echo Appendix) \
|| (echo "$out" | grep -q '^##* Chapter' && echo Chapter) \
|| (echo "$out" | grep -q '^##* Introduction' && echo Introduction) \
|| echo Chapter
)"
echo "$out" \
| sed -e '/^# '"$target"'/p' -e '0,/^# '"$target"'/d'
}
@ -122,14 +134,13 @@ rate_limit_1s() {
mkdir -p "$d"
local last_run="$(date -r "$d/$name" +%s)"
local now="$(date +%s)"
local interval=3
local interval=6
log "should sleep while $(($(date +%s)-last_run)) < $interval"
if [ -f "$d/$name" ]; then
while [ "$(($(date +%s)-last_run))" -lt $interval ]; do
sleep 1
done
fi
log "done sleeping"
touch "$d/$name"
}