load-path通しまくり

今まで律儀に

(add-to-list 'load-path "~/.emacs.d/ほむ")
(add-to-list 'load-path "~/.emacs.d/ほむほむ")
(add-to-list 'load-path "~/.emacs.d/ほむほむほむ")
(add-to-list 'load-path "~/.emacs.d/ほむほむほむほむ")
....

ってやってたわけだが

(dolist (dir (split-string (shell-command-to-string "find ~/.emacs.d/ -type d") "\n"))
  (add-to-list 'load-path dir))

こうしてしまえば少し乱暴だけどもうなにもこわくないんじゃねっておもった。
だめかな？