diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/lilypond-mode.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el index b389086858..fb53bb0358 100644 --- a/elisp/lilypond-mode.el +++ b/elisp/lilypond-mode.el @@ -1163,6 +1163,17 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous" (load-library "lilypond-font-lock") (load-library "lilypond-indent") + +(defun LilyPond-guile () + (interactive) + (require 'ilisp) + (guile "lilyguile" (LilyPond-command-expand (cadr (assoc "2Dvi" LilyPond-command-alist)) + (funcall 'LilyPond-master-file))) + (comint-default-send (ilisp-process) "(define-module (*anonymous-ly-1*))") + (comint-default-send (ilisp-process) "(set! %load-path (cons \"/usr/share/ilisp/\" %load-path))") + (comint-default-send (ilisp-process) "(use-modules (guile-user) (guile-ilisp))") + (comint-default-send (ilisp-process) "(newline)")) + (provide 'lilypond-mode) ;;; lilypond-mode.el ends here |