Re: [Orgmode] Re: org-style folding for a .emacs

[Michael Zeller]

Seb,

> Though, is there a way to get the font used for org-levels in the Emacs config
> file?  That would really greatly improve the readability, then!

Try changing th-outline-minor-mode-init to:

(defun th-outline-minor-mode-init ()
 (interactive)
 (setq outline-regexp (th-outline-regexp))
 ;; highlight the headings
 ;; see http://www.gnu.org/software/emacs/manual/html_node/emacs/Font-Lock.html
 ;; use M-x customize-apropos face to customize faces
 ;; to find the corresponding face for each outline level see org-faces.el
 (let ((heading-1-regexp (concat (substring outline-regexp 0 -1) "\\{1\\} 
\\(.*\\)"))
       (heading-2-regexp (concat (substring outline-regexp 0 -1) "\\{2\\} 
\\(.*\\)"))
       (heading-3-regexp (concat (substring outline-regexp 0 -1) "\\{3,\\} 
\\(.*\\)")))
   (font-lock-add-keywords
    nil
    `((,heading-1-regexp 1 font-lock-function-name-face t)
      (,heading-2-regexp 1 font-lock-variable-name-face t)
      (,heading-3-regexp 1 font-lock-keyword-face       t)))))

That should atleast highlight the first three headings properly and make
it more readable. I'm not quite sure how to make it cycle through the 8
colors like org-mode does.

Hope that helps,
~Michael Zeller

Sébastien Vauban <address@hidden> writes:

> Hello Michael,
>
>>> Does anyone have a recipe for easy org-style folding of an elisp file? I'd
>>> like to divide my .emacs into segments to make it easier to oversee and
>>> navigate.
>
> I asked myself this question a couple of days ago. Telepathy. For real.
> Good it has been asked, and answered.
>
> In my case, I am very interested as well by the literate programming approach.
> But I will comment on this later.
>
>
>> In summary, add the following to your ~/.emacs.el:
>>
>> (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)
>>
>> and add the following as the top line of your ~/.emacs.el:
>>
>> ; -*- mode: emacs-lisp; mode: outline-minor; -*-
>>
>> Now you can add ;;* and ;;**, etc as headings in your .emacs.el and
>> cycle using M-tab, M-left and M-right will collapse or expand all
>> headings respectively. I am guessing you mean to make segments such as
>> ;;* SHORTCUTS and ;;* VARIABLES, this will do that, but not too much
>> more.
>
> Done.
>
> Though, is there a way to get the font used for org-levels in the Emacs config
> file?  That would really greatly improve the readability, then!
>
> Best regards,
>   Seb