34 lines
1 KiB
EmacsLisp
34 lines
1 KiB
EmacsLisp
;;; funcs.el --- Python Layer functions File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2014 Sylvain Benner
|
|
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
;; 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)))))
|