src/webui/psfiles/calcupage-infix.lisp

   1
   2 (defvar process-loc "/process-infix")
   3
   4 (defun show-func (name elem width fcolor bcolor)
   5   (show-input-button name elem (+ name " ")
   6                      width fcolor bcolor))
   7
   8 (defun show-binop (name elem width fcolor bcolor)
   9   (show-input-button
  10     name elem name width fcolor bcolor))
  11
  12 (defun show-multi-func (name elem width fcolor bcolor)
  13   (show-input-button name elem (+ name "(")
  14                      width fcolor bcolor))
  15
  16 (defun memory-buttons (elem)
  17   (show-input-button "recall" elem "recall(\\\"" 50 "white" "DarkSlateGray")
  18   (show-input-button "store" elem "store(\\\"" 50 "white" "SlateBlue"))
  19
  20 (defun sqrt-button (elem)
  21   (show-input-button "&radic;" elem "sqrt "))
  22
  23 (defun expt-button (elem)
  24   (show-binop "^" elem))
  25
  26 (defun times-button (elem)
  27   (show-input-button "&times;" elem "*"))
  28