add plantuml-mode

lisp/init-plantuml.el

@@ -0,0 +1,28 @@
+;; -*- coding: utf-8; lexical-binding: t; -*-
+
+(autoload 'plantuml-mode "plantuml-mode" "" t)
+(add-to-list 'auto-mode-alist '("\\.\\(plantuml\\|pum\\|plu\\)\\'" . plantuml-mode))
+
+(defun plantuml-completion-at-point ()
+  "Function used for `completion-at-point-functions' in `plantuml-mode'.
+Copy from https://github.com/skuro/plantuml-mode/issues/98."
+  (let ((completion-ignore-case t)
+        (bounds (bounds-of-thing-at-point 'symbol))
+        (keywords plantuml-kwdList))
+    (when (and bounds keywords)
+      (list (car bounds)
+            (cdr bounds)
+            keywords
+            :exclusive 'no
+            :company-docsig #'indentity))))
+
+(with-eval-after-load 'plantuml-mode
+  (setq plantuml-exec-mode 'executable
+        plantuml-default-exec-mode 'executable)
+  (add-hook 'plantuml-mode-hook
+            (lambda ()
+              (add-hook 'completion-at-point-functions
+                        #'plantuml-completion-at-point nil 'local))))
+
+
+(provide 'init-plantuml)