Question

我想从Clojure（例如vim）中运行一个交互式CLI程序，并能够与其交互。

在bash和其他编程语言中，我可以使用

vim > `tty`

我试图在Clojure中做同样的事情：

(require '[clojure.java.shell :as shell])
(shell/sh "vim > `tty`")

但是它只是打开vim而没有给我tty。

背景：我正在开发一种Clojure CLI工具，该工具可以解析电子邮件，并允许用户编辑已解析的数据，然后再将其保存到磁盘上。它的工作方式如下：

读取包含电子邮件内容的文件并进行解析。每封电子邮件都存储为单独的文件。
向用户显示已解析的数据，并让用户在vim中编辑数据。在内部，我使用解析的数据创建了一个临时文件，但是如果可以解决我的问题，我不介意以其他方式进行操作。
用户完成分析的数据编辑后（他们可能决定保留原样），将数据附加到磁盘上的文件中。因此，所有解析的数据都保存到同一文件中。
如果还有电子邮件剩余的文件，请转到第一步。

Answer 1

此代码依靠Clojure Java互操作来利用Java的ProcessBuilder类。

(defn -main
[]
;use doseq instead of for because for is lazily evaluated
(doseq [i [1 2 3]]
;extract current directory from system variable
(let [file-name (str "test" i ".txt")
      working-directory (trim-newline (:out (sh "printenv" "PWD")))]
  (spit file-name "")

  ;this is where fun begins. We use ProcessBuilder to forward commands to terminal
  ;we pass a list of commands and their arguments to its constructor
  (let [process-builder (java.lang.ProcessBuilder. (list "vim" (str working-directory "/" file-name)))
  ;inherit is a configuration constant
        inherit (java.lang.ProcessBuilder$Redirect/INHERIT)]
  ;we configure input, output and error redirection
  (.redirectOutput process-builder inherit)
  (.redirectError process-builder inherit)
  (.redirectInput process-builder inherit)

  ;waitFor used to block execution until vim is closed
  (.waitFor (.start process-builder))
  )
  ;additional processing here
)
)
;not necessary but script tends to hang for around 30 seconds at end of its execution
;so this command is used to terminate it instantly
(System/exit 0)
)

如何从Clojure内部运行交互式CLI程序？

1 个答案: