# HG changeset patch
# User Jan Nieuwenhuizen <janneke@gnu.org>
# Date 1297164834 -3600
# Node ID 5bab80dd593a8127aad6eb591e6064ee1436ece0
# Parent  371a49e82001e9d949608552704981bd456f3880
mingw::schikkers-list: --no-autocompile and install Emmentaler font.

diff -r 371a49e82001 -r 5bab80dd593a gub/specs/schikkers-list.py
--- a/gub/specs/schikkers-list.py	Tue Feb 08 12:32:52 2011 +0100
+++ b/gub/specs/schikkers-list.py	Tue Feb 08 12:33:54 2011 +0100
@@ -53,3 +53,6 @@
         Schikkers_list.install (self)
         self.system ('cd %(install_prefix)s/bin && rm -f ikli')
         self.system ('cd %(install_prefix)s/bin && mv schikkers-list schikkers-list.scm')
+        self.file_sub ([(' --debug ', ' --no-autocompile --debug '),
+                        ],
+                       '%(install_prefix)s/bin/schikkers-list.scm', must_succeed=True)
diff -r 371a49e82001 -r 5bab80dd593a nsis/schikkers-list.nsi
--- a/nsis/schikkers-list.nsi	Tue Feb 08 12:32:52 2011 +0100
+++ b/nsis/schikkers-list.nsi	Tue Feb 08 12:33:54 2011 +0100
@@ -1,5 +1,5 @@
 ;;;; schikkers-list.nsi -- Schikkers-List installer script for Microsoft Windows
-;;;; (c) 2005--2010
+;;;; (c) 2005--2011
 ;;;; Jan Nieuwenhuizen <janneke@gnu.org>
 ;;;; Han-Wen Nienhuys <janneke@gnu.org>
 ;;;; licence: GNU GPL
@@ -95,6 +95,7 @@
 
 	Call registry_installer
 	Call registry_path
+	Call postinstall_schikkers_list
 SectionEnd
 
 Function registry_path
@@ -348,3 +349,18 @@
 	WriteRegExpandStr HKCR "scm_auto_file\shell\open\command" "" '"$INSTDIR\usr\bin\guile-windows.exe" "%1" %2 %3 %4 %5 %6 %7 %8 %9'
 ;;scm_end:	
 FunctionEnd
+
+!include "FontName.nsh"
+!include "FontReg.nsh"
+
+Function postinstall_schikkers_list
+	CopyFiles /silent "$INSTDIR\usr\share\lilypond\current\fonts\otf\Emmentaler-20.otf" "$WINDIR\Fonts\Emmentaler-20.otf"
+	StrCpy $FONT_DIR "$WINDIR\Fonts"
+	!insertmacro InstallTTFFont "${ROOT}\usr\share\lilypond\current\fonts\otf\Emmentaler-20.otf"
+	ClearErrors
+FunctionEnd
+
+Function un.install_schikkers_list_ttf
+	Delete "$WINDIR\Fonts\Emmentaler-20.otf"
+	ClearErrors
+FunctionEnd