view lisp/forms-pass.el @ 99967:eb46f9cbb4a0
*** empty log message ***
| author |
Michael Albinus <michael.albinus@gmx.de> |
| date |
Wed, 26 Nov 2008 20:14:09 +0000 (2008-11-26) |
| parents |
1e3a407766b9 |
| children |
ef719132ddfa |
line source
;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
;; This file is part of GNU Emacs.
;;; Commentary:
;; This demo visits your passwd file.
;;; Code:
;; use yp if present
(or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
(setq forms-file "/etc/passwd"))
(setq forms-read-only t) ; to make sure
(setq forms-field-sep ":")
(setq forms-number-of-fields 7)
(setq forms-format-list
(list
"====== Visiting " forms-file " ======\n\n"
"User : " 1
" Uid: " 3
" Gid: " 4
"\n\n"
"Name : " 5
"\n\n"
"Home : " 6
"\n\n"
"Shell: " 7
"\n"))
;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
;;; forms-pass.el ends here
