Richard Riley <rile...@gmail.com> writes: > "Eric Schulte" <schulte.e...@gmail.com> writes: > >> Hi Richard, >> >> Richard Riley <rile...@gmail.com> writes: >> >>> Richard Riley <rile...@gmail.com> writes: >>> >>>> "Eric Schulte" <schulte.e...@gmail.com> writes: >>>> >>>>> >>>>> Let me know what you think. I notice your implementation uses >>>>> regions, >>>> >>>> It puts the begin/src markers around the region if selected or current >>>> word. >>>> >>>>> where as this one does not, so it's possible I left out some >>>>> functionality. I'd like to include some version of this functionality >>>>> into Org-mode core. >>> >>> using your lang selection example >>> >>> If not in a source block then just surround current region with >>> #+begin/end_src. If no region just put in markers around empty >>> area. Dont create new org items since probably just including src code >>> in an existing org item. >>> >>> If in a source block with region create new region with current >>> region. If no region just create new empty block. previous src blocks >>> delimited and marked as org items at current level (because almost >>> certainly splitting the code to maintain it in discreate titled blocks. >>> >>> >> >> I was just pulling up my email to share my next iteration when I saw >> your next iteration. They look very similar. If my version covers all >> of your use cases, then I'd like to add it to the Babel key map, >> probably under "d" for demarcate or delimit, unless you can think of a >> better mnemonic. > >
I've just added this to the org-mode repo. > > Not in the babel key map - in the org key map (I use it most in normal > non src org entries to mark a block of elisp as src for samples/examples). For now it still lives in the babel keymap behind (C-c C-v d) since it is fundamentally code-block related, however it can be called from anywhere in an org-mode file, and could of course be bound to any other key sequence in a personal config. > > But,yes I suspect your code is better ;) Note my func works in two > fundamentally different ways - in a babel src block where it creates > new org items and also in normal (non src) modes where it just creates > a src block. > I believe both of those use cases are supported by the current version of the function. Thanks -- Eric > >> >> >> >> >> --8<---------------cut here---------------start------------->8--- >> (defun org-babel-demarcate-block (&optional arg) >> "Wrap or split the code in the region or on the point." >> (interactive "P") >> (let ((info (org-babel-get-src-block-info))) >> (if info >> (mapc >> (lambda (place) >> (save-excursion >> (goto-char place) >> (let ((lang (nth 0 info)) >> (indent (make-string (nth 6 info) ? )) >> (stars (concat (make-string (org-current-level) ?*) " "))) >> (insert (concat (if (looking-at "^") "" "\n") >> indent "#+end_src\n" >> (if arg stars indent) "\n" >> indent "#+begin_src " lang >> (if (looking-at "[\n\r]") "" "\n"))) >> (when arg (previous-line) (move-end-of-line 1))))) >> (sort (if (region-active-p) (list (mark) (point)) (list (point))) >> #'>)) >> (insert (concat (if (looking-at "^") "" "\n") >> (if arg (concat stars "\n") "") >> "#+begin_src " (read-from-minibuffer "Lang: ") "\n" >> (delete-and-extract-region (or (mark) (point)) (point)) >> "\n#+end_src")) >> (previous-line) (move-end-of-line 1)))) >> --8<---------------cut here---------------end--------------->8--- >> >> >> >> Cheers -- Eric >> >>> >>> >>> (define-key org-mode-map (kbd "C-c C-b") 'rgr/org-split-src) >>> >>> (defun rgr/org-split-src(&optional arg) >>> (interactive "P") >>> (beginning-of-line) >>> (save-excursion((lambda(info) >>> (if info >>> (let ((lang (nth 0 info)) >>> (stars (make-string (org-current-level) ?*))) >>> (insert >>> (format >>> "%s\n%s\n#+begin_src %s\n%s#+end_src\n%s\n#+begin_src %s\n" >>> "#+end_src" >>> stars >>> lang >>> (if (region-active-p) >>> (delete-and-extract-region (region-beginning) >>> (region-end)) "\n") >>> stars >>> lang))) >>> (insert >>> (format >>> "\n#+begin_src\n%s\n#+end_src\n" >>> (if (region-active-p) >>> (delete-and-extract-region (region-beginning) (region-end)) ""))))) >>> (org-babel-get-src-block-info)))) >>> _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
