コマンドパスをコピーするユーティリティwhich-command.elを実装した
CLIコマンドへのパスを取得したい時、whichコマンドを使用するとパスを表示できる。そのwhichコマンドのためのユーティリティを実装した。検索したいCLIコマンドへのパスを取得し、クリップボードにコピーする。
M-x which-command RET ls RET のように実行するとlsコマンドへのパスが、クリップボードにコピーされる。
なお、このライブラリはMelpaなどのリポジトリに登録していない。そのためインストールするためには、Githubから直接このファイルを取得し、package-install-from-fileなどを用いてインストールする必要がある。
;;; which-command --- Run which command on Emacs -*- lexical-binding: t -*-
;; Copyright (C) 2022 TakesxiSximada
;; Author: TakesxiSximada <[email protected]>
;; Maintainer: TakesxiSximada <[email protected]>
;; Repository:
;; Version: 2
;; Package-Version: 20220426.0000
;; Package-Requires: ((emacs "27.1") (s "1.12.0"))
;; Date: 2022-05-29
;; This file is part of which-command.
;; which-command is free software: you can redistribute it and/or
;; modify it under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.
;; which-command is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;; You should have received a copy of the GNU Affero General Public
;; License along with this program. If not, see
;; <https://www.gnu.org/licenses/>.
;;; Code:
(require 's)
(defun which-command--run-which (&optional name)
(with-temp-buffer
(call-process "which" nil (current-buffer) t name)
(buffer-substring-no-properties (point-min) (point-max))))
;;;###autoload
(defun which-command (&optional name)
(interactive "MCommand name: ")
(if-let ((path (s-trim (which-command--run-which name))))
(progn
(kill-new path)
(message (format "Copied: %s" path)))))
(provide 'which-command)
;;; which-command.el ends here