|
@@ -332,6 +332,13 @@ that function. i.e. it is called with the following arguments:
|
|
|
:group 'org-plot
|
|
|
:type '(alist :value-type (symbol group)))
|
|
|
|
|
|
+(defcustom org-plot/gnuplot-term-extra ""
|
|
|
+ "String or function which provides the extra term options.
|
|
|
+E.g. a value of \"size 1050,650\" would cause
|
|
|
+\"set term ... size 1050,650\" to be used."
|
|
|
+ :group 'org-plot
|
|
|
+ :type '(choice string function))
|
|
|
+
|
|
|
(defun org-plot/gnuplot-script (data-file num-cols params &optional preface)
|
|
|
"Write a gnuplot script to DATA-FILE respecting the options set in PARAMS.
|
|
|
NUM-COLS controls the number of columns plotted in a 2-d plot.
|
|
@@ -361,8 +368,15 @@ manner suitable for prepending to a user-specified script."
|
|
|
;; ats = add-to-script
|
|
|
(ats (lambda (line) (setf script (concat script "\n" line))))
|
|
|
plot-lines)
|
|
|
- (when file ; output file
|
|
|
- (funcall ats (format "set term %s" (file-name-extension file)))
|
|
|
+
|
|
|
+
|
|
|
+ ;; handle output file, background, and size
|
|
|
+ (funcall ats (format "set term %s %s"
|
|
|
+ (if file (file-name-extension file) "GNUTERM")
|
|
|
+ (if (stringp org-plot/gnuplot-term-extra)
|
|
|
+ org-plot/gnuplot-term-extra
|
|
|
+ (org-plot/gnuplot-term-extra))))
|
|
|
+ (when file ; output file
|
|
|
(funcall ats (format "set output '%s'" file)))
|
|
|
|
|
|
(funcall ats
|