Added source location tracking to various packages.

* src/guile/skribilo/package/base.scm: Autoload `parameters'.
  (ref)[skribe-ref]: Use `search-path' and `*document-path*' instead of
  `find-file/path' and `skribe-path'.

  Initialize the `loc' field of markups.

* src/guile/skribilo/package/eq.scm: Likewise.

* src/guile/skribilo/package/pie.scm: Likewise.

* src/guile/skribilo/package/slide.scm: Likewise.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-39

1 files changed, 10 insertions, 2 deletions

diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm
index cbcae0b..cb5edda 100644
--- a/src/guile/skribilo/package/slide.scm
+++ b/src/guile/skribilo/package/slide.scm
@@ -1,7 +1,7 @@
 ;;; slide.scm  --  Overhead transparencies.
 ;;;
 ;;; Copyright 2003, 2004  Manuel Serrano
-;;; Copyright 2006  Ludovic Courtès <ludovic.courtes@laas.fr>
+;;; Copyright 2006, 2007  Ludovic Courtès <ludovic.courtes@laas.fr>
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -68,6 +68,7 @@
 			  (symbol->string (gensym "slide"))
 			  ident))
 	       (class class)
+               (loc   &invocation-location)
 	       (required-options '(:title :number :toc))
 	       (options `((:number
 			   ,(cond
@@ -145,6 +146,7 @@
 ;*---------------------------------------------------------------------*/
 (define-markup (slide-pause)
    (new markup
+      (loc    &invocation-location)
       (markup 'slide-pause)))
 
 ;*---------------------------------------------------------------------*/
@@ -153,6 +155,7 @@
 (define-markup (slide-vspace #!rest opt #!key (unit 'cm))
    (new markup
       (markup 'slide-vspace)
+      (loc &invocation-location)
       (options `((:unit ,unit) ,@(the-options opt :unit)))
       (body (the-body opt))))
 
@@ -174,7 +177,7 @@
 		     command)
        (new markup
 	  (markup 'slide-embed)
-	  (loc &skribe-eval-location)
+          (loc &invocation-location)
 	  (required-options '(:alt))
 	  (options `((:geometry-opt ,geometry-opt)
 		     (:alt ,alt)
@@ -191,6 +194,7 @@
 	  (markup 'slide-record)
 	  (ident ident)
 	  (class class)
+          (loc   &invocation-location)
 	  (options `((:play ,play) ,@(the-options opt)))
 	  (body (the-body opt)))))
 
@@ -204,6 +208,7 @@
 	  (markup 'slide-play)
 	  (ident ident)
 	  (class class)
+          (loc   &invocation-location)
 	  (options `((:color ,(if color (skribe-use-color! color) #f))
 		     ,@(the-options opt :color)))
 	  (body (the-body opt)))))
@@ -223,6 +228,7 @@
 	 (markup 'slide-play*)
 	 (ident ident)
 	 (class class)
+         (loc   &invocation-location)
 	 (options `((:color ,(if color (skribe-use-color! color) #f))
 		    (:scolor ,(if color (skribe-use-color! scolor) #f))
 		    ,@(the-options opt :color :scolor)))
@@ -250,6 +256,7 @@
       (required-options '(:title :outline?))
       (ident (or ident (symbol->string (gensym "slide-topic"))))
       (class class)
+      (loc   &invocation-location)
       (options `((:outline? ,outline?)
                  ,@(the-options opt :outline? :class)))
       (body (the-body opt))))
@@ -265,6 +272,7 @@
       (required-options '(:title :outline?))
       (ident (or ident (symbol->string (gensym "slide-subtopic"))))
       (class class)
+      (loc   &invocation-location)
       (options `((:outline? ,outline?)
                  ,@(the-options opt :outline? :class)))
       (body (the-body opt))))