summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/lualatex/selnolig/selnolig-english-patterns.sty
diff options
context:
space:
mode:
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.sty1092
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