Removed useless files, integrated packages.

* src/guile/skribilo/packages: New directory and files.

* bin: Removed.

* skr: Removed (files moved to `src/guile/skribilo/packages').

* skribe: Removed.

* doc/skr/env.skr (*courtes-mail*): New.

* doc/user/user.skb: Removed postal addresses, added my name.

* src/guile/skribilo/engine/lout.scm: Uncommented the slide-related
  markup writers.

* src/guile/skribilo/evaluator.scm (%evaluate): Try weird things with
  source properties.

* src/guile/skribilo/reader/skribe.scm: Comply with the new guile-reader
  API.

* src/guile/skribilo/types.scm: Removed the special `initialize' method
  for ASTs which was supposed to set their location.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-7

1 files changed, 0 insertions, 55 deletions

diff --git a/skribe/doc/user/src/prgm3.skb b/skribe/doc/user/src/prgm3.skb
deleted file mode 100644
index 51cb564..0000000
--- a/skribe/doc/user/src/prgm3.skb
+++ /dev/null
@@ -1,55 +0,0 @@
-(define (makefile-fontifier string)
-   (with-input-from-string string
-      (lambda ()
-	 (read/rp (regular-grammar ()
-		     ((: #\# (+ all))
-		      ;; makefile comment
-		      (let ((cmt (the-string)))
-			 (cons (it cmt) (ignore))))
-		     ((bol (: (+ (out " \t\n:")) #\:))
-		      ;; target
-		      (let ((prompt (the-string)))
-			 (cons (bold prompt) (ignore))))
-		     ((bol (: (+ alpha) #\=))
-		      ;; variable definitions
-		      (let* ((len (- (the-length) 1))
-			     (var (the-substring 0 len)))
-			 (cons (list (color :fg "#bb0000" (bold var)) "=")
-			       (ignore))))
-		     ((+ (out " \t\n:=$"))
-		      ;; plain strings
-		      (let ((str (the-string)))
-			 (cons str (ignore))))
-		     ((: #\$ #\( (+ (out " )\n")) #\))
-		      ;; variable references
-		      (let ((str (the-string))
-			    (var (the-substring 2 (- (the-length) 1))))
-			 (cons (underline str) (ignore))))
-		     ((+ (in " \t\n:"))
-		      ;; separators
-		      (let ((nl (the-string)))
-			 (cons nl (ignore))))
-		     (else
-		      ;; default
-		      (let ((c (the-failure)))
-			 (if (eof-object? c)
-			     '()
-			     (skribe-error 'makefile "Unexpected char" c)))))
-		  (current-input-port)))))
-
-(define makefile
-   (language :name "Makefile"
-	     :fontifier makefile-fontifier))
-	     
-(frame :width 100. 
-       (prog (source :language makefile [
-SKRIBE=skribe
-
-all: demo.html demo.man
-
-demo.html: demo.skb
-        $(SKRIBE) demo.skb -o demo.html
-
-demo.man: demo.skb
-        $(SKRIBE) demo.skb -o demo.man
-])))