annotate lisp/play/studly.el @ 42843:49c29a684355

Describe global-hl-line-mode.
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Jan 2002 09:27:57 +0000
parents 4e9db3befa86
children 695cf19ef79e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
1 ;;; studly.el --- StudlyCaps (tm)(r)(c)(xxx)
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
2
665
f9274ecd9acd *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 664
diff changeset
3 ;;; This is in the public domain, since it was distributed
f9274ecd9acd *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 664
diff changeset
4 ;;; by its author without a copyright notice in 1986.
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 32297
diff changeset
6 ;; This file is part of GNU Emacs.
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 32297
diff changeset
7
38695
01c7199c0ee7 Specify FSF as Maintainer.
Pavel Janík <Pavel@Janik.cz>
parents: 38414
diff changeset
8 ;; Maintainer: FSF
841
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
9 ;; Keywords: games
2cdce064065f entered into RCS
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 814
diff changeset
10
2315
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
11 ;;; Commentary:
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
12
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
13 ;; Functions to studlycapsify a region, word, or buffer. Possibly the
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
14 ;; esoteric significance of studlycapsification escapes you; that is,
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
15 ;; you suffer from autostudlycapsifibogotification. Too bad.
9e7ec92a4fdf Added or corrected Commentary headers
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 841
diff changeset
16
787
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
17 ;;; Code:
3cece0106722 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 665
diff changeset
18
32297
5a9159a46fe5 (studlify-region, studlify-word): Add autoload
Dave Love <fx@gnu.org>
parents: 18383
diff changeset
19 ;;;###autoload
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20 (defun studlify-region (begin end)
41664
4e9db3befa86 (studlify-word, studlify-region, studlify-buffer): Fix doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 38695
diff changeset
21 "Studlify-case the region."
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 (interactive "*r")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 (save-excursion
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 (setq begin (point))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 (while (and (<= (point) end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 (not (looking-at "\\W*\\'")))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 (forward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 (backward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 (setq begin (max (point) begin))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 (forward-word 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 (let ((offset 0)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 (word-end (min (point) end))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 c)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 (while (< (point) word-end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 (setq offset (+ offset (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 (forward-char 1))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 (setq offset (+ offset (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 (goto-char begin)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 (while (< (point) word-end)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (setq c (following-char))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 (if (and (= (% (+ c offset) 4) 2)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 (let ((ch (following-char)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (or (and (>= ch ?a) (<= ch ?z))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (and (>= ch ?A) (<= ch ?Z)))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 (progn
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 (delete-char 1)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 (insert (logxor c ? ))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (forward-char 1))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 (setq begin (point))))))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
32297
5a9159a46fe5 (studlify-region, studlify-word): Add autoload
Dave Love <fx@gnu.org>
parents: 18383
diff changeset
53 ;;;###autoload
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 (defun studlify-word (count)
41664
4e9db3befa86 (studlify-word, studlify-region, studlify-buffer): Fix doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 38695
diff changeset
55 "Studlify-case the current word, or COUNT words if given an argument."
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 (interactive "*p")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 (let ((begin (point)) end rb re)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (forward-word count)
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 (setq end (point))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 (setq rb (min begin end) re (max begin end))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 (studlify-region rb re)))
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
41664
4e9db3befa86 (studlify-word, studlify-region, studlify-buffer): Fix doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 38695
diff changeset
63 ;;;###autoload
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 (defun studlify-buffer ()
41664
4e9db3befa86 (studlify-word, studlify-region, studlify-buffer): Fix doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 38695
diff changeset
65 "Studlify-case the current buffer."
2
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 (interactive "*")
9b11cd9e3ba8 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 (studlify-region (point-min) (point-max)))
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
68
18383
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
69 (provide 'studly)
11218164bc54 Add provide call.
Richard M. Stallman <rms@gnu.org>
parents: 2315
diff changeset
70
657
fec3f9a1e3e5 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2
diff changeset
71 ;;; studly.el ends here