Alright, I will try this solution out. Thanks for the advice!
On Thu, Apr 28, 2016 at 10:40 AM John Kitchin <jkitc...@andrew.cmu.edu>
wrote:
> 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 ( 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
>
