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

(require 'cl-lib)
(require 'search-regexp-in-files)

(defun find-custom-set-vars (&optional buf)
  (interactive)
  (or buf (setq buf (current-buffer)))
  (let ((out-buf (get-buffer-create "*CustomSetVariables*"))
        (hits 0) )
    (with-current-buffer buf
      (save-excursion
        (goto-char (point-min))
        (while (re-search-forward "([[:space:]]*set[fq][[:space:]]+" nil t)
          (let ((var  (variable-at-point t))
                (line (line-number-at-pos)) )
            (when (and (custom-variable-p var)
                       (get var 'custom-set) )
              (cl-incf hits)
              (with-current-buffer out-buf
                (insert (format "%s %s %s\n" var buf line)) ))))))
    (unless (zerop hits)
      (pop-to-buffer out-buf))
    hits) )

;; (find-custom-set-vars)

(defun fcsv-check-all-elisp ()
  (let*((conf-files (files-as-list "~/.emacs.d/emacs-init/**/*.el"))
        (fs (cons user-init-file conf-files)) )
    (dolist (f fs)
      (find-custom-set-vars (find-file-noselect f))) ))

;; (fcsv-check-all-elisp)
;;
;; show-paren-delay .emacs 235
;; erc-user-full-name erc-incal.el 33
;; erc-header-line-format erc-incal.el 91
;; message-cite-prefix-regexp gnus-cite-incal.el 8
;; ispell-program-name spell.el 23
;; w3m-tab-width w3m-incal.el 18

(provide 'custom-vars)