how to avoid double sharps in \transpose?

[Kenneth Flak]

Hi list,

I have this:

\version "2.24.0"

\language english


patright = {
     <b d' g'>2 <c' e' g'> |
}

patleft = {
   g2 c
}

right = {
   \patright
   \transpose c df \patright
   \transpose c d \patright
   \transpose c ef \patright
   \transpose c e \patright
   \transpose c f \patright
   \transpose c fs \patright
   \transpose c g \patright
   \transpose c gs \patright
   \transpose c a \patright
   \transpose c bf \patright
   \transpose c b \patright
}

left = {
   \clef bass
   \patleft
   \transpose c df \patleft
   \transpose c d \patleft
   \transpose c ef \patleft
   \transpose c e \patleft
   \transpose c f \patleft
   \transpose c fs \patleft
   \transpose c g \patleft
   \transpose c gs \patleft
   \transpose c a \patleft
   \transpose c bf \patleft
   \transpose c b \patleft
}

\score {
   \new PianoStaff
   <<
     \new Staff = "right" \right
     \new Staff = "left" \left
   >>
}

It gives me a few instances of double sharps as well as some e sharps. How can 
I do that? Also, the programmer in me squeals upon seeing all these 
duplications, so I was curious how to reduce this to something a bit more 
sensible?

Best,
Kenneth

--
Roosna & Flak - Contemporary Dance & Music
Web: roosnaflak.com
Code: {github,gitlab}.com/kflak
Mastodon: @kf@sonomu.club