;; This file:
;;   http://angg.twu.net/.emacs.unibyte.html
;;   http://angg.twu.net/.emacs.unibyte
;;           (find-angg ".emacs.unibyte")
;; Author: Eduardo Ochs <[email protected]>
;;
;; (load (buffer-file-name))
;; (defun e () (interactive) (find-angg ".emacs.unibyte"))

;; «.ee-tag-re»	(to "ee-tag-re")
;; «.unaccent»	(to "unaccent")
;; «.fossils»	(to "fossils")



;; «ee-tag-re»  (to ".ee-tag-re")
;; (find-angg ".emacs" "ee-tag-re")
;; (eek "M-h M-k  M-h M-w  ;; ee-copy-this-line-to-kill-ring")
;; (find-efunction 'ee-copy-this-line-to-kill-ring)
;; (find-efunction 'ee-copy-preceding-tag-to-kill-ring)
;; (find-efunction 'ee-tag-re)
;; (find-eev "eev-codings.el" "ee-tolatin1-re")
;;
(setq  ee-tag-re-raw-text "«\\([!-~]+\\)»")
(defun ee-tag-re ()
  (let ((bfcs buffer-file-coding-system))
    (cond ((eq bfcs 'raw-text-unix) ee-tag-re-raw-text)
	  (t                        ee-tag-re-utf-8))))


;; «unaccent»  (to ".unaccent")
;; (find-blogmefile "blogme2-outer.lua" "unaccent_from, unaccent_to =")
;; (find-efunction 'translate-region)
;; (find-node "(recode)Concept Index")
(defun unaccent (s e)
  (interactive "r")
  (let ((coding-system-for-read 'latin-1-unix)
        (coding-system-for-write 'latin-1-unix))
    (shell-command-on-region
     s e
     (concat "tr 'ÀÁÂÃÄÅÇÈÉÊË�Í�ÏÑÒÓÔÕÖ�ÙÚÛÜ�àáâãäåçèéêëìíîïñòóôõö�ùúûü�'"
	     "   'AAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuy'")
     nil t)))


;; «fossils»  (to ".fossils")
;; From: (find-es "emacs" "iso-accents")

(defun iso-math () (interactive)
  (if iso-accents-mode (iso-accents-mode 0)
    (iso-accents-by-strings "math850"
			    "'aáeéiíoóuúAÁEÉIÍOÓUÚcçCÇ<«>»"
			    "^aâeêoôuûAÂEÊOÔ"
			    "`aàeèiìoòuùAÀEÈOÒUÙ"
			    "~aãoõAÃOÕ"
			    "\"aäeëiïoöuüAÄOÖUÜ")))

(defalias 'iso- 'iso-math)
;;; Two important fossils: my original definitions for iso-math and
;; iso-alt-list; the present ones may not be working correctly (I'm in
;; the middle of the conversion from math850 to latinmath).
;;
'(defun iso-math () (interactive)
  (if iso-accents-mode (iso-accents-mode 0)
    (iso-accents-by-strings "math850"
			    "'a�e�i�o�u�A�E�IÖOàUéc�C�<�>�"
			    "^a�e�o�u�A⊃EÒOâ"
			    "`a�e�i�o�u�A�EÔOãUë"
			    "~aÆoäAÇOå"
			    "\"a�e�i�o�u�A�O�U�")))
'(setq iso-alt-list
  '("&&" ?� "--" ?ª "-1" ?ü "-o" ?� ".." ?ö "/O" ?� "88" ?ò "<<" ?�
    ">=" ?� ">>" ?� "AE" ?� "CC" ?� "In" ?� "NN" ?� "Om" ?� "PP" ?ç
    "TT" ?õ "_a" ?� "_o" ?� "ae" ?� "am" ? "bf" ? "bl" ?� "bo" ?�
    "bq" ?� "ca" ?� "cc" ?� "cu" ?ç "dd" ? "ee" ? "ex" ?í "fa" ?ì
    "in" ?× "ka" ?� "ku" ?Ó "la" ? "ll" ?� "lo" ?∨ "na" ?� "nn" ?�
    "nu" ?ê "o+" ?� "oo" ?� "ot" ? "ox" ?Ï "pa" ?� "pe" ?Ñ "pp" ?è
    "ro" ? "ss" ?á "te" ? "to" ? "xx" ?�))






;; Local Variables:
;; mode:                 emacs-lisp
;; coding:               raw-text-unix
;; End: