-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathrnw2pdf.elc
198 lines (172 loc) · 24.5 KB
/
rnw2pdf.elc
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
;ELC
;;; Compiled
;;; in Emacs version 26.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@205 Path to Rscript executable. It can be the absolute path of the executable or its name if it can be found in the search path. In the latter case see also `rnw2pdf-search-path'.
It defaults to `Rscript'.
(defvar rnw2pdf-r-path nil (#$ . 409))
#@232 Path to PDF viewer. In Windows defaults to MiKTeX `texworks' or alternatively to the default PDF application. In Linux defaults to the default PDF application. For other systems or when there is no suitable application, it is nil.
(defvar rnw2pdf-viewer (byte-code "\301=\2036 \302\303!\203 \303\207\304\305!\306\307\"A@\262\211\2055 \304\310P!\262\306\307\"A@\262\306\311\"A@\211\262\207\312=\203I \302\313!\203I \304\314!\315\316O\207\317\207" [system-type windows-nt executable-find "texworks" shell-command-to-string "cmd /c assoc .pdf" split-string "=" "cmd /c ftype " "\"" gnu/linux "xdg-open" "basename $(xdg-mime query default application/pdf) .desktop" 0 -1 nil] 4) (#$ . 659))
#@282 Directory path or list directory paths to search for excutables such as latexmk, pdflatex. If nil, the enviroment variable PATH is used; otherwise the added paths are sought before. This variable is also used to find the R executable when `rnw2pdf-r-path' is not an absolute path.
(defvar rnw2pdf-search-path nil (#$ . 1364))
#@27 Temporary file directory.
(defvar rnw2pdf-aux "aux-files" (#$ . 1696))
#@198 If non-nil, the latexmk ".fls" file in the Rnw document directory is deleted at the end of the build.
Note that if `rnw2pdf-aux' is non-nil, a copy of this file is available in the aux directory.
(defvar rnw2pdf-clean-fls t (#$ . 1774))
#@418 If your system is Windows, nil unsets Emacs "HOME" environment variable for called subprocesses.
In Windows, there is no systen set "HOME" variable. Some progrmas set themselves the value of this variable, unless the user has already done so. R and Emacs set different values for it. When we call R as an Emacs subprocess, it will inherit the wrong value. For this reason it is better to disable "HOME" inheritance.
(defvar rnw2pdf/inherit-home nil (#$ . 2019))
#@105 Command template to process (knit) Rnw file.
`%string' are expanded according to `rnw2pdf/expand-list'.
(defvar rnw2pdf/r-cmd "%r %k %R" (#$ . 2489))
#@98 Command template to process TeX file.
`%string' are expanded according to `rnw2pdf/expand-list'.
(defvar rnw2pdf/tex-cmd "%l -interaction=nonstopmode -pdf -shell-escape -silent -g %f" (#$ . 2645))
#@95 Command template to view PDF file.
`%string' are expanded according to `rnw2pdf/expand-list'.
(defvar rnw2pdf/view-cmd "%v %p" (#$ . 2848))
#@90 Used to restore `exec-path' value after adding the directories in `rnw2pdf-search-path'.
(defconst rnw2pdf/original-exec-path exec-path (#$ . 2994))
#@53 List of sub-jobs involved involved in Rnw building.
(defconst rnw2pdf/job-seq (list 'knit 'latex 'view 'dispose) (#$ . 3149))
#@105 Alist associating Rnw document paths to the process buffers (receiving the input of building commands).
(defvar rnw2pdf/rnw-alist nil (#$ . 3282))
#@72 Full path of system shell. Under Windows normally it is `cmdproxy.exe'
(defvar rnw2pdf/sys-shell (byte-code "\302=\203 \207\303\207" [system-type shell-file-name windows-nt "/bin/sh"] 2) (#$ . 3435))
#@301 List "expansion strings" and associated hook functions for rnw2pdf command strings.
Before running a command string, expansion strings are expanded with the output of the hook functions.
Hook functions should be added as one-argument lambdas. Always add the argument to lambdas, even if it is unused
(defvar rnw2pdf/expand-list '(("%f" (lambda (rnw-path-sans) (shell-quote-argument rnw-path-sans))) ("%R" (lambda (rnw-path-sans) (shell-quote-argument (concat rnw-path-sans ".Rnw")))) ("%p" (lambda (rnw-path-sans) (shell-quote-argument (concat rnw-path-sans ".pdf")))) ("%k" (lambda (rnw-path-sans) (shell-quote-argument (rnw2pdf/set-r2p-path rnw-path-sans)))) ("%r" (lambda (dummy) (rnw2pdf/r-path))) ("%l" (lambda (dummy) "latexmk")) ("%v" (lambda (dummy) (shell-quote-argument rnw2pdf-viewer)))) (#$ . 3645))
#@113 Rnw absolute document path.
Note that the process buffer is not associated to a file unless the user saves it.
(defvar associated-rnw-path nil (#$ . 4464))
(make-variable-buffer-local 'associated-rnw-path)
(defvar next-job "Next job to carry out. Can be: 'knit, 'latex or 'dispose. The latter involves resetting process buffer local variables" nil)
(make-variable-buffer-local 'next-job)
#@118 Nil if no build is happening, so no process is running and local variables are reset for the related process buffer.
(defvar is-active nil (#$ . 4860))
(make-variable-buffer-local 'is-active)
#@57 Non-nil if an error has been detected during the build.
(defvar error-p nil (#$ . 5058))
(make-variable-buffer-local 'error-p)
#@54 The beginning line of the error `error-file' or nil.
(defvar error-line-beg nil (#$ . 5191))
(make-variable-buffer-local 'error-line-beg)
#@76 The ending line of the error `error-file' or nil.
Not used for TeX errors
(defvar error-line-end nil (#$ . 5335))
(make-variable-buffer-local 'error-line-end)
#@36 File with the build errors or nil.
(defvar error-file nil (#$ . 5501))
(make-variable-buffer-local 'error-file)
#@293 Convert the Rnw document in the current buffer in a PDF a display it with the TeXworks viewer, unless a different one is configured.
The file is automatically saved if it is associated to a file, otherwise the user is asked to save it.
It is required for the file to have a ".Rnw" extension.
(defalias 'rnw2pdf #[0 "\300 \301\3022% \303\304!\210\305 \210\306 \210\307!\210\310!\210\311!\210\312!\210\313\314!0\262\303\301!\210\211\2052 \313!\207" [buffer-file-name nil rnw2pdf/main rnw2pdf/set-exec-path t rnw2pdf/distro-test rnw2pdf/file-save rnw2pdf/active-job\? rnw2pdf/make-proc-buf rnw2pdf/make-knit-script rnw2pdf/next-job message "Processing..."] 4 (#$ . 5620) nil])
#@328 Execute the job set by the variable `next-job' local to the process buffer identified by RNW-PATH.
`rnw2pdf/command-sentinel' updates `next-job' and re-call this function until the local variable is empty.
Depending on the job, `rnw2pdf/r-cmd' or `rnw2pdf/tex-cmd' command patterns are (exapndend and) executed.
(fn RNW-PATH)
(defalias 'rnw2pdf/next-job #[257 "\306!\307\300\"\310\211\211\211q\210\311\312!!\210\313\267\202, \314\202- \315\202- \316\202- \317\202- \310\262\320\267\202E \202F \n\202F \202F \321\202F \310\262\322\"\262\323\"\262\324\325\326\261\210db\210\327\330!\f\331=\205n ?/\332!/\203} \333\330!\210\334\267\202\274 \335!\210\202\322 \336 \337\"\312!\3400!\341!Q\342\343#\266\3441\310\345\310\346\f&\210\347\300!\210\350\351 !\210\202\322 \352 1\346 %\262\353\354\"\210\355\356\"\210\333\330\"\210\211\211/\266\203)\207" [next-job rnw2pdf/r-cmd rnw2pdf/tex-cmd rnw2pdf/view-cmd system-type rnw2pdf/inherit-home rnw2pdf/get-pbuf buffer-local-value nil cd file-name-directory #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (knit 28 latex 32 view 36 dispose 40)) "Knitting" "Latexing" "Viewing" "Finished processing" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (knit 53 latex 57 view 61 dispose 65)) "rnw2pdf" rnw2pdf/customise-template rnw2pdf/command-expand " " " with:\n" "\n\n" getenv "HOME" windows-nt file-truename setenv #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (dispose 131 view 139)) rnw2pdf/dispose-job rnw2pdf/change-ext ".pdf" file-name-as-directory file-name-nondirectory copy-file t call-process 0 "-c" make-local-variable dispose rnw2pdf/next-job start-process set-process-filter ordinary-insertion-filter set-process-sentinel rnw2pdf/command-sentinel default-directory rnw2pdf-aux rnw2pdf/sys-shell] 16 (#$ . 6307)])
#@184 If ADD is non-nil, add the directories in `rnw2pdf-search-path', if any, to `exec-path'. If ADD is nil, restore original search path stored in `rnw2pdf/original-exec-path'.
(fn ADD)
(defalias 'rnw2pdf/set-exec-path #[257 "<\203 \202 C\203 \211\203 \304\305\"\210\304\306\"\210 \307=\204) \310\311\"\262\2034 \312\n\"\2025 \211\207" [rnw2pdf-search-path system-type exec-path rnw2pdf/original-exec-path mapc #[257 "\211;?\205\f \300\301\302\"!\207" [rnw2pdf/ret format "ERROR: In `rnw2pdf-search-path'\n%s is not a string."] 5 "\n\n(fn PATH)"] #[257 "\300!?\205 \301\302\303Q!\207" [file-directory-p rnw2pdf/ret "ERROR: In `rnw2pdf-search-path'\n" "\nnot found."] 5 "\n\n(fn PATH)"] windows-nt mapcar #[257 "\300!\207" [shell-quote-argument] 3 "\n\n(fn PATH)"] append] 5 (#$ . 8243)])
#@37 Test needed binaries are available.
(defalias 'rnw2pdf/distro-test #[0 "\203 \302!\204% \303\304\305Q!\210\202% \306\307!\204% \310 \211\204% \303\311!\210 \2040 \303\312!\210\202C \313\232\204C \306 !\204C \303\314\315 \"!\210\306\316!\203O \306\317!\204S \303\320!\210\321\207" [rnw2pdf-r-path rnw2pdf-viewer file-exists-p rnw2pdf/ret "ERROR: " "\ndoes not exist or is not executable" executable-find "Rscript" rnw2pdf-find-r-win "ERROR: Cannot find R executable. \nMake sure Rscript executable is in your path or set `rnw2pdf-r-path' variable." "ERROR: Please set the variable `rnw2pdf-viewer' to the path of a PDF viewer." "start" format "ERROR: Cannot find PDF viewer executable \n%s\n set by the variable `rnw2pdf-viewer'." "tex" "latexmk" "ERROR: Cannot find a working TeX distribution with latexmk.\nMake sure latexmk and common TeX binaries are found in your PATH environment variable." t] 4 (#$ . 9055)])
#@142 Save Rnw document in the current buffer and create knitting script.
If the current buffer is not associated to a file stop and ask to save.
(defalias 'rnw2pdf/file-save #[0 "\204\f \301\302\303 \304Q!\210\305 \210\306\307!\207" [buffer-file-name rnw2pdf/ret "ERROR: " buffer-name " is not associated to any file. Please, save it using the extension \".Rnw\"." save-buffer message "Saved and processing..."] 4 (#$ . 9984)])
#@249 Check if there a process buffer associated to RNW-PATH with active build jobs.
If so ask whether to kill the process or abort the request.
The variable `is-active', local to process buffer , is set to nil when the build is finished.
(fn RNW-PATH)
(defalias 'rnw2pdf/active-job\? #[257 "\300!\301!\302\203< \204 \303\304\"\203< \305\306\307\203# \310!\202$ \311\303\312\"#!\262\211\2038 \313!\210\202< \314\315!\210\205C \314\316!\207" [rnw2pdf/get-pbuf get-buffer-process nil buffer-local-value is-active yes-or-no-p format "Process `%s' for document \n%s\nrunning, kill it? " process-name "unknown" associated-rnw-path rnw2pdf/dispose-job rnw2pdf/ret "ERROR: Cannot have two processes for the same document." "ERROR: Cannot kill process!"] 11 (#$ . 10416)])
#@507 Associate and create a process buffer to the RNW-PATH, if it does not exist, and init the following local variables:
`associated-rnw-path' stores the Rnw document path RNW-PATH. It is used to solve conflicts with existing PROC-BUF-NAME names (see `rnw2pdf/make-proc-buf');
`is-active' non-nil until the build process is finished;
`next-job' symbol of the next job to carry out; initialised to 'knit.
The name associated process buffer defined by the funcion `rnw2pdf/make-short-name'.
(fn RNW-PATH)
(defalias 'rnw2pdf/make-proc-buf #[257 "\305 \210\306!\211\204 \307\310!!\262BBr\211q\210\311 \210\312 \210\313\301!\210\314\313\302!\210\313\303!\210\315\313\304!\210\316\211)\207" [rnw2pdf/rnw-alist line-number-display-limit associated-rnw-path next-job is-active rnw2pdf/remove-killed-buffers rnw2pdf/get-pbuf get-buffer-create rnw2pdf/make-short-name buffer-disable-undo erase-buffer make-local-variable 0 knit t] 5 (#$ . 11196)])
#@175 If missing, create the file with ".r2p" containing knitting commands. The file has the same stem as the Rnw document RNW-PATH and lives in the same directory.
(fn RNW-PATH)
(defalias 'rnw2pdf/make-knit-script #[257 "\300\301!!\302\303!\204 \304\305!\306\"\210\307\310#\210\266\306\207" [rnw2pdf/set-r2p-path file-name-sans-extension "\nlibrary(knitr)\nargs <- commandArgs(TRUE)\nsetwd(dirname(args[1]))\ngetwd()\nopts_chunk$set(error = FALSE)\nknit(args)" file-exists-p make-directory file-name-directory t write-region nil] 7 (#$ . 12157)])
#@64 Delete process and set to nil status variables.
(fn PROC-BUF)
(defalias 'rnw2pdf/dispose-job #[257 "\304!\211\203 \305!\210\210r\211q\210\306\300!\210\307\306\301!\210\307)\n\2054 \2054 \310 \311\"\312!\2052 \313!\262\207" [next-job is-active rnw2pdf-clean-fls associated-rnw-path get-buffer-process delete-process make-local-variable nil rnw2pdf/change-ext ".fls" file-exists-p delete-file] 4 (#$ . 12713)])
#@273 When the process associated with the command called by `rnw2pdf/next-job' changes state, this function is called. It receives two arguments: the process as PROCESS and the string EVENT describing the change.
The latter is most likely an exit message.
(fn PROCESS EVENT)
(defalias 'rnw2pdf/command-sentinel #[514 "\304!\305!\306\211\204\" \307\306\"\210\310\306\"\210\311\312\313!\"\202\226 \314!\315>\205\226 rq\210\316!\262db\210\317\320\321$\210\322u\210\323\324 \325\326O\261\210\327u\210\311\203X \202d \321\330\324 \325\326O\260!\210\331\332\314!!P\333\334 !\210\335!\210\336 \n\"\262\337\301!\210T\n8\211\203\222 \337\301!\210\340\341 !)\207" [mode-line-process next-job rnw2pdf/job-seq associated-rnw-path process-buffer process-name nil set-process-buffer set-process-sentinel message "Sorry, process buffer \n%s\nhas been killed right know. Start again." buffer-name process-status (signal exit) rnw2pdf/parse-errors insert-before-markers "\n" " " -1 " at " current-time-string 0 -5 1 "at " ": " symbol-name set-buffer-modified-p buffer-modified-p delete-process cl-position make-local-variable dispose rnw2pdf/next-job] 14 (#$ . 13139)])
#@20
(fn PROC STRING)
(defalias 'ordinary-insertion-filter #[514 "\300\301!!\205( r\301!q\210\212\302!b\210\303\304\305#c\210\302!`\306\223\210)\302!b)\207" [buffer-live-p process-buffer process-mark replace-regexp-in-string "" "\n" nil] 6 (#$ . 14329)])
#@274 Expand COMMAND using `rnw2pdf/expand-list' and local variables in PROC-BUF.
As a special exception, `%%' can be used to produce a single `%' sign in the output
without further expansion. This function is based on the ideas in `TeX-command-expand'.
(fn COMMAND PROC-BUF)
(defalias 'rnw2pdf/command-expand #[514 "\301\302\"\303!\304\211C\304\211\211\305\306\307\310\311\312 !\313\"\314$D\211B\262\315\316\317\"!\262\320\f\242#\240\203\200 \321\307 \"\262\322\"\262A@\262\323 \306\307\324\311\312!\325\"\326$\216\203a !\202j \327\330\331#!)\262\262;\203( \332\333\211$\262\n\202( \266\207" [rnw2pdf/expand-list buffer-local-value associated-rnw-path file-name-sans-extension nil "%%" make-byte-code 0 "\300\211\242T\240\210\301\207" vconcat vector ["%"] 2 regexp-opt mapcar car string-match match-string assoc match-data "\301\300\302\"\207" [set-match-data evaporate] 3 rnw2pdf/ret format "In command: %s\n%s is not a valid expansion." replace-match t] 17 (#$ . 14595)])
#@70 Depending on JOB add custom options to CORE template.
(fn JOB CORE)
(defalias 'rnw2pdf/customise-template #[514 "\301\302=\203 \203 \211\303\304!Q\262P\207" [rnw2pdf-aux "" latex " -output-directory=" shell-quote-argument] 7 (#$ . 15610)])
#@43 Parse build process errors.
(fn PROCESS)
(defalias 'rnw2pdf/parse-errors #[257 "r\301!q\210\302\267\202 \303!\202 \304!\202 \305)\207" [next-job process-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (knit 12 latex 18)) rnw2pdf/parse-errors-r rnw2pdf/parse-errors-tex nil] 3 (#$ . 15865)])
#@191 Parse knitting errors, possibly setting process buffer local variables `error-file', `error-line-beg', `error-line-end' to non-nil values. Return the error description or nil.
(fn PROCESS)
(defalias 'rnw2pdf/parse-errors-r #[257 "\304\211\211\211\211r\305!q\210\306\300!\210\304\306\301!\210\304\306\302!\210\304\306\303!\210\304\212\307\310\304\311#?\262)\205\335 \311\312u\210`\262\307\313\304\311#\203\260 \314\315\224\"\262\316\317\"\210\320\321\"\262\316\322\"\210\323\320\321\"!\323\320\324\"!\320\325\"\315\225\262\304O\262\326\327\330\"\325\"\262\331\332\330#\262\333\334\335#\262db\210\336c\210\337\340 \330\261\210\211\335\261\210\341c\210\342 \330\260\262\202\334 \307\343\304\311#\203\326 \314\315\224\"\262\326\327\330\"\321\"\262\331\332\330#\262db\210\202\334 \344\262db\210\211)\207" [error-p error-line-beg error-line-end error-file nil process-buffer make-local-variable re-search-backward "^output file:.+\n\n\\[1]" t -1 "^label: " buffer-substring-no-properties 0 string-match "^label: \\(.+?\\)\\( \\|\n\\)" match-string 1 "^Quitting from lines \\(.+\\)-\\(.+\\) (\\(.+\\)) *\n" string-to-number 2 3 butlast split-string "\n" mapconcat identity replace-regexp-in-string "^Error in parse.+ : <text>:" "" "\n=== ERROR Summary ===\n" "Chunk " " in " "\n---------------------------------------\n" " -> " "^Error " "Knitting error!"] 11 (#$ . 16215)])
#@494 Parse LaTeX errors, possibly setting process buffer local variables `error-file' and `error-line-beg' to non-nil values. Return the error description or nil.
Error lines in the LaTeX log file are detected by their leading `!'. Unfortunately BibLaTeX backend (but not Biber) might exit non-zero (i.e. signal a fatal error) without writing the error in the LaTeX log file. In this case the user is addressed to inspect the LaTeX bibliography log file by means of `rnw2pdf-biblog'.
(fn PROCESS)
(defalias 'rnw2pdf/parse-errors-tex #[257 "r\305!q\210\306\300!\210\307\306\301!\210\307\306\302!\210\307\306\303!\210\307\310!\311V\205\373 \312\313\314\305!\"\315!\316\317\f\"!\317\320\321!\322\"\"\320\323\"\307\211\211\211\324\325!r\211q\210\326\311\327\330\331!\332\"\333$\216\334!\210db\210\335\336\307\337#\211\262\203\336 \340\311!\333\307O\262\341y\210\342\343!\203\224 \340\344!\262\345\346\347#\262\317\n\"\262\333y\210\342\350!\210\340\311!\262\351\352\"\210\345\353\347\340\344\"#\262\354!\262\340\333\"\262\344y\210\342\355!\203\314 \356\340\311!Q\262\356Q\262\306\301!\210\306\303!\210\203\346 \202\366 eb\210\357\360\307\337#\203\365 \361\202\366 \362*\262\266\211)\207" [error-p error-line-beg error-line-end error-file rnw2pdf-aux process-buffer make-local-variable nil process-exit-status 0 t buffer-local-value associated-rnw-path file-name-directory file-name-as-directory expand-file-name rnw2pdf/change-ext file-name-nondirectory ".log" ".tex" generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-backward "^!.+" noerror match-string -1 looking-at "^(\\(.+[^)]$\\)" 1 replace-regexp-in-string "\"" "" ".+" string-match "\\(.+?\\) \\(.+\\)" ".\\." string-to-number "^ +.+" "\n" re-search-forward "Package biblatex Info: Trying to load BibTeX" "Apparent BibTeX error. For more info try `M-x rnw2pdf-biblog'" "Unable to detect error see the log add a function to see it"] 17 (#$ . 17639)])
#@64 Given the Rnw document buffer, go to last build error, if any.
(defalias 'rnw2pdf-go2error #[0 "\303 \304\211\211\211\204 \305\306!\202\200 \307!\211\262\204! \305\310\"\202\200 rq\210\262 \262)\204@ \n\203: \311!\202\200 \305\312!\202\200 \313\314\303\315 \"\"\262\211\203Y \311\316\315 \"!\210\202i \317!\203f \320!\210\202i \304\262\204t \305\321\"\202\200 db\210\322 Zy\210\323\324!\207" [error-file error-line-beg error-p buffer-file-name nil message "This buffer is not associated with a file" rnw2pdf/get-pbuf "I can't find build info for the document\n%s\nDid you delete the its process buffer." switch-to-buffer "No error found." seq-position mapcar buffer-list seq-elt file-exists-p find-file "%s\n containing the build error has been deleted" line-number-at-pos scroll-up 1] 9 (#$ . 19692) nil])
#@100 Given the Rnw document buffer, visit the associated bibliography log file (the .blg file), if any.
(defalias 'rnw2pdf-biblog #[0 "\301 \204 \302\303!\207\301 \304!\305\306\"!\306\307\310!\311\"\"\312!\204* \302\313\"\202: \314!\2047 \302\315\"\202: \316!\207" [rnw2pdf-aux buffer-file-name message "This buffer is not associated with a file" file-name-directory file-name-as-directory expand-file-name rnw2pdf/change-ext file-name-nondirectory ".blg" rnw2pdf/get-pbuf "I can't find build info for the document\n%s\nDid you delete the its process buffer." file-exists-p "There is no available bibliography log file\n%s\n." find-file] 7 (#$ . 20527) nil])
#@60 Given the Rnw document buffer, visit the build log buffer.
(defalias 'rnw2pdf-build-log #[0 "\300 \301\204 \302\303!\202 \304!\211\262\204 \302\305\"\202 \306!\207" [buffer-file-name nil message "This buffer is not associated with a file" rnw2pdf/get-pbuf "There is no build buffer available for \n%s" switch-to-buffer] 5 (#$ . 21199) nil])
#@65 Get the process buffer associated with RNW-PATH.
(fn RNW-PATH)
(defalias 'rnw2pdf/get-pbuf #[257 "\301\"A\207" [rnw2pdf/rnw-alist assoc] 4 (#$ . 21555)])
#@70 Get the process buffer name associated with RNW-PATH.
(fn RNW-PATH)
(defalias 'rnw2pdf/get-pbuf-name #[257 "\300\301!!\207" [buffer-name rnw2pdf/get-pbuf] 4 (#$ . 21718)])
#@692 Given the Rnw document path RNW-PATH, generate the name of the process buffer to receive the output of R & LaTeX. The name is based on the last three components of RNW-PATH, if there is no conflict, or on the absolute path. Error exit if the RNW-PATH has no ".Rnw" extension (case insensitive).
Since the process buffer is not associated to a file (unless the user saves it), to detect conflicts the buffer local variable `associated-rnw-path' is set to the path of the Rnw document to process. A buffer with the name generated here migh already exist when we re-build the same document. There is a name conflict if the local value of `associated-rnw-path' is not RNW-PATH.
(fn RNW-PATH)
(defalias 'rnw2pdf/make-short-name #[257 "\300\301\302!!!\303\302!!\304\305\"\306\211\211\226\307\230\204$ \310\311\312\313\n!\"!\210G\314V\205/ \315\314\"\262\316\317\305#\262\320\321Q\262\320\322Q\262\323!\262\211\204R \202l \324\325\"\204] \202l \326\325\"\230\203k \202l \207" [abbreviate-file-name file-name-sans-extension expand-file-name file-name-extension split-string "/" nil "RNW" rnw2pdf/ret format "ERROR: Please, use the \"Rnw\" extension (case insensitive) for the document. Current name is instead \n%s:" file-name-nondirectory 3 last mapconcat identity "*" " rnw2pdf output*" " rnw2pdf*" get-buffer local-variable-p associated-rnw-path buffer-local-value] 12 (#$ . 21899)])
#@76 File like "foo.r2p" containing knit code for "foo.Rnw"
(fn RNW-PATH-SANS)
(defalias 'rnw2pdf/set-r2p-path #[257 "\301!\302P\303\204 \202 \304\305\"!\262\305\306!\"\207" [rnw2pdf-aux file-name-directory ".r2p" nil file-name-as-directory expand-file-name file-name-nondirectory] 8 (#$ . 23312)])
#@13
(fn MESS)
(defalias 'rnw2pdf/ret #[257 "\300\301\"\207" [throw rnw2pdf/main] 4 (#$ . 23624)])
#@79 Obtain R executable path, using `rnw2pdf-r-path', if non-nil, or search path.
(defalias 'rnw2pdf/r-path #[0 "\203 \301!\207\302\303!\207" [rnw2pdf-r-path shell-quote-argument executable-find "Rscript"] 2 (#$ . 23727)])
#@49 Change extension of FILE to EXT.
(fn FILE EXT)
(defalias 'rnw2pdf/change-ext #[514 "\300!P\207" [file-name-sans-extension] 4 (#$ . 23955)])
#@105 Destructively remove NTH element from LIST.
https://emacs.stackexchange.com/a/29791/3975
(fn NTH LIST)
(defalias 'rnw2pdf/remove-nth-element #[514 "\300U\203 \211A\207S\233\211AA\241\210\207" [0] 5 (#$ . 24105)])
#@48 Remove killed buffers from `rnw2pdf/rnw-alist'
(defalias 'rnw2pdf/remove-killed-buffers #[0 "\301\302\"\211\207" [rnw2pdf/rnw-alist seq-filter #[257 "\300A!\207" [buffer-live-p] 3 "\n\n(fn PATH-BUF)"]] 3 (#$ . 24331)])
#@303 Find the path of "Rscript" executable for Windows using the pattern
"%ProgramFiles%/R/R-*/bin/Rscript.exe".
If more versions are found, the last path in alphabetical order (perhaps the lastest version) is used.
If the executable is not found or the platform symbol is not 'windows-nt, nil is returned.
(defalias 'rnw2pdf-find-r-win #[0 "\301=\205 \302\303!\304\305\306P!!@\262\207" [system-type windows-nt getenv "ProgramFiles" last file-expand-wildcards "/R/R-*/bin/Rscript.exe"] 5 (#$ . 24560) nil])
(provide 'rnw2pdf)