mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.
 
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
 
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
(require 'ob)
#@66 Default arguments to use when evaluating a gnuplot source block.
(defvar org-babel-default-header-args:gnuplot '((:results . "file") (:exports . "results") (:session)) (#$ . 422))
#@31 Gnuplot specific header args.
(defvar org-babel-header-args:gnuplot '((title . :any) (lines . :any) (sets . :any) (x-labels . :any) (y-labels . :any) (timefmt . :any) (time-ind . :any) (missing . :any) (term . :any)) (#$ . 608))
(defvar org-babel-gnuplot-timestamp-fmt nil)
(defvar *org-babel-gnuplot-missing* nil)
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable *org-babel-gnuplot-terms* funcall function #[0 "\300\207" [((eps . "postscript eps"))] 1] "List of file extensions and the associated gnuplot terminal." :group org-babel :type (repeat (cons (symbol :tag "File extension") (string :tag "Gnuplot terminal")))] 8)
#@204 Extract variables from PARAMS and process the variables.
Dumps all vectors into files and returns an association list
of variable names and the related value to be used in the gnuplot
code.
 
(fn PARAMS)
(defalias 'org-babel-gnuplot-process-vars #[257 "\301\236A\302\303\304\305\306\307!\310\"\311\312%\313!\")\207" [*org-babel-gnuplot-missing* :missing mapcar make-byte-code 257 "\211@A\211<\211\203+\301@\211<\206\2119\211\203\202!\302\303\"\266\202\304\305!\300#\202,\266\202B\207" vconcat vector [org-babel-gnuplot-table-to-data mapcar list org-babel-temp-file "gnuplot-"] 10 "\n\n(fn PAIR)" org-babel--get-vars] 8 (#$ . 1277)])
#@78 Expand BODY according to PARAMS, return the expanded body.
 
(fn BODY PARAMS)
(defalias 'org-babel-expand-body:gnuplot #[514 "C\301 \302\303\304\305\306!\307\"\310$\216\311!\312\236A\313\236A\314\236A\315\236A\206=\205=\316!\317\320\227!\"A\206;\211\262\321\236A\322    \236A\323\n\236A\324 \236A\325\f\236A\326 \236A\327\236A\206h\211\205h\330\331 \205q\332\331 !\302\333\334\305\306!\335\"\336\337%\203\213\211\340\341 \"!\210\203\242\342\302\333\343\305\306!\344\"\345\346%    \"\210\203\271\342\302\333\347\305\306!\350\"\336\346%\"\210\203\311\211\340\351\352\353\n\354#\"!\210\203\331\211\340\355\352\356    \354#\"!\210\203\354\211\357!\210\211\360\206\350\361\362Q!\210\f\203\211\340\363\"!\210\211\242\364P\240\210    \203\211\340\365\f\"!\210\211\352\366\367!\370#!\210\342\302\333\371\305\306!\372\"\373\374%\"\210 \2035\211\f!\210\n\203D\211\242\370 Q\240\210\203O\211\340\375\"!\210\266\242)\262\207" [*org-babel-gnuplot-terms* current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-gnuplot-process-vars :file :prologue :epilogue :term file-name-extension assoc intern :title :line :set :xlabels :ylabels :timefmt :timeind 1 buffer-file-name file-name-directory 257 "\300\301\300\242Q\240\207" ["\n"] 5 "\n\n(fn TEXT)" format "set title '%s'" mapc "\300!\207" [] 3 "\n\n(fn EL)" "\300\301\302\"!\207" [format "set %s"] "set xtics (%s)" mapconcat #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] ", " "set ytics (%s)" #[257 "\300\301A@#\207" [format "\"%s\" %d"] 5 "\n\n(fn PAIR)"] "set xdata time" "set timefmt \"" "%Y-%m-%d-%H:%M:%S" "\"" "set output \"%s\"" "\nset output\n" "set term %s" identity org-babel-variable-assignments:gnuplot "\n" "\300\301\302\303@\"A\300\242#\240\207" [replace-regexp-in-string format "\\$%s"] 6 "\n\n(fn PAIR)" "cd '%s'"] 25 (#$ . 1933)])
#@110 Execute a block of Gnuplot code.
This function is called by `org-babel-execute-src-block'.
 
(fn BODY PARAMS)
(defalias 'org-babel-execute:gnuplot #[514 "\301\302!\210\303\236A\304\236A\305\"\306\307 \310\311\312\313\314!\315\"\316$\216\317\230\203r\320\321!\211\322\323\324!!\310\311\325\313\314!\326\"\316$\216r\211q\210\327Pc\210)r\211q\210\330\306\211\306\311%\210*\266\331\332\"\210\333\334\332\335\336\235\205d\337\"\"!\262\331\340\"\266\202\222\341\342!r\211q\210\310\311\325\313\314!\343\"\316$\216\327Pc\210\344 \210\345 \210*\210\346\347!\235\205\233)\262\207" [system-type require gnuplot :session :results org-babel-expand-body:gnuplot nil current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 "none" org-babel-temp-file "gnuplot-script-" get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205    \302\300!\207" [buffer-name kill-buffer] "\n" write-region message "gnuplot \"%s\"" shell-command-to-string format org-babel-process-file-name (cygwin windows-nt ms-dos) t "%s" generate-new-buffer " *temp*" [buffer-name kill-buffer] gnuplot-mode gnuplot-send-buffer-to-gnuplot "output" split-string] 16 (#$ . 3886)])
#@83 Prepare SESSION according to the header arguments in PARAMS.
 
(fn SESSION PARAMS)
(defalias 'org-babel-prep-session:gnuplot #[514 "\301!\302!\303\304\"\210\305!\204\306\307\"\210\310 \311\312\313\314\315!\316\"\317$\216rq\210\212\320\211\203L\211@\211c\210\321\322\323\"\210\324!\210\325\326!\210db\210A\266\202\202,\210,\210\207" [comint-input-filter org-babel-gnuplot-initiate-session org-babel-variable-assignments:gnuplot message "%S" org-babel-comint-buffer-livep error "Buffer %s does not exist or has no process" match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 #[257 "\300\207" [nil] 2 "\n\n(fn INPUT)"] comint-send-input nil t org-babel-comint-wait-for-output sit-for 0.1] 11 (#$ . 5110)])
#@51 Load BODY into SESSION.
 
(fn SESSION BODY PARAMS)
(defalias 'org-babel-load-session:gnuplot #[771 "\300 \301\302\303\304\305!\306\"\307$\216\310\"r\211q\210\311\312p!!b\210\313!c\210)\211\262)\207" [current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 org-babel-prep-session:gnuplot process-mark get-buffer-process org-babel-chomp] 10 (#$ . 5875)])
#@81 Return list of gnuplot statements assigning the block's variables.
 
(fn PARAMS)
(defalias 'org-babel-variable-assignments:gnuplot #[257 "\300\301\302!\"\207" [mapcar #[257 "\300\301@A#\207" [format "%s = \"%s\""] 5 "\n\n(fn PAIR)"] org-babel-gnuplot-process-vars] 5 (#$ . 6288)])
#@246 Initiate a gnuplot session.
If there is not a current inferior-process-buffer in SESSION
then create one.  Return the initialized session.  The current
`gnuplot-mode' doesn't provide support for multiple sessions.
 
(fn &optional SESSION PARAMS)
(defalias 'org-babel-gnuplot-initiate-session #[512 "\301\302!\210\303\230?\205\"\304 \305\306\307\310\311!\312\"\313$\216\314\315\316\"\210)\262\207" [gnuplot-buffer require gnuplot "none" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 gnuplot-send-string-to-gnuplot "" "line"] 9 (#$ . 6578)])
#@70 Convert S from timestamp to Unix time and export to gnuplot.
 
(fn S)
(defalias 'org-babel-gnuplot-quote-timestamp-field #[257 "\301\302!\"\207" [org-babel-gnuplot-timestamp-fmt format-time-string org-time-string-to-time] 5 (#$ . 7188)])
#@40 Quote S for export to gnuplot.
 
(fn S)
(defalias 'org-babel-gnuplot-quote-tsv-field #[257 "\211;\204 \303\304\"\262\305\"\203\207\305    \"\203\306!\207\211G\307U\203*\n\206>\207\305\310\"\203=\311\312\313\314\311\"\315#\311Q\207\211\207" [org-table-number-regexp org-ts-regexp3 *org-babel-gnuplot-missing* format "%s" string-match org-babel-gnuplot-quote-timestamp-field 0 "[ \"]" "\"" mapconcat identity split-string "\"\""] 7 (#$ . 7433)])
#@154 Export TABLE to DATA-FILE in a format readable by gnuplot.
Pass PARAMS through to `orgtbl-to-generic' when exporting TABLE.
 
(fn TABLE DATA-FILE PARAMS)
(defalias 'org-babel-gnuplot-table-to-data #[771 "\301\302\303!!\304\305\306\307\310!\311\"\312$\216r\211q\210\313\314\"\206\315\316\317\320\"\")c\210)r\211q\210\321\322\211\322\305%\210*\266\207" [org-babel-gnuplot-timestamp-fmt get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205    \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 plist-get :timefmt "%Y-%m-%d-%H:%M:%S" orgtbl-to-generic org-combine-plists (:sep "    " :fmt org-babel-gnuplot-quote-tsv-field) write-region nil] 11 (#$ . 7896)])
(provide 'ob-gnuplot)