;;; rcd-utilities.el --- RCD utilities for GNU Emacs Lisp

;; Copyright (C) 2016-2020 Jean Louis

;; Author: Jean Louis <bugs@gnu.support>
;; Version: 1.0
;; Package-Requires:
;; Keywords: extensions
;; URL: https://gnu.support/gnu-emacs/packages/rcd-utilities-el.html

;; This file is not part of GNU Emacs.

;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; These are the RCD utilities for GNU Emacs Lisp used in other RCD
;; packages.
;;
;; RCD is acronym for Reach, Connect, Deliver, my personal
;; principle and formula for Wealth.

;;; Change Log:

;;; Code:

(setq lexical-binding t)

(require 'cl-lib)

(defun list-has (needle haystack)
  "Returns elements of haystack that contain needle, case insensitive"
  (let ((nlist))
    (dolist (element haystack (reverse nlist))
      (when (string-match needle element)
    (cl-pushnew element nlist)))))

(defun list-has-elements (needles haystack)
  "Returns elements of haystack that contain needle, case insensitive"
  (if needles
      (let* ((needle (pop needles))
         (haystack (list-has needle haystack)))
    (list-has-elements needles haystack))
    haystack))

(defun pop-buffer-highlight-elements (query list buffer)
  "Pops buffer, inserts lines from a list and highlights queried elements"
  (pop-to-buffer buffer)
    (local-set-key "q" 'quit-window)
    (dolist (line list)
      (insert line)
      (insert "\n"))
    (dolist (phrase query)
      (highlight-phrase phrase)))

(provide 'rcd-utilities)

;;; rcd-utilities.el ends here