如何在设置头中创建微妙的位置初始效果？

Question

我希望我的\section头部的第一个字符（我使用一种花哨的德文字体）位于（例如），\tfb而其余的位于\tfa。

我尝试添加\placeinitial样式，但这只会在 \section 之前创建一个非常大的（5-6 行）空格，没有任何好处。

是否有一个简单的方法可以实现这一点？

示例代码：

\definefontfamily[germanic][gothic][ltcgoudytextw01lombardcap]

\setuphead[section]      [style={\setupbodyfont[germanic]\tfc\placeinitial},number=no]

\setupinitial[color=black,font=ltcgoudytextw01lombardcap at 26pt,distance=1pt,n=1,location=text,]

\starttext
\section{Character}
\input knuth

But I want to achieve
\blank
\setupbodyfont[germanic]
{\tfd C}{\tfb haracter}
\setupbodyfont[modern]

\input knuth

\stoptext

Answer 1

嗯，这很复杂，但我找不到更好的解决方案......所以：您失去了以placeinitial允许的方式设置首字母的能力，但如果您确定只是希望第一个字符更大，那么就这样（我没有你的字体，所以我使用 pagella）：

\setupbodyfont [pagella, 12pt]

\def\doChapterTitle#1%
   {\ctxlua{userdata.chaptertitle([==[#1]==])}}

\startluacode
  userdata = userdata or { }

  function userdata.chaptertitle(s)
    local initial, rest = s:sub(1, 1), s:sub(2, -1)
    context.bgroup()
    context.switchtobodyfont( { "30pt" } )
    context(initial)
    context.egroup()
    context(rest)
  end
\stopluacode

\define[1]\MyChapterTitle%
  {\doChapterTitle{#1}}

\setuphead [chapter]
           [number=no,
            deeptextcommand=\MyChapterTitle]

\starttext

\startchapter [title={Character}]

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Cras tellus. 

\stopchapter

\stoptext

结果：