Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
;; This file: ;; http://angg.twu.net/.emacs.unibyte.html ;; http://angg.twu.net/.emacs.unibyte ;; (find-angg ".emacs.unibyte") ;; Author: Eduardo Ochs <eduardoochs@gmail.com> ;; ;; (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" "'aeiouAEIÖOàUécC<>" "^aeouA⊃EÒOâ" "`aeiouAEÔOãUë" "~aÆoäAÇOå" "\"aeiouAOU"))) '(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: