;;; $Id: dialectize.el,v 1.3 2001/07/09 21:22:38 binnema Exp $

;;; dialectize.el 0.0.2
;;; (c) 2001 DJCB Software, Dirk-Jan C. Binnema 
;;; mail: software[AT]djcbsoftware.nl
;;; laatste versie: http://www.djcbsoftware.nl/projecten/emacs/dialectize.el 

;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2, or (at your option)
;;; any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; A copy of the GNU General Public License can be obtained from this
;;; program's author (send electronic mail to kyle@uunet.uu.net) or from
;;; the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA
;;; 02139, USA.
 
;; dialectize vertaalt region in een bepaald dialect, vooralsnog zijn
;; Haags en Plat beschikbaar.
;;
;; installatie
;; -----------
;; zet in ~/.emacs:
;; (require 'dialectize)
;; en zorg dat dialectize.el (of .elc) ergens in je load-path staat
;;
;; gebruik
;; -------
;; markeer een region en geef vervolgens:
;;	M-x haags-region RET 
;; of
;;	M-x plat-region RET
;; of
;;      M-x zeeuws-region RET
;;
;; voor resp. haags, plat of zeeuws.
;;
;; changelog
;; ---------
;; versie 0.0.2: - verbeterde lisp (geen narrowing meer)
;;               - verbeterd haags, plat
;;               - toegevoegd zeeuws
;; versie 0.0.1: eerste release
;;
;;
;; hacking
;; -------
;; ik beheers noch het haags, noch het plat in al te hoge mate, dus
;; verbeteringen/suggesties zijn van harte welkom. ook andere dialecten
;; zouden een aardige aanvulling vormen.
;;
;;
;; met dank aan
;; ------------ 
;;	- Martin Wolf (elisp, zeeuws)
;;	- Erik Hensema / Bas(?) (haags)



;
; lijst met regexps voor haags
;
(setq haags 
      '(("ieuw" "ieuâh")
	("vrouw\\|meisje\\|mevrouw\\|dame" "wèf")
	("\\bde wèf" "het wèf")
	("\\bwel eens\\b" "welles")
	("zo'n" "zaun")
	("t-shirt" "tiesjugt")
	("waarmee\\b" "waahmei")
	("over" "auve")
	("versie" "vegsie")
	("volgend" "volges")
	("ochtend" "ochend")
	("\\beven" "effe")
	("\\bniet\\b" "nie")
	("\\bklere\\b" "kaulere")
	("wilt" "wil")
	("ij\\|ei" "è")
	("ieuw" "ieuâh")
	("ui\\|eu" "ùi")
	("uur" "uâh")
	("oor" "oâh")
	("oer" "oeâh")
	("\\(\\w+[wrtpsdfgklzcvbnm]\\)en\\b" "\\1uh")
	("\\(\\w+[wrtpsdfgklzcvbnm]\\)er\\([dts]?\\)\\b" "\\1ah\\2")
	("ligt" "leg")
	("het is\\b" "tis\\b")))

;
; lijst met regexps voor plat
;
(setq plat
      '(("\\btamelijk\\|behoorlijk\\|enorm\\|ontzettend" "donders")
	("\\bboos\\|kwaad\\|woedend" "hellig")
	("\\bnatuurlijk" "'tuulk")
	("\\beet" "vret")
	("\\beten" "vrett'n")
	("\\bman\\|meneer\\|heer\\b" "kerl")
	("\\bvrouw\\|mevrouw\\|dame\\b" "wief")
	("\\bdikwijls\\b" "onmeunig voak")
	("\\bhij\\b" "den kerl")
	("morgen" "mor'n")
	("\\bwij gaan" "wie goat")
	("oven" "oomn")
	("jij" "ie")
	("jou\\(w\\)?" "oe")
	("beetje" "bitje")
	("alleen" "allennig")
	("broek" "bokse")
	("brood" "stoete")
	("\\bgelijk" "\\1gliek")
	("\\([^l]\\)ij" "\\1ie")
	("geen" "gin")
	("even" "eemn")
	("\\bjouw\\b" "oe")
	("av\\(e\\|o\\)n" "aamn")
	("oud" "old")
	("out" "olt")
	("voor" "veur")
	("soms" "manks")
	("mee\\b" "met")
	("drink" "zoep")
	("\\been\\b" "'n")
	("\\(\\w+\\)tie\\b" "\\1sie")
	("\\bde\\b" "den")
	("zo " "zooh ")
	("\\(\\w+[^aeouid]\\)en\\(\\W\\)" "\\1'n\\2")
	("aken" "oaken")
	("open" "oop'n")
	("ui"  "uu")
	("komt" "kump")
	("rse" "rsn")
	("wat" "wa")
	("aa" "oa")
	("ct\\b" "c")
	("kt\\b" "k")
	("ft\\b" "f")))


(setq zeeuws
      '(("eeuw" "euw")
	("aal\\b" "oale")
	("aa" "ae")
	("an" "aan")
	("ooi" "euj")
	("ui" "uu")
	("\\bde\\b" "d'n")
	("ligt\\b" "leid")
	("\\bmij" "mien")
	("ijd\\b" "iet")
	("ijden\\|ijen" "ien")
	("ij" "ie")
	("\\bsloot\\b" "dulleve")
	("ing" "ieng")))

(defun dialectize-region (lst)
  (save-excursion
    (let ((b (region-beginning)) (e (region-end)))
      (while lst
	(goto-char b)
	(while (re-search-forward (caar lst) e t)
	  (replace-match (second (car lst)) nil))
	(setq lst (cdr lst))))))


(defun haags-region () 
  "vertaal region naar Haags"
  (interactive)
  (dialectize-region haags))

(defun plat-region () 
  "vertaal region naar plat"
  (interactive)
  (dialectize-region plat))

(defun zeeuws-region () 
  "vertaal region naar Zeeuws"
  (interactive)
  (dialectize-region zeeuws))


(provide 'dialectize)


;;;;;;;;;;; end of dialectize.el ;;;;;;;;;;;;;;;;;;;;;;;;;