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

org: Enable plotting with C-c C-c 

* lisp/org.el (org-ctrl-c-ctrl-c): When at a table, call
`org-plot/gnuplot' if the current line starts with "#+plot".
This commit is contained in:
TEC 2021-04-27 00:05:37 +08:00 committed by Bastien Guerry
parent ed8cd9cf21
commit aea31b0656
1 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/org.el
View File

@ -17705,10 +17705,14 @@ This command does many different things, depending on context:
;; send the table if necessary. If the table has
;; a `table.el' type, just give up. At a table row or cell,
;; maybe recalculate line but always align table.
(if (eq (org-element-property :type context) 'table.el)
(cond
((and (< (point) (org-element-property :post-affiliated context))
(org-match-line "[ \t]*#\\+plot:"))
(org-plot/gnuplot))
((eq (org-element-property :type context) 'table.el)
(message "%s" (substitute-command-keys "\\<org-mode-map>\
Use `\\[org-edit-special]' to edit table.el tables"))
(if (or (eq type 'table)
Use `\\[org-edit-special]' to edit table.el tables")))
((or (eq type 'table)
;; Check if point is at a TBLFM line.
(and (eq type 'table-row)
(= (point) (org-element-property :end context))))
@ -17718,7 +17722,8 @@ Use `\\[org-edit-special]' to edit table.el tables"))
(org-table-calc-current-TBLFM))
(goto-char (org-element-property :contents-begin context))
(org-call-with-arg 'org-table-recalculate (or arg t))
(orgtbl-send-table 'maybe)))
(orgtbl-send-table 'maybe))))
(t
(org-table-maybe-eval-formula)
(cond (arg (call-interactively #'org-table-recalculate))
((org-table-maybe-recalculate-line))