File: ndef.sh
   1 #!/bin/sh
   2 
   3 # The MIT License (MIT)
   4 #
   5 # Copyright (c) 2026 pacman64
   6 #
   7 # Permission is hereby granted, free of charge, to any person obtaining a copy
   8 # of this software and associated documentation files (the "Software"), to deal
   9 # in the Software without restriction, including without limitation the rights
  10 # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  11 # copies of the Software, and to permit persons to whom the Software is
  12 # furnished to do so, subject to the following conditions:
  13 #
  14 # The above copyright notice and this permission notice shall be included in
  15 # all copies or substantial portions of the Software.
  16 #
  17 # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  18 # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  19 # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
  20 # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  21 # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  22 # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  23 # SOFTWARE.
  24 
  25 
  26 # ndef [options...] [words...]
  27 #
  28 # Nice DEFine lookups words via the online english dictionary from
  29 # https://dict.org, color-coding various metadata from the response.
  30 #
  31 # The options are, available both in single and double-dash versions
  32 #
  33 #   -h, -help    show this help message
  34 
  35 
  36 case "$1" in
  37     -h|--h|-help|--help)
  38         awk '/^# +ndef /, /^$/ { gsub(/^# ?/, ""); print }' "$0"
  39         exit 0
  40     ;;
  41 
  42     --) shift ;;
  43 
  44     -*)
  45         printf "unsupported option '%s'\n" "$1" >&2
  46         exit 1
  47     ;;
  48 esac
  49 
  50 if [ $# -eq 0 ]; then
  51     awk '/^# +ndef /, /^$/ { gsub(/^# ?/, ""); print }' "$0"
  52     exit 0
  53 fi
  54 
  55 gap=0
  56 options='-MKiCRS'
  57 if [ $# -eq 1 ]; then
  58     options="${options} --header=1"
  59 fi
  60 
  61 local_dict=0
  62 if command -v dict > /dev/null; then
  63     local_dict=1
  64 fi
  65 
  66 for word in "$@"; do
  67     [ "${gap}" -gt 0 ] && printf "\n"
  68     gap=1
  69 
  70     # printf "\033[48;2;218;218;218m%-80s\033[0m\n" "${word}"
  71     printf "\033[7m%-80s\033[0m\n" "${word}"
  72 
  73     if [ "${local_dict}" -eq 1 ]; then
  74         if ! dict "${word}" 2> /dev/null; then
  75             continue
  76         fi
  77     fi
  78 
  79     curl --show-error -s "dict://dict.org/d:${word}" 2>&1 | awk '
  80         # get rid of carriage-returns at the end of lines
  81         { gsub(/\r/, "") }
  82 
  83         # code 151 has the specific source for the match, so
  84         # use a unique style for that kind of metadata line
  85         /^151 / {
  86             printf("\x1b[38;2;52;101;164m%s\x1b[0m\n", $0)
  87             next
  88         }
  89 
  90         # make error-type metadata lines stand out
  91         /^[3-5][0-9]{2} [a-z]/ {
  92             nerr++
  93             printf("\x1b[38;2;175;0;0m%s\x1b[0m\n", $0)
  94             next
  95         }
  96 
  97         # gray out ok-type metadata lines
  98         /^[12][0-9]{2} / || /^\.$/ {
  99             printf("\x1b[38;2;128;128;128m%s\x1b[0m\n", $0)
 100             next
 101         }
 102 
 103         # keep all other lines unstyled
 104         1
 105 
 106         # fail the script if any lookup failed
 107         END { exit(nerr != 0) }
 108     '
 109 done | { less ${options} 2> /dev/null || less -RIMS 2> /dev/null || cat; }