#!/bin/sh

# launch-bristol.sh - by B. Watson <urchlay@slackware.uk>, licensed
# under the WTFPL. Part of the SlackBuilds.org bristol build.

# Simple KDialog-based launcher for Bristol synth. Bristol is a
# GUI application once it's running, but it emulates 40+ different
# synths, and the only way to choose the synth is by passing an
# argument to startBristol (e.g. -mini or -prophet).

# We want to be able to launch it from a .desktop file, which means
# one of three things:

# 1. The .desktop file would have a synth type hardcoded, other emulations
#    would require CLI startup.
# 2. There would have to be 40+ .desktop files, one per synth type (ugh).
# 3. The .desktop file would launch some kind of selector to let the user
#    pick the synth type. That's what this script is for.

# This works, but doesn't offer a way to set any of the other CLI
# options. We have "-jack" hardcoded here, since I doubt many people
# ever use "-alsa" with bristol...

# If this file exists, it contains the last choice the user made,
# last time this script was run and its OK button pressed.
# Pressing Cancel doesn't create or alter this file.
file=~/.launch-bristol

# This is more complex than it should be, because kdialog's --default
# option requires the *text* of the selected item (e.g. 'moog mini'),
# but kdialog doesn't print this text (it prints the ID of the option,
# e.g. '-mini'). So this script greps itself to find the item text
# that goes with the saved item ID.
if [ -e $file ]; then
  dflt="$( cat $file )"
  dflttxt="$( grep "^  $dflt" $0 | cut -d"'" -f2 )"
else
  dflttxt='hammond B3 (default)'
fi

# Try to center the window. Unfortunately kdialog's not smart enough
# to auto-size, I have to hardcode a width and height to avoid having
# a tiny window that requires a ton of scrolling. Also I have no idea
# how (or if) the font and font-size are chosen...
xpos=0; ypos=0
width=400; height=800
x="$( xwininfo -root | grep Width | sed 's,.* ,,' )"
y="$( xwininfo -root | grep Height | sed 's,.* ,,' )"
if [ "$x" -gt "$width" -a "$y" -gt "$height" ]; then
  xpos=$(( $x / 2 - $width / 2 ))
  ypos=$(( $y / 2 - $height / 2 ))
fi

# The list of synths came from "startBristol --help".
kdialog --title 'Bristol Launcher' --menu 'Select Synth Emulation' \
  --geometry ${width}x${height}+${xpos}+${ypos} \
  --default "$dflttxt" -- \
  -b3 'hammond B3 (default)' \
  -mini 'moog mini' \
  -explorer 'moog voyager' \
  -voyager 'moog voyager electric blue' \
  -memory 'moog memory' \
  -sonic6 'moog sonic 6' \
  -mg1 'moog/realistic mg-1 concertmate' \
  -hammond 'hammond module (deprecated, use -b3)' \
  -prophet 'sequential circuits prophet-5' \
  -pro52 'sequential circuits prophet-5/fx' \
  -pro10 'sequential circuits prophet-10' \
  -pro1 'sequential circuits pro-one' \
  -rhodes 'fender rhodes mark-I stage 73' \
  -rhodesbass 'fender rhodes bass piano' \
  -roadrunner 'crumar roadrunner electric piano' \
  -bitone 'crumar bit 01' \
  -bit99 'crumar bit 99' \
  -bit100 'crumar bit + mods' \
  -stratus 'crumar stratus synth/organ combo' \
  -trilogy 'crumar trilogy synth/organ/string combo' \
  -obx 'oberheim OB-X' \
  -obxa 'oberheim OB-Xa' \
  -axxe 'arp axxe' \
  -odyssey 'arp odyssey' \
  -arp2600 'arp 2600' \
  -solina 'arp/solina string ensemble' \
  -polysix 'korg polysix' \
  -poly800 'korg poly-800' \
  -monopoly 'korg mono/poly' \
  -ms20 'korg ms20 (unfinished: -libtest only)' \
  -vox 'vox continental' \
  -voxM2 'vox continental super/300/II' \
  -juno 'roland juno-60' \
  -jupiter 'roland jupiter-8' \
  -bme700 'baumann bme-700' \
  -bm 'bristol bassmaker sequencer' \
  -dx 'yamaha dx-7' \
  -cs80 'yamaha cs-80 (unfinished)' \
  -sidney 'commodore-64 SID chip synth' \
  -melbourne 'commodore-64 SID polysynth (unfinished)' \
  -granular 'granular synthesiser (unfinished)' \
  -aks 'ems synthi-a (unfinished)' \
  -mixer '16 track mixer (unfinished: -libtest only)' \
  > $file.new

opt="$( cat $file.new )"
if [ "$opt" = "" ]; then
  rm -f $file.new
  exit 0
fi

mv $file.new $file
if [ "$1" = "--fake" ]; then
  echo "exec startBristol -jack $opt"
else
  exec startBristol -jack $opt
fi