Hi The patch below adds a style file for the exam class. That patch has been generated with mercurial. I believe has a hg import option if not I will use the git-hg plugin and generate a different patch.
Comments welcome. Uwe Brauer
# HG changeset patch # User Uwe Brauer <[email protected]> # Date 1471084914 0 # Sat Aug 13 10:41:54 2016 +0000 # Node ID a8350df369199156438bca973a4930b3a3aa6990 # Parent b47afc01589d0073d97c616c9e1a52cbb3a130b8 Add style exam.el diff -r b47afc01589d -r a8350df36919 style/exam.el --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/style/exam.el Sat Aug 13 10:41:54 2016 +0000 @@ -0,0 +1,68 @@ +;;; exam.el --- AUCTeX style for the (LaTeX) exam package + +;; Copyright (C) 2003, 2004, 2005, 2008, 2015 Free Software Foundation + +;; Author: Uwe Brauer <[email protected]> +;; Created: 20153-03-06 +;; 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 the exam package. + +;;; Code: + +(defvar LaTeX-exam-package-options '("answers" "rldocuement") + "Package options for the exam package.") + +(TeX-add-style-hook "exam" + (lambda () + (LaTeX-add-environments "questions") + (LaTeX-add-environments "solution") + (LaTeX-add-environments "solutionorbox") + (LaTeX-add-environments "parts") + (LaTeX-add-environments "subparts") + (LaTeX-add-environments "subsubparts") + (TeX-add-symbols + '("droppoints" 0) + '("part" TeX-arg-examn-points 0) + '("subpart" TeX-arg-examn-points 0) + '("subsubpart" TeX-arg-examn-points 0) + '("question" TeX-arg-examn-points 0) + '("droptotalpoints" 0) + '("question" 1) + '("RL" 1) + '("titledquestion" "Title" ["Points"] reftex-label) + '("question" ["Points"] reftex-label))) + LaTeX-dialect) + + + + + +(defun TeX-arg-examn-points (optional &optional prompt) + "Prompt for overlay specification and optional argument." + (let ((options (read-input "Points: "))) + (if (not (zerop (length options))) + (progn (insert "[" options "]"))) + (indent-according-to-mode))) + + +;;; exam.el ends here
_______________________________________________ auctex-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/auctex-devel
