# HG changeset patch
# User Uwe Brauer <address@hidden>
# 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 <address@hidden>
+;; 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