Просмотр исходного кода

contrib/lisp/ob-php.el: Support change evaluate command specify options.

* contrib/lisp/ob-php.el (org-babel-php-command): Add new customizable
option `org-babel-php-command` to change default command.

* contrib/lisp/ob-php.el (org-babel-php-command-options): Add new
customizable option `org-babel-php-command-options` to specify
command options.

* contrib/lisp/ob-php.el (org-babel-execute:php): Use new commands in
execute function.
stardiviner 5 лет назад
Родитель
Сommit
97d0514b0b
1 измененных файлов с 12 добавлено и 3 удалено
  1. 12 3
      contrib/lisp/ob-php.el

+ 12 - 3
contrib/lisp/ob-php.el

@@ -21,6 +21,16 @@
   "org-mode blocks for PHP."
   :group 'org)
 
+(defcustom org-babel-php-command "php"
+  "The command to execute babel body code."
+  :group 'ob-php
+  :type 'string)
+
+(defcustom org-babel-php-command-options nil
+  "The php command options to use when execute code."
+  :group 'ob-php
+  :type 'string)
+
 (defcustom ob-php:inf-php-buffer "*php*"
   "Default PHP inferior buffer."
   :group 'ob-php
@@ -29,10 +39,9 @@
 ;;;###autoload
 (defun org-babel-execute:php (body params)
   "Orgmode Babel PHP evaluate function for `BODY' with `PARAMS'."
-  (let* ((cmd "php")
+  (let* ((cmd (concat org-babel-php-command " " org-babel-php-command-options))
          (body (concat "<?php\n" body "\n?>")))
-    (org-babel-eval cmd body)
-    ))
+    (org-babel-eval cmd body)))
 
 ;;;###autoload
 (eval-after-load "org"