From e9509518623d016880392237a298d4561a3b6a0b Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Mon, 31 Oct 2005 16:03:18 +0000
Subject: 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
---
 skribe/examples/slide/skr/local.skr | 73 -------------------------------------
 1 file changed, 73 deletions(-)
 delete mode 100644 skribe/examples/slide/skr/local.skr

(limited to 'skribe/examples/slide/skr')

diff --git a/skribe/examples/slide/skr/local.skr b/skribe/examples/slide/skr/local.skr
deleted file mode 100644
index 2802a53..0000000
--- a/skribe/examples/slide/skr/local.skr
+++ /dev/null
@@ -1,73 +0,0 @@
-;*=====================================================================*/
-;*    serrano/prgm/project/skribe/examples/slide/skr/local.skr         */
-;*    -------------------------------------------------------------    */
-;*    Author      :  Manuel Serrano                                    */
-;*    Creation    :  Mon Jun  3 15:32:25 2002                          */
-;*    Last change :  Wed Oct  8 16:22:42 2003 (serrano)                */
-;*    Copyright   :  2002-03 Manuel Serrano                            */
-;*    -------------------------------------------------------------    */
-;*    The local style of the presentation                              */
-;*=====================================================================*/
-
-;* {*---------------------------------------------------------------------*} */
-;* {*    fg ...                                                           *} */
-;* {*---------------------------------------------------------------------*} */
-;* (define (fg c . body)                                               */
-;*    (apply color :fg c body))                                        */
-;*                                                                     */
-;* {*---------------------------------------------------------------------*} */
-;* {*    bg ...                                                           *} */
-;* {*---------------------------------------------------------------------*} */
-;* (define (bg c . body)                                               */
-;*    (apply color :bg c body))                                        */
-;*                                                                     */
-;*---------------------------------------------------------------------*/
-;*    colors ...                                                       */
-;*---------------------------------------------------------------------*/
-(define (green body)
-   (fg "darkgreen" body))
-(define (red body)
-   (fg "red" body))
-(define (blue body)
-   (bold (fg "darkblue" body)))
-(define (magenta body)
-   (fg "darkmagenta" body))
-(define (orange body)
-   (fg "darkorange" body))
-
-;*---------------------------------------------------------------------*/
-;*    em ...                                                           */
-;*---------------------------------------------------------------------*/
-(define (em body)
-   (bold (magenta body)))
-
-;*---------------------------------------------------------------------*/
-;*    st ...                                                           */
-;*---------------------------------------------------------------------*/
-(define (st body)
-   (sf (red body)))
-
-;*---------------------------------------------------------------------*/
-;*    citem ...                                                        */
-;*---------------------------------------------------------------------*/
-(define-markup (citem #!rest opt #!key (color "black") (shape (math 'bullet)))
-   (item (list (fg color shape) " " (the-body opt))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-prgm ...                                                  */
-;*---------------------------------------------------------------------*/
-(define-markup (skribe-prgm #!rest opt #!key file definition)
-   (cond
-      ((and definition file)
-       (font :size -4
-	     (color :bg "#ccffcc" (prog (source :language skribe
-						:file file
-						:definition definition)))))
-      (file
-       (font :size -4
-	     (color :bg "#ccffcc" (prog (source :language skribe
-						:file file)))))
-      (else
-       (font :size -4
-	     (color :bg "#ccffcc" (prog (source :language skribe
-						(the-body opt))))))))
-- 
cgit v1.2.3