annotate lisp/textmodes/scribe.el @ 44768:f362c792ede0

(menu-bar-update-buffers): Add `Select Named Buffer'. Add separator line before commands Remove old crufty code that tried to line things up by adding spaces to entries (it doesn't work). Move `Frames' submenu after the normal buffers, and add a separator line before it. (menu-bar-buffers-menu-list-buffers-entry): Variable removed.
author Miles Bader <miles@gnu.org>
date Tue, 23 Apr 2002 05:01:50 +0000
parents 7308bbc423d5
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38412
253f761ad37b Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents: 26433
diff changeset
1 ;;; scribe.el --- scribe mode, and its idiosyncratic commands
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
2
845
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 789
diff changeset
3 ;; Copyright (C) 1985 Free Software Foundation, Inc.
213978acbc1e entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 789
diff changeset
4
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
5 ;; Maintainer: FSF
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 1539
diff changeset
6 ;; Keywords: wp
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
10460
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
8 ;; This file is part of GNU Emacs.
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
9
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
13 ;; any later version.
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
10460
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
18 ;; GNU General Public License for more details.
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
10460
b2e37a1d2347 (scribe-mode): Treat @: as a sentence end.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
20 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11664
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11664
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 11664
diff changeset
23 ;; Boston, MA 02111-1307, USA.
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
2315
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
25 ;;; Commentary:
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
26
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
27 ;; A major mode for editing source in written for the Scribe text formatter.
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
28 ;; Knows about Scribe syntax and standard layout rules. The command to
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
29 ;; run Scribe on a buffer is bogus; someone interested should fix it.
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2247
diff changeset
30
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 658
diff changeset
31 ;;; Code:
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
33 (defgroup scribe nil
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
34 "Scribe mode."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
35 :prefix "scribe-"
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
36 :group 'wp)
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
37
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 (defvar scribe-mode-syntax-table nil
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 "Syntax table used while in scribe mode.")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 (defvar scribe-mode-abbrev-table nil
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 "Abbrev table used while in scribe mode.")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
44 (defcustom scribe-fancy-paragraphs nil
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 39893
diff changeset
45 "*Non-nil makes Scribe mode use a different style of paragraph separation."
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
46 :type 'boolean
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
47 :group 'scribe)
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
49 (defcustom scribe-electric-quote nil
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 39893
diff changeset
50 "*Non-nil makes insert of double quote use `` or '' depending on context."
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
51 :type 'boolean
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
52 :group 'scribe)
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
54 (defcustom scribe-electric-parenthesis nil
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 39893
diff changeset
55 "*Non-nil makes parenthesis char ( (]}> ) automatically insert its close
20959
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
56 if typed after an @Command form."
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
57 :type 'boolean
9b831f34ff7d Customized.
Stephen Eglen <stephen@gnu.org>
parents: 18383
diff changeset
58 :group 'scribe)
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 (defconst scribe-open-parentheses "[({<"
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 "Open parenthesis characters for Scribe.")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63 (defconst scribe-close-parentheses "])}>"
1539
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
64 "Close parenthesis characters for Scribe.
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
65 These should match up with `scribe-open-parenthesis'.")
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 (if (null scribe-mode-syntax-table)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 (let ((st (syntax-table)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 (unwind-protect
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 (progn
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (setq scribe-mode-syntax-table (copy-syntax-table
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 text-mode-syntax-table))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 (set-syntax-table scribe-mode-syntax-table)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 (modify-syntax-entry ?\" " ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 (modify-syntax-entry ?\\ " ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 (modify-syntax-entry ?@ "w ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 (modify-syntax-entry ?< "(> ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 (modify-syntax-entry ?> ")< ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 (modify-syntax-entry ?[ "(] ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 (modify-syntax-entry ?] ")[ ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 (modify-syntax-entry ?{ "(} ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 (modify-syntax-entry ?} "){ ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 (modify-syntax-entry ?' "w "))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 (set-syntax-table st))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 (defvar scribe-mode-map nil)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88 (if scribe-mode-map
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 nil
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 (setq scribe-mode-map (make-sparse-keymap))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 (define-key scribe-mode-map "\t" 'scribe-tab)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 (define-key scribe-mode-map "\e\t" 'tab-to-tab-stop)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 (define-key scribe-mode-map "\es" 'center-line)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 (define-key scribe-mode-map "\e}" 'up-list)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 (define-key scribe-mode-map "\eS" 'center-paragraph)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 (define-key scribe-mode-map "\"" 'scribe-insert-quote)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 (define-key scribe-mode-map "(" 'scribe-parenthesis)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 (define-key scribe-mode-map "[" 'scribe-parenthesis)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 (define-key scribe-mode-map "{" 'scribe-parenthesis)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 (define-key scribe-mode-map "<" 'scribe-parenthesis)
11664
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
101 (define-key scribe-mode-map "\C-c\C-c" 'scribe-chapter)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
102 (define-key scribe-mode-map "\C-c\C-t" 'scribe-section)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
103 (define-key scribe-mode-map "\C-c\C-s" 'scribe-subsection)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
104 (define-key scribe-mode-map "\C-c\C-v" 'scribe-insert-environment)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
105 (define-key scribe-mode-map "\C-c\C-e" 'scribe-bracket-region-be)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
106 (define-key scribe-mode-map "\C-c[" 'scribe-begin)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
107 (define-key scribe-mode-map "\C-c]" 'scribe-end)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
108 (define-key scribe-mode-map "\C-c\C-i" 'scribe-italicize-word)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
109 (define-key scribe-mode-map "\C-c\C-b" 'scribe-bold-word)
966c6625a963 (scribe-chapter): Change to C-c C-c.
Karl Heuer <kwzh@gnu.org>
parents: 10893
diff changeset
110 (define-key scribe-mode-map "\C-c\C-u" 'scribe-underline-word))
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111
258
1e0bc00dca7a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 7
diff changeset
112 ;;;###autoload
39893
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
113 (define-derived-mode scribe-mode text-mode "Scribe"
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 "Major mode for editing files of Scribe (a text formatter) source.
26433
3e37953dc2d5 (scribe-mode): Doc-fix.
Gerd Moellmann <gerd@gnu.org>
parents: 20959
diff changeset
115 Scribe-mode is similar to text-mode, with a few extra commands added.
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 \\{scribe-mode-map}
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 Interesting variables:
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119
39893
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
120 `scribe-fancy-paragraphs'
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 Non-nil makes Scribe mode use a different style of paragraph separation.
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122
39893
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
123 `scribe-electric-quote'
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 Non-nil makes insert of double quote use `` or '' depending on context.
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125
39893
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
126 `scribe-electric-parenthesis'
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 Non-nil makes an open-parenthesis char (one of `([<{')
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 automatically insert its close if typed after an @Command form."
39893
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
129 (set (make-local-variable 'comment-start) "@Comment[")
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
130 (set (make-local-variable 'comment-start-skip) (concat "@Comment[" scribe-open-parentheses "]"))
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
131 (set (make-local-variable 'comment-column) 0)
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
132 (set (make-local-variable 'comment-end) "]")
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
133 (set (make-local-variable 'paragraph-start)
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
134 (concat "\\([\n\f]\\)\\|\\(@\\w+["
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
135 scribe-open-parentheses
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
136 "].*["
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
137 scribe-close-parentheses
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
138 "]$\\)"))
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
139 (set (make-local-variable 'paragraph-separate)
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
140 (if scribe-fancy-paragraphs paragraph-start "$"))
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
141 (set (make-local-variable 'sentence-end)
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
142 "\\([.?!]\\|@:\\)[]\"')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*")
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
143 (set (make-local-variable 'compile-command)
942e743c5598 (scribe-mode): Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 38412
diff changeset
144 (concat "scribe " (buffer-file-name))))
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 (defun scribe-tab ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 (insert "@\\"))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 ;; This algorithm could probably be improved somewhat.
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151 ;; Right now, it loses seriously...
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 (defun scribe ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 "Run Scribe on the current buffer."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 (call-interactively 'compile))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 (defun scribe-envelop-word (string count)
1539
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
159 "Surround current word with Scribe construct @STRING[...].
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
160 COUNT specifies how many words to surround. A negative count means
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
161 to skip backward."
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 (let ((spos (point)) (epos (point)) (ccoun 0) noparens)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 (if (not (zerop count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 (progn (if (= (char-syntax (preceding-char)) ?w)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 (forward-sexp (min -1 count)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 (setq spos (point))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 (if (looking-at (concat "@\\w[" scribe-open-parentheses "]"))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (forward-char 2)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 (goto-char epos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 (skip-chars-backward "\\W")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 (forward-char -1))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 (forward-sexp (max count 1))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 (setq epos (point))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 (goto-char spos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (while (and (< ccoun (length scribe-open-parentheses))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 (save-excursion
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 (or (search-forward (char-to-string
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 (aref scribe-open-parentheses ccoun))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 epos t)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180 (search-forward (char-to-string
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 (aref scribe-close-parentheses ccoun))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
182 epos t)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 (setq ccoun (1+ ccoun))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 (if (>= ccoun (length scribe-open-parentheses))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 (progn (goto-char epos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 (insert "@end(" string ")")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 (goto-char spos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 (insert "@begin(" string ")"))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 (goto-char epos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 (insert (aref scribe-close-parentheses ccoun))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191 (goto-char spos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 (insert "@" string (aref scribe-open-parentheses ccoun))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (goto-char epos)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 (forward-char 3)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
195 (skip-chars-forward scribe-close-parentheses))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 (defun scribe-underline-word (count)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 "Underline COUNT words around point by means of Scribe constructs."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 (interactive "p")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 (scribe-envelop-word "u" count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 (defun scribe-bold-word (count)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 "Boldface COUNT words around point by means of Scribe constructs."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 (interactive "p")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 (scribe-envelop-word "b" count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 (defun scribe-italicize-word (count)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 "Italicize COUNT words around point by means of Scribe constructs."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 (interactive "p")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 (scribe-envelop-word "i" count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 (defun scribe-begin ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 (insert "\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216 (scribe-envelop-word "Begin" 0)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 (re-search-forward (concat "[" scribe-open-parentheses "]")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 (defun scribe-end ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 (insert "\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 (scribe-envelop-word "End" 0)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
224 (re-search-forward (concat "[" scribe-open-parentheses "]")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 (defun scribe-chapter ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 (insert "\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230 (scribe-envelop-word "Chapter" 0)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 (re-search-forward (concat "[" scribe-open-parentheses "]")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 (defun scribe-section ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 (insert "\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 (scribe-envelop-word "Section" 0)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 (re-search-forward (concat "[" scribe-open-parentheses "]")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 (defun scribe-subsection ()
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 (interactive)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 (insert "\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 (scribe-envelop-word "SubSection" 0)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 (re-search-forward (concat "[" scribe-open-parentheses "]")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 (defun scribe-bracket-region-be (env min max)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (interactive "sEnvironment: \nr")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 (save-excursion
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 (goto-char max)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 (insert "@end(" env ")\n")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 (goto-char min)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (insert "@begin(" env ")\n")))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 (defun scribe-insert-environment (env)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 (interactive "sEnvironment: ")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 (scribe-bracket-region-be env (point) (point))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 (forward-line 1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (insert ?\n)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 (forward-char -1))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 (defun scribe-insert-quote (count)
1539
5677f906bf78 Dox fix.
Christopher Zaborsky <rogue@erratum.com>
parents: 845
diff changeset
263 "Insert ``, '' or \" according to preceding character.
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 39893
diff changeset
264 If `scribe-electric-quote' is non-nil, insert ``, '' or \" according
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 to preceding character. With numeric arg N, always insert N \" characters.
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 Else just insert \"."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (interactive "P")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (if (or count (not scribe-electric-quote))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 (self-insert-command (prefix-numeric-value count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (let (lastfore lastback lastquote)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 (insert
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (cond
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 ((= (preceding-char) ?\\) ?\")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 ((bobp) "``")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (t
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (setq lastfore (save-excursion (and (search-backward
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 "``" (- (point) 1000) t)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 (point)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279 lastback (save-excursion (and (search-backward
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 "''" (- (point) 1000) t)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 (point)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 lastquote (save-excursion (and (search-backward
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 "\"" (- (point) 100) t)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 (point))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 (if (not lastquote)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 (cond ((not lastfore) "``")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 ((not lastback) "''")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 ((> lastfore lastback) "''")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 (t "``"))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 (cond ((and (not lastback) (not lastfore)) "\"")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 ((and lastback (not lastfore) (> lastquote lastback)) "\"")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 ((and lastback (not lastfore) (> lastback lastquote)) "``")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 ((and lastfore (not lastback) (> lastquote lastfore)) "\"")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 ((and lastfore (not lastback) (> lastfore lastquote)) "''")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 ((and (> lastquote lastfore) (> lastquote lastback)) "\"")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 ((> lastfore lastback) "''")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 (t "``")))))))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 (defun scribe-parenthesis (count)
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 39893
diff changeset
300 "If scribe-electric-parenthesis is non-nil, insertion of an open-parenthesis
7
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 character inserts the following close parenthesis character if the
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 preceding text is of the form @Command."
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 (interactive "P")
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 (self-insert-command (prefix-numeric-value count))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 (let (at-command paren-char point-save)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 (if (or count (not scribe-electric-parenthesis))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307 nil
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 (save-excursion
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 (forward-char -1)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 (setq point-save (point))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311 (skip-chars-backward (concat "^ \n\t\f" scribe-open-parentheses))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 (setq at-command (and (equal (following-char) ?@)
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 (/= (point) (1- point-save)))))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 (if (and at-command
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 (setq paren-char
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 (string-match (regexp-quote
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 (char-to-string (preceding-char)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 scribe-open-parentheses)))
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 (save-excursion
9a0ef3f9c6aa Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 (insert (aref scribe-close-parentheses paren-char)))))))
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
321
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
322 (provide 'scribe)
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
323
658
7cbd4fcd8b0f *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 258
diff changeset
324 ;;; scribe.el ends here