2015-04-28 9:48 GMT+02:00 Urs Liska <u...@openlilylib.org>: > > > Am 28.04.2015 um 09:38 schrieb Werner LEMBERG: > > Is there a function to retrieve the "font name" from a given file > name? It would be a viable approach if I could compare the result > of that request with the original font name. > > For TTFs and TTCs (either with TrueType outlines or embedded CFFs) you > can use `ly:ttf-ps-name'. > > > Thanks that seems to work perfectly. Try > > \version "2.19.19" > > fontExists = > #(define-void-function (parser location font-name)(string?) > (let* ((font-file (ly:font-config-get-font-file font-name)) > (reverse-font-name (ly:ttf-ps-name font-file)) > (font-exists (string=? font-name reverse-font-name))) > (ly:message (format "\nGiven font name: ~a" font-name)) > (ly:message (format "Determined font file: ~a" font-file)) > (ly:message (format "Actual font in that file: ~a" reverse-font-name)) > (ly:message (format "Given font is present: ~a" font-exists)))) > > \fontExists "Emmentaler-13" > \fontExists "Fancy-Font" >
For me this returns: Given font name: Emmentaler-13 Determined font file: /home/harm/.fonts/wds052801.ttf Actual font in that file: WaltDisneyScript Given font is present: #f Given font name: Fancy-Font Determined font file: /home/harm/.fonts/wds052801.ttf Actual font in that file: WaltDisneyScript Given font is present: #f Again, on an outdated Ubuntu. Cheers, Harm > > Looking into lilypond's code, however, I don't see why this shouldn't > work for Type1 fonts (or even pure CFFs) also. It's worth a try – and > if it works, we should provide an alias name for `ly:ttf-ps-name'. > > > I don't know how to proceed with this. > > However, in the context of my current patch I will add a variant of the > above function to font.scm. > > Urs > > Werner > > > > _______________________________________________ > lilypond-user mailing list > lilypond-user@gnu.org > https://lists.gnu.org/mailman/listinfo/lilypond-user > _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user