2002-10-01 17:06:54 +00:00
|
|
|
;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
|
1995-10-30 17:35:01 +00:00
|
|
|
|
2001-07-15 19:53:53 +00:00
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
1991-07-01 18:05:53 +00:00
|
|
|
;; This demo visits your passwd file.
|
|
|
|
|
|
2001-07-15 19:53:53 +00:00
|
|
|
;;; Code:
|
|
|
|
|
|
1991-07-01 18:05:53 +00:00
|
|
|
;; use yp if present
|
|
|
|
|
(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
|
|
|
|
|
(setq forms-file "/etc/passwd"))
|
1991-05-20 19:05:21 +00:00
|
|
|
|
|
|
|
|
(setq forms-read-only t) ; to make sure
|
|
|
|
|
(setq forms-field-sep ":")
|
|
|
|
|
(setq forms-number-of-fields 7)
|
1991-07-01 18:05:53 +00:00
|
|
|
|
1991-05-20 19:05:21 +00:00
|
|
|
(setq forms-format-list
|
1991-07-01 18:05:53 +00:00
|
|
|
(list
|
|
|
|
|
"====== Visiting " forms-file " ======\n\n"
|
1991-05-20 19:05:21 +00:00
|
|
|
"User : " 1
|
|
|
|
|
" Uid: " 3
|
|
|
|
|
" Gid: " 4
|
|
|
|
|
"\n\n"
|
|
|
|
|
"Name : " 5
|
|
|
|
|
"\n\n"
|
|
|
|
|
"Home : " 6
|
|
|
|
|
"\n\n"
|
|
|
|
|
"Shell: " 7
|
|
|
|
|
"\n"))
|
2001-07-15 19:53:53 +00:00
|
|
|
|
|
|
|
|
;;; forms-pass.el ends here
|
