\version "2.14.2"

#(define-public (music-cause grob)
  (let* ((event (event-cause grob)))
    (if (ly:stream-event? event)
        (ly:event-property event 'music-cause)
        #f)))

   
#(define stick-tab-engraver
   (list
     (cons 'acknowledgers
       (list
         (cons 'note-head-interface
           (lambda (engraver grob source-engraver)
             (let* ((mus (music-cause grob))
                    ;; TODO: how do I get into this articulations list?
                    (articulations (ly:music-property mus 'articulations)))
               (display "Music: ")(display mus)(newline)
               (display "Articulations: ")(display articulations)(newline)
)))))))

\layout {
  \context {
    \Voice
    \remove "Fingering_engraver"
    \consists \stick-tab-engraver
  }
}

\relative c'' {
  c4-1\4 d-2\3 e-3 f-4
}