diff options
Diffstat (limited to 'generic/pg-movie.el')
-rw-r--r-- | generic/pg-movie.el | 33 |
1 files changed, 20 insertions, 13 deletions
diff --git a/generic/pg-movie.el b/generic/pg-movie.el index 03ea5497..9be95972 100644 --- a/generic/pg-movie.el +++ b/generic/pg-movie.el @@ -1,11 +1,18 @@ ;;; pg-movie.el --- Export a processed script buffer for external replay -;; -;; Copyright (C) 2010 LFCS Edinburgh. + +;; This file is part of Proof General. + +;; Portions © Copyright 1994-2012 David Aspinall and University of Edinburgh +;; Portions © Copyright 2003, 2012, 2014 Free Software Foundation, Inc. +;; Portions © Copyright 2001-2017 Pierre Courtieu +;; Portions © Copyright 2010, 2016 Erik Martin-Dorel +;; Portions © Copyright 2011-2013, 2016-2017 Hendrik Tews +;; Portions © Copyright 2015-2017 Clément Pit-Claudel + ;; Author: David Aspinall <David.Aspinall@ed.ac.uk> and others + ;; License: GPL (GNU GENERAL PUBLIC LICENSE) -;; -;; $Id$ -;; + ;;; Commentary: ;; ;; Given a processed proof script, write out an XML file that @@ -45,15 +52,15 @@ (let* ((tokens (proof-ass unicode-tokens-enable)) (cmd (buffer-substring-no-properties (span-start span) (span-end span))) - (tcmd (if tokens + (tcmd (if tokens ;; no subscripts of course (unicode-tokens-encode-str cmd) cmd)) (helpspan (span-property span 'pg-helpspan)) - (resp (when helpspan + (resp (when helpspan (span-property helpspan 'response))) (tresp (if resp - (if tokens + (if tokens (unicode-tokens-encode-str resp) resp) "")) @@ -92,7 +99,7 @@ If FORCE, overwrite existing file without asking." (point-min) (point-max))) (movie-file-name - (concat + (concat (file-name-sans-extension (buffer-file-name)) ".xml"))) @@ -107,7 +114,7 @@ If FORCE, overwrite existing file without asking." ;;;###autoload (defun pg-movie-export-from (script &optional force) "Export the movie file that results from processing SCRIPT." - (interactive "fFile: + (interactive "fFile: P") (let ((proof-full-annotation t) ; dynamic (proof-fast-process-buffer t)) @@ -119,10 +126,10 @@ P") (defun pg-movie-export-directory (dir extn) "Export movie files from directory DIR with extension EXTN. Existing XML files are overwritten." - (interactive "DDirectory: + (interactive "DDirectory: sFile extension: ") - (let ((files (directory-files - dir t + (let ((files (directory-files + dir t (concat "\\." extn "$")))) (dolist (f files) (pg-movie-export-from f 'force)) |