!#
;;;; lilypond-invoke-editor.scm -- Invoke an editor in file:line:column mode
-;;;; Copyright (C) 2005--2010 Jan Nieuwenhuizen <janneke@gnu.org>
+;;;; Copyright (C) 2005--2014 Jan Nieuwenhuizen <janneke@gnu.org>
;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
(format #f "~a/share/lilypond/~a"
prefix TOPLEVEL-VERSION))))
-
-
-;; gettext wrapper for guile < 1.7.2
-(if (defined? 'gettext)
- (define-public _ gettext)
- (define-public (_ x) x))
+(define-public _ gettext)
(define (show-version port)
(format port "~a (GNU LilyPond) ~a\n" PROGRAM-NAME TOPLEVEL-VERSION))
uri))
(define (is-textedit-uri? uri)
- (string-match "^textedit://" uri))
+ (string-match "^textedit:" uri))
(define (dissect-uri uri)
(define (run-browser uri)
(system
(if (getenv "BROWSER")
- (format "~a ~a" (getenv "BROWSER") uri)
+ (format #f "~a ~a" (getenv "BROWSER") uri)
(format #f "firefox -remote 'OpenURL(~a,new-tab)'" uri))))