From 1632b478a4414a47904dd169fc19d0d249133b3c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 13 Feb 2014 11:18:33 -0800 Subject: [PATCH] split hyphenation-patterns into patterns file and exceptions file --- hyphenate/exceptions.rkt | 7 +++++++ hyphenate/{hyphenation-patterns.rkt => patterns.rkt} | 6 +----- 2 files changed, 8 insertions(+), 5 deletions(-) create mode 100644 hyphenate/exceptions.rkt rename hyphenate/{hyphenation-patterns.rkt => patterns.rkt} (98%) diff --git a/hyphenate/exceptions.rkt b/hyphenate/exceptions.rkt new file mode 100644 index 00000000..6a7e6655 --- /dev/null +++ b/hyphenate/exceptions.rkt @@ -0,0 +1,7 @@ +#lang racket/base + +(provide default-exceptions) + +; Knuth and Liang's original exception patterns from classic TeX. +; In the public domain. +(define default-exceptions (map symbol->string '(as-so-ciate as-so-ciates dec-li-na-tion oblig-a-tory phil-an-thropic present presents project projects reci-procity re-cog-ni-zance ref-or-ma-tion ret-ri-bu-tion ta-ble))) diff --git a/hyphenate/hyphenation-patterns.rkt b/hyphenate/patterns.rkt similarity index 98% rename from hyphenate/hyphenation-patterns.rkt rename to hyphenate/patterns.rkt index ed2b0964..afc6e509 100644 --- a/hyphenate/hyphenation-patterns.rkt +++ b/hyphenate/patterns.rkt @@ -1,10 +1,6 @@ #lang racket/base -(provide default-exceptions default-patterns) - -; Knuth and Liang's original exception patterns from classic TeX. -; In the public domain. -(define default-exceptions (map symbol->string '(as-so-ciate as-so-ciates dec-li-na-tion oblig-a-tory phil-an-thropic present presents project projects reci-procity re-cog-ni-zance ref-or-ma-tion ret-ri-bu-tion ta-ble))) +(provide default-patterns) (define default-patterns ; Knuth and Liang's original hyphenation patterns from classic TeX.