annotate lisp/forms-d2.el @ 77190:c633d235e436

Remove obsolete comment about Emacs 21.
author Glenn Morris <rgm@gnu.org>
date Sat, 14 Apr 2007 02:34:57 +0000
parents e3694f1cb928
children 8b0dabde9595 95d0cdf160ea
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
47726
33d53d287ee4 Add "no-byte-compile: t" in first line.
Juanma Barranquero <lekktu@gmail.com>
parents: 38436
diff changeset
1 ;;; forms-d2.el --- demo forms-mode -*- no-byte-compile: t -*-
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
2
74679
829062b6492b Copy copyright header from forms.el (at rms instruction).
Glenn Morris <rgm@gnu.org>
parents: 64542
diff changeset
3 ;; Copyright (C) 1991, 1994, 1995, 1996, 1997, 2001, 2002, 2003,
75347
e3694f1cb928 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 74679
diff changeset
4 ;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
74679
829062b6492b Copy copyright header from forms.el (at rms instruction).
Glenn Morris <rgm@gnu.org>
parents: 64542
diff changeset
5
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
6 ;; Author: Johan Vromans <jvromans@squirrel.nl>
Dave Love <fx@gnu.org>
parents:
diff changeset
7 ;; Created: 1989
Dave Love <fx@gnu.org>
parents:
diff changeset
8
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
9 ;; This file is part of GNU Emacs.
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
10
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
11 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
12
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
13 ;; This sample forms exploit most of the features of forms mode.
Dave Love <fx@gnu.org>
parents:
diff changeset
14
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
15 ;;; Code:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
16
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; Set the name of the data file.
Dave Love <fx@gnu.org>
parents:
diff changeset
18 (setq forms-file "forms-d2.dat")
Dave Love <fx@gnu.org>
parents:
diff changeset
19
Dave Love <fx@gnu.org>
parents:
diff changeset
20 ;; Use 'forms-enumerate' to set field names and number thereof.
Dave Love <fx@gnu.org>
parents:
diff changeset
21 (setq forms-number-of-fields
Dave Love <fx@gnu.org>
parents:
diff changeset
22 (forms-enumerate
Dave Love <fx@gnu.org>
parents:
diff changeset
23 '(arch-newsgroup ; 1
Dave Love <fx@gnu.org>
parents:
diff changeset
24 arch-volume ; 2
Dave Love <fx@gnu.org>
parents:
diff changeset
25 arch-issue ; and ...
Dave Love <fx@gnu.org>
parents:
diff changeset
26 arch-article ; ... so
Dave Love <fx@gnu.org>
parents:
diff changeset
27 arch-shortname ; ... ... on
Dave Love <fx@gnu.org>
parents:
diff changeset
28 arch-parts
Dave Love <fx@gnu.org>
parents:
diff changeset
29 arch-from
Dave Love <fx@gnu.org>
parents:
diff changeset
30 arch-longname
Dave Love <fx@gnu.org>
parents:
diff changeset
31 arch-keywords
Dave Love <fx@gnu.org>
parents:
diff changeset
32 arch-date
Dave Love <fx@gnu.org>
parents:
diff changeset
33 arch-remarks)))
Dave Love <fx@gnu.org>
parents:
diff changeset
34
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ;; The following functions are used by this form for layout purposes.
Dave Love <fx@gnu.org>
parents:
diff changeset
36 ;;
Dave Love <fx@gnu.org>
parents:
diff changeset
37 (defun arch-tocol (target &optional fill)
64542
24c6e1c8e0cb (arch-rj): Fix typo in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
38 "Produces a string to skip to column TARGET. Prepends newline if needed.
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
39 The optional FILL should be a character, used to fill to the column."
Dave Love <fx@gnu.org>
parents:
diff changeset
40 (if (null fill)
64542
24c6e1c8e0cb (arch-rj): Fix typo in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
41 (setq fill ?\s))
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
42 (if (< target (current-column))
Dave Love <fx@gnu.org>
parents:
diff changeset
43 (concat "\n" (make-string target fill))
Dave Love <fx@gnu.org>
parents:
diff changeset
44 (make-string (- target (current-column)) fill)))
Dave Love <fx@gnu.org>
parents:
diff changeset
45 ;;
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
46 (defun arch-rj (target field &optional fill)
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
47 "Produces a string to skip to column TARGET minus the width of field FIELD.
64542
24c6e1c8e0cb (arch-rj): Fix typo in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
48 Prepends newline if needed. The optional FILL should be a character,
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
49 used to fill to the column."
Dave Love <fx@gnu.org>
parents:
diff changeset
50 (arch-tocol (- target (length (nth field forms-fields))) fill))
Dave Love <fx@gnu.org>
parents:
diff changeset
51
Dave Love <fx@gnu.org>
parents:
diff changeset
52 ;; Record filters.
Dave Love <fx@gnu.org>
parents:
diff changeset
53 ;;
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (defun arch-new-record-filter (the-record)
Dave Love <fx@gnu.org>
parents:
diff changeset
55 "Form a new record with some defaults."
Dave Love <fx@gnu.org>
parents:
diff changeset
56 (aset the-record arch-from (user-full-name))
Dave Love <fx@gnu.org>
parents:
diff changeset
57 (aset the-record arch-date (current-time-string))
Dave Love <fx@gnu.org>
parents:
diff changeset
58 the-record ; return it
Dave Love <fx@gnu.org>
parents:
diff changeset
59 )
Dave Love <fx@gnu.org>
parents:
diff changeset
60 (setq forms-new-record-filter 'arch-new-record-filter)
Dave Love <fx@gnu.org>
parents:
diff changeset
61
Dave Love <fx@gnu.org>
parents:
diff changeset
62 ;; The format list.
Dave Love <fx@gnu.org>
parents:
diff changeset
63 (setq forms-format-list
Dave Love <fx@gnu.org>
parents:
diff changeset
64 (list
Dave Love <fx@gnu.org>
parents:
diff changeset
65 "====== Public Domain Software Archive ======\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
66 arch-shortname
Dave Love <fx@gnu.org>
parents:
diff changeset
67 " - " arch-longname
Dave Love <fx@gnu.org>
parents:
diff changeset
68 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
69 "Article: " arch-newsgroup
Dave Love <fx@gnu.org>
parents:
diff changeset
70 "/" arch-article
Dave Love <fx@gnu.org>
parents:
diff changeset
71 " "
Dave Love <fx@gnu.org>
parents:
diff changeset
72 '(arch-tocol 40)
Dave Love <fx@gnu.org>
parents:
diff changeset
73 "Issue: " arch-issue
Dave Love <fx@gnu.org>
parents:
diff changeset
74 " "
Dave Love <fx@gnu.org>
parents:
diff changeset
75 '(arch-rj 73 10)
Dave Love <fx@gnu.org>
parents:
diff changeset
76 "Date: " arch-date
Dave Love <fx@gnu.org>
parents:
diff changeset
77 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
78 "Submitted by: " arch-from
Dave Love <fx@gnu.org>
parents:
diff changeset
79 "\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
80 '(arch-tocol 79 ?-)
Dave Love <fx@gnu.org>
parents:
diff changeset
81 "\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
82 "Keywords: " arch-keywords
Dave Love <fx@gnu.org>
parents:
diff changeset
83 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
84 "Parts: " arch-parts
Dave Love <fx@gnu.org>
parents:
diff changeset
85 "\n\n====== Remarks ======\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
86 arch-remarks
Dave Love <fx@gnu.org>
parents:
diff changeset
87 ))
Dave Love <fx@gnu.org>
parents:
diff changeset
88
Dave Love <fx@gnu.org>
parents:
diff changeset
89 ;; That's all, folks!
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
90
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
91 ;;; arch-tag: 8e5d5dac-7abf-4722-ab5e-03eb749beaca
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
92 ;;; forms-d2.el ends here