; GNU Emacs 20.3.1 (i386-redhat-linux) of Sat Oct  3 1998 on porky.redhat.com
;; $Id: emacs.WS2.txt,v 1.1 2001/08/25 21:54:09 rjernsle Exp $
;; $Log: emacs.WS2.txt,v $
;; Revision 1.1  2001/08/25 21:54:09  rjernsle
;; Lagt ut offentlig emacs.WS2.txt
;;
;; Revision 1.4  2001/08/13 12:52:51  rjernsle
;; Added macros for ENG, Tstroke, Zcaron
;;
;; Revision 1.3  2001/08/10 22:04:26  rjernsle
;; Added macros for Sscaron.
;;
;; Revision 1.2  2001/08/10 21:52:17  rjernsle
;; Renamed functions.
;;
;; Revision 1.1  2001/08/10 13:46:35  rjernsle
;; Initial revision
;;
;;
;; $HOME/.emacs
;;
;; Makroer for å skrive WS2 i tekst-filer.
;; legg disse i din $HOME/.emacs
;; start emacs på nytt
;; og gjør dette hvis du ikke allered er i text-mode:  M-x text-mode
;; og makroene skal virke.
;;
;; Av:  <Regnor.Jernsletten@sami.uit.no>
;; Dato: 2000-08-10

;; NB!  Før du legger makroene i $HOME/.emacs fila di, sjekk at
;; makroene ikke overskriver allerede definerte makroer:
; M-x text-mode
; C-h m


;;;;; MODES

;;;; text mode:   WS2 characters in the region 80--9f
;; Note:  If you need one of the characters under B and C, you'll
;; have to invoke the define function instead.
;;   Ex.:  M-x ws2-ligature-oe
;; The functions are available regardless of mode.

; A. Northern Sámi characters
; The macros to invoke these fuctions are defined at the end of the
; file.
 (fset 'ws2-Ccaron "\C-q‚")
 (fset 'ws2-ccaron "\C-q„")
 (fset 'ws2-Dstroke "\C-q‰") ; alternative: ETH
 (fset 'ws2-dstroke "\C-q˜") ; alternative: eth
 (fset 'ws2-Scaron "\C-qŠ")
 (fset 'ws2-scaron "\C-qš")

; B. Other Sámi languages These letters are not bound to keyboard
; macros.
 (fset 'ws2-EZH "\C-q…")
 (fset 'ws2-ezh "\C-q†")
 (fset 'ws2-EZHcaron "\C-q‡")
 (fset 'ws2-ezhcaron "\C-qˆ")
 (fset 'ws2-Gcaron "\C-q™")
 (fset 'ws2-gcaron "\C-q¡")
  ; gcaron is 0xa1 in fact, but included here for the sake of symmetry.

; C. MS Windows `enhancements'.  Keyboard macros not defined.
 (fset 'ws2-fhook "\C-qƒ")
 (fset 'ws2-ligature-OE "\C-qŒ")
 (fset 'ws2-ligature-oe "\C-qœ")
 (fset 'ws2-ydiaeresis "\C-qŸ")
 (fset 'ws2-single-left-pointing-angle-quotation-mark "\C-q‹")
 (fset 'ws2-single-right-pointing-angle-quotation-mark "\C-q›")
 (fset 'ws2-left-single-quotation-mark "\C-q‘") 
 (fset 'ws2-right-single-quotation-mark "\C-q’") 
 (fset 'ws2-left-double-quotation-mark "\C-q“") 
 (fset 'ws2-right-double-quotation-mark "\C-q”")
 (fset 'ws2-bullet "\C-q•") 
 (fset 'ws2-en-dash "\C-q–") 
 (fset 'ws2-em-dash "\C-q—") 

; D. Other North Sámi characters -- for those who do not have a keymap
; for WS2.  Unocmment (remove `;' in first column) if you like to use
; them. You will need to uncomment the corresponding macro definitions
; at the end of this file.

; (fset 'ws2-ENG "\C-q¸")
; (fset 'ws2-eng "\C-q¹")
; (fset 'ws2-Tstroke "\C-qº")
; (fset 'ws2-tstroke "\C-q¼")
; (fset 'ws2-Zcaron "\C-q¾")
; (fset 'ws2-zcaron "\C-q¿")


; The keyboard macros for Northern Sámi characters in WS2.  The other
; Northern Sámi characters are best defined in a keymap file for WS2.
; These macroes are invoked as C-cC, C-cc, C-cD and C-cd respectively.
; If you don't have a keyboard wich gives you access to ENG, Tstroke
; and Zcaron, uncomment the macro definitions which are commented out.

 (add-hook 'text-mode-hook
             '(lambda ()
                (define-key text-mode-map "\C-cC" 'ws2-Ccaron)
                (define-key text-mode-map "\C-cc" 'ws2-ccaron)
                (define-key text-mode-map "\C-cD" 'ws2-Dstroke)
                (define-key text-mode-map "\C-cd" 'ws2-dstroke)
;                (define-key text-mode-map "\C-cN" 'ws2-ENG)
;                (define-key text-mode-map "\C-cn" 'ws2-eng)
                (define-key text-mode-map "\C-cS" 'ws2-Scaron)
                (define-key text-mode-map "\C-cs" 'ws2-scaron)
;                (define-key text-mode-map "\C-cT" 'ws2-Tstroke)
;                (define-key text-mode-map "\C-ct" 'ws2-tstroke)
;                (define-key text-mode-map "\C-cZ" 'ws2-Zcaron)
;                (define-key text-mode-map "\C-cz" 'ws2-zcaron)
  	))

;;
;; end of file
;;