Add simple command line interface.

1 files changed, 3 insertions, 12 deletions

diff --git a/scripts/scales b/scripts/scales.in
index 7bd74aa..3af6437 100755
--- a/scripts/scales
+++ b/scripts/scales.in
@@ -1,4 +1,5 @@
 #!/home/rekado/.guix-profile/bin/guile -s
+-*- scheme -*-
 !#
 
 ;;; scales - Generate musical scale patterns
@@ -18,15 +19,5 @@
 ;;; License along with this program.  If not, see
 ;;; <http://www.gnu.org/licenses/>.
 
-(use-modules (scales scales)
-             (scales fretboard))
-
-(display "Guitar: E Aeolian\n")
-(print-fretboard (fretboard tuning-guitar (aeolian 'e) 7 5))
-(newline)(newline)
-
-(display "Stick: E Aeolian\n")
-(print-stick
- (map (lambda (string-group)
-        (fretboard string-group (aeolian 'e) 7 5))
-      tuning-grand-stick-matched-reciprocal-6+6))
+(use-modules (scales ui))
+(main (command-line))