1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
;; Authors: David Goodger <goodger@python.org>;
;; Martin Blais
;; Date: $Date: 2003/05/23 13:48:22 $
;; Copyright: This module has been placed in the public domain.
;;
;; Support code for editing reStructuredText with Emacs indented-text mode.
;; The goal is to create an integrated reStructuredText editing mode.
;;
;; Updates
;; -------
;;
;; 2003-02-25 (blais): updated repeat-last-character function and added
;; a few routines for navigating between titles.
(defun replace-lines (fromchar tochar)
;; by David Goodger
"Replace flush-left lines, consisting of multiple FROMCHAR characters,
with equal-length lines of TOCHAR."
(interactive "\
cSearch for flush-left lines of char:
cand replace with char: ")
(save-excursion
(let* ((fromstr (string fromchar))
(searchre (concat "^" (regexp-quote fromstr) "+ *$"))
(found 0))
(condition-case err
(while t
(search-forward-regexp searchre)
(setq found (1+ found))
(search-backward fromstr) ;; point will be *before* last char
(setq p (1+ (point)))
(beginning-of-line)
(setq l (- p (point)))
(kill-line)
(insert-char tochar l))
(search-failed
(message (format "%d lines replaced." found)))))))
(defun repeat-last-character ()
;; by Martin Blais
"Fills the current line up to the length of the preceding line (if not empty),
using the last character on the current line. If the preceding line is empty,
or if a prefix argument is provided, fill up to the fill-column.
If the current line is longer than the desired length, shave the characters off
the current line to fit the desired length.
As an added convenience, if the command is repeated immediately, the alternative
behaviour is performed."
;; TODO
;; ----
;; It would be useful if only these characters were repeated:
;; =-`:.'"~^_*+#<>!$%&(),/;?@[\]{|}
;; Especially, empty lines shouldn't be repeated.
(interactive)
(let* ((curcol (current-column))
(curline (+ (count-lines (point-min) (point)) (if (eq curcol 0) 1 0)))
(lbp (line-beginning-position 0))
(prevcol (if (= curline 1)
fill-column
(save-excursion
(forward-line -1)
(end-of-line)
(skip-chars-backward " \t" lbp)
(let ((cc (current-column)))
(if (= cc 0) fill-column cc)))))
(rightmost-column
(cond (current-prefix-arg fill-column)
((equal last-command 'repeat-last-character)
(if (= curcol fill-column) prevcol fill-column))
(t (save-excursion
(if (= prevcol 0) fill-column prevcol))) )) )
(end-of-line)
(if (> (current-column) rightmost-column)
;; shave characters off the end
(delete-region (- (point)
(- (current-column) rightmost-column))
(point))
;; fill with last characters
(insert-char (preceding-char)
(- rightmost-column (current-column)))) ))
(defun reST-title-char-p (c)
;; by Martin Blais
"Returns true if the given character is a valid title char."
(and (string-match "[-=`:\\.'\"~^_*+#<>!$%&(),/;?@\\\|]"
(char-to-string c)) t))
(defun reST-forward-title ()
;; by Martin Blais
"Skip to the next restructured text section title."
(interactive)
(let* ( (newpoint
(save-excursion
(forward-char) ;; in case we're right on a title
(while
(not
(and (re-search-forward "^[A-Za-z0-9].*[ \t]*$" nil t)
(reST-title-char-p (char-after (+ (point) 1)))
(looking-at (format "\n%c\\{%d,\\}[ \t]*$"
(char-after (+ (point) 1))
(current-column))))))
(beginning-of-line)
(point))) )
(if newpoint (goto-char newpoint)) ))
(defun reST-backward-title ()
;; by Martin Blais
"Skip to the previous restructured text section title."
(interactive)
(let* ( (newpoint
(save-excursion
;;(forward-char) ;; in case we're right on a title
(while
(not
(and (or (backward-char) t)
(re-search-backward "^[A-Za-z0-9].*[ \t]*$" nil t)
(or (end-of-line) t)
(reST-title-char-p (char-after (+ (point) 1)))
(looking-at (format "\n%c\\{%d,\\}[ \t]*$"
(char-after (+ (point) 1))
(current-column))))))
(beginning-of-line)
(point))) )
(if newpoint (goto-char newpoint)) ))
(defun join-paragraph ()
;; by David Goodger
"Join lines in current paragraph into one line, removing end-of-lines."
(interactive)
(save-excursion
(backward-paragraph 1)
(forward-char 1)
(let ((start (point))) ; remember where we are
(forward-paragraph 1) ; go to the end of the paragraph
(beginning-of-line 0) ; go to the beginning of the previous line
(while (< start (point)) ; as long as we haven't passed where we started
(delete-indentation) ; join this line to the line before
(beginning-of-line))))) ; and go back to the beginning of the line
(defun force-fill-paragraph ()
;; by David Goodger
"Fill paragraph at point, first joining the paragraph's lines into one.
This is useful for filling list item paragraphs."
(interactive)
(join-paragraph)
(fill-paragraph nil))
|
