Edit file

File name : org-plot.elc

Content :;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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib org org-table] 2) #@56 Default options to gnuplot used by `org-plot/gnuplot'. (defvar org-plot/gnuplot-default-options '((:plot-type . 2d) (:with . lines) (:ind . 0)) (#$ . 495)) (defvar org-plot-timestamp-fmt nil) #@115 Parse an OPTIONS line and set values in the property list P. Returns the resulting property list. (fn P OPTIONS) (defalias 'org-plot/add-options-to-plist #[514 "\211\203i�\300\301\302\303\211\203g�\211@\211@\235\203C�\304\305@!P#\203`�\303\225\262\306A\307\310\311\f\"!@\312\fA\"B#\262\202�\304\305@!P\"\203`�\306A\307\310\311\f\"!@#\262
A\266\202\202 �\266
\207" [(("type" . :plot-type) ("script" . :script) ("line" . :line) ("set" . :set) ("title" . :title) ("ind" . :ind) ("deps" . :deps) ("with" . :with) ("file" . :file) ("labels" . :labels) ("map" . :map) ("timeind" . :timeind) ("timefmt" . :timefmt)) ("set" "line") ":\\([\"][^\"]+?[\"]\\|[(][^)]+?[)]\\|[^ \n ;,.]*\\)" 0 string-match regexp-quote plist-put read-from-string match-string 1 plist-get] 15 (#$ . 694)]) #@116 Move the point forward to the beginning of nearest table. Return value is the point at the beginning of the table. (defalias 'org-plot/goto-nearest-table #[0 "\300\301!\210\302 \204�\303\301yW\203�\304 b\207" [move-beginning-of-line 1 org-at-table-p 0 org-table-begin] 2 (#$ . 1505) nil]) #@189 Collect options from an org-plot `#+Plot:' line. Accepts an optional property list PARAMS, to which the options will be added. Returns the resulting property list. (fn &optional PARAMS) (defalias 'org-plot/collect-options #[256 "\300\301!\302\303\"\203�\304\305\306\"\"\202�
\207" [thing-at-point line string-match "#\\+PLOT: +\\(.*\\)$" org-plot/add-options-to-plist match-string 1] 7 (#$ . 1803) nil]) #@76 Convert field S from timestamp to Unix time and export to gnuplot. (fn S) (defalias 'org-plot-quote-timestamp-field #[257 "\301\302!\"\207" [org-plot-timestamp-fmt format-time-string org-time-string-to-time] 5 (#$ . 2220)]) #@46 Quote field S for export to gnuplot. (fn S) (defalias 'org-plot-quote-tsv-field #[257 "\302\"\203�\207\302 \"\203�\303
!\207\304\305\306\307\304\"\310#\304Q\207" [org-table-number-regexp org-ts-regexp3 string-match org-plot-quote-timestamp-field "\"" mapconcat identity split-string "\"\""] 7 (#$ . 2453)]) #@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-plot/gnuplot-to-data #[771 "
\301\302\303!!\304\305\306\307\310!\311\"\312$\216r\211q\210\313\300!\210\314\315\"\206\"�\316\317\320\321\"\"c\210)r\211q\210\322\323\211\323\305%\210*\266\323\207" [org-plot-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 make-local-variable plist-get :timefmt "%Y-%m-%d-%H:%M:%S" orgtbl-to-generic org-combine-plists (:sep " " :fmt org-plot-quote-tsv-field) write-region nil] 11 (#$ . 2774)]) #@244 Export the data in TABLE to DATA-FILE for gnuplot. This means in a format appropriate for grid plotting by gnuplot. PARAMS specifies which columns of TABLE should be plotted as independent and dependant variables. (fn TABLE DATA-FILE PARAMS) (defalias 'org-plot/gnuplot-to-grid-data #[771 "\300
\301\"S\302\303\"\203�\304\305\300\303\"\"\2024�\306@G\307\211W\203/�\211\211B\262\210\211T\262
\202�\266\211\262
C\307C\306\307Y\203S�\304\310\311\312\313\314 \"\315\"\316\317%\"\262
\242\204^�\307Y\203y�\320\242\"\240\210\304\310\311\321\313\314!\322\"\323\317%\"\262\324\325\326!!\310\307\327\313\314!\330\"\331$\216r\211q\210G @G\332\306\211\307\211W\203\371�\211\307\211W\203\335�\211 S\33388!#P\262 \33388!#P\262\210\211T\262
\202\245�\266c\210\334c\210c\210\334c\210\335\262\335\262\210\211T\262
\202\233�\266)r\211q\210\336\306\211\306\307%\210*\266\207" [plist-get :ind plist-member :deps mapcar #[257 "\211S\207" #1=[] 2 "\n\n(fn VAL)"] nil 0 make-byte-code 257 "\301\211\242T\240\210\301\242\3008B\207" vconcat vector #1# 4 "\n\n(fn ROW)" delq "\211G\301\211W\203!�\211\211\300\242>\204�\211\233\211\302\240\266\210\211T\262
\202�\266\303\302\"\207" [0 nil delq] 7 get-buffer-create generate-new-buffer-name " *temp file*" "\301\300!\205 �\302\300!\207" [buffer-name kill-buffer] 2 #[771 "T\262
T\262\300\301\302Z\303\\&\207" [format "%f %f %f\n%f %f %f\n" 0.5 0.5] 11 "\n\n(fn COL ROW VALUE)"] string-to-number "\n" "" write-region] 28 (#$ . 3497) nil]) #@309 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. Optional argument PREFACE returns only option parameters in a manner suitable for prepending to a user-specified script. (fn DATA-FILE NUM-COLS PARAMS &optional PREFACE) (defalias 'org-plot/gnuplot-script #[1027 "\301\302\"\211\303=\203�\304\202�\301\305\"\301\306\"\301\307\"\301\310\"\301\311\"\301\312\"\301 \313\"\301\n\314\"\301\315\"\301\f\316\"\317 \320\"\205J�\301 \320\"\301\321\"\301\322\"\301\323\"\324\325=\203e�\326\202x�\327=\204s�\303=\203w�\330\202x�\331\332C\333\334\335\336\337!\340\"\341\342%\331 \203\236�
\343\344\345!\"!\210
\343\346\"!\210\325=\204\305�\347\267\202\305�\203\305�
\350!\210\202\305�
\203\302�\351\202\303�\352!\210\203\322�
\343\353\"!\210\354\"\210\211\203\356�\211@\343\355\"!\210
A\266\202\202\332�\210\356\242\331\357\360#)\266\203\204

\361!\210\203

\343\362\363\364\365#\"!\210\203%

\343\366\363\367\n\365#\"!\210\203:

\370!\210
\371\f\2066
\372\373Q!\210\204\370
\374\267\202\342
\375\211W\203\302
\211\325=\203q
\203d
\211T\232\204\272
\203q
\211T\f\235\203\272
\343\203\217
\375V\203\217
\204\217
\343\376\"\206\220
\377T\203\241
\343\201@�\"\202\242
\3778\206\264
\343\201A� T\"&B\262\210\211T\262
\202I
\266\202\342
\343\201B�#C\262
\202\342
\343\201C�#C\262

\201D�\363\201E�\201F�!\201G�#Q!\210\242\207" [inhibit-changing-match-data plist-get :plot-type grid pm3d :with :set :line :map :title :file :ind :timeind :timefmt :textind plist-member :deps :labels :xlabels :ylabels "'%s' using %s%d%s with %s title '%s'" 2d "plot" 3d "splot" nil "reset" make-byte-code 257 "\300\211\242\301Q\240\207" vconcat vector ["\n"] 5 "\n\n(fn LINE)" format "set term %s" file-name-extension "set output '%s'" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (3d 172 grid 184)) "set map" "set pm3d map" "set pm3d" "set title '%s'" mapc "set %s" "^set datafile separator" t string-match "set datafile separator \"\\t\"" "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" "\"" #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2d 326 3d 455 grid 470)) 0 "%d:" "" ":xticlabel(%d)" "%d" "'%s' matrix with %s title ''" "'%s' with %s title ''" " " identity reverse ",\\\n "] 37 (#$ . 5058)]) #@188 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. (fn &optional PARAMS) (defalias 'org-plot/gnuplot #[256 "\301\302!\210\303 \304\305\306\307\310!\311\"\312$\216\313 \210\314\315!\203#�r\315q\210db\210)\316 \210\211\203E�\211@\317@\"\204>�\320@A#\262
A\266\202\202'�\210\321\322!\323 \211@\324=\203X�\211A@\202Z�\211@G\325\326\327\330$\210
@\324=\203q�
A\262\202c�
A@\324=\203\210�\320\331@#\262\332\324A\"\262\212\333y\305\232\203\236�\334\335!\203\236�\336!\262\202\211�)\337\340\"\211\341\267\202\317�\342#\210\202\317�\342#\210\202\317�\343#\211\203\316�\320\344#\210\210\210\337\345\"S\211\305Y\203:
\337\340\"\346=\203:
\332\305\347\350\347\304\351\352\307\310\n!\353\"\354\355%\"\"\"G\305U\203\f
\320\356\357#\210\202:
\337\360\"\361\230\2043
\332\305\347\362\347\304\351\352\307\310\n!\353\"\354\355%\"\"\"G\305V\203:
\320\363\357#\210\210\364\365!r\211q\210\304\305\366\307\310!\367\"\312$\216\337\370\"\203\201
\371\357$c\210\372c\210\373\337\370\"!\210eb\210\374\375\327\357#\203\211
\376\327\211#\210\202m
\202\211
\371#c\210\377 \210\201@� \210*\210\201A�\314\315!!\266\203)\207" [org-plot/gnuplot-default-options require gnuplot current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 delete-other-windows get-buffer "*gnuplot*" org-plot/goto-nearest-table plist-member plist-put make-temp-file "org-plot" org-table-to-lisp hline run-with-idle-timer 0.1 nil delete-file :labels delq -1 looking-at "[[:space:]]*#\\+" org-plot/collect-options plist-get :plot-type #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (2d 169 3d 179 grid 189)) org-plot/gnuplot-to-data org-plot/gnuplot-to-grid-data :ylabels :ind 2d mapcar #[257 "\301\"\203 �\302\207\303\207" [org-ts-regexp3 string-match 0 1] 4 "\n\n(fn EL)"] 257 "\300
8\207" [] 3 "\n\n(fn ROW)" :timeind t :with "hist" #[257 "\301\"\203 �\302\207\303\207" [org-table-number-regexp string-match 0 1] 4 "\n\n(fn EL)"] :textind generate-new-buffer " *temp*" "\301\300!\205 �\302\300!\207" [buffer-name kill-buffer] :script org-plot/gnuplot-script "\n" insert-file-contents re-search-forward "$datafile" replace-match gnuplot-mode gnuplot-send-buffer-to-gnuplot bury-buffer] 17 (#$ . 7716) nil]) (provide 'org-plot)

Save