スネークケースって打ちづらいですよね? アンダースコアを余分に打たないといけないし、アンダースコアが遠くて打ちづらいし。 そこで、 アッパーキャメルケースの末尾で関数を実行すると、大文字のスネークケースに変換、 ローワーキャメルケースの末尾で関数を実行すると、小文字のスネークケースに変換 する関数を作りました。 (global-set-key (kbd "M-u") 'camel-to-snake-backward-word) (defun camel-to-snake-backward-word () (interactive) (let ((case-fold-search nil) (s (buffer-substring (point) (save-excursion (forward-word -1) (point))))) (delete-region (point) (pro
![カーソル前のキャメルケースをスネークケースに変換 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/8cb5151fe05b42ac73db7ca6ed14a33fc31b6834/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9JUUzJTgyJUFCJUUzJTgzJUJDJUUzJTgyJUJEJUUzJTgzJUFCJUU1JTg5JThEJUUzJTgxJUFFJUUzJTgyJUFEJUUzJTgzJUEzJUUzJTgzJUExJUUzJTgzJUFCJUUzJTgyJUIxJUUzJTgzJUJDJUUzJTgyJUI5JUUzJTgyJTkyJUUzJTgyJUI5JUUzJTgzJThEJUUzJTgzJUJDJUUzJTgyJUFGJUUzJTgyJUIxJUUzJTgzJUJDJUUzJTgyJUI5JUUzJTgxJUFCJUU1JUE0JTg5JUU2JThGJTlCJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz1jMTRjNGYzYmM0ZmMwZTAxYjI2ZjY0ODA0NzlhY2U2MA%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwaGFrb21vJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9MzYmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz0yYWI1NzI5NjZlNTJkZGJhOTQzM2ZlZGE5ZDEwYTY3Mg%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3D64d62a9816deb21c19fd7da57b40858d)