From fc42fe56a57eace2dbdb31574c2e161f0eacf839 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 15 Jun 2005 13:00:39 +0000
Subject: Initial import of Skribe 1.2d.

Initial import of Skribe 1.2d.


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--base-0
---
 examples/slide/skr/local.skr | 73 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 examples/slide/skr/local.skr

(limited to 'examples/slide/skr')

diff --git a/examples/slide/skr/local.skr b/examples/slide/skr/local.skr
new file mode 100644
index 0000000..2802a53
--- /dev/null
+++ b/examples/slide/skr/local.skr
@@ -0,0 +1,73 @@
+;*=====================================================================*/
+;*    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