cgit.sxemacs.org Git - packages/blob - xemacs-packages/x-symbol/lisp/x-symbol-myuc.el

   1 ;;; x-symbol-myuc.el --- example token language "My Unicode" from manual
   2
   3 ;; Copyright (C) 1998-1999 Christoph Wedler
   4 ;;
   5 ;; Author: Christoph Wedler <wedler@users.sourceforge.net>
   6 ;; Maintainer: (Please use `M-x x-symbol-package-bug' to contact the maintainer)
   7 ;; Version: 4.1
   8 ;; Keywords: WYSIWYG, LaTeX, HTML, wp, math, internationalization
   9 ;; X-URL: http://x-symbol.sourceforge.net/
  10
  11 ;; This program is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15 ;;
  16 ;; This program is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20 ;;
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with this program; if not, write to the Free Software
  23 ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24
  25 ;;; Commentary:
  26
  27 ;; This file is OUTDATED.
  28
  29 ;; If you want to use package x-symbol, please visit the URL (use
  30 ;; \\[x-symbol-package-web]) and read the info (use \\[x-symbol-package-info]).
  31 ;; This file defines the example token language "My Unicode" from the manual of
  32 ;; package X-Symbol.
  33
  34 ;; The following lines define the major mode `myuc-mode':
  35
  36 ;;(put 'myuc-mode 'font-lock-defaults '(myuc-font-lock-keywords t t))
  37 ;;(defvar myuc-font-lock-keywords '(("##" (0 font-lock-type-face))))
  38 ;;(defun myuc-mode ()
  39 ;;  (interactive)
  40 ;;  (fundamental-mode)
  41 ;;  (setq mode-name "MyUnicode")
  42 ;;  (setq major-mode 'myuc-mode))
  43 ;;(push '("\\.myuc\\'" . myuc-mode) auto-mode-alist)
  44
  45 ;; Put the following code into your ~/.emacs to register language `myuc':
  46
  47 ;;(defvar x-symbol-myuc-name "My Unicode")
  48 ;;(defvar x-symbol-myuc-modes '(myuc-mode))
  49 ;;(x-symbol-register-language 'myuc 'x-symbol-myuc x-symbol-myuc-modes)
  50
  51 ;;; Code:
  52
  53 (provide 'x-symbol-myuc)
  54 (require 'x-symbol-vars)
  55 ;; If you want to make the file compilable without X-Symbol, you could use the
  56 ;; following instead (require 'x-symbol-vars):
  57 ;;   (custom-add-load 'x-symbol-myuc 'x-symbol-vars)
  58 (eval-when-compile (require 'cl))
  59
  60
  61 (defvar x-symbol-myuc-required-fonts nil)
  62
  63 (defvar x-symbol-myuc-modeline-name "myuc")
  64 (defvar x-symbol-myuc-header-groups-alist nil)
  65
  66 (defvar x-symbol-myuc-class-alist
  67   '((VALID "My Unicode" (x-symbol-info-face))
  68     (INVALID "no My Unicode" (x-symbol-emph-info-face))))
  69 (defvar x-symbol-myuc-class-face-alist nil)
  70 (defvar x-symbol-myuc-electric-ignore nil)
  71
  72 (defvar x-symbol-myuc-font-lock-keywords nil)
  73 (defvar x-symbol-myuc-image-keywords nil)
  74 (defvar x-symbol-myuc-master-directory 'ignore)
  75 (defvar x-symbol-myuc-image-searchpath '("./"))
  76 (defvar x-symbol-myuc-image-cached-dirs '("images/" "pictures/"))
  77 (defvar x-symbol-myuc-image-file-truename-alist nil)
  78
  79 (defvar x-symbol-myuc-case-insensitive 'upcase)
  80 (defvar x-symbol-myuc-token-shape '(?# "#[0-9A-Fa-f]+\\'" . "[0-9A-Fa-f]"))
  81 (defvar x-symbol-myuc-exec-specs '(nil (nil . "#[0-9A-Fa-f]+")))
  82 (defvar x-symbol-myuc-input-token-ignore nil)
  83
  84 (defun x-symbol-myuc-default-token-list (tokens)
  85   (list (format "#%X" (car tokens))))
  86
  87 (defvar x-symbol-myuc-token-list 'x-symbol-myuc-default-token-list)
  88 (defvar x-symbol-myuc-user-table nil)
  89
  90 (defvar x-symbol-myuc-xsymb0-table
  91   '((alpha () 945)
  92     (beta () 946)))
  93
  94 (defvar x-symbol-myuc-table
  95   (append x-symbol-myuc-user-table x-symbol-myuc-xsymb0-table))
  96
  97
  98 ;;;===========================================================================
  99 ;;;  Internal
 100 ;;;===========================================================================
 101
 102 (defvar x-symbol-myuc-menu-alist nil
 103   "Internal.  Alist used for MyUc specific menu.")
 104 (defvar x-symbol-myuc-grid-alist nil
 105   "Internal.  Alist used for MyUc specific grid.")
 106
 107 (defvar x-symbol-myuc-decode-atree nil
 108   "Internal.  Atree used by `x-symbol-token-input'.")
 109 (defvar x-symbol-myuc-decode-alist nil
 110   "Internal.  Alist used for decoding of MyUc macros.")
 111 (defvar x-symbol-myuc-encode-alist nil
 112   "Internal.  Alist used for encoding to MyUc macros.")
 113
 114 (defvar x-symbol-myuc-nomule-decode-exec nil
 115   "Internal.  File name of MyUc decode executable.")
 116 (defvar x-symbol-myuc-nomule-encode-exec nil
 117   "Internal.  File name of MyUc encode executable.")
 118
 119 ;;; Local IspellPersDict: .ispell_xsymb
 120 ;;; x-symbol-myuc.el ends here