Re: [O] some lisp help (for complete 0-knowledge lisp emacs user :))

[Sebastien Vauban]

Xebar Saram wrote:
> Hi list
>
> so i know i should start to really learn lisp but real life (uni work,
> family etc) doesn't really allow me so im marking my 1st year anniversary
> of using emacs without grasping lisp (plus i am in generally coding inept
> :))
>
> in any case.... :) i have this handy lisp snippet that i find very useful
> and maybe some others in the list will find as well. it allows to quick
> convert lines of text into org src/example blocks:
>
> (defun z-wrap-cblock-lisp ()
>    "Wrap region in quote block"
>    (interactive)
>    (save-excursion
>      (save-restriction
>        (and
>         (region-active-p)
>         (use-region-p)
>         (narrow-to-region (region-beginning) (region-end)))
>         (goto-char (point-min))
>         (insert "#+BEGIN_SRC emacs-lisp :results none\n")
>         (goto-char (point-max))
>         (insert "#+END_SRC\n")
>         (deactivate-mark))))
>
>
> this works well but has some annoying flaws like you have to first manually
> mark the region you want to convert etc
>
> i was wondering:
>
> a)can some lisp coding master show me how to make this function auto select
> the line//X user defined lines/smart paragraph selection before it wraps it
> in the org block
> b)any improvement ideas from the community?

FYI, there's already C-c C-v C-d (`org-babel-demarcate-block')...

Best regards,
  Seb

-- 
Sebastien Vauban