评论由:netpyoung发表
当前tools.gitlib不支持file://url。
`
(defn- call-with-auth
([^GitCommand command]
(call-with-auth
(.. command getRepository getConfig (getString "remote" "origin" "url"))
command))
([^String url ^GitCommand command]
(cond
;; need to filtering like that.
(and (instance? TransportCommand command)
(str/starts-with? url "file"))
(.call command)
(and (instance? TransportCommand command)
(not (str/starts-with? url "http")))
(.. ^TransportCommand command (setTransportConfigCallback @ssh-callback) call)
:else (.call command))))
`