Mercurial > emacs
annotate lisp/textmodes/bib-mode.el @ 92409:8171649adf8a
(Quniscribe, QCformat): New symbols.
(syms_of_w32font): Define them.
(w32font_has_char): Indicate uncertainty.
(w32font_encode_char): Encode as glyph point. Make static.
(recompute_cached_metrics): New function.
(w32font_open_internal): Use it. Set font to use glyph points
initially. Set format based on type of font.
(w32font_text_extents, w32font_draw): Optionally use glyph points.
(w32_enumfont_pattern_entity): Accept backend arg. Set type based
on it. Set format based on information available here.
(add_font_entity_to_list): Identify backend based on opentype_only.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Mon, 03 Mar 2008 00:31:18 +0000 |
parents | 107ccd98fa12 |
children | 606f2d163a64 1e3a407766b9 |
rev | line source |
---|---|
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
20959
diff
changeset
|
1 ;;; bib-mode.el --- major mode for editing bib files |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2 |
74509 | 3 ;; Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005, |
79719 | 4 ;; 2006, 2007, 2008 Free Software Foundation, Inc. |
845 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
6 ;; Maintainer: FSF |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
7 ;; Keywords: bib |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
662
diff
changeset
|
8 |
187 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
78225
b6d25790aab2
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
187 | 14 ;; any later version. |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64084 | 23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
24 ;; Boston, MA 02110-1301, USA. | |
187 | 25 |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
26 ;;; Commentary: |
187 | 27 |
28 ;; GNU Emacs code to help maintain databases compatible with (troff) | |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
29 ;; refer and lookbib. The file bib-file should be set to your |
187 | 30 ;; bibliography file. Keys are automagically inserted as you type, |
31 ;; and appropriate keys are presented for various kinds of entries. | |
32 | |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
33 ;;; Code: |
38412
253f761ad37b
Some fixes to follow coding conventions in files maintained by FSF.
Pavel Janík <Pavel@Janik.cz>
parents:
20959
diff
changeset
|
34 |
20959 | 35 (defgroup bib nil |
36 "Major mode for editing bib files." | |
37 :prefix "bib-" | |
52282 | 38 :group 'external |
20959 | 39 :group 'wp) |
2307
10e417efb12a
Added or corrected Commentary sections
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
845
diff
changeset
|
40 |
20959 | 41 (defcustom bib-file "~/my-bibliography.bib" |
42 "Default name of file used by `addbib'." | |
43 :type 'file | |
44 :group 'bib) | |
187 | 45 |
20959 | 46 (defcustom unread-bib-file "~/to-be-read.bib" |
47 "Default name of file used by `unread-bib' in Bib mode." | |
48 :type 'file | |
49 :group 'bib) | |
187 | 50 |
51 (defvar bib-mode-map (copy-keymap text-mode-map)) | |
52 (define-key bib-mode-map "\C-M" 'return-key-bib) | |
53 (define-key bib-mode-map "\C-c\C-u" 'unread-bib) | |
54 (define-key bib-mode-map "\C-c\C-@" 'mark-bib) | |
55 (define-key bib-mode-map "\e`" 'abbrev-mode) | |
56 | |
57 (defun addbib () | |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
58 "Set up editor to add to troff bibliography file specified |
187 | 59 by global variable `bib-file'. See description of `bib-mode'." |
60 (interactive) | |
61 (find-file bib-file) | |
62 (goto-char (point-max)) | |
63 (bib-mode) | |
64 ) | |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
65 |
39896
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
66 (define-derived-mode bib-mode text-mode "Bib" |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
67 "Mode for editing `lookbib' style bibliographies. |
187 | 68 Hit RETURN to get next % field key. |
69 If you want to ignore this field, just hit RETURN again. | |
70 Use `text-mode' to turn this feature off. | |
71 | |
72 journal papers: A* T D J V N P K W X | |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
73 articles in books & proceedings: A* T D B E* I C P K W X |
187 | 74 tech reports: A* T D R I C K W X |
75 books: A* T D I C K W X | |
76 | |
77 Fields: | |
78 | |
79 A uthor T itle D ate J ournal | |
80 V olume N umber P age K eywords | |
81 B in book or proceedings E ditor C ity & state | |
82 I nstitution, school, or publisher | |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
41564
diff
changeset
|
83 R eport number or 'phd thesis' or 'masters thesis' or 'draft' or |
187 | 84 'unnumbered' or 'unpublished' |
85 W here can be found locally (login name, or ailib, etc.) | |
86 X comments (not used in indexing) | |
87 | |
88 \\[unread-bib] appends current entry to a different file (for example, | |
89 a file of papers to be read in the future), given by the value of the | |
90 variable `unread-bib-file'. | |
91 \\[mark-bib] marks current or previous entry. | |
92 Abbreviations are saved in `bib-mode-abbrev-table'. | |
93 Hook can be stored in `bib-mode-hook'. | |
94 Field keys given by variable `bib-assoc'. | |
95 | |
96 Commands: | |
39896
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
97 \\{bib-mode-map}" |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
98 (abbrev-mode 1)) |
187 | 99 |
39896
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
100 (defconst bib-assoc |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
101 '((" *$" . "%A ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
102 ("%A ." . "%A ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
103 ("%A $" . "%T ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
104 ("%T " . "%D ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
105 ("%D " . "%J ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
106 ("%J ." . "%V ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
107 ("%V " . "%N ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
108 ("%N " . "%P ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
109 ("%P " . "%K ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
110 ("%K " . "%W ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
111 ("%W " . "%X ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
112 ("%X " . "") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
113 ("%J $" . "%B ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
114 ("%B ." . "%E ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
115 ("%E ." . "%E ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
116 ("%E $" . "%I ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
117 ("%I " . "%C ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
118 ("%C " . "%P ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
119 ("%B $" . "%R ") |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
120 ("%R " . "%I ")) |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
121 "Describes bibliographic database format. |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
122 A line beginning with the car of an entry is followed by one beginning |
258ac90a4fed
Use define-derived-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38412
diff
changeset
|
123 with the cdr.") |
187 | 124 |
125 (defun bib-find-key (slots) | |
126 (cond | |
127 ((null slots) | |
128 (if (bobp) | |
129 "" | |
85451
e1af3a725ca4
* textmodes/two-column.el (2C-split, 2C-merge):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78225
diff
changeset
|
130 (progn (forward-line -1) (bib-find-key bib-assoc)))) |
187 | 131 ((looking-at (car (car slots))) |
132 (cdr (car slots))) | |
133 (t (bib-find-key (cdr slots))) | |
134 )) | |
135 | |
136 | |
20959 | 137 (defcustom bib-auto-capitalize t |
138 "*True to automatically capitalize appropriate fields in Bib mode." | |
139 :type 'boolean | |
140 :group 'bib) | |
187 | 141 |
142 (defconst bib-capitalized-fields "%[AETCBIJR]") | |
143 | |
144 (defun return-key-bib () | |
145 "Magic when user hits return, used by `bib-mode'." | |
146 (interactive) | |
147 (if (eolp) | |
148 (let (empty new-key beg-current end-current) | |
149 (beginning-of-line) | |
150 (setq empty (looking-at "%. $")) | |
151 (if (not empty) | |
152 (progn | |
153 (end-of-line) | |
154 (newline) | |
155 (forward-line -1) | |
156 )) | |
157 (end-of-line) | |
158 (setq end-current (point)) | |
159 (beginning-of-line) | |
160 (setq beg-current (point)) | |
161 (setq new-key (bib-find-key bib-assoc)) | |
162 (if (and (not empty) bib-auto-capitalize | |
163 (looking-at bib-capitalized-fields)) | |
164 (save-excursion | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
165 (bib-capitalize-title-region (+ (point) 3) end-current))) |
187 | 166 (goto-char beg-current) |
167 (if empty | |
168 (kill-line nil) | |
169 (forward-line 1) | |
170 ) | |
41564
8fab3d5b7fcf
(return-key-bib): Use insert instead of insert-string.
Pavel Janík <Pavel@Janik.cz>
parents:
39896
diff
changeset
|
171 (insert new-key)) |
187 | 172 (newline))) |
173 | |
174 (defun mark-bib () | |
175 "Set mark at beginning of current or previous bib entry, point at end." | |
176 (interactive) | |
177 (beginning-of-line nil) | |
178 (if (looking-at "^ *$") (re-search-backward "[^ \n]" nil 2)) | |
179 (re-search-backward "^ *$" nil 2) | |
180 (re-search-forward "^%") | |
181 (beginning-of-line nil) | |
182 (push-mark (point)) | |
183 (re-search-forward "^ *$" nil 2) | |
85451
e1af3a725ca4
* textmodes/two-column.el (2C-split, 2C-merge):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78225
diff
changeset
|
184 (forward-line 1) |
187 | 185 (beginning-of-line nil)) |
186 | |
187 (defun unread-bib () | |
188 "Append current or previous entry to file of unread papers | |
189 named by variable `unread-bib-file'." | |
190 (interactive) | |
191 (mark-bib) | |
192 (if (get-file-buffer unread-bib-file) | |
193 (append-to-buffer (get-file-buffer unread-bib-file) (mark) (point)) | |
194 (append-to-file (mark) (point) unread-bib-file))) | |
195 | |
196 | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
197 (defvar bib-capitalize-title-stop-words |
187 | 198 (concat |
199 "the\\|and\\|of\\|is\\|a\\|an\\|of\\|for\\|in\\|to\\|in\\|on\\|at\\|" | |
200 "by\\|with\\|that\\|its") | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
201 "Words not to be capitalized in a title (unless the first word).") |
187 | 202 |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
203 (defvar bib-capitalize-title-stop-regexp |
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
204 (concat "\\(" bib-capitalize-title-stop-words "\\)\\(\\b\\|'\\)")) |
187 | 205 |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
206 (defun bib-capitalize-title-region (begin end) |
187 | 207 "Like `capitalize-region', but don't capitalize stop words, except the first." |
208 (interactive "r") | |
209 (let ((case-fold-search nil) (orig-syntax-table (syntax-table))) | |
210 (unwind-protect | |
211 (save-restriction | |
212 (set-syntax-table text-mode-syntax-table) | |
213 (narrow-to-region begin end) | |
214 (goto-char (point-min)) | |
215 (if (looking-at "[A-Z][a-z]*[A-Z]") | |
216 (forward-word 1) | |
217 (capitalize-word 1)) | |
218 (while (re-search-forward "\\<" nil t) | |
219 (if (looking-at "[A-Z][a-z]*[A-Z]") | |
220 (forward-word 1) | |
221 (if (let ((case-fold-search t)) | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
222 (looking-at bib-capitalize-title-stop-regexp)) |
187 | 223 (downcase-word 1) |
224 (capitalize-word 1))) | |
225 )) | |
226 (set-syntax-table orig-syntax-table)))) | |
227 | |
228 | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
229 (defun bib-capitalize-title (s) |
187 | 230 "Like `capitalize', but don't capitalize stop words, except the first." |
231 (save-excursion | |
232 (set-buffer (get-buffer-create "$$$Scratch$$$")) | |
233 (erase-buffer) | |
234 (insert s) | |
16285
0aa65f31f7e4
(bib-capitalize-title-stop-words): Renamed from capit...
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
235 (bib-capitalize-title-region (point-min) (point-max)) |
187 | 236 (buffer-string))) |
584 | 237 |
238 (provide 'bib-mode) | |
239 | |
52401 | 240 ;;; arch-tag: e3a97958-3c2c-487f-9557-fafc3c98452d |
662
8a533acedb77
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
241 ;;; bib-mode.el ends here |