outline-mode to recognize Vim-type foldmarkers {{{1 {{{2 {{{3

outline-mode to recognize Vim-type foldmarkers {{{1 {{{2 {{{3

[Teemu Likonen]

Is it possible to configure outline-mode to recognize folding levels by
Vim-type foldmarkers? How? By default, Vim's foldmarker is {{{ and a
number after the marker defines the folding level, like this:

    {{{1            (= first-level heading)
    {{{2            (= second-level heading)
    {{{3            (= third-level heading)

Re: outline-mode to recognize Vim-type foldmarkers {{{1 {{{2 {{{3

[Andreas Politz]

Teemu Likonen wrote:
> Is it possible to configure outline-mode to recognize folding levels by
> Vim-type foldmarkers? How? By default, Vim's foldmarker is {{{ and a
> number after the marker defines the folding level, like this:
> 
>     {{{1            (= first-level heading)
>     {{{2            (= second-level heading)
>     {{{3            (= third-level heading)
> 


;; vim outline

Eval the next 2 expressions in the buffers context.

;; (set (make-local-variable 'outline-regexp)  ".*{{{\\([0-9]+\\)")
;; (set (make-local-variable 'outline-level) 'vim-outline-level)

(defun vim-outline-level ()
   (save-excursion
     (re-search-forward "{{{\\([0-9]+\\)" nil t)
     (string-to-number (match-string 1))))

-ap

Re: outline-mode to recognize Vim-type foldmarkers {{{1 {{{2 {{{3

[Teemu Likonen]

Andreas Politz (2008-11-27 00:03 +0100) wrote:

> ;; vim outline
>
> Eval the next 2 expressions in the buffers context.
>
> ;; (set (make-local-variable 'outline-regexp)  ".*{{{\\([0-9]+\\)")
> ;; (set (make-local-variable 'outline-level) 'vim-outline-level)
>
> (defun vim-outline-level ()
>   (save-excursion
>     (re-search-forward "{{{\\([0-9]+\\)" nil t)
>     (string-to-number (match-string 1))))

Thanks, and nice to hear that it wasn't very difficult.

Re: outline-mode to recognize Vim-type foldmarkers {{{1 {{{2 {{{3

[Teemu Likonen]

Andreas Politz (2008-11-27 00:03 +0100) wrote:

> ;; vim outline
>
> Eval the next 2 expressions in the buffers context.
>
> ;; (set (make-local-variable 'outline-regexp)  ".*{{{\\([0-9]+\\)")
> ;; (set (make-local-variable 'outline-level) 'vim-outline-level)
>
> (defun vim-outline-level ()
>   (save-excursion
>     (re-search-forward "{{{\\([0-9]+\\)" nil t)
>     (string-to-number (match-string 1))))

Thanks again. I turned this idea into an interactive command which can
be called like "M-x set-vim-foldmarker RET {{{ RET" or from Lisp code.
It can helpful to add lines like these

    (outline-minor-mode 1)
    (set-vim-foldmarker "{{{")

to some filetype's hook, for example. Here's the function:


(defun set-vim-foldmarker (fmr)
  "Set Vim-type foldmarkers for the current buffer"
  (interactive "sSet local Vim foldmarker: ")
  (when (not (equal fmr ""))
    (set (make-local-variable 'outline-regexp)
	 (concat ".*" fmr "\\([0-9]+\\)"))
    (set (make-local-variable 'outline-level)
	 `(lambda ()
	    (save-excursion
	      (re-search-forward
	       ,(concat fmr "\\([0-9]+\\)") nil t)
	      (string-to-number (match-string 1)))))))