Allow referencing audio files with filenames outside [a-zA-Z0-9_] (#236)

This is useful when importing existing audio files, which frequently
contain e.g. '-'.

Co-authored-by: Thomas Bleher <[email protected]>
Co-authored-by: Joachim Breitner <[email protected]>

Author: 3 people

Changelog.md

@@ -2,6 +2,8 @@
 
 ## 1.10 (UNRELEASED)
 
+ * Audio filenames can now be quoted, to support filenames with characters
+   outside the range `a-zA-Z0-9_`
  * Support for the `stop` and `restart` codes (generated by default)
  * The `set-language` command truncates long language names (like `ITALIAN`)
    automatically.

book/tttool-referenz.rst

@@ -121,7 +121,7 @@ Muster-Einstellungen
 
 Mit folgenden Optionen kannst du das nachjustieren, wie das Muster erstellt wird -- je nach Drucker funktionieren andere Einstellungen besser.
 
-* Mit der Option ``--code-dim`` legst du fest, wie groß das Muster erzeugt werden soll. Du kannst entweder eine Zahl angeben, dann bekommst du ein Quadrat mit der angegebenen Seitenlänge in Millimeter, also ``--code-dim 30`` für ein 3×3cm Quadrat (dies ist die Standard-Einstellung). Oder du gibst mit zwei Zahlen die Breite und Höhe an, etwa ``-code-dim 210x297`` für ein Muster in A4-Größe.
+* Mit der Option ``--code-dim`` legst du fest, wie groß das Muster erzeugt werden soll. Du kannst entweder eine Zahl angeben, dann bekommst du ein Quadrat mit der angegebenen Seitenlänge in Millimeter, also ``--code-dim 30`` für ein 3×3cm Quadrat (dies ist die Standard-Einstellung). Oder du gibst mit zwei Zahlen die Breite und Höhe an, etwa ``--code-dim 210x297`` für ein Muster in A4-Größe.
 
 * Die Option ``--dpi`` gibt die gewünschte Auflösung des Musters an, in der im Druck üblichen Einheit Punkt-Pro-Zoll (dots per inch). Der Standardwert ist 1200 DPI, unter Umständen genügen auch 600 DPI.
 

book/yaml-referenz.rst

@@ -390,6 +390,13 @@ Effekt:
 
     In der zweiten Form spielt der Befehl zufällig eine der angegebenen Audio-Dateien ab.
 
+Hinweis:
+    Wenn der Dateiname Zeichen enthält außer *a-z*, *0-9* und *_*, dann muss der Dateiname in Anführungszeichen stehen.
+Beispiel:
+  .. code:: yaml
+
+    haus:
+    - P("Willkommen zu Hause")
 
 .. _command-J:
 

src/TipToiYaml.hs

@@ -955,7 +955,7 @@ parsePlayList :: Parser [String]
 parsePlayList = P.commaSep lexer $ parseAudioRef
 
 parseAudioRef :: Parser String
-parseAudioRef = P.lexeme lexer $ many1 (alphaNum <|> char '_')
+parseAudioRef = (P.lexeme lexer $ many1 (alphaNum <|> char '_')) <|> P.stringLiteral lexer
 
 parseScriptRef :: Parser String
 parseScriptRef = P.lexeme lexer $ many1 (alphaNum <|> char '_')