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
|
;;; Some code to help with the conversion to Texinfo format.
;;;
;;; I'm probably the only person interested in this, but what the heck,
;;; I'll include it in the dist anyway.
(global-set-key "\C-c6" 'kf-codeize-ahead)
(global-set-key "\C-c7" 'kf-examplize-region)
(defun kf-examplize-region (b e)
(interactive "r")
(setq e (copy-marker e))
(goto-char b)
(insert "@example\n")
(goto-char e)
(insert "@end example\n"))
(defun kf-codeize-ahead (&optional parg)
(interactive "P")
(if parg
(skip-chars-forward " ")
(search-forward "")
(delete-backward-char 1))
(insert "@code{")
(if parg
(progn
(re-search-forward "\\s-")
(forward-char -1))
(search-forward "")
(delete-backward-char 1))
(insert "}")
(forward-char -1))
|
