emacs
/
plantuml-mode
mirror of https://github.com/skuro/plantuml-mode.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Migrate to a common prefix

This commit is contained in:
Carlo Sciolla 2015-07-14 16:40:02 +02:00
parent cb9435bdd7
commit 551c899e9b
1 changed files with 52 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

106
puml-mode.el
View File

@ -21,8 +21,6 @@
;; - component diagram, ;; - component diagram,
;; - state diagram ;; - state diagram
;; - object diagram ;; - object diagram
;; using a simple and intuitive language.
;;; HISTORY ;;; HISTORY
;; version 0.3, 2015-06-13 Compatibility with Emacs 24.x ;; version 0.3, 2015-06-13 Compatibility with Emacs 24.x
;; version 0.2, 2010-09-20 Initialize the keywords from the -language output of plantuml.jar instead of the hard-coded way. ;; version 0.2, 2010-09-20 Initialize the keywords from the -language output of plantuml.jar instead of the hard-coded way.
@ -35,16 +33,16 @@
"Major mode for editing plantuml file." "Major mode for editing plantuml file."
:group 'languages) :group 'languages)
(defvar plantuml-jar-path (expand-file-name "~/plantuml.jar")) (defvar puml-plantuml-jar-path (expand-file-name "~/plantuml.jar"))
(defvar plantuml-mode-hook nil "Standard hook for puml-mode.") (defvar puml-mode-hook nil "Standard hook for puml-mode.")
(defvar plantuml-mode-version nil "puml-mode version string.") (defvar puml-mode-version nil "puml-mode version string.")
(defvar plantuml-mode-map nil "Keymap for puml-mode") (defvar puml-mode-map nil "Keymap for puml-mode")
;;; syntax table ;;; syntax table
(defvar plantuml-mode-syntax-table (defvar puml-mode-syntax-table
(let ((synTable (make-syntax-table))) (let ((synTable (make-syntax-table)))
(modify-syntax-entry ?' "< b" synTable) (modify-syntax-entry ?' "< b" synTable)
(modify-syntax-entry ?\n "> b" synTable) (modify-syntax-entry ?\n "> b" synTable)
@ -54,23 +52,23 @@
synTable) synTable)
"Syntax table for `puml-mode'.") "Syntax table for `puml-mode'.")
(defvar plantuml-types nil) (defvar puml-plantuml-types nil)
(defvar plantuml-keywords nil) (defvar puml-plantuml-keywords nil)
(defvar plantuml-preprocessors nil) (defvar puml-plantuml-preprocessors nil)
(defvar plantuml-builtins nil) (defvar puml-plantuml-builtins nil)
;; keyword completion ;; keyword completion
(defvar plantuml-kwdList nil "plantuml keywords.") (defvar puml-plantuml-kwdList nil "plantuml keywords.")
;;; font-lock ;;; font-lock
(defun plantuml-init () (defun puml-init ()
"Initialize the keywords or builtins from the cmdline language output" "Initialize the keywords or builtins from the cmdline language output"
(unless (file-exists-p plantuml-jar-path) (unless (file-exists-p puml-plantuml-jar-path)
(error "Could not find plantuml.jar at %s" plantuml-jar-path)) (error "Could not find plantuml.jar at %s" puml-plantuml-jar-path))
(with-temp-buffer (with-temp-buffer
(shell-command (concat "java -jar " (shell-command (concat "java -jar "
(shell-quote-argument plantuml-jar-path) (shell-quote-argument puml-plantuml-jar-path)
" -language") (current-buffer)) " -language") (current-buffer))
(goto-char (point-min)) (goto-char (point-min))
(let ((found (search-forward ";" nil t)) (let ((found (search-forward ";" nil t))
@ -88,62 +86,62 @@
(setq pos (point)) (setq pos (point))
(forward-line count) (forward-line count)
(cond ((string= word "type") (cond ((string= word "type")
(setq plantuml-types (setq puml-plantuml-types
(split-string (split-string
(buffer-substring-no-properties pos (point))))) (buffer-substring-no-properties pos (point)))))
((string= word "keyword") ((string= word "keyword")
(setq plantuml-keywords (setq puml-plantuml-keywords
(split-string (split-string
(buffer-substring-no-properties pos (point))))) (buffer-substring-no-properties pos (point)))))
((string= word "preprocessor") ((string= word "preprocessor")
(setq plantuml-preprocessors (setq puml-plantuml-preprocessors
(split-string (split-string
(buffer-substring-no-properties pos (point))))) (buffer-substring-no-properties pos (point)))))
(t (setq plantuml-builtins (t (setq puml-plantuml-builtins
(append (append
plantuml-builtins puml-plantuml-builtins
(split-string (split-string
(buffer-substring-no-properties pos (point))))))) (buffer-substring-no-properties pos (point)))))))
;; ((string= word "skinparameter") ;; ((string= word "skinparameter")
;; ((string= word "color"))) ;; ((string= word "color")))
(setq found (search-forward ";" nil nil))))))) (setq found (search-forward ";" nil nil)))))))
(unless plantuml-kwdList (unless puml-plantuml-kwdList
(plantuml-init) (puml-init)
(defvar plantuml-types-regexp (concat "^\\s *\\(" (regexp-opt plantuml-types 'words) "\\|\\<\\(note\\s +over\\|note\\s +\\(left\\|right\\|bottom\\|top\\)\\s +\\(of\\)?\\)\\>\\|\\<\\(\\(left\\|center\\|right\\)\\s +\\(header\\|footer\\)\\)\\>\\)")) (defvar puml-plantuml-types-regexp (concat "^\\s *\\(" (regexp-opt puml-plantuml-types 'words) "\\|\\<\\(note\\s +over\\|note\\s +\\(left\\|right\\|bottom\\|top\\)\\s +\\(of\\)?\\)\\>\\|\\<\\(\\(left\\|center\\|right\\)\\s +\\(header\\|footer\\)\\)\\>\\)"))
(defvar plantuml-keywords-regexp (concat "^\\s *" (regexp-opt plantuml-keywords 'words) "\\|\\(<\\|<|\\|\\*\\|o\\)\\(\\.+\\|-+\\)\\|\\(\\.+\\|-+\\)\\(>\\||>\\|\\*\\|o\\)\\|\\.\\{2,\\}\\|-\\{2,\\}")) (defvar puml-plantuml-keywords-regexp (concat "^\\s *" (regexp-opt puml-plantuml-keywords 'words) "\\|\\(<\\|<|\\|\\*\\|o\\)\\(\\.+\\|-+\\)\\|\\(\\.+\\|-+\\)\\(>\\||>\\|\\*\\|o\\)\\|\\.\\{2,\\}\\|-\\{2,\\}"))
(defvar plantuml-builtins-regexp (regexp-opt plantuml-builtins 'words)) (defvar puml-plantuml-builtins-regexp (regexp-opt puml-plantuml-builtins 'words))
(defvar plantuml-preprocessors-regexp (concat "^\\s *" (regexp-opt plantuml-preprocessors 'words))) (defvar puml-plantuml-preprocessors-regexp (concat "^\\s *" (regexp-opt puml-plantuml-preprocessors 'words)))
(setq plantuml-font-lock-keywords (setq puml-font-lock-keywords
`( `(
(,plantuml-types-regexp . font-lock-type-face) (,puml-plantuml-types-regexp . font-lock-type-face)
(,plantuml-keywords-regexp . font-lock-keyword-face) (,puml-plantuml-keywords-regexp . font-lock-keyword-face)
(,plantuml-builtins-regexp . font-lock-builtin-face) (,puml-plantuml-builtins-regexp . font-lock-builtin-face)
(,plantuml-preprocessors-regexp . font-lock-preprocessor-face) (,puml-plantuml-preprocessors-regexp . font-lock-preprocessor-face)
;; note: order matters ;; note: order matters
)) ))
(setq plantuml-kwdList (make-hash-table :test 'equal)) (setq puml-plantuml-kwdList (make-hash-table :test 'equal))
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-types) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-types)
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-keywords) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-keywords)
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-builtins) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-builtins)
(mapc (lambda (x) (puthash x t plantuml-kwdList)) plantuml-preprocessors) (mapc (lambda (x) (puthash x t puml-plantuml-kwdList)) puml-plantuml-preprocessors)
(put 'plantuml-kwdList 'risky-local-variable t) (put 'puml-plantuml-kwdList 'risky-local-variable t)
;; clear memory ;; clear memory
(setq plantuml-types nil) (setq puml-plantuml-types nil)
(setq plantuml-keywords nil) (setq puml-plantuml-keywords nil)
(setq plantuml-builtins nil) (setq puml-plantuml-builtins nil)
(setq plantuml-preprocessors nil) (setq puml-plantuml-preprocessors nil)
(setq plantuml-types-regexp nil) (setq puml-plantuml-types-regexp nil)
(setq plantuml-keywords-regexp nil) (setq puml-plantuml-keywords-regexp nil)
(setq plantuml-builtins-regexp nil) (setq puml-plantuml-builtins-regexp nil)
(setq plantuml-preprocessors-regexp nil)) (setq puml-plantuml-preprocessors-regexp nil))
(defun plantuml-complete-symbol () (defun puml-complete-symbol ()
"Perform keyword completion on word before cursor." "Perform keyword completion on word before cursor."
(interactive) (interactive)
(let ((posEnd (point)) (let ((posEnd (point))
@ -152,7 +150,7 @@
(when (not meat) (setq meat "")) (when (not meat) (setq meat ""))
(setq maxMatchResult (try-completion meat plantuml-kwdList)) (setq maxMatchResult (try-completion meat puml-plantuml-kwdList))
(cond ((eq maxMatchResult t)) (cond ((eq maxMatchResult t))
((null maxMatchResult) ((null maxMatchResult)
(message "Can't find completion for \"%s\"" meat) (message "Can't find completion for \"%s\"" meat)
@ -163,7 +161,7 @@
(t (message "Making completion list...") (t (message "Making completion list...")
(with-output-to-temp-buffer "*Completions*" (with-output-to-temp-buffer "*Completions*"
(display-completion-list (display-completion-list
(all-completions meat plantuml-kwdList) (all-completions meat puml-plantuml-kwdList)
meat)) meat))
(message "Making completion list...%s" "done"))))) (message "Making completion list...%s" "done")))))
@ -174,7 +172,7 @@
"Major mode for plantuml. "Major mode for plantuml.
Shortcuts Command Name Shortcuts Command Name
\\[plantuml-complete-symbol] `plantuml-complete-symbol'" \\[puml-complete-symbol] `puml-complete-symbol'"
(interactive) (interactive)
(kill-all-local-variables) (kill-all-local-variables)
@ -182,13 +180,13 @@ Shortcuts Command Name
;; (python-mode) ; for indentation ;; (python-mode) ; for indentation
(setq major-mode 'puml-mode (setq major-mode 'puml-mode
mode-name "puml") mode-name "puml")
(set-syntax-table plantuml-mode-syntax-table) (set-syntax-table puml-mode-syntax-table)
(use-local-map plantuml-mode-map) (use-local-map puml-mode-map)
(make-local-variable 'font-lock-defaults) (make-local-variable 'font-lock-defaults)
(setq font-lock-defaults '((plantuml-font-lock-keywords) nil t)) (setq font-lock-defaults '((puml-font-lock-keywords) nil t))
(run-mode-hooks 'plantuml-mode-hook)) (run-mode-hooks 'puml-mode-hook))
(provide 'puml-mode) (provide 'puml-mode)
;;; puml-mode.el ends here ;;; puml-mode.el ends here