Jean Claude Functions

jean_claude.el

(defun jean-claude (var)
  "print-a-php-var-dump"
  (interactive "sVar:")
  (setq init-point (point))
  (insert (concat "echo '<pre>';\nvar_dump(" var  ");\necho '<\pre>';"))
  (indent-region init-point (point))
)

(defun doctrine-jean-claude (var)
  "print-a-php-var-dump"
  (interactive "sVar:")
  (setq init-point (point))
  (insert (concat "echo '<pre>';\n\\Doctrine\\Common\\Util\\Debug::dump(" var  ");\necho '<\pre>';"))
  (indent-region init-point (point))
)

(define-key sf-mode-keymap
  (kbd "C-c C-j j")
  'jean-claude
)

(define-key sf-mode-keymap
  (kbd "C-c C-j d")
  'doctrine-jean-claude
)