mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 17:46:27 +00:00
Code Releases Activity

org-plot: now produces more intelligent output when empty lines look like text columns

Browse source
This commit is contained in:
Eric Schulte 2010-02-25 10:44:25 -07:00
parent 32da182a90
commit 09886e4f82
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-plot.el
View file

@ -250,8 +250,10 @@ manner suitable for prepending to a user-specified script."
(setf plot-lines (setf plot-lines
(cons (cons
(format plot-str data-file (format plot-str data-file
(or (and (not text-ind) ind (or (and ind (> ind 0)
(> ind 0) (format "%d:" ind)) "") (not (or (equal 'histograms (plist-get params :with))
(equal 'hist (plist-get params :with))))
(format "%d:" ind)) "")
(+ 1 col) (+ 1 col)
(if text-ind (format ":xticlabel(%d)" ind) "") (if text-ind (format ":xticlabel(%d)" ind) "")
with with
@ -320,7 +322,6 @@ line directly before or after the table."
(mapcar (lambda (row) (nth ind row)) table)))) 0) (mapcar (lambda (row) (nth ind row)) table)))) 0)
(plist-put params :timeind t) (plist-put params :timeind t)
;; check for text ind column ;; check for text ind column
(if (or (string= (plist-get params :with) "hist") (if (or (string= (plist-get params :with) "hist")
(> (length (> (length
(delq 0 (mapcar (delq 0 (mapcar