From 4ff540bfd7f94ddb7dc74e67a6bd9a90d2aa26ea Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Sat, 18 Jul 2009 18:05:11 -0600
Subject: [PATCH] started bringing in options from org-plot

---
 lisp/langs/org-babel-gnuplot.el | 33 +++++++++++++++++++++++++++++++--
 org-babel.org                   |  5 ++++-
 2 files changed, 35 insertions(+), 3 deletions(-)

diff --git a/lisp/langs/org-babel-gnuplot.el b/lisp/langs/org-babel-gnuplot.el
index 3f587ed8b..96d8911cd 100644
--- a/lisp/langs/org-babel-gnuplot.el
+++ b/lisp/langs/org-babel-gnuplot.el
@@ -54,7 +54,13 @@ called by `org-babel-execute-src-block'."
          (result-params (split-string (or (cdr (assoc :results params)) "")))
          (out-file (cdr (assoc :file params)))
          (cmdline (cdr (assoc :cmdline params)))
-         (in-file (make-temp-file "org-babel-ditaa")))
+         (in-file (make-temp-file "org-babel-ditaa"))
+	 (title (plist-get params :title))
+         (lines (plist-get params :line))
+	 (sets (plist-get params :set))         
+	 (x-labels (plist-get params :xlabels))
+	 (y-labels (plist-get params :ylabels))
+	 (time-ind (plist-get params :timeind)))
     ;; insert variables into code body
     (mapc
      (lambda (pair)
@@ -67,7 +73,30 @@ called by `org-babel-execute-src-block'."
                    (cdr pair) (make-temp-file "org-babel-gnuplot") params)
                 (cdr pair)) body)))
      vars)
-    (with-temp-buffer ;; evaluate the code body with gnuplot
+    ;; append header argument settings to body
+    (when title (add-to-script (format "set title '%s'" title))) ;; title
+    (when lines (mapc (lambda (el) (add-to-script el)) lines)) ;; line
+    (when sets ;; set
+      (mapc (lambda (el) (add-to-script (format "set %s" el))) sets))
+    (when x-labels ;; x labels (xtics)
+      (add-to-script
+       (format "set xtics (%s)"
+               (mapconcat (lambda (pair)
+                            (format "\"%s\" %d" (cdr pair) (car pair)))
+                          x-labels ", "))))
+    (when y-labels ;; y labels (ytics)
+      (add-to-script
+       (format "set ytics (%s)"
+               (mapconcat (lambda (pair)
+                            (format "\"%s\" %d" (cdr pair) (car pair)))
+                          y-labels ", "))))
+    (when time-ind ;; timestamp index
+      (add-to-script "set xdata time")
+      (add-to-script (concat "set timefmt \""
+                             (or timefmt ;; timefmt passed to gnuplot
+                                 "%Y-%m-%d-%H:%M:%S") "\"")))
+    ;; evaluate the code body with gnuplot
+    (with-temp-buffer
       (insert (concat body "\n"))
       (gnuplot-mode)
       (gnuplot-send-buffer-to-gnuplot))
diff --git a/org-babel.org b/org-babel.org
index 7e754d7cb..695406fc0 100644
--- a/org-babel.org
+++ b/org-babel.org
@@ -2075,7 +2075,10 @@ plot "data" using 1:2 with lines
 **** TODO a =file= header argument
 to specify a file holding the results
 
-**** TODO helpers from org-plot.el
+**** STARTED helpers from org-plot.el
+there are a variety of helpers in org-plot which can be fit nicely
+into custom gnuplot header arguments
+
 **** TODO header argument specifying 3D data
 **** TODO gnuplot sessions
 *** TODO dot