--- scm/editor.scm 2007-09-19 14:50:18.000000000 +0200 +++ /home/wilbert/Desktop/editor.scm 2008-01-30 08:01:55.000000000 +0100 @@ -8,6 +8,7 @@ ;; Also for standalone use, so cannot include any lily modules. (use-modules + (ice-9 format) (ice-9 regex) (srfi srfi-13) (srfi srfi-14)) @@ -37,6 +38,7 @@ ("gedit" . "gedit +%(line)s %(file)s") ("jedit" . "jedit -reuseview %(file)s +line:%(line)s") ("syn" . "syn -line %(line)s -col %(char)s %(file)s") + ("kate" . "kate --use --line %(line-1)s --column %(column)s %(file)s") ("lilypad" . "lilypad +%(line)s:%(char)s %(file)s"))) (define (get-command-template alist editor) @@ -66,8 +68,9 @@ (command (re-sub "%\\(file\\)s" (format #f "~S" file-name) (re-sub "%\\(line\\)s" (format #f "~a" line) - (re-sub "%\\(char\\)s" (format #f "~a" char) - (re-sub - "%\\(column\\)s" (format #f "~a" column) - (slashify template))))))) + (re-sub "%\\(line-1\\)s" (format #f "~d" (- (string->number line) 1)) + (re-sub "%\\(char\\)s" (format #f "~a" char) + (re-sub + "%\\(column\\)s" (format #f "~a" column) + (slashify template)))))))) command))