emacs.d / dss-python.el

Full commit
;; python-mode
(require 'dss-paths)
(require 'dss-codenav-helpers)
(require 'python-mode)
(require 'flymake)

(require 'dss-generic-code-tools) ; flymake/lint stuff

;;; see
;;; for a good overview of another very complete setup
(add-to-list 'auto-mode-alist '("\\.py$" . python-mode))
(add-to-list 'interpreter-mode-alist '("python" . python-mode))

(defvar dss-pycodechecker "dss_pycheck") ; this is a wrapper around, pyflakes and pylint

(when (load "flymake" t)
  (load-library "flymake-cursor")
  (defun flymake-pycodecheck-init ()
    (let* ((temp-file (flymake-init-create-temp-buffer-copy
           (local-file (file-relative-name
                        (file-name-directory buffer-file-name))))
      (if (not (string-match-p tramp-file-name-regexp buffer-file-name))
          ;; don't run for tramp buffers.
          (list dss-pycodechecker (list local-file)))))
  (add-to-list 'flymake-allowed-file-name-masks
               '("\\.py\\'" flymake-pycodecheck-init)))

;; (setq flymake-allowed-file-name-masks (assq-delete-all "\\.py\\'" flymake-allowed-file-name-masks))
;; (assoc "\\.py\\'" flymake-allowed-file-name-masks)

(defun dss/pylint-silence (msgid)
  "Add a special pylint comment to silence a particular warning."
  (interactive (list (read-from-minibuffer "msgid: " (dss/flymake-msgid-at-point))))
    (comment-dwim nil)
    (if (looking-at "pylint:")
        (progn (end-of-line)
               (insert ","))
        (insert "pylint: disable-msg="))
    (insert msgid)))

(defun dss/py-insert-docstring ()
  (if (not (save-excursion
             (forward-line 1)
             (looking-at "[\"']")))
        (open-line 1)
        (forward-line 1)
        (insert "\"\"\"\n")
        (insert "\"\"\"")))
    (forward-line 1)

(defun dss/py-insert-triple-quote ()
  (insert "\"\"\"")
  (save-excursion (insert " \"\"\"")))

(defun dss/py-fix-indent (top bottom)
  (interactive "r")
  (apply-macro-to-region-lines top bottom (kbd "TAB")))

(defun dss/py-fix-last-utterance ()
  "Downcase the previous word and remove any leading whitespace.
This is useful with Dragon NaturallySpeaking."
    (set-mark (point))
    (call-interactively 'py-forward-into-nomenclature)
    (call-interactively 'downcase-region)
    (setq mark-active nil)
    (delete-horizontal-space t)))

(defun dss/py-dot-dictate (words)
  (interactive "s")
    (if (looking-at-p "\\.")
    (delete-horizontal-space t)
    (if (save-excursion
          (not (looking-at-p "\\.")))
        (insert "."))
    (insert (mapconcat 'identity (split-string words) "_"))
    (delete-horizontal-space t)))

(defun dss/py-decorate-function (&optional decorator-name)
  (if (not (or (looking-at "def\\|class")
               (looking-at "@")))
  (if (not (save-excursion
             (forward-line -1)
             (looking-at-p "@")))
        ;;  make room for it:
        (while (not (save-excursion
                      (forward-line -1)
                      (looking-at-p "$")))
            (forward-line -1)
            (open-line 1)))
        (insert "@")
        (open-line 1)
        (if decorator-name
            (insert decorator-name))
          (forward-line 1)

(defun dss/py-make-classmethod ()
  (dss/py-decorate-function "classmethod"))

(defun dss/py-comment-line-p ()
  "Return non-nil iff current line has only a comment.
This is python-comment-line-p from Dave Love's python.el"
    (when (eq 'comment (syntax-ppss-context (syntax-ppss)))
      (looking-at (rx (or (syntax comment-start) line-end))))))

;; setup pymacs
(autoload 'pymacs-apply "pymacs")
(autoload 'pymacs-call "pymacs")
(autoload 'pymacs-eval "pymacs" nil t)
(autoload 'pymacs-exec "pymacs" nil t)
(autoload 'pymacs-load "pymacs" nil t)

(defvar dss-ropemacs-loaded nil)
(defun dss/ropemacs-init ()
  (unless dss-ropemacs-loaded
    (if (not (boundp 'ropemacs-global-prefix))
        (setq ropemacs-global-prefix nil))
    (pymacs-load "ropemacs" "rope-")
    (setq ropemacs-enable-autoimport nil)
    (define-key ropemacs-local-keymap (kbd "M-/") nil)
    (setq dss-ropemacs-loaded t)))

(defun dss/py-next-line ()

(defun dss/py-insert-self ()
  "Insert self. at the beginning of the current expression."
  (cond ((save-excursion
           (search-backward-regexp "[ \n\t,(-]\\|^")
           (looking-at "[A-Za-z_]+"))
           (search-backward-regexp "[ \n\t,(-]\\|^")
           (if (not (looking-at "^"))
           (insert "self.")))
        ((looking-at " *$")
         (insert "self"))
        (t (insert "self"))))

(defun dss/python-mode-hook ()
  (which-function-mode t)
  (set 'beginning-of-defun-function 'py-beginning-of-def-or-class)
  (setq outline-regexp "def\\|class ")
  (setq mode-name "PY:")
  (setq py-python-command-args '("-colors" "Linux"))
  (if (and (string-match "\\.py$" (buffer-name))
                                        ; and isn't a py-shell tmp buffer:
           (not (string-match "python-" (buffer-name))))
        ;; (unless dss/ecb-loaded
        ;;   (dss/load-ecb)
        ;;   (smex-update))
        (flymake-mode t)
        (linum-mode t)
        (ropemacs-mode t)

  ;; custom keybindings
  (mapc (lambda (char)
            (define-key py-mode-map char 'dss/electric-pair)
            (define-key py-shell-map char 'dss/electric-pair)
        '("\"" "\'" "(" "[" "{"))

  (define-key py-mode-map (kbd "C-p") 'dss/py-insert-self)

  (define-key py-mode-map (kbd "M-RET") 'dss/py-next-line)
  (define-key py-mode-map (kbd "C-M-@") 'mark-sexp)
  ;; rope-code-assist
  (define-key py-mode-map (kbd "M-/") 'dss/hippie-expand)
  (define-key py-mode-map (kbd "M-.") 'rope-goto-definition)

  ;;(define-key py-shell-map (kbd "C-M-@") 'dss/ido-ipython-complete)
  (define-key py-shell-map (kbd "C-M-@") 'mark-sexp)

  (define-key py-shell-map "\C-e" (lambda ()
                                    (goto-char (point-max))))
  (define-key py-shell-map (quote [up]) 'comint-previous-matching-input-from-input)
  (define-key py-shell-map (quote [down]) 'comint-next-matching-input-from-input)

  (local-set-key "\C-ch" 'pylookup-lookup))

(add-hook 'python-mode-hook 'dss/python-mode-hook)

;; python-mode helpers

;; ;@@TR: study this stuff for better remote proc control

;; ipython related
(set-default 'ipython-command "emacs_ipython") ; which is a shell script that handles all the virtualenv setup, etc
(require 'ipython)

(defun dss/reset-ipython-command ()
  (setq py-which-shell ipython-command))

(require 'auto-complete)

(defun dss/start-ipy-complete ()
  (setq ac-sources '(ac-source-dss-ipy-dot ac-source-dss-ipy ac-source-filename)))

(add-hook 'ipython-shell-hook 'dss/start-ipy-complete)
(add-hook 'py-shell-hook 'dss/start-ipy-complete)

(add-hook 'ipython-shell-hook '(lambda () (linum-mode -1)))
(add-hook 'py-shell-hook '(lambda () (linum-mode -1)))


(autoload 'rst "rst")
(add-to-list 'auto-mode-alist '("\\.rst$" . rst-mode))

;; (autoload 'doctest-mode "doctest-mode" "Editing mode for Python Doctest examples." t)
;; (autoload 'doctest-register-mmm-classes "doctest-mode")
;; (add-to-list 'auto-mode-alist '("\\.doctest$" . doctest-mode))
;; (doctest-register-mmm-classes t t)

; # @@TR: eldoc

;; cheetah .tmpl files
(autoload 'cheetah-mode "cheetah-mode")
(add-to-list 'auto-mode-alist '("\\.tmpl$" . cheetah-mode))

;; `Cython' mode.
(autoload 'cython-mode "cython-mode")
(add-to-list 'auto-mode-alist '("\\.pyx$" . cython-mode))
(add-to-list 'auto-mode-alist '("\\.pxd$" . cython-mode))

(require 'pylookup)
(autoload 'pylookup-lookup "pylookup"
  "Lookup SEARCH-TERM in the Python HTML indexes." t)
(autoload 'pylookup-update "pylookup"
  "Run pylookup-update and create the database at `pylookup-db-file'." t)

(provide 'dss-python)