BSD 4_4 development

[unix-history] / usr / contrib / lib / emacs / lisp / scribe.elc

(defvar scribe-mode-syntax-table nil "\
Syntax table used while in scribe mode.")

(defvar scribe-mode-abbrev-table nil "\
Abbrev table used while in scribe mode.")

(defvar scribe-fancy-paragraphs nil "\
*Non-NIL makes Scribe mode use a different style of paragraph separation.")

(defvar scribe-electric-quote nil "\
*Non-NIL makes insert of double quote use `` or '' depending on context.")

(defvar scribe-electric-parenthesis nil "\
*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close
if typed after an @Command form.")

(defconst scribe-open-parentheses "[({<" "\
Open parenthesis characters for Scribe.")

(defconst scribe-close-parentheses "])}>" "\
Close parenthesis characters for Scribe.  These should match up with
scribe-open-parenthesis.")

(if (null scribe-mode-syntax-table) (let ((st (syntax-table))) (unwind-protect (progn (setq scribe-mode-syntax-table (copy-syntax-table text-mode-syntax-table)) (set-syntax-table scribe-mode-syntax-table) (modify-syntax-entry 34 "    ") (modify-syntax-entry 92 "    ") (modify-syntax-entry 64 "w   ") (modify-syntax-entry 60 "(>  ") (modify-syntax-entry 62 ")<  ") (modify-syntax-entry 91 "(]  ") (modify-syntax-entry 93 ")[  ") (modify-syntax-entry 123 "(}  ") (modify-syntax-entry 125 "){  ") (modify-syntax-entry 39 "w   ")) (set-syntax-table st))))

(defvar scribe-mode-map nil)

(if scribe-mode-map nil (setq scribe-mode-map (make-sparse-keymap)) (define-key scribe-mode-map "	" (quote scribe-tab)) (define-key scribe-mode-map "\e	" (quote tab-to-tab-stop)) (define-key scribe-mode-map "\es" (quote center-line)) (define-key scribe-mode-map "\e}" (quote up-list)) (define-key scribe-mode-map "\eS" (quote center-paragraph)) (define-key scribe-mode-map "\"" (quote scribe-insert-quote)) (define-key scribe-mode-map "(" (quote scribe-parenthesis)) (define-key scribe-mode-map "[" (quote scribe-parenthesis)) (define-key scribe-mode-map "{" (quote scribe-parenthesis)) (define-key scribe-mode-map "<" (quote scribe-parenthesis)) (define-key scribe-mode-map "\ 3c" (quote scribe-chapter)) (define-key scribe-mode-map "\ 3S" (quote scribe-section)) (define-key scribe-mode-map "\ 3s" (quote scribe-subsection)) (define-key scribe-mode-map "\ 3e" (quote scribe-insert-environment)) (define-key scribe-mode-map "\ 3\ 5" (quote scribe-bracket-region-be)) (define-key scribe-mode-map "\ 3[" (quote scribe-begin)) (define-key scribe-mode-map "\ 3]" (quote scribe-end)) (define-key scribe-mode-map "\ 3i" (quote scribe-italicize-word)) (define-key scribe-mode-map "\ 3b" (quote scribe-bold-word)) (define-key scribe-mode-map "\ 3u" (quote scribe-underline-word)))

(defun scribe-mode nil "\
Major mode for editing files of Scribe (a text formatter) source.
Scribe-mode is similar text-mode, with a few extra commands added.
\\{scribe-mode-map}

Interesting variables:

scribe-fancy-paragraphs
  Non-nil makes Scribe mode use a different style of paragraph separation.

scribe-electric-quote
  Non-nil makes insert of double quote use `` or '' depending on context.

scribe-electric-parenthesis
  Non-nil makes an open-parenthesis char (one of `([<{')