view lisp/forms-pass.el @ 110030:1c251ca4a0d8

gnus.texi (Asynchronous Fetching): Document gnus-async-post-fetch-function; gnus.texi (HTML): Made into its own section by Lars Magne Ingebrigtsen <[e-mail]>. 2010-08-29 Lars Magne Ingebrigtsen <[e-mail]> * gnus.texi (Asynchronous Fetching): Document gnus-async-post-fetch-function. (HTML): Made into its own section.

+
鐃緒申;;; 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