![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to bibtex.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp|
Return to bibtex.el CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp |
1.1 root 1: ;;; Simple BibTeX mode for GNU Emacs
2: ;;; Bengt Martensson 87-06-28
3: ;;; changes by Marc Shapiro [email protected] 15-oct-1986
4: ;;; (align long lines nicely; C-c C-o checks for the "OPT" string;
5: ;;; TAB goes to the end of the string; use lower case; use
6: ;;; run-hooks)
7: ;;; Marc Shapiro 19-oct-1987
8: ;;; add X window menu option; bug fixes. TAB, LFD, C-c " and C-c C-o now
9: ;;; behave consistently; deletion never occurs blindly.
10: ;;; Marc Shapiro 3-nov-87
11: ;;; addition for France: DEAthesis
12: ;;; Skip Montanaro <steinmetz!sprite!montanaro> 7-dec-87, Shapiro 10-dec-87
13: ;;; before inserting an entry, make sure we are outside of a bib entry
14: ;;; Marc Shapiro 14-dec-87
15: ;;; Cosmetic fixes. Fixed small bug in bibtex-move-outside-of-entry.
16:
17: ;;; NOTE by Marc Shapiro, 14-dec-87:
18: ;;; (bibtex-x-environment) binds an X menu for bibtex mode to x-button-c-right.
19: ;;; Trouble is, in Emacs 18.44 you can't have a mode-specific mouse binding,
20: ;;; so it will remain active in all windows. Yuck!
21:
22: ;;; Bengt Martensson 88-05-06:
23: ;;; Added Sun menu support. Locally bound to right mouse button in
24: ;;; bibtex-mode. Emacs 18.49 allows local mouse bindings!!
25: ;;; Commented out vtxxx-keys and DEAthesis. Changed documentation slightly.
26:
27: (defvar bibtex-mode-syntax-table nil "")
28: (defvar bibtex-mode-abbrev-table nil "")
29: (define-abbrev-table 'bibtex-mode-abbrev-table ())
30: (defvar bibtex-mode-map (make-sparse-keymap) "")
31:
32: (defun bibtex-mode ()
33: "Major mode for editing bibtex files. Commands:
34: \\{bibtex-mode-map}
35:
36: A command such as \\[bibtex-Book] will outline the fields for a BibTeX
37: book entry.
38:
39: The optional fields are preceded by ""OPT"", thus ignored by BibTeX.
40: Use \\[bibtex-remove-opt] to remove ""OPT"" on the current line.
41:
42: Use \\[bibtex-find-it] to position the dot at the end of the string on the same line.
43: Use \\[bibtex-next-position] to move to the next position to fill in. Use \\[kill-current-line]
44: to kill the whole line.
45:
46: M-x bibtex-x-environment binds a mode-specific X menu to control+right
47: mouse button.
48: M-x bibtex-sun-environment binds a mode-specific Sun menu to right
49: mouse button.
50:
51: Fields:
52: address
53: Publisher's address
54: annote
55: Long annotation used for annotated bibliographies (begins sentence)
56: author
57: Name(s) of author(s), in BibTeX name format
58: booktitle
59: Book title when the thing being referenced isn't the whole book.
60: For book entries, the title field should be used instead.
61: chapter
62: Chapter number
63: edition
64: Edition of a book (e.g., ""second"")
65: editor
66: Name(s) of editor(s), in BibTeX name format.
67: If there is also an author field, then the editor field should be
68: for the book or collection that the work appears in
69: howpublished
70: How something strange has been published (begins sentence)
71: institution
72: Sponsoring institution
73: journal
74: Journal name (macros are provided for many)
75: key
76: Alphabetizing and labeling key (needed when no author or editor)
77: month
78: Month (macros are provided)
79: note
80: To help the reader find a reference (begins sentence)
81: number
82: Number of a journal or technical report
83: organization
84: Organization (sponsoring a conference)
85: pages
86: Page number or numbers (use `--' to separate a range)
87: publisher
88: Publisher name
89: school
90: School name (for theses)
91: series
92: The name of a series or set of books.
93: An individual book will will also have it's own title
94: title
95: The title of the thing being referenced
96: type
97: Type of a Techreport (e.g., ""Research Note"") to be used instead of
98: the default ""Technical Report""
99: volume
100: Volume of a journal or multivolume work
101: year
102: Year---should contain only numerals
103: ---------------------------------------------------------
104: Entry to this mode calls the value of bibtex-mode-hook
105: if that value is non-nil."
106: (interactive)
107: (kill-all-local-variables)
108: (if (not bibtex-mode-syntax-table)
109: (setq bibtex-mode-syntax-table (copy-syntax-table)))
110: (set-syntax-table bibtex-mode-syntax-table)
111: (modify-syntax-entry ?\$ "$$ ")
112: (modify-syntax-entry ?\% "< ")
113: (modify-syntax-entry ?\f "> ")
114: (modify-syntax-entry ?\n "> ")
115: (modify-syntax-entry ?' "w ")
116: (modify-syntax-entry ?@ "w ")
117: (use-local-map bibtex-mode-map)
118: (setq major-mode 'bibtex-mode)
119:
120:
121: (setq mode-name "BibTeX")
122: (set-syntax-table bibtex-mode-syntax-table)
123: (setq local-abbrev-table bibtex-mode-abbrev-table)
124: (make-local-variable 'paragraph-start)
125: (setq paragraph-start "^[ \f\n\t]*$")
126:
127: (define-key bibtex-mode-map "\t" 'bibtex-find-it)
128: (define-key bibtex-mode-map "\n" 'bibtex-next-position)
129: ;;(define-key bibtex-mode-map "\e[25~" 'bibtex-next-position)
130: (define-key bibtex-mode-map "\C-c\"" 'bibtex-remove-double-quotes)
131: ;;(define-key bibtex-mode-map "\C-c\eOS" 'kill-current-line)
132: (define-key bibtex-mode-map "\C-c\C-k" 'kill-current-line)
133: (define-key bibtex-mode-map "\C-c\C-a" 'bibtex-Article)
134: (define-key bibtex-mode-map "\C-c\C-b" 'bibtex-Book)
135: ;;(define-key bibtex-mode-map "\C-c\C-d" 'bibtex-DEAthesis)
136: (define-key bibtex-mode-map "\C-c\C-c" 'bibtex-InProceedings)
137: (define-key bibtex-mode-map "\C-c\C-i" 'bibtex-InBook)
138: (define-key bibtex-mode-map "\C-ci" 'bibtex-InCollection)
139: (define-key bibtex-mode-map "\C-cI" 'bibtex-InProceedings)
140: (define-key bibtex-mode-map "\C-c\C-m" 'bibtex-Manual)
141: (define-key bibtex-mode-map "\C-cm" 'bibtex-MastersThesis)
142: (define-key bibtex-mode-map "\C-cM" 'bibtex-Misc)
143: (define-key bibtex-mode-map "\C-c\C-o" 'bibtex-remove-opt)
144: (define-key bibtex-mode-map "\C-c\C-p" 'bibtex-PhdThesis)
145: (define-key bibtex-mode-map "\C-cp" 'bibtex-Proceedings)
146: (define-key bibtex-mode-map "\C-c\C-t" 'bibtex-TechReport)
147: (define-key bibtex-mode-map "\C-c\C-s" 'bibtex-string)
148: (define-key bibtex-mode-map "\C-c\C-u" 'bibtex-Unpublished)
149: (define-key bibtex-mode-map "\C-c?" 'describe-mode)
150:
151: ; nice alignements
152: (auto-fill-mode 1)
153: (setq left-margin 17)
154:
155: (run-hooks 'bibtex-mode-hook))
156:
157: (defun bibtex-move-outside-of-entry ()
158: "Make sure we are outside of a bib entry"
159: (if (or
160: (= (point) (point-max))
161: (= (point) (point-min))
162: (looking-at "[ \n]*@")
163: )
164: t
165: (progn
166: (backward-paragraph)
167: (forward-paragraph)))
168: (re-search-forward "[ \t\n]*" (point-max) t))
169:
170: (defun bibtex-entry (entry-type required optional)
171: (bibtex-move-outside-of-entry)
172: (insert (concat "@" entry-type "{,\n\n}\n\n"))
173: (previous-line 3)
174: (insert (mapconcat 'bibtex-make-entry required ",\n"))
175: (if required (insert ",\n"))
176: (insert (mapconcat 'bibtex-make-opt-entry optional ",\n"))
177: (up-list -1)
178: (forward-char 1))
179:
180: (defun bibtex-make-entry (str)
181: (interactive "s")
182: (concat " " str " = \t"""""))
183:
184: (defun bibtex-make-opt-entry (str)
185: (interactive "s")
186: (concat " OPT" str " = \t"""""))
187:
188: (defun bibtex-Article ()
189: (interactive)
190: (bibtex-entry "Article" '("author" "title" "journal" "year")
191: '("volume" "number" "pages" "month" "note")))
192:
193: (defun bibtex-Book ()
194: (interactive)
195: (bibtex-entry "Book" '("author" "title" "publisher" "year")
196: '("editor" "volume" "series" "address"
197: "edition" "month" "note")))
198:
199: (defun bibtex-Booklet ()
200: (interactive)
201: (bibtex-entry "Booklet" '("title")
202: '("author" "howpublished" "address" "month" "year" "note")))
203:
204: ;;; France: Dipl\^{o}me d'Etudes Approfondies (similar to Master's)
205: ;(defun bibtex-DEAthesis ()
206: ; (interactive)
207: ; (bibtex-entry "DEAthesis" '("author" "title" "school" "year")
208: ; '("address" "month" "note")))
209:
210: (defun bibtex-InBook ()
211: (interactive)
212: (bibtex-entry "InBook" '("author" "title" "chapter" "publisher" "year")
213: '("editor" "pages" "volume" "series" "address"
214: "edition" "month" "note")))
215:
216: (defun bibtex-InCollection ()
217: (interactive)
218: (bibtex-entry "InCollection" '("author" "title" "booktitle"
219: "publisher" "year")
220: '("editor" "chapter" "pages" "address" "month" "note")))
221:
222:
223: (defun bibtex-InProceedings ()
224: (interactive)
225: (bibtex-entry "InProceedings" '("author" "title" "booktitle" "year")
226: '("editor" "pages" "organization" "publisher"
227: "address" "month" "note")))
228:
229: (defun bibtex-Manual ()
230: (interactive)
231: (bibtex-entry "Manual" '("title")
232: '("author" "organization" "address" "edition" "year"
233: "month" "note")))
234:
235: (defun bibtex-MastersThesis ()
236: (interactive)
237: (bibtex-entry "MastersThesis" '("author" "title" "school" "year")
238: '("address" "month" "note")))
239:
240: (defun bibtex-Misc ()
241: (interactive)
242: (bibtex-entry "Misc" '()
243: '("author" "title" "howpublished" "year" "month" "note")))
244:
245: (defun bibtex-PhdThesis ()
246: (interactive)
247: (bibtex-entry "PhDThesis" '("author" "title" "school" "year")
248: '("address" "month" "note")))
249:
250: (defun bibtex-Proceedings ()
251: (interactive)
252: (bibtex-entry "Proceedings" '("title" "year")
253: '("editor" "publisher" "organization"
254: "address" "month" "note")))
255: (defun bibtex-TechReport ()
256: (interactive)
257: (bibtex-entry "TechReport" '("author" "title" "institution" "year")
258: '("type" "number" "address" "month" "note")))
259:
260:
261: (defun bibtex-Unpublished ()
262: (interactive)
263: (bibtex-entry "Unpublished" '("author" "title" "note")
264: '("year" "month")))
265:
266: (defun bibtex-string ()
267: (interactive)
268: (bibtex-move-outside-of-entry)
269: (insert "@string{ = """"}\n")
270: (previous-line 1)
271: (forward-char 8))
272:
273: (defun bibtex-next-position ()
274: "Finds next position to write in."
275: (interactive)
276: (forward-line 1)
277: (bibtex-find-it))
278:
279: (defun bibtex-find-it ()
280: (interactive)
281: "Find position on current line (if possible) to add entry text."
282: (beginning-of-line)
283: (let ((beg (point)))
284: (end-of-line)
285: (search-backward "," beg t)
286: (backward-char 1)
287: (if (looking-at """")
288: t
289: (forward-char 1))
290: ))
291:
292: (defun bibtex-remove-opt ()
293: "Removes the 'OPT' starting optional arguments."
294: (interactive)
295: (beginning-of-line)
296: (forward-char 2)
297: (if (looking-at "OPT")
298: (delete-char 3))
299: (bibtex-find-it))
300:
301: (defun kill-current-line ()
302: "Kills the current line."
303: (interactive)
304: (beginning-of-line)
305: (kill-line 1))
306:
307: (defun bibtex-remove-double-quotes ()
308: "Removes """" around string."
309: (interactive)
310: (bibtex-find-it)
311: (let
312: ((here (point))
313: (eol (progn (end-of-line) (point))))
314: (beginning-of-line)
315: (if (search-forward """" eol t)
316: (progn
317: (delete-char -1)
318: (if (search-forward """" eol t)
319: (delete-char -1)
320: ))
321: (goto-char here))
322: )
323: )
324:
325:
326: ;;; X window menus for bibtex mode
327:
328: (defun bibtex-x-help (arg)
329: "Mouse commands for BibTeX mode"
330:
331: (let ((selection
332: (x-popup-menu
333: arg
334: '("BibTeX commands"
335: ("Document types"
336: ("article in Conference Proceedings" . bibtex-InProceedings)
337: ("article in journal" . bibtex-Article)
338: ("Book" . bibtex-Book)
339: ("Booklet" . bibtex-Booklet)
340: ("Master's Thesis" . bibtex-MastersThesis)
341: ;;("DEA Thesis" . bibtex-DEAthesis)
342: ("PhD. Thesis" . bibtex-PhdThesis)
343: ("Technical Report" . bibtex-TechReport)
344: ("technical Manual" . bibtex-Manual)
345: ("Conference Proceedings" . bibtex-Proceedings)
346: ("in a Book" . bibtex-InBook)
347: ("in a Collection" . bibtex-InCollection)
348: ("miscellaneous" . bibtex-Misc)
349: ("unpublished" . bibtex-Unpublished)
350: )
351: ("others"
352: ("next field" . bibtex-next-position)
353: ("to end of field" . bibtex-find-it)
354: ("remove OPT" . bibtex-remove-opt)
355: ("remove quotes" . bibtex-remove-double-quotes)
356: ("remove this line" . kill-current-line)
357: ("describe BibTeX mode" . describe-mode)
358: ("string" . bibtex-string))))))
359: (and selection (call-interactively selection))))
360:
361: (defun bibtex-x-environment ()
362: "Set up X menus for BibTeX mode. Call it as bibtex-mode-hook, or interactively"
363: (interactive)
364: (require 'x-mouse)
365: (define-key mouse-map x-button-c-right 'bibtex-x-help)
366: )
367:
368: ;; Please don't send anything to bug-gnu-emacs about these Sunwindows functions
369: ;; since we aren't interested. See etc/SUN-SUPPORT for the reasons why
370: ;; we consider this nothing but a distraction from our work.
371:
372: (defmenu bibtex-sun-entry-menu
373: ("Article In Conf. Proc."
374: (lambda () (eval-in-window *menu-window* (bibtex-InProceedings))))
375: ("Article In Journal"
376: (lambda () (eval-in-window *menu-window* (bibtex-Article))))
377: ("Book"
378: (lambda () (eval-in-window *menu-window* (bibtex-Book))))
379: ("Booklet"
380: (lambda () (eval-in-window *menu-window* (bibtex-Booklet))))
381: ("Master's Thesis"
382: (lambda () (eval-in-window *menu-window* (bibtex-MastersThesis))))
383: ;;("DEA Thesis" bibtex-DEAthesis)
384: ("PhD. Thesis"
385: (lambda () (eval-in-window *menu-window* (bibtex-PhdThesis))))
386: ("Technical Report"
387: (lambda () (eval-in-window *menu-window* (bibtex-TechReport))))
388: ("Technical Manual"
389: (lambda () (eval-in-window *menu-window* (bibtex-Manual))))
390: ("Conference Proceedings"
391: (lambda () (eval-in-window *menu-window* (bibtex-Proceedings))))
392: ("In A Book"
393: (lambda () (eval-in-window *menu-window* (bibtex-InBook))))
394: ("In A Collection"
395: (lambda () (eval-in-window *menu-window* (bibtex-InCollection))))
396: ("Miscellaneous"
397: (lambda () (eval-in-window *menu-window* (bibtex-Misc))))
398: ("Unpublished"
399: (lambda () (eval-in-window *menu-window* (bibtex-Unpublished)))))
400:
401: (defmenu bibtex-sun-menu
402: ("BibTeX menu")
403: ("add entry" . bibtex-sun-entry-menu)
404: ("add string"
405: (lambda () (eval-in-window *menu-window* (bibtex-string))))
406: ;("next field" bibtex-next-position)
407: ;("to end of field" bibtex-find-it)
408: ; ("remove OPT"
409: ; (lambda () (eval-in-window *menu-window* (bibtex-remove-opt))))
410: ; ("remove quotes"
411: ; (lambda () (eval-in-window *menu-window* (bibtex-remove-double-quotes))))
412: ; ("remove this line"
413: ; (lambda () (eval-in-window *menu-window* (kill-current-line))))
414: ("describe BibTeX mode"
415: (lambda () (eval-in-window *menu-window* (describe-mode))))
416: ("Main Emacs menu" . emacs-menu))
417:
418: (defun bibtex-sun-menu-eval (window x y)
419: "Pop-up menu of BibTeX commands."
420: (sun-menu-evaluate window (1+ x) (1- y) 'bibtex-sun-menu))
421:
422: (defun bibtex-sun-environment ()
423: "Set up sun menus for BibTeX mode. Call it as bibtex-mode-hook, or interactively"
424: (interactive)
425: (local-set-mouse '(text right) 'bibtex-sun-menu-eval))
426:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.