aboutsummaryrefslogtreecommitdiff
path: root/skribe/emacs/skribe.el.in
diff options
context:
space:
mode:
Diffstat (limited to 'skribe/emacs/skribe.el.in')
-rw-r--r--skribe/emacs/skribe.el.in841
1 files changed, 841 insertions, 0 deletions
diff --git a/skribe/emacs/skribe.el.in b/skribe/emacs/skribe.el.in
new file mode 100644
index 0000000..1b1ae4f
--- /dev/null
+++ b/skribe/emacs/skribe.el.in
@@ -0,0 +1,841 @@
+;*=====================================================================*/
+;* 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)