Mercurial > emacs
view lisp/textmodes/bibtex-style.el @ 95176:686d116f748d
Checking of FONT_DEBUG is moved to font.h. All calls of
xassert are changed to font_assert. Many unused variables
deleted.
(Vfont_weight_table, Vfont_slant_table, Vfont_width_table): New
variables.
(struct table_entry): Moved from xfaces.c and modified.
(weight_table, slant_table, width_table): Moved from xfaces.c and
contents adjusted for the change of struct table_entry.
(font_style_to_value, font_style_symbolic): Adjuted for the format
change of font_style_table.
(font_parse_family_registry): Don't overwrite existing foundry and
family of font_spec.
(font_score): Fix calculation of diff for sizes.
(font_sort_entites): Call font_add_log.
(font_delete_unmatched): Return a newly created list.
(font_list_entities): Fix previous change. Call font_add_log.
(font_matching_entity, font_open_entity, font_close_entity): Call
font_add_log.
(Ffont_xlfd_name): New arg FOLD-WILDCARDS.
(Finternal_set_font_style_table): Deleted.
(BUILD_STYLE_TABLE): New macro.
(build_style_table): New function.
(Vfont_log, font_log_env_checked): New variables.
(font_add_log): New function.
(syms_of_font): Delete defsubr Sinternal_set_font_style_table.
Declare Lisp variables "font-weight-table", "font-slant-table",
"font-width-table", and "font-log". Initialize font_style_table.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Thu, 22 May 2008 02:19:21 +0000 |
parents | f4a69fedbd46 |
children | a9dc0e7c3f2b |
line wrap: on
line source
;;; bibtex-style.el --- Major mode for BibTeX Style files ;; Copyright (C) 2005,2007, 2008 Free Software Foundation, Inc. ;; Author: Stefan Monnier <monnier@iro.umontreal.ca> ;; Keywords: ;; 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 3 of the License, 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. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; Done: font-lock, imenu, outline, commenting, indentation. ;; Todo: tab-completion. ;; Bugs: ;;; Code: (defvar bibtex-style-mode-syntax-table (let ((st (make-syntax-table))) (modify-syntax-entry ?% "<" st) (modify-syntax-entry ?\n ">" st) (modify-syntax-entry ?\{ "(}" st) (modify-syntax-entry ?\} "){" st) (modify-syntax-entry ?\" "\"" st) (modify-syntax-entry ?. "_" st) (modify-syntax-entry ?' "'" st) (modify-syntax-entry ?# "'" st) (modify-syntax-entry ?* "." st) (modify-syntax-entry ?= "." st) (modify-syntax-entry ?$ "_" st) st)) (defconst bibtex-style-commands '("ENTRY" "EXECUTE" "FUNCTION" "INTEGERS" "ITERATE" "MACRO" "READ" "REVERSE" "SORT" "STRINGS")) (defconst bibtex-style-functions ;; From http://www.eeng.dcu.ie/local-docs/btxdocs/btxhak/btxhak/node4.html. '("<" ">" "=" "+" "-" "*" ":=" "add.period$" "call.type$" "change.case$" "chr.to.int$" "cite$" "duplicate$" "empty$" "format.name$" "if$" "int.to.chr$" "int.to.str$" "missing$" "newline$" "num.names$" "pop$" "preamble$" "purify$" "quote$" "skip$" "stack$" "substring$" "swap$" "text.length$" "text.prefix$" "top$" "type$" "warning$" "while$" "width$" "write$")) (defvar bibtex-style-font-lock-keywords `((,(regexp-opt bibtex-style-commands 'words) . font-lock-keyword-face) ("\\w+\\$" . font-lock-keyword-face) ("\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" (2 font-lock-function-name-face)))) ;;;###autoload (add-to-list 'auto-mode-alist '("\\.bst\\'" . bibtex-style-mode)) ;;;###autoload (define-derived-mode bibtex-style-mode nil "BibStyle" "Major mode for editing BibTeX style files." (set (make-local-variable 'comment-start) "%") (set (make-local-variable 'outline-regexp) "^[a-z]") (set (make-local-variable 'imenu-generic-expression) '((nil "\\<\\(FUNCTION\\|MACRO\\)\\s-+{\\([^}\n]+\\)}" 2))) (set (make-local-variable 'indent-line-function) 'bibtex-style-indent-line) (set (make-local-variable 'parse-sexp-ignore-comments) t) (setq font-lock-defaults '(bibtex-style-font-lock-keywords nil t ((?. . "w"))))) (defun bibtex-style-indent-line () "Indent current line of BibTeX Style code." (interactive) (let* ((savep (point)) (indent (condition-case nil (save-excursion (forward-line 0) (skip-chars-forward " \t") (if (>= (point) savep) (setq savep nil)) (max (bibtex-style-calculate-indentation) 0)) (error 0)))) (if savep (save-excursion (indent-line-to indent)) (indent-line-to indent)))) (defcustom bibtex-style-indent-basic 2 "Basic amount of indentation to use in BibTeX Style mode." :version "22.2" :type 'integer :group 'bibtex) (defun bibtex-style-calculate-indentation (&optional virt) (or ;; Stick the first line at column 0. (and (= (point-min) (line-beginning-position)) 0) ;; Commands start at column 0. (and (looking-at (regexp-opt bibtex-style-commands 'words)) 0) ;; Trust the current indentation, if such info is applicable. (and virt (save-excursion (skip-chars-backward " \t{") (bolp)) (current-column)) ;; Put leading close-paren where the matching open brace would be. (and (looking-at "}") (condition-case nil (save-excursion (up-list -1) (bibtex-style-calculate-indentation 'virt)) (scan-error nil))) ;; Align leading "if$" with previous command. (and (looking-at "if\\$") (condition-case nil (save-excursion (backward-sexp 3) (bibtex-style-calculate-indentation 'virt)) (scan-error ;; There is no command before the "if$". (condition-case nil (save-excursion (up-list -1) (+ bibtex-style-indent-basic (bibtex-style-calculate-indentation 'virt))) (scan-error nil))))) ;; Right after an opening brace. (condition-case err (save-excursion (backward-sexp 1) nil) (scan-error (goto-char (nth 2 err)) (+ bibtex-style-indent-basic (bibtex-style-calculate-indentation 'virt)))) ;; Default, align with previous command. (let ((fai ;; First arm of an "if$". (condition-case nil (save-excursion (forward-sexp 2) (forward-comment (point-max)) (looking-at "if\\$")) (scan-error nil)))) (save-excursion (condition-case err (while (progn (backward-sexp 1) (save-excursion (skip-chars-backward " \t{") (not (bolp))))) (scan-error nil)) (+ (current-column) (if (or fai (looking-at "ENTRY")) bibtex-style-indent-basic 0)))))) (provide 'bibtex-style) ;; arch-tag: b20ad41a-fd36-466e-8fd2-cc6137f9c55c ;;; bibtex-style.el ends here