22 lines
734 B
EmacsLisp
22 lines
734 B
EmacsLisp
|
;; from http://pedrokroger.net/2010/07/configuring-emacs-as-a-python-ide-2/
|
||
|
|
(defun annotate-pdb ()
|
||
|
|
"Highlight break point lines."
|
||
|
|
(interactive)
|
||
|
|
(highlight-lines-matching-regexp "import i?pdb")
|
||
|
|
(highlight-lines-matching-regexp "i?pdb.set_trace()"))
|
||
|
|
|
||
|
|
(defun python-toggle-breakpoint ()
|
||
|
|
"Add a break point, highlight it."
|
||
|
|
(interactive)
|
||
|
|
(let ((trace (if (executable-find "ipdb")
|
||
|
|
"import ipdb; ipdb.set_trace()"
|
||
|
|
"import pdb; pdb.set_trace()"))
|
||
|
|
(line (thing-at-point 'line)))
|
||
|
|
(if (and line (string-match trace line))
|
||
|
|
(kill-whole-line)
|
||
|
|
(progn
|
||
|
|
(back-to-indentation)
|
||
|
|
(insert-string trace)
|
||
|
|
(insert-string "\n")
|
||
|
|
(python-indent-line)))))
|