Add command for inserting a Rich Comment

[PEZ]

I find myself wanting a really quick way to add a rich comment block. I think it should work like so:

• If the cursor is on the top level insert an ”open” rich comment block at the cursor.
• If the cursor is inside a form, insert the comment below the current top level form.
• Ensure at least one empty line above and below the rich comment

Example (the cursors is represented with |:

(defn greet
  "I'll greet yo|u"
  [s]
  (str "Hello " s "!"))

(comment
  (greet "World"))

Add a Rich Comment

(defn greet
  "I'll greet you"
  [s]
  (str "Hello " s "!"))

(comment
  |
  )

(comment
  (greet "World"))