emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] org-plot histogram bug when the x-axis labels could be int


From: Eric Schulte
Subject: Re: [Orgmode] org-plot histogram bug when the x-axis labels could be interpreted as numbers
Date: Wed, 14 Jan 2009 13:10:14 -0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux)

Charles Sebold <address@hidden> writes:

> On 14 Jan 2009, William Henney wrote:
>
>> From glancing through org-plot.el, it seems as though the problem is
>> that the text-ind parameter is false when all the values in the
>> "independent variable" column are legal numbers. However, my lisp
>> skills are not up to fixing this.
>
> This may fix that problem, but I don't know that it doesn't produce a
> nest of bigger ones.  Eric should look at this first.  This seems to me
> to be useful enough when producing histograms.
>

Hi,

I believe that forcing text-ind to be true when the plot type is 'hist'
is a safe enough maneuver (especially plotting with hist seems to fail
if text-ind is not true).

I would recommend this patch.  It's the same idea as Charles' only
implemented in a different place.

Thanks -- Eric

diff --git a/lisp/org-plot.el b/lisp/org-plot.el
index 7efd84a..1792d50 100644
--- a/lisp/org-plot.el
+++ b/lisp/org-plot.el
@@ -316,12 +316,13 @@ line directly before or after the table."
                           (mapcar (lambda (row) (nth ind row)) table)))) 0)
              (plist-put params :timeind t)
            ;; check for text ind column
-           (if (> (length
-                   (delq 0 (mapcar
-                            (lambda (el)
-                              (if (string-match org-table-number-regexp el)
-                                  0 1))
-                            (mapcar (lambda (row) (nth ind row)) table)))) 0)
+           (if (or (string= (plist-get params :with) "hist")
+                   (> (length
+                       (delq 0 (mapcar
+                                (lambda (el)
+                                  (if (string-match org-table-number-regexp el)
+                                      0 1))
+                                (mapcar (lambda (row) (nth ind row)) table)))) 
0))
                (plist-put params :textind t)))))
       ;; write script
       (with-temp-buffer




reply via email to

[Prev in Thread] Current Thread [Next in Thread]