Expand abbreviations from the content of active tab on Google Chrome

dot.emacs

;; dabbrev-expand
;; chrome のタブから補完
;; require clome-cli (https://github.com/prasmussen/chrome-cli)
(defadvice dabbrev-expand (around dabbrev-expand-chrome)
  "Expand abbreviations from the content of active tab on Google Chrome"
  (setq buf (get-buffer-create "*chrome-active-tab-content*"))
  (with-current-buffer buf
    (erase-buffer)
    (call-process "chrome-cli" nil buf nil "execute" "document.body.innerText"))
  ad-do-it)
(ad-activate-regexp "dabbrev-expand-chrome")