I use a locally hacked version of winmgr-mode.el, appended below.
Note that I am not maintaining it, but it seems to do everything I
want it to.
-Barry
-------------------- snip snip --------------------
;;; winmgr-mode.el --- generic window manager mode
;; Author: ???
;; Maintainer: David Konerding (rafael_at_cse.ucsc.edu)
;; Modifications by: Stefan Strobel <strobel_at_lia.univ-savoie.fr>
;; Barry A. Warsaw <bwarsaw_at_python.org>
;; Created: ???
;; Copyright (C) 199? Someone Claim It
;; This file is not part of GNU Emacs.
;; 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 of the License, 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.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; This package is a major mode for editing window configuration files and
;; also defines font-lock keywords for such files.
;; winmgr-mode mode will automatically get turned on if you visit a
;; a file whose name looks like that of a configuration file
;; (IE, .fvwmrc, .mwmrc, .tvtwmrc, etc)
;; The current font-lock keywords are:
;; any word of upper or lower case letters at the start of a line
;; followed by whitespace gets colored using
;; font-lock-function-name-face.
;; any word of upper or lower case letters at the start of a line
;; followed by a "(" (IE, an m4 macro) gets colored using
;; font-lock-comment-face
;; Put this in your .emacs :
;;
;;(setq auto-mode-alist
;; (append '(("\\.[A-Za-z]*wm$" . winmgr-mode)
;; ("\\.[A-Za-z]*wmrc" . winmgr-mode)
;; auto-mode-alist))
;;
;;(autoload 'winmgr-mode "winmgr-mode"
;; "Mode for editing window manager config files")
;;
;;(add-hook 'winmgr-mode-hook
;; '(lambda ()
;; (font-lock-mode t)
;; (setq font-lock-keywords winmgr-font-lock-keywords)
;; (font-lock-fontify-buffer)))
;;
;;; Code:
(defvar winmgr-mode-hook nil
"Hook to be run when `winmgr-mode' is entered.")
(defvar winmgr-basic-offset 4
"*Number of spaces per indentation level.")
;; font-lock-isms
(defvar font-lock-m4-face 'default
"New face for m4 macros.")
(defun winmgr-init-font-lock ()
;; initialize font-lock faces for winmgr-mode
(condition-case nil
(progn
(copy-face 'default 'm4-face)
(set-face-foreground 'm4-face "blue")
(set-face-background 'm4-face "white")
(setq font-lock-m4-face 'm4-face))
(error nil)))
(defvar winmgr-font-lock-keywords
'(("^[A-Za-z]+[ \n\t]" . font-lock-function-name-face)
;;("^#.*" . font-lock-comment-face)
("^[A-Za-z]+(.*)" . font-lock-m4-face))
"Default font-lock keywords.")
;; major-mode stuff
(defvar winmgr-mode-abbrev-table nil
"Abbrev table used in `winmgr-mode' buffers.")
(define-abbrev-table 'winmgr-mode-abbrev-table ())
(defvar winmgr-mode-syntax-table nil
"Syntax table used in `winmgr-mode' buffers.")
(if winmgr-mode-syntax-table
()
(setq winmgr-mode-syntax-table (make-syntax-table))
(modify-syntax-entry ?\# "<" winmgr-mode-syntax-table)
(modify-syntax-entry ?\n ">" winmgr-mode-syntax-table))
(defvar winmgr-mode-map ()
"Keymap used in `winmgr-mode' buffers.")
(if winmgr-mode-map
()
(setq winmgr-mode-map (make-sparse-keymap))
;; So far there aren't any winmgr-mode specific functions
)
(defun winmgr-mode ()
"Major mode for editing winmgr config files."
(interactive)
(kill-all-local-variables)
(set-syntax-table winmgr-mode-syntax-table)
(setq major-mode 'winmgr-mode
mode-name "Winmgr"
local-abbrev-table winmgr-mode-abbrev-table)
(use-local-map winmgr-mode-map)
;; local variables
(make-local-variable 'parse-sexp-ignore-comments)
(make-local-variable 'comment-start)
(make-local-variable 'comment-end)
(make-local-variable 'indent-line-function)
;; now set their values
(setq parse-sexp-ignore-comments t
comment-start "# "
comment-end ""
indent-line-function 'winmgr-indent-line-function)
(run-hooks 'winmgr-mode-hook))
;; indentation commands
(defun winmgr-indent-line-function ()
"Indent line based on depth in parentheses.
See the variable `winmgr-basic-offset.'"
;; find the beginning of this construct
(let ((depth 0)
(here (point)))
(condition-case nil
(while t
(backward-up-list 1)
(setq depth (1+ depth)))
(error nil))
(goto-char here)
(beginning-of-line)
(delete-horizontal-space)
(insert-char ?\040 (* depth winmgr-basic-offset))))
(provide 'winmgr-mode)
;;; winmgr-mode.el ends here
--
Visit the official FVWM web page at <URL:http://www.hpc.uh.edu/fvwm/>.
To unsubscribe from the list, send "unsubscribe fvwm" in the body of a
message to majordomo_at_hpc.uh.edu.
To report problems, send mail to fvwm-owner_at_hpc.uh.edu.
Received on Thu Jan 16 1997 - 14:54:56 GMT