emacsのelispで作ってみた。編集画面にLinuxコマンドの結果を貼り付け

使い方

• 1.eval起動

  M-:
  

• 2.コマンドを書く

  (ic "ls" )
  

• 3.結果が勝手に張り付きます。

オプションを利用したい場合

    (ic "ls" "-a")

ダメな例１、文字列１つにすると動きませぬ・・・

(ic "ls -a")

ダメな例2、引数を５個使うと動きませぬ・・・・・

(ic "echo" "hoge" "fuga" "foo" "bar" "baz")

elispソース

(defun cmd (command &optional op1  &optional op2  &optional op3 &optional op4)
  "linux command"
  (setq buffername "command-buffer" )
  (setq res "" )
  (let (
    (oldbuf (current-buffer))
    )
    ;現在のバッファを固定、下のフォームを実行
    (save-current-buffer
      ;curettn-bufferに切り替え   (buffer を作成)
      (set-buffer (get-buffer-create buffername))
      (cond
       (op4
         (call-process command  nil buffername  nil  op1 op2 op3 op4))
       (op3
         (call-process command  nil buffername  nil  op1 op2 op3))
       (op2
         (call-process command  nil buffername  nil  op1 op2))
       (op1
         (call-process command  nil buffername  nil  op1))
       (t
         (call-process command  nil buffername  nil  ))
         )
      ;buffer内容取得
      (setq res (buffer-string))
      ;buffe kill
      (kill-buffer buffername)
      ))
  res
)


;;inscmd
;;
(defun ic (command  &optional op1  &optional op2  &optional op3 &optional op4)
  (insert (cmd command op1 op2 op3 op4 ))
)

終わり

簡単に結果が張り付くのは便利だ！！

今後のTODO

• 文字列を１つでも動くように。
• 引数の制限解除

引数は何とかしたいけど call-processの&restの受け渡し方法がわかりませぬ・・・

次はTODOをなおしたい！　かも・・・

関連記事

• Emacs
• emacs+node.jsでJavaScriptのリアルタイム構文チェック
• emacsで速攻ワンライナーを動かす itaqunai～いたくない～