47726
|
1 ;;; forms-pass.el --- passwd file demo for forms-mode -*- no-byte-compile: t -*-
|
13337
|
2
|
38414
|
3 ;; This file is part of GNU Emacs.
|
|
4
|
|
5 ;;; Commentary:
|
|
6
|
306
|
7 ;; This demo visits your passwd file.
|
275
|
8
|
38414
|
9 ;;; Code:
|
|
10
|
306
|
11 ;; use yp if present
|
|
12 (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
|
|
13 (setq forms-file "/etc/passwd"))
|
|
14
|
275
|
15 (setq forms-read-only t) ; to make sure
|
|
16 (setq forms-field-sep ":")
|
|
17 (setq forms-number-of-fields 7)
|
306
|
18
|
275
|
19 (setq forms-format-list
|
306
|
20 (list
|
|
21 "====== Visiting " forms-file " ======\n\n"
|
275
|
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"))
|
38414
|
32
|
52401
|
33 ;;; arch-tag: 74801012-1a2d-4173-b9e4-fcfa241e2305
|
38414
|
34 ;;; forms-pass.el ends here
|