all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* adapted org-flag-drawer to hide newlines of consecutive drawers to save lines
@ 2013-11-12 15:47 Gregor Kappler
  2013-11-12 21:46 ` Bastien
  0 siblings, 1 reply; 10+ messages in thread
From: Gregor Kappler @ 2013-11-12 15:47 UTC (permalink / raw)
  To: emacs-orgmode

Often several consecutive drawers follow the headline in my setup.
Maybe this code to hide newlines after drawers is of some use.

When drawers are hidden this wastes three lines of screen real estate
: * heading
: :LOGBOOK:...
: :CLOCK:...
: :PROPERTIES:...
per line.

I adapted org-flag-drawer to hide the newlines as well if another drawer
is following:
: * heading
: :LOGBOOK:...:CLOCK:...:PROPERTIES:...

This lead to a much denser editing experience.

Maybe this is not the best way to do this.  But this trick caused no
troubles for me during the last months.  All the best!

Gregor

#+BEGIN_SRC emacs-lisp
  (defun org-flag-drawer (flag)
    "When FLAG is non-nil, hide the drawer we are within, 
     including the newline at end of a drawer, 
     yet only if another drawer is following.  
     If FLAG is nil, make drawer it visible."
    (save-excursion
      (beginning-of-line 1)
      (when (looking-at "^[ \t]*:[a-zA-Z][a-zA-Z0-9]*:")
        (let ((b (match-end 0))
  	    (selective-display-ellipses nil))
  	(if (re-search-forward
  	     "^[ \t]*:END:"
  	     (save-excursion (outline-next-heading) (point)) t)
  	    (outline-flag-region b (save-excursion 
  				     (forward-line) 
  				     (if (looking-at org-drawer-regexp) 
  					 (point-at-bol)
  				       (match-end 0)))
  				 flag)
  	  (error ":END: line missing at position %s in buffer %s" b (buffer-name)))))))

#+END_SRC

Refererences
-- org.el::org-cycle-hide-drawers

-- 

^ permalink raw reply	[flat|nested] 10+ messages in thread

end of thread, other threads:[~2013-11-15 19:30 UTC | newest]

Thread overview: 10+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-11-12 15:47 adapted org-flag-drawer to hide newlines of consecutive drawers to save lines Gregor Kappler
2013-11-12 21:46 ` Bastien
2013-11-13  8:20   ` Nicolas Goaziou
2013-11-13  8:52     ` Bastien
2013-11-13 11:24       ` Nicolas Goaziou
2013-11-13 11:43         ` Bastien
2013-11-14 17:43           ` Nicolas Goaziou
2013-11-14 22:55             ` Bastien
2013-11-15 16:56               ` Nicolas Goaziou
2013-11-15 19:30                 ` Bastien

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.