1 ;;; forms-d2.el --- demo forms-mode -*- no-byte-compile: t -*-
3 ;; Author: Johan Vromans <jvromans@squirrel.nl>
6 ;; This file is part of GNU Emacs.
10 ;; This sample forms exploit most of the features of forms mode.
14 ;; Set the name of the data file.
15 (setq forms-file "forms-d2.dat")
17 ;; Use 'forms-enumerate' to set field names and number thereof.
18 (setq forms-number-of-fields
24 arch-shortname ; ... ... on
32 ;; The following functions are used by this form for layout purposes.
34 (defun arch-tocol (target &optional fill)
35 "Produces a string to skip to column TARGET. Prepends newline if needed.
36 The optional FILL should be a character, used to fill to the column."
39 (if (< target (current-column))
40 (concat "\n" (make-string target fill))
41 (make-string (- target (current-column)) fill)))
43 (defun arch-rj (target field &optional fill)
44 "Produces a string to skip to column TARGET minus the width of field FIELD.
45 Prepends newline if needed. The optional FILL should be a character,
46 used to fill to the column."
47 (arch-tocol (- target (length (nth field forms-fields))) fill))
51 (defun arch-new-record-filter (the-record)
52 "Form a new record with some defaults."
53 (aset the-record arch-from (user-full-name))
54 (aset the-record arch-date (current-time-string))
55 the-record ; return it
57 (setq forms-new-record-filter 'arch-new-record-filter)
60 (setq forms-format-list
62 "====== Public Domain Software Archive ======\n\n"
66 "Article: " arch-newsgroup
75 "Submitted by: " arch-from
79 "Keywords: " arch-keywords
82 "\n\n====== Remarks ======\n\n"
88 ;;; arch-tag: 8e5d5dac-7abf-4722-ab5e-03eb749beaca
89 ;;; forms-d2.el ends here