;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/ai.txt

(require 'regexp)

(defun clean-text ()
  (interactive)
  (let ((beg (point-min))
        (end (point-max)) )
    (save-mark-and-excursion
      (rr "^\n+" "\n" beg end)
      (rr "</s>" ""   beg end)
      (goto-char beg)
      (when (and (looking-at "[[:blank:]\n]")
                 (re-search-forward "[[:alnum:]]") )
        (delete-region beg (1- (point))) )
      (fill-region beg end)
      (save-buffer) )))

(keymap-set text-mode-map "M-h" #'clean-text)
(keymap-set text-mode-map "M-n" (lambda () (interactive) (find-file ".")))

(provide 'ai)