On 2/11/11, Yasuaki Honda <yhonda at mac.com> wrote:
>> (defprop %gamma "\\gamma" texword) ; THIS IS Now FORTUNATE ...
OK so far ...
>> (eval-when (:load-toplevel :execute)
>> (make-maxima-tex-glue '%gamma
>> #'(lambda (arglist &aux $vx)
>> (declare (special $vx))
>> (mset '((mlist) $vx) ($args arglist))
>> ($concat "\\Gamma\\left(" ($tex1 $vx) "\\right)")))
Well, MAKE-MAXIMA-TEX-GLUE just constructs a function and
assigns it to the TEX property.
Other functions are set up like that. So using TEX-SQRT as an
example, I think it should be something like:
(defprop %gamma tex-gamma tex)
(defun tex-gamma (x l r)
(tex (cadr x) (append l '("\\Gamma\\(")) (append '("\\)") r) 'mparen 'mparen))
best
Robert Dodier