home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / modes / multi-forms-mode / demo1.forms next >
Encoding:
Text File  |  1992-01-03  |  997 b   |  27 lines
  1. ;; demo for forms-mode    -*-emacs-lisp-*-
  2. ;;
  3. ;; This demo visits your passwd file.
  4. ;; using the old fashioned double file format of forms-mode (necessary 
  5. ;; in some cases, such as this).
  6. ;; 3-Jan-92 -FER
  7.  
  8. ;; use yp if present
  9. (or (file-exists-p (setq forms-file "/var/yp/src/passwd"))
  10.     (setq forms-file "/etc/passwd"))
  11.  
  12. (setq forms-read-only t)        ; to make sure
  13. (setq forms-field-sep ":")
  14. (setq forms-number-of-fields 7)
  15.  
  16. ;  NAME         LABEL           FIELD  DFLT      SIZE  LINE-SIZE
  17. ;         VISIBLE                           NEWLINE-P  
  18. (setq forms-format-list '(
  19.    (header t "====== Visiting " forms-file " ======" nil nil nil t nil)
  20.    (a      t  "User : "            1      nil   t   20    nil)
  21.    (b      t "   Uid: "            3      nil   t   10    nil)
  22.    (c      t "   Gid: "     4      nil   t   10    nil)
  23.    (d      t "Name : "          5      nil   2   30    nil)
  24.    (e      t "Home : "          6      nil   t   20    nil)
  25.    (f      t "Shell: "          7      nil   t   20    2)
  26. ))
  27.