How about:
(defvar stacker-base
"\href{https://www.example.com/stacker/?program=%s}{execute on stacker}")
(defun org-babel-execute:stacker (body params)
(format stacker-base
(org-link-encode body '(?? ? ?( ?) ?\n))))
It works with noweb too:
#+NAME: last
#+BEGIN_SRC stacker :eval no
(f)
#+END_SRC
#+BEGIN_SRC stacker :noweb yes
(defvar x 1)
(deffun (f)
(defvar y 2)
(deffun (h)
(+ x y))
(h))
<<last>>
#+END_SRC
#+RESULTS:
:
href{https://www.example.com/stacker/?program=%28defvar%20x%201%29%0A%28deffun%20%28f%29%0A%20%20%28defvar%20y%202%29%0A%20%20%28deffun%20%28h%29%0A%20%20%20%20%28+%20x%20y%29%29%0A%20%20%28h%29%29%0A%28f%29}{execute
on stacker}
Rudy
--
"Genius is 1% inspiration and 99% perspiration."
--- Thomas Alva Edison, 1932
Rudolf Adamkovič <[email protected]> [he/him]
Studenohorská 25
84103 Bratislava
Slovakia
