Weird thing

weird.el

;; Common use of third-party function looks like that:

(evilified-state-evilify-map
  :mode some-emacs-mode
  :bindings
  (kdb "C-c a") 'function1
  (kdb "C-c b") 'function2)
  
;; I want to declare function or macro that will produce such bindings

(defun producer (binding function)
  (list (kdb (concat "C-c" binding)) 'function
        (kdb (concat "C-x" binding)) 'function))
        
;; And then call it like that:

(evilified-state-evilify-map
  :mode some-emacs-mode
  :bindings
  (producer "c" 'function))
  
;; To produce code like that

(evilified-state-evilify-map
  :mode some-emacs-mode
  :bindings
  (kdb "C-c c") 'function
  (kdb "C-x c") 'function)