snoopy-sample.el

(defcustom snoopy-current-layout
  'snoopy-qwerty-keyboard-digit-layout
  "Snoopy current-layout"
  :group 'snoopy
  :type '(restricted-sexp
         :match-alternatives
         ((lambda (s)
            (message "VAR %s" s) ; debuging
           (and (symbolp s) (fboundp s)
                (string-prefix-p "snoopy-" (symbol-name s))
                (string-suffix-p "-keyboard-digit-layout" (symbol-name s))))))
  :set (lambda (symb val)
         (set-default symb val)
         (message "SEETING %s %s" symb val) ; debuging
         (when (boundp 'snoopy-mode-map)
           (setq snoopy-mode-map (snoopy-make-mode-map (symbol-value val)))
           (setcdr (assoc 'snoopy-mode minor-mode-map-alist) snoopy-mode-map)))
  )