[tex-live] Running Live - no access to C drive (emacs approach)

[poti at potis.org]

On 11:03 Mon 02 Apr     , Siep Kroonenberg wrote:
> On Sun, Apr 01, 2007 at 01:25:53PM -0700, poti giannakouros wrote:
> > > This is a problem for our location. Lab users cannot
> > > write to the registry. Parts of the ghostscript installation
> > > and dviout installation done by tlpmgui issued warnings
> > > when they got to apparently non-critical stages that I think
> > > involved writing to the registry. I have not been to the
> > > lab to test yet though.
> 
> Can users not even write to keys under HKEY_CURRENT_USER, in
> particular HKEY_CURRENT_USER\environment and
> HKEY_CURRENT_USER\software ?
> 
> And can you check what group a user on your lab belongs to? Power user,
> regular/restricted user or something custom? Is there a rottttt
> profile setup (user configuration stored on network, and therefore
> identical on all computers on the network)?

For those following this thread, Siep Kroonenberg's script worked in 
my lab. Siep's site, http://tex.aanhet.net/portable/, has been
posted in another thread, where I have also posted the location 
where I will maintain my emacs scripts:
http://potis.org/software/livedvd/
This will hold the most up to date versions. 
For those who find this thread in the future and for the convenience of 
those who may care to comment , the following are the 
main scripts as they stand:
;;;    live-dvd.el --- code setting variables for running a statistical software
;;     environment through emacs from DVD.  
      (C) 2007  Panayotis Giannakouros  poti at potis dot org
(provide 'live-dvd)
(defun convert-sep (string fromsep tosep)
  (let* ((len           (length string))
         (i             0)
         char
         ret)     
    (if (stringp tosep) nil (setq (char-to-string tosep)))
    (if (string= (char-to-string fromsep) tosep) string 
    (while (< i len)
      (setq char (char-to-string (aref string i)))
      (if (char-equal fromsep (aref string i))
          (setq char tosep))
      (setq ret (concat ret char))
      (setq i (1+ i))) ret)))
(setq DVD (substring invocation-directory 0 (string-match "Emacs" invocation-directory)))
(setq slash "/")
(cond ((string-match "i386" system-configuration) 
       (cond ((string-match "nt" system-configuration) 
              (setq slash "\\")
              (setq bin "win32"))
             ((string-match "darwin" system-configuration) (setq bin "i386-darwin"))
             ((string-match "linux"  system-configuration) (setq bin "i386-linux"))
             ))
      ((string-match "powerpc" system-configuration) 
       (cond ((string-match "darwin"  system-configuration) (setq bin "powerpc-darwin"))
             ((string-match "linux"  system-configuration) (setq bin "powerpc-linux")))))

;;----------------------------end live-dvd.el-------------------
;;;     tex-live.el --- Startup code for emacs based zero-config TeX Live.  
;;     Copyright (C) 2007  Panayotis Giannakouros poti at potis dot org

(require 'live-dvd)
(provide 'tex-live)
(setenv "PATH" (convert-sep (convert-sep (concat DVD "bin/" bin "/gs/gs8.54/bin;" DVD "bin/" bi
n "/SumatraPDF;" DVD "Subversion/bin;" DVD "bin/" bin ";" (getenv "PATH") ) ?/ slash) ?\; path-
separator))
(setenv "GS_LIB" (convert-sep (concat DVD "bin/" bin "/gs/gs8.54/lib" ) ?/ slash))
(setenv "TLroot" (convert-sep (concat DVD "") ?/ slash))
(setenv "TEXMFVAR" (concat DVD "texmf-var" ))
(setenv "TEXMFTEMP" (convert-sep (concat (getenv "USERPROFILE") "/Temp") ?/ slash))
(setenv "TEXMFCNF" (convert-sep (concat DVD "texmf-var/web2c") ?/ slash))
(setenv "PERL5LIB" (convert-sep (convert-sep (concat DVD "pertl/lib;" DVD "perltl/site/llib") ?
/ slash)?\; path-separator))
(custom-set-variables
;;Change windvi to xdvi, and SumatraPDF to xpdf and then make aliases in windows?
;; or use this: 
;; '(tex-dvi-view-command (quote (cond ((eq window-system (quote x)) "xdvi") ((eq
;; window-system (quote w32)) "windvi") (t "dvi2tty * | cat -s"))))
;;Also, maybe try to implement no dvi option suggested on mailing list.
;;
 '(TeX-output-view-style (quote (("^dvi$" ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$") "%(o?
)dvips -t landscape %d -o && gv %f") ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$" "%(o?)dvips %d -o
 && gv %f") ("^dvi$" ("^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "^landscape$") "%(o?)windvi %
dS -paper a4r -s 0 %d") ("^dvi$" "^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "%(o?)windvi %dS -
paper a4 %d") ("^dvi$" ("^a5\\(?:comb\\|paper\\)$" "^landscape$") "%(o?)windvi %dS -paper a5r -
s 0 %d") ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "%(o?)windvi %dS -paper a5 %d") ("^dvi$" "^b5paper
$" "%(o?)windvi %dS -paper b5 %d") ("^dvi$" "^letterpaper$" "%(o?)windvi %dS -paper us %d") ("^
dvi$" "^legalpaper$" "%(o?)windvi %dS -paper legal %d") ("^dvi$" "^executivepaper$" "%(o?)windv
i %dS -paper 7.25x10.5in %d") ("^dvi$" "." "%(o?)windvi %dS -paper us %d") ("^pdf$" "." "Sumatr
aPDF %o") ("^html?$" "." "netscape %o"))))
 '(TeX-view-style (quote (("^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "%(o?)windvi %dS -paper 
a4 %d") ("^a5\\(?:comb\\|paper\\)$" "%(o?)windvi %dS -paper a5 %d") ("^b5paper$" "%(o?)windvi %
dS -paper b5 %d") ("^letterpaper$" "%(o?)windvi %dS -paper us %d") ("^legalpaper$" "%(o?)windvi
 %dS -paper legal %d") ("^executivepaper$" "%(o?)windvi %dS -paper 7.25x10.5in %d") ("^landscap
e$" "%(o?)windvi %dS -paper a4r -s 0 %d") ("." "%(o?)windvi %dS -paper us %d")))))
(let* (       (here ".")
       (emacsbin (concat DVD "Emacs/bin"))
       (gsbin (concat DVD "bin/" bin "/gs/gs8.54/bin"))
       (tlbin (concat DVD "bin/" bin))
       (tlpath (list here emacsbin gsbin tlbin)))
  (setq exec-path (append exec-path tlpath)))
;;---------------------end tex-live.el------------------------------