#!/usr/bin/env bash

# Written by Storm Dragon https://social.stormdragon.tk/storm
# Released under the terms of the WTFPL License http://wtfpl.net

trap 'exit 0' SIGINT

declare -A tuning=(
  # Dropped 1 step.
  [6d]="D2 G2 C3 F3 A3 D4"
  # Standard tuning
  [6e]="E2 A2 D3 G3 B3 E4"
  # Half step down
  [half-step-down]="D#2 G#2 C#3 F#3 A#3 D#4"
  #dadgad 6-string
  [dadgad]="D2 A2 D3 G3 A3 D4"
  #Open D
  [open-d]="D2 A2 D3 F#3 A3 D4"
  #drop D 6 String
  [drop-d]="D2 A2 D3 G3 B3 E4"
  #Drop DG
  [Drop-dg]="D2 G2 D3 G3 B3 E4"
  #Open G
  [[open-g]]="D2 G2 D3 G3 B3 D4"
  # 12 string dropped 1 step.
  [12d]="D3 D2 G3 G2 C4 C3 F4 F3 A3 D4"
  # 12 string standard tuning
  [12e]="E3 E2 A3 A2 D4 D3 G4 G3 B3 E4"
  # Mandolin
  [mandolin]="G3 D4 A4 E5"
  #Ukulele
  [ukulele]="G4 C4 E4 A4"
  [ukulele-half-step-down]="F#4 B3 D#4 G#4"
  [violin]="G3 D4 A4 E5"
  #lap Steel 6 String C6
  [steel-C6]="C3 E3 G3 A3 C4 E4"
  #Nick Drake Tuning
  [nick-drake-tuning]="C2 G2 C3 F3 C4 E4"
  #banjo
  [banjo]="G4 D3 G3 B3 D4"
  # Chromatic Scale, 2 octaves.
  [chromatic-scale]="C2 C#2 D2 D#2 E2 F2 F#2 G2 G#2 A2 A#2 B2 C3 C#3 D3 D#3 E3 F3 F#3 G3 G#3 A3 A#3 B3 C4 C#4 D4 D#4 E4 F4 F#4 G4 G#4 A4 A#4 B4 C5"
)

# For multi-language support
export TEXTDOMAIN=bashtuner
export TEXTDOMAINDIR=/usr/share/locale
source gettext.sh

export DIALOGOPTS='--insecure --no-lines --visit-items'

flush_keys() {
    local keys
    read -st0.001 keys
}

show_help() {
  echo "$(eval_gettext "Usage: \$0 tune_id")"
  echo "$(gettext "Where tune_id is one of")"
  echo "${!tuning[@]}"
exit 0
}

if [[ $# -eq 0 ]]; then
    set -- $(dialog --backtitle "$(gettext "Welcome to Bash Tuner")" \
        --no-tags \
        --menu "$(gettext "Select tuning")" 0 0 10 \
        $(for i in ${!tuning[@]} ; do echo "$i";echo "$i";done) --stdout)
    [[ -z $1 ]] && exit 0
fi

[ $# -gt 1  ] && show_help
[ -z "${tuning[$1]}" ] && show_help
[ "$1" == "-h" ] && show_help
[ "$1" == "--help" ] && show_help

# Continuously play the notes until a key is press.
# This will adjust how long each note plays.
timeout=2
for i in ${tuning[$1]} ; do
  unset continue
  ifs="$IFS"
  IFS=""
  while [[ -z "$continue" ]]; do
    ps $notePID &> /dev/null && kill $notePID &> /dev/null
    play -qnV0 synth $timeout pl $i &
    notePID="$!"
    read -sN1 -t $timeout continue
    flush_keys
  done | dialog --progressbox "${i//[[:digit:]]/}" 0 0
  IFS="$ifs"
done
# Kill the final process when the program exits.
    ps $notePID &> /dev/null && kill $notePID &> /dev/null
exit 0