   (user-keys-subkey "f" 'my-toggle-fullscreen)
 
   )
-
-(user-keys-init-map)
 
 ; Dynamic abbrev should copy the word it finds verbatim
 (setq dabbrev-case-replace nil)

    "Wraped command"
    (interactive (advice-eval-interactive-spec
		  (let ((cmd (funcall lookup)))
		    (when cmd (cadr (interactive-form command))))))
    (let ((cmd (funcall lookup)))
      (when cmd (apply cmd args)))))



(user-keys-mode t)

(progn
  (user-keys-reset)
  
  (setcdr user-keys-mode-map nil)
