109 lines
4.2 KiB
EmacsLisp
109 lines
4.2 KiB
EmacsLisp
;;; cleveref.el --- Style hook for the `cleveref.sty' package.
|
|
|
|
;; Copyright (C) 2014--2016 Free Software Foundation, Inc.
|
|
|
|
;; Author: Matthew Leach <matthew@mattleach.net>
|
|
;; Maintainer: auctex-devel@gnu.org
|
|
;; Created: 13/10/2014
|
|
|
|
;; This file is part of AUCTeX.
|
|
|
|
;; AUCTeX 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, or (at your option)
|
|
;; any later version.
|
|
|
|
;; AUCTeX 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 AUCTeX; see the file COPYING. If not, write to the Free
|
|
;; Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
|
|
;; 02110-1301, USA.
|
|
|
|
;;; Code
|
|
|
|
(defun TeX-arg-cleveref-multiple-labels (optional &optional prompt)
|
|
"Prompt for a series of labels completing with known labels.
|
|
If OPTIONAL is non-nil, insert the resulting value as an optional
|
|
argument, otherwise as a mandatory one. Use PROMPT as the prompt
|
|
string."
|
|
(if (and (fboundp 'reftex-arg-label)
|
|
(fboundp 'reftex-plug-flag)
|
|
(reftex-plug-flag 2))
|
|
;; Use RefTeX when enabled
|
|
(TeX-arg-ref optional)
|
|
;; Use AUCTeX interface
|
|
(let* ((labels (TeX-completing-read-multiple
|
|
(TeX-argument-prompt optional prompt "Keys")
|
|
(LaTeX-label-list)))
|
|
(labels-string (mapconcat #'identity labels ",")))
|
|
(TeX-argument-insert labels-string optional))))
|
|
|
|
(TeX-add-style-hook
|
|
"cleveref"
|
|
(lambda ()
|
|
(TeX-add-symbols
|
|
'("cref" TeX-arg-cleveref-multiple-labels)
|
|
'("Cref" TeX-arg-cleveref-multiple-labels)
|
|
'("crefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("Crefrange" (TeX-arg-ref "key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("cpageref" TeX-arg-cleveref-multiple-labels)
|
|
'("Cpageref" TeX-arg-cleveref-multiple-labels)
|
|
'("cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("Cpagerefrange" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("cref*" TeX-arg-cleveref-multiple-labels)
|
|
'("Cref*" TeX-arg-cleveref-multiple-labels)
|
|
'("crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("Crefrange*" (TeX-arg-ref "Key (first)") (TeX-arg-ref "Key (last)"))
|
|
'("namecref" TeX-arg-ref)
|
|
'("nameCref" TeX-arg-ref)
|
|
'("lcnamecref" TeX-arg-ref)
|
|
'("namecrefs" TeX-arg-ref)
|
|
'("nameCrefs" TeX-arg-ref)
|
|
'("lcnamecrefs" TeX-arg-ref)
|
|
'("labelcref" TeX-arg-cleveref-multiple-labels)
|
|
'("labelcpageref" TeX-arg-cleveref-multiple-labels))
|
|
|
|
;; These macros aren't used particularly often during the course of
|
|
;; normal referencing.
|
|
(TeX-declare-expert-macros
|
|
"cleveref"
|
|
"namecref" "nameCref" "lcnamecref" "namecrefs" "nameCrefs"
|
|
"lcnamecrefs" "labelcref" "labelcpageref")
|
|
|
|
;; Fontification
|
|
(when (and (fboundp 'font-latex-add-keywords)
|
|
(eq TeX-install-font-lock 'font-latex-setup))
|
|
(font-latex-add-keywords '(("cref" "*{")
|
|
("Cref" "*{")
|
|
("crefrange" "*{{")
|
|
("Crefrange" "*{{")
|
|
("cpageref" "{")
|
|
("Cpageref" "{")
|
|
("cpagerefrange" "{{")
|
|
("Cpagerefrange" "{{")
|
|
("namecref" "{")
|
|
("nameCref" "{")
|
|
("lcnamecref" "{")
|
|
("namecrefs" "{")
|
|
("nameCrefs" "{")
|
|
("lcnamecrefs" "{")
|
|
("labelcref" "{")
|
|
("labelcpageref" "{"))
|
|
'reference))
|
|
|
|
;; Activate RefTeX reference style.
|
|
(and LaTeX-reftex-ref-style-auto-activate
|
|
(fboundp 'reftex-ref-style-activate)
|
|
(reftex-ref-style-activate "Cleveref")))
|
|
LaTeX-dialect)
|
|
|
|
(defvar LaTeX-cleveref-package-options
|
|
'("capitalise" "nameinlink" "noabbrev" "poorman")
|
|
"Package options for the cleveref package.")
|
|
|
|
;;; cleveref.el ends here.
|