;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require tex latex] 2) #@55 Key=value options for moodle macros and environments. (defvar LaTeX-moodle-key-val-options '(("points") ("default grade") ("penalty") ("fraction") ("feedback")) (#$ . 150)) #@78 Insert ENV provided by moodle.sty incl. arguments and first \item. (fn ENV) (defalias 'LaTeX-moodle-question-env-with-args #[257 "\304\305\306\307\230\203\310\311\312 \313\230\205\314#\202[\315\230\203.\310\316\312 \313\230\205)\317#\202[\320\230\203C\310\321\312 \313\230\205>\322#\202[\323\230\203P\310\324\"\202[\310\312 \313\230\205Y\325\"\"\312 \313\230?\205k\326\327\330\211\331#!\205z\332\230?\205z\333\334\"\205\211\332\230?\205\211\333\335\"P\266\202\"\210\336 \203\234\337 \210\340\210\202\237\341\210\342\340!\210\343\344 \345Q!\203\261`\346 |\210\347 \210\350 \210\326\327\330\211\351#!\211\203\330\211\332\230\204\330\352 \210\353 \210\211c\210\n\203\330\354 \210\210\355 \210\n\205\375\343\356!?\205\375\357 \"?\205\375\346 \360 Z\361 V\205\375\354\330!\207" [LaTeX-moodle-key-val-options TeX-comment-start-regexp auto-fill-function LaTeX-indent-environment-list LaTeX-insert-environment TeX-read-key-val t "multi" append (("shuffle" ("true" "false")) ("numbering" ("alph" "Alph" "arabic" "roman" "Roman" "none")) ("single" ("true" "false")) ("multiple" ("true" "false"))) LaTeX-current-environment "cloze" (("vertical" ("true" "false")) ("horizonal" ("true" "false"))) "shortanswer" (("case sensitive" ("true" "false")) ("usecase" ("true" "false"))) (("vertical" ("true" "false")) ("horizonal" ("true" "false"))) "essay" (("response required" ("true" "false")) ("response format" ("html" "file" "html+file" "text" "monospaced")) ("response field lines") ("attachments allowed" ("0" "1" "2" "3" "unlimited")) ("attachments required" ("0" "1" "2" "3")) ("response template")) (("vertical" ("true" "false")) ("horizonal" ("true" "false"))) "matching" (("shuffle" ("true" "false")) ("drag and drop" ("true" "false")) ("dd" ("true" "false"))) (("vertical" ("true" "false")) ("horizonal" ("true" "false"))) TeX-read-string TeX-argument-prompt nil "Question name" "" format "[%s]" "{%s}" TeX-active-mark LaTeX-find-matching-begin 1 0 delete-char looking-at "^[ ]+$\\|^[ ]*" "+[ ]*$" line-end-position delete-horizontal-space deactivate-mark "Question Text" newline indent-according-to-mode LaTeX-fill-paragraph LaTeX-insert-item "$" assoc line-beginning-position current-fill-column] 9 (#$ . 329)]) #@75 Insert an \item with optional argument in environments of moodle package. (defalias 'LaTeX-moodle-item-argument #[0 "\305\306\307!\210)\310\311\312 \313\230\203\314\315 \"\202 \"\211\2039\211\316\230\2049\317 \210\211\320\230\2033\211c\266\202:\n \261\210\210\321 \210\312 \322\230\205M\212\f\323\261\210\321 )\207" [TeX-insert-macro-default-style LaTeX-moodle-key-val-options LaTeX-optop LaTeX-optcl TeX-esc mandatory-args-only TeX-insert-macro "item" TeX-read-key-val t LaTeX-current-environment "multi" append (("*")) "" delete-horizontal-space "*" just-one-space "matching" "answer"] 5 (#$ . 2594)]) (TeX-add-style-hook "moodle" #[0 "\301\302\303\"\210\304\211\203!\211@\301\305B!\210\306\307\310B\311#\210A\266\202\202\210\312\313\314\315\316$\210\317\320!\205>\321=\205>\322\323\324\"\210\322\325\326\"\207" [TeX-install-font-lock LaTeX-add-environments ("quiz" (lambda (environment) (LaTeX-insert-environment environment (let ((opts (TeX-read-key-val t LaTeX-moodle-key-val-options)) (bank (TeX-read-string (TeX-argument-prompt nil nil "Question bank name")))) (concat (when (and opts (not (string= opts #1=""))) (format "[%s]" opts)) (format "{%s}" bank)))))) ("cloze" "Question bank name") ("multi" "numerical" "shortanswer" "essay" "matching") (LaTeX-moodle-question-env-with-args) add-to-list LaTeX-item-list LaTeX-moodle-item-argument t TeX-add-symbols ("moodleset" (TeX-arg-eval (lambda nil (let ((opts (TeX-read-key-val nil (append '(("ppi")) LaTeX-moodle-key-val-options)))) (format "%s" opts))))) ("ghostscriptcommand" "File name") ("imagemagickcommand" "File name") ("opensslcommand" "File name") featurep font-latex font-latex-setup font-latex-add-keywords (("moodleset" "{") ("ghostscriptcommand" "{") ("imagemagickcommand" "{") ("opensslcommand" "{")) function (("answer" #1#) ("item" "*[")) textual] 6] TeX-dialect) #@41 Package options for the moodle package. (defvar LaTeX-moodle-package-options '("draft") (#$ . 4460))