blob: 0066db54695630879cdaa512606c40c55916dc5b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
;; Superdummy function to clean up a wiki page.
;; It removes the menu on the left and the navigation bar.
;;
;; TODO: don't remove the Wikipedia logo.
(defun cleanupwikipages ()
"Clean up wiki pages."
(interactive)
(widen)
(goto-char (point-min))
(search-forward "NewPP" nil t)
(search-forward "-->\n" nil t)
(let ((beg (point))
(end (save-excursion (and (re-search-forward "</body>" nil t)
(match-beginning 0)))))
(delete-region beg end)))
|