diff options
author | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
---|---|---|
committer | mattkae <mattkae@protonmail.com> | 2022-06-07 08:23:47 -0400 |
commit | bd18a38c2898548a3664a9ddab9f79c84f2caf4a (patch) | |
tree | 95b9933376770381bd8859782ae763be81c2d72b /elpa/auctex-13.1.3/style/xltabular.el | |
parent | b07628dddf418d4f47b858e6c35fd3520fbaeed2 (diff) | |
parent | ef160dea332af4b4fe5e2717b962936c67e5fe9e (diff) |
Merge conflict
Diffstat (limited to 'elpa/auctex-13.1.3/style/xltabular.el')
-rw-r--r-- | elpa/auctex-13.1.3/style/xltabular.el | 147 |
1 files changed, 0 insertions, 147 deletions
diff --git a/elpa/auctex-13.1.3/style/xltabular.el b/elpa/auctex-13.1.3/style/xltabular.el deleted file mode 100644 index 3fb3e0d..0000000 --- a/elpa/auctex-13.1.3/style/xltabular.el +++ /dev/null @@ -1,147 +0,0 @@ -;;; xltabular.el --- AUCTeX style for `xltabular.sty' (v0.05) -*- lexical-binding: t; -*- - -;; Copyright (C) 2017--2022 Free Software Foundation, Inc. - -;; Author: Arash Esbati <arash@gnu.org> -;; Maintainer: auctex-devel@gnu.org -;; Created: 2017-11-03 -;; Keywords: tex - -;; 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 `xltabular.sty' (v0.05) from 2017/10/26. -;; `xltabular.sty' is part of TeXLive. - -;;; Code: - -(require 'tex) -(require 'latex) - -(defvar LaTeX-xltabular-skipping-regexp - (concat "[ \t]*" (regexp-opt '("[l]" "[r]" "[c]" "")) "[ \t]*{[^}]*}[ \t]*") - "Regexp matching between \\begin{xltabular} and column specification. -For xltabular environment only. See `LaTeX-insert-ampersands' for detail. - -This regexp assumes that the width specification contains neither -nested curly brace pair nor escaped \"}\".") - -(defun LaTeX-env-xltabular (environment) - "Insert a xltabular ENVIRONMENT with spec, caption and label." - ;; xltabular has the following syntax: - ;; \begin{xltabular}[hPos]{width}{ l X ...} - ;; Optional <hPos> comes before <width>, hence we cannot use - ;; `LaTeX-env-tabular*' here and has to cook our own function which - ;; is a combination of `LaTeX-env-tabular*' and - ;; `LaTeX-env-longtable'. Note that `LaTeX-default-position' can be - ;; nil, i.e. do not prompt: - (let* ((pos (and LaTeX-default-position - (completing-read (TeX-argument-prompt t nil "Position") - '("l" "r" "c") - nil nil LaTeX-default-position))) - (width (TeX-read-string - (format "Width (default %s): " LaTeX-default-width) - nil nil LaTeX-default-width)) - (fmt (TeX-read-string - (if (string= LaTeX-default-format "") - "Format: " - (format "Format (default %s): " LaTeX-default-format)) - nil nil - (if (string= LaTeX-default-format "") - nil - LaTeX-default-format))) - (caption (TeX-read-string "Caption: ")) - (short-caption (when (>= (length caption) LaTeX-short-caption-prompt-length) - (TeX-read-string "(Optional) Short caption: ")))) - (setq LaTeX-default-position pos - LaTeX-default-width width - LaTeX-default-format fmt) - (LaTeX-insert-environment environment - (concat - (unless (zerop (length pos)) - (concat LaTeX-optop pos LaTeX-optcl)) - (concat TeX-grop width TeX-grcl) - (concat TeX-grop fmt TeX-grcl))) - ;; top caption -- do nothing if user skips caption - (unless (zerop (length caption)) - ;; insert `\caption[short-caption]{caption': - (insert TeX-esc "caption") - (when (and short-caption (not (string= short-caption ""))) - (insert LaTeX-optop short-caption LaTeX-optcl)) - (insert TeX-grop caption) - ;; ask for a label and insert it - (LaTeX-label environment 'environment) - ;; the longtable `\caption' is equivalent to a - ;; `\multicolumn', so it needs a `\\' at the - ;; end of the line. Prior to that, add } to - ;; close `\caption{' - (insert TeX-grcl "\\\\") - ;; fill the caption - (when auto-fill-function (LaTeX-fill-paragraph)) - ;; Insert a new line and indent - (LaTeX-newline) - (indent-according-to-mode)) - ;; Insert suitable number of &'s, suppress line break - (LaTeX-item-xltabular t))) - -(defun LaTeX-item-xltabular (&optional suppress) - "Insert line break macro on the last line and suitable number of &'s. -For xltabular environment only. - -If SUPPRESS is non-nil, do not insert line break macro." - (unless suppress - (save-excursion - (end-of-line 0) - (just-one-space) - (TeX-insert-macro "\\"))) - (LaTeX-insert-ampersands - LaTeX-xltabular-skipping-regexp #'LaTeX-array-count-columns)) - -(TeX-add-style-hook - "xltabular" - (lambda () - ;; ltablex loads both tabularx and longtable - (TeX-run-style-hooks "ltablex") - - ;; Add xltabular with `LaTeX-env-xltabular':: - (LaTeX-add-environments '("xltabular" LaTeX-env-xltabular)) - - ;; Use the enhanced table formatting. Append to - ;; `LaTeX-indent-environment-list' in order not to override custom settings. - (add-to-list (make-local-variable 'LaTeX-indent-environment-list) - '("xltabular" LaTeX-indent-tabular) t) - - ;; Append xltabular to `LaTeX-label-alist', in order not to - ;; override possible custome values. - (add-to-list 'LaTeX-label-alist '("xltabular" . LaTeX-table-label) t) - - ;; Append xltabular to `LaTeX-item-list' with `LaTeX-item-xltabular' - (add-to-list 'LaTeX-item-list '("xltabular" . LaTeX-item-xltabular) t) - - ;; Tell RefTeX -- This is the same entry as for "longtable" in - ;; `reftex-label-alist-builtin': - (when (fboundp 'reftex-add-label-environments) - (reftex-add-label-environments - '(("xltabular" ?t nil nil caption))))) - TeX-dialect) - -(defvar LaTeX-xltabular-package-options nil - "Package options for the xltabular package.") - -;;; xltabular.el ends here |