* SConstruct (symlink): Replace afm by otf.
2004-12-17 Jan Nieuwenhuizen <janneke@gnu.org>
+ * GNUmakefile.in:
+ * SConstruct (symlink): Replace afm by otf.
+
* scm/framework-gnome.scm (gnome-main): Remove invocation of
ly:pango-add-afm-decoder.
cd $(builddir)/share/$(package) && \
ln -s $(abs-srcdir)/ly ly && \
ln -s ../../mf/$(outconfbase) dvips && \
- ln -s ../../mf/$(outconfbase) afm && \
+ ln -s ../../mf/$(outconfbase) otf && \
ln -s ../../mf/$(outconfbase) tfm && \
ln -s $(abs-srcdir)/mf && \
ln -s $(abs-srcdir)/ps && \
ln -s ../../../mf/$(outconfbase) mf-out
cd $(builddir)/share/$(package)/fonts && \
ln -s $(abs-srcdir)/mf source && \
- ln -s ../../../mf/$(outconfbase) afm && \
+ ln -s ../../../mf/$(outconfbase) otf && \
ln -s ../../../mf/$(outconfbase) tfm && \
ln -s ../../../mf/$(outconfbase) type1
cd $(builddir)/share/$(package)/elisp && \
('scripts/', 'bin/lilypond-book'),
('mf', 'share/lilypond/dvips'),
('#ps', 'share/lilypond/tex/music-drawing-routines.ps'),
- ('mf', 'share/lilypond/afm'),
+ ('mf', 'share/lilypond/otf'),
('mf', 'share/lilypond/tfm'),
('#mf', 'share/lilypond/fonts/mf'),
- ('mf', 'share/lilypond/fonts/afm'),
+ ('mf', 'share/lilypond/fonts/otf'),
('mf', 'share/lilypond/fonts/tfm'),
('mf', 'share/lilypond/fonts/type1'),
('#tex', 'share/lilypond/tex/source'),
(string=? (substring family 0 (min (string-length family) 9))
"bigcheese"))))
+;; FIXME
(define-public (otf-name-mangling font family)
;; Hmm, family is bigcheese20/26?
(if (string=? (substring family 0 (min (string-length family) 9))
"bigcheese")
(string-append "LilyPond " (substring family 9))
- family))
+ (if (string=? family "aybabtu")
+ "LilyPondBraces"
+ family)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Wrappers from guile-gnome TLA
(define (fontify font expr)
(tagify "text" expr (cons 'style (svg-font font))))
+;; FIXME
(define-public (otf-name-mangling font family)
;; Hmm, family is bigcheese20/26?
(if (string=? (substring family 0 (min (string-length family) 9))
"bigcheese")
"LilyPond"
- family))
+ (if (string=? family "aybabtu")
+ "LilyPondBraces"
+ family)))
(define-public (otf-weight-mangling font family)
;; Hmm, family is bigcheese20/26?