my-emacs-d/elpa/smartparens-20161015.1227/smartparens-python.el
Gergely Polonkai 437e76ad7d Update packages
2016-10-17 10:11:13 +02:00

85 lines
2.9 KiB
EmacsLisp

;;; smartparens-python.el --- Additional configuration for Python based modes.
;; Copyright (C) 2015-2016 Matus Goljer
;; Author: Matus Goljer <matus.goljer@gmail.com>
;; Maintainer: Matus Goljer <matus.goljer@gmail.com>
;; Created: 8 February 2015
;; Keywords: abbrev convenience editing
;; URL: https://github.com/Fuco1/smartparens
;; This file is not part of GNU Emacs.
;;; License:
;; This file is part of Smartparens.
;; Smartparens is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; Smartparens is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with Smartparens. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file provides some additional configuration for Python based
;; modes. To use it, simply add:
;;
;; (require 'smartparens-python)
;;
;; into your configuration. You can use this in conjunction with the
;; default config or your own configuration.
;;
;; If you have good ideas about what should be added please file an
;; issue on the github tracker.
;;
;; For more info, see github readme at
;; https://github.com/Fuco1/smartparens
;;; Code:
(require 'smartparens)
;; Python has no sexp suffices. This fixes slurping
;; (|sys).path.append---the dot should not travel with the closing
;; paren
(--each '(python-mode inferior-python-mode)
(add-to-list 'sp-sexp-suffix (list it 'regexp "")))
(sp-with-modes 'python-mode
(sp-local-pair "'" "'" :unless '(sp-in-comment-p sp-in-string-quotes-p))
(sp-local-pair "\"\"\"" "\"\"\"")
(sp-local-pair "(" nil :pre-handlers '(sp-python-pre-slurp-handler))
(sp-local-pair "[" nil :pre-handlers '(sp-python-pre-slurp-handler)))
(defun sp-python-pre-slurp-handler (id action context)
(when (eq action 'slurp-forward)
;; If there was no space before, we shouldn't add on.
;; ok = enclosing, next-thing one being slurped into
;; (variables let-bound in `sp-forward-slurp-sexp').
(save-excursion
(when (and (= (sp-get ok :end) (sp-get next-thing :beg))
(equal (sp-get ok :op) (sp-get next-thing :op)))
(goto-char (sp-get ok :end))
(when (looking-back " ")
(delete-char -1))))))
(defadvice python-indent-dedent-line-backspace
(around sp-backward-delete-char-advice activate)
(if smartparens-strict-mode
(cl-letf (((symbol-function 'delete-backward-char)
(lambda (arg &optional killp)
(sp-backward-delete-char arg))))
ad-do-it)
ad-do-it))
(provide 'smartparens-python)
;;; smartparens-python.el ends here