lout-mode.el

[Valeriy E. Ushakov]

On Sat, 28 Oct 1995, Mike Dowling wrote:

> A second (probably frequently asked) question is whether there is
> something like an lout.el anywhere for emacs?

;; Oversimplified lout mode. Suggestions are welcome.
;; I use FSF v19.29, may be this works for XEmacs
;; Imagine standard GNU boilerplate here. :-)

(require 'derived)

(define-derived-mode lout-mode text-mode "Lout"
  "Major mode to edit Lout documents (*not* definitions!!!)"

  ;; Customize syntax table
  (modify-syntax-entry ?@  "w"  lout-mode-syntax-table)
  (modify-syntax-entry ?\" "\"" lout-mode-syntax-table)
  (modify-syntax-entry ?\\ "\\" lout-mode-syntax-table)
  (modify-syntax-entry ?\# "<"  lout-mode-syntax-table)
  (modify-syntax-entry ?\n ">"  lout-mode-syntax-table)

  ;; Comment syntax
  (make-local-variable 'comment-start)
  (setq comment-start "#")
  (make-local-variable 'comment-end)
  (setq comment-end "")
  (make-local-variable 'comment-start-skip)
  (setq comment-start-skip "#+ *")

  ;; Customize paragraphs. Any ideas how to do this better. I don't
  ;; want to mention all @PP ... etc symbols explicitly
  (make-local-variable 'paragraph-start)
  (setq paragraph-start "address@hidden")
  (make-local-variable 'paragraph-separate)
  (setq paragraph-separate "address@hidden"))

;; Hilit19 
(if (not (featurep 'hilit19)) ()
  (hilit-set-mode-patterns
   'lout-mode
   '(("#[^][+]" "$" comment)
     (hilit-string-find ?\" string)
     ("@\\w*" nil keyword)
     ("@\\(Sys\\)?Include\\>" nil include))))

Best regards!

SY, Uwe.
--------
address@hidden                          |       Zu Grunde kommen
http://www.niif.spb.su/~uwe/            |       Ist zu Grunde gehen