####### # # E-scripts on (installing my environment on) W32. # # Note 1: use the eev command (defined in eev.el) and the # ee alias (in my .zshrc) to execute parts of this file. # Executing this file as a whole makes no sense. # # Note 2: be VERY careful and make sure you understand what # you're doing. # # Note 3: If you use a shell other than zsh things like |& # and the for loops may not work. # # Note 4: I always run as root. # # Note 5: some parts are too old and don't work anymore. Some # never worked. # # Note 6: the definitions for the find-xxxfile commands are on my # .emacs. # # Note 7: if you see a strange command check my .zshrc -- it may # be defined there as a function or an alias. # # Note 8: the sections without dates are always older than the # sections with dates. # # This file is at # or at . # See also , # , # , # , # and . # ####### # See: # http://angg.twu.net/w32.html # (find-anggfile "TH/w32.blogme") # «.downloads» (to "downloads") # «.mkdirs» (to "mkdirs") # «.moves» (to "moves") # «.eepaste-one-line» (to "eepaste-one-line") # «.eshell-mvs» (to "eshell-mvs") # «.eshell-7zip» (to "eshell-7zip") # «.eshell-unxutils» (to "eshell-unxutils") # «.eshell-edrx.tgz» (to "eshell-edrx.tgz") # «.putty» (to "putty") # «.2008jan18» (to "2008jan18") ;; If edrx.tgz is already unpacked, use this: ;; (progn (setenv "HOME" "c:/home/edrx") (add-to-list 'load-path "/home/edrx/") (load ".emacs") ) ##### # # Downloads: Emacs, 7-zip, UnxUtils, edrx.tgz # 2007aug27 # ##### # «downloads» (to ".downloads") # Lennart Borgman's w32 builds: # http://ourcomments.org/Emacs/EmacsW32.html # http://ourcomments.org/Emacs/EmacsW32.html#download # http://ourcomments.org/cgi-bin/emacsw32-dl-latest.pl # 7-zip: # http://www.7-zip.org/ # http://ufpr.dl.sourceforge.net/sourceforge/sevenzip/7z442.exe # UnxUtils: # http://unxutils.sourceforge.net/ # http://sourceforge.net/projects/unxutils/ # http://sourceforge.net/project/showfiles.php?group_id=9328 # http://ufpr.dl.sourceforge.net/sourceforge/unxutils/UnxUtils.zip # edrx.tgz: # http://angg.twu.net/edrx.tgz ##### # # Emacs, 7-zip, UnxUtils, edrx.tgz (unpacking) # 2007aug27 # ##### # «mkdirs» (to ".mkdirs") # Usually I run this by hand on a "cmd" window... # The "eepitch"es are for testing from inside Emacs. # (eepitch-kill) # (eepitch-comint "cmd" "cmd") # mkdir \home\ mkdir \home\emacs\ mkdir \home\edrx\ mkdir \home\zip\ mkdir \home\7zip\ mkdir \home\unxutils\ # «moves» (to ".moves") # (find-file "c:") # (find-file "c:/Documents and Settings/") # (find-file "c:/Documents and Settings/desenvolvedores/Desktop/") # (eepitch-kill) # (eepitch-comint "cmd" "cmd") # cd "c:\Documents and Settings\desenvolvedores\Desktop" cd c:\home\edrx move Emacs-22-CvsP070523-EmacsW32-1.54.exe c:\home\zip move 7z442.exe c:\home\zip move UnxUtils.zip c:\home\zip move edrx.tgz c:\home\zip rem «emacs0» cd c:\home\zip rem install Emacs on /home/emacs... .\Emacs-22-CvsP070523-EmacsW32-1.54.exe rem ----------------------- rem At this point we should have a running Emacs, rem and we can run the rest from it... ##### # # eepaste-one-line # 2007aug27 # ##### ;; «eepaste-one-line» (to ".eepaste-one-line") ;; (find-efunction 'eepaste-one-line) ;; (find-eev "eev-mini-steps.el" "eepaste-one-line") ;; (global-set-key "\M-P" 'eepaste-one-line) ;; (defun eepaste-one-line () "Paste (yank) the first line of the top of the kill-ring here and do a RET." (interactive) (let ((bigstr (car kill-ring))) (if (equal bigstr "") (error "No more lines")) (string-match "^\\([^\n]*\\)\\(\n\\|$\\)" bigstr) (let ((line (match-string 1 bigstr)) ; first line from the kill (rest (substring bigstr (match-end 0)))) ; rest of the kill (if (string-match "^ \\(.*\\)" line) ; lines with a red star (ee-eval-string (match-string 1 line)) ; are eval'ed (insert line) ; other lines are "typed" (call-interactively (key-binding "\r"))) ; and then we do a RET (setcar kill-ring rest)))) ; remove the first line ##### # # Installing 7-Zip and UnxUtils from Emacs # 2007aug29 # ##### # «eshell-mvs» (to ".eshell-mvs") # (eepitch-eshell) # (execute-kbd-macro (kbd "C-x 1 C-x 2 C-x o <> C-x o") 1) cd "c:/Documents and Settings/desenvolvedores/Desktop/" mv -iv Emacs-22-CvsP070523-EmacsW32-1.54.exe /home/zip/ mv -iv 7z442.exe /home/zip/ mv -iv UnxUtils.zip /home/zip/ mv -iv edrx.tgz /home/zip/ # (find-fline "c:/home/7zip/") # (find-fline "c:/home/unxutils/") # (find-fline "c:/home/edrx/") # «eshell-7zip» (to ".eshell-7zip") # (find-file "/home/zip/") # mkdir /home/7zip/ rem install 7-Zip on /home/7zip ... cd /home/zip/ ./7z442.exe # «eshell-unxutils» (to ".eshell-unxutils") # (find-file "/home/unxutils/") # mkdir /home/unxutils/ cd /home/unxutils/ ../7zip/7z.exe ../7zip/7z.exe x -y ..\zip\UnxUtils.zip cd /home/unxutils/usr/local/wbin/ mv -iv * ../../../ ##### # # downloading and unpacking edrx.tgz from Emacs # 2007aug29 # ##### # «eshell-edrx.tgz» (to ".eshell-edrx.tgz") # (eepitch-eshell) # (execute-kbd-macro (kbd "C-x 1 C-x 2 C-x o <> C-x o") 1) cd /home/zip/ mv -v edrx.tgz edrx-old.tgz # ../unxutils/wget http://angg.twu.net/edrx.tgz ../unxutils/wget http://192.168.51.40/TH/L/edrx.tgz cd /home/zip/ mv -v edrx.tgz edrx-tar.gz ../unxutils/gunzip.exe edrx-tar.gz mv -v edrx-tar edrx.tar mkdir /home/edrx/ cd /home/edrx/ ../unxutils/tar.exe -xvf ../zip/edrx.tar ##### # # Notes for a batch to run Emacs with the right settings # 2007aug29 # ##### # (find-enode "Windows HOME") # (find-fline "~/TH/") # (find-fline "~/TH/w32.blogme") # (find-fline "~/4NT/") # (find-fline "~/4NT/4start.btm") # http://angg.twu.net/w32.html # (find-fline "~/4NT/4start.btm") alias ae=c:\edrx\emacs\bin\emacs -fg bisque -bg black %HOME/NOTES # (find-fline "c:/home/emacs/emacs/bin/emacs.exe") # (find-fline "c:/home/emacs/emacs/bin/_emacs") # (find-fline "/home/eemacs.bat") # (find-fline "c:/home/emacs/emacs/bin/_emacs") # http://www.jpsoft.com/ ##### # # # ##### # (getenv "HOME") # (setenv "HOME" "c:/home/edrx") # (find-fline "~/") # (find-file "c:/Documents and Settings/tatiana/Desktop/") # (setenv "D" "c:/Documents and Settings/tatiana/Desktop") # (find-fline "$D/") (getenv "PATH") # (find-angg ".emacs.local.w32") # (find-fline "/home/zip/") # (find-file "c:/Documents and Settings/tatiana/Desktop/") # (setenv "D" "c:/Documents and Settings/tatiana/Desktop") # (find-fline "$D/") (progn (setenv "HOME" "c:/home/edrx") (add-to-list 'load-path "/home/edrx/") (load ".emacs") ) # (find-fline "c:/home/emacs/EmacsW32/lisp/emacsw32-custom.el") ##### # # putty (from the source, on unix, for testing tramp) # 2008jan18 # ##### # «putty» (to ".putty") # (find-node "(tramp)Inline methods" "`plink'") # (find-efile "net/") # (find-egrep "grep -nH -e plink net/tramp*") # http://the.earth.li/~sgtatham/putty/latest/putty-0.60.tar.gz # rm -Rv ~/usrc/putty-0.60/ tar -C ~/usrc/ -xvzf \ $S/http/the.earth.li/~sgtatham/putty/latest/putty-0.60.tar.gz cd ~/usrc/putty-0.60/ cd ~/usrc/putty-0.60/unix/ ./configure |& tee oc make |& tee om # # (code-c-d "puttysrc" "~/usrc/putty-0.60/") # (find-puttysrcfile "")  (eepitch-shell)  (eepitch-kill)  (eepitch-shell) cd ~/usrc/putty-0.60/unix/ ./plink -ssh edrx@caramelo cd ~/bin/ ln -sf ../usrc/putty-0.60/unix/plink . plink -ssh edrx@caramelo exit plink http://zumbi/ http://zumbi/software/ ##### # # Notes, 2008jan18 # ##### # «2008jan18» (to ".2008jan18") # (find-angg "4NT/") # (find-angg "4NT/4start.btm") # Lennart Borgman's w32 builds: # http://ourcomments.org/Emacs/EmacsW32.html # http://ourcomments.org/Emacs/EmacsW32.html#download # http://ourcomments.org/cgi-bin/emacsw32-dl-latest.pl # 7-zip: # http://www.7-zip.org/ # http://ufpr.dl.sourceforge.net/sourceforge/sevenzip/7z442.exe # UnxUtils: # http://unxutils.sourceforge.net/ # http://sourceforge.net/projects/unxutils/ # http://sourceforge.net/project/showfiles.php?group_id=9328 # http://ufpr.dl.sourceforge.net/sourceforge/unxutils/UnxUtils.zip # edrx.tgz: # http://angg.twu.net/edrx.tgz # http://www.chiark.greenend.org.uk/~sgtatham/putty/ # http://www.chiark.greenend.org.uk/~sgtatham/putty/download.html # http://the.earth.li/~sgtatham/putty/latest/x86/putty-0.60-installer.exe # start -> program -> cmd # iniciar -> executar -> cmd  (eepitch-shell)  (eepitch-kill)  (eepitch-shell) mkdir c:\home cd \home mkdir zip mkdir emacs mkdir 7zip mkdir 4NT mkdir unxutils mkdir putty # Local Variables: # coding: raw-text-unix # modes: (fundamental-mode emacs-lisp-mode) # ee-delimiter-hash: "\n#\n" # ee-delimiter-percent: "\n%\n" # ee-anchor-format: "«%s»" # End: