testing interaction org-mode gnuplot-mode

README.org

what

this gist contains files to be used in emacs, to test the interaction between org-mode (more specifically, org-plot/gnuplot) and gnuplot-mode.

why

the goal is to have org-plot/gnuplot consistently update the gnuplot output buffer holding the svg graph generated by gnuplot. when this gist was created, this does not work consistently.

content

files in this gist:

• table.org. an org file holding tabular data

usage

• start emacs
• configure gnuplot-mode to output to a dedicated buffer in svg format
• open a buffer with the `table.org` table
• execute `org-plot/gnuplot`
• (here I would like to see the emacs screen split in two parts, one with the gnuplot output buffer.)
• since the above does not happen, do it by hand.
• change whatever you want to change in the table - for example deps:(4)
• again execute `org-plot/gnuplot`
• (here I would like to see the gnuplot output buffer updated)
• repeating this last block, I observe rather erratic behaviour.

futilities

if the reader might be wondering, the data in the file are real measurements of well salinity, associated with water extraction from the same well, trying to establish any link between the two. the well is the “Concordia” well on Sint Eustatius.

org-plot-snippet.el

(defun org-plot/gnuplot (&optional params)
  "Plot table using gnuplot.  Gnuplot options can be specified with PARAMS.
If not given options will be taken from the +PLOT
line directly before or after the table."
  (interactive)
  (message "entering org-plot/gnuplot" )
  (require 'gnuplot)
  (save-window-excursion
    (message "will delete-other-windows" )
    (delete-other-windows)
    (message "did delete-other-windows" )
    (when (get-buffer "*gnuplot*") ;; reset *gnuplot* if it already running
      (message "will with-current-buffer" )
      (with-current-buffer "*gnuplot*"
	(goto-char (point-max))
	(gnuplot-delchar-or-maybe-eof nil))
      (message "did with-current-buffer" ))
    (org-plot/goto-nearest-table)
    ;; set default options
    (mapc
     (lambda (pair)
       (unless (plist-member params (car pair))
	 (setf params (plist-put params (car pair) (cdr pair)))))
     org-plot/gnuplot-default-options)
    ;; collect table and table information
    (let* ((data-file (make-temp-file "org-plot"))
	   (table (org-table-to-lisp))
	   (num-cols (length (if (eq (first table) 'hline) (second table)
			       (first table)))))
      (while (equal 'hline (first table)) (setf table (cdr table)))
      (when (equal (second table) 'hline)
	(setf params (plist-put params :labels (first table))) ;; headers to labels
	(setf table (delq 'hline (cdr table)))) ;; clean non-data from table
      ;; collect options
      (message "before collect options" )
      (save-excursion (while (and (equal 0 (forward-line -1))
				  (looking-at "[[:space:]]*#\\+"))
			(setf params (org-plot/collect-options params))))
      ;; dump table to datafile (very different for grid)
      (message "before dump table to datafile" )
      (case (plist-get params :plot-type)
	('2d   (org-plot/gnuplot-to-data table data-file params))
	('3d   (org-plot/gnuplot-to-data table data-file params))
	('grid (let ((y-labels (org-plot/gnuplot-to-grid-data
				table data-file params)))
		 (when y-labels (plist-put params :ylabels y-labels)))))
      (run-with-idle-timer 0.1 nil (lambda () (delete-file data-file)))
      ;; check for timestamp ind column
      (message "before check for timestamp ind column" )
      (let ((ind (- (plist-get params :ind) 1)))
	(when (and (>= ind 0) (equal '2d (plist-get params :plot-type)))
	  (if (= (length
		  (delq 0 (mapcar
			   (lambda (el)
			     (if (string-match org-ts-regexp3 el)
				 0 1))
			   (mapcar (lambda (row) (nth ind row)) table)))) 0)
	      (plist-put params :timeind t)
	    ;; check for text ind column
	    (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)))))
      (message "before write script" )
      ;; write script
      (with-temp-buffer
	(if (plist-get params :script) ;; user script
	    (progn (insert
                    (org-plot/gnuplot-script data-file num-cols params t))
                   (insert "\n")
                   (insert-file-contents (plist-get params :script))
                   (goto-char (point-min))
                   (while (re-search-forward "$datafile" nil t)
                     (replace-match data-file nil nil)))
	  (insert
	   (org-plot/gnuplot-script data-file num-cols params)))
        (insert "\n")
        (message "at-end: %s" params)
	;; graph table
	(gnuplot-mode)
	(gnuplot-send-buffer-to-gnuplot))
      ;; cleanup
      (bury-buffer (get-buffer "*gnuplot*")))))

table.org

Date	Days	mS/cm	Deg	Gallons	m³/d
2014-09-26	#ERROR	3.0	32.5	3947310	0
2014-09-29	3.0	2.96	33.7	3977190	37.702695
2014-10-01	2.0	2.96	33.7	3998470	40.276774
2014-10-03	2.0	2.95	33.7	4031070	61.702201
2014-10-06	3.0	3.07	33.7	4086930	70.484355
2014-10-07	1.0	2.96		4100030	49.588885
2014-10-08	1.0	2.97		4119590	74.042641
2014-10-09	1.0	2.99		4140090	77.600928
2014-10-10	1.0	2.63		4144590	17.034350
2014-10-11	1.0	3.06		4166960	84.679646
2014-10-12	1.0	3		4185640	70.711479
2014-10-13	1.0	3.01		4206290	78.168739
2014-10-14	1.0	2.96		4226050	74.799723
2014-10-15	1.0	2.99		4245910	75.178264
2014-10-16	1.0	3.07	32.8	4253330	28.087750
2014-10-17	1.0	3.13	33.7	4271230	67.758859
2014-10-18	1.0	3.04	33.2	4273020	6.7758859
2014-10-19	1.0	3.12	33.4	4278640	21.274010
2014-10-20	1.0	3.09	32.7	4281260	9.9177771
2014-10-21	1.0	3.08	33.8	4291490	38.724756
2014-10-22	1.0	2.99	33.1	4305180	51.822278
2014-10-23	1.0	3.1	33.0	4311430	23.658819
2014-10-24	1.0	3.09	33.3	4318000	24.870151
2014-10-25	1.0	3.06	33.5	4323480	20.744053
2014-10-26	1.0	3.15	33.2	4333140	36.567071
2014-10-27	1.0	2.99	33.6	4341240	30.661830
2014-10-28	1.0	3.11	32.2	4349350	30.699684
2014-10-29	1.0	3.06	32.9	4356560	27.292814
2014-10-30	1.0	3.06	33.0	4362760	23.469549
2014-10-31	1.0	3.14	33.1	4368280	20.895469
2014-11-01	1.0	3.09	33.2	4374040	21.803968