Re: buffer-crunch.el

[Emanuel Berg <incal@dataswamp.org>]

OK, look for version 0.3.2.

I removed a bunch of cl-stuff that was fine with just stuff -
I hope.

Also replaced `apply' with `funcall' to not have the trailing
nil argument - ugly - IIRC those were both harmless, right, it
was `eval' one should avoid?

Now the code looks pretty clean! But looks can be deceiving ...

The next step is just to add a bunch of specific interfaces to
call it.

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/buffer-crunch.el [version 0.3.2]
;;
;; All features shown as examples:
;;
;; 1. Just a forward function:
;;
;; (buffer-crunch #'forward-line)
;;
;; 2. A forward function and endpoints:
;;
;; (buffer-crunch #'forward-word nil 10 100)
;;
;; 3. A forward function and a custom read function:
;;
;; (buffer-crunch #'forward-word (lambda () (word-at-point t)))
;;
;; 4. A custom forward function and custom read function:
;;    This forward function will overflow the buffer, but
;;    that isn't a problem here.
;;
;; (buffer-crunch (lambda () (forward-char 42)) (lambda () (word-at-point t)))

(require 'cl-lib)
(require 'thingatpt)

(defun strings-tidy (strs)
  (remove "" (cl-remove-duplicates (sort strs) :test #'string=)) )

(defun wash-string (str)
  (string-trim (replace-regexp-in-string "[\n\t[:space:]]+" " " str)) )

(defun buffer-crunch (next &optional read beg end)
  (or beg (setq beg (point-min)))
  (or end (setq end (point-max)))
  (save-mark-and-excursion
    (goto-char beg)
    (cl-loop
      with strs
      with fst
      with otr
      with mov = t
      while (and (< (point) end) mov) do
        (setq fst (point))
        (condition-case nil
            (funcall next)
          (error (goto-char end)) )
        (setq otr (point))
        (if (< fst otr)
            (push (or (and read (funcall read))
                      (buffer-substring-no-properties fst otr) )
                  strs)
          (setq mov nil) )
      finally return (strings-tidy (mapcar #'wash-string strs)) )))

(provide 'buffer-crunch)

-- 
underground experts united
https://dataswamp.org/~incal