EV2YHWRKQPJKNZCGQQZGLORRD2LOUXVLJU2W5UCDVGWTWXBPXJVQC
EP5W44GOTFS6UWWCOSBAXZNVH44J6YZ2EAO6EKUEQVFEATIVAM5AC
2TT5NUAPY5L5EKJFPZYZ5YZAQY3ZWM277NJKXDIFMGAQS6GQIKFQC
XTDF5CT6WPURZZLT2YEJK5CVWT5MJVJRRMUQH4Z4H3ASSB5D4ATAC
'((lisp . (:var-assigner (lambda (body vars) body) :print-func (lambda (s) (format "(princ \"%s\")" s))))
'((lisp . (:var-assigner (lambda (body vars) body)
:print-func (lambda (s) (format "(princ \"%s\")" s))))
'((lisp . (:print-func (lambda (s) (format "(princ \"%s\")" s)) :var-assigner (lambda (body vars) body)))
'((lisp . (:print-func (lambda (s) (format "(princ \"%s\")" s))
:var-assigner (lambda (body vars) body)))
(sh . (:var-assigner (lambda (body vars) body) :print-func (lambda (s) (format "echo \"%s\"" s)))))
(sh . (:var-assigner (lambda (body vars) body)
:print-func (lambda (s) (format "echo \"%s\"" s)))))
(sh . (:change-dir (lambda (d) (format "cd '%s'" d)) :print-func (lambda (s) (format "echo \"%s\"" s)) :var-assigner (lambda (body vars) body))))
(sh . (:change-dir (lambda (d) (format "cd '%s'" d))
:print-func (lambda (s) (format "echo \"%s\"" s))
:var-assigner (lambda (body vars) body))))
(plist :key-type (symbol :options (:var-assigner :print-func))
(plist :key-type (symbol :options (:change-dir :print-func ;; needed for the detecting if a code block is finished :var-assigner))
(plist :key-type (symbol :options (:change-dir
:print-func ;; needed for the detecting if a code block is finished
:var-assigner))
;; TODO tmux
(insert-chdir (plist-get (alist-get (intern lang) ob-term-supported-languages) :change-dir))
(dir (cdr (assoc :dir params)))
(when (and insert-chdir dir) (funcall insert-chdir dir)) eol
(when (and insert-chdir dir) (funcall insert-chdir dir))
eol
"\n"
pwd#+end_src#+header: :session *comint-bash*#+begin_src term:sh :dir /var/ pwd
pwd
#+end_src
#+header: :session *comint-bash*
#+begin_src term:sh :dir /var/