LilyPond自定义鼓组风格下实现单音符双奏法自动配置

现有配置 #

我在LilyPond中使用自定义鼓组风格，相关定义存储于类库性质的独立文件，内容如下：

#(define drum-style '(
  (crashchoked     xcircle         staccato     6)
  (crashaccent     xcircle         marcato      6)
))

drumPitchNames.cch = #'crashchoked
drumPitchNames.cac = #'crashaccent

主文件中通过以下代码应用该自定义风格：

drumStyleTable = #(alist->hash-table drum-style)

需求 #

希望无需手动添加，让指定鼓组音符自动附带两个叠放的奏法标记（例如portato在上、accent在下），预期效果为：打击乐谱表中多个音符同时显示上下叠放的两种奏法符号（上方为portato，下方为accent）。

内容的提问来源于stack exchange，提问作者Daniel