[Orgmode] Using C-c - to (un)listify and/or C-c * to (un)"headify" ?

[Bastien]

Ahem. Sorry for the messy subject line.  
Here are two needs I often meet:

1. I need to listify the lines between a region
2. I need to convert lines into headlines

For now I'm using two simple functions (see below).  But I think there
is room for improvement.

The first function could be merged into (org-ctrl-c-minus): (un)listify
the active region, and if there is no active region, just cycle through
the list types (as it does now).  The second fonction could convert raw
lines into headings and headings back into raw lines.

Do other people find this useful?

========================================================================
(defun bzg-org-convert-to-plain-list (beg end)
  "Convert each line in the region into a plain list."
  (interactive "r")
  (string-rectangle beg end "- "))

(defun bzg-org-convert-to-headings (beg end)
  "Convert each line in the region into subheadings."
  (interactive "r")
  (let ((stars (save-excursion
                 (re-search-backward org-complex-heading-regexp nil t)
                 (or (match-string 1) "*")))
        (add-stars (if org-odd-levels-only "**" "*")))
    (string-rectangle beg end (concat add-stars stars " "))))

(define-key org-mode-map (kbd "C-c C--") 'bzg-org-convert-to-list)
(define-key org-mode-map (kbd "C-c C-*") 'bzg-org-convert-to-headings)
========================================================================

-- 
Bastien