[bpt/emacs.git] / lisp / textmodes / scribe.el

;;; scribe.el --- scribe mode, and its idiosyncratic commands

;; Copyright (C) 1985 Free Software Foundation, Inc.

;; Maintainer: FSF
;; Keywords: wp

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Commentary:

;; A major mode for editing source in written for the Scribe text formatter.
;; Knows about Scribe syntax and standard layout rules.  The command to
;; run Scribe on a buffer is bogus; someone interested should fix it.

;;; Code:

(defgroup scribe nil
  "Scribe mode."
  :prefix "scribe-"
  :group 'wp)

(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.")

(defcustom scribe-fancy-paragraphs nil
  "*Non-NIL makes Scribe mode use a different style of paragraph separation."
  :type 'boolean
  :group 'scribe)

(defcustom scribe-electric-quote nil
  "*Non-NIL makes insert of double quote use `` or '' depending on context."
  :type 'boolean
  :group 'scribe)

(defcustom scribe-electric-parenthesis nil
  "*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close
if typed after an @Command form."
  :type 'boolean
  :group 'scribe)

(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 ?\" "    ")
	(modify-syntax-entry ?\\ "    ")
	(modify-syntax-entry ?@ "w   ")
	(modify-syntax-entry ?< "(>  ")
	(modify-syntax-entry ?> ")<  ")
	(modify-syntax-entry ?[ "(]  ")
	(modify-syntax-entry ?] ")[  ")
	(modify-syntax-entry ?{ "(}  ")
	(modify-syntax-entry ?} "){  ")
	(modify-syntax-entry ?' "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 "\t" 'scribe-tab)
  (define-key scribe-mode-map "\e\t" 'tab-to-tab-stop)
  (define-key scribe-mode-map "\es" 'center-line)
  (define-key scribe-mode-map "\e}" 'up-list)
  (define-key scribe-mode-map "\eS" 'center-paragraph)
  (define-key scribe-mode-map "\"" 'scribe-insert-quote)
  (define-key scribe-mode-map "(" 'scribe-parenthesis)
  (define-key scribe-mode-map "[" 'scribe-parenthesis)
  (define-key scribe-mode-map "{" 'scribe-parenthesis)
  (define-key scribe-mode-map "<" 'scribe-parenthesis)
  (define-key scribe-mode-map "\C-c\C-c" 'scribe-chapter)
  (define-key scribe-mode-map "\C-c\C-t" 'scribe-section)
  (define-key scribe-mode-map "\C-c\C-s" 'scribe-subsection)
  (define-key scribe-mode-map "\C-c\C-v" 'scribe-insert-environment)
  (define-key scribe-mode-map "\C-c\C-e" 'scribe-bracket-region-be)
  (define-key scribe-mode-map "\C-c[" 'scribe-begin)
  (define-key scribe-mode-map "\C-c]" 'scribe-end)
  (define-key scribe-mode-map "\C-c\C-i" 'scribe-italicize-word)
  (define-key scribe-mode-map "\C-c\C-b" 'scribe-bold-word)
  (define-key scribe-mode-map "\C-c\C-u" 'scribe-underline-word))

;;;###autoload
(defun scribe-mode ()
  "Major mode for editing files of Scribe (a text formatter) source.
Scribe-mode is similar to 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 `([<{')
  automatically insert its close if typed after an @Command form."
  (interactive)
  (kill-all-local-variables)
  (use-local-map scribe-mode-map)
  (setq mode-name "Scribe")
  (setq major-mode 'scribe-mode)
  (define-abbrev-table 'scribe-mode-abbrev-table ())
  (setq local-abbrev-table scribe-mode-abbrev-table)
  (make-local-variable 'comment-start)
  (setq comment-start "@Comment[")
  (make-local-variable 'comment-start-skip)
  (setq comment-start-skip (concat "@Comment[" scribe-open-parentheses "]"))
  (make-local-variable 'comment-column)
  (setq comment-column 0)
  (make-local-variable 'comment-end)
  (setq comment-end "]")
  (make-local-variable 'paragraph-start)
  (setq paragraph-start (concat "\\([\n\f]\\)\\|\\(@\\w+["
				 scribe-open-parentheses
				"].*["
				 scribe-close-parentheses
				"]$\\)"))
  (make-local-variable 'paragraph-separate)
  (setq paragraph-separate (if scribe-fancy-paragraphs
			       paragraph-start "$"))
  (make-local-variable 'sentence-end)
  (setq sentence-end "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\|  \\)[ \t\n]*")
  (make-local-variable 'compile-command)
  (setq compile-command (concat "scribe " (buffer-file-name)))
  (set-syntax-table scribe-mode-syntax-table)
  (run-hooks 'text-mode-hook 'scribe-mode-hook))

(defun scribe-tab ()
  (interactive)
  (insert "@\\"))

;; This algorithm could probably be improved somewhat.
;;  Right now, it loses seriously...

(defun scribe ()
  "Run Scribe on the current buffer."
  (interactive)
  (call-interactively 'compile))

(defun scribe-envelop-word (string count)
  "Surround current word with Scribe construct @STRING[...].
COUNT specifies how many words to surround.  A negative count means
to skip backward."
  (let ((spos (point)) (epos (point)) (ccoun 0) noparens)
    (if (not (zerop count))
	(progn (if (= (char-syntax (preceding-char)) ?w)
		   (forward-sexp (min -1 count)))
	       (setq spos (point))
	       (if (looking-at (concat "@\\w[" scribe-open-parentheses "]"))
		   (forward-char 2)
		 (goto-char epos)
		 (skip-chars-backward "\\W")
		 (forward-char -1))
	       (forward-sexp (max count 1))
	       (setq epos (point))))
    (goto-char spos)
    (while (and (< ccoun (length scribe-open-parentheses))
		(save-excursion
		  (or (search-forward (char-to-string
				       (aref scribe-open-parentheses ccoun))
				      epos t)
		      (search-forward (char-to-string
				       (aref scribe-close-parentheses ccoun))
				      epos t)))
		(setq ccoun (1+ ccoun))))
    (if (>= ccoun (length scribe-open-parentheses))
	(progn (goto-char epos)
	       (insert "@end(" string ")")
	       (goto-char spos)
	       (insert "@begin(" string ")"))
      (goto-char epos)
      (insert (aref scribe-close-parentheses ccoun))
      (goto-char spos)
      (insert "@" string (aref scribe-open-parentheses ccoun))
      (goto-char epos)
      (forward-char 3)
      (skip-chars-forward scribe-close-parentheses))))

(defun scribe-underline-word (count)
  "Underline COUNT words around point by means of Scribe constructs."
  (interactive "p")
  (scribe-envelop-word "u" count))

(defun scribe-bold-word (count)
  "Boldface COUNT words around point by means of Scribe constructs."
  (interactive "p")
  (scribe-envelop-word "b" count))

(defun scribe-italicize-word (count)
  "Italicize COUNT words around point by means of Scribe constructs."
  (interactive "p")
  (scribe-envelop-word "i" count))

(defun scribe-begin ()
  (interactive)
  (insert "\n")
  (forward-char -1)
  (scribe-envelop-word "Begin" 0)
  (re-search-forward (concat "[" scribe-open-parentheses "]")))

(defun scribe-end ()
  (interactive)
  (insert "\n")
  (forward-char -1)
  (scribe-envelop-word "End" 0)
  (re-search-forward (concat "[" scribe-open-parentheses "]")))

(defun scribe-chapter ()
  (interactive)
  (insert "\n")
  (forward-char -1)
  (scribe-envelop-word "Chapter" 0)
  (re-search-forward (concat "[" scribe-open-parentheses "]")))

(defun scribe-section ()
  (interactive)
  (insert "\n")
  (forward-char -1)
  (scribe-envelop-word "Section" 0)
  (re-search-forward (concat "[" scribe-open-parentheses "]")))

(defun scribe-subsection ()
  (interactive)
  (insert "\n")
  (forward-char -1)
  (scribe-envelop-word "SubSection" 0)
  (re-search-forward (concat "[" scribe-open-parentheses "]")))

(defun scribe-bracket-region-be (env min max)
  (interactive "sEnvironment: \nr")
  (save-excursion
    (goto-char max)
    (insert "@end(" env ")\n")
    (goto-char min)
    (insert "@begin(" env ")\n")))

(defun scribe-insert-environment (env)
  (interactive "sEnvironment: ")
  (scribe-bracket-region-be env (point) (point))
  (forward-line 1)
  (insert ?\n)
  (forward-char -1))

(defun scribe-insert-quote (count)
  "Insert ``, '' or \" according to preceding character.
If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according
to preceding character.  With numeric arg N, always insert N \" characters.
Else just insert \"."
  (interactive "P")
  (if (or count (not scribe-electric-quote))
      (self-insert-command (prefix-numeric-value count))
    (let (lastfore lastback lastquote)
      (insert
       (cond
	((= (preceding-char) ?\\) ?\")
	((bobp) "``")
	(t
	 (setq lastfore (save-excursion (and (search-backward
					      "``" (- (point) 1000) t)
					     (point)))
	       lastback (save-excursion (and (search-backward
					      "''" (- (point) 1000) t)
					     (point)))
	       lastquote (save-excursion (and (search-backward
					       "\"" (- (point) 100) t)
					      (point))))
	 (if (not lastquote)
	     (cond ((not lastfore) "``")
		   ((not lastback) "''")
		   ((> lastfore lastback) "''")
		   (t "``"))
	   (cond ((and (not lastback) (not lastfore)) "\"")
		 ((and lastback (not lastfore) (> lastquote lastback)) "\"")
		 ((and lastback (not lastfore) (> lastback lastquote)) "``")
		 ((and lastfore (not lastback) (> lastquote lastfore)) "\"")
		 ((and lastfore (not lastback) (> lastfore lastquote)) "''")
		 ((and (> lastquote lastfore) (> lastquote lastback)) "\"")
		 ((> lastfore lastback) "''")
		 (t "``")))))))))

(defun scribe-parenthesis (count)
  "If scribe-electric-parenthesis is non-NIL, insertion of an open-parenthesis
character inserts the following close parenthesis character if the
preceding text is of the form @Command."
  (interactive "P")
  (self-insert-command (prefix-numeric-value count))
  (let (at-command paren-char point-save)
    (if (or count (not scribe-electric-parenthesis))
	nil
      (save-excursion
	(forward-char -1)
	(setq point-save (point))
	(skip-chars-backward (concat "^ \n\t\f" scribe-open-parentheses))
	(setq at-command (and (equal (following-char) ?@)
			      (/= (point) (1- point-save)))))
      (if (and at-command
	       (setq paren-char
		     (string-match (regexp-quote
				    (char-to-string (preceding-char)))
				   scribe-open-parentheses)))
	  (save-excursion
	    (insert (aref scribe-close-parentheses paren-char)))))))

(provide 'scribe)

;;; scribe.el ends here
Commit	Line	Data
55535639	1	;;; scribe.el --- scribe mode, and its idiosyncratic commands
c88ab9ce	2
248b25a4 RS	3	;; Copyright (C) 1985 Free Software Foundation, Inc.
248b25a4 RS	4
9750e079	5	;; Maintainer: FSF
e9571d2a	6	;; Keywords: wp
9750e079	7
346169bf RS	8	;; This file is part of GNU Emacs.
	9
	10	;; GNU Emacs is free software; you can redistribute it and/or modify
	11	;; it under the terms of the GNU General Public License as published by
	12	;; the Free Software Foundation; either version 2, or (at your option)
	13	;; any later version.
248b25a4 RS	14
248b25a4 RS	15	;; GNU Emacs is distributed in the hope that it will be useful,
346169bf RS	16	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	17	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	18	;; GNU General Public License for more details.
	19
	20	;; You should have received a copy of the GNU General Public License
b578f267 EN	21	;; along with GNU Emacs; see the file COPYING. If not, write to the
	22	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	23	;; Boston, MA 02111-1307, USA.
248b25a4	24
d9ecc911 ER	25	;;; Commentary:
	26
	27	;; A major mode for editing source in written for the Scribe text formatter.
	28	;; Knows about Scribe syntax and standard layout rules. The command to
	29	;; run Scribe on a buffer is bogus; someone interested should fix it.
	30
630cc463	31	;;; Code:
248b25a4	32
d1ebc62e SE	33	(defgroup scribe nil
	34	"Scribe mode."
	35	:prefix "scribe-"
	36	:group 'wp)
	37
248b25a4 RS	38	(defvar scribe-mode-syntax-table nil
	39	"Syntax table used while in scribe mode.")
	40
	41	(defvar scribe-mode-abbrev-table nil
	42	"Abbrev table used while in scribe mode.")
	43
d1ebc62e SE	44	(defcustom scribe-fancy-paragraphs nil
	45	"*Non-NIL makes Scribe mode use a different style of paragraph separation."
	46	:type 'boolean
	47	:group 'scribe)
248b25a4	48
d1ebc62e SE	49	(defcustom scribe-electric-quote nil
	50	"*Non-NIL makes insert of double quote use `` or '' depending on context."
	51	:type 'boolean
	52	:group 'scribe)
248b25a4	53
d1ebc62e	54	(defcustom scribe-electric-parenthesis nil
248b25a4	55	"*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close
d1ebc62e SE	56	if typed after an @Command form."
	57	:type 'boolean
	58	:group 'scribe)
248b25a4 RS	59
	60	(defconst scribe-open-parentheses "[({<"
	61	"Open parenthesis characters for Scribe.")
	62
	63	(defconst scribe-close-parentheses "])}>"
33b4a308 CZ	64	"Close parenthesis characters for Scribe.
33b4a308 CZ	65	These should match up with `scribe-open-parenthesis'.")
248b25a4 RS	66
	67	(if (null scribe-mode-syntax-table)
	68	(let ((st (syntax-table)))
	69	(unwind-protect
	70	(progn
	71	(setq scribe-mode-syntax-table (copy-syntax-table
	72	text-mode-syntax-table))
	73	(set-syntax-table scribe-mode-syntax-table)
	74	(modify-syntax-entry ?\" " ")
	75	(modify-syntax-entry ?\\ " ")
	76	(modify-syntax-entry ?@ "w ")
	77	(modify-syntax-entry ?< "(> ")
	78	(modify-syntax-entry ?> ")< ")
	79	(modify-syntax-entry ?[ "(] ")
	80	(modify-syntax-entry ?] ")[ ")
	81	(modify-syntax-entry ?{ "(} ")
	82	(modify-syntax-entry ?} "){ ")
	83	(modify-syntax-entry ?' "w "))
	84	(set-syntax-table st))))
	85
	86	(defvar scribe-mode-map nil)
	87
	88	(if scribe-mode-map
	89	nil
	90	(setq scribe-mode-map (make-sparse-keymap))
	91	(define-key scribe-mode-map "\t" 'scribe-tab)
	92	(define-key scribe-mode-map "\e\t" 'tab-to-tab-stop)
	93	(define-key scribe-mode-map "\es" 'center-line)
	94	(define-key scribe-mode-map "\e}" 'up-list)
	95	(define-key scribe-mode-map "\eS" 'center-paragraph)
	96	(define-key scribe-mode-map "\"" 'scribe-insert-quote)
	97	(define-key scribe-mode-map "(" 'scribe-parenthesis)
	98	(define-key scribe-mode-map "[" 'scribe-parenthesis)
	99	(define-key scribe-mode-map "{" 'scribe-parenthesis)
	100	(define-key scribe-mode-map "<" 'scribe-parenthesis)
38cee3ab KH	101	(define-key scribe-mode-map "\C-c\C-c" 'scribe-chapter)
	102	(define-key scribe-mode-map "\C-c\C-t" 'scribe-section)
	103	(define-key scribe-mode-map "\C-c\C-s" 'scribe-subsection)
	104	(define-key scribe-mode-map "\C-c\C-v" 'scribe-insert-environment)
	105	(define-key scribe-mode-map "\C-c\C-e" 'scribe-bracket-region-be)
	106	(define-key scribe-mode-map "\C-c[" 'scribe-begin)
	107	(define-key scribe-mode-map "\C-c]" 'scribe-end)
	108	(define-key scribe-mode-map "\C-c\C-i" 'scribe-italicize-word)
	109	(define-key scribe-mode-map "\C-c\C-b" 'scribe-bold-word)
	110	(define-key scribe-mode-map "\C-c\C-u" 'scribe-underline-word))
248b25a4	111
f9f9507e	112	;;;###autoload
248b25a4 RS	113	(defun scribe-mode ()
248b25a4 RS	114	"Major mode for editing files of Scribe (a text formatter) source.
a3f8903e	115	Scribe-mode is similar to text-mode, with a few extra commands added.
248b25a4 RS	116	\\{scribe-mode-map}
	117
	118	Interesting variables:
	119
	120	scribe-fancy-paragraphs
	121	Non-nil makes Scribe mode use a different style of paragraph separation.
	122
	123	scribe-electric-quote
	124	Non-nil makes insert of double quote use `` or '' depending on context.
	125
	126	scribe-electric-parenthesis
	127	Non-nil makes an open-parenthesis char (one of `([<{')
	128	automatically insert its close if typed after an @Command form."
	129	(interactive)
	130	(kill-all-local-variables)
	131	(use-local-map scribe-mode-map)
	132	(setq mode-name "Scribe")
	133	(setq major-mode 'scribe-mode)
	134	(define-abbrev-table 'scribe-mode-abbrev-table ())
	135	(setq local-abbrev-table scribe-mode-abbrev-table)
	136	(make-local-variable 'comment-start)
	137	(setq comment-start "@Comment[")
	138	(make-local-variable 'comment-start-skip)
	139	(setq comment-start-skip (concat "@Comment[" scribe-open-parentheses "]"))
	140	(make-local-variable 'comment-column)
	141	(setq comment-column 0)
	142	(make-local-variable 'comment-end)
	143	(setq comment-end "]")
	144	(make-local-variable 'paragraph-start)
690bc320	145	(setq paragraph-start (concat "\\([\n\f]\\)\\\|\\(@\\w+["
248b25a4 RS	146	scribe-open-parentheses
	147	"].*["
	148	scribe-close-parentheses
	149	"]$\\)"))
	150	(make-local-variable 'paragraph-separate)
	151	(setq paragraph-separate (if scribe-fancy-paragraphs
690bc320	152	paragraph-start "$"))
346169bf RS	153	(make-local-variable 'sentence-end)
346169bf RS	154	(setq sentence-end "\\([.?!]\\\|@:\\)[]\"')}]\\($\\\| $\\\|\t\\\| \\)[ \t\n]")
248b25a4 RS	155	(make-local-variable 'compile-command)
	156	(setq compile-command (concat "scribe " (buffer-file-name)))
	157	(set-syntax-table scribe-mode-syntax-table)
	158	(run-hooks 'text-mode-hook 'scribe-mode-hook))
	159
	160	(defun scribe-tab ()
	161	(interactive)
	162	(insert "@\\"))
	163
	164	;; This algorithm could probably be improved somewhat.
	165	;; Right now, it loses seriously...
	166
	167	(defun scribe ()
	168	"Run Scribe on the current buffer."
	169	(interactive)
	170	(call-interactively 'compile))
	171
	172	(defun scribe-envelop-word (string count)
33b4a308 CZ	173	"Surround current word with Scribe construct @STRING[...].
	174	COUNT specifies how many words to surround. A negative count means
	175	to skip backward."
248b25a4 RS	176	(let ((spos (point)) (epos (point)) (ccoun 0) noparens)
	177	(if (not (zerop count))
	178	(progn (if (= (char-syntax (preceding-char)) ?w)
	179	(forward-sexp (min -1 count)))
	180	(setq spos (point))
	181	(if (looking-at (concat "@\\w[" scribe-open-parentheses "]"))
	182	(forward-char 2)
	183	(goto-char epos)
	184	(skip-chars-backward "\\W")
	185	(forward-char -1))
	186	(forward-sexp (max count 1))
	187	(setq epos (point))))
	188	(goto-char spos)
	189	(while (and (< ccoun (length scribe-open-parentheses))
	190	(save-excursion
	191	(or (search-forward (char-to-string
	192	(aref scribe-open-parentheses ccoun))
	193	epos t)
	194	(search-forward (char-to-string
	195	(aref scribe-close-parentheses ccoun))
	196	epos t)))
	197	(setq ccoun (1+ ccoun))))
	198	(if (>= ccoun (length scribe-open-parentheses))
	199	(progn (goto-char epos)
	200	(insert "@end(" string ")")
	201	(goto-char spos)
	202	(insert "@begin(" string ")"))
	203	(goto-char epos)
	204	(insert (aref scribe-close-parentheses ccoun))
	205	(goto-char spos)
	206	(insert "@" string (aref scribe-open-parentheses ccoun))
	207	(goto-char epos)
	208	(forward-char 3)
	209	(skip-chars-forward scribe-close-parentheses))))
	210
	211	(defun scribe-underline-word (count)
	212	"Underline COUNT words around point by means of Scribe constructs."
	213	(interactive "p")
	214	(scribe-envelop-word "u" count))
	215
	216	(defun scribe-bold-word (count)
	217	"Boldface COUNT words around point by means of Scribe constructs."
	218	(interactive "p")
	219	(scribe-envelop-word "b" count))
	220
	221	(defun scribe-italicize-word (count)
	222	"Italicize COUNT words around point by means of Scribe constructs."
	223	(interactive "p")
	224	(scribe-envelop-word "i" count))
	225
	226	(defun scribe-begin ()
	227	(interactive)
	228	(insert "\n")
	229	(forward-char -1)
	230	(scribe-envelop-word "Begin" 0)
	231	(re-search-forward (concat "[" scribe-open-parentheses "]")))
	232
	233	(defun scribe-end ()
	234	(interactive)
	235	(insert "\n")
	236	(forward-char -1)
	237	(scribe-envelop-word "End" 0)
	238	(re-search-forward (concat "[" scribe-open-parentheses "]")))
	239
240	(defun scribe-chapter ()
241	(interactive)
242	(insert "\n")
243	(forward-char -1)
244	(scribe-envelop-word "Chapter" 0)
245	(re-search-forward (concat "[" scribe-open-parentheses "]")))
246
247	(defun scribe-section ()
248	(interactive)
249	(insert "\n")
250	(forward-char -1)
251	(scribe-envelop-word "Section" 0)
252	(re-search-forward (concat "[" scribe-open-parentheses "]")))
253
254	(defun scribe-subsection ()
255	(interactive)
256	(insert "\n")
257	(forward-char -1)
258	(scribe-envelop-word "SubSection" 0)
259	(re-search-forward (concat "[" scribe-open-parentheses "]")))
260
261	(defun scribe-bracket-region-be (env min max)
262	(interactive "sEnvironment: \nr")
263	(save-excursion
264	(goto-char max)
265	(insert "@end(" env ")\n")
266	(goto-char min)
267	(insert "@begin(" env ")\n")))
268
269	(defun scribe-insert-environment (env)
270	(interactive "sEnvironment: ")
271	(scribe-bracket-region-be env (point) (point))
272	(forward-line 1)
273	(insert ?\n)
274	(forward-char -1))
275
276	(defun scribe-insert-quote (count)
33b4a308 CZ	277	"Insert ``, '' or \" according to preceding character.
33b4a308 CZ	278	If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according
248b25a4 RS	279	to preceding character. With numeric arg N, always insert N \" characters.
	280	Else just insert \"."
	281	(interactive "P")
	282	(if (or count (not scribe-electric-quote))
	283	(self-insert-command (prefix-numeric-value count))
	284	(let (lastfore lastback lastquote)
	285	(insert
	286	(cond
	287	((= (preceding-char) ?\\) ?\")
	288	((bobp) "``")
	289	(t
	290	(setq lastfore (save-excursion (and (search-backward
	291	"``" (- (point) 1000) t)
	292	(point)))
	293	lastback (save-excursion (and (search-backward
	294	"''" (- (point) 1000) t)
	295	(point)))
	296	lastquote (save-excursion (and (search-backward
	297	"\"" (- (point) 100) t)
	298	(point))))
	299	(if (not lastquote)
	300	(cond ((not lastfore) "``")
	301	((not lastback) "''")
	302	((> lastfore lastback) "''")
	303	(t "``"))
	304	(cond ((and (not lastback) (not lastfore)) "\"")
	305	((and lastback (not lastfore) (> lastquote lastback)) "\"")
	306	((and lastback (not lastfore) (> lastback lastquote)) "``")
	307	((and lastfore (not lastback) (> lastquote lastfore)) "\"")
	308	((and lastfore (not lastback) (> lastfore lastquote)) "''")
	309	((and (> lastquote lastfore) (> lastquote lastback)) "\"")
	310	((> lastfore lastback) "''")
	311	(t "``")))))))))
	312
	313	(defun scribe-parenthesis (count)
	314	"If scribe-electric-parenthesis is non-NIL, insertion of an open-parenthesis
	315	character inserts the following close parenthesis character if the
	316	preceding text is of the form @Command."
	317	(interactive "P")
	318	(self-insert-command (prefix-numeric-value count))
	319	(let (at-command paren-char point-save)
	320	(if (or count (not scribe-electric-parenthesis))
	321	nil
	322	(save-excursion
	323	(forward-char -1)
	324	(setq point-save (point))
	325	(skip-chars-backward (concat "^ \n\t\f" scribe-open-parentheses))
	326	(setq at-command (and (equal (following-char) ?@)
	327	(/= (point) (1- point-save)))))
	328	(if (and at-command
	329	(setq paren-char
	330	(string-match (regexp-quote
	331	(char-to-string (preceding-char)))
	332	scribe-open-parentheses)))
	333	(save-excursion
	334	(insert (aref scribe-close-parentheses paren-char)))))))
c88ab9ce	335
896546cd RS	336	(provide 'scribe)
896546cd RS	337
c88ab9ce	338	;;; scribe.el ends here