rendered paste body
(defun vss-run-script ()
;; TODO set-buffer in other window
(interactive)
(setq bname
(get-buffer-create *vss-buffer-name*))
(display-buffer bname)
(set-buffer bname)
(delete-region (point-min) (point-max))
(setq buffer-read-only nil)
(setq directory default-directory)
(cd (concat vss-sw-media "/media/core/h264/enc/mpu/test")) ; XXX
;; FIXME
(call-process (concat vss-sw-media "/media/core/h264/enc/mpu/test/script.sh") nil bname t)
(cd directory))
(global-set-key (kbd "<f5>") 'vss-run-script)