h

#!/usr/bin/env bash -euE

# NOTE: Use cached version of curl
# TODO: Just search from local haskell reposiotory :(

word="$1"

url="$(hoogle search --json -n1 "$word" | jq .[].url | sed 's;";;g')"
base_url="$(printf '%s' "$url" | sed -E 's;(.*/).*;\1;g')"

# echo "$url"
# echo "$base_url"

relative_url="$(curl "$url" -L -s | pup ":parent-of(a[href=#v:$word])" | pup '.link attr{href}')"
source_url="$(printf '%s/%s' "$base_url" "$relative_url")"

# echo "$relative_url"
# echo "$source_url"

source="$(
    curl "$source_url" -L -s |
        html2text |
        tail -n +2 # remove XML tag
)"

printf '%s' "$source" | bat -l haskell --pager "less -RF --pattern=$word.*::"