*** empty log message ***
[emacs.git] / lisp / forms-pass.el
blob4b3cb3a17bbd6613413a601214ddeaa550fcd10b
1 ;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
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 ;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
34 ;;; forms-pass.el ends here