;;; cleveref.el --- AUCTeX style for `cleveref.sty' (v0.21.4)  -*- lexical-binding: t; -*-

;; Copyright (C) 2014--2022 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.

;;; Commentary:

;; This file adds support for `cleveref.sty' (v0.21.4), dated
;; 2018/03/27.

;;; Code

(require 'tex)
(require 'latex)

;; Silence the compiler:
(declare-function font-latex-add-keywords
                  "font-latex"
                  (keywords class))

(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))))

(defun LaTeX-cleveref-crossref-type ()
  "Return a list of cross-reference types for cleveref package macros."
  (let ((type (mapcar #'list '("appendix" "subappendix"
                               "subsubappendix" "subsubsubappendix"
                               "subfigure" "subtable" "subequation"))))
    (append (LaTeX-counter-list) type)))

(defvar LaTeX-cleveref-label-regexp
  '("\\\\label\\[[^]]*\\]{\\([^\n\r%\\{}]+\\)}" 1 LaTeX-auto-label)
  "Regexp matching a \\label incl. an optional argument.")

(TeX-add-style-hook
 "cleveref"
 (lambda ()

   (TeX-add-symbols
    ;; 4 Typesetting Cross-References
    '("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)"))
    '("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)"))
    '("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)
    ;; 6 Overriding the Cross-Reference Type
    '("crefalias" TeX-arg-counter "Type")
    '("label"
      [TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type"]
      TeX-arg-define-label)

    ;; 8.1.1 Global Customisation
    '("crefdefaultlabelformat" t)

    ;; 8.1.2 Customising Individual Cross-Reference Types
    '("crefname"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      "Singular name" "Plural name")
    '("Crefname"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      "Singular name" "Plural name")
    '("creflabelformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)
    '("crefrangelabelformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)

    ;; 8.2.1 Single Cross-References
    '("crefformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)
    '("Crefformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)

    ;; 8.2.2 Reference Ranges
    '("crefrangeformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)
    '("Crefrangeformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      t)

    ;; 8.2.3 Multiple Cross-References
    '("crefmultiformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      4)
    '("Crefmultiformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      4)
    '("crefrangemultiformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      4)
    '("Crefrangemultiformat"
      (TeX-arg-completing-read (LaTeX-cleveref-crossref-type) "Type")
      4))

   ;; 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"
    "crefdefaultlabelformat"
    "crefname" "Crefname" "creflabelformat" "crefrangelabelformat"
    "crefformat" "Crefformat"
    "crefrangeformat" "Crefrangeformat"
    "crefmultiformat" "Crefmultiformat"
    "crefrangemultiformat" "Crefrangemultiformat")

   ;; Add \label[type]{label} to AUCTeX parser
   (TeX-auto-add-regexp LaTeX-cleveref-label-regexp)

   ;; Tell RefTeX.  Check if `reftex-label-regexps' is bound and use a
   ;; local version of it.  Check if the regexp is already added in
   ;; order not to run `reftex-compile-variables' every time the style
   ;; hook runs
   (when (and (boundp 'reftex-label-regexps)
              (fboundp 'reftex-compile-variables))
     (let ((regexp "\\\\label\\[[^]]*\\]{\\(?1:[^\n\r%\\{}]+\\)}"))
       (unless (member regexp reftex-label-regexps)
         (add-to-list (make-local-variable 'reftex-label-regexps)
                      regexp t)
         (reftex-compile-variables))))

   ;; 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" "{")
                                ("label"         "[{"))
                              'reference)
     (font-latex-add-keywords '(("crefalias"              "{{")
                                ("crefname"               "{{{")
                                ("Crefname"               "{{{")
                                ("creflabelformat"        "{{")
                                ("crefrangelabelformat"   "{{")
                                ("crefdefaultlabelformat" "{")
                                ("crefformat"             "{{")
                                ("Crefformat"             "{{")
                                ("crefrangeformat"        "{{")
                                ("Crefrangeformat"        "{{")
                                ("crefmultiformat"        "{{{{{")
                                ("Crefmultiformat"        "{{{{{")
                                ("crefrangemultiformat"   "{{{{{")
                                ("Crefrangemultiformat"   "{{{{{"))
                              'function))

   ;; Activate RefTeX reference style.
   (and LaTeX-reftex-ref-style-auto-activate
        (fboundp 'reftex-ref-style-activate)
        (reftex-ref-style-activate "Cleveref")))
 TeX-dialect)

(defvar LaTeX-cleveref-package-options
  '("capitalise" "nameinlink" "noabbrev" "poorman")
  "Package options for the cleveref package.")

;;; cleveref.el ends here.