Insert or split babel src block

2010-09-19 Sun

(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)
  ((lambda(info)
     (if info
         (let ((pos (point))
               (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))
             (org-back-to-heading))
       (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)))

--
My Emacs Files At GitHub

Altering the style of source code snippets at blogspot

When editing your blog go to "design" and then edit your template. Add
the following to the end of CSS section.

pre.src {border: 1px solid rgb(187, 187, 187);
margin: 15px 5px;
padding: 5px;
background: rgb(238}\, 238, 238) none repeat scroll 0% 0%;
overflow: auto;
font-size: 130%;
-moz-background-clip: border;
-moz-background-origin: padding;
-moz-background-inline-policy: continuous;
}

Also see http://emacs-fu.blogspot.com/2010/05/using-zenburn-for-org-mode-generated.html

--
My Emacs Files At GitHub

Mark region as src code. If prefix used then create new org entry with the region marked as src.

(define-key org-mode-map (kbd "C-c C-b") '
  (lambda()(interactive)
    (let ((stars (make-string (org-current-level) ?*)))
      (insert 
       (format 
        "%s%s \n#+begin_src emacs-lisp\n%s#+end_src\n%s" 
        (if current-prefix-arg "#+end_src\n\n") stars (delete-and-extract-region (region-beginning) (region-end)) (if current-prefix-arg (concat "\n" stars " \n#+begin_src emacs-lisp")))))))

--
My Emacs Files At GitHub