selnolig-english-patterns.sty

% !TeX root = selnolig.tex
% !TEX TS-program = lualatex

\ProvidesPackage{selnolig-english-patterns}%
[2019/08/01]

% 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

\if@noftligs  % suppress ft ligatures globally
    \nolig{ft}{f|t}
\else  % suppress ft ligatures selectively...
    \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
\fi % end of \if@noftligs conditional block

% (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 names that contain 'fk'
    \keeplig{Kafka}
    \keeplig{Safka}
    \keeplig{Potrafke}
    \keeplig{Sprafke}
    \keeplig{Shirafkan}
    \keeplig{Tirafkan}
    \keeplig{Rifkin}



% 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{elfink} % 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

\if@noftligs
\else % suppress some more ft ligatures selectively
    \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@noftligs conditional block

\fi % end of \if@broadfset conditional 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{aspidistra}{a|spidi|stra}
\nolig{Aspidistra}{Aspidi|stra}
\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
\nolig{astime}{as|time}
  % pastime

%%% dis-t... words
\nolig{distast}{dis|tast}
\nolig{Distast}{Dis|tast}
  % distasteful 
\nolig{distem}{dis|tem}
\nolig{Distem}{Dis|tem}
  % distemperate 
\nolig{disten}{dis|ten}
\nolig{Disten}{Dis|ten}
  % distended
\nolig{distor}{dis|tor}
\nolig{Distor}{Dis|tor}
  % distort distortion 
\nolig{distra[cu]}{dis|tra}
\nolig{Distra[cu]}{Dis|tra}
  % distract distraught
\nolig{distrib}{dis|trib}
\nolig{Distrib}{Dis|trib}
  % distribution 
\nolig{distrust}{dis|trust}
\nolig{Distrust}{Dis|trust}
  % distrust distrustful
\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{mistrain}{mis|train}
\nolig{Mistrain}{Mis|train}
  % mistrain
\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 

\nolig{Esth}{Es|th} % Esther

\nolig{stown}{s|town}
  % crosstown Williamstown


% (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{despot}{des|pot}
\nolig{Despot}{Des|pot}
  % despot despotic

\nolig{spresso}{s|presso}

  \nolig{despon}{de|spon} 
  \nolig{Despon}{De|spon}
  \nolig{despir}{de|spir}
  \nolig{Despir}{De|spir}
  \nolig{despoil}{de|spoil}
  \nolig{Despoil}{De|spoil}
  \nolig{sidesp}{side|sp} % sidespin, sidesplitting	
  \nolig{Sidesp}{Side|sp}
  \nolig{widesp}{wide|sp} % widespread
  \nolig{Widesp}{Wide|sp}
  \nolig{desprung}{Wide|sp} % gelandesprung

\nolig{dispa[rst]}{dis|pa}
\nolig{Dispa[rst]}{Dis|pa}
  % disparage disparaging dispart
  % dispassion dispatch
\nolig{dispel}{dis|pel}
\nolig{Dispel}{Dis|pel}
  % dispel
\nolig{dispen[ds]}{dis|pen}
\nolig{Dispen[ds]}{Dis|pe}
  % dispend dispense dispensation
\nolig{displa[cny]}{dis|pla}
\nolig{Displa[cny]}{Dis|pla}
  % display displant displace
\nolig{displea}{dis|plea}
\nolig{Displea}{Dis|plea}
  % displease displeasure
\nolig{displ[ou]}{dis|pl}
\nolig{Displ[ou]}{Dis|pl}
  % displode displume
\nolig{disp[ou]}{dis|p}
\nolig{Disp[ou]}{Dis|p}
  % disport dispose disposition 
  % dispossess dispute
\nolig{dispr[aio]}{dis|pr}
\nolig{Dispr[aio]}{Dis|pr}
  % dispraise disprize disproof 
  % disproportion disprove


\nolig{misp}{mis|p}
\nolig{Misp}{Mis|p}
  % misplace misperception misprint

\nolig{suspen}{sus|pen}
\nolig{Suspen}{Sus|pen}
  % suspend suspension 

\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{spiece}{s|piece}
  % crosspiece frontispiece

\nolig{ewsp[ae]}{ews|p}
  % newspaper newsprint

\nolig{Hyannisp}{Hyannis|p}
  % Hyannisport
\nolig{Keyesp}{Keyes|p}
  % Keyesport
\nolig{Williamsp}{Williams|p}
  % Williamsport

\nolig{assport}{ass|port} 
  % passport


% (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{thard}{t|hard}
  % Gotthard 
\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{posth}{post|h}
\nolig{Posth}{post|h}
  % postharvest
\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{asea}{a|sea}
  % asea
  \keeplig{casea}  % casease caseate
  \keeplig{Casea}
  \keeplig{haseal} % phaseal
\nolig{asplut}{a|splut}
  % asplutter
\nolig{eastran}{ea|stran}
  % seastrand
\nolig{aspor[ae]}{a|spor}
  % diaspora megaspore tetraspore
\nolig{asep[st]}{a|sep}
  % asepsis aseptic aseptically
\nolig{asophist}{a|sophist}
  % ultrasophisticated
\nolig{asound}{a|sound}
  % ultrasound
\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


% (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{antis[ace]}{anti|s}
\nolig{Antis[ace]}{Anti|s}
  % antisag antisatellite
  % antiscience 
  % antisecrecy antisense antiseptic
\nolig{antish[aio]}{anti|sh}
\nolig{Antish[aio]}{Anti|sh}
  % antishark antiship antishock
\nolig{antis[kl]}{anti|s}
\nolig{Antis[kl]}{Anti|s}
  % antiskid
  % antislavery antislip 
\nolig{antism[ou]}{anti|sm}
\nolig{Antism[ou]}{Anti|sm}
  % antismog antismoke 
  % antismuggling antismut
\nolig{antis[noptuy]}{anti|s}
\nolig{Antis[noptuy]}{Anti|s}
  % antisnob
  % antisocial antisolar
  % antispasmodic antispeculative
  % antistatic antistick antistress 
  % antisubmarine antisubversion 
  % antisymmetric antisyphilitics 

\nolig{multis[a-z]}{multi|s}
\nolig{Multis[a-z]}{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
  \keeplig{isphr} % misphrase misphrased ...

% (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
  \keeplig{eije}% Meijer



% 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, es, 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{espi[ct]}{e|spi}
  % despicable despite
%%% more rules to come...

\nolig{risp}{ri|sp}
  % crisp 
\nolig{ispani}{i|spani}
  % hispanic
\nolig{hispid}{hi|spid}
\nolig{Hispid}{Hi|spid}
  % hispid hispidulous
\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 

\nolig{Suspect}{Su|spect}
\nolig{suspect}{su|spect}
  % suspect suspects
\nolig{uspici}{u|spici}
  % suspicion suspicious

% (iii) at and et preceding th
% ............................

%% If you have 'at' and 'et' ligatures as
%% well as the 'th' ligature and want a
%% trailing 'th' ligature to take precedence 
%% over these ligs, use the following rules:

\nolig{ath}{a|th}
\nolig{eth}{e|th}

% The preceding rules are a bit too  
% broad as they also suppress the 'at' ligature
% for words such as boathook and flathead
% and the 'et' ligature in words such as
% Beethoven, prophethood, and sweetheart.
% Thus, also provide some \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 
\keeplig{eetheart} % sweetheart

\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} % :-)

\fi  %% end of \@ifhdligset