helm-swoop と org-mode を仲良くする（* を検索補完させない）

M-s を当てて使ってしまうほど個人的に重宝している helm-swoop は，org-mode とちょっと相性が悪い．helm-swoop は起動時に，カーソル下の単語を自動的に検索語として扱ってくれるが，org-mode だと見出しのスターが対象になることがしばしば．すると毎度ミニバッファの（\*）を消さなといけない．
この問題はhelm-swoop-pre-input-functionをカスタムすることで回避できる．

(with-eval-after-load "helm-swoop"
  ;; カーソルの単語が org の見出し（*の集まり）のとき検索対象にしない．
  (setq helm-swoop-pre-input-function
        #'(lambda()
            (unless (thing-at-point-looking-at "^\\*+")
              (thing-at-point 'symbol)))))

GIST: https://gist.github.com/takaxp/70e56c692adb1078779d