|
From: | Carsten Dominik |
Subject: | Re: [Orgmode] Re: Dividers in File |
Date: | Thu, 20 Nov 2008 08:26:48 +0100 |
On Nov 20, 2008, at 4:51 AM, Eddward DeVilla wrote:
It is not too hard to hack this, using org-cycle-hook: (defun org-cycle-show-hlines (state) "Show hlines after visibility changes." (let ((re "^-----+$") beg end) (save-excursion (cond ((memq state '(overview contents t)) (setq beg (point-min) end (point-max))) ((memq state '(children folded)) (setq beg (point) end (org-end-of-subtree t t)))) (when beg (goto-char beg) (while (re-search-forward re end t) (outline-flag-region (1- (match-beginning 0)) (progn (outline-next-heading) (point)) nil)))))) (eval-after-load "org" '(add-hook 'org-cycle-hook 'org-cycle-show-hlines 'append)) HTH - Carsten |
[Prev in Thread] | Current Thread | [Next in Thread] |