home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / atavachron-1.1 / atavachron.el next >
Encoding:
Text File  |  1993-01-28  |  53.1 KB  |  1,319 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;;                       An interface to the astro/math/physics preprint
  4. ;; Atavachron.el -\|/-   archives from within emacs giving the user 
  5. ;;                       commands to get, store, and process papers get
  6. ;;                       figures with ease.
  7. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  8. ;; Author          : Jim Hetrick
  9. ;; Created On      : Fri Jan 22 21:52:41 1993
  10. ;; Last Modified By: Jim Hetrick
  11. ;; Last Modified On: Thu Jan 28 21:23:05 1993
  12. ;; Update Count    : 7
  13. ;; Status          : Unknown, Use with caution!
  14. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  15. ;;  --- RCS ---
  16. ;; $Id: atavachron.el,v 1.2 1993/01/29 10:54:08 hetrick Exp $
  17. ;; $Log: atavachron.el,v $
  18. ;; Revision 1.2  1993/01/29  10:54:08  hetrick
  19. ;; Fixed spurious "X" in atv-Xinit-loc-dirs
  20. ;; shell-paper: append "/" to atv-shell-dir if needed
  21. ;;
  22. ;; Revision 1.1.1.1  1993/01/22  23:48:51  hetrick
  23. ;; shell-paper: asks for directory (default: atv-download-dir)
  24. ;; slice-and-dice: (atv-init-loc-dirs) + \\(.ps \\| .eps\\)
  25. ;;    bug: doesn't find right name for PS files < 20 lines
  26. ;;
  27. ;; Revision 1.1  1993/01/13  21:50:46  hetrick
  28. ;; Initial revision
  29. ;;
  30. ;; $Locker:  $
  31. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  32. ;; LCD Archive Entry:
  33. ;; Atavachron|James E. Hetrick|hetrick@phys.uva.nl|
  34. ;; An interface system to the astro/math/physics preprint archives|
  35. ;; 13-1-93|$Revision: 1.2 $|~/interfaces/atavachron.tar.Z|
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37. ;;;
  38. ;;; Copyright (C) 1992, 1993  James E. Hetrick 
  39. ;;; 
  40. ;;; This program is free software; you can redistribute it and/or modify
  41. ;;; it under the terms of the GNU General Public License as published by
  42. ;;; the Free Software Foundation.
  43. ;;;
  44. ;;; This program is distributed in the hope that it will be useful,
  45. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  46. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  47. ;;; GNU General Public License for more details.
  48. ;;;
  49. ;;; A copy of the GNU General Public License can be obtained from
  50. ;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
  51. ;;; 02139, USA.
  52. ;;;
  53. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  54. ;
  55. ; =======              The Atavachron         -\|/-       =========
  56. ;
  57. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  58. ;
  59. ; The Atavachron is a system for interacting with the preprint
  60. ; archives from within emacs. It gives the user a simple set of commands
  61. ; which can be called from the mini-buffer (M-x) to get, store, and list
  62. ; and process papers. It can be loaded into to your .emacs file
  63. ; by including one of these lines therein:
  64. ;
  65. ;  (load-file '"atavachron.el")     or
  66. ;  (load-library '"atavachron")     if you put it in your emacs load path.
  67. ;
  68. ; You might also want to byte-compile it.
  69. ;
  70. ; The atavachron's commands are listed here and described 
  71. ; below (-Functions-):
  72. ;
  73. ;    get-paper               : get paper above point
  74. ;    get-paper-from-data     : prompt for paper-archive/number
  75. ;    store-paper             : store directly to disk
  76. ;    store-paper-from-data   : as above, from paper data
  77. ;    process-paper           : process locally stored paper
  78. ;    slice-and-dice          : remove appended PostScript files
  79. ;    shell-paper             : shell region below #!/bin/ 
  80. ;    get-listing-from-data   : get monthly title listing
  81. ;    store-listing-from-data : store listing
  82. ;    get-abstract            : get abstract
  83. ;    get-abstract-from-data  : prompt for number, get abstract
  84. ;    interesting             : append abstract to atv-interesting-file
  85. ;    atavachron-mail         : report bugs with internal variable dump
  86. ;
  87. ; Please go through the -Configuration- and -Batteries Not Included- 
  88. ; sections (see manual or below) and set things appropriately for your 
  89. ; system. Note that the documentation here is meant to be somewhat 
  90. ; pedagogical for users new to emacs.
  91. ;
  92. ; If you find bugs, please report them; this is very easy with the
  93. ; function "atavachron-mail". You can also use this function for other
  94. ; correspondence as well... :-)
  95. ;
  96. ; Thanks very much to Paul Ginsparg, Greg Kilcup, Marcus Speh,
  97. ; and Bas de Bakker for many suggestions and beta tests.
  98. ;
  99. ; _____________________________________________________________
  100. ; James E. Hetrick            Institute for Theoretical Physics
  101. ; hetrick@phys.uva.nl                    -\|/-
  102. ;
  103. ; University of Amsterdam
  104. ; Valckenierstraat 65, 1018 XE Amsterdam
  105. ; Telephone: +31 20 525 5772     Fax: +31 20 525 5788
  106. ; _____________________________________________________________
  107. ;
  108. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  109. ;
  110. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  111. ;
  112. ;  The Atavachron:        -Configuration-              -\|/-
  113. ;
  114. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  115. ;
  116. ; Sample .emacs: (see manual or defvars below)
  117. ; --------------------.emacs-------------------------------
  118. ;
  119. ;@example
  120. ; ====================.emacs stuff ========================
  121. ;
  122. ;(load-library '"ange-ftp")  ;see ange-ftp docs for more details
  123. ;(setq ange-ftp-generate-anonymous-password t) ; sends email address
  124. ;                                              ; for password
  125. ;(load-library '"zcat")
  126. ;(load-library '"atavachron")
  127. ;
  128. ;(setq atv-main-ftp-site "/anonymous\@@babbage.sissa.it:") ;Europeans
  129. ;;(setq atv-main-ftp-site "/anonymous\@@xxx.lanl.gov:")  ;N+S Americans
  130. ;
  131. ;(setq atv-download-dir "~/tex/preprints/")   ;default download directory 
  132. ;(setq atv-uufiles-dir "~/tex/preprints/")    ;default place for uu output
  133. ;(setq atv-prompt-filename t)              ;prompt to rename paper locally
  134. ;(setq atv-interesting-file "~/interesting.atv") ;file for interesting abs.
  135. ;(setq atv-auto-tex-paper nil)     ;run tex on paper grabbed automatically
  136. ;(setq atv-auto-tex-command 'TeX-buffer)        ;command to run on buffer
  137. ;(setq atv-no-csh nil)                     ;set to t if you don't have csh
  138. ;
  139. ; ==========================================================
  140. ;@end example
  141. ;........................................................................
  142. ;
  143. ;       =================
  144. (defvar atv-main-ftp-site "/anonymous\@babbage\.sissa\.it:"  
  145. ;       =================
  146. "Your main archive. Papers on hep-lat, alg-geom, etc. are
  147. automatically gotten from their respective archives, while branches
  148. not supported at xxx.lanl.gov, such as cond-mat, are retrieved from
  149. babbage.sissa.it. In your .emacs file put:
  150.  
  151.  setq atv-main-ftp-site \"/anonymous\@babbage\.sissa\.it:\" for  Europeans
  152.      or                                                    (others chose)
  153.  setq atv-main-ftp-site \"/anonymous\@xxx\.lanl\.gov:\"  for  N+S Americans
  154. ")
  155. ;.........................................................................
  156. ; 
  157. ;       ================
  158. (defvar atv-download-dir "~/tex/preprints/"
  159. ;       ================
  160. "This is your local download workspace: If you have branch
  161. directories  hep-th, hep-lat, astro-ph, etc. below atv-download-dir,
  162. papers, when saved, will automatically be put there, sorted by
  163. branch. For example, your atv-download-dir is set to \"~/tex/preprints/\"
  164. and you have the subdirs \"~/tex/preprints/hep-th/\" and
  165. \"~/tex/preprints/cond-mat/\". Then getting hep-th/91120013 will put the 
  166. file in tex/preprints/hep-th/. Getting cond-mat/920106 will put it in 
  167. tex/preprints/cond-mat/. If these subdirs do not exist below 
  168. tex/preprints/, both papers would be put in tex/preprints/.
  169.  
  170. Put this directory in your TEXINPUTS environment variable also!
  171. Then tex can get at your newly grabbed files.")
  172. ;..........................................................................
  173. ;
  174. ;       ===============
  175. (defvar atv-uufiles-dir atv-download-dir
  176. ;       ===============
  177. "This is where uufiles (figures) will be unpacked. It should 
  178. usually be the same as atv-download-dir, unless you have a good
  179. reason to put the figs elsewhere [your dvi->ps processor can't 
  180. get at them in atv-download-dir, for instance. (in which case you
  181. should get dvips)]. If it's the same as atv-download-dir, it will
  182. adjust itself to the subdirectory structure following atv-download-dir.")
  183. ;..........................................................................
  184. ;
  185. ;       ===================
  186. (defvar atv-prompt-filename t         ; prompt to rename paper locally
  187. ;       ===================           ; t = true, nil = false
  188. "This one toggles prompting for a name of the grabbed paper or 
  189. listing. When t, you are prompted to name the incoming archive
  190. file which is then appended with .tex. Hitting return at the prompt will
  191. accept the default given in parenthesis.
  192.  
  193. Example: the point is located in the abstract or listing 
  194. of Witten's paper hep-th/9204083. If atv-prompt-filename is t, 
  195. Doing M-x get-paper, asks:
  196.  
  197. \"Local name for paper? [.tex appended] (9204083): \"
  198.  
  199. Typing \"witten\", renames this paper as witten.tex. Simply hitting 
  200. [return], preserves it's archive name as 9204083.tex")
  201. ;...........................................................................
  202. ;       ====================
  203. (defvar atv-interesting-file "~/interesting\.atv"  ; file for interesting
  204. ;       ====================                      ; abstracts.
  205. "Default file to which abstracts stored with \"interesting\" function 
  206. are appended.")
  207. ;...........................................................................
  208. ;
  209. ;       ==================
  210. (defvar atv-auto-tex-paper nil 
  211.     "If t, run tex on grabbed paper automatically.")
  212. (defvar atv-auto-tex-command 'TeX-buffer
  213. ;       ====================
  214. "Setting \"atv-auto-tex-paper\" to t, automatically starts the tex
  215. processor in \"atv-auto-tex-command\" on the paper once it's loaded
  216. into a local buffer, provided no shell command signal is found. The
  217. function pointed to here is then a hook for custom processing of
  218. the grabbed paper.")
  219. ;...........................................................................
  220. ;
  221. ;       ==========
  222. (defvar atv-no-csh nil 
  223. ;       ==========
  224. "Set to t if you don't have csh. No guarantees...")
  225. ;...........................................................................
  226. ;
  227. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  228. ;
  229. ;  The Atavachron:      -Batteries not included-           -\|/-
  230. ;
  231. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  232. ;
  233. ; 
  234. ; Other files and packages needed or recommended:
  235. ;
  236. ;         ange-ftp.el  (not included)   --- [needed]
  237. ;         zcat.el   (included at end)   --- [needed for month+ old papers] 
  238. ;        .netrc    (see below)          --- [highly recommended]
  239. ;        .dvipsrc  (see below)          --- [highly recommended]
  240. ;
  241. ;.....................................................................
  242. ;
  243. ; >>>  ange-ftp.el      (available from prep.ai.mit.edu)
  244. ; 
  245. ; atavachron.el requires Andy Norman's, essential, ftp interface 
  246. ; ange-ftp.el to do the remote file teleportation. If you don't have
  247. ; this loaded in your .emacs file,...! (check locally if you have
  248. ; it, or download it from prep.ai.mit.edu)
  249. ;
  250. ;.....................................................................
  251. ;
  252. ; >>>  zcat.el          (Included in distribution)
  253. ;
  254. ; Another file needed is Graham Gough's zcat.el which uncompresses
  255. ; .Z files on the fly. This makes loading older papers which are
  256. ; compressed at the archive transparent. Since it's short it is included 
  257. ; with the Atavachron package.
  258. ;
  259. ;.....................................................................
  260. ;
  261. ; >>>  .netrc           (write your own, see example: "---.netrc---")
  262. ;
  263. ; Ange-ftp will work much smoother if you keep a .netrc file in your 
  264. ; home directory, thus bypassing the need to send the "anonymous" login
  265. ; and email address when ftping into the archive. Simply clip out the
  266. ; following and name it ~/.netrc (don't forget to take out the ;'s
  267. ; and put your email address in for you@where.you.are).
  268. ;
  269. ; ---------------------------.netrc---------------------------
  270. ;machine ftp.scri.fsu.edu login anonymous password you@where.you.are
  271. ;machine xxx.lanl.gov login anonymous password you@where.you.are
  272. ;machine babbage.sissa.it login anonymous password you@where.you.are
  273. ;machine publications.math.duke.edu login anonymous password you@@where.you.are
  274. ;machine alcom-p.cwru.edu login anonymous password you@@where.you.are
  275. ; ------------------------------------------------------------
  276. ;
  277. ; Furthermore, it must be a protected file. Run: "chmod go-rwx .netrc"
  278. ; on it once created.
  279. ;
  280. ;.....................................................................
  281. ;
  282. ; >>>  .dvipsrc        (write your own, see example: "---.dvipsrc---")
  283. ;
  284. ; Finally, if you use dvips as your .dvi->.ps processor, put your
  285. ; atv-uufiles-dir (see -Configuration-) in its path by keeping
  286. ; a ~/.dvipsrc file with the following lines:
  287. ;
  288. ; --------------------------.dvipsrc--------------------------
  289. ;S ~/tex/preprints:
  290. ;H ~/tex/preprints:
  291. ;W "reading your .dvipsrc file"
  292. ; ------------------------------------------------------------
  293. ;
  294. ; Having atv-uufiles-dir both in your dvips path and your TEXINPUTS 
  295. ; environment variable allows allows dvi and tex to access your 
  296. ; figure files. The trailing :'s above add the default paths.
  297. ;
  298. ; For more info, see your man pages on tex and dvips or your system 
  299. ; administrator, whichever is friendlier.
  300. ;
  301. ;.....................................................................
  302. ;
  303. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  304. ;
  305. ;  The Atavachron:    -Functions-                    -\|/-
  306. ;
  307. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  308. ;
  309. ;    get-paper
  310. ;    get-paper-from-data
  311. ;
  312. ; When reading a daily abstract listing in emacs, either in one of the 
  313. ; mail readers or just as a file, placing the point (cursor) anywhere 
  314. ; in the abstract of choice and typing:  
  315. ;
  316. ;      (M-x)  get-paper    
  317. ;
  318. ; automatically opens an ftp channel to the right archive (via ange-ftp),
  319. ; transfers the paper, uncompresses it if necessary (via zcat.el), 
  320. ; and loads it into a tex-mode buffer. Once in the local buffer, the paper
  321. ; is ready for processing via the usual tex-mode facilities, C-c C-b for 
  322. ; (la)texing, C-c C-p for printing, or any other local tex or auc-tex 
  323. ; features, such as previewing.
  324. ;
  325. ; If the Atavachron finds the PostScript printer signal %! it will try 
  326. ; to extricate the tex file and the appended PostScript figures,
  327. ; by slicing them off into appropriate files. Of course, it saves the
  328. ; whole file first as "localname.tpl", before hacking away under 
  329. ; prompting. [see * Slice-and-dice]
  330. ;
  331. ; If it finds shell commands beginning with ^#!.*/bin/ it will shell out 
  332. ; the region from there to the end, producing a report "localname.rpt" 
  333. ; buffer of any shell output. This is handy to see what was just unpacked 
  334. ; in your download directory. If it finds a .tex file in this report, 
  335. ; it is loaded in tex-mode.
  336. ;
  337. ; Similarly atavachron will try to unpack a .tar.Z file if the archived
  338. ; preprint turns out to be in this form.
  339. ;
  340. ; * Multiple files: *
  341. ;
  342. ; With the advent of the Paul Ginsparg's "uufiles" function (available
  343. ; in the macros) to package figures, data files, and other auxiliary 
  344. ; files, the occurance of "all-in-one" papers will hopefully deminish. 
  345. ;
  346. ; If the Atavachron finds multiple (sequentially numbered) files at the 
  347. ; archive, it will first try process these as uuencoded figure files 
  348. ; (as produced by uufiles). If they are true uufiles, they are unpacked 
  349. ; and a report "localname.rpt" is shown. The paper (papernum.1) is then 
  350. ; loaded in tex-mode.
  351. ;
  352. ; If the mutiple files are not uufiles, they are each gotten to a buffer,
  353. ; with sequential integer extensions "localname.n". A *Buffer List* is 
  354. ; produced from which they can be acted upon.   
  355. ;
  356. ; Note that the buffer(s) containing the paper are marked as changed
  357. ; so that you will be prompted to save it if you try to delete it.
  358. ;
  359. ; Similarly, get-paper-from-data, prompts the user for a preprint
  360. ; number of the form: hep-lat/9211003, then goes away and loads this
  361. ; preprint, performing the above steps.
  362. ;  
  363. ;.....................................................................
  364. ;
  365. ;    store-paper
  366. ;    store-paper-from-data
  367. ;
  368. ; Store-paper, and store-paper-from-data, work like get-paper and 
  369. ; get-paper-from-data resp. for input data, but the paper is stored 
  370. ; directly in the user's default download directory (set below in 
  371. ; -Configuration-), for later processing with [* "process-paper"]. 
  372. ; This is convenient when reading the abstracts remotely (on
  373. ; the weekend from home, say) when one wants to save processing and
  374. ; printing the tex file for later, or so that the file can be further
  375. ; downloaded via modem.
  376. ;
  377. ;.....................................................................
  378. ;
  379. ;    process-paper
  380. ;    slice-and-dice
  381. ;    shell-paper
  382. ;
  383. ; "process-paper" performs the steps described in [* get-paper] for
  384. ; unpacking, shelling, and uudecoding the stored paper as if it was
  385. ; just "gotten" from the archive.
  386. ;
  387. ; "slice-and-dice" is the function called by "get-paper" and 
  388. ; "process-paper" when they find appended PostScript. It goes to 
  389. ; the beginning of the buffer and trys to cut off PostScript
  390. ; figures one by one. It's provided as a standalone function as
  391. ; a utility.
  392. ;
  393. ; "shell-paper" extracts the region below "^#!.*/bin/" to the file
  394. ; "buffer-name", then runs "sh buffer-name". The echoed output
  395. ; of this shell is collected and shown in the buffer "localname.rpt". 
  396. ;.....................................................................
  397. ;
  398. ;    get-listing-from-data
  399. ;    store-listing-from-data
  400. ;    get-abstract
  401. ;    get-abstract-from-data
  402. ;
  403. ; Get-listing-from-data and store-listing-from-data work the same way,
  404. ; except on title listings. They prompt the user for the listing
  405. ; in the usual format: hep-th/9204, then "get" (to a buffer),
  406. ; or "store" (to a file) the given month's listing. 
  407. ;
  408. ; Note that if the listing is gotten with get-listing-from-data into
  409. ; a buffer, then "get-paper" will work in that buffer as in the daily
  410. ; abstract list. Simply put the cursor on the paper of interest (AFTER
  411. ; the line beginning with "Paper:" and type M-x get-paper. 
  412. ;
  413. ; Get-abstract(-from-data) are the equivalent functions for abstracts,
  414. ; and are useful to read the abstract of a title gotten with 
  415. ; get-listing-from-data, etc.
  416. ;.....................................................................
  417. ;
  418. ;    interesting
  419. ; 
  420. ; The point of "interesting" is to save having to 'save' the
  421. ; whole mail file which caontains an interesting abstract. 
  422. ; "interesting" will prompt for a filename (offering atv-interesting-file
  423. ; as the default), then append the paper and abstract of choice (in
  424. ; which the point is located) to that file. Papers thus saved can
  425. ; be gotten with "get-paper" in the usual way.
  426. ;
  427. ;.....................................................................
  428. ;
  429. ;    atavachron-mail
  430. ;
  431. ; This handy function allows you to easily send a bug report, 
  432. ; comment, or question to the author. It opens a mail buffer
  433. ; addressed to me and dumps a few current variables which will be 
  434. ; useful reconstructing the situation if you wish to report a bug.
  435. ; 
  436. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  437. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  438. ;
  439. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  440. ;    The Atavachron:    -End of Source File Documentation-     -\|/-    
  441. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  442.  
  443.  
  444. (provide 'atavachron)
  445. (require 'ange-ftp)
  446.  
  447. (setq atv-A "NONE") (setq atv-C "NONE") (setq atv-E "NONE") 
  448. (setq atv-bogus-uu "NONE") (setq atv-branch "NONE") 
  449. (setq atv-buf-height "NONE") (setq atv-chpd-figs "NONE") 
  450. (setq atv-dir "NONE") (setq atv-dirs-eq "NONE")
  451. (setq atv-dot-2 "NONE") (setq atv-dot-Z "NONE") 
  452. (setq atv-dot-ind "NONE") (setq atv-dot-tar "NONE") 
  453. (setq atv-fig-name "NONE") (setq atv-fig-name-guess "NONE")
  454. (setq atv-file-complet "NONE") (setq atv-first-file "NONE") 
  455. (setq atv-ftp-site "NONE") (setq atv-i "NONE") (setq atv-ii "NONE")
  456. (setq atv-loc-fullname "NONE") (setq atv-loc-name "NONE") 
  457. (setq atv-more-figs "NONE") (setq atv-multi-1 "NONE") 
  458. (setq atv-n "NONE") (setq atv-n-files "NONE") (setq atv-name "NONE")
  459. (setq atv-name-stub "NONE") (setq atv-nth "NONE") 
  460. (setq atv-org-buf-name "NONE") (setq atv-paperno "NONE") 
  461. (setq atv-proc-stub "NONE") (setq atv-remote-complet "NONE") 
  462. (setq atv-remote-ith "NONE") (setq atv-shell-dir "NONE")
  463. (setq atv-shelled-tex "NONE") (setq atv-shelled-tex-n "NONE") 
  464. (setq atv-sh-command "NONE") (setq atv-slash "NONE") 
  465. (setq atv-uuget-no "NONE") (setq atv-whole-data "NONE") 
  466. (setq atv-yymm "NONE")
  467.  
  468.  
  469. (defun atv-make-stub (atv-stub-full)
  470.    (if (string-match "\\." atv-stub-full)
  471.       (progn 
  472.      (setq atv-dot-ind (match-beginning 0))
  473.          (setq atv-name-stub (substring atv-stub-full 0 atv-dot-ind)))
  474.          (setq atv-name-stub atv-stub-full)))
  475.  
  476. (defun atv-get-name (atv-get-name-prompt atv-get-default atv-get-name-suffix)
  477.    (setq atv-name (read-string atv-get-name-prompt))
  478.    (if (not (string= atv-name ""))
  479.        (setq atv-loc-name (concat atv-name atv-get-name-suffix)) 
  480.        (setq atv-loc-name (concat atv-get-default atv-get-name-suffix)))
  481.    (atv-make-stub atv-loc-name)
  482.    (setq atv-name ""))
  483.  
  484. (defun atv-shrink-to-fit ()
  485.    (interactive)
  486.    (goto-char (point-max))
  487.    (setq atv-buf-height (count-lines (window-start) (point)))
  488.    (if (< atv-buf-height (window-height))
  489.       (if (> atv-buf-height window-min-height)
  490.          (shrink-window (- (window-height) atv-buf-height 1))
  491.      (shrink-window (- (window-height) window-min-height))))
  492.    (goto-char (point-min)))
  493.  
  494. (defun atv-var-to-string (atv-trans-var)
  495.   (cond
  496.      ((stringp atv-trans-var) (format atv-trans-var))
  497.      ((integerp atv-trans-var) (int-to-string atv-trans-var))
  498.      ((if (eq atv-trans-var t) (format "t")))
  499.      ((if (eq atv-trans-var nil) (format "nil")))))
  500.  
  501. (defun interesting ()
  502.     (interactive)
  503.     (save-excursion
  504.       (re-search-backward "^Paper.*: ")
  505.       (previous-line 2)
  506.       (set-mark (point))
  507.       (forward-line 2)
  508.       (if (re-search-forward "\\\\\\\\")
  509.          (if (re-search-forward "\\\\\\\\") (sit-for 0 1)))
  510.       (exchange-point-and-mark)
  511.     (atv-get-name (concat "Append to? (" atv-interesting-file "): ")
  512.          atv-interesting-file "")
  513.     (append-to-file (mark) (point) atv-loc-name)))
  514.  
  515. (defun atv-extract-data-from-buffer ()
  516.     (re-search-backward "^Paper.*: ")
  517.     (re-search-forward ": ")
  518.     (setq atv-A (point))
  519.     (re-search-forward "/")
  520.     (setq atv-branch (buffer-substring atv-A (point)))
  521.     (setq atv-ftp-site atv-main-ftp-site)
  522.     (setq atv-ftp-site (cond 
  523.               ((string= "hep-lat/" atv-branch)
  524.                "/anonymous\@ftp\.scri\.fsu\.edu:")
  525.           ((string= "alg-geom/" atv-branch)
  526.            "/anonymous@publications\.math\.duke\.edu:")
  527.           ((string= "lc-om/" atv-branch)
  528.            "/anonymous\@alcom-p\.cwru\.edu:")
  529.               ((or (string= "astro-ph/" atv-branch)
  530.                    (string= "cond-mat/" atv-branch)
  531.                    (string= "funct-an/" atv-branch)
  532.                    (string= "math-ph/" atv-branch))
  533.            "/anonymous\@babbage\.sissa\.it:")
  534.               (atv-ftp-site))) 
  535.     (setq atv-A (point))
  536.     (forward-char 4)
  537.     (setq atv-yymm (buffer-substring atv-A (point)))
  538.     (end-of-line)
  539.     (setq atv-paperno (buffer-substring atv-A (point)))
  540.     (setq atv-dir (concat atv-ftp-site atv-branch "papers/" atv-yymm "/")))
  541.  
  542. (defun atv-ask-bozo-for-data (atv-listing)
  543.    (if (eq atv-listing t)
  544.       (setq atv-whole-data (read-string
  545.          "Enter branch/yymm [ex: hep-lat/9211]: ")) 
  546.       (setq atv-whole-data (read-string
  547.              "Enter paper number [format: cond-mat/9211003]: ")))
  548.    (string-match "/" atv-whole-data)
  549.    (setq atv-slash (match-beginning 0))
  550.    (setq atv-branch (substring atv-whole-data 0 (+ atv-slash 1))) 
  551.    (setq atv-ftp-site atv-main-ftp-site)
  552.    (setq atv-ftp-site (cond 
  553.               ((string= "hep-lat/" atv-branch)
  554.                "/anonymous\@ftp\.scri\.fsu\.edu:")
  555.           ((string= "alg-geom/" atv-branch)
  556.            "/anonymous@publications\.math\.duke\.edu:")
  557.           ((string= "lc-om/" atv-branch)
  558.            "/anonymous\@alcom-p\.cwru\.edu:")
  559.               ((or (string= "astro-ph/" atv-branch)
  560.                    (string= "cond-mat/" atv-branch)
  561.                    (string= "funct-an/" atv-branch)
  562.                    (string= "math-ph/" atv-branch))
  563.            "/anonymous\@babbage\.sissa\.it:")
  564.               (atv-ftp-site)))
  565.     (setq atv-yymm (substring atv-whole-data (+ atv-slash 1) (+ atv-slash 5)))
  566.     (setq atv-paperno (substring atv-whole-data (+ atv-slash 1)))
  567.     (if (eq atv-listing t)
  568.       (setq atv-dir (concat atv-ftp-site atv-branch "listings/")) 
  569.       (setq atv-dir (concat atv-ftp-site atv-branch "papers/" atv-yymm "/"))))
  570.  
  571. (defun atv-init-loc-dirs ()
  572. ; *** append "/"
  573.       (if (not (string= (substring atv-download-dir -1) "/"))
  574.      (setq atv-download-dir (concat atv-download-dir "/")))
  575.       (if (not (string= (substring atv-uufiles-dir -1) "/"))
  576.      (setq atv-uufiles-dir (concat atv-uufiles-dir "/")))
  577. ; *** atv-download-dir =? atv-uufiles-dir
  578.       (if (string= atv-download-dir atv-uufiles-dir)
  579.      (setq atv-dirs-eq t))
  580. ; *** Check existence of atv-download-dir
  581.       (if (not (file-directory-p atv-download-dir))
  582.          (progn 
  583.        (message (concat 
  584.               "Default download dir: " 
  585.       atv-download-dir " doesn't exist! ...I'm setting it to: ~/"))
  586.        (sit-for 3 1)
  587.        (setq atv-download-dir "~/")))
  588. ; *** Check for branches below local atv-download-dir
  589.       (setq atv-download-dir 
  590.           (cond ((file-directory-p (concat atv-download-dir atv-branch))
  591.                    (concat atv-download-dir atv-branch))
  592.                 (atv-download-dir)))
  593.       (if (eq atv-dirs-eq t) (setq atv-uufiles-dir atv-download-dir)))
  594.  
  595. (defun atv-chop-figs ()
  596.   (message "Entering slice and dice mode...")
  597.   (sit-for 1 1)
  598.   (atv-init-loc-dirs)
  599.   (setq atv-org-buf-name (buffer-name (current-buffer)))
  600.   (set-visited-file-name (concat atv-download-dir atv-name-stub "\.tpl"))
  601.   (save-buffer)
  602.   (message (concat "Whole original is saved in: " atv-download-dir 
  603.        (buffer-name (current-buffer))))
  604.   (sit-for 2 1)
  605.   (save-excursion 
  606.     (switch-to-buffer (concat atv-name-stub "\.figs"))
  607.     (set-visited-file-name (concat atv-download-dir atv-name-stub "\.figs"))
  608.     (insert-string (concat
  609. " * -\\|/- The Atavachron  (1.1) * \n"
  610. "Below are the PostScript figures extracted from: " atv-name-stub "\.tex\n"
  611. "-----------------------------------------------\n")))
  612.   (beginning-of-line)
  613.   (setq atv-E (point))
  614.   (end-of-line)
  615.   (setq atv-chpd-figs 0)
  616.   (setq atv-more-figs t)
  617.   (while (eq atv-more-figs t)
  618.     (progn 
  619.       (beginning-of-line)
  620.       (setq atv-C (point))
  621.       (previous-line 20)
  622.       (if (re-search-forward "\\([-a-zA-Z0-9\_]+\\(\\.ps\\|\\.eps\\)\\)"
  623.                  atv-C t nil)
  624.        (setq atv-fig-name-guess 
  625.          (buffer-substring (match-beginning 1) (match-end 1)))
  626.        (setq atv-fig-name-guess "* NONE FOUND *"))
  627.       (goto-char atv-C)
  628.       (set-mark (point))
  629.       (end-of-line)
  630.       (if (re-search-forward "^\%\!" nil t nil)
  631.      (beginning-of-line)
  632.      (progn (goto-char (point-max)) (setq atv-more-figs nil)))
  633.       (exchange-point-and-mark)
  634.       (setq atv-fig-name (read-string (concat
  635.      "Name of figure file below this point? ("
  636.      atv-fig-name-guess "): ")))
  637.       (if (string= atv-fig-name "")
  638.      (setq atv-fig-name atv-fig-name-guess))
  639.       (exchange-point-and-mark)
  640.       (write-region (mark) (point) (concat atv-uufiles-dir atv-fig-name))
  641.       (message (concat "Extracted " atv-fig-name))
  642.       (save-excursion
  643.     (switch-to-buffer (concat atv-name-stub "\.figs"))
  644.     (goto-char (point-max))
  645.     (insert-string (concat atv-fig-name "\n")))
  646.       (sit-for 2 1)
  647.       (setq atv-chpd-figs (1+ atv-chpd-figs))
  648.       (end-of-line)))
  649.     (pop-to-buffer (concat atv-name-stub "\.figs"))
  650.     (save-buffer)
  651.     (atv-shrink-to-fit)
  652.     (pop-to-buffer (concat atv-name-stub "\.tpl"))
  653.     (message (concat "Surgery complete: " 
  654.              atv-chpd-figs " figure(s) removed.   Good Luck..."))
  655.     (sit-for 2 1)
  656.     (goto-char atv-E)
  657.     (set-mark (point))
  658.     (kill-region (mark) (point-max))
  659.     (goto-char (point-min))
  660.     (rename-buffer atv-org-buf-name))
  661.  
  662. (defun slice-and-dice ()
  663.   (interactive)
  664.   (goto-char (point-min))
  665.   (re-search-forward "^\%\!" nil t nil)
  666.   (atv-chop-figs))
  667.  
  668. (defun atv-type-check (atv-type-dir atv-type-name)
  669.       (atv-init-loc-dirs)
  670. ; *** find all remote files matching paper name in type-dir
  671.       (setq atv-remote-complet 
  672.         (file-name-all-completions atv-type-name atv-type-dir))
  673. ; *** remove abstract and check file completion list for types:
  674.       (setq atv-i 0)
  675.       (setq atv-dot-Z nil)
  676.       (setq atv-dot-2 nil)
  677.       (setq atv-dot-tar nil)
  678.       (setq atv-file-complet (make-list 0 ""))
  679.       (while (< atv-i (length atv-remote-complet))
  680.          (progn 
  681.         (setq atv-remote-ith (elt atv-remote-complet atv-i))
  682.             (if (or (< (length atv-remote-ith) 4)
  683.                     (not (string= (substring atv-remote-ith -4 nil)
  684.                                "\.abs")))
  685.            (progn
  686.                  (setq atv-file-complet
  687.                       (cons atv-remote-ith atv-file-complet))
  688.          (if (and (not atv-dot-Z) 
  689.              (string-match "\.Z" atv-remote-ith))
  690.                 (setq atv-dot-Z t))
  691.          (if (and (not atv-dot-2) 
  692.              (string-match (concat atv-type-name "\.2") atv-remote-ith))
  693.                 (setq atv-dot-2 t))
  694.          (if (and (not atv-dot-tar) 
  695.              (string-match (concat atv-type-name "\.tar\.Z") 
  696.                                              atv-remote-ith))
  697.                 (setq atv-dot-tar t))))
  698.             (setq atv-i (1+ atv-i))))
  699.       (setq atv-n-files (length atv-file-complet))
  700.       (setq atv-first-file (elt atv-file-complet 0)))
  701.  
  702. (defun atv-proc-unique (atv-u-dir atv-u-name atv-u-loc atv-listing)
  703. ;---Setup local file:---
  704.             (atv-make-stub atv-u-name)
  705.             (if (and (eq atv-prompt-filename t) (not (eq atv-u-loc t)))
  706.                (atv-get-name 
  707.                   (concat "Local name for paper? [.tex appended] (" 
  708.               atv-name-stub "): ") atv-name-stub "\.tex")
  709.               (setq atv-loc-name (concat atv-name-stub "\.tex")))
  710. ;---Get remote:---
  711.             (find-file-other-window (concat atv-u-dir atv-first-file))
  712.             (if (not (string= atv-loc-name (buffer-name (current-buffer))))
  713.                (rename-buffer atv-loc-name))
  714.             (if (string= (substring atv-loc-name -2 nil) "\.Z")
  715.                 (rename-buffer 
  716.                    (substring atv-loc-name 0 
  717.                   (- (length atv-loc-name) 2))))
  718.         (set-visited-file-name (concat atv-download-dir 
  719.                        (buffer-name (current-buffer)))) 
  720. ;---Have a peek:---
  721.             (if (not (eq atv-listing t)) 
  722.               (progn
  723.                 (cond 
  724. ;    ---#!/bin/shell ouch! (--> atv-shell-out-buf)
  725.                   ((and (goto-char (point-min))
  726.                      (re-search-forward "^\#\!.*/bin" nil t nil))
  727.              (progn
  728.                        (if (y-or-n-p 
  729.              "Primary file contains shell commands. Unpack? ")
  730.               (progn
  731.                 (atv-shell-out-buf atv-download-dir 
  732.                          (concat atv-name-stub "\.sh")
  733.                          atv-name-stub t)
  734.                 (goto-char (point-min))
  735.                 (next-line 3)
  736.                 (setq atv-shelled-tex-n 0)
  737.                 (while (re-search-forward 
  738.                  "\\([-a-zA-Z0-9\_]+\\.tex\\)" nil t nil)
  739.                    (progn
  740.                                    (setq atv-shelled-tex
  741.                     (buffer-substring (match-beginning 1) 
  742.                               (match-end 1)))
  743.                  (setq atv-shelled-tex-n 
  744.                                      (1+ atv-shelled-tex-n))))
  745.                    (if (eq atv-shelled-tex-n 1)
  746.                  (find-file-other-window
  747.                     (concat atv-download-dir atv-shelled-tex)))
  748.                                (if (eq atv-shelled-tex-n 1)
  749.                      (progn 
  750.                    (message (concat
  751.              "Can't find any tex file in shell echo output: " 
  752.              atv-name-stub "\.rpt"))
  753.                    (sit-for 3 1)
  754.                    (message (concat
  755.                  "Check file: " 
  756.                  atv-name-stub "\.sh  manually"))))))))
  757. ;---Appended PostScript: chop chop (--> atv-chop-figs)
  758.                   ((and (goto-char (point-min))
  759.                      (re-search-forward "^\%\!" nil t nil))
  760.                        (progn 
  761.              (message 
  762.    "Looks like there are appended PostScript figures...")
  763.              (sit-for 2 1)
  764.              (if (y-or-n-p 
  765.    "Shall I surgically remove the figures? ")
  766.                 (progn
  767.                    (atv-chop-figs)
  768.                    (tex-mode)
  769.                    (if (eq atv-auto-tex-paper t) 
  770.                    (funcall atv-auto-tex-command)))
  771.                 (message "I understand..."))))
  772. ;---Regular old fashioned paper:---
  773.                   (t (progn
  774.                      (tex-mode)
  775.                      (if (eq atv-auto-tex-paper t) 
  776.             (funcall atv-auto-tex-command))))))))
  777.  
  778. (defun shell-paper ()
  779.    (interactive)
  780.    (atv-init-loc-dirs)
  781.    (setq atv-name (read-string 
  782.            (concat "Directory for shell operation? (" atv-download-dir
  783.                    "): ")))
  784.    (if (not (string= atv-name ""))
  785.        (setq atv-shell-dir atv-name) 
  786.        (setq atv-shell-dir atv-download-dir))
  787.    (if (not (string= (substring atv-shell-dir -1) "/"))
  788.        (setq atv-shell-dir (concat atv-shell-dir "/")))
  789.    (atv-make-stub (buffer-name (current-buffer)))
  790.    (atv-shell-out-buf atv-shell-dir (buffer-name (current-buffer))
  791.              atv-name-stub t))
  792.  
  793. (defun atv-shell-out-buf (atv-sh-dir atv-sh-file atv-sh-rpt atv-show-rpt)
  794.    (goto-char (point-min))
  795.    (if (re-search-forward "^\#\![ \t]*\\(.*/bin/.*\\)$" nil t)
  796.       (progn
  797.         (setq atv-sh-command (buffer-substring (match-beginning 1)
  798.                            (match-end 1)))
  799.     (beginning-of-line)
  800.         (if (and (eq atv-no-csh t) (search-forward "bin/csh"))
  801.            (progn                  ;  takes #!/bin/csh
  802.               (backward-char 3)    ;      --->  #!/bin/sh
  803.           (delete-char 1)      ;  for those lacking csh
  804.               (beginning-of-line)
  805.               (setq atv-sh-command "/bin/sh")))
  806.         (write-region (point) (point-max) (concat atv-sh-dir atv-sh-file))
  807.         (message "Executing shell script...")
  808.         (shell-command (concat "cd " atv-sh-dir "; "
  809.                          atv-sh-command " " atv-sh-file))
  810.         (set-buffer-modified-p nil)
  811.         (bury-buffer)))
  812.         (pop-to-buffer "*Shell Command Output*")
  813.         (rename-buffer (concat atv-sh-rpt "\.rpt"))
  814.         (goto-char (point-min))
  815.         (insert-string (concat
  816. " * -\\|/- The Atavachron  (1.1) * \n"
  817. "This is the output of: " atv-sh-command " " atv-sh-dir atv-sh-file "\n"
  818. "Below should be a manifest of the enclosed files (or shell output):\n"
  819. "------------------------------------------------------------------\n"))
  820.         (set-visited-file-name (concat atv-sh-dir 
  821.                    (buffer-name (current-buffer)))) 
  822.     (atv-shrink-to-fit)
  823.         (if (not (eq atv-show-rpt t))
  824.        (progn 
  825.               (save-buffer)
  826.               (kill-buffer (current-buffer))
  827.               (delete-window))))
  828.  
  829. (defun atv-get-and-store (atv-s-dir atv-s-name atv-s-listing)  
  830. ; *** assumes previous call to atv-type-check
  831.     (if (and (eq atv-prompt-filename t) (not (eq atv-s-listing t)))
  832.        (atv-get-name 
  833.           (concat "Local name for paper? (" atv-paperno 
  834.           "): ") atv-paperno "") 
  835.        (setq atv-loc-name atv-paperno))
  836.     (cond 
  837. ;--- check that something matched paper number at archive
  838.       ((not (stringp atv-first-file))
  839.          (message (concat "No files match: " atv-s-dir atv-s-name)))
  840.  
  841. ;--- unique: (plain or .Z)
  842.       ((and (eq atv-n-files 1) (not (eq atv-dot-tar t)))
  843.         (if (eq atv-dot-Z t)
  844.        (progn
  845.              (copy-file (concat atv-s-dir atv-first-file) 
  846.               (concat atv-download-dir atv-loc-name "\.Z") 1)
  847.          (message (concat "Copied " atv-download-dir atv-loc-name "\.Z")))
  848.        (progn
  849.          (copy-file (concat atv-s-dir atv-first-file) 
  850.               (concat atv-download-dir atv-loc-name) 1)
  851.          (message (concat "Copied " atv-download-dir atv-loc-name)))))
  852. ;--- unique: tarred remote
  853.          ((eq atv-dot-tar t)
  854.        (progn
  855.              (copy-file (concat atv-s-dir atv-first-file) 
  856.               (concat atv-download-dir atv-loc-name "\.tar\.Z") 1)
  857.          (message (concat "Copied " atv-loc-name "\.tar\.Z"))))
  858. ;--- uufigs (.2,...)
  859.    ((eq atv-dot-2 t)
  860.      (progn
  861.     (setq atv-n 1)
  862.     (setq atv-uuget-no 0)
  863.     (while (<= atv-n atv-n-files)
  864.       (progn
  865.         (setq atv-ii 0)
  866.         (while (< atv-ii atv-n-files)
  867.           (progn
  868. ;    >--- file matches "atv-s-name.n"
  869.         (if (string-match
  870.              (concat atv-s-name "\." (int-to-string atv-n))
  871.                   (elt atv-file-complet atv-ii))
  872.            (progn
  873.              (if (eq atv-dot-Z t)
  874.             (copy-file (concat atv-s-dir atv-s-name "\." 
  875.                        (int-to-string atv-n) "\.Z")
  876.                            (concat atv-download-dir atv-loc-name "\." 
  877.                        (int-to-string atv-n) "\.Z") 1)
  878.                 (copy-file (concat atv-s-dir atv-s-name "\." 
  879.                        (int-to-string atv-n))
  880.                        (concat atv-download-dir atv-loc-name "\." 
  881.                        (int-to-string atv-n)) 1))
  882.           (setq atv-uuget-no (1+ atv-uuget-no))))
  883.                   (setq atv-ii (1+ atv-ii))))
  884.            (setq atv-n (1+ atv-n))))
  885.      (message (concat "Copied " atv-uuget-no " files."))))
  886.  
  887. ;--- distributed in more than 2 files (!?!)
  888.          ((and (> atv-n-files 2) (not (eq atv-dot-2 t)))
  889.             (if (y-or-n-p (concat 
  890.                  "Paper distributed in " 
  891.                   (int-to-string atv-n-files) 
  892.                  " files without integer suffices!  Continue? "))
  893.             (progn
  894.            (message 
  895.              "Copying--- (archive filenames are preserved since I'm confused)")
  896.                (sit-for 3 1)
  897.            (setq atv-i 0)
  898.                (while (< atv-i atv-n-files)
  899.          (setq atv-nth (elt atv-file-complet atv-i))
  900.          (message (concat "Copying: " atv-nth))
  901.          (sit-for 1 1)
  902.          (setq atv-i (1+ atv-i))
  903.          (copy-file (concat atv-dir atv-nth) 
  904.                    (concat atv-download-dir atv-nth))))))
  905.        (t (message 
  906.    "BOGUS!: Can't decide what to do... (report bug with atavachron-mail)")))
  907.     (if (not (eq atv-s-listing t))
  908.        (progn (sit-for 2 1)
  909.        (message (concat "Use \"process-paper\" on \"" atv-loc-name
  910.              "\" at your convenience..."))))) 
  911.  
  912.  
  913. (defun atv-untar (atv-t-dir atv-t-file atv-t-stub atv-t-suffix atv-tarview)
  914. ;            untar:   dir,  file,  name stub, add "suffix",   |
  915. ;                                                 if t keep output in view
  916.    (message "Untarring...")
  917.    (shell-command (concat "cd " atv-t-dir "; "
  918.           "zcat " atv-t-file " | tar -xvf -"))
  919.    (pop-to-buffer "*Shell Command Output*")
  920.    (rename-buffer (concat atv-t-stub atv-t-suffix))
  921.    (goto-char (point-min))
  922.    (insert-string (concat
  923. " * -\\|/- The Atavachron  (1.1) * \n"
  924. "This is the output of: zcat " atv-t-dir atv-t-file " | tar -xvf - \n"
  925. "Below should be a manifest of the enclosed files:\n"
  926. "------------------------------------------------\n"))
  927.    (set-visited-file-name (concat atv-t-dir 
  928.                    (buffer-name (current-buffer)))) 
  929.    (save-buffer)
  930.    (atv-shrink-to-fit)
  931.    (if (not (eq atv-tarview t))
  932.       (progn
  933.     (kill-buffer (current-buffer))
  934.     (delete-window))))
  935.  
  936. (defun atv-get-and-proc (atv-g-dir atv-g-name atv-g-loc atv-listing)
  937. ;--- assumes call to atv-type-check to set atv-n-files, etc.
  938. ; *** GET file:
  939. ;               * unique:
  940. ;        - tarred? 
  941. ;               * distributed:
  942. ;        - uufigs (.2,...)
  943. ;        - other (?!)
  944.  
  945.     (atv-make-stub atv-g-name)
  946.     (cond 
  947. ;--- check that something matched paper number at archive
  948.       ((not (stringp atv-first-file))
  949.          (message (concat "No files match: " atv-g-dir atv-g-name)))
  950.  
  951. ;--- unique: readable (plain or .Z)
  952.       ((and (eq atv-n-files 1) (not (eq atv-dot-tar t))) 
  953.            (atv-proc-unique atv-g-dir atv-g-name atv-g-loc atv-listing))
  954.  
  955.  
  956. ;--- unique: tarred remote
  957.          ((and (eq atv-n-files 1) (eq atv-dot-tar t))
  958.       (if (not (eq atv-g-loc t))
  959.        (progn
  960.               (message
  961.                 (concat "Paper is archived: " atv-first-file))
  962.           (sit-for 1 1)
  963.               (if (eq atv-prompt-filename t)
  964.                 (atv-get-name 
  965.            (concat "Rename incoming tarfile? [.tar.Z appended] (" 
  966.                atv-g-name "): ") atv-g-name "\.tar\.Z") 
  967.         (setq atv-loc-name atv-first-file))
  968.           (setq atv-loc-fullname (concat atv-download-dir atv-loc-name))
  969.           (message "Copying...")
  970.               (copy-file (concat atv-g-dir atv-first-file) atv-loc-fullname 1)
  971.           (message (concat "Copied " atv-loc-fullname))
  972.           (if (y-or-n-p "Unpack tarfile now? ")
  973.                (atv-untar atv-download-dir atv-loc-name atv-name-stub "\.rpt" t)
  974.            (message (concat "Use \"process-paper\" on \"" atv-name-stub
  975.                 "\" at your convenience..."))))
  976.        (progn
  977.          (message (concat 
  978.                "File is tarred: " atv-g-name ".tar.Z; Unpacking..."))
  979.          (sit-for 2 1)
  980.          (atv-untar atv-g-dir (concat atv-g-name "\.tar\.Z")
  981.                atv-g-name "\.rpt" t))))
  982.  
  983. ; Distributed: Figures (atv-paperno.2, or more)
  984.  
  985.    ((eq atv-dot-2 t)
  986.      (progn
  987.        (message (concat 
  988.  "Paper distributed in " atv-n-files " files."))
  989.        (sit-for 2 1)
  990.        (if (and (eq atv-prompt-filename t) (not (eq atv-g-loc t)))
  991.           (atv-get-name 
  992.              (concat "Local name for files? [.tex or .n appended] (" 
  993.               atv-name-stub "): ") atv-name-stub "")
  994.           (setq atv-loc-name atv-name-stub))
  995.        (message "Checking for uu-encoded figures or files...")
  996.        (sit-for 2 1)
  997.        (setq atv-n 2)
  998.        (setq atv-uuget-no 0)
  999.        (setq atv-bogus-uu nil)
  1000.        (while (<= atv-n atv-n-files)
  1001.       (progn
  1002.         (setq atv-ii 0)
  1003.         (while (< atv-ii atv-n-files)
  1004.           (progn
  1005. ;  --- file matches "atv-g-name.n"
  1006.         (if (string-match
  1007.              (concat atv-g-name "\." (int-to-string atv-n))
  1008.                   (elt atv-file-complet atv-ii))
  1009.            (progn
  1010.              (if (eq atv-dot-Z t)
  1011.             (find-file (concat atv-g-dir atv-g-name "\." 
  1012.                        (int-to-string atv-n) "\.Z"))
  1013.                 (find-file (concat atv-g-dir atv-g-name "\." 
  1014.                        (int-to-string atv-n))))
  1015.           (setq atv-uuget-no (1+ atv-uuget-no))
  1016.  
  1017. ; --- process suspected uufile:
  1018.         (goto-char (point-min))
  1019.       (if (search-forward "file created by csh script  uufiles" nil t)
  1020.          (progn
  1021.                 (if (not (string= 
  1022.                  (concat atv-name-stub  "\." (int-to-string atv-n))
  1023.          (buffer-name (current-buffer))))
  1024.                    (rename-buffer (concat atv-name-stub "\." 
  1025.                        (int-to-string atv-n))))
  1026.         (set-visited-file-name (concat atv-uufiles-dir 
  1027.                        (buffer-name (current-buffer)))) 
  1028.             (previous-line 1)
  1029.         (beginning-of-line)
  1030.         (if (looking-at "#!/bin/csh -f.*")
  1031.             (progn
  1032.               (message "unpacking uufile...")
  1033.               (if (eq atv-no-csh t)
  1034.                          (progn                 ;  takes #!/bin/csh
  1035.                (forward-char 7)     ;      --->  #!/bin/sh
  1036.                (delete-char 1)      ;  for those lacking csh
  1037.                (beginning-of-line)))
  1038.               (write-region (point) (point-max) 
  1039.                 (concat atv-uufiles-dir atv-loc-name 
  1040.                     "\." (int-to-string atv-n)))
  1041.               (shell-command (concat "cd " atv-uufiles-dir "; "
  1042.                          "sh " atv-loc-name "\."  (int-to-string atv-n)))
  1043.                       (set-buffer-modified-p nil)
  1044.               (bury-buffer)))
  1045.         (pop-to-buffer "*Shell Command Output*")
  1046.         (rename-buffer (concat atv-loc-name 
  1047.                        (int-to-string atv-n) "\.rpt"))
  1048.         (goto-char (point-min))
  1049.         (insert-string (concat
  1050. " * -\\|/- The Atavachron  (1.1) * \n"
  1051. "This is the output of: sh " atv-branch atv-paperno "\." 
  1052. (int-to-string atv-n) "\n"
  1053. "Below should be a manifest of the enclosed files:\n"
  1054. "------------------------------------------------\n"))
  1055.         (set-visited-file-name (concat atv-uufiles-dir 
  1056.                        (buffer-name (current-buffer)))) 
  1057.         (save-buffer)
  1058.                 (atv-shrink-to-fit))
  1059.  
  1060.              (progn
  1061.                 (message (concat atv-loc-name "\." (int-to-string atv-n)
  1062.        " is not a uufile;  Please process by hand."))
  1063.                 (sit-for 3 1)
  1064.                 (setq atv-bogus-uu t)
  1065.                 (if (not (string= 
  1066.           (concat atv-loc-name "\." (int-to-string atv-n))
  1067.               (buffer-name (current-buffer))))
  1068.                   (rename-buffer 
  1069.                         (concat atv-loc-name "\." (int-to-string atv-n))))
  1070.         (set-visited-file-name (concat atv-uufiles-dir 
  1071.                        (buffer-name (current-buffer))))))))
  1072.        (setq atv-ii (1+ atv-ii))))
  1073.      (setq atv-n (1+ atv-n))))
  1074. ; ---- and finally the paper: paperno.1
  1075.                 (if (not (eq atv-bogus-uu t))
  1076.                    (progn
  1077.                       (message "Figures processed, getting paper...")
  1078.                       (setq atv-multi-1 "\.tex"))
  1079.                    (setq atv-multi-1 "\.1"))
  1080.                 (if (eq atv-dot-Z t)
  1081.                   (find-file-other-window (concat atv-g-dir atv-g-name "\.1\.Z"))
  1082.           (find-file-other-window (concat atv-g-dir atv-g-name "\.1")))
  1083.         (if (not (string= (concat atv-loc-name atv-multi-1) 
  1084.                                             (buffer-name (current-buffer))))
  1085.            (rename-buffer (concat atv-loc-name atv-multi-1)))
  1086.                 (if (and (> (length atv-loc-name) 1) 
  1087.                          (string= (substring atv-loc-name -2 nil) "\.Z"))
  1088.                    (rename-buffer 
  1089.                        (substring atv-loc-name 0 
  1090.                   (- (length atv-loc-name) 2))))
  1091.             (set-visited-file-name (concat atv-download-dir 
  1092.                       (buffer-name (current-buffer))))
  1093.                 (if (eq atv-bogus-uu t)
  1094.                    (progn
  1095.                       (list-buffers)
  1096.                       (atv-shrink-to-fit)
  1097.                       (sit-for 0)
  1098.                       (if (> atv-uuget-no 1)
  1099.                          (message (concat "Also fetched " 
  1100.                                 (int-to-string atv-uuget-no) 
  1101.                          " other unprocessed files;  see *Buffer List*"))
  1102.                          (message (concat "Also fetched: " atv-loc-name 
  1103.             "\.2  (see *Buffer List*);  please process files manually.")))
  1104.                       (sit-for 4 1))
  1105.                       (setq atv-bogus-uu nil))
  1106.                 (cond 
  1107.                   ((and (goto-char (point-min))
  1108.                      (re-search-forward "^\%\!" nil t nil))
  1109.                        (message (concat
  1110.                                 "Primary file contains PostScript! "
  1111.                                 "Try \"slice-and-dice\" [see documentation]")))
  1112.                   ((and (goto-char (point-min))
  1113.                  (re-search-forward "^\#\!.*/bin" nil t nil))
  1114.                        (message (concat 
  1115.                                 "Primary file contains shell commands! "
  1116.                                 "Try \"shell-paper\" [see documetation]")))
  1117.                   ((not (eq atv-bogus-uu t))
  1118.                      (progn
  1119.                        (tex-mode) 
  1120.                        (if (eq atv-auto-tex-paper t) 
  1121.                           (progn (sit-for 2 1) 
  1122.                             (funcall atv-auto-tex-command))))))))
  1123.  
  1124. ; ------------ distributed in non-integer .ext files (?)
  1125.          ((and (> atv-n-files 2) (not (eq atv-dot-2 t)))
  1126.             (if (y-or-n-p (concat 
  1127.                  "Paper distributed in " 
  1128.                   (int-to-string atv-n-files) 
  1129.                  " files without integer suffices!  Continue? "))
  1130.             (progn
  1131.            (message 
  1132.      "Copying--- (archive filenames are preserved since I'm a bit confused)")
  1133.                (sit-for 3 1)
  1134.            (setq atv-i 0)
  1135.                (while (< atv-i atv-n-files)
  1136.          (setq atv-nth (elt atv-file-complet atv-i))
  1137.          (message (concat "Copying: " atv-nth))
  1138.          (sit-for 1 1)
  1139.          (setq atv-i (1+ atv-i))
  1140.          (copy-file (concat atv-dir atv-nth) 
  1141.                    (concat atv-download-dir atv-nth))))))
  1142.        (t (message 
  1143.    "BOGUS!: Can't decide what to do... (report bug with atavachron-mail)")))) 
  1144.  
  1145. (defun get-paper ()
  1146. "--------- searches backward to the first occurance of the regexp
  1147. \"^Paper.*: \", and extracts the paper data from the buffer. This
  1148. paper is then gotten from the appropriate archive using ange-ftp.
  1149. tex-mode is loaded in the buffer, and the buffer and visited file
  1150. names are renamed appropriately."
  1151.    (interactive)
  1152.    (atv-extract-data-from-buffer)
  1153.    (atv-type-check atv-dir atv-paperno)
  1154.    (atv-get-and-proc atv-dir atv-paperno nil nil))
  1155.  
  1156. (defun process-paper ()
  1157. "------------- prompts for a local paper name (such as Smith, Jones-A,
  1158. or 9212001), and processes the file(s) exactly as would \"getting\"
  1159. them with *get-paper. Thus appended PostScript is extracted, uufiles
  1160. decoded, or tar files unpacked, depending on the paper format of the
  1161. stored files. Works only on papers stored in atv-download-dir."
  1162.   (interactive)
  1163.   (setq atv-proc-stub (read-string 
  1164.       "Name of stored paper? [without suffix]: "))
  1165.   (setq atv-name-stub atv-proc-stub)
  1166.   (atv-type-check atv-download-dir atv-proc-stub)
  1167.   (atv-get-and-proc atv-download-dir atv-proc-stub t nil))
  1168.  
  1169. (defun get-paper-from-data ()
  1170. "------------------- prompts the user for the paper data
  1171. in the usual form: hep-th/9204083
  1172. This paper is then gotten from the appropriate archive using
  1173. ange-ftp.  tex-mode is loaded in the buffer, and the buffer and
  1174. visited file names are renamed appropriately."
  1175.    (interactive)
  1176.    (atv-ask-bozo-for-data nil)
  1177.    (atv-type-check atv-dir atv-paperno)
  1178.    (atv-get-and-proc atv-dir atv-paperno nil nil))
  1179.  
  1180. (defun get-listing-from-data ()
  1181. "--------------------- gets a month's titles from input of the 
  1182. form: hep-th/9204. Once this listing is loaded, get-paper can be 
  1183. run on any paper, provided the point (cursor) is below the line
  1184. beginning with \"Paper\""
  1185.    (interactive)
  1186.    (atv-ask-bozo-for-data t)
  1187.    (atv-type-check atv-dir atv-paperno)
  1188.    (atv-get-and-proc atv-dir atv-paperno nil t))
  1189.  
  1190. (defun store-paper ()
  1191. "----------- searches backward to the first occurance of the regexp
  1192. \"^Paper.*: \", and extracts the paper data from the buffer. This
  1193. paper is then gotten from the appropriate archive using ange-ftp.
  1194. The paper is stored in the directory given by atv-download-dir, or
  1195. the appropriate subdir (hep-th, hep-lat, etc.) if it exists."
  1196.    (interactive)
  1197.    (atv-extract-data-from-buffer)
  1198.    (atv-type-check atv-dir atv-paperno)
  1199.    (atv-get-and-store atv-dir atv-paperno nil))
  1200.  
  1201. (defun store-paper-from-data ()
  1202. "--------------------- prompts the user for the paper data
  1203. in the usual form: hep-th/9204083
  1204. This paper is then gotten from the appropriate archive using
  1205. ange-ftp. The paper is stored in the directory given by atv-download-dir, 
  1206. or the appropriate subdir (hep-th, hep-lat, etc.) if it exists." 
  1207.    (interactive)
  1208.    (atv-ask-bozo-for-data nil)
  1209.    (atv-type-check atv-dir atv-paperno)
  1210.    (atv-get-and-store atv-dir atv-paperno nil))
  1211.  
  1212. (defun store-listing-from-data () 
  1213. "----------------------- gets a month's titles from input of 
  1214. the form: hep-th/9204, and stores it in atv-download-dir."
  1215.    (interactive) 
  1216.    (atv-ask-bozo-for-data t)
  1217.    (atv-type-check atv-dir atv-paperno)
  1218.    (atv-get-and-store atv-dir atv-paperno t))
  1219.  
  1220. (defun get-abstract () 
  1221. "--------- searches backward to the first occurance of the regexp
  1222. \"^Paper.*: \", and extracts the paper data from the buffer.
  1223. This paper's abstract is then gotten to a separate window."
  1224.    (interactive) 
  1225.    (atv-extract-data-from-buffer)
  1226.    (find-file-other-window (concat atv-dir atv-paperno "\.abs")))
  1227.  
  1228. (defun get-abstract-from-data () 
  1229. "----------------------- gets a paper's abstract from input of 
  1230. the form: hep-lat/9212005."
  1231.    (interactive) 
  1232.    (atv-ask-bozo-for-data nil)
  1233.    (find-file-other-window (concat atv-dir atv-paperno "\.abs")))
  1234.  
  1235. (defun atavachron-mail ()
  1236. "------------- opens a *Mail* buffer addressed to the author of 
  1237. atavachron.el (Jim Hetrick, hetrick@phys.uva.nl), dumps some environment 
  1238. variables and current atv- variables for reconstructing bugs, and leaves
  1239. the point after \"User comments:\", for entering correspondence."
  1240.   (interactive)
  1241.   (mail nil "hetrick@phys\.uva\.nl" "Atavachron-* report")
  1242.   (goto-char (point-max))
  1243.   (insert-string (concat 
  1244. "
  1245.  * -\\|/- The Atavachron (v1.1) *  == Automatic System Report ==
  1246.  
  1247.  User Comments:
  1248.  
  1249.  
  1250.  
  1251.  
  1252. ................................................................
  1253.  >  user: " (user-full-name) "
  1254.  >  machine: " (system-name) "
  1255.  >  system type: " (symbol-name (symbol-value 'system-type)) "
  1256.  >  emacs version: " (emacs-version) "
  1257.  >  environment: 
  1258.     - TERM: " (or (getenv "TERM") "") "
  1259.     - SHELL: " (or (getenv "SHELL") "") "
  1260.     - TEXINPUTS: " (or (getenv "TEXINPUTS") (getenv "TEX_INPUTS") "") "
  1261.  >  main archive: " atv-main-ftp-site "
  1262.  >  most recent paper:
  1263.     - site:   " atv-ftp-site  "
  1264.     - branch: " atv-branch "
  1265.     - number: " atv-paperno "
  1266.     - full: " atv-paperno "
  1267.  >  local download dir: " atv-download-dir "
  1268.  >  local paper name: " atv-loc-name "
  1269.  >  Internal:
  1270. " 
  1271. (atv-var-to-string atv-A) "::"
  1272. (atv-var-to-string atv-C) "::"
  1273. (atv-var-to-string atv-E) "::"
  1274. (atv-var-to-string atv-bogus-uu) "::\n"
  1275. (atv-var-to-string atv-branch) "::"
  1276. (atv-var-to-string atv-buf-height) "::"
  1277. (atv-var-to-string atv-chpd-figs) "::"
  1278. (atv-var-to-string atv-dir) "::\n"
  1279. (atv-var-to-string atv-dirs-eq) "::"
  1280. (atv-var-to-string atv-dot-2) "::"
  1281. (atv-var-to-string atv-dot-Z) "::"
  1282. (atv-var-to-string atv-dot-ind) "::\n"
  1283. (atv-var-to-string atv-dot-tar) "::"
  1284. (atv-var-to-string atv-fig-name) "::"
  1285. (atv-var-to-string atv-fig-name-guess) "::"
  1286. (atv-var-to-string atv-file-complet) "::\n"
  1287. (atv-var-to-string atv-first-file) "::"
  1288. (atv-var-to-string atv-ftp-site) "::"
  1289. (atv-var-to-string atv-i) "::"
  1290. (atv-var-to-string atv-ii) "::\n"
  1291. (atv-var-to-string atv-loc-fullname) "::"
  1292. (atv-var-to-string atv-loc-name) "::"
  1293. (atv-var-to-string atv-more-figs) "::"
  1294. (atv-var-to-string atv-multi-1) "::\n"
  1295. (atv-var-to-string atv-n) "::"
  1296. (atv-var-to-string atv-n-files) "::"
  1297. (atv-var-to-string atv-name) "::"
  1298. (atv-var-to-string atv-name-stub) "::\n"
  1299. (atv-var-to-string atv-nth) "::"
  1300. (atv-var-to-string atv-org-buf-name) "::"
  1301. (atv-var-to-string atv-paperno) "::"
  1302. (atv-var-to-string atv-proc-stub) "::\n"
  1303. (atv-var-to-string atv-remote-complet) "::"
  1304. (atv-var-to-string atv-remote-ith) "::"
  1305. (atv-var-to-string atv-shell-dir) "::"
  1306. (atv-var-to-string atv-shelled-tex) "::\n"
  1307. (atv-var-to-string atv-shelled-tex-n) "::"
  1308. (atv-var-to-string atv-sh-command) "::"
  1309. (atv-var-to-string atv-shelled-tex-n) "::"
  1310. (atv-var-to-string atv-slash) "::\n"
  1311. (atv-var-to-string atv-uuget-no) "::"
  1312. (atv-var-to-string atv-whole-data) "::"
  1313. (atv-var-to-string atv-yymm) "::"
  1314. ))
  1315. (goto-char (point-min))
  1316. (search-forward "User comments")
  1317. (next-line 2)
  1318. (insert-string "       "))
  1319.