mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 20:18:41 +00:00
\C-c\C-c now works inside source blocks
This commit is contained in:
parent
b9f2d50192
commit
0974acd7b4
|
@ -144,10 +144,30 @@ the header arguments specified at the source code block."
|
|||
(defun litorgy-get-src-block-info ()
|
||||
"Return the information of the current source block as a list
|
||||
of the following form. (language body header-arguments-alist)"
|
||||
(let ((case-fold-search t))
|
||||
(if (save-excursion ;; full source block
|
||||
(beginning-of-line 1)
|
||||
(looking-at litorgy-src-block-regexp))
|
||||
(let ((case-fold-search t)
|
||||
top middle bottom)
|
||||
(if (or
|
||||
(save-excursion ;; on a #+srcname: line
|
||||
(beginning-of-line 1)
|
||||
(and
|
||||
(looking-at "#\\+srcname")
|
||||
(progn
|
||||
(forward-line 1)
|
||||
(looking-at litorgy-src-block-regexp))))
|
||||
(save-excursion ;; on a #+begin_src line
|
||||
(beginning-of-line 1)
|
||||
(looking-at litorgy-src-block-regexp))
|
||||
(save-excursion ;; inside a src block
|
||||
(and
|
||||
(setq middle (point))
|
||||
(re-search-backward "#\\+begin_src" nil t)
|
||||
(setq top (point))
|
||||
(re-search-forward "#\\+end_src" nil t)
|
||||
(setq bottom (point))
|
||||
(< top middle)
|
||||
(< middle bottom)
|
||||
(goto-char top)
|
||||
(looking-at litorgy-src-block-regexp))))
|
||||
(litorgy-parse-src-block-match)
|
||||
(if (save-excursion ;; inline source block
|
||||
(re-search-backward "[ \f\t\n\r\v]" nil t)
|
||||
|
|
25
rorg.org
25
rorg.org
|
@ -3,7 +3,7 @@
|
|||
#+SEQ_TODO: TODO OPEN PROPOSED | DONE DEFERRED REJECTED
|
||||
#+STARTUP: oddeven
|
||||
|
||||
* Tasks [8/20]
|
||||
* Tasks [9/20]
|
||||
** TODO results-type header (scalar/vector)
|
||||
In response to a point in Dan's email. We should allow the user to
|
||||
force scalar or vector results. This could be done with a header
|
||||
|
@ -41,15 +41,6 @@ configuration variable.
|
|||
commands, or at least articulate under this TODO the reasons for
|
||||
using our custom R-interaction commands.
|
||||
|
||||
** TODO make C-c C-c work anywhere within source code block?
|
||||
This seems like it would be nice to me, but perhaps it would be
|
||||
inefficient or ugly in implementation? I suppose you could search
|
||||
forward, and if you find #+end_src before you find #+begin_src,
|
||||
then you're inside one. [DED]
|
||||
|
||||
Agreed, I think inside of the =#+srcname: line= would be useful as
|
||||
well.
|
||||
|
||||
** TODO share litorgy
|
||||
how should we share litorgy?
|
||||
|
||||
|
@ -215,6 +206,20 @@ one that comes to mind is the ability to treat a source-code block
|
|||
like a function which accepts arguments and returns results. Actually
|
||||
this can be it's own TODO (see [[* source blocks as functions][source blocks as functions]]).
|
||||
|
||||
** DONE make C-c C-c work anywhere within source code block?
|
||||
This seems like it would be nice to me, but perhaps it would be
|
||||
inefficient or ugly in implementation? I suppose you could search
|
||||
forward, and if you find #+end_src before you find #+begin_src,
|
||||
then you're inside one. [DED]
|
||||
|
||||
Agreed, I think inside of the =#+srcname: line= would be useful as
|
||||
well.
|
||||
|
||||
#+srcname: testing-out-cc
|
||||
#+begin_src emacs-lisp
|
||||
'schulte
|
||||
#+end_src
|
||||
|
||||
** DONE integration with org tables
|
||||
We should make it easy to call litorgy source blocks from org-mode
|
||||
table formulas. This is practical now that it is possible to pass
|
||||
|
|
Loading…
Reference in a new issue