summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/qcm/qcm.el
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/qcm/qcm.el')
-rw-r--r--Master/texmf-dist/doc/latex/qcm/qcm.el94
1 files changed, 94 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/qcm/qcm.el b/Master/texmf-dist/doc/latex/qcm/qcm.el
new file mode 100644
index 00000000000..10def20e2a5
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/qcm/qcm.el
@@ -0,0 +1,94 @@
+;;; qcm.el --- AUC-TeX style file for QCM
+
+;; Copyright (C) 2004 Didier Verna.
+
+;; Author: Didier Verna <didier@lrde.epita.fr>
+;; Maintainer: Didier Verna <didier@lrde.epita.fr>
+;; Created: Tue Apr 18 14:49:29 2000
+;; Last Revision: Tue Nov 9 17:46:37 2004
+;; Keywords: tex abbrev data
+
+;; This file is part of QCM.
+
+;; QCM may be distributed and/or modified under the
+;; conditions of the LaTeX Project Public License, either version 1.1
+;; of this license or (at your option) any later version.
+;; The latest version of this license is in
+;; http://www.latex-project.org/lppl.txt
+;; and version 1.1 or later is part of all distributions of LaTeX
+;; version 1999/06/01 or later.
+
+;; QCM consists of all files listed in the file `README'.
+
+
+;;; Commentary:
+
+;; Contents management by FCM version 0.1-b2.
+
+;; #### NOTE: maybe this file should be split in two: one for the style and
+;; #### one for the class.
+
+;;; Code:
+
+(defun qcm-LaTeX-item-question ()
+ (if current-prefix-arg
+ (TeX-insert-macro "true")
+ (TeX-insert-macro "false")))
+
+(push '("question" . qcm-LaTeX-item-question) LaTeX-item-list)
+
+(defun qcm-LaTeX-env-question (environment)
+ "Create a \`question' environment in a QCM document."
+ ;; Questions can be quite long, so instead of prompting for them, which
+ ;; would be annoying, let's just put the point inside the braces.
+ (LaTeX-insert-environment environment "{}")
+ (beginning-of-line)
+ (kill-line)
+ (LaTeX-find-matching-begin)
+ (end-of-line)
+ (forward-char -1)
+ )
+
+(TeX-add-style-hook "qcm"
+ (function
+ (lambda ()
+ ;; QCM style:
+ (LaTeX-add-environments
+ '("question" qcm-LaTeX-env-question)
+ '("correction")
+ )
+ (TeX-add-symbols
+ '("true" (TeX-arg-literal " "))
+ '("false" (TeX-arg-literal " "))
+ '("truesymbol" t)
+ '("falsesymbol" t)
+ '("correctionstyle" t)
+ '("questionspace")
+ '("thequestion")
+ '("answerstitle" t)
+ '("answerstitlefont" t)
+ '("answernumberfont" t)
+ '("makeform")
+ '("makemask")
+ '("headerfont" t)
+ '("X" t)
+ ;; QCM Class:
+ '("title" t)
+ '("titlefont" t)
+ '("titlespace")
+ '("maketitle")
+ '("questiontitle" t)
+ '("questiontitlefont" t)
+ '("questiontitlespace")
+ '("questionsepspace")
+ )
+ )))
+
+
+
+
+;;; Local variables:
+;;; eval: (put 'TeX-add-style-hook 'lisp-indent-function 1)
+;;; End:
+
+;;; qcm.el ends here