fold-python-docstrings.el

;; outline-minor-mode needs to be enabled for this to work.

(setq py-docstring-regexp "\"\"\"")

(defvar py-docstrings-folded nil)

(defun py-toggle-docstrings ()
  (interactive)
  (if py-docstrings-folded
      (setq py-docstrings-folded nil)
    (setq py-docstrings-folded t))
  (save-excursion
    (goto-char (point-min))
    (let ((start) (end))
      (while (and
              (setq start (re-search-forward py-docstring-regexp nil t))
              (setq end (re-search-forward py-docstring-regexp nil t)))
        (outline-flag-region start end py-docstrings-folded)))))