Python outline mode in emacs

[holger krekel]

Laura Creighton wrote:
> When I told Ronny that I had posted this, he said 'But it didn't come
> with documentation and store the outline-display state with the buffer!
> Let me fix this!'

great! i'll try this soon. i didn't succeed with
your previous posting because i lack basic emacs-knowledge
(one of those one day things ...).

thanks,

    holger

> So here is a better version:
> 
> ;; Outline mode extension
> ;; ----------------------
> ;;
> ;; Author: Ronny Wikh <rw at strakt.com>, May 2002
> ;;
> ;; A simple extension of the outline mode with functions provided
> ;; for python and texi modes.
> ;;
> ;; The mode simply adds toggles for outline/show everything and
> ;; outline/show paragraph, where the 'paragraph' concept is
> ;; modified to mean classes and function definitions in python
> ;; and chapters and subsections in texi.
> ;;
> ;; Toggle entry is bound to C-c C-e
> ;; Toggle all is bound to C-c C-a
> ;;
> ;; The default is that a buffer is started in outline mode. This
> ;; behaviour is controlled by the variable 'outline-start-hidden'
> ;; which can be set in your .emacs:
> ;; 
> ;; (setq outline-start-hidden t) to start in outline (default) or
> ;; (setq outline-start-hidden nil) to start showing everything
> ;;
> ;; Activation of the mode can be done manually by calling the function
> ;;
> ;; 'python-outline' for python mode,
> ;; 'texi-outline' for texi mode
> ;;
> ;; or automatically by inserting the following lines into your .emacs file:
> ;;
> ;; (setq auto-mode-alist (append '(
> ;;		("\\.texi" . texi-outline)
> ;;		("\\.py" . python-outline))
> ;;              auto-mode-alist))
> ;;
> ;; Modes for other languages can easily be added by providing suitable
> ;; regexp expressions for that specific language in new functions.
> ;;
> 
> (defvar outline-start-hidden t "Start outline hidden")
> 
> (defun outline-setup (regexp)
>   "Setup outline mode"
>   (defvar outline-toggle-all-flag nil "toggle all flag")
>   (make-variable-buffer-local 'outline-toggle-all-flag)
>   (defvar cpos_save nil "current cursor position")
>   (outline-minor-mode)
>   (setq outline-regexp regexp)
>   (define-key outline-minor-mode-map "\C-c\C-e" 'outline-toggle-entry)
>   (define-key outline-minor-mode-map "\C-c\C-a" 'outline-toggle-all)
>   (if outline-start-hidden
>       (progn
> 	(setq outline-toggle-all-flag t)
> 	(hide-body)))
> 
>   (defun outline-toggle-entry () (interactive)
>     "Toggle outline hiding for the entry under the cursor"
>     (if (progn
> 	  (setq cpos_save (point))
> 	  (end-of-line)
> 	  (get-char-property (point) 'invisible))
> 	(progn 
> 	  (show-subtree)
> 	  (goto-char cpos_save))
>       (progn 
> 	(hide-leaves)
> 	(goto-char cpos_save))))
> 	
>   (defun outline-toggle-all () (interactive)
>     "Toggle outline hiding for the entire file"
>     (if outline-toggle-all-flag
> 	(progn
> 	  (setq outline-toggle-all-flag nil)
> 	  (show-all))
>       (progn 
> 	(setq outline-toggle-all-flag t)
> 	(hide-body))))
> )
> 
> (defun python-outline () (interactive)
>   "Python outline mode"
>   (python-mode)
>   (outline-setup "^class \\|[ 	]*def \\|^#"))
> 
> (defun texi-outline () (interactive)
>   "Texinfo outline mode"
>   (texinfo-mode)
>   (outline-setup "^@chap\\|@\\(sub\\)*section"))
> 
> 
> -- 
> http://mail.python.org/mailman/listinfo/python-list