slide: Propagate the `outline?' parameter in `slide-(sub)?topic'.

* src/guile/skribilo/package/slide.scm (slide-topic): Propagate the
  `outline?' parameter as an option.
  (slide-subtopic): Likewise.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-1

2 files changed, 0 insertions, 896 deletions

diff --git a/skribe/emacs/Makefile b/skribe/emacs/Makefile
deleted file mode 100644
index 52074cb..0000000
--- a/skribe/emacs/Makefile
+++ /dev/null
@@ -1,55 +0,0 @@
-#*=====================================================================*/
-#*    serrano/prgm/project/skribe/emacs/Makefile                       */
-#*    -------------------------------------------------------------    */
-#*    Author      :  Manuel Serrano                                    */
-#*    Creation    :  Sat Oct 25 08:20:06 2003                          */
-#*    Last change :  Thu Jan  1 16:46:32 2004 (serrano)                */
-#*    Copyright   :  2003-04 Manuel Serrano                            */
-#*    -------------------------------------------------------------    */
-#*    Skribe emacs Makefile                                            */
-#*=====================================================================*/
-include ../etc/Makefile.config
-include ../etc/$(SYSTEM)/Makefile.skb
-
-#*---------------------------------------------------------------------*/
-#*    pop                                                              */
-#*---------------------------------------------------------------------*/
-.PHONY: pop
-
-pop: 
-	@ echo emacs/skribe.el.in emacs/Makefile
-
-#*---------------------------------------------------------------------*/
-#*    install/uninstall                                                */
-#*---------------------------------------------------------------------*/
-.PHONY: install uninstall
-
-install:
-	$(MAKE) install-$(SYSTEM)
-uninstall:
-	$(MAKE) uninstall-$(SYSTEM)
-
-install-bigloo:
-	if [ "$(EMACSDIR) " != " " ]; then \
-          if [ -d $(EMACSDIR) ]; then \
-	    cp skribe.el $(EMACSDIR) && chmod $(BMASK) $(EMACSDIR)/skribe.el; \
-          fi \
-        fi
-uninstall-bigloo:
-	if [ "$(EMACSDIR) " != " " ]; then \
-          if [ -d $(EMACSDIR) ]; then \
-	    $(RM) -f $(EMACSDIR)/skribe.el; \
-          fi \
-        fi
-
-install-stklos:
-uninstall-stklos:
-
-#*---------------------------------------------------------------------*/
-#*    clean/distclean                                                  */
-#*---------------------------------------------------------------------*/
-.PHONY: clean distclean
-
-clean:
-distclean: clean
-	$(RM) -f skribe.el
diff --git a/skribe/emacs/skribe.el.in b/skribe/emacs/skribe.el.in
deleted file mode 100644
index 1b1ae4f..0000000
--- a/skribe/emacs/skribe.el.in
+++ /dev/null
@@ -1,841 +0,0 @@
-;*=====================================================================*/
-;*    serrano/prgm/project/skribe/emacs/skribe.el.in                   */
-;*    -------------------------------------------------------------    */
-;*    Author      :  Manuel Serrano                                    */
-;*    Creation    :  Sun Nov 23 13:16:30 2003                          */
-;*    Last change :  Sun Jul 11 10:38:17 2004 (serrano)                */
-;*    Copyright   :  2003-04 Manuel Serrano                            */
-;*    -------------------------------------------------------------    */
-;*    Skribe minor mode (major mode is supposed to be a                */
-;*    Scheme-like mode).                                               */
-;*=====================================================================*/
-
-;*---------------------------------------------------------------------*/
-;*    module                                                           */
-;*---------------------------------------------------------------------*/
-(provide 'skribe)
-(require 'ude-custom)
-(require 'ude-config)
-(require 'ude-icon)
-(require 'ude-autoload)
-(require 'bmacs-config)
-(require (if (featurep 'xemacs) 'bmacs-xemacs 'bmacs-gnu-emacs))
-
-;*---------------------------------------------------------------------*/
-;*    custom                                                           */
-;*---------------------------------------------------------------------*/
-;; skribe version
-(defconst skribe-version "@SKRIBE_RELEASE@"
-  "*The Skribe version.")
-
-;; skribe group
-(defgroup skribe nil
-  "Skribe Emacs Environment."
-  :tag "Skribe"
-  :prefix "skribe-"
-  :group 'processes)
-
-;; emacs directory
-(defcustom skribe-emacs-dir '"@SKRIBE_EMACSDIR@"
-  "*Directory for Skribe Emacs installation."
-  :group 'skribe
-  :type '(string))
-
-;; additional directories for online documentation
-(defcustom skribe-docdirs '("@SKRIBE_DOCDIR@")
-  "*Directories for online documentation."
-  :group 'skribe
-  :type '(repeat (string)))
-
-;; Host scheme documentation
-(defcustom skribe-host-scheme-docdirs '("@SKRIBE_HOSTSCHEMEDOCDIR@")
-  "*URL for hosting Scheme system."
-  :group 'skribe
-  :type '(string))
-
-;; html browser
-(defcustom skribe-html-browser "mozilla"
-  "*The binary file to run for browing HTML files or nil for Emacs mode."
-  :group 'skribe
-  :type '(choice string (const nil)))
-
-;; electric parenthesis
-(defcustom skribe-electric-parenthesis t
-  "*Set his to nil if you don't want electric closing parenthesis."
-  :type 'boolean)
-
-;;;###autoload
-(defcustom skribe-mode-line-string " Skr"
-  "*String displayed on the modeline when skribe is active.
-Set this to nil if you don't want a modeline indicator."
-  :group 'skribe
-  :type '(choice string (const :tag "None" nil)))
-
-;; fixed indentation
-(defcustom skribe-forced-indent-regexp ";;;\\|;[*]"
-  "*The regexp that marks a forced indentation"
-  :group 'skribe
-  :type 'string)
-
-;; normal indentation
-(defcustom skribe-body-indent 3
-  "*The Skribe indentation width"
-  :group 'skribe
-  :type 'integer)
-
-;; font lock
-(defcustom skribe-font-lock-keywords
-  (list
-   (list (concat "\(\\(let\\|let[*]\\|letrec\\|define"
-		 "\\|define-markup\\|set[!]"
-		 "\\|lambda\\|labels"
-		 "\\|let-syntax\\|letrec-syntax"
-		 "\\|regular-grammar\\|lalr-grammar"
-		 "\\|if\\|when\\|unless\\|begin\\|case\\|cond\\|else"
-		 "\\|multiple-value-bind\\|values\\)[ :\n\t]")
-	 1
-	 'font-lock-keyword-face)
-   
-   (list "(\\(document\\|chapter\\|section\\|subsection\\|subsubsection\\|paragraph\\|p\\|skribe-load\\|include\\|slide\\)[) \n]"
-	 1
-	 'font-lock-function-name-face)
-   (list "(\\(toc\\|itemize\\|enumerate\\|description\\|item\\|the-bibliography\\|the-index\\|default-index\\|frame\\|center\\|table\\|tr\\|th\\|td\\|linebreak\\|footnote\\|color\\|author\\|prog\\|source\\|figure\\|image\\)[) \n]"
-	 1
-	 'ude-font-lock-face-2)
-   (list "(\\(bold\\|code\\|emph\\|it\\|kbd\\|tt\\|roman\\|underline\\|var\\|samp\\|sc\\|sf\\|sup\\|sub\\)[ )]"
-	 1
-	 'ude-font-lock-face-8)
-   (list "(\\(ref\\|mailto\\|mark\\|new\\)[) \n]"
-	 1
-	 'ude-font-lock-face-3)
-   (cons "\\(:[^] \n)]+\\|#![a-zA-Z]+\\)"
-	 'ude-font-lock-face-7)
-   (cons "[[]\\|]"
-	 'ude-font-lock-face-3)
-   (list "(\\(markup-writer\\|make-engine\\|copy-engine\\|default-engine-set!\\|engine-custom\\|engine-custom-set!\\|engine-custom-add!\\|markup-option\\|markup-option-add!\\|markup-body\\)[ \n]"
-	 1
-	 'font-lock-function-name-face)
-   (list ",(\\([^ \n()]+\\)"
-	 1
-	 'ude-font-lock-face-6))
-  "*The Skribe font-lock specification."
-  :group 'skribe)
-
-;; tool-bar
-(defcustom skribe-toolbar
-  `(;; the spell button
-    ("spell.xpm" flyspell-buffer "Buffer spell check")
-    --
-    ;; the compile button
-    (,ude-compile-icon ude-mode-compile-from-menu "Compile")
-    ;; the root button
-    (,ude-root-icon ude-user-set-root-directory "Set new root directory")
-    --
-    ;; the repl button
-    (,ude-repl-icon ude-repl-other-frame "Start a read-eval-print loop")
-    --
-    -->
-    --
-    ;; online documentation
-    (,ude-help-icon skribe-doc-ident "Describe markup at point")
-    (,ude-info-icon skribe-manuals "Skribe online documentations"))
-  "*The Skribe toolbar"
-  :group 'skribe)
-
-;; paragraphs
-(defcustom skribe-paragraph-start
-  "^\\(?:[ \t\n\f]\\|;;\\|[(]\\(?:section\\|sub\\|p\\|slide\\|document\\)\\)"
-  "*The regexp that marks a paragraph start"
-  :group 'skribe
-  :type 'string)
-
-(defcustom skribe-paragraph-separate
-  "^[ \t\f%]*$"
-  "*The regexp that marks a paragraph separation"
-  :group 'skribe
-  :type 'string)
-
-;*---------------------------------------------------------------------*/
-;*    Which emacs are we currently running                             */
-;*---------------------------------------------------------------------*/
-(defvar skribe-emacs
-  (cond
-   ((string-match "XEmacs" emacs-version)
-    'xemacs)
-   (t
-    'emacs))
-  "The type of Emacs we are currently running.")
-
-;*---------------------------------------------------------------------*/
-;*    Autoloading                                                      */
-;*---------------------------------------------------------------------*/
-;;;###autoload
-(defvar skribe-mode-map (make-sparse-keymap))
-
-;;;###autoload
-(if (fboundp 'add-minor-mode)
-    (add-minor-mode 'skribe-mode
-		    'skribe-mode-line-string
-		    nil
-		    nil
-		    'skribe-mode)
-
-  (or (assoc 'skribe-mode minor-mode-alist)
-      (setq minor-mode-alist
-	    (cons '(skribe-mode skribe-mode-line-string)
-		  minor-mode-alist)))
-
-  (or (assoc 'skribe-mode minor-mode-map-alist)
-      (setq minor-mode-map-alist
-	    (cons (cons 'skribe-mode skribe-mode-map)
-		  minor-mode-map-alist))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-manuals-menu-entry ...                                    */
-;*---------------------------------------------------------------------*/
-(defun skribe-manuals-menu-entry (s)
-  (let ((sym (gensym)))
-    (fset sym `(lambda ()
-		 (interactive)
-		 (ude-system skribe-html-browser
-			     (format "file:%s" (expand-file-name ,s)))))
-    (vector (file-name-nondirectory s) sym t)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-directory-html-files                                      */
-;*---------------------------------------------------------------------*/
-(defun skribe-directory-html-files (dirs)
-  (let ((dirs dirs)
-	(res '()))
-    (while (consp dirs)
-      (let ((dir (car dirs)))
-	(when (file-directory-p dir)
-	  (setq res (append (directory-files dir t "^.+[^0-9][.]html$") res))
-	  (setq dirs (cdr dirs)))))
-    res))
-  
-;*---------------------------------------------------------------------*/
-;*    skribe-manuals ...                                               */
-;*---------------------------------------------------------------------*/
-(defun skribe-manuals ()
-  (interactive)
-  (when (stringp skribe-html-browser)
-    (let ((res (skribe-directory-html-files skribe-docdirs))
-	  (host (sort (skribe-directory-html-files skribe-host-scheme-docdirs)
-		      'string<)))
-      (if (= (length res) 1)
-	  (ude-system skribe-html-browser
-		      (format "file:%s" (expand-file-name (car res))))
-	(let (user dir)
-	  (let ((old res)
-		(new '()))
-	    (while (consp old)
-	      (let* ((f (car old))
-		     (b (file-name-nondirectory f)))
-		(setq old (cdr old))
-		(cond
-		 ((string-equal b "user.html")
-		  (setq user f))
-		 ((string-equal b "dir.html")
-		  (setq dir f))
-		 (t (setq new (cons f new))))))
-	    (let* ((rest (mapcar 'skribe-manuals-menu-entry
-				 (sort new
-				       '(lambda (s u)
-					  (string<
-					   (file-name-nondirectory s)
-					   (file-name-nondirectory u))))))
-		   (smenu (cond
-			   ((and user dir)
-			    (append (list (skribe-manuals-menu-entry user)
-					  (skribe-manuals-menu-entry dir)
-					  "--:shadowEtchedInDash")
-				    rest))
-			   ((dir)
-			    (cons (skribe-manuals-menu-entry dir) rest))
-			   ((user)
-			    (cons (skribe-manuals-menu-entry user) rest))
-			   (t
-			    rest)))
-		   (menu (if (consp host)
-			     (append smenu
-				     (cons "--:shadowEtchedInDash"
-					   (mapcar 'skribe-manuals-menu-entry
-						   host)))
-			   smenu)))
-	      (popup-menu
-	       (cons "Doc" menu)))))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-scheme-indent-line ...                                    */
-;*---------------------------------------------------------------------*/
-(defvar skribe-scheme-indent-line nil)
-(make-variable-buffer-local 'skribe-scheme-indent-line)
-
-;*---------------------------------------------------------------------*/
-;*    skribe-insert-parenthesis ...                                    */
-;*---------------------------------------------------------------------*/
-(defun skribe-insert-parenthesis (char)
-  ;; find the open parenthesis
-  (if skribe-electric-parenthesis
-      (let ((clo nil)
-	    (tag nil))
-	(save-excursion
-	  (save-restriction
-	    ;; Scan across one sexp within that range.
-	    ;; Errors or nil mean there is a mismatch.
-	    (insert ?\))
-	    (condition-case ()
-		(let ((pos (scan-sexps (point) -1)))
-		  (if pos 
-		      (progn 
-			(save-excursion
-			  (goto-char pos)
-			  (forward-word 1)
-			  (setq tag (buffer-substring (1+ pos) (point))))
-			(setq clo (matching-paren (char-after pos)))) ))
-	      (error nil))))
-	(if clo
-	    (progn
-	      (delete-char 1)
-	      (insert clo))
-	  (forward-char 1)))
-    (insert char)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-parenthesis ...                                           */
-;*---------------------------------------------------------------------*/
-(defun skribe-parenthesis (&optional dummy)
-  "Automatic parenthesis closing of )."
-  (interactive)
-  ;; find the open parenthesis
-  (skribe-insert-parenthesis ?\)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-bracket ...                                               */
-;*---------------------------------------------------------------------*/
-(defun skribe-bracket (&optional dummy)
-  "Automatic parenthesis closing of ]."
-  (interactive)
-  (skribe-insert-parenthesis ?\]))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-doc-ident ...                                             */
-;*    -------------------------------------------------------------    */
-;*    On-line document for identifier IDENT. This spawns an            */
-;*    HTML browser for serving the documentation.                      */
-;*---------------------------------------------------------------------*/
-(defun skribe-doc-ident (ident)
-  (interactive (ude-interactive-ident (point) "Identifier: "))
-  (and (stringp skribe-html-browser)
-       (let ((dirs skribe-docdirs))
-	 (while (consp dirs)
-	   (let* ((dir (car dirs))
-		  (html-ref (ude-sui-find-ref ident dir)))
-	     (if (stringp html-ref)
-		 (progn
-		   (ude-system skribe-html-browser
-			       (format "file:%s/%s"
-				       (expand-file-name dir)
-				       html-ref))
-		   (setq dirs '()))
-	       (setq dirs (cdr dirs))))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-mode ...                                                  */
-;*---------------------------------------------------------------------*/
-;;;###autoload
-(defvar skribe-mode nil)
-(make-variable-buffer-local 'skribe-mode)
-
-;*---------------------------------------------------------------------*/
-;*    skribe-major-mode ...                                            */
-;*---------------------------------------------------------------------*/
-;;;###autoload
-(defun skribe-major-mode ()
-  "Major mode for editing Skribe code."
-  (interactive)
-  (bee-mode)
-  (skribe-mode t))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-mode ...                                                  */
-;*---------------------------------------------------------------------*/
-;;;###autoload
-(defun skribe-mode (&optional arg)
-  "Minor mode for editing Skribe sources.
-
-Bindings:
-\\[skribe-doc-ident]: on-line document.
-
-Hooks:
-This runs `skribe-mode-hook' after skribe is enterend."
-  (interactive "P")
-  (let ((old-skribe-mode skribe-mode))
-    ;; Mark the mode as on or off.
-    (setq skribe-mode (not (or (and (null arg) skribe-mode)
-			       (<= (prefix-numeric-value arg) 0))))
-    ;; Do the real work.
-    (unless (eq skribe-mode old-skribe-mode)
-      (if skribe-mode (skribe-activate-mode) nil))
-    ;; Force modeline redisplay.
-    (set-buffer-modified-p (buffer-modified-p))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-return ...                                                */
-;*---------------------------------------------------------------------*/
-(defun skribe-return (&optional dummy)
-  "Automatic indentation on RET."
-  (interactive)
-  (newline)
-  (if (>= (point) (point-min))
-      (skribe-indent-line)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-line-toggle ...                                    */
-;*---------------------------------------------------------------------*/
-(defvar skribe-indent-line-toggle nil)
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-line ...                                           */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-line ()
-  (interactive)
-  (if (eq last-command 'skribe-indent-line)
-      (if skribe-indent-line-toggle
-	  (skribe-do-indent-line)
-	(progn
-	  (setq skribe-indent-line-toggle t)
-	  (if skribe-scheme-indent-line
-	      (funcall skribe-scheme-indent-line))))
-    (skribe-do-indent-line)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-do-indent-line ...                                        */
-;*---------------------------------------------------------------------*/
-(defun skribe-do-indent-line ()
-  (setq skribe-indent-line-toggle nil)
-  (let ((start (point)) beg)
-    (beginning-of-line)
-    (setq beg (point))
-    (skip-chars-forward " \t")
-    (let* ((pos (- (point-max) start))
-	   (indent (skribe-calculate-indent start)))
-      (when indent
-	(if (listp indent) (setq indent (car indent)))
-	(let ((shift-amt (- indent (current-column))))
-	  (if (zerop shift-amt)
-	      nil
-	    (delete-region beg (point))
-	    (indent-to indent))))
-      ;; If initial point was within line's indentation,
-      ;; position after the indentation.
-      ;; Else stay at same point in text.
-      (if (> (- (point-max) pos) (point))
-	  (goto-char (- (point-max) pos))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-calculate-indent ...                                      */
-;*---------------------------------------------------------------------*/
-(defun skribe-calculate-indent (start &optional parse-start)
-  "Return appropriate indentation for current line as Skribe code.
-In usual case returns an integer: the column to indent to.
-Can instead return a list, whose car is the column to indent to.
-This means that following lines at the same level of indentation
-should not necessarily be indented the same way.
-The second element of the list is the buffer position
-of the start of the containing expression."
-  (or (skribe-calculate-forced-indent)
-      (skribe-calculate-free-indent start parse-start)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-calculate-forced-indent ...                               */
-;*    -------------------------------------------------------------    */
-;*    Returns a column number iff the line indentation is forced       */
-;*    (i.e. the previous line starts with a "[ \t]*;;;"). Otherwise    */
-;*    returns f.                                                       */
-;*---------------------------------------------------------------------*/
-(defun skribe-calculate-forced-indent ()
-  (save-excursion
-    (previous-line 1)
-    (beginning-of-line)
-    (skip-chars-forward " \t")
-    (let ((s (current-column)))
-      (and (looking-at skribe-forced-indent-regexp) s))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-calculate-free-indent ...                                 */
-;*---------------------------------------------------------------------*/
-(defun skribe-calculate-free-indent (start &optional parse-start)
-  (save-excursion
-    (beginning-of-line)
-    (let ((indent-point (point)) state paren-depth desired-indent (retry t)
-          last-sexp containing-sexp first-sexp-list-p skribe-indent)
-      (if parse-start
-          (goto-char parse-start)
-	;; TOBE IMPROVED
-        (goto-char (point-min)))
-;* 	(beginning-of-defun))                                          */
-      ;; Find outermost containing sexp
-      (while (< (point) indent-point)
-        (setq state (parse-partial-sexp (point) indent-point 0)))
-      ;; Find innermost containing sexp
-      (while (and retry (setq paren-depth (car state)) (> paren-depth 0))
-        (setq retry nil)
-        (setq last-sexp (nth 2 state))
-        (setq containing-sexp (car (cdr state)))
-        ;; Position following last unclosed open.
-        (goto-char (1+ containing-sexp))
-        ;; Is there a complete sexp since then?
-        (if (and last-sexp (> last-sexp (point)))
-            ;; Yes, but is there a containing sexp after that?
-            (let ((peek (parse-partial-sexp last-sexp indent-point 0)))
-              (if (setq retry (car (cdr peek))) (setq state peek))))
-        (if (not retry)
-            ;; Innermost containing sexp found
-            (progn
-              (goto-char (1+ containing-sexp))
-              (if (not last-sexp)
-                  ;; indent-point immediately follows open paren.
-                  ;; Don't call hook.
-                  (setq desired-indent (current-column))
-                ;; Move to first sexp after containing open paren
-                (parse-partial-sexp (point) last-sexp 0 t)
-                (setq first-sexp-list-p (looking-at "\\s("))
-                (cond
-                 ((> (save-excursion (forward-line 1) (point))
-                     last-sexp)
-                  ;; Last sexp is on same line as containing sexp.
-                  ;; It's almost certainly a function call.
-                  (parse-partial-sexp (point) last-sexp 0 t)
-                  (if (/= (point) last-sexp)
-                      ;; Indent beneath first argument or, if only one sexp
-                      ;; on line, indent beneath that.
-                      (progn (forward-sexp 1)
-                             (parse-partial-sexp (point) last-sexp 0 t)))
-                  (backward-prefix-chars))
-                 (t
-                  ;; Indent beneath first sexp on same line as last-sexp.
-                  ;; Again, it's almost certainly a function call.
-                  (goto-char last-sexp)
-                  (beginning-of-line)
-                  (parse-partial-sexp (point) last-sexp 0 t)
-                  (backward-prefix-chars)))))))
-      ;; If looking at a list, don't call hook.
-      (if first-sexp-list-p
-          (setq desired-indent (current-column)))
-      ;; Point is at the point to indent under unless we are inside a string.
-      ;; Call indentation hook except when overriden by skribe-indent-offset
-      ;; or if the desired indentation has already skriben computed.
-      '(message-box (format "start=%s\nfirst-sexp-lisp-p: %s\nstate: %s\ndesired-indent: %s\nintegerp=%s\nchar-after=%s\ncur-char=%s\npoint=%s\nskribe-indent-function-p=%s\n" start first-sexp-list-p state desired-indent
-			   (integerp (car (nthcdr 1 state)))
-			   (char-after (car (nthcdr 1 state)))
-			   (char-after (point))
-			   (point)
-			   (skribe-indent-method state)))
-      (cond ((car (nthcdr 3 state))
-             ;; Inside a string, don't change indentation.
-             (goto-char indent-point)
-             (skip-chars-forward " \t")
-             (setq desired-indent (current-column)))
-            ((skribe-indent-bracket-p state)
-             ;; indenting a bracket
-	     (save-excursion
-	       (goto-char start)
-	       (skip-chars-forward " \t")
-	       (let ((c (car (nthcdr 9 state))))
-		 (if (and (consp c) (looking-at ",(") nil)
-		     (let ((l (length c)))
-		       (if (< l 2)
-			   (setq desired-indent 0)
-			 (progn
-			   (goto-char (car (nthcdr (- l 2) c)))
-			   (setq desired-indent (current-column)))))
-		   (setq desired-indent 0)))))
-	    ((setq skribe-indent (skribe-indent-method state))
-	     ;; skribe special form
-	     (setq desired-indent skribe-indent))
-	    (skribe-scheme-indent-line
-	     ;; scheme form
-	     (goto-char start)
-	     (funcall skribe-scheme-indent-line)
-	     (setq desired-indent nil))
-	    (t
-             ;; use default indentation if not computed yet
-             (setq desired-indent (current-column))))
-      desired-indent)))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-bracket-p ...                                      */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-bracket-p (state)
-  (or (and (integerp (car (nthcdr 1 state)))
-	   (eq (char-after (car (nthcdr 1 state))) ?[))
-      (let ((op (car (nthcdr 9 state))))
-	(and (consp op)
-	     (let ((po (reverse op))
-		   (context 'unknown))
-	       (save-excursion
-		 (while (and (consp po) (eq context 'unknown))
-		   (cond
-		    ((eq (char-after (car po)) ?[)
-		     (setq context 'skribe))
-		    ((and (eq (char-after (car po)) ?\()
-			  (> (car po) (point-min))
-			  (eq (char-after (1- (car po))) ?,))
-		     (setq context 'scheme))
-		    (t
-		     (setq po (cdr po))))))
-	       (eq context 'skribe))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-method ...                                         */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-method (state)
-  (let ((is (car (nthcdr 1 state))))
-    (and (integerp is)
-	 (save-excursion
-	   (goto-char is)
-	   (let* ((function (intern-soft
-			     (buffer-substring
-			      (progn (forward-char 1) (point))
-			      (progn (forward-sexp 1) (point)))))
-		  (method (get function 'skribe-indent)))
-	     (if (functionp method)
-		 (funcall method state)
-	       nil))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-function ...                                       */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-function (state)
-  (save-excursion
-    (goto-char (car (nthcdr 1 state)))
-    (+ (current-column) skribe-body-indent)))
-
-;*---------------------------------------------------------------------*/
-;*    normal-indent ...                                                */
-;*---------------------------------------------------------------------*/
-(defvar normal-indent 0)
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-sexp ...                                           */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-sexp ()
-  "Indent each line of the list starting just after point."
-  (interactive)
-  (let ((indent-stack (list nil)) (next-depth 0) last-depth bol
-        outer-loop-done inner-loop-done state this-indent)
-    (save-excursion (forward-sexp 1))
-    (save-excursion
-      (setq outer-loop-done nil)
-      (while (not outer-loop-done)
-        (setq last-depth next-depth
-              inner-loop-done nil)
-        (while (and (not inner-loop-done)
-                    (not (setq outer-loop-done (eobp))))
-          (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
-                                          nil nil state))
-          (setq next-depth (car state))
-          (if (car (nthcdr 4 state))
-              (progn (skribe-comment-indent)
-                     (end-of-line)
-                     (setcar (nthcdr 4 state) nil)))
-          (if (car (nthcdr 3 state))
-              (progn
-                (forward-line 1)
-                (setcar (nthcdr 5 state) nil))
-            (setq inner-loop-done t)))
-        (if (setq outer-loop-done (<= next-depth 0))
-            nil
-          (while (> last-depth next-depth)
-            (setq indent-stack (cdr indent-stack)
-                  last-depth (1- last-depth)))
-          (while (< last-depth next-depth)
-            (setq indent-stack (cons nil indent-stack)
-                  last-depth (1+ last-depth)))
-          (forward-line 1)
-          (setq bol (point))
-          (skip-chars-forward " \t")
-          (if (or (eobp) (looking-at ";\\(;;\\|[*]\\)"))
-              nil
-	    (let ((val (skribe-calculate-indent
-			(point)
-			(if (car indent-stack) (- (car indent-stack))))))
-	      (cond
-	       ((integerp val)
-		(setcar indent-stack (setq this-indent val)))
-	       ((consp val)
-		(setcar indent-stack (- (car (cdr val))))
-		(setq this-indent (car val)))
-	       (t
-		(setq this-indent nil))))
-	    (if (and (integerp this-indent) (/= (current-column) this-indent))
-		(progn (delete-region bol (point))
-		       (indent-to this-indent)))))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-comment-indent ...                                        */
-;*---------------------------------------------------------------------*/
-(defun skribe-comment-indent (&optional pos)
-  (save-excursion
-    (if pos (goto-char pos))
-    (cond
-     ((looking-at ";;;")
-      (current-column))
-     ((looking-at ";*")
-      0)
-     ((looking-at "[ \t]*;;")
-      (let ((tem (skribe-calculate-indent (point))))
-	(if (listp tem) (car tem) tem)))
-     (t
-      (skip-chars-backward " \t")
-      (max (if (bolp) 0 (1+ (current-column)))
-	   comment-column)))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-custom-indent ...                                         */
-;*---------------------------------------------------------------------*/
-(defun skribe-custom-indent ()
-  (save-excursion
-    (goto-char (point-min))
-    ;; The concat is used to split the regexp so that it is nolonger
-    ;; to find itself! Without the split, the skribe mode cannot be
-    ;; used to edit this source file!
-    (let ((regexp (concat "@ind" "ent:\\([^@]+\\)@")))
-      (while (re-search-forward regexp (point-max) t)
-	(condition-case ()
-	    (eval-region (match-beginning 1) (match-end 1) nil)
-	  (error nil))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-indent-load ...                                           */
-;*---------------------------------------------------------------------*/
-(defun skribe-indent-load (file)
-  (let ((lp (cons skribe-emacs-dir load-path)))
-    (while (consp lp)
-      (let ((f (concat (car lp) "/" file)))
-	(if (file-exists-p f)
-	    (progn
-	      (load f)
-	      (set! lp '()))
-	  (set! lp (cdr lp)))))))
-
-;*---------------------------------------------------------------------*/
-;*    skribe-activate-mode ...                                         */
-;*---------------------------------------------------------------------*/
-(defun skribe-activate-mode ()
-  ;; buffer local global variables
-  (make-variable-buffer-local 'ude-extra-identifier-chars)
-  (setq ude-extra-identifier-chars "-")
-  ;; the keymap
-  (skribe-activate-keymap skribe-mode-map)
-  ;; font lock
-  (make-local-variable 'font-lock-defaults)
-  (setq font-lock-defaults '(skribe-font-lock-keywords))
-  (font-lock-mode nil)
-  (font-lock-mode t)
-  ;; paragraph
-  (make-variable-buffer-local 'paragraph-start)
-  (setq paragraph-start skribe-paragraph-start)
-  (make-variable-buffer-local 'paragraph-separate)
-  (setq paragraph-separate skribe-paragraph-separate)
-  ;; try to retreive the globa'paragraph-startl indentation binding
-  (if (not skribe-scheme-indent-line)
-      (setq skribe-scheme-indent-line (global-key-binding "\t")))
-  ;; the toolbar
-  (use-local-map skribe-mode-map)
-  (ude-toolbar-set skribe-toolbar)
-  ;; the custom indentation
-  (skribe-custom-indent)
-  ;; we end with the skribe hooks
-  (run-hooks 'skribe-mode-hook)
-  t)
-
-;*---------------------------------------------------------------------*/
-;*    skribe-activate-keymap ...                                       */
-;*---------------------------------------------------------------------*/
-(defun skribe-activate-keymap (map)
-  (define-key map "\C-m" 'skribe-return)
-  (define-key map "\e\C-m" 'newline)
-  (define-key map "\t" 'skribe-indent-line)
-  (define-key map ")" 'skribe-parenthesis)
-  (define-key map "]" 'skribe-bracket)
-  (define-key map "\e\C-q" 'skribe-indent-sexp)
-  (cond
-   ((eq skribe-emacs 'xemacs)
-    (define-key map [(control \))] (lambda () (interactive) (insert ")")))
-    (define-key map [(control \])] (lambda () (interactive) (insert "]"))))
-   (t
-    (define-key map [?\C-\)] (lambda () (interactive) (insert ")")))
-    (define-key map [?\C-\]] (lambda () (interactive) (insert "]"))))))
-
-;*---------------------------------------------------------------------*/
-;*    Standard Skribe indent forms                                     */
-;*---------------------------------------------------------------------*/
-(put 'make-engine 'skribe-indent 'skribe-indent-function)
-(put 'copy-engine 'skribe-indent 'skribe-indent-function)
-(put 'markup-writer 'skribe-indent 'skribe-indent-function)
-(put 'engine-custom 'skribe-indent 'skribe-indent-function)
-(put 'engine-custom-set! 'skribe-indent 'skribe-indent-function)
-(put 'document 'skribe-indent 'skribe-indent-function)
-(put 'author 'skribe-indent 'skribe-indent-function)
-(put 'chapter 'skribe-indent 'skribe-indent-function)
-(put 'section 'skribe-indent 'skribe-indent-function)
-(put 'subsection 'skribe-indent 'skribe-indent-function)
-(put 'subsubsection 'skribe-indent 'skribe-indent-function)
-(put 'paragraph 'skribe-indent 'skribe-indent-function)
-(put 'footnote 'skribe-indent 'skribe-indent-function)
-(put 'linebreak 'skribe-indent 'skribe-indent-function)
-(put 'hrule 'skribe-indent 'skribe-indent-function)
-(put 'color 'skribe-indent 'skribe-indent-function)
-(put 'frame 'skribe-indent 'skribe-indent-function)
-(put 'font 'skribe-indent 'skribe-indent-function)
-(put 'flush 'skribe-indent 'skribe-indent-function)
-(put 'center 'skribe-indent 'skribe-indent-function)
-(put 'pre 'skribe-indent 'skribe-indent-function)
-(put 'prog 'skribe-indent 'skribe-indent-function)
-(put 'source 'skribe-indent 'skribe-indent-function)
-(put 'language 'skribe-indent 'skribe-indent-function)
-(put 'itemize 'skribe-indent 'skribe-indent-function)
-(put 'enumerate 'skribe-indent 'skribe-indent-function)
-(put 'description 'skribe-indent 'skribe-indent-function)
-(put 'item 'skribe-indent 'skribe-indent-function)
-(put 'figure 'skribe-indent 'skribe-indent-function)
-(put 'table 'skribe-indent 'skribe-indent-function)
-(put 'tr 'skribe-indent 'skribe-indent-function)
-(put 'td 'skribe-indent 'skribe-indent-function)
-(put 'th 'skribe-indent 'skribe-indent-function)
-(put 'image 'skribe-indent 'skribe-indent-function)
-(put 'blockquote 'skribe-indent 'skribe-indent-function)
-(put 'roman 'skribe-indent 'skribe-indent-function)
-(put 'bold 'skribe-indent 'skribe-indent-function)
-(put 'underline 'skribe-indent 'skribe-indent-function)
-(put 'strike 'skribe-indent 'skribe-indent-function)
-(put 'emph 'skribe-indent 'skribe-indent-function)
-(put 'kbdb 'skribe-indent 'skribe-indent-function)
-(put 'it 'skribe-indent 'skribe-indent-function)
-(put 'tt 'skribe-indent 'skribe-indent-function)
-(put 'code 'skribe-indent 'skribe-indent-function)
-(put 'var 'skribe-indent 'skribe-indent-function)
-(put 'smap 'skribe-indent 'skribe-indent-function)
-(put 'sf 'skribe-indent 'skribe-indent-function)
-(put 'sc 'skribe-indent 'skribe-indent-function)
-(put 'sub 'skribe-indent 'skribe-indent-function)
-(put 'sup 'skribe-indent 'skribe-indent-function)
-(put 'mailto 'skribe-indent 'skribe-indent-function)
-(put 'mark 'skribe-indent 'skribe-indent-function)
-(put 'handle 'skribe-indent 'skribe-indent-function)
-(put 'ref 'skribe-indent 'skribe-indent-function)
-(put 'resolve 'skribe-indent 'skribe-indent-function)
-(put 'bibliography 'skribe-indent 'skribe-indent-function)
-(put 'the-bibliography 'skribe-indent 'skribe-indent-function)
-(put 'make-index 'skribe-indent 'skribe-indent-function)
-(put 'index 'skribe-indent 'skribe-indent-function)
-(put 'the-index 'skribe-indent 'skribe-indent-function)
-(put 'char 'skribe-indent 'skribe-indent-function)
-(put 'symbol 'skribe-indent 'skribe-indent-function)
-(put '! 'skribe-indent 'skribe-indent-function)
-(put 'processor 'skribe-indent 'skribe-indent-function)
-(put 'slide 'skribe-indent 'skribe-indent-function)
-(put 'counter 'skribe-indent 'skribe-indent-function)