dotfiles: .elisp/doctest-mode.el annotate

annotate .elisp/doctest-mode.el @ 173:fd92c15701ae

Merge

author	Augie Fackler <durin42@gmail.com>
date	Wed, 16 Dec 2009 22:28:55 -0600
parents	b5d75594b356
children	014e745b2d04

rev	line source
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	1 ;;; doctest-mode.el --- Major mode for editing Python doctest files
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	2
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	3 ;; Copyright (C) 2004 Edward Loper
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	4
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	5 ;; Author: Edward Loper
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	6 ;; Maintainer: edloper@alum.mit.edu
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	7 ;; Created: Aug 2004
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	8 ;; Keywords: python doctest unittest test docstring
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	9
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	10 (defconst doctest-version "0.2"
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	11 "`doctest-mode' version number.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	12
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	13 ;; This software is provided as-is, without express or implied
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	14 ;; warranty. Permission to use, copy, modify, distribute or sell this
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	15 ;; software, without fee, for any purpose and by any individual or
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	16 ;; organization, is hereby granted, provided that the above copyright
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	17 ;; notice and this paragraph appear in all copies.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	18
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	19 ;; This is a major mode for editing text files that contain Python
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	20 ;; doctest examples. Doctest is a testing framework for Python that
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	21 ;; emulates an interactive session, and checks the result of each
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	22 ;; command. For more information, see the Python library reference:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	23 ;; <http://docs.python.org/lib/module-doctest.html>
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	24
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	25 ;; Known bugs:
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	26 ;; - Some places assume prompts are 4 chars (but they can be 3
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	27 ;; if they're bare).
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	28 ;; - String literals are not colored correctly. (We need to color
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	29 ;; string literals on source lines, but not output lines or
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	30 ;; text lines; this is hard to do.)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	31 ;; - Output lines starting with "..." are mistakenly interpreted
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	32 ;; as (continuation) source lines.
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	33
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	35 ;; Customizable Constants
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	37
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	38 (defgroup doctest nil
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	39 "Support for the Python doctest framework"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	40 :group 'languages
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	41 :prefix "doctest-")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	42
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	43 (defcustom doctest-default-margin 4
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	44 "The default pre-prompt margin for doctest examples."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	45 :type 'integer
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	46 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	47
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	48 (defcustom doctest-avoid-trailing-whitespace t
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	49 "If true, then delete trailing whitespace when inserting a newline."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	50 :type 'boolean
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	51 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	52
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	53 (defcustom doctest-temp-directory
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	54 (let ((ok '(lambda (x)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	55 (and x
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	56 (setq x (expand-file-name x)) ; always true
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	57 (file-directory-p x)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	58 (file-writable-p x)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	59 x))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	60 (or (funcall ok (getenv "TMPDIR"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	61 (funcall ok "/usr/tmp")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	62 (funcall ok "/tmp")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	63 (funcall ok "/var/tmp")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	64 (funcall ok ".")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	65 (error (concat "Couldn't find a usable temp directory -- "
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	66 "set `doctest-temp-directory'"))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	67
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	68 "*Directory used for temporary files created when running doctest.
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	69 By default, the first directory from this list that exists and that you
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	70 can write into: the value (if any) of the environment variable TMPDIR,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	71 /usr/tmp, /tmp, /var/tmp, or the current directory."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	72 :type 'string
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	73 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	74
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	75 (defcustom hide-example-source t
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	76 "If true, then don't display the example source code for each
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	77 failure in the results buffer."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	78 :type 'boolean
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	79 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	80
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	81 (defcustom doctest-python-command "python"
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	82 "Shell command used to start the python interpreter")
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	83
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	84 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	85 ;; Fonts
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	86 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	87
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	88 (defface doctest-prompt-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	89 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	90 (:foreground "#68f"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	91 (t (:foreground "#226")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	92 "Face for Python prompts in doctest examples."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	93 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	94
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	95 (defface doctest-output-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	96 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	97 (:foreground "#afd"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	98 (t (:foreground "#262")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	99 "Face for the output of doctest examples."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	100 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	101
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	102 (defface doctest-output-marker-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	103 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	104 (:foreground "#0f0"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	105 (t (:foreground "#080")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	106 "Face for markers in the output of doctest examples."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	107 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	108
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	109 (defface doctest-output-traceback-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	110 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	111 (:foreground "#f88"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	112 (t (:foreground "#622")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	113 "Face for traceback headers in the output of doctest examples."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	114 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	115
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	116 (defface doctest-results-divider-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	117 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	118 (:foreground "#08f"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	119 (t (:foreground "#00f")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	120 "Face for dividers in the doctest results window."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	121 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	122
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	123 (defface doctest-results-loc-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	124 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	125 (:foreground "#0f8"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	126 (t (:foreground "#084")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	127 "Face for location headers in the doctest results window."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	128 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	129
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	130 (defface doctest-results-header-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	131 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	132 (:foreground "#8ff"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	133 (t (:foreground "#088")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	134 "Face for sub-headers in the doctest results window."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	135 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	136
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	137 (defface doctest-results-selection-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	138 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	139 (:foreground "#ff0" :background "#008"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	140 (t (:background "#088" :foreground "#fff")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	141 "Face for selected failure's location header in the results window."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	142 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	143
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	144 (defface doctest-selection-face
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	145 '((((class color) (background dark))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	146 (:foreground "#ff0" :background "#00f" :bold t))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	147 (t (:foreground "#f00")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	148 "Face for selected example's prompt"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	149 :group 'doctest)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	150
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	151 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	152 ;; Constants
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	153 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	154
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	155 (defconst doctest-prompt-re
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	156 "^\$[ \t]\$\$>>> ?\\\|[.][.][.] ?\$\$[ \t]\$"
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	157 "Regular expression for doctest prompts. It defines three groups:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	158 the pre-prompt margin; the prompt; and the post-prompt indentation.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	159
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	160 (defconst doctest-open-block-re
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	161 "[^\n]+:[ \t]\$#.\$?$"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	162 "Regular expression for a line that opens a block")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	163
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	164 (defconst doctest-close-block-re
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	165 "\$return\\\|raise\\\|break\\\|continue\\\|pass\$\\b"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	166 "Regular expression for a line that closes a block")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	167
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	168 (defconst doctest-outdent-re
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	169 (concat "\\(" (mapconcat 'identity
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	170 '("else:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	171 "except\$\\s +.*\$?:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	172 "finally:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	173 "elif\\s +.*:")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	174 "\\\|")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	175 "\\)")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	176 "Regular expression for a line that should be outdented. Any line
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	177 that matches `doctest-outdent-re', but does not follow a line matching
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	178 `doctest-no-outdent-re', will be outdented.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	179
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	180 (defconst doctest-no-outdent-re
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	181 (concat
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	182 "\\("
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	183 (mapconcat 'identity
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	184 (list "try:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	185 "except\$\\s +.*\$?:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	186 "while\\s +.*:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	187 "for\\s +.*:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	188 "if\\s +.*:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	189 "elif\\s +.*:"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	190 "\$return\\\|raise\\\|break\\\|continue\\\|pass\$[ \t\n]"
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	191 )
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	192 "\\\|")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	193 "\\)")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	194 "Regular expression matching lines not to outdent after. Any line
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	195 that matches `doctest-outdent-re', but does not follow a line matching
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	196 `doctest-no-outdent-re', will be outdented.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	197
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	198 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	199 ;; Colorization support (font-lock mode)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	200 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	201
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	202 ;; Define the font-lock keyword table.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	203 (defconst doctest-font-lock-keywords
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	204 (let ((prompt "^[ \t]*\$>>>\\\|\\.\\.\\.\$")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	205 (kw1 (mapconcat 'identity
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	206 '("and" "assert" "break" "class"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	207 "continue" "def" "del" "elif"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	208 "else" "except" "exec" "for"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	209 "from" "global" "if" "import"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	210 "in" "is" "lambda" "not"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	211 "or" "pass" "print" "raise"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	212 "return" "while" "yield"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	213 )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	214 "\\\|"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	215 (kw2 (mapconcat 'identity
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	216 '("else:" "except:" "finally:" "try:")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	217 "\\\|"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	218 (kw3 (mapconcat 'identity
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	219 '("ArithmeticError" "AssertionError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	220 "AttributeError" "DeprecationWarning" "EOFError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	221 "Ellipsis" "EnvironmentError" "Exception" "False"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	222 "FloatingPointError" "FutureWarning" "IOError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	223 "ImportError" "IndentationError" "IndexError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	224 "KeyError" "KeyboardInterrupt" "LookupError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	225 "MemoryError" "NameError" "None" "NotImplemented"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	226 "NotImplementedError" "OSError" "OverflowError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	227 "OverflowWarning" "PendingDeprecationWarning"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	228 "ReferenceError" "RuntimeError" "RuntimeWarning"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	229 "StandardError" "StopIteration" "SyntaxError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	230 "SyntaxWarning" "SystemError" "SystemExit"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	231 "TabError" "True" "TypeError" "UnboundLocalError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	232 "UnicodeDecodeError" "UnicodeEncodeError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	233 "UnicodeError" "UnicodeTranslateError"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	234 "UserWarning" "ValueError" "Warning"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	235 "ZeroDivisionError" "__debug__"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	236 "__import__" "__name__" "abs" "apply" "basestring"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	237 "bool" "buffer" "callable" "chr" "classmethod"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	238 "cmp" "coerce" "compile" "complex" "copyright"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	239 "delattr" "dict" "dir" "divmod"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	240 "enumerate" "eval" "execfile" "exit" "file"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	241 "filter" "float" "getattr" "globals" "hasattr"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	242 "hash" "hex" "id" "input" "int" "intern"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	243 "isinstance" "issubclass" "iter" "len" "license"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	244 "list" "locals" "long" "map" "max" "min" "object"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	245 "oct" "open" "ord" "pow" "property" "range"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	246 "raw_input" "reduce" "reload" "repr" "round"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	247 "setattr" "slice" "staticmethod" "str" "sum"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	248 "super" "tuple" "type" "unichr" "unicode" "vars"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	249 "xrange" "zip")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	250 "\\\|"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	251 (pseudokw (mapconcat 'identity
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	252 '("self" "None" "True" "False" "Ellipsis")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	253 "\\\|"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	254 (brk "\$[ \t(]\\\|$\$")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	255 )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	256 `(
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	257 ;; The following pattern colorizes source lines. In particular,
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	258 ;; it first matches prompts, and then looks for any of the
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	259 ;; following matches on the same line as the prompt. It uses
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	260 ;; the form:
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	261 ;;
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	262 ;; (MATCHER MATCH-HIGHLIGHT
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	263 ;; (ANCHOR-MATCHER nil nil MATCH-HIGHLIGHT)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	264 ;; ...
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	265 ;; (ANCHOR-MATCHER nil nil MATCH-HIGHLIGHT))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	266 ;;
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	267 ;; See the variable documentation for font-lock-keywords for a
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	268 ;; description of what each of those means.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	269 (,prompt (1 'doctest-prompt-face)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	270 ;; classes
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	271 ("\\b\$class\$[ \t]+\$[a-zA-Z_]+[a-zA-Z0-9_]*\$"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	272 nil nil (1 'font-lock-keyword-face)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	273 (2 'font-lock-type-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	274 ;; functions
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	275 ("\\b\$def\$[ \t]+\$[a-zA-Z_]+[a-zA-Z0-9_]*\$"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	276 nil nil (1 'font-lock-keyword-face) (2 'font-lock-type-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	277 ;; keywords
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	278 (,(concat "\\b\$" kw1 "\$" brk)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	279 nil nil (1 'font-lock-keyword-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	280 ;; builtins when they don't appear as object attributes
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	281 (,(concat "\$\\b\\\|[.]\$\$" kw3 "\$" brk)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	282 nil nil (2 'font-lock-keyword-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	283 ;; block introducing keywords with immediately
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	284 ;; following colons. Yes "except" is in both lists.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	285 (,(concat "\\b\$" kw2 "\$" brk)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	286 nil nil (1 'font-lock-keyword-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	287 ;; `as' but only in "import foo as bar"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	288 ("[ \t]\$\\bfrom\\b.\$?\\bimport\\b.*\\b\$as\$\\b"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	289 nil nil (2 'font-lock-keyword-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	290 ;; pseudo-keywords
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	291 (,(concat "\\b\$" pseudokw "\$" brk)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	292 nil nil (1 'font-lock-keyword-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	293 ;; comments
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	294 ("\$#.*\$"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	295 nil nil (1 'font-lock-comment-face)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	296
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	297 ;; The following pattern colorizes output lines. In particular,
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	298 ;; it uses doctest-output-line-matcher to check if this is an
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	299 ;; output line, and if so, it colorizes it, and any special
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	300 ;; markers it contains.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	301 (doctest-output-line-matcher
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	302 (0 'doctest-output-face t)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	303 ("\\.\\.\\." (beginning-of-line) (end-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	304 (0 'doctest-output-marker-face t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	305 ("<BLANKLINE>" (beginning-of-line) (end-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	306 (0 'doctest-output-marker-face t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	307 ("^Traceback (most recent call last):" (beginning-of-line) (end-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	308 (0 'doctest-output-traceback-face t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	309 ("^Traceback (innermost last):" (beginning-of-line) (end-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	310 (0 'doctest-output-traceback-face t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	311 )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	312
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	313 ;; A PS1 prompt followed by a non-space is an error.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	314 ("^[ \t]\$>>>[^ \t\n][^\n]\$" (1 'font-lock-warning-face t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	315
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	316 ;; Selected example (to highlight selected failure)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	317 (doctest-selection-matcher (0 'doctest-selection-face t))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	318 ))
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	319 "Expressions to highlight in Doctest mode.")
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	320
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	321 (defun doctest-output-line-matcher (limit)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	322 "A `font-lock-keyword' MATCHER that returns t if the current
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	323 line is the expected output for a doctest example, and if so,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	324 sets `match-data' so that group 0 spans the current line."
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	325 ;; The real work is done by find-doctest-output-line.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	326 (when (find-doctest-output-line limit)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	327 ;; If we found one, then mark the entire line.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	328 (beginning-of-line)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	329 (search-forward-regexp "[^\n]*" limit)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	330
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	331 ;; [XX] Under construction.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	332 (defun doctest-selection-matcher (limit)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	333 (let (found-it)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	334 (while (and (not found-it)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	335 (search-forward-regexp "^[ \t]*\$>>>\\\|[.][.][.]\$"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	336 limit t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	337 (if (get-text-property (point) 'doctest-selected)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	338 (setq found-it t)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	339 found-it))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	340
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	341 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	342 ;; Source line indentation
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	343 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	344
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	345 (defun doctest-indent-source-line (&optional dedent-only)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	346 "Re-indent the current line, as doctest source code. I.e., add a
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	347 prompt to the current line if it doesn't have one, and re-indent the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	348 source code (to the right of the prompt). If `dedent-only' is true,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	349 then don't increase the indentation level any."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	350 (interactive "*")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	351 (let ((indent-end nil))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	352 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	353 (beginning-of-line)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	354 (let ((new-indent (doctest-current-source-line-indentation dedent-only))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	355 (new-margin (doctest-current-source-line-margin))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	356 (line-had-prompt (looking-at doctest-prompt-re)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	357 ;; Delete the old prompt (if any).
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	358 (when line-had-prompt
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	359 (goto-char (match-end 1))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	360 (delete-char 4))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	361 ;; Delete the old indentation.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	362 (delete-backward-char (skip-chars-forward " \t"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	363 ;; If it's a continuation line, or a new PS1 prompt,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	364 ;; then copy the margin.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	365 (when (or new-indent (not line-had-prompt))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	366 (beginning-of-line)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	367 (delete-backward-char (skip-chars-forward " \t"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	368 (insert-char ?\ new-margin))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	369 ;; Add the new prompt.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	370 (insert-string (if new-indent "... " ">>> "))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	371 ;; Add the new indentation
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	372 (if new-indent (insert-char ?\ new-indent))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	373 (setq indent-end (point))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	374 ;; If we're left of the indentation end, then move up to the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	375 ;; indentation end.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	376 (if (< (point) indent-end) (goto-char indent-end))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	377
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	378 (defun doctest-current-source-line-indentation (&optional dedent-only)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	379 "Return the post-prompt indent to use for this line. This is an
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	380 integer for a continuation lines, and nil for non-continuation lines."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	381 (save-excursion
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	382 (let ((prev-line-indent 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	383 (curr-line-indent 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	384 (prev-line-opens-block nil)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	385 (prev-line-closes-block nil)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	386 (curr-line-outdented nil))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	387 ;; Examine this doctest line.
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	388 (beginning-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	389 (when (looking-at doctest-prompt-re)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	390 (setq curr-line-indent (- (match-end 3) (match-beginning 3)))
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	391 (goto-char (match-end 3)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	392 (setq curr-line-outdented (looking-at doctest-outdent-re))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	393 ;; Examine the previous line.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	394 (when (= (forward-line -1) 0) ; move up a line
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	395 (when (looking-at doctest-prompt-re) ; is it a source line?
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	396 (let ((indent-beg (column-at-char (match-beginning 3)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	397 (indent-end (column-at-char (match-end 3))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	398 (setq prev-line-indent (- indent-end indent-beg))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	399 (goto-char (match-end 3))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	400 (if (looking-at doctest-open-block-re)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	401 (setq prev-line-opens-block t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	402 (if (looking-at doctest-close-block-re)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	403 (setq prev-line-closes-block t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	404 (if (looking-at doctest-no-outdent-re)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	405 (setq curr-line-outdented nil))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	406 )))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	407 (let ((indent (+ prev-line-indent
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	408 (if curr-line-outdented -4 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	409 (if prev-line-opens-block 4 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	410 (if prev-line-closes-block -4 0))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	411 ;; If dedent-only is true, then make sure we don't indent.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	412 (when dedent-only
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	413 (setq indent (min indent curr-line-indent)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	414 ;; If indent=0 and we're not outdented, then set indent to
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	415 ;; nil (to signify the start of a new source example).
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	416 (when (and (= indent 0) (not curr-line-outdented))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	417 (setq indent nil))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	418 ;; Return the indentation.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	419 indent))))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	420
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	421 (defun doctest-current-source-line-margin ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	422 "Return the pre-prompt margin to use for this source line. This is
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	423 copied from the most recent source line, or set to
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	424 `doctest-default-margin' if there are no preceeding source lines."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	425 (save-excursion
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	426 (beginning-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	427 (if (search-backward-regexp doctest-prompt-re nil t)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	428 (let ((margin-beg (column-at-char (match-beginning 1)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	429 (margin-end (column-at-char (match-end 1))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	430 (- margin-end margin-beg))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	431 doctest-default-margin)))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	432
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	433 (defun doctest-electric-backspace ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	434 "Delete the preceeding character, level of indentation, or
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	435 prompt.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	436
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	437 If point is at the leftmost column, delete the preceding newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	438
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	439 Otherwise, if point is at the first non-whitespace character
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	440 following an indented source line's prompt, then reduce the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	441 indentation to the next multiple of 4; and update the source line's
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	442 prompt, when necessary.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	443
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	444 Otherwise, if point is at the first non-whitespace character
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	445 following an unindented source line's prompt, then remove the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	446 prompt (converting the line to an output line or text line).
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	447
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	448 Otherwise, if point is at the first non-whitespace character of a
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	449 line, the delete the line's indentation.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	450
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	451 Otherwise, delete the preceeding character.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	452 "
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	453 (interactive "*")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	454 (cond
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	455 ;; Beginning of line: delete preceeding newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	456 ((bolp) (backward-delete-char 1))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	457
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	458 ;; First non-ws char following prompt: dedent or remove prompt.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	459 ((and (looking-at "[^ \t\n]\\\|$") (doctest-looking-back doctest-prompt-re))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	460 (let* ((prompt-beg (match-beginning 2))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	461 (indent-beg (match-beginning 3)) (indent-end (match-end 3))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	462 (old-indent (- indent-end indent-beg))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	463 (new-indent (* (/ (- old-indent 1) 4) 4)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	464 (cond
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	465 ;; Indented source line: dedent it.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	466 ((> old-indent 0)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	467 (goto-char indent-beg)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	468 (delete-region indent-beg indent-end)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	469 (insert-char ?\ new-indent)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	470 ;; Change prompt to PS1, when appropriate.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	471 (when (and (= new-indent 0) (not (looking-at doctest-outdent-re)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	472 (delete-backward-char 4)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	473 (insert-string ">>> ")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	474 ;; Non-indented source line: remove prompt.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	475 (t
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	476 (goto-char indent-end)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	477 (delete-region prompt-beg indent-end)))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	478
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	479 ;; First non-ws char of a line: delete all indentation.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	480 ((and (looking-at "[^ \n\t]\\\|$") (doctest-looking-back "^[ \t]+"))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	481 (delete-region (match-beginning 0) (match-end 0)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	482
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	483 ;; Otherwise: delete a character.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	484 (t
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	485 (backward-delete-char 1))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	486
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	487 (defun doctest-newline-and-indent ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	488 "Insert a newline, and indent the new line appropriately.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	489
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	490 If the current line is a source line containing a bare prompt,
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	491 then clear the current line, and insert a newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	492
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	493 Otherwise, if the current line is a source line, then insert a
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	494 newline, and add an appropriately indented prompt to the new
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	495 line.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	496
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	497 Otherwise, if the current line is an output line, then insert a
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	498 newline and indent the new line to match the example's margin.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	499
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	500 Otherwise, insert a newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	501
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	502 If `doctest-avoid-trailing-whitespace' is true, then clear any
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	503 whitespace to the left of the point before inserting a newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	504 "
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	505 (interactive "*")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	506 ;; If we're avoiding trailing spaces, then delete WS before point.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	507 (if doctest-avoid-trailing-whitespace
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	508 (delete-char (- (skip-chars-backward " \t"))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	509 (cond
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	510 ;; If we're on an empty prompt, delete it.
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	511 ((on-empty-doctest-source-line)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	512 (delete-region (match-beginning 0) (match-end 0))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	513 (insert-char ?\n 1))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	514 ;; If we're on a doctest line, add a new prompt.
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	515 ((on-doctest-source-line)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	516 (insert-char ?\n 1)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	517 (doctest-indent-source-line))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	518 ;; If we're in doctest output, indent to the margin.
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	519 ((on-doctest-output-line)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	520 (insert-char ?\n 1)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	521 (insert-char ?\ (doctest-current-source-line-margin)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	522 ;; Otherwise, just add a newline.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	523 (t (insert-char ?\n 1))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	524
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	525 (defun doctest-electric-colon ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	526 "Insert a colon, and dedent the line when appropriate."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	527 (interactive "*")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	528 (insert-char ?: 1)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	529 (when (on-doctest-source-line)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	530 (doctest-indent-source-line t)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	531
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	532 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	533 ;; Code Execution
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	534 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	535
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	536 ;; Add support for options (eg diff!)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	537 (defun doctest-execute-buffer ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	538 "Run doctest on the current buffer, and display the results in the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	539 doctest-output buffer."
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	540 (interactive "*")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	541 (setq doctest-results-buffer (get-buffer-create "doctest-output"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	542 (let* ((temp (concat (doctest-temp-name) ".py"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	543 (tempfile (expand-file-name temp doctest-temp-directory))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	544 (cur-buf (current-buffer))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	545 (in-buf (get-buffer-create "doctest-input"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	546 (beg (point-min)) (end (point-max))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	547 (script (concat "from doctest import *\n"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	548 "doc = open('" tempfile "').read()\n"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	549 "test = DocTestParser().get_doctest("
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	550 "doc, {}, '" (buffer-name) "', '"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	551 (buffer-file-name) "', 0)\n"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	552 "r = DocTestRunner()\n"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	553 "r.run(test)\n"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	554 (cmd (concat doctest-python-command " -c \"" script "\"")))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	555 ;; Write buffer to a file.
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	556 (save-excursion
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	557 (set-buffer in-buf)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	558 (insert-buffer-substring cur-buf beg end)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	559 (write-file tempfile))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	560 ;; Run doctest
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	561 (shell-command cmd doctest-results-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	562 ;; Delete the temp file
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	563 (delete-file tempfile)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	564 ;; Set mode on output buffer.
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	565 (save-excursion
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	566 (set-buffer doctest-results-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	567 (doctest-results-mode))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	568 ;; If any tests failed, display them.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	569 (cond ((> (buffer-size doctest-results-buffer) 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	570 (message "Test failed!")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	571 (display-buffer doctest-results-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	572 (doctest-postprocess-results))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	573 (t
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	574 (message "Test passed!")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	575 (if (get-buffer-window doctest-results-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	576 (delete-window (get-buffer-window doctest-results-buffer)))))))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	577
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	578 (defun doctest-postprocess-results ()
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	579 (doctest-next-failure 1)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	580 (if hide-example-source
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	581 (hide-example-source)))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	582
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	583 (defun doctest-next-failure (count)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	584 "Move to the top of the next failing example, and highlight the
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	585 example's failure description in doctest-output."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	586 (interactive "p")
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	587 (let (lineno)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	588 (cond
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	589 ((not (buffer-live-p doctest-results-buffer))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	590 (message "Run doctest first! (C-c C-c)"))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	591 (t
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	592 (save-excursion
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	593 (let ((orig-window (selected-window))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	594 (results-window (display-buffer doctest-results-buffer)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	595 ;; Switch to the results window (so its point gets updated)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	596 (if results-window (select-window results-window))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	597 ;; Pick up where we left off.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	598 ;; (nb: doctest-selected-failure is buffer-local)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	599 (goto-char (or doctest-selected-failure (point-min)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	600 ;; Skip past anything on this line.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	601 (if (>= count 0) (end-of-line) (beginning-of-line))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	602 ;; Look for the next failure
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	603 (if (>= count 0)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	604 (re-search-forward doctest-results-loc-re nil t count)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	605 (re-search-backward doctest-results-loc-re nil t (- count)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	606 (cond
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	607 ;; We found a failure:
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	608 ((match-string 2)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	609 (let ((old-selected-failure doctest-selected-failure))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	610 ;; Extract the line number for the doctest file.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	611 (setq lineno (string-to-int (match-string 2)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	612 ;; Store our position for next time.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	613 (beginning-of-line)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	614 (setq doctest-selected-failure (point))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	615 ;; Update selection.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	616 (doctest-fontify-line old-selected-failure)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	617 (doctest-fontify-line doctest-selected-failure)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	618 ;; We didn't find a failure:
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	619 (t
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	620 (message "No failures found!")))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	621 ;; Return to the original window
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	622 (select-window orig-window)))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	623
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	624 (when lineno
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	625 ;; Move point to the selected failure.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	626 (goto-line lineno)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	627 ; ;; Highlight it. [XX] Under construction.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	628 ; (let ((beg (save-excursion (beginning-of-line) (point)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	629 ; (end (save-excursion (end-of-line) (point))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	630 ; (add-text-properties (point-min) (point-max) '(doctest-selected nil))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	631 ; (add-text-properties beg end '(doctest-selected t))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	632 ; (doctest-fontify-line (point)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	633 )))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	634
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	635 (defun doctest-prev-failure (count)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	636 "Move to the top of the previous failing example, and highlight
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	637 the example's failure description in doctest-output."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	638 (interactive "p")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	639 (doctest-next-failure (- count)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	640
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	641 (defun doctest-first-failure ()
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	642 (interactive "")
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	643 (if (buffer-live-p doctest-results-buffer)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	644 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	645 (set-buffer doctest-results-buffer)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	646 (let ((old-selected-failure doctest-selected-failure))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	647 (setq doctest-selected-failure (point-min))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	648 (doctest-fontify-line old-selected-failure))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	649 (doctest-next-failure 1))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	650
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	651 (defun doctest-last-failure ()
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	652 (interactive "")
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	653 (if (buffer-live-p doctest-results-buffer)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	654 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	655 (set-buffer doctest-results-buffer)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	656 (let ((old-selected-failure doctest-selected-failure))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	657 (setq doctest-selected-failure (point-max))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	658 (doctest-fontify-line old-selected-failure))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	659 (doctest-next-failure -1))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	660
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	661 (defconst doctest-example-source-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	662 "^Failed example:\n\$\n\\\| [^\n]*\n\$+")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	663 (defun hide-example-source ()
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	664 "Delete the source code listings from the results buffer (since it's
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	665 easy enough to see them in the original buffer)"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	666 (save-excursion
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	667 (set-buffer doctest-results-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	668 (toggle-read-only nil)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	669 (beginning-of-buffer)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	670 (while (re-search-forward doctest-example-source-re nil t)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	671 (replace-match "" nil nil))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	672 (toggle-read-only t)))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	673
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	674 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	675 ;; Doctest Results Mode (output of doctest-execute-buffer)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	676 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	677 ;; [XX] Todo:
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	678 ;; - Make it read-only?
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	679 ;; - Hitting enter goes to the corresponding error
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	680 ;; - Clicking goes to corresponding error (not as useful)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	681
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	682
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	683 (defconst doctest-results-divider-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	684 "^\$[*]\\{60,\\}\$$")
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	685
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	686 (defconst doctest-results-loc-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	687 "^File \"\$[^\"]+\$\", line \$[0-9]+\$, in \$[^\n]+\$")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	688
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	689 (defconst doctest-results-header-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	690 "^\$[a-zA-Z0-9 ]+:\$$")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	691
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	692 (defconst doctest-results-font-lock-keywords
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	693 `((,doctest-results-divider-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	694 (0 'doctest-results-divider-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	695 (,doctest-results-loc-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	696 (0 'doctest-results-loc-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	697 (,doctest-results-header-re
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	698 (0 'doctest-results-header-face))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	699 (doctest-results-selection-matcher
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	700 (0 'doctest-results-selection-face t))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	701
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	702 (defun doctest-results-selection-matcher (limit)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	703 "Matches from `doctest-selected-failure' to the end of the
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	704 line. This is used to highlight the currently selected failure."
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	705 (when (and doctest-selected-failure
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	706 (<= (point) doctest-selected-failure)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	707 (< doctest-selected-failure limit))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	708 (goto-char doctest-selected-failure)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	709 (search-forward-regexp "[^\n]+" limit)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	710
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	711 ;; Register the font-lock keywords (xemacs)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	712 (put 'doctest-results-mode 'font-lock-defaults
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	713 '(doctest-results-font-lock-keywords))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	714
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	715 ;; Register the font-lock keywords (gnu emacs)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	716 (defvar font-lock-defaults-alist nil) ; in case we're in xemacs
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	717 (setq font-lock-defaults-alist
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	718 (append font-lock-defaults-alist
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	719 `((doctest-results-mode
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	720 doctest-results-font-lock-keywords
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	721 nil nil nil nil))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	722
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	723 ;; Define the mode
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	724 (define-derived-mode doctest-results-mode text-mode "Doctest Results"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	725 "docstring"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	726 ;; Enable font-lock mode.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	727 (if (featurep 'font-lock) (font-lock-mode 1))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	728 ;; Keep track of which failure is selected
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	729 (set (make-local-variable 'doctest-selected-failure) nil)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	730 ;; Make the buffer read-only.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	731 (toggle-read-only t))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	732
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	733 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	734 ;; Helper functions
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	735 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	736
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	737 (defun on-doctest-source-line ()
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	738 "Return true if the current line is a source line."
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	739 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	740 (beginning-of-line)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	741 (looking-at doctest-prompt-re)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	742
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	743 (defun on-empty-doctest-source-line ()
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	744 "Return true if the current line contains a bare prompt."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	745 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	746 (beginning-of-line)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	747 (looking-at (concat doctest-prompt-re "$"))))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	748
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	749 (defun on-doctest-output-line ()
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	750 "Return true if the current line is an output line."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	751 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	752 (beginning-of-line)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	753 (let ((prompt-or-blankline (concat doctest-prompt-re "\\\|" "^[ \t]*\n")))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	754 ;; The line must not be blank or start with a prompt.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	755 (when (not (looking-at prompt-or-blankline))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	756 ;; The line must follow a line starting with a prompt, with
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	757 ;; no intervening blank lines.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	758 (search-backward-regexp prompt-or-blankline nil t)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	759 (looking-at doctest-prompt-re)))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	760
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	761 (defun find-doctest-output-line (&optional limit)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	762 "Move forward to the next doctest output line (staying within
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	763 the given bounds). Return the character position of the doctest
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	764 output line if one was found, and false otherwise."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	765 (let ((found-it nil) ; point where we found an output line
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	766 (limit (or limit (point-max)))) ; default value for limit
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	767 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	768 ;; Keep moving forward, one line at a time, until we find a
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	769 ;; doctest output line.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	770 (while (and (not found-it) (< (point) limit) (not (eobp)))
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	771 (if (and (not (eolp)) (on-doctest-output-line))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	772 (setq found-it (point))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	773 (forward-line))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	774 ;; If we found a doctest output line, then go to it.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	775 (if found-it (goto-char found-it))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	776
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	777 (defun doctest-version ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	778 "Echo the current version of `doctest-mode' in the minibuffer."
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	779 (interactive)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	780 (message "Using `doctest-mode' version %s" doctest-version))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	781
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	782 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	783 ;; Utility functions
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	784 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	785
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	786 (defvar doctest-serial-number 0) ;used if broken-temp-names.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	787 (defun doctest-temp-name ()
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	788 (if (memq 'broken-temp-names features)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	789 (let
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	790 ((sn doctest-serial-number)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	791 (pid (and (fboundp 'emacs-pid) (emacs-pid))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	792 (setq doctest-serial-number (1+ doctest-serial-number))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	793 (if pid
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	794 (format "doctest-%d-%d" sn pid)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	795 (format "doctest-%d" sn)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	796 (make-temp-name "doctest-")))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	797
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	798 (defun column-at-char (pos)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	799 "Return the column of the given character position"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	800 (save-excursion (goto-char pos) (current-column)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	801
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	802 (defun doctest-looking-back (regexp)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	803 "Return True if the text before point matches the given regular
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	804 expression. Like looking-at except backwards and slower. (This
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	805 is available as `looking-back' in GNU emacs and
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	806 `looking-at-backwards' in XEmacs, but it's easy enough to define
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	807 from scratch such that it works under both.)"
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	808 (save-excursion
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	809 (let ((orig-pos (point)))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	810 ;; Search backwards for the regexp.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	811 (if (re-search-backward regexp nil t)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	812 ;; Check if it ends at the original point.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	813 (= orig-pos (match-end 0))))))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	814
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	815 (defun doctest-fontify-line (charpos)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	816 "Run font-lock-fontify-region on the line containing the given
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	817 position."
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	818 (if charpos
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	819 (save-excursion
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	820 (goto-char charpos)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	821 (let ((beg (progn (beginning-of-line) (point)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	822 (end (progn (end-of-line) (point))))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	823 (font-lock-fontify-region beg end)))))
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	824
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	825 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	826 ;; Syntax Table
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	827 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	828
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	829 ;; We do NOT currently use this, because it applies too
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	830 ;; indiscrimanantly. In particular, we don't want "'" and '"' treated
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	831 ;; as quote marks on text lines. But there's no good way to prevent
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	832 ;; it.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	833 (defvar doctest-syntax-alist nil
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	834 "Syntax alist used in `doctest-mode' buffers.")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	835 (setq doctest-syntax-alist '((?\( . "()") (?\[ . "(]") (?\{ . "(}")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	836 (?\) . ")(") (?\] . ")[") (?\} . "){")
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	837 (?\$ . "." ) (?\% . "." ) (?\& . "." )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	838 (?\* . "." ) (?\+ . "." ) (?\- . "." )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	839 (?\/ . "." ) (?\< . "." ) (?\= . "." )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	840 (?\> . "." ) (?\\| . "." ) (?\_ . "w" )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	841 (?\' . "\"") (?\" . "\"") (?\` . "$" )
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	842 (?\# . "<" ) (?\n . ">" )))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	843
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	844 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	845 ;; Key Bindings
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	846 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	847
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	848 (defconst doctest-mode-map
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	849 (let ((map (make-keymap)))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	850 (define-key map [backspace] 'doctest-electric-backspace)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	851 (define-key map [return] 'doctest-newline-and-indent)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	852 (define-key map [tab] 'doctest-indent-source-line)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	853 (define-key map ":" 'doctest-electric-colon)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	854 (define-key map "\C-c\C-v" 'doctest-version)
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	855 (define-key map "\C-c\C-c" 'doctest-execute-buffer)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	856 (define-key map "\C-c\C-n" 'doctest-next-failure)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	857 (define-key map "\C-c\C-p" 'doctest-prev-failure)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	858 (define-key map "\C-c\C-a" 'doctest-first-failure)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	859 (define-key map "\C-c\C-z" 'doctest-last-failure)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	860 map)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	861 "Keymap for doctest-mode.")
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	862
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	863 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	864 ;; Define the mode
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	865 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	866
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	867 ;; Register the font-lock keywords (xemacs)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	868 (put 'doctest-mode 'font-lock-defaults '(doctest-font-lock-keywords))
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	869
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	870 ;; Register the font-lock keywords (gnu emacs)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	871 (defvar font-lock-defaults-alist nil) ; in case we're in xemacs
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	872 (setq font-lock-defaults-alist
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	873 (append font-lock-defaults-alist
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	874 `((doctest-mode doctest-font-lock-keywords nil nil nil nil))))
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	875
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	876 ;; Use doctest mode for files ending in .doctest
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	877 ;;;###autoload
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	878 (add-to-list 'auto-mode-alist '("\\.doctest$" . doctest-mode))
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	879
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	880 ;;;###autoload
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	881 (define-derived-mode doctest-mode text-mode "Doctest"
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	882 "A major mode for editing text files that contain Python
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	883 doctest examples. Doctest is a testing framework for Python that
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	884 emulates an interactive session, and checks the result of each
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	885 command. For more information, see the Python library reference:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	886 <http://docs.python.org/lib/module-doctest.html>
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	887
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	888 `doctest-mode' defines three kinds of line, each of which is
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	889 treated differently:
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	890
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	891 - 'Source lines' are lines consisting of a Python prompt
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	892 ('>>>' or '...'), followed by source code. Source lines are
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	893 colored (similarly to `python-mode') and auto-indented.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	894
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	895 - 'Output lines' are non-blank lines immediately following
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	896 source lines. They are colored using several doctest-
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	897 specific output faces.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	898
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	899 - 'Text lines' are any other lines. They are not processed in
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	900 any special way.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	901
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	902 \\{doctest-mode-map}
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	903 "
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	904 ;; Enable auto-fill mode.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	905 (auto-fill-mode 1)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	906
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	907 ;; Enable font-lock mode.
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	908 (if (featurep 'font-lock) (font-lock-mode 1))
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	909
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	910 ;; Register our indentation function.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	911 (set (make-local-variable 'indent-line-function)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	912 'doctest-indent-source-line)
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	913
19 b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	914 ;; Keep track of our results buffer.
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	915 (set (make-local-variable 'doctest-results-buffer) nil)
b5d75594b356 Add support for the ipython-mode stuff and remove vestigial pymacs code. Augie Fackler <durin42@gmail.com> parents: 0 diff changeset	916 )
0 c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	917
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	918 (provide 'doctest-mode)
c30d68fbd368 Initial import from svn. Augie Fackler <durin42@gmail.com> parents: diff changeset	919 ;;; doctest-mode.el ends here

Mercurial > dotfiles

annotate .elisp/doctest-mode.el @ 173:fd92c15701ae