|
Warning: this is an htmlized version!
The original is across this link, and the conversion rules are here. |
#######
#
# 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 <http://angg.twu.net/e/w32.e>
# or at <http://angg.twu.net/e/w32.e.html>.
# See also <http://angg.twu.net/emacs.html>,
# <http://angg.twu.net/.emacs[.html]>,
# <http://angg.twu.net/.zshrc[.html]>,
# <http://angg.twu.net/escripts.html>,
# and <http://angg.twu.net/>.
#
#######
# 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")
# «.EmacsW32» (to "EmacsW32")
# «.dns» (to "dns")
;; 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 <<eshell>> 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 <<eshell>> 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
# Official builds (2010jan20):
# http://www.gnu.org/software/emacs/#Obtaining
# http://www.emacswiki.org/emacs/CategoryWThirtyTwo
# http://www.emacswiki.org/emacs/CategoryPorts
# ftp://ftp.gnu.org/gnu/emacs/windows/README
# ftp://ftp.gnu.org/gnu/emacs/windows/emacs-23.1-bin-i386.zip
#
# «EmacsW32» (to ".EmacsW32")
# (find-es "wine" "EmacsW32")
# http://www.emacswiki.org/emacs/EmacsW32
# http://ourcomments.org/Emacs/EmacsW32.html
# http://ourcomments.org/Emacs/DL/EmacsW32/EmacsCVS/ptch/
# http://ourcomments.org/Emacs/DL/EmacsW32/EmacsCVS/ptch/Emacs-23-CvsP091103-EmacsW32-1.58.exe
# http://ourcomments.org/Emacs/DL/EmacsW32/EmacsCVS/ptch/readme-CvsP091103.txt
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd $S/http/ourcomments.org/Emacs/DL/EmacsW32/EmacsCVS/ptch/
wine Emacs-23-CvsP091103-EmacsW32-1.58.exe
# (find-fline "~/.wine/")
# (find-fline "~/.wine/drive_c/home/emacs/")
# (find-fline "~/.wine/drive_c/home/emacs/EmacsW32/")
# (find-fline "~/.wine/drive_c/home/emacs/emacs/")
# C:\Program Files\Emacs
# C:\home\emacs
# (find-sh "cd ~/.wine/ && find | sort")
# (find-sh "rm -Rfv ~/.wine/")
# http://www.emacswiki.org/emacs/PrintWithWebBrowser
# 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
#####
#
# Getting the DNS IPs on w32
# 2010feb24
#
#####
# «dns» (to ".dns")
# netsh is useless.
ipconfig /all
# 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: