;; This file:
;;   http://anggtwu.net/.emacs.local.w32.html
;;   http://anggtwu.net/.emacs.local.w32
;;          (find-angg ".emacs.local.w32")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>

;; This file is very old - it's from 2005!
;; My current ~/.emacs for Window is here:
;;   (find-angg ".emacs.local.aspi")

;; (eval-buffer)



;; «.packages»			(to "packages")
;; «.PATH»			(to "PATH")
;; «.other-env-vars»		(to "other-env-vars")
;; «.find-ie»			(to "find-ie")
;; «.brie»			(to "brie")
;; «.date»			(to "date")
;; «.ee4nt»			(to "ee4nt")
;; «.howm»			(to "howm")
;; «.find-alides»		(to "find-alides")
;; «.font»			(to "font")
;; «.eev-alides»		(to "eev-alides")



;;;;;;
;;
;; 4NT, 7-Zip, PuTTY
;; 2005nov16
;;
;;;;;;

;; mkdir c:\edrx
;; mkdir c:\edrx\edrx

;; «packages»  (to ".packages")
;; http://www.jpsoft.com/
;; http://www.putty.nl/download.html
;; http://www.emacswiki.org/cgi-bin/wiki/CategoryWThirtyTwo
;; http://nqmacs.sourceforge.net/
;; http://www.7-zip.org/

(code-c-d "arqprog"  "C:/Arquivos de programas/")
(code-c-d "4nt"      "C:/Arquivos de programas/JPSoft/4NT6/")
(code-c-d "7zip"     "C:/Arquivos de programas/7-Zip/")
(code-c-d "putty"    "C:/Arquivos de programas/PuTTY/")
(code-c-d "unxutils" "C:/edrx/unxutils/")
(code-c-d "ncftp"    "C:/edrx/NcFTP/")
(code-c-d "ncftpdoc" "C:/edrx/NcFTP/doc/html/")

;; (code-c-d "4nt"      "C:/edrx/JPSoft/4NT6/")
;; (code-c-d "7zip"     "C:/edrx/7-Zip/")
;; (code-c-d "putty"    "C:/edrx/PuTTY/")

;; (find-ncftpfile "")
;; (find-ncftpdocfile "")
;; (find-arqprogfile "")
;; (find-puttyfile "")
;; (find-7zipfile "")
;; (find-4ntfile "")
;; (find-unxutilsfile "")

;; (find-puttyfile "README.txt" "Control Panel > System")

;; (find-4ntfile "")
;; (find-4ntsh "start Guide.pdf")



;;;;;;
;;
;; Add paths using add-to-list
;; 2005nov16
;;
;;;;;;

;; «PATH»  (to ".PATH")
;; (replace-regexp-in-string "\\\\" "/" "c:\\foo\\bar")
;; (replace-regexp-in-string "/" "\\\\" "c:/foo/bar")
;; (split-string (getenv "PATH") ";")

(defun read-ms-PATH ()
  (setq ms-PATH
	(split-string
	 (replace-regexp-in-string "\\\\" "/" (getenv "PATH"))
	 ";")))

(defun set-ms-PATH ()
  (setenv "PATH"
	  (setq ms-PATH
		(replace-regexp-in-string
		 "/" "\\\\"
		 (mapconcat 'identity ms-PATH ";")))))

(read-ms-PATH)
(add-to-list 'ms-PATH ee-7zipdir)
(add-to-list 'ms-PATH ee-4ntdir)
(add-to-list 'ms-PATH ee-puttydir)
(add-to-list 'ms-PATH ee-ncftpdir)
(add-to-list 'ms-PATH ee-unxutilsdir)
(add-to-list 'ms-PATH "c:/edrx/bin/")
(set-ms-PATH)

;; Note: use ee-expand to use "~" and "$VAR" in paths.
;; (ee-expand "~/bin/")

;; (find-sh "plink.exe")



;;;;;;
;;
;; Other environment variables
;; 2005nov16
;;
;;;;;;

;; «other-env-vars»  (to ".other-env-vars")
;; There are many important envvars missing, I'm sure.
;; I need to run "set | tee ~/o" at home and create the setenvs.

(setenv "ES" (ee-expand "~/e/"))
;; (find-fline "$ES")
;; (find-es "emacs")




;;;;;
;;
;; find-ie, brie, briel
;; 2005nov16
;;
;;;;;

;; «find-ie»  (to ".find-ie")
;; «brie»  (to ".brie")
;; (find-angg ".emacs")
;; (find-angg ".emacs" "brwl-and-friends")

(defun find-ie (url &rest ignore)
  (interactive (browse-url-interactive-arg "URL: "))
  (browse-url-default-windows-browser url))

(defalias 'brie 'find-ie)
(defalias 'brw  'find-ie)

;; (my-def-browse-url-local-remote briel brie find-ie)



;;;;;;
;;
;; date (this version runs both on *nix and on M$)
;; 2005nov16
;;
;;;;;;

;; «date»  (to ".date")

(defun date-as-string (&optional arg) (interactive "P")
  (cond ((eq arg 1) (downcase (format-time-string "%Y%b%d %k:%M")))
	((eq arg 2) (format-time-string "%Y%b%d %k:%M"))
	((eq arg 3) (format-time-string "%Y%m%d55555"))
	(t          (downcase (format-time-string "%Y%b%d")))))

(defun date (&optional arg) (interactive "P")
  "Insert the current date."
  (insert (date-as-string arg)))



;;;;;;
;;
;; ee4nt
;;
;;;;;;

;; «ee4nt»  (to ".ee4nt")
;; (find-efunction 'eev)
;; (find-evariable 'ee-file-tex)
;; (find-elnode "Specifying Coding Systems" "coding-system-for-write")
;; (find-angg "4NT/4start.btm")

(defvar ee-file-4nt  (ee-expand "$EEVTMPDIR/ee.btm"))
(defvar ee-delimiter-4nt "\nrem *\n")

(defun ee4nt (s &optional e)
  (interactive "r")
  (let ((coding-system-for-write 'raw-text-dos))
    (ee-write-with-nl s e "" "" ee-file-4nt))
  (format "ee4nt: wrote %s" (ee-expand ee-file-4nt)))

(eeb-define 'ee4nt-bounded   'ee4nt 'ee-delimiter-4nt  nil t t)



;;;;;;
;;
;; howm-list-all-with-edrx-arg
;;
;;;;;;

;; «howm»  (to ".howm")
;; The default binding for (kbd "C-c , a") is howm-list-all - replace
;; it with something that makes it easy to use several directories.
;;
;; (find-ekeymapdescr global-map "C-c , a")
;; (global-set-key (kbd "C-c , a") 'howm-list-all-with-edrx-arg)
;; (global-set-key (kbd "C-c , a") 'howm-list-all)
;; (eek "M-h M-k C-c , a")
;; (find-fline "~/HOMW/")
;; (find-fline "~/HOMW4/")

(defun howm-list-all-with-edrx-arg (arg)
  "Like `howm-list-all', but when invoked with an argument set `howm-directory'.
When ARG is nil use \"~/HOMW/\", when ARG is a number, for
example, 32, use \"~/HOMW32/\"."
  (interactive "P")
  (if arg (setq howm-directory
		(format "~/HOWM%s/" (if (eq arg 0) "" arg))))
  (howm-list-all))

(global-set-key (kbd "C-c , a") 'howm-list-all-with-edrx-arg)


;; This is mainly for howm
(defun iheader ()
  (interactive)
  (setq buffer-file-coding-system 'raw-text-unix)
  (insert " -*- encoding: raw-text-unix -*-\n"))

(setq eev-help-page-file-name "$EEVTMPDIR/HELP-ms")



;;;;;;
;;
;; find-alides
;; 2005nov21
;;
;;;;;;

;; «find-alides»  (to ".find-alides")
;; From: (find-ncftpfile "doc/man/" "ncftpget.1")
;;   host sphygmomanometer.ncftp.com
;;   user gleason
;;   pass mypasswd
;; (find-alidesget "-h")
;; (find-alidesput "-h")
;; (find-fline "~/.alides.cfg")
;; (find-sh "ncftpls  -u myuser -p mypasswd -l ftp://alides01rj1aix/edrx/.eev/")
;; (find-sh "ncftpls  -u myuser -p mypasswd -l ftp://alides01rj1aix/")
;; (find-sh "ncftpget -u myuser -p mypasswd -c ftp://alides01rj1aix/.profile")
;; (find-sh "ncftpls  -f C:/edrx/edrx/.alides.cfg -l ftp://alides01rj1aix/edrx/")
;; (find-sh "ncftpls  -f C:/edrx/edrx/.alides.cfg -l ftp://alides01rj1aix/")
;; (find-sh "ncftpget -f C:\\edrx\\edrx\\.alides.cfg -c ftp://alides01rj1aix/.profile")

;; (find-sh "echo %PATH")

(defvar ee-access-alides "-f C:/edrx/edrx/.alides.cfg")
;; (setq ee-access-alides "-u myuser  -p mypassword")

(defun find-alidesget (progargs &rest rest)
  (apply 'find-sh (format "%sncftpget %s %s"
			  ee-ncftpdir ee-access-alides progargs) rest))

(defun find-alidesls (progargs &rest rest)
  (apply 'find-sh (format "%sncftpls %s %s"
			  ee-ncftpdir ee-access-alides progargs) rest))

(defun find-alidesput (progargs &rest rest)
  (apply 'find-sh (format "%sncftpput %s %s"
			  ee-ncftpdir ee-access-alides progargs) rest))

(defun find-alides (path &rest rest)
  (if (string-match "\\(^\\|/\\)$" path)
      (apply 'find-alidesls (format "-l ftp://alides01rj1aix/%s" path) rest)
    (apply  'find-alidesget (format "-c ftp://alides01rj1aix/%s" path) rest)))

;; ncftpput -C remote-host local-path-name remote-path-name
;; ncftpput -C alides01rj1aix c:/edrx/edrx/.eev/ee-alides.sh edrx/.eev/ee.sh

;; (find-alides "edrx/.eev/")
;; (find-alides "edrx/")
;; (find-alides "./")
;; (find-alides "")
;; (find-alides "src/")
;; (find-alides "daemon/")
;; (find-alides "daemon/intraston/")
;; (find-alides "daemon/intraston/intraston.sc")
;; (find-alides "daemon/intraston/intraston.sc" "Funcao    : W0045")
;; (find-alides ".profile" "cco")

;; (find-alides "./")
;; (find-alides "ppsproc_03112005.log")
;; (find-alides "stons.sh")




;;;;;;
;;
;; font
;;
;;;;;;

;; «font»  (to ".font")
;; <S-down-mouse-1> --> mouse-set-font
;; (find-efunctiondescr 'mouse-set-font)
;; (find-evardescr 'w32-fixed-font-alist)

;; (face-attribute 'default :font)
;; (w32-select-font (selected-frame) w32-list-proportional-fonts)
 ' (set-default-font
    "-outline-Lucida Console-normal-r-normal-normal-11-82-96-96-c-*-iso8859-1")
 ' (set-default-font
    "-outline-Lucida Console-normal-r-normal-normal-12-90-96-96-c-*-iso8859-1")




;;;;;;
;;
;; eev-alides and hh-alides
;;
;;;;;;

;; (find-efunction 'hh)
(defun hh-alides ()
  (interactive)
  (find-alides "edrx/.eev/hh"))

;; (ee-alidesput (ee-expand "$EEVTMPDIR/alides/") "edrx/.eev" "ee.sh")
(defun ee-alidesput (localdir alidesdir files)
  (let ((default-directory localdir))
    (find-sh0 (format "ncftpput %s alides01rj1aix %s %s"
		      ee-access-alides alidesdir files))))

;; «eev-alides»  (to ".eev-alides")
;; No error checking and no messages yet. This should balk when
;; `ee-alidesput' complains, and say which files were written when ok.
;;
(defun eev-alides (s &optional e)
  (interactive "r")
  (let ((coding-system-for-write 'raw-text-unix))
    (eev s e (ee-expand "$EEVTMPDIR/alides/ee.sh")))
  ;; (find-elnode "Forcing Redisplay")
  (let ((redisplay-dont-pause t)) (sit-for 0))
  (ee-alidesput (ee-expand "$EEVTMPDIR/alides/") "edrx/.eev" "ee.sh"))

(eeb-define 'eev-alides-bounded  'eev-alides 'ee-delimiter-hash  nil t t)







;; For some reason in W$ f10 is bound to something else.
;;
(global-set-key (kbd "<f10>") 'tmm-menubar)



;;;;;;
;;
;; woman
;;
;;;;;;

;; (find-efunction 'woman-dired-find-file)
;; (find-ekeymapdescr dired-mode-map "woman-dired-find-file")
;; (find-efile "woman.el")
(setq woman-use-own-frame nil)

(add-hook 'dired-mode-hook
	  (lambda ()
	    (define-key dired-mode-map "W" 'woman-dired-find-file)))




(defun eestore (s &optional e)
  "Store the region between S and E in the kill ring.
See: (find-efunction 'yank-first-line)"
  (kill-new (ee-se-to-string s e))
  (format "Stored in the kill-ring"))

(eeb-define 'eestore-bounded  'eestore 'ee-delimiter-hash  nil t t)





;;
;; Local Variables:
;; mode:   emacs-lisp
;; coding: utf-8-unix
;; End: