Improving punctuation marks.

hinantin · Oct 19, 2016 · 2762e5c · 2762e5c
1 parent f697713
commit 2762e5c
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/asheninka.script b/asheninka.script
@@ -302,7 +302,15 @@
         define InterjPRQ InterjPRQin;
       define Interjection [ [InterjPRQ] ];
 
-      read regex Cleanup .o. [ [Other|Adverb|Noun|Verb|Negator|Interrogative|Personal|Possessive|Demonstrative|Interjection] ] .o. Cleanup1 .o. Orthography .o. UpperCase;
+      ##########################
+      #                        #
+      #       Punctuation      #
+      #                        #
+      ##########################
+      source punctuation.foma
+        define PunctuationMarks Punctuation;
+
+      read regex Cleanup .o. [ [Other|Adverb|Noun|Verb|Negator|Interrogative|Personal|Possessive|Demonstrative|Interjection|PunctuationMarks] ] .o. Cleanup1 .o. Orthography .o. UpperCase;
 
       save stack asheninka.bin
 
diff --git a/punctuation.foma b/punctuation.foma
@@ -25,6 +25,7 @@ define Punctuation [
 | [ {§} "[" "$." "]" ]: {§}
 | [ {¿} "[" "$." "]" ]: {¿}
 | [ {¡} "[" "$." "]" ]: {¡}
-| [ {-} "[" "$." "]" ]: {–}
+| [ {–} "[" "$." "]" ]: {–}
+| [ {-} "[" "$." "]" ]: {-}
 | [ {·} "[" "$." "]" ]: {·}
 ];