*** empty log message ***
[emacs.git] / lisp / forms-pass.el
blob34d4548434b8d83307b2184dd40be79578ae16be
1 ;;; forms-pass.el --- passwd file demo for forms-mode
3 ;; This file is part of GNU Emacs.
5 ;;; Commentary:
7 ;; This demo visits your passwd file.
9 ;;; Code:
11 ;; use yp if present
12 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
13 (setq forms-file "/etc/passwd"))
15 (setq forms-read-only t) ; to make sure
16 (setq forms-field-sep ":")
17 (setq forms-number-of-fields 7)
19 (setq forms-format-list
20 (list
21 "====== Visiting " forms-file " ======\n\n"
22 "User : " 1
23 " Uid: " 3
24 " Gid: " 4
25 "\n\n"
26 "Name : " 5
27 "\n\n"
28 "Home : " 6
29 "\n\n"
30 "Shell: " 7
31 "\n"))
33 ;;; forms-pass.el ends here