[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Re: org-babel - utility to ease chopping src chunks into s

From: Eric Schulte
Subject: Re: [Orgmode] Re: org-babel - utility to ease chopping src chunks into smaller org entries
Date: Sun, 19 Sep 2010 21:41:28 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)

Hi Richard,

Richard Riley <address@hidden> writes:

> Richard Riley <address@hidden> writes:
>> "Eric Schulte" <address@hidden> 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.

--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
         (lambda (place)
             (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))
      (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))))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]