 				 "\\s")
 				("s")))
 	(char)))
+
+; for debugging -- really ought to make a test suite
+;(setq ch '("a" " " "b" " " "c"))
+;(setq ly '("x" "y" " " "z"))
+;(flk-inline-chords ch ly)

  (local-set-key "\C-C-" 'flk-insert-flat)
  (local-set-key "\C-Co" 'flk-insert-dim)
  (local-set-key "\C-C+" 'flk-insert-aug)
  (local-set-key "\C-C\C-C"  'inline-chords-at-point)
)

(defun flk-insert-a (arg)

	((equal " " (car chords))
	 (if (null lyrics)
	     (flk-convert-chords (cdr chords) nil (cons " " result))
	   (flk-convert-chords (cdr chords) (cdr lyrics) (cons (car lyrics) result))))
	((flk-convert-chord chords lyrics "" (cons "[" result)))
	))

