lisp/forms-pass.el

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