my-lispy-config.el

(define-key evil-insert-state-map (kbd "C-k") 'nil)
(define-key global-map (kbd "C-k") 'lispy-kill)

(defun my-remove-lispy-key (key)
  (define-key lispy-mode-map-base key nil)
  (define-key lispy-mode-map-lispy key nil)
  (define-key lispy-mode-map-oleh key nil)
  (define-key lispy-mode-map-paredit key nil)
  (define-key lispy-mode-map-special key nil)
  (define-key lispy-mode-map-x key nil))

(eval-after-load 'lispy
  `(progn
     (my-remove-lispy-key (kbd "C-a"))
     (my-remove-lispy-key (kbd "C-<return>"))
     (my-remove-lispy-key (kbd "M-<return>"))
     (global-set-key (kbd "C-ö") 'lispy-kill-at-point)

     ;; copy (yank) the current thing
     (lispy-define-key lispy-mode-map (kbd "y") 'lispy-new-copy)

     ;; switch o, d
     (lispy-define-key lispy-mode-map (kbd "o") 'lispy-different)
     (lispy-define-key lispy-mode-map (kbd "d") 'lispy-other-mode)

     ;; switch f, i
     (lispy-define-key lispy-mode-map (kbd "f") 'special-lispy-tab)
     (lispy-define-key lispy-mode-map (kbd "i") 'special-lispy-flow)))

(add-hook 'emacs-lisp-mode-hook (lambda () (lispy-mode 1)))
(add-hook 'clojure-mode-hook (lambda () (lispy-mode 1)))

(provide 'my-lispy-config)