Mercurial > emacs

annotate lisp/forms-d2.el @ 65070:5a147188ccac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(compilation-disable-input): Doc fix. (define-compilation-mode): Doc fix and refill. (kill-compilation): Use `mode-name' in the error message. (compilation-find-file): Use `compilation-error' in the read-file-name's prompt.
author Juri Linkov <juri@jurta.org>
date Mon, 22 Aug 2005 19:54:27 +0000 (2005-08-22)
parents 24c6e1c8e0cb
children 829062b6492b 187d6a1f84f7
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
Dave Love <fx@gnu.org>
parents:
diff changeset
3 ;; Author: Johan Vromans <jvromans@squirrel.nl>
Dave Love <fx@gnu.org>
parents:
diff changeset
4 ;; Created: 1989
Dave Love <fx@gnu.org>
parents:
diff changeset
5
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
6 ;; This file is part of GNU Emacs.
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
7
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
8 ;;; Commentary:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
9
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
10 ;; This sample forms exploit most of the features of forms mode.
Dave Love <fx@gnu.org>
parents:
diff changeset
11
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
12 ;;; Code:
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
13
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
14 ;; Set the name of the data file.
Dave Love <fx@gnu.org>
parents:
diff changeset
15 (setq forms-file "forms-d2.dat")
Dave Love <fx@gnu.org>
parents:
diff changeset
16
Dave Love <fx@gnu.org>
parents:
diff changeset
17 ;; Use 'forms-enumerate' to set field names and number thereof.
Dave Love <fx@gnu.org>
parents:
diff changeset
18 (setq forms-number-of-fields
Dave Love <fx@gnu.org>
parents:
diff changeset
19 (forms-enumerate
Dave Love <fx@gnu.org>
parents:
diff changeset
20 '(arch-newsgroup ; 1
Dave Love <fx@gnu.org>
parents:
diff changeset
21 arch-volume ; 2
Dave Love <fx@gnu.org>
parents:
diff changeset
22 arch-issue ; and ...
Dave Love <fx@gnu.org>
parents:
diff changeset
23 arch-article ; ... so
Dave Love <fx@gnu.org>
parents:
diff changeset
24 arch-shortname ; ... ... on
Dave Love <fx@gnu.org>
parents:
diff changeset
25 arch-parts
Dave Love <fx@gnu.org>
parents:
diff changeset
26 arch-from
Dave Love <fx@gnu.org>
parents:
diff changeset
27 arch-longname
Dave Love <fx@gnu.org>
parents:
diff changeset
28 arch-keywords
Dave Love <fx@gnu.org>
parents:
diff changeset
29 arch-date
Dave Love <fx@gnu.org>
parents:
diff changeset
30 arch-remarks)))
Dave Love <fx@gnu.org>
parents:
diff changeset
31
Dave Love <fx@gnu.org>
parents:
diff changeset
32 ;; The following functions are used by this form for layout purposes.
Dave Love <fx@gnu.org>
parents:
diff changeset
33 ;;
Dave Love <fx@gnu.org>
parents:
diff changeset
34 (defun arch-tocol (target &optional fill)
64542
24c6e1c8e0cb (arch-rj): Fix typo in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
35 "Produces a string to skip to column TARGET. Prepends newline if needed.
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
36 The optional FILL should be a character, used to fill to the column."
Dave Love <fx@gnu.org>
parents:
diff changeset
37 (if (null fill)
64542
24c6e1c8e0cb (arch-rj): Fix typo in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 52401
diff changeset
38 (setq fill ?\s))
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
39 (if (< target (current-column))
Dave Love <fx@gnu.org>
parents:
diff changeset
40 (concat "\n" (make-string target fill))
Dave Love <fx@gnu.org>
parents:
diff changeset
41 (make-string (- target (current-column)) fill)))
Dave Love <fx@gnu.org>
parents:
diff changeset
42 ;;
49588
37645a051842 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47726
diff changeset
43 (defun arch-rj (target field &optional fill)
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
44 "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
45 Prepends newline if needed. The optional FILL should be a character,
25867
Dave Love <fx@gnu.org>
parents:
diff changeset
46 used to fill to the column."
Dave Love <fx@gnu.org>
parents:
diff changeset
47 (arch-tocol (- target (length (nth field forms-fields))) fill))
Dave Love <fx@gnu.org>
parents:
diff changeset
48
Dave Love <fx@gnu.org>
parents:
diff changeset
49 ;; Record filters.
Dave Love <fx@gnu.org>
parents:
diff changeset
50 ;;
Dave Love <fx@gnu.org>
parents:
diff changeset
51 (defun arch-new-record-filter (the-record)
Dave Love <fx@gnu.org>
parents:
diff changeset
52 "Form a new record with some defaults."
Dave Love <fx@gnu.org>
parents:
diff changeset
53 (aset the-record arch-from (user-full-name))
Dave Love <fx@gnu.org>
parents:
diff changeset
54 (aset the-record arch-date (current-time-string))
Dave Love <fx@gnu.org>
parents:
diff changeset
55 the-record ; return it
Dave Love <fx@gnu.org>
parents:
diff changeset
56 )
Dave Love <fx@gnu.org>
parents:
diff changeset
57 (setq forms-new-record-filter 'arch-new-record-filter)
Dave Love <fx@gnu.org>
parents:
diff changeset
58
Dave Love <fx@gnu.org>
parents:
diff changeset
59 ;; The format list.
Dave Love <fx@gnu.org>
parents:
diff changeset
60 (setq forms-format-list
Dave Love <fx@gnu.org>
parents:
diff changeset
61 (list
Dave Love <fx@gnu.org>
parents:
diff changeset
62 "====== Public Domain Software Archive ======\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
63 arch-shortname
Dave Love <fx@gnu.org>
parents:
diff changeset
64 " - " arch-longname
Dave Love <fx@gnu.org>
parents:
diff changeset
65 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
66 "Article: " arch-newsgroup
Dave Love <fx@gnu.org>
parents:
diff changeset
67 "/" arch-article
Dave Love <fx@gnu.org>
parents:
diff changeset
68 " "
Dave Love <fx@gnu.org>
parents:
diff changeset
69 '(arch-tocol 40)
Dave Love <fx@gnu.org>
parents:
diff changeset
70 "Issue: " arch-issue
Dave Love <fx@gnu.org>
parents:
diff changeset
71 " "
Dave Love <fx@gnu.org>
parents:
diff changeset
72 '(arch-rj 73 10)
Dave Love <fx@gnu.org>
parents:
diff changeset
73 "Date: " arch-date
Dave Love <fx@gnu.org>
parents:
diff changeset
74 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
75 "Submitted by: " arch-from
Dave Love <fx@gnu.org>
parents:
diff changeset
76 "\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
77 '(arch-tocol 79 ?-)
Dave Love <fx@gnu.org>
parents:
diff changeset
78 "\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
79 "Keywords: " arch-keywords
Dave Love <fx@gnu.org>
parents:
diff changeset
80 "\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
81 "Parts: " arch-parts
Dave Love <fx@gnu.org>
parents:
diff changeset
82 "\n\n====== Remarks ======\n\n"
Dave Love <fx@gnu.org>
parents:
diff changeset
83 arch-remarks
Dave Love <fx@gnu.org>
parents:
diff changeset
84 ))
Dave Love <fx@gnu.org>
parents:
diff changeset
85
Dave Love <fx@gnu.org>
parents:
diff changeset
86 ;; That's all, folks!
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 25867
diff changeset
87
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49588
diff changeset
88 ;;; 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
89 ;;; forms-d2.el ends here