2

ラテックスのカウントを決定するために使用する関数があり、通常はコマンドを使用するのが好きbriefです。で実行する代わりに、これを入力オプションに変更するにはどうすればよいですか"-inc" "-brief"。コマンド texcount で実行するために、ミニバッファーに独自のパラメーター セットを入力できます。コマンドをコンマで区切ってから、以下の形式に変換するのが最善の方法です。または、必要に応じて自分ですべてを入力することもでき"-inc" "-brief"ます。 

(defun latex-word-count ()
 (interactive)
  (let* ((this-file (buffer-file-name))
     (word-count
      (with-output-to-string
        (with-current-buffer standard-output
          (call-process "texcount" nil t nil "-inc" "-brief" this-file)))))
(string-match "\n$" word-count)
(message (replace-match "" nil nil word-count))))
4

1 に答える 1

0

未テスト:

 
   (defun latex-word-count ()
      （相互の作用）
      (let* ((this-file (バッファファイル名))
             (オプション (let ((opts ())
                               オプト)
                           (while (not (equal (setq opt (read-string "Option: "))
                                              ""))
                             (opt opts を押してください))
                           (nreverse オプト)))
             (単語数 (with-output-to-string
                             (電流バッファ付き標準出力
                               (適用 'call-process "texcount" nil t nil
                                      (追加オプション (list this-file)))))))
        (string-match "\n$" word-count)
        (メッセージ (replace-match "" nil nil word-count))))

これにより、必要な数のオプションを、必要な順序で入力できます。RET何も入力せずにヒットして終了します。

に受け入れられるオプションがわかっている場合は、の代わりに をtexcount使用して、それらのオプションのリストを引数として指定できます。HTH。completing-readread-stringCOLLECTION

于 2011-12-14T18:42:41.383 に答える