;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/fun-params.el

(require 'cl-lib)
(require 'fun-names)
(require 'pos)

(defun do-not-repeat ()
  (interactive)
  (cl-loop
    with sents = (pos--all-in sent para)
    with snt   = (car (last sents))
    with test  = (butlast sents)
    with score
    for s in test do
      (push `(,s ,@(fun-names--words snt s)) score)
    finally return
      (when score
        (message "most similar: %s"
          (caar (cl-sort score #'fun-names--words>))))))

(provide 'fun-params)