Re: org-mode without stars

[Samuel Wales <samologist@gmail.com>]

Hi Bayle,

On 2011-01-22, Bayle Shanks <bshanks3@gmail.com> wrote:
> get new laptop
>
> organize interstellar dust meeting
>  book the meeting room
>  organize LOC
>  Invited speakers
>   - Draine
>   - Tielens
>   - Hollenbach
>  1st announcement
>
> fix the bell in the hall

I indent by spaces by 2 a lot to save typing.  c-c - and c-c * will
convert.  They do not handle indentation, but that might be a very
useful feature (I would use it too).

This does handle indentation.  I wrote it a very long time ago for a
different, 8-space indentation.

(defun alpha-orgify ()
  "quick hack.  create org format from my indented outline
format, which consists of 8-space indentation.  operate on the
region.  assume a certain number of stars and odd levels."
  (interactive)
  (let ((b (region-beginning))
        (e (region-end))
        ;;manually mod for now.  headline vs. bullet.
        (bulletp nil))
    (loop
       while
         (progn
           (save-excursion
             ;;use (re-)search-forward and replace-match when no query?  i'd
             ;;prefer without the pattern (i.e. just ^) but you might be
             ;;re-orgifying an already-orgified region.  btw match-string is
             ;;how you get the string.
             (perform-replace "^\\([^*]\\)"
                              (if bulletp
                                  "  \\1"
                                "*** \\1")
                              t         ;interactive
                              t nil nil nil
                              b
                              e))
           (save-excursion
             (perform-replace "        "
                              (if bulletp
                                  "  "
                                "**")
                              t         ;interactive
                              t nil nil nil
                              b
                              e))
           (when bulletp
             (progn
               ;;how to make it greedy?
               (perform-replace "^\\( +\\)\\([^ ]\\)" "\\1- \\2"
                                t         ;interactive
                                t nil nil nil)))))))

Samuel

-- 
The Kafka Pandemic:
http://thekafkapandemic.blogspot.com/2010/12/welcome-to-kafka-pandemic-two-forces_9182.html
I support the Whittemore-Peterson Institute (WPI)
===
I want to see the original (pre-hold) Lo et al. 2010 NIH/FDA/Harvard MLV paper.