#######
#
# E-scripts on oberon.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
# An introduction to eev can be found here:
#
#   (find-eev-quick-intro)
#   http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/oberon.e>
#           or at <http://angg.twu.net/e/oberon.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######




http://oberon07.com/o7EBNF.xhtml
https://github.com/Spivoxity/obc-3

# (find-mvideo "20220302oberonclicks" "0:00")

https://github.com/hengestone/lua-languages
https://github.com/rochus-keller/Oberon/



(defvar my/oberon-faces
  '((oberon-builtin  . font-lock-builtin-face)
    (oberon-constant . font-lock-constant-face)
    (oberon-keyword  . font-lock-keyword-face)
    (oberon-type     . font-lock-type-face)))

(dolist (f my/oberon-faces)
  (custom-declare-face (car f) `((t :inherit ,(cdr f)))
                       (format "Oberon specialisation of %s" (cdr f))))

(dolist (f '(oberon-keyword oberon-constant))
  (set-face-attribute f nil :slant 'oblique))

(defun my/oberon-faces ()
  (dolist (f my/oberon-faces)
    (set (make-local-variable (cdr f)) (car f))))

(add-hook 'oberon-mode-hook 'my/oberon-faces)

To scale certain faces, 

;; (dolist (f '(oberon-builtin oberon-keyword oberon-constant))
;;   (set-face-attribute f nil :height 0.9))




#  Local Variables:
#  coding:               utf-8-unix
#  End: