Re: 3.0 -- gnome backend

[Nicolas Sceaux]

> Han-Wen Nienhuys  <address@hidden> writes:

>> There is also some other good news: some of the dependencies for the
>> LilyPond GNOME backend have been released or are almost ready to be
>> released. This means that in a short while we will have "native"
>> point-and-click, without requiring TeX or DVI.

I have some troubles with it: feta fonts seem not to be found when
the gnome output is displayed, although I have done:
  $ ln -s ~/cvs/lilypond/mf/out ~/.fonts
  $ mkfontdir ~/.fonts
  $ xset +fp ~/.fonts
(It used to work some months ago)
Does someone think about an extra thing to do?

Besides that, point-and-click works fine.

when it's time to add a 2Gnome command in emacs LilyPond-mode, here is
a patch:

Index: elisp/lilypond-init.el
===================================================================
RCS file: /cvsroot/lilypond/lilypond/elisp/lilypond-init.el,v
retrieving revision 1.2
diff -u -r1.2 lilypond-init.el
--- elisp/lilypond-init.el      22 Mar 2004 22:21:54 -0000      1.2
+++ elisp/lilypond-init.el      19 Sep 2004 08:52:35 -0000
@@ -15,6 +15,6 @@
 ;(setq load-path (append (list (expand-file-name "~/site-lisp")) load-path))
 
 (autoload 'LilyPond-mode "lilypond-mode" "LilyPond Editing Mode" t)
-(add-to-list 'auto-mode-alist '("\\.ly$" . LilyPond-mode))
+(add-to-list 'auto-mode-alist '("\\.ly\\(inc\\)?$" . LilyPond-mode))
 (add-hook 'LilyPond-mode-hook (lambda () (turn-on-font-lock)))
 
Index: elisp/lilypond-mode.el
===================================================================
RCS file: /cvsroot/lilypond/lilypond/elisp/lilypond-mode.el,v
retrieving revision 1.11
diff -u -r1.11 lilypond-mode.el
--- elisp/lilypond-mode.el      10 Aug 2004 22:42:35 -0000      1.11
+++ elisp/lilypond-mode.el      19 Sep 2004 08:52:36 -0000
@@ -416,6 +416,7 @@
 
     ("2Dvi" . ("lilypond -f tex %s" "%s" "%d" "LaTeX"))
     ("2PS" . ("lilypond -f ps %s" "%s" "%p" "ViewPS"))
+    ("2Gnome" . ("lilypond -fgnome %s"))
     ("2Midi" . ("lilypond -m %s" "%s" "%m" "Midi"))
 
     ("Book" . ("lilypond-book %x" "%x" "%l" "LaTeX"))
@@ -557,6 +558,11 @@
   (LilyPond-command (LilyPond-command-menu "2PS") 'LilyPond-get-master-file)
 )
 
+(defun LilyPond-command-formatgnome ()
+  "Format the Gnome output of the current document."
+  (interactive)
+  (LilyPond-command (LilyPond-command-menu "2Gnome") 
'LilyPond-get-master-file))
+
 (defun LilyPond-command-formatmidi ()
   "Format the midi output of the current document."
   (interactive)
@@ -683,7 +689,7 @@
                            (while (LilyPond-running)
                              (message "Starts playing midi once it is built.")
                              (sit-for 0 100))))))
-             (if (member name (list "LilyPond" "TeX" "2Midi" "2PS" "2Dvi" 
+             (if (member name (list "LilyPond" "TeX" "2Midi" "2PS" "2Dvi" 
"2Gnome"
                                     "Book" "LaTeX"))
                  (if (setq jobs (LilyPond-running))
                      (progn
@@ -743,6 +749,7 @@
   (define-key LilyPond-mode-map "\C-cm" 'LilyPond-command-formatmidi)
   (define-key LilyPond-mode-map "\C-c\C-d" 'LilyPond-command-formatdvi)
   (define-key LilyPond-mode-map "\C-c\C-f" 'LilyPond-command-formatps)
+  (define-key LilyPond-mode-map "\C-c\C-g" 'LilyPond-command-formatgnome)
   (define-key LilyPond-mode-map "\C-c\C-s" 'LilyPond-command-smartview)
   (define-key LilyPond-mode-map "\C-c\C-v" 'LilyPond-command-view)
   (define-key LilyPond-mode-map "\C-c\C-p" 'LilyPond-command-viewps)
@@ -963,6 +970,7 @@
          '([ "TeX" (LilyPond-command (LilyPond-command-menu "TeX") 
'LilyPond-get-master-file) ])
          '([ "2Dvi" LilyPond-command-formatdvi t])
          '([ "2PS" LilyPond-command-formatps t])
+         '([ "2Gnome" LilyPond-command-formatgnome t])
          '([ "2Midi" LilyPond-command-formatmidi t])
          '([ "Book" (LilyPond-command (LilyPond-command-menu "Book") 
'LilyPond-get-master-file) ])
          '([ "LaTeX" (LilyPond-command (LilyPond-command-menu "LaTeX") 
'LilyPond-get-master-file) ])