Org-Babel代码可以转换为Elisp吗？

Question

我有一个org-babel源代码，它通过tramp访问服务器并在那里运行shell脚本。有没有可能将这个源块转换成一个Elisp函数？

#+BEGIN_SRC sh :dir "/pscp:putty-connection-xy:/dir-yz" 
expect -c '
spawn bash -c  "scp file-to-copy user@server:/home1/dir-xy"
expect {
    "(yes/no)?" {
        send "yes\r"
        expect "*?assword:*"
        send "secretPassWord\r"
    }
    "*?assword:*" {
        send "secretPassWord\r"
    }
}
expect eof
'
#+END_SRC

Answer 1

使用Tramp的多跳(未测试)：

(copy-file "/plink:putty-connection-xy:/dir-yz/file-to-copy"
           "/plink:putty-connection-xy|ssh:user@server:/home1/dir-xy/")

它使用plink和ssh 'tho。如果您可以从本地计算机直接连接user@server，则可以使用pscp缩短此连接

(copy-file "/pscp:putty-connection-xy:/dir-yz/file-to-copy"
           "/pscp:user@server:/home1/dir-xy/")

Answer 2

解决方案很简单。我调用该块，并将其传递给'sh'，以及该块的代码和参数。它起作用了

(org-babel-execute-src-block nil 
'("sh" 
   "cd /home1/
    expect -c '    
spawn bash -c \"scp file-to-copy user@server:/home1/dir-xy .\"
     expect { 
             \"*?assword:*\" {           
   send \"secretPassWord\\r\"        }    }   
   expect eof'
   " 
  ((:colname-names) (:rowname-names) 
   (:result-params "raw" "replace") 
   (:result-type . value) (:results . "silent") 
   (:exports . "code") 
   (:tangle . "no") (:hlines . "no") (:noweb . "no") 
   (:cache . "no") (:session . "none")) "" nil nil ))