[Orgmode] Re: can the symbol for leading stars be changed?

[Tassilo Horn]

Gray Calhoun <address@hidden> writes:

Hi Gray,

>   Is there a way for users to easily replace the leading stars with
> another symbol?  In particular, I want to replace the '*' with '#' so
> that I use org mode to write pseduocode for R in outline form -- R
> uses # to designate comments and this would ensure that the headers
> wouldn't be read as code.

I guess you want to use `orgstruct-mode' in R files, right?  I also had
the idea to do that, but till now I failed.  As a workaround I use
`outline-minor-mode' and set the `outline-regexp' to <comment-character
of the language><one-or-many-stars>.

Here's the code from my .emacs.

--8<---------------cut here---------------start------------->8---
(defun th-outline-regexp ()
  "Calculate the outline regexp for the current mode."
  (let ((comment-starter (replace-regexp-in-string
                          "[[:space:]]+" "" comment-start)))
    (when (string= comment-start ";")
      (setq comment-starter ";;"))
    (concat "^" comment-starter "\\*+")))

(defun th-outline-minor-mode-init ()
  (interactive)
  (setq outline-regexp (th-outline-regexp)))

(add-hook 'outline-minor-mode-hook
          'th-outline-minor-mode-init)
--8<---------------cut here---------------end--------------->8---

I wonder if I cannot make `orgstruct-mode' work the same way.  I've
always thought that it uses `outline-regexp' for the cycling and stuff,
but maybe I'm wrong.  What's the correct regexp that's used for
`org-cycle'?  `org-complex-heading-regexp'?

Bye,
Tassilo