(defun copypast_killer (a)
  (concat
   "(defun pacmacs-" a "()
    (interactive)
    (when (pacmacs--unpaused-play-state-p)
      (pacmacs--switch-direction pacmacs--player-state '" a ")))"
  )
)