Re: Special alignment in org-mode

[David Cao <duhpster@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 3310 bytes --]

Alright, I will try this solution out. Thanks for the advice!

On Thu, Apr 28, 2016 at 10:40 AM John Kitchin <jkitchin@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 <jkitchin@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
>

[-- Attachment #2: Type: text/html, Size: 4924 bytes --]