>From 19e3e66ce4b1bca7c34d6de65e890d103f3e6878 Mon Sep 17 00:00:00 2001 From: Arash Esbati Date: Sat, 11 Apr 2015 12:42:01 +0200 Subject: [PATCH 2/2] New style attachfile.el. * Makefile.in (STYLESRC): Add new style. * style/attachfile.el: New file. --- ChangeLog | 4 ++ Makefile.in | 2 +- style/attachfile.el | 119 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 124 insertions(+), 1 deletion(-) create mode 100644 style/attachfile.el diff --git a/ChangeLog b/ChangeLog index 660d3e6..897c5f2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2015-04-11 Arash Esbati + * Makefile.in (STYLESRC): Add new style. + + * style/attachfile.el: New file. + * style/fbb.el: Update style to LaTeX package v1.07 from 2015/04/06. diff --git a/Makefile.in b/Makefile.in index 75ed8c2..7baff97 100644 --- a/Makefile.in +++ b/Makefile.in @@ -147,7 +147,7 @@ STYLESRC = style/prosper.el \ style/tcolorbox.el style/color.el style/expl3.el \ style/bidibeamer.el style/enumitem.el style/caption.el \ style/geometry.el style/ltablex.el style/ltxtable.el \ - style/mn2e.el style/colortbl.el + style/mn2e.el style/colortbl.el style/attachfile.el STYLEELC = $(STYLESRC:.el=.elc) diff --git a/style/attachfile.el b/style/attachfile.el new file mode 100644 index 0000000..3b27778 --- /dev/null +++ b/style/attachfile.el @@ -0,0 +1,119 @@ +;;; attachfile.el --- AUCTeX style for `attachfile.sty' (v1.6) + +;; Copyright (C) 2015 Free Software Foundation, Inc. + +;; Author: Arash Esbati +;; Maintainer: address@hidden +;; Created: 2015-04-11 +;; 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 `attachfile.sty' (v1.6) from 2015/04/04. +;; `attachfile.sty' is part of TeXLive. + +;;; Code: +(defvar LaTeX-attachfile-key-val-options + '(("appearance" ("true" "false")) + ("author") + ("color") + ("created") + ("date") + ("description") + ("icon" ("Graph" "Paperclip" "PushPin" "Tag")) + ;; This can only be a small excerpt: + ("mimetype" + ("application/javascript" + "application/pdf" + "application/postscript" + "application/vnd.ms-excel" + "application/vnd.ms-powerpoint" + "application/zip" + "audio/mpeg" + "audio/ogg" + "image/jpeg" + "image/png" + "image/tiff" + "text/csv" + "text/plain" + "video/H264" + "video/mp4")) + ("modified") + ("print" ("true" "false")) + ("size") + ("subject") + ("timezone") + ("zoom" ("true" "false"))) + "Key=value options for attachfile macros.") + +(TeX-add-style-hook + "attachfile" + (lambda () + ;; Run style hook for packages loaded by attachfile; both packages + ;; are required for running LaTeX, but not necessary within AUCTeX + (TeX-run-style-hooks "hyperref" "color") + + (TeX-add-symbols + ;; \attachfile[]{} + '("attachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] + (TeX-arg-eval + (lambda () + (let ((atfi (file-relative-name + (read-file-name "File to attach: ")))) + (format "%s" atfi))))) + + ;; \noattachfile[] + '("noattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] ) + + ;; \textattachfile[]{}{} + '("textattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] + (TeX-arg-eval + (lambda () + (let ((atfi (file-relative-name + (read-file-name "File to attach: ")))) + (format "%s" atfi)))) + t) + + ;; \notextattachfile[]{} + '("notextattachfile" + [TeX-arg-key-val LaTeX-attachfile-key-val-options] t) + + ;; \attachfilesetup{} + '("attachfilesetup" + (TeX-arg-key-val LaTeX-attachfile-key-val-options))) + + ;; Fontification + (when (and (featurep 'font-latex) + (eq TeX-install-font-lock 'font-latex-setup)) + (font-latex-add-keywords '(("attachfilesetup" "{") + ("attachfile" "[{") + ("noattachfile" "[") + ("textattachfile" "[{{") + ("notextattachfile" "[{")) + 'function))) + LaTeX-dialect) + +(defvar LaTeX-attachfile-package-options nil + "Prompt for package options for the attachfile package.") + +;;; attachfile.el ends here -- 2.3.5