|
@@ -129,6 +129,7 @@ code."
|
|
|
(title (cdr (assq :title params)))
|
|
|
(lines (cdr (assq :line params)))
|
|
|
(sets (cdr (assq :set params)))
|
|
|
+ (missing (cdr (assq :missing params)))
|
|
|
(x-labels (cdr (assq :xlabels params)))
|
|
|
(y-labels (cdr (assq :ylabels params)))
|
|
|
(timefmt (cdr (assq :timefmt params)))
|
|
@@ -138,6 +139,7 @@ code."
|
|
|
(file-name-directory (buffer-file-name))))
|
|
|
(add-to-body (lambda (text) (setq body (concat text "\n" body)))))
|
|
|
;; append header argument settings to body
|
|
|
+ (when missing (funcall add-to-body (format "set datafile missing '%s'" missing)))
|
|
|
(when title (funcall add-to-body (format "set title '%s'" title)))
|
|
|
(when lines (mapc (lambda (el) (funcall add-to-body el)) lines))
|
|
|
(when sets
|
|
@@ -288,21 +290,14 @@ Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE."
|
|
|
(with-temp-file data-file
|
|
|
(insert (let ((org-babel-gnuplot-timestamp-fmt
|
|
|
(or (plist-get params :timefmt) "%Y-%m-%d-%H:%M:%S")))
|
|
|
- (replace-regexp-in-string
|
|
|
- ;; org export backend adds "|" at the beginning/end of
|
|
|
- ;; the table lines. Strip those.
|
|
|
- "^|\\(.+\\)|$"
|
|
|
- "\\1"
|
|
|
- (orgtbl-to-generic
|
|
|
- table
|
|
|
- (org-combine-plists
|
|
|
- '( :sep "\t" :fmt org-babel-gnuplot-quote-tsv-field
|
|
|
- ;; Two setting below are needed to make :fmt work.
|
|
|
- :raw t
|
|
|
- ;; Use `org', not `ascii' because `ascii' may
|
|
|
- ;; sometimes mishandle quoted strings.
|
|
|
- :backend org)
|
|
|
- params))))))
|
|
|
+ (orgtbl-to-generic
|
|
|
+ table
|
|
|
+ (org-combine-plists
|
|
|
+ '( :sep "\t" :fmt org-babel-gnuplot-quote-tsv-field
|
|
|
+ ;; Two setting below are needed to make :fmt work.
|
|
|
+ :raw t
|
|
|
+ :backend ascii)
|
|
|
+ params)))))
|
|
|
data-file)
|
|
|
|
|
|
(provide 'ob-gnuplot)
|