From 1a2cc8579e1d1982f5194b276e0b92f2b68adb5c Mon Sep 17 00:00:00 2001
From: Philipp Gesang <megas.kapaneus@gmail.com>
Date: Thu, 17 Mar 2011 11:41:20 +0100
Subject: removed random space from command

---
 letterspace.tex    | 16 +++++++++-------
 t-letterspace.mkiv |  4 +---
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/letterspace.tex b/letterspace.tex
index c874b0b..df70922 100644
--- a/letterspace.tex
+++ b/letterspace.tex
@@ -4,24 +4,28 @@
 \setupletterspace  [largecaps] [
   spacefactor=.2,
   spaceskip=.3em,
+  suppresskern=yes,
 ]
 
 \defineletterspace [mediumcaps]
 \setupletterspace  [mediumcaps] [
   spacefactor=.25,
   spaceskip=.5em,
+  suppresskern=yes,
 ]
 
 \defineletterspace [smallcaps]
 \setupletterspace  [smallcaps] [
   spacefactor=.05,
   spaceskip=.25em,
+  suppresskern=no,
 ]
 
 \defineletterspace [textemph]
 \setupletterspace  [textemph] [
   spacefactor=.125,
   spaceskip=.33em,
+  suppresskern=no,
 ]
 
 \let\te\textemph
@@ -31,6 +35,7 @@
 \setupletterspace  [ugly] [
   spacefactor=.4,
   spaceskip=1em,
+  suppresskern=no,
 ]
 
 
@@ -48,9 +53,6 @@
   liga=yes,
 ]
 
-\definefontfeature [nokerning] [kern=no,liga=no,dlig=no]
-
-
 \usetypescript [antykwa-poltawskiego]
 \setupbodyfont [antykwa-poltawskiego,10pt]
 
@@ -173,9 +175,9 @@
 \setupletterspace  [LSsection]    [spacefactor=.15, spaceskip=.40em]
 \setupletterspace  [LSsubsection] [spacefactor=.125,spaceskip=.33em]
 
-\def   \fontchapter#1{\setupbodyfont[11pt]\setfontfeature{nokerning}\WORD\LSchapter{#1}}
-\def   \fontsection#1{\setupbodyfont[11pt]\setfontfeature{nokerning}\word\sc\LSsection{#1}}
-\def\fontsubsection#1{\setupbodyfont[11pt]\setfontfeature{nokerning}\LSsubsection{#1}}
+\def   \fontchapter#1{\setupbodyfont[11pt]\WORD\LSchapter{#1}}
+\def   \fontsection#1{\setupbodyfont[11pt]\word\sc\LSsection{#1}}
+\def\fontsubsection#1{\setupbodyfont[11pt]\LSsubsection{#1}}
 
 \def   \Chapterheadfontcmd{\fontchapter}
 \def   \Sectionheadfontcmd{\fontsection}
@@ -386,7 +388,7 @@
   \vfill
   {\tfc\italic The}\par
   \vfill
-  {\tfd\WORD\setfontfeature{nokerning}\largecaps{Letterspace Module}}\par
+  {\tfd\WORD\largecaps{Letterspace Module}}\par
   \vfill
   {\tfc\italic for {\CONTEXT} MkIV}\par
   \vfill
diff --git a/t-letterspace.mkiv b/t-letterspace.mkiv
index 509e4aa..0cdc7ac 100644
--- a/t-letterspace.mkiv
+++ b/t-letterspace.mkiv
@@ -79,10 +79,8 @@
     \advance \spaceskip  \letterspaceparameter{spaceskip}%
     \advance \xspaceskip \letterspaceparameter{spaceskip}%
     \doifinset{\letterspaceparameter{suppresskern}}{\letterspace_truevalues}{%
-      %\addfontfeaturetofont{letterspace:nokern}%
-      %\setff{letterspace:nokern}%
       \subtractfontfeaturefromfont{letterspace:kerning}%
-    }
+    }%
   }%
   \ifhmode\ifnum\lastnodetype=\@@gluenode
       \unskip{\letterspace_setstuff\ }%
-- 
cgit v1.2.3