mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

replacing litorgy-make-region-example with the standard org-toggle-fixed-width-section.

This commit is contained in:
Eric Schulte 2009-03-17 14:44:50 -07:00
parent 47e18380e9
commit 6cf9c4e497
1 changed files with 3 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
litorgy/litorgy.el
View File

@ -93,8 +93,8 @@ lisp code use the `litorgy-add-interpreter' function."
(defun litorgy-execute-src-block (&optional arg)
"Execute the current source code block, and dump the results
into the buffer immediately following the block. Results are
commented by `litorgy-make-region-example'. With optional prefix
don't dump results into buffer."
commented by `org-toggle-fixed-width-section'. With optional
prefix don't dump results into buffer."
(interactive "P")
(let* ((info (litorgy-get-src-block-info))
(lang (first info))
@ -159,7 +159,7 @@ existing results currently located after the source block."
(let ((beg (point))
(end (progn (insert result)
(point))))
(litorgy-make-region-example beg end))))
(org-toggle-fixed-width-section beg end))))
(defun litorgy-remove-result ()
"Remove the result following the current source block"
@ -175,20 +175,6 @@ existing results currently located after the source block."
(forward-line -1)
(point)))))
(defun litorgy-make-region-example (beg end)
"Comment out region using the ': ' org example quote."
(interactive "*r")
(let ((size (abs (- (line-number-at-pos end)
(line-number-at-pos beg)))))
(if (= size 0)
(let ((result (buffer-substring beg end)))
(delete-region beg end)
(insert (concat ": " result)))
(save-excursion
(goto-char beg)
(dotimes (n size)
(move-beginning-of-line 1) (insert ": ") (forward-line 1))))))
(defun litorgy-clean-text-properties (text)
"Strip all properties from text return."
(set-text-properties 0 (length text) nil text) text)