In this case though you probably want to specify a fixed column, and consider using something like indent-rigidly on the heading body so you don't have an overlay on every single line.
David Cao writes: > Hi! > > This solution works fairly well with the headers themselves, but the actual > content beneath the headers stays to the side of the buffer (as pictured: > http://i.imgur.com/nGv8XBI.png). > Would there be any way to fix this? > > David > > On Wed, Apr 27, 2016 at 9:47 AM John Kitchin <jkitc...@andrew.cmu.edu> > wrote: > >> I think this does approximately what you want: >> >> #+BEGIN_SRC emacs-lisp :results none >> (require 'ov) >> >> (defun org-max-heading-depth () >> "Get maximum depth of a heading." >> (let ((max-depth 0) >> depth) >> (org-map-entries (lambda () >> (when (> (setq depth (car >> (org-heading-components))) max-depth) >> (setq max-depth depth)))) >> max-depth)) >> >> >> (defun org-right-align-overlay () >> "Put an overlay on headline * to right align to maximum depth. >> Should be run while on the headline." >> (interactive) >> (let* ((diff (- (org-max-heading-depth) (car (org-heading-components)))) >> ov) >> (while (and (setq ov (ov-at (match-beginning 1))) >> (overlay-get ov 'right-align)) >> (delete-overlay ov)) >> >> ;; (setq ov (make-overlay (line-beginning-position) (+ 1 >> (line-beginning-position)))) >> (setq ov (make-overlay (match-beginning 1) (+ 1 (match-beginning 1)))) >> (overlay-put ov 'before-string (make-string diff ? )) >> (overlay-put ov 'right-align t))) >> >> (defun org-right-align-clear () >> (interactive) >> (ov-clear 'right-align)) >> >> (defun align-matcher (&optional limit) >> (while (re-search-forward org-heading-regexp limit t) >> (org-right-align-overlay))) >> >> (add-to-list 'org-font-lock-hook 'align-matcher) >> #+END_SRC >> >> Its only light tested, and may be slow on a long document because it is >> checking the maximum depth each time. You could set this to a constant, >> e.g. 8 if it is too slow. >> >> David Cao writes: >> >> > Hello, >> > >> > I was wondering if there is any way to right-align the header indicators >> > while left-aligning the actual content. Unfortunately I haven't been able >> > to find any mention of such a feature online. >> > >> > For example: >> > >> > * My fancy org file >> > ** Header 2 >> > Some content here >> > *** Header 3 >> > >> > Thanks in advance! >> > David >> >> >> -- >> Professor John Kitchin >> Doherty Hall A207F >> Department of Chemical Engineering >> Carnegie Mellon University >> Pittsburgh, PA 15213 >> 412-268-7803 >> @johnkitchin >> http://kitchingroup.cheme.cmu.edu >> -- Professor John Kitchin Doherty Hall A207F Department of Chemical Engineering Carnegie Mellon University Pittsburgh, PA 15213 412-268-7803 @johnkitchin http://kitchingroup.cheme.cmu.edu
