Cacher is the code snippet organizer for pro developers

(defcustom plantuml-compile-extension "png"
  "*The extension to use for the compilation*"
  :type 'string
  :group 'plantuml)

(defvar plantuml-mode-map ()
  "Keymap for plantuml-mode.")

(if plantuml-mode-map
    ()
  (let ((map (make-sparse-keymap)))
    (define-key map "\C-cc"    'compile)
    (setq plantuml-mode-map map)
    ))

;;;###autoload
(defun plantuml-mode ()
  "Major mode for plantuml.

Shortcuts             Command Name
\\[plantuml-complete-symbol]      `plantuml-complete-symbol'"

  (interactive)
  (kill-all-local-variables)

  ;;  (python-mode) ; for indentation
  (setq major-mode 'plantuml-mode
        mode-name "plantuml")
  (set-syntax-table plantuml-mode-syntax-table)
  (use-local-map plantuml-mode-map)

  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '((plantuml-font-lock-keywords) nil t))
  (if (buffer-file-name)
      (set (make-local-variable 'compile-command) 
       (concat "java -jar " plantuml-jar-path " -charset UTF-8 -t"
              plantuml-compile-extension " "
              buffer-file-name)))

  (run-mode