diff options
author | Karl Berry <karl@freefriends.org> | 2013-05-28 00:15:30 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-05-28 00:15:30 +0000 |
commit | 1c6157c57b3a33d9b44027ccc44ef1e02f98d51c (patch) | |
tree | ac53f3e7e929f9120e3b8773c84dc5fd2d041e6d /Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty | |
parent | dbdbad08ea450f135cc574f9dc001088b0d042de (diff) |
selnolig
git-svn-id: svn://tug.org/texlive/trunk@30745 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty')
-rw-r--r-- | Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty | 1092 |
1 files changed, 1092 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty b/Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty new file mode 100644 index 00000000000..6d1ae6ebe50 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty @@ -0,0 +1,1092 @@ +% !TeX root = selnolig.tex +% !TEX TS-program = lualatex + +\ProvidesPackage{selnolig-english-patterns}% +[2013/05/25] + +% This entire package is placed under the +% terms of the LaTeX Project Public License, +% version 1.3 or later +% (http://www.latex-project.org/lppl.txt). +% It has the status "maintained". +% +% Author: Mico Loretan +% (loretan dot mico at gmail dot com) + + +% Part 1: "Basic" f-ligature patterns +% =================================== + +% (a) ff -> f-f + +\nolig{lfful}{lf|ful} + % shelfful bookshelffuls -- TeXBook, p. 19 + + +% (b) fi -> f-i + % no cases in 'basic' group + + +% (c) fl -> f-l + +\nolig{fless}{f|less} + % beefless leafless ... + % Also: cuffless stuffless + +\nolig{flike}{f|like} + % dwarflike elflike ... + % Also: rufflike clifflike + +\nolig{flife}{f|life} + % halflife shelflife + +\nolig{flive}{f|live} + % halflives shelflives + +\nolig{fline}{f|line} + % halfline roofline offline + +\nolig{eaflet}{eaf|let} + % leaflet(-s, -ed) leafleting + % leafletting leafletted + % leafleteer(s) + +\nolig{pdflatex}{pdf|latex} +\nolig{Pdflatex}{Pdf|latex} + % better, though, to write 'pdf\LaTeX' + +\nolig{otfload}{otf|load} + % for the 'luaotfload' package... + + +% (d) ffi -> ff-i + +\nolig{faffian}{faff|ian} + % Pfaffian + % (must avoid picking up 'affianced') + +\nolig{lffian}{lff|ian} + % Wolffian Wulffian + + +% (e) ffl -> ff-l + +\nolig{fflaw}{ff|law} + % scofflaw scofflaws + +\nolig{fflink}{ff|link} + % cufflink cufflinks + +\nolig{ffload}{ff|load} + % offload offloads offloaded + + +% (f) ffi -> f-fi + +\nolig{haffinch}{haf|finch} + % chaffinch(es) + +\nolig{lffish}{lf|fish} + % wolffish + + +% (g) ffl -> f-fl + +\nolig{afflower}{af|flower} + % safflower + + +% (h) ft -> f-t + +\nolig{ieftain}{ief|tain} +\nolig{alftime}{alf|time} +\nolig{alftone}{alf|tone} +\nolig{ooftop}{oof|top} +\nolig{ooftree}{oof|tree} + % chieftain halftime halftone + % rooftop rooftree + +\nolig{ifth}{if|th} + % fifth(s) +\nolig{elfth}{elf|th} + % twelfth(s) + +\nolig{lftr}{lf|tr} + % wolftrap calftrap + +\nolig{eaftr}{eaf|tr} + % leaftrap + +\nolig{fftr}{ff|tr} + % offtrack + + +% (i) fb, fh, fj, and fk ligatures + +% suppress these ligatures globally +\nolig{fb}{f|b} +\nolig{fh}{f|h} +\nolig{fj}{f|j} +\nolig{fk}{f|k} + +% But, make exceptions for fjord, fjell, etc + \keeplig{fjord} % Norwegian spelling + \keeplig{fjör} % Icelandic spelling, e.g., in + % Isafjördur and Ísafjörður + \keeplig{fjarð} % Ísafjarðarbær (in Iceland) + \keeplig{fjell} % Norwegian + \keeplig{fjall} % Swedish (?) + \keeplig{fjäll} + \keeplig{fjöll} + + \keeplig{Prokofjew} + \keeplig{Sufjan} % Stevens + \keeplig{Eefje} % Dutch first name + \keeplig{Astafjew} + % Author (Wiktor) and soccer player (Maksim) + +% Further exceptions for Kafka, Safka, etc. + \keeplig{Kafka} + \keeplig{Safka} + \keeplig{Potrafke} + \keeplig{Sprafke} + \keeplig{Shirafkan} + \keeplig{Tirafkan} + + + +% Part 2: Additional f-ligature suppression +% patterns if the 'broadf' option is set. +% ========================================= + +\if@broadfset + +% (a) ff -> f-f + % no cases in 'broad' group + + +% (b) fi -> f-i + +\nolig{elfin}{elf|in} +\nolig{Elfin}{Elf|in} + \keeplig{stelfink} % distelfink + + +% For words ending in -f-ing, allow for +% "colloquial" abbreviations (-f-in'). +\nolig{afing}{af|ing} +\nolig{afin'}{af|in'} + % chafing leafing loafing sheafing + % strafing vouchsafing + +\nolig{eefing}{eef|ing} +\nolig{eefin'}{eef|in'} +% beefing reefing + +\nolig{iefing}{ief|ing} +\nolig{iefin'}{ief|in'} +% briefing debriefing + +\nolig{ifing}{if|ing} +\nolig{ifin'}{if|in'} + % coifing fifing jackknifing knifing + % midwifing waifing wifing + +\nolig{oofing}{oof|ing} +\nolig{oofin'}{oof|in'} + % goofing hoofing roofing ... + +\nolig{lfing}{lf|ing} +\nolig{lfin'}{lf|in'} + % golfing rolfing selfing ... + +\nolig{rfing}{rf|ing} +\nolig{rfin'}{rf|in'} + % barfing bedwarfing dwarfing... + % kerfing enserfing ... + % (wind-) surfing turfing + \keeplig{tterfinger} % butterfinger + +\nolig{rfism}{rf|ism} + % dwarfism + +\nolig{rfist}{rf|ist} + % dwarfist + +\nolig{deafish}{deaf|ish} +\nolig{dwarfish}{dwarf|ish} +\nolig{elfish}{elf|ish} + % elfish selfish unselfish, etc. + \keeplig{amselfish} % damselfish + +\nolig{oafish}{oaf|ish} +\nolig{serfish}{serf|ish} +\nolig{wolfish}{wolf|ish} + +\nolig{Deafish}{Deaf|ish} +\nolig{Dwarfish}{Dwarf|ish} +\nolig{Elfish}{Elf|ish} +\nolig{Oafish}{Oaf|ish} +\nolig{Serfish}{Serf|ish} +\nolig{Wolfish}{Wolf|ish} + +\nolig{beefier}{beef|ier} +\nolig{comfier}{comf|ier} +\nolig{goofier}{goof|ier} +\nolig{gulfier}{gulf|ier} +\nolig{leafier}{leaf|ier} +\nolig{reefier}{reef|ier} +\nolig{surfier}{surf|ier} +\nolig{turfier}{turf|ier} + +\nolig{Beefier}{Beef|ier} +\nolig{Comfier}{Comf|ier} +\nolig{Goofier}{Goof|ier} +\nolig{Gulfier}{Gulf|ier} +\nolig{Leafier}{Leaf|ier} +\nolig{Reefier}{Reef|ier} +\nolig{Surfier}{Surf|ier} +\nolig{Turfier}{Turf|ier} + % (Mustn't perform 'fier -> f-ier' + % substitution because of words + % such as pacifier, reifier, etc.) + +\nolig{fiest}{f|iest} + \keeplig{fiesta} + % leafiest beefiest reefiest ... + +\nolig{fily}{f|ily} + % beefily goofily + % This rule also catches the + % ffily -> ff-ily case: + % daffily fluffily gruffily ... + +\nolig{oofiness}{oof|iness} + % goofiness + % (Mustn't do 'finess -> f-iness' + % substitution b/c of 'finesse') + + +% (c) fl -> f-l + +\nolig{aloofly}{aloof|ly} +\nolig{briefly}{brief|ly} +\nolig{chiefly}{chief|ly} +\nolig{deafly}{deaf|ly} +\nolig{liefly}{lief|ly} + +\nolig{Aloofly}{Aloof|ly} +\nolig{Briefly}{Brief|ly} +\nolig{Chiefly}{Chief|ly} +\nolig{Deafly}{Deaf|ly} +\nolig{Liefly}{Lief|ly} + % (Mustn't perform 'fly -> f-ly' subst. + % b/c of 'fly' 'butterfly' ...) + + +% (d) ffi -> ff-i + +\nolig{affish}{aff|ish} +\nolig{offish}{off|ish} +\nolig{iffish}{iff|ish} +\nolig{uffish}{uff|ish} + % draffish offish sniffish gruffish + +\nolig{ffing}{ff|ing} +\nolig{ffin'}{ff|in'} + % baffing biffing bluffing... + +\nolig{ffier}{ff|ier} + % buffier chaffier ... + +%\nolig{ffily}{ff|ily} + % Caught by 'fily -> f-ily' rule + +\nolig{ffiness}{ff|iness} + % fluffiness huffiness puffiness + +\nolig{ffies}{ff|ies} + % baffies biffies jiffies stuffies ... + % buffiest chaffiest ... + + +% (e) ffl -> ff-l + +\nolig{ffly}{ff|ly} + % bluffly gruffly ruffly ... + + +% (f) ffi -> f-fi + % nothing additional in 'broad' group + + +% (g) ffl -> f-fl + % nothing additional in 'broad' group + + +% (h) ft -> f-t + +\nolig{ifteen}{if|teen} + % fifteen fifteens fifteenth + +\nolig{fifti}{fif|ti} +\nolig{Fifti}{Fif|ti} + % fifties fiftieth fiftieths + +\nolig{fifty}{fif|ty} +\nolig{Fifty}{Fif|ty} + % fifty fiftyish + +\fi % end of \if@broadfset block + + + + +% Part 3: Discretionary ligatures crossing +% morpheme boundaries +% st, ct, sp, +% th, at, et, as, is, us, ta, ll, sk +% ---------------------------------------- + +\if@hdligset + +% (A) st -> s-t +% ------------- + +\nolig{osstalk}{oss|talk} + % crosstalk +\nolig{gstai}{gs|tai} + % dogstail +\nolig{nstak}{ns|tak} + % painstaker painstaking +\nolig{stight}{s|tight} + % gastight +\nolig{stooth}{s|tooth} + % houndstooth +\nolig{steeth}{s|teeth} + % houndsteeth + +%%% dis-t... words +\nolig{dista}{dis|ta} +\nolig{Dista}{Dis|ta} + % distant distasteful +\nolig{distem}{dis|tem} +\nolig{Distem}{Dis|tem} + % distemperate +\nolig{disten}{dis|ten} +\nolig{Disten}{Dis|ten} + % distended +\nolig{distil}{dis|til} +\nolig{Distil}{Dis|til} + % distil distillation +\nolig{distin}{dis|tin} +\nolig{Distin}{Dis|tin} + % distinct distinguish +\nolig{disto}{dis|to} +\nolig{Disto}{Dis|to} + % distort distortion +\nolig{distr}{dis|tr} +\nolig{Distr}{Dis|tr} + % distract distribution distrust +\nolig{distu}{dis|tu} +\nolig{Distu}{Dis|tu} + % disturb + +%%% mis-t... words +\nolig{mista}{mis|ta} +\nolig{Mista}{Mis|ta} + % mistake mistaken mistaught unmistakable +\nolig{mistea}{mis|tea} +\nolig{Mistea}{Mis|tea} + % misteach +\nolig{istend}{is|tend} + % mistend distend +\nolig{isterm}{is|term} + % misterm misterms +\nolig{isth}{is|th} + % misthink misthought misthrew misthrow + % isthmus calisthenic +\nolig{istime}{is|time} + % mistime mistimed +\nolig{istitl}{is|titl} + % mistitle +\nolig{istook}{is|took} + % mistook +\nolig{istouc}{is|touc} + % mistouch +\nolig{mistrac}{mis|trac} +\nolig{Mistrac}{Mis|trac} + % Mistrace +\nolig{mistran}{mis|tran} +\nolig{Mistran}{Mis|tran} + % Mistranscribe Mistranslate +\nolig{istrea}{is|trea} + % mistreat mistreatment +\nolig{mistru}{mis|tru} +\nolig{Mistru}{Mis|tru} + % mistrust mistruth +\nolig{istrys}{is|trys} + % mistryst +\nolig{mistu}{mis|tu} +\nolig{Mistu}{Mis|tu} + % mistune Mistutor +\nolig{istyp}{is|typ} + % mistype + +\nolig{aastricht}{aas|tricht} + % Maastricht + +\nolig{sthes}{s|thes} + % anaesthesia synesthesia prosthesis +\nolig{sthet}{s|thet} + % aesthetic esthetic unesthetic + % prosthetist + + +% (B) ct -> c-t +% ------------- + +\nolig{rctan}{rc|tan} + % arctangent +\nolig{rctat}{rc|tat} + % coarctation + +% (C) sp -> s-p +% ------------- + +\nolig{othesp}{othes|p} + % clothespin clothespress +\nolig{speople}{s|people} + % business- congress- crafts- + % dis- news- sales- spokes- + % towns- trades- tribes- people +\nolig{sperson}{s|person} + % business- congress- crafts- drafts- + % news- sales- spokes- person +\nolig{espas}{es|pas} + % trespass trespassing +\nolig{isplat}{is|plat} + % cisplatin (cis-platin, not cisp-latin!) + +\nolig{desp}{des|p} +\nolig{Desp}{Des|p} + % despair desperado despot desperate + \keeplig{despond} % despondency despondent + \keeplig{Despond} + \keeplig{despirit} + \keeplig{Despirit} + \keeplig{despoil} + \keeplig{Despoil} + \keeplig{sidesp} % sidespin, sidesplitting + \keeplig{Sidesp} + \keeplig{widesp} % widespread + \keeplig{Widesp} + \keeplig{desprung} % gelandesprung + +\nolig{disp}{dis|p} +\nolig{Disp}{Dis|p} + % disparage disparaging ... + +\nolig{misp}{mis|p} +\nolig{Misp}{Mis|p} + % misplace misperception misprint + +\nolig{susp}{sus|p} +\nolig{Susp}{Sus|p} + % suspend suspension suspicious +\nolig{sph}{s|ph} % 'ph' from Greek 'phi'! + % atmosphere biosphere hemisphere + % spherical asphodel phosphorous phosphate + % blaspheme blasphemy + +\nolig{ranspa}{rans|pa} + % transparent transpacific +\nolig{ranspe}{rans|pe} + % transpersonal +\nolig{ranspie}{rans|pie} + % transpierce +\nolig{ranspl}{rans|pl} + % transplant +\nolig{ranspol}{rans|pol} + % transpolar +\nolig{ranspor}{rans|por} + % transport transportation +\nolig{ranspos}{rans|pos} + % transpose transposon + +\nolig{risprud}{ris|prud} + % jurisprudence +\nolig{spiec}{s|piec} + % crosspiece frontispiece + +\nolig{ewspa}{ews|pa} + % newspaper +\nolig{ewspr}{ews|pr} + % newsprint + % Don't suppress sp lig in "newspeak"! + + +% (D) th -> t-h +% ------------- + +\nolig{eethov}{eet|hov} + % Beethoven +\nolig{thook}{t|hook} + % boathook meathook pothook +\nolig{thouse}{t|house} + % boathouse cathouse courthouse ... +\nolig{othol}{ot|hol} + % foothold knothole potholder ... +\nolig{lthol}{lt|hol} + % bolthole +\nolig{sthol}{st|hol} + % posthole pesthole +\nolig{rathol}{rat|hol} +\nolig{Rathol}{Rat|hol} + % rathole +\nolig{arthog}{art|hog} + % warthog +\nolig{stha}{st|ha} + % firsthand postharvest posthaste +\nolig{thawk}{t|hawk} + % nighthawk +\nolig{horth}{hort|h} + % shorthair shorthand shorthorn +\nolig{arthei}{art|hei} + % apartheid antiapartheid +\nolig{thead}{t|head} + % bolthead cathead fathead ... +\nolig{therd}{t|herd} + % goatherd neatherd +\nolig{theap}{t|heap} + % dustheap +\nolig{theart}{t|heart} + % fainthearted sweetheart ... +\nolig{uthear}{ut|hear} + % outhear outheard +\nolig{thill}{t|hill} + % anthill foothill +\nolig{thood}{t|hood} + % adulthood knighthood ... +\nolig{thunt}{t|hunt} + % pothunt outhunt +\nolig{orthol}{ort|hol} + % porthole +\nolig{sthum}{st|hum} + % posthumous +\nolig{uthau}{ut|hau} + % outhaul +\nolig{uthit}{ut|hit} + % outhit +\nolig{uthom}{ut|hom} + % outhomer +\nolig{uthow}{ut|how} + % outhowl +\nolig{uthum}{ut|hum} + % outhumor +\nolig{uthust}{ut|hust} + % outhustle +\nolig{tthour}{tt|hour} + % watthour kilowatthour +\nolig{sthm}{s|thm} + % asthma isthmus + +% (E) at -> a-t +% ------------- + +\nolig{lbatr}{lba|tr} + % albatross +\nolig{atroop}{a|troop} + % paratrooper +\nolig{eatra}{ea|tra} + % seatrain seatransport + +% (F) et -> e-t +% ------------- + +\nolig{ninet}{nine|t} +\nolig{Ninet}{Nine|t} + % ninetieth ninetieths ninety nineteen nineties + +\nolig{ametag}{ame|tag} + % nametag +\nolig{betat}{be|tat} +\nolig{Betat}{Be|tat} + % betatter beta +\nolig{betr}{be|tr} +\nolig{Betr}{Be|tr} + % betray betroth + +\nolig{deta}{de|ta} + % detach detain detail +\nolig{etect}{e|tect} + % detect undetectable detective +\nolig{detent}{de|tent} +\nolig{Detent}{De|tent} + % detent detention +\nolig{detest}{de|test} +\nolig{Detest}{De|test} + % detest +\nolig{detr}{de|tr} +\nolig{Detr}{De|tr} + % detract detrain detriment detritus + +\nolig{etail}{e|tail} + % bristletail detail dovetail horsetail +\nolig{etah}{e|tah} + % cheetah chetah +\nolig{etak}{e|tak} + % betake retake caretaker +\nolig{etax}{e|tax} + % betax +\nolig{eteach}{e|teach} + % reteach +\nolig{etell}{e|tell} + % foretell fortunetelling +\nolig{eterg}{e|terg} + % detergent +\nolig{eterio}{e|terio} + % deteriorate +\nolig{eterm}{e|term} + % determent determinant preterm +\nolig{etext}{e|text} + % pretext retext teletext +\nolig{ethink}{e|think} + % freethinking +\nolig{ethrow}{e|throw} + % freethrow +\nolig{etick}{e|tick} + % bluetick detick +\nolig{etide}{e|tide} + % betide yuletide +\nolig{etigh}{e|tigh} + % retighten +\nolig{etime}{e|time} + % betime lifetime peacetime sometime +\nolig{eetop}{ee|top} + % treetop +\nolig{etrain}{e|train} + % detrain drivetrain housetrain retrain +\nolig{etrap}{e|trap} + % firetrap livetrap mousetrap +\nolig{etree}{e|tree} + % axletree saddletree shoetree + +\nolig{foret}{fore|t} +\nolig{Foret}{Fore|t} + % foretaste foretell foretold foretime + % foretoken foretop foretopman +\nolig{imetable}{ime|table} + % timetable + +\nolig{reteen}{re|teen} + % preteen +\nolig{retend}{re|tend} + % pretend +\nolig{retenc}{re|tenc} + % pretence +\nolig{retens}{re|tens} + % pretense pretension +\nolig{retent}{re|tent} +\nolig{Retent}{Re|tent} + % pretentious retention retentive +\nolig{retest}{re|test} +\nolig{Retest}{Re|test} + % pretest retest + +\nolig{reta}{re|ta} +\nolig{Reta}{Re|ta} + % retag retape retake + % foretaste caretaker + % pretaste pretape pretaxretain + % retain retake retaliate retard + % retarget retaste wiretap + \keeplig{pretable} % interpretable + \keeplig{cretar} % secretary + +\nolig{reteam}{re|team} +\nolig{Reteam}{Re|team} + % reteam reteamed reteaming reteams +\nolig{retear}{re|tear} +\nolig{Retear}{Re|tear} + % retear retears +\nolig{retemp}{re|temp} +\nolig{Retemp}{Re|temp} + % retemper retempering + +\nolig{retie}{re|tie} +\nolig{Retie}{Re|tie} + % retie entireties sureties +\nolig{retil}{re|til} +\nolig{Retil}{Re|til} + % retile +\nolig{retim}{re|tim} +\nolig{Retim}{Re|tim} + % retime beforetime +\nolig{retint}{re|tint} +\nolig{Retint}{Re|tint} + % retint +\nolig{retir}{re|tir} +\nolig{Retir}{Re|tir} + % retire retiring +\nolig{retitl}{re|titl} +\nolig{Retitl}{Re|titl} + % retitle pretitling + +\nolig{retold}{re|told} +\nolig{Retold}{Re|told} + % retold +\nolig{retoo}{re|too} +\nolig{Retoo}{Re|too} + % retook retool +\nolig{retor}{re|tor} +\nolig{Retor}{Re|tor} + % retore retorn retort retorted +\nolig{retou}{re|tou} +\nolig{Retou}{Re|tou} + % retouch retouched +\nolig{retra}{re|tra} +\nolig{Retra}{Re|tra} + % retrace retrack retract retrans retransmit +\nolig{retre}{re|tre} +\nolig{Retre}{Re|tre} + % pretreat retread retreat retrench +\nolig{retri}{re|tri} +\nolig{Retri}{Re|tri} + % pretrim pretrial retrieve retribution + % retries retrim +\nolig{etrors}{e|trors} + % retrorse +\nolig{retrous}{re|trous} +\nolig{Retrous}{Re|trous} + % retrousse +\nolig{retry}{re|try} +\nolig{Retry}{Re|try} + % retry retrying + +\nolig{retu}{re|tu} +\nolig{Retu}{Re|tu} + % return retune unreturnable +\nolig{retwi}{re|twi} +\nolig{Retwi}{Re|twi} + % retwist retwisting + +\nolig{etooth}{e|tooth} + % bluetooth eyetooth snaggletoothed +\nolig{eteeth}{e|teeth} + % snaggleteeth eyeteeth + +\nolig{deter}{de|ter} +\nolig{Deter}{De|ter} + % deter determine deteriorate undeterred + +\nolig{ceties}{ce|ties} + % niceties +\nolig{cety}{ce|ty} + % nicety + +\nolig{feties}{fe|ties} + % safeties unsafeties biosafeties +\nolig{fety}{fe|ty} + % safety + +\nolig{leties}{le|ties} + % subtleties +\nolig{lety}{le|ty} + % subtlety teletype teletypewriter + +\nolig{rety}{re|ty} + % surety entirety retype pretype + +\nolig{etelev}{e|telev} + % pretelevision +\nolig{etyp}{e|typ} + % archetype archetypal retype pretype + +% (G) as -> a-s +% ------------- + +\nolig{eastran}{ea|stran} + % seastrand +\nolig{aspore}{a|spore} + % diaspora megaspore tetraspore +\nolig{aseps}{a|seps} + % asepsis +\nolig{asept}{a|sept} + % aseptic aseptically +\nolig{asund}{a|sund} +\nolig{Asund}{A|sund} + % asunder +\nolig{aspec}{a|spec} +\nolig{Aspec}{A|spec} + % aspect infraspecific intraspecies + % intraspecific +\nolig{infras}{infra|s} +\nolig{Infras}{Infra|s} + % infrastructure infraspecific +\nolig{megast}{mega|st} +\nolig{Megast}{Mega|st} + % megastructure megastar +\nolig{megasp}{mega|sp} +\nolig{Megasp}{Mega|sp} + % megaspores megascopic +\nolig{aspoon}{a|spoon} + % teaspoon + +% how to do 'asea'? + +% (H) is -> i-s +% ------------- + +% (a) not across morpheme boundaries +% (The following may be a bug in fontspec) + +\nolig{fish}{fi|sh} +\nolig{fist}{fi|st} +\nolig{Fist}{Fi|st} + +% (b) across morpheme boundaries + +%% Mustn't do global \nolig{antis}{anti|s} +%% because of words such as sycophantism, +%% vigilantism, and mantissa. + +\nolig{antisa}{anti|sa} +\nolig{Antisa}{Anti|sa} + % antisag antisatellite +\nolig{antisc}{anti|sc} +\nolig{Antisc}{Anti|sc} + % antiscience +\nolig{antise}{anti|se} +\nolig{Antise}{Anti|se} + % antisecrecy antisense antiseptic +\nolig{antisha}{anti|sha} +\nolig{Antisha}{Anti|sha} + % antishark antiship antishock +\nolig{antishi}{anti|shi} +\nolig{Antishi}{Anti|shi} + % antishark antiship antishock +\nolig{antisho}{anti|sh} +\nolig{Antisho}{Anti|sh} + % antishark antiship antishock +\nolig{antisk}{anti|sk} +\nolig{Antisk}{Anti|sk} + % antiskid +\nolig{antisl}{anti|sl} +\nolig{Antisl}{Anti|sl} + % antislavery antislip +\nolig{antismo}{anti|smo} +\nolig{Antismo}{Anti|smo} + % antismog antismoke +\nolig{antismu}{anti|smu} +\nolig{Antismu}{Anti|smu} + % antismuggling antismut +\nolig{antisn}{anti|sn} +\nolig{Antisn}{Anti|sn} + % antisnob +\nolig{antiso}{anti|so} +\nolig{Antiso}{Anti|so} + % antisocial antisolar +\nolig{antisp}{anti|sp} +\nolig{Antisp}{Anti|sp} + % antispasmodic antispeculative +\nolig{antist}{anti|st} +\nolig{Antist}{Anti|st} + % antistatic antistick antistress +\nolig{antisu}{anti|su} +\nolig{Antisu}{Anti|su} + % antisubmarine antisubversion +\nolig{antisy}{anti|sy} +\nolig{Antisy}{Anti|sy} + % antisymmetric antisyphilitics + +\nolig{multis}{multi|s} +\nolig{Multis}{Multi|s} + % multiscreen multisense multisensory + % multiservice multisided multisite + % multisize multiskilled multisource + % multispecies multispectral multispeed + % multisport multistage multistate + % multistemmed multistep multistoried + % multistory multistranded multisyllabic + % multisystem + +\nolig{isph}{i|sph} + % hemisphere planisphere hemispheric + +% (I) us -> u-s +% ------------- + +% %% (no examples yet) + + +% (J) sk -> s-k +% (available in EB Garamond font) +% ------------------------------- + +\nolig{skeep}{s|keep} + % greenskeeper groundskeeper miskeep +\nolig{iskai}{is|kai} + % triskaidekaphobia +\nolig{thsk}{ths|k} + % rathskeller +\nolig{misk}{mis|k} +\nolig{Misk}{Mis|k} + % miskeep miskept miskick misknow +\nolig{atskill}{ats|kill} + % Catskills Mountains, Catskill Park +\nolig{eekskill}{eeks|kill} + % Peekskill % a town on the Hudson River + + +% (K) ll -> l-l +% ------------- + +\nolig{llike}{l|like} + % animallike soullike +\nolig{lless}{l|less} + % soulless tailless + +% (L) fr -> f-r +% ------------- + +\nolig{oofr}{oof|r} + % proofread proofroom proofrock + + +% (M) ij -> i-j +% ------------- + +% The 'ij' ligature seems to have no good +% use in English-language words -- incl. +% words introduced to English from other +% languages, such as marijuana, gaijin, and +% bijou; the 'ij' ligature seems to span +% morpheme boundaries in all of these cases. +% Hence, we disable this ligature globally. +% We do make exceptions for words of Dutch +% origin, where the ij ligature does have +% legitimate uses. + +\nolig{ij}{i|j} + \keeplig{ijs} % rijsttafel (Indonesian dish) + \keeplig{ijn} % de Bruijn + + + +% Part 4: Disabling one discretionary +% ligature so that a subsequent, more +% important one doesn't get pre-empted +% ------------------------------------ + +% (i) as, is, and us preceding st +% ............................... + +\nolig{ast}{a|st} +\nolig{ust}{u|st} +\nolig{ist}{i|st} + +% (ii) as, is, and us preceding sp +% .................--............. + +\nolig{aspar}{a|spar} +\nolig{Aspar}{A|spar} + % asparagus Caspar aspartame asparkle +\nolig{asper}{a|sper} +\nolig{Asper}{A|sper} + % aspersion Casper Jasper exasperate +\nolig{aspir}{a|spir} +\nolig{Aspir}{A|spir} + % aspire aspirator aspirin +\nolig{gasp}{ga|sp} +\nolig{Gasp}{Ga|sp} + % gasp +\nolig{hasp}{ha|sp} +\nolig{Hasp}{Ha|sp} + % hasp +\nolig{lasp}{la|sp} + % clasp unclasp beclasp enclasp +\nolig{rasp}{ra|sp} +\nolig{Rasp}{Ra|sp} + % grasp rasp raspberry +\nolig{wasp}{wa|sp} +\nolig{Wasp}{Wa|sp} + % wasp waspish + +\nolig{risp}{ri|sp} + % crisp +\nolig{ispani}{i|spani} + % hispanic +\nolig{lisp}{li|sp} +\nolig{Lisp}{Li|sp} + % lisp lisping +\nolig{whisp}{whi|sp} +\nolig{Whisp}{Whi|sp} + % whisper +\nolig{wisp}{wi|sp} +\nolig{Wisp}{Wi|sp} + % wisp + +\nolig{cusp}{cu|sp} +\nolig{Cusp}{Cu|sp} + % cusp bicuspid tricuspid +\nolig{ausp}{au|sp} +\nolig{Ausp}{Au|sp} + % auspicious inauspicious + +% (iii) at and et preceding th +% ............................ + +%% If you have 'at' and 'et' ligatures as +%% well as the 'th' ligature (as is the +%% case for the font "Garamond Premier Pro", +%% and any other fonts?!) and want a +%% trailing 'th' ligature to take precedence +%% over any preceding 'at' or 'et' ligas, +%% make sure the following macros are +%% active (i.e., not commented out). + +\nolig{ath}{a|th} +\nolig{eth}{e|th} + + +% The preceding instructions are a bit too +% broad, as they also suppress the 'at' ligature +% for words such as boathook, flathead, +% etc., and the 'et' ligature in words such as +% Beethoven, prophethood, and sweetheart. +% To address these cases, we provide \keeplig +% macros: + +\keeplig{oathook} % boathook +\keeplig{eathook} % meathook +\keeplig{athouse} % bathouse boathouse cathouse +%%\keeplig{rathole} % this will re-enable "th" liga +%%\keeplig{Rathole} % if "at" liga doesn't exist... +\keeplig{athead} % cathead fathead flathead meathead +\keeplig{atherd} % goatherd neatherd +\keeplig{eatheart} % greathearted sweetheart +\keeplig{eetheart} + +\keeplig{Beethoven} +\keeplig{ophethood} + + +% (iv) at and et preceding ta +% ........................... + +\nolig{atap}{a|tap} + \keeplig{catap} % catapult cataphoresis + \keeplig{Catap} + \keeplig{ratap} % rataplan + \keeplig{Ratap} + + +\nolig{Loretan}{Lore|tan} % :-) + +% All other cases seem to involve 'at' +% or 'et' crossing a ligature boundary. +% As such, these cases should be dealt +% with in Part 3 of this file. + +\fi %% end of \@ifhdligset |