|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
;; -*- lexical-binding: nil; -*-
;; 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 'ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÑÒÓÔÕÖØÙÚÛÜÝàáâãäåçèéêëìíîïñòóôõöøùúûüýªº'"
" 'AAAAAACEEEEIIIINOOOOOOUUUUYaaaaaaceeeeiiiinoooooouuuuyao'")
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: