我有一个包提供类似的功能，我自己使用频率还挺高的：攒了一个移动/交换光标/选区内容（regions/sexps/lines/words）的扩展
但是光标要放在 list 头部：
(|(a b) (c d))
比 transpose-sexps (C-M-t) 略为方便，它可以连续向前／向后移动：
** jagger-move-sexp-forward (<prefix> m f) **
(|(a b) (c d) (e f))
->
((c d) |(a b) (e f))
->
((c d) (e f) |(a b))