Emacsでclhsコマンドを経由して、カーソル位置にあるシンボルをHyperSpecで調べる

前の記事でclhsコマンドを使えるようにしたので、カーソル位置のシンボルを引数にclhsコマンドを呼べるようにした。

clhsにはパスが通っている前提。

(require 'thingatpt)
(defun clhs-symbol ()
  (interactive)
  (shell-command (concat "clhs " (thing-at-point 'symbol))))

;; 必要に応じて
;; (define-key lisp-mode-map (kbd  "M-.") 'clhs-symbol)