\version "2.11.64"

#(define (letter-tablature-format str context event)
  (let*
      ((tuning (ly:context-property context 'stringTunings))
       (pitch (ly:event-property event 'pitch)))
    (make-whiteout-markup
     (make-vcenter-markup
      (string (integer->char
         (+ (char->integer #\a)
            (- (ly:pitch-semitones pitch)
            (list-ref tuning (- str 1))))))))))

noStem =    #(define-music-function (parser location) ()
       #{
         \override Voice.Stem #'transparent = ##t 
       #})
                    
rhythmStaffGlobal = {
      \stemUp
      \override Staff.TimeSignature #'transparent = ##t
      \override Staff.Clef #'transparent = ##t
%		\override Staff.StaffSymbol #'transparent = ##t
	  \override Staff.VerticalAxisGroup #'minimum-Y-extent = #'( 0 . -0 )
      \override Staff.StaffSymbol #'line-count = 0
      \override LedgerLineSpanner #'transparent = ##t
      \override Stem #'flag-style = #'mensural
      \override Stem #'thickness = #1.0
      \override NoteHead #'style = #'mensural
      \autoBeamOff
      \set fontSize = #5
}

rhythms = \relative c'' { 
  \rhythmStaffGlobal
  a4 a8 s8 a2 
}

tabGlobal = {
    \set TabStaff.stringTunings = #'(2 -3 -8 -12 -17 -22)
    \set TabStaff.tablatureFormat = #letter-tablature-format
    \override Beam #'transparent = ##t
    \override TabNoteHead #'font-size = #0
    \override TabNoteHead #'font-shape = #'italic
    \override TabNoteHead #'extra-offset = #'( 0.0 . 0.5 )
    \override Staff.Clef #'transparent = ##t
}

notes = \relative c {
  \stemUp \cadenzaOn \noStem \time 2/2 
  c4 d8 e <f, a c f>2
}

\score {
  <<
    \new Staff << 
      \rhythms
    >>
    \new TabStaff <<
      \tabGlobal \notes
    >>
  >>
}