mbutterick
/
pollen
3
3
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

hard-code hyphenation exclusions because passing an exclusion lambda doesn't work for some reason

Browse Source
pull/9/head
Matthew Butterick 11 years ago
parent b958879786
commit 9ac8a3d896
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File

3
hyphenate.rkt
Unescape Escape View File

@ -119,6 +119,7 @@
(define (hyphenate x #:only [only-proc (ƒ(x) x)]) ; recursively hyphenate strings within xexpr (define (hyphenate x #:only [only-proc (ƒ(x) x)]) ; recursively hyphenate strings within xexpr
(define exclusions '(style script)) ; omit these from ever being hyphenated (define exclusions '(style script)) ; omit these from ever being hyphenated
(define inclusions '(p aside))
(define (capitalized-or-ligated? word) (define (capitalized-or-ligated? word)
; filter function for hyphenate ; filter function for hyphenate
; filtering ligatable words because once the soft hyphens go in, ; filtering ligatable words because once the soft hyphens go in,
@ -135,7 +136,7 @@
; Won't it make hyphenation naturally overinclusive? ; Won't it make hyphenation naturally overinclusive?
; Problem with opt-in: conceals a lot of tags that naturally live inside other tags ; Problem with opt-in: conceals a lot of tags that naturally live inside other tags
; only reaches text at the "root level" of the tag. ; only reaches text at the "root level" of the tag.
[(named-xexpr? x) (if (and (only-proc x) (not (in? exclusions (car x)))) [(named-xexpr? x) (if (and (in? inclusions (car x)) (not (in? exclusions (car x))))
(map-xexpr-content hyphenate x) (map-xexpr-content hyphenate x)
(map-xexpr-content hyphenate x #:only named-xexpr?))] ; only process subxexprs (map-xexpr-content hyphenate x #:only named-xexpr?))] ; only process subxexprs

Write Preview
Loading…
Cancel
Save